ghcjs-dom-javascript 0.9.9.3 → 0.10.0.0
raw patch · 1614 files changed
+111010/−70447 lines, 1614 filesdep ~ghcjs-base
Dependency ranges changed: ghcjs-base
This diff is very large; some files are shown as “too large to diff”. Download the raw patch for the complete diff.
Files
- ChangeLog.md +7/−0
- ghcjs-dom-javascript.cabal +2925/−1235
- src/GHCJS/DOM/EventM.hs +73/−78
- src/GHCJS/DOM/JSFFI/AudioContext.hs +0/−35
- src/GHCJS/DOM/JSFFI/DOMError.hs +0/−20
- src/GHCJS/DOM/JSFFI/Database.hs +0/−75
- src/GHCJS/DOM/JSFFI/Generated/ANGLEInstancedArrays.hs +0/−71
- src/GHCJS/DOM/JSFFI/Generated/ANGLE_instanced_arrays.hs +37/−0
- src/GHCJS/DOM/JSFFI/Generated/ARIAMixin.hs +1057/−0
- src/GHCJS/DOM/JSFFI/Generated/ARIANotifyMixin.hs +23/−0
- src/GHCJS/DOM/JSFFI/Generated/AacEncoderConfig.hs +43/−0
- src/GHCJS/DOM/JSFFI/Generated/AbortController.hs +35/−0
- src/GHCJS/DOM/JSFFI/Generated/AbortSignal.hs +69/−0
- src/GHCJS/DOM/JSFFI/Generated/AbstractRange.hs +47/−0
- src/GHCJS/DOM/JSFFI/Generated/AbstractWorker.hs +11/−23
- src/GHCJS/DOM/JSFFI/Generated/AddEventListenerOptions.hs +83/−0
- src/GHCJS/DOM/JSFFI/Generated/AddressErrors.hs +223/−0
- src/GHCJS/DOM/JSFFI/Generated/AllAcceptedCredentialsOptions.hs +59/−0
- src/GHCJS/DOM/JSFFI/Generated/AnalyserNode.hs +68/−108
- src/GHCJS/DOM/JSFFI/Generated/AnalyserOptions.hs +103/−0
- src/GHCJS/DOM/JSFFI/Generated/Animatable.hs +36/−31
- src/GHCJS/DOM/JSFFI/Generated/Animation.hs +216/−72
- src/GHCJS/DOM/JSFFI/Generated/AnimationEffect.hs +43/−0
- src/GHCJS/DOM/JSFFI/Generated/AnimationEvent.hs +40/−42
- src/GHCJS/DOM/JSFFI/Generated/AnimationEventInit.hs +103/−0
- src/GHCJS/DOM/JSFFI/Generated/AnimationFrameProvider.hs +33/−0
- src/GHCJS/DOM/JSFFI/Generated/AnimationPlaybackEvent.hs +51/−0
- src/GHCJS/DOM/JSFFI/Generated/AnimationPlaybackEventInit.hs +63/−0
- src/GHCJS/DOM/JSFFI/Generated/AnimationTimeline.hs +45/−0
- src/GHCJS/DOM/JSFFI/Generated/AnimationTrigger.hs +18/−0
- src/GHCJS/DOM/JSFFI/Generated/ApplePayError.hs +0/−114
- src/GHCJS/DOM/JSFFI/Generated/ApplePayPaymentAuthorizedEvent.hs +0/−35
- src/GHCJS/DOM/JSFFI/Generated/ApplePayPaymentMethodSelectedEvent.hs +0/−38
- src/GHCJS/DOM/JSFFI/Generated/ApplePaySession.hs +0/−309
- src/GHCJS/DOM/JSFFI/Generated/ApplePayShippingContactSelectedEvent.hs +0/−38
- src/GHCJS/DOM/JSFFI/Generated/ApplePayShippingMethodSelectedEvent.hs +0/−38
- src/GHCJS/DOM/JSFFI/Generated/ApplePayValidateMerchantEvent.hs +0/−38
- src/GHCJS/DOM/JSFFI/Generated/ApplicationCache.hs +0/−97
- src/GHCJS/DOM/JSFFI/Generated/AriaNotificationOptions.hs +43/−0
- src/GHCJS/DOM/JSFFI/Generated/AssignedNodesOptions.hs +39/−0
- src/GHCJS/DOM/JSFFI/Generated/Attr.hs +63/−110
- src/GHCJS/DOM/JSFFI/Generated/AudioBuffer.hs +50/−67
- src/GHCJS/DOM/JSFFI/Generated/AudioBufferCallback.hs +0/−60
- src/GHCJS/DOM/JSFFI/Generated/AudioBufferOptions.hs +67/−0
- src/GHCJS/DOM/JSFFI/Generated/AudioBufferSourceNode.hs +69/−136
- src/GHCJS/DOM/JSFFI/Generated/AudioBufferSourceOptions.hs +143/−0
- src/GHCJS/DOM/JSFFI/Generated/AudioConfiguration.hs +115/−0
- src/GHCJS/DOM/JSFFI/Generated/AudioContext.hs +76/−529
- src/GHCJS/DOM/JSFFI/Generated/AudioContextOptions.hs +103/−0
- src/GHCJS/DOM/JSFFI/Generated/AudioData.hs +99/−0
- src/GHCJS/DOM/JSFFI/Generated/AudioDataCopyToOptions.hs +95/−0
- src/GHCJS/DOM/JSFFI/Generated/AudioDataInit.hs +115/−0
- src/GHCJS/DOM/JSFFI/Generated/AudioDataOutputCallback.hs +29/−0
- src/GHCJS/DOM/JSFFI/Generated/AudioDecoder.hs +79/−0
- src/GHCJS/DOM/JSFFI/Generated/AudioDecoderConfig.hs +79/−0
- src/GHCJS/DOM/JSFFI/Generated/AudioDecoderInit.hs +35/−0
- src/GHCJS/DOM/JSFFI/Generated/AudioDecoderSupport.hs +63/−0
- src/GHCJS/DOM/JSFFI/Generated/AudioDestinationNode.hs +13/−24
- src/GHCJS/DOM/JSFFI/Generated/AudioEncoder.hs +79/−0
- src/GHCJS/DOM/JSFFI/Generated/AudioEncoderConfig.hs +159/−0
- src/GHCJS/DOM/JSFFI/Generated/AudioEncoderInit.hs +35/−0
- src/GHCJS/DOM/JSFFI/Generated/AudioEncoderSupport.hs +63/−0
- src/GHCJS/DOM/JSFFI/Generated/AudioListener.hs +67/−72
- src/GHCJS/DOM/JSFFI/Generated/AudioNode.hs +96/−126
- src/GHCJS/DOM/JSFFI/Generated/AudioNodeOptions.hs +83/−0
- src/GHCJS/DOM/JSFFI/Generated/AudioParam.hs +107/−126
- src/GHCJS/DOM/JSFFI/Generated/AudioParamMap.hs +18/−0
- src/GHCJS/DOM/JSFFI/Generated/AudioProcessingEvent.hs +25/−35
- src/GHCJS/DOM/JSFFI/Generated/AudioProcessingEventInit.hs +59/−0
- src/GHCJS/DOM/JSFFI/Generated/AudioScheduledSourceNode.hs +33/−0
- src/GHCJS/DOM/JSFFI/Generated/AudioSinkOptions.hs +35/−0
- src/GHCJS/DOM/JSFFI/Generated/AudioTimestamp.hs +63/−0
- src/GHCJS/DOM/JSFFI/Generated/AudioTrack.hs +48/−79
- src/GHCJS/DOM/JSFFI/Generated/AudioTrackList.hs +33/−53
- src/GHCJS/DOM/JSFFI/Generated/AudioWorklet.hs +18/−0
- src/GHCJS/DOM/JSFFI/Generated/AudioWorkletGlobalScope.hs +41/−0
- src/GHCJS/DOM/JSFFI/Generated/AudioWorkletNode.hs +39/−0
- src/GHCJS/DOM/JSFFI/Generated/AudioWorkletNodeOptions.hs +123/−0
- src/GHCJS/DOM/JSFFI/Generated/AudioWorkletProcessor.hs +29/−0
- src/GHCJS/DOM/JSFFI/Generated/AudioWorkletProcessorConstructor.hs +29/−0
- src/GHCJS/DOM/JSFFI/Generated/AuthenticationExtensionsClientInputs.hs +323/−0
- src/GHCJS/DOM/JSFFI/Generated/AuthenticationExtensionsClientInputsJSON.hs +143/−0
- src/GHCJS/DOM/JSFFI/Generated/AuthenticationExtensionsClientOutputs.hs +243/−0
- src/GHCJS/DOM/JSFFI/Generated/AuthenticationExtensionsLargeBlobInputs.hs +83/−0
- src/GHCJS/DOM/JSFFI/Generated/AuthenticationExtensionsLargeBlobInputsJSON.hs +83/−0
- src/GHCJS/DOM/JSFFI/Generated/AuthenticationExtensionsLargeBlobOutputs.hs +83/−0
- src/GHCJS/DOM/JSFFI/Generated/AuthenticationExtensionsPRFInputs.hs +63/−0
- src/GHCJS/DOM/JSFFI/Generated/AuthenticationExtensionsPRFInputsJSON.hs +63/−0
- src/GHCJS/DOM/JSFFI/Generated/AuthenticationExtensionsPRFOutputs.hs +63/−0
- src/GHCJS/DOM/JSFFI/Generated/AuthenticationExtensionsPRFValues.hs +55/−0
- src/GHCJS/DOM/JSFFI/Generated/AuthenticationExtensionsPRFValuesJSON.hs +55/−0
- src/GHCJS/DOM/JSFFI/Generated/AuthenticationExtensionsPaymentInputs.hs +203/−0
- src/GHCJS/DOM/JSFFI/Generated/AuthenticationExtensionsPaymentOutputs.hs +43/−0
- src/GHCJS/DOM/JSFFI/Generated/AuthenticatorAssertionResponse.hs +43/−0
- src/GHCJS/DOM/JSFFI/Generated/AuthenticatorAttestationResponse.hs +71/−0
- src/GHCJS/DOM/JSFFI/Generated/AuthenticatorResponse.hs +23/−0
- src/GHCJS/DOM/JSFFI/Generated/AuthenticatorSelectionCriteria.hs +103/−0
- src/GHCJS/DOM/JSFFI/Generated/AutocompleteErrorEvent.hs +0/−53
- src/GHCJS/DOM/JSFFI/Generated/AutofillEvent.hs +18/−0
- src/GHCJS/DOM/JSFFI/Generated/AvcEncoderConfig.hs +43/−0
- src/GHCJS/DOM/JSFFI/Generated/BackgroundBlur.hs +23/−0
- src/GHCJS/DOM/JSFFI/Generated/BarProp.hs +15/−24
- src/GHCJS/DOM/JSFFI/Generated/BaseAudioContext.hs +247/−0
- src/GHCJS/DOM/JSFFI/Generated/BasicCredential.hs +0/−47
- src/GHCJS/DOM/JSFFI/Generated/BeforeLoadEvent.hs +0/−48
- src/GHCJS/DOM/JSFFI/Generated/BeforeUnloadEvent.hs +17/−33
- src/GHCJS/DOM/JSFFI/Generated/BiquadFilterNode.hs +49/−77
- src/GHCJS/DOM/JSFFI/Generated/BiquadFilterOptions.hs +123/−0
- src/GHCJS/DOM/JSFFI/Generated/Blob.hs +72/−67
- src/GHCJS/DOM/JSFFI/Generated/BlobCallback.hs +21/−46
- src/GHCJS/DOM/JSFFI/Generated/BlobEvent.hs +35/−0
- src/GHCJS/DOM/JSFFI/Generated/BlobEventInit.hs +55/−0
- src/GHCJS/DOM/JSFFI/Generated/BlobPropertyBag.hs +63/−0
- src/GHCJS/DOM/JSFFI/Generated/Body.hs +76/−66
- src/GHCJS/DOM/JSFFI/Generated/BroadcastChannel.hs +49/−0
- src/GHCJS/DOM/JSFFI/Generated/BrowserBoundSignature.hs +35/−0
- src/GHCJS/DOM/JSFFI/Generated/ByteLengthQueuingStrategy.hs +24/−38
- src/GHCJS/DOM/JSFFI/Generated/CDATASection.hs +18/−0
- src/GHCJS/DOM/JSFFI/Generated/CSS.hs +674/−61
- src/GHCJS/DOM/JSFFI/Generated/CSSAnimation.hs +23/−0
- src/GHCJS/DOM/JSFFI/Generated/CSSConditionRule.hs +23/−0
- src/GHCJS/DOM/JSFFI/Generated/CSSContainerCondition.hs +47/−0
- src/GHCJS/DOM/JSFFI/Generated/CSSContainerRule.hs +35/−0
- src/GHCJS/DOM/JSFFI/Generated/CSSCounterStyleRule.hs +149/−0
- src/GHCJS/DOM/JSFFI/Generated/CSSFontFaceDescriptors.hs +137/−0
- src/GHCJS/DOM/JSFFI/Generated/CSSFontFaceLoadEvent.hs +0/−91
- src/GHCJS/DOM/JSFFI/Generated/CSSFontFaceRule.hs +13/−23
- src/GHCJS/DOM/JSFFI/Generated/CSSFontFeatureValuesRule.hs +29/−0
- src/GHCJS/DOM/JSFFI/Generated/CSSFontPaletteValuesRule.hs +41/−0
- src/GHCJS/DOM/JSFFI/Generated/CSSGroupingRule.hs +39/−0
- src/GHCJS/DOM/JSFFI/Generated/CSSImageValue.hs +18/−0
- src/GHCJS/DOM/JSFFI/Generated/CSSImportRule.hs +58/−53
- src/GHCJS/DOM/JSFFI/Generated/CSSKeyframeRule.hs +24/−39
- src/GHCJS/DOM/JSFFI/Generated/CSSKeyframesRule.hs +51/−104
- src/GHCJS/DOM/JSFFI/Generated/CSSKeywordValue.hs +35/−0
- src/GHCJS/DOM/JSFFI/Generated/CSSLayerBlockRule.hs +23/−0
- src/GHCJS/DOM/JSFFI/Generated/CSSLayerStatementRule.hs +23/−0
- src/GHCJS/DOM/JSFFI/Generated/CSSMathClamp.hs +41/−0
- src/GHCJS/DOM/JSFFI/Generated/CSSMathInvert.hs +29/−0
- src/GHCJS/DOM/JSFFI/Generated/CSSMathMax.hs +23/−0
- src/GHCJS/DOM/JSFFI/Generated/CSSMathMin.hs +23/−0
- src/GHCJS/DOM/JSFFI/Generated/CSSMathNegate.hs +29/−0
- src/GHCJS/DOM/JSFFI/Generated/CSSMathProduct.hs +23/−0
- src/GHCJS/DOM/JSFFI/Generated/CSSMathSum.hs +23/−0
- src/GHCJS/DOM/JSFFI/Generated/CSSMathValue.hs +23/−0
- src/GHCJS/DOM/JSFFI/Generated/CSSMatrixComponent.hs +35/−0
- src/GHCJS/DOM/JSFFI/Generated/CSSMatrixComponentOptions.hs +43/−0
- src/GHCJS/DOM/JSFFI/Generated/CSSMediaRule.hs +14/−64
- src/GHCJS/DOM/JSFFI/Generated/CSSNamespaceRule.hs +18/−33
- src/GHCJS/DOM/JSFFI/Generated/CSSNestedDeclarations.hs +23/−0
- src/GHCJS/DOM/JSFFI/Generated/CSSNumericArray.hs +23/−0
- src/GHCJS/DOM/JSFFI/Generated/CSSNumericType.hs +183/−0
- src/GHCJS/DOM/JSFFI/Generated/CSSNumericValue.hs +127/−0
- src/GHCJS/DOM/JSFFI/Generated/CSSPageDescriptors.hs +89/−0
- src/GHCJS/DOM/JSFFI/Generated/CSSPageRule.hs +24/−58
- src/GHCJS/DOM/JSFFI/Generated/CSSPerspective.hs +35/−0
- src/GHCJS/DOM/JSFFI/Generated/CSSPositionTryDescriptors.hs +485/−0
- src/GHCJS/DOM/JSFFI/Generated/CSSPositionTryRule.hs +29/−0
- src/GHCJS/DOM/JSFFI/Generated/CSSPrimitiveValue.hs +0/−165
- src/GHCJS/DOM/JSFFI/Generated/CSSPropertyRule.hs +49/−0
- src/GHCJS/DOM/JSFFI/Generated/CSSRotate.hs +77/−0
- src/GHCJS/DOM/JSFFI/Generated/CSSRule.hs +68/−128
- src/GHCJS/DOM/JSFFI/Generated/CSSRuleList.hs +30/−34
- src/GHCJS/DOM/JSFFI/Generated/CSSScale.hs +59/−0
- src/GHCJS/DOM/JSFFI/Generated/CSSScopeRule.hs +45/−0
- src/GHCJS/DOM/JSFFI/Generated/CSSSkew.hs +47/−0
- src/GHCJS/DOM/JSFFI/Generated/CSSSkewX.hs +35/−0
- src/GHCJS/DOM/JSFFI/Generated/CSSSkewY.hs +35/−0
- src/GHCJS/DOM/JSFFI/Generated/CSSStartingStyleRule.hs +18/−0
- src/GHCJS/DOM/JSFFI/Generated/CSSStyleDeclaration.hs +67/−271
- src/GHCJS/DOM/JSFFI/Generated/CSSStyleProperties.hs +29/−0
- src/GHCJS/DOM/JSFFI/Generated/CSSStyleRule.hs +29/−58
- src/GHCJS/DOM/JSFFI/Generated/CSSStyleSheet.hs +84/−106
- src/GHCJS/DOM/JSFFI/Generated/CSSStyleSheetInit.hs +83/−0
- src/GHCJS/DOM/JSFFI/Generated/CSSStyleValue.hs +37/−0
- src/GHCJS/DOM/JSFFI/Generated/CSSSupportsRule.hs +9/−59
- src/GHCJS/DOM/JSFFI/Generated/CSSTransformComponent.hs +39/−0
- src/GHCJS/DOM/JSFFI/Generated/CSSTransformValue.hs +45/−0
- src/GHCJS/DOM/JSFFI/Generated/CSSTransition.hs +23/−0
- src/GHCJS/DOM/JSFFI/Generated/CSSTranslate.hs +59/−0
- src/GHCJS/DOM/JSFFI/Generated/CSSUnitValue.hs +41/−0
- src/GHCJS/DOM/JSFFI/Generated/CSSUnparsedValue.hs +29/−0
- src/GHCJS/DOM/JSFFI/Generated/CSSValue.hs +0/−80
- src/GHCJS/DOM/JSFFI/Generated/CSSValueList.hs +0/−45
- src/GHCJS/DOM/JSFFI/Generated/CSSVariableReferenceValue.hs +49/−0
- src/GHCJS/DOM/JSFFI/Generated/CSSViewTransitionRule.hs +29/−0
- src/GHCJS/DOM/JSFFI/Generated/Cache.hs +75/−0
- src/GHCJS/DOM/JSFFI/Generated/CacheQueryOptions.hs +83/−0
- src/GHCJS/DOM/JSFFI/Generated/CacheStorage.hs +67/−0
- src/GHCJS/DOM/JSFFI/Generated/CanvasCaptureMediaStreamTrack.hs +19/−34
- src/GHCJS/DOM/JSFFI/Generated/CanvasCompositing.hs +41/−0
- src/GHCJS/DOM/JSFFI/Generated/CanvasDrawImage.hs +35/−0
- src/GHCJS/DOM/JSFFI/Generated/CanvasDrawPath.hs +99/−0
- src/GHCJS/DOM/JSFFI/Generated/CanvasFillStrokeStyles.hs +89/−0
- src/GHCJS/DOM/JSFFI/Generated/CanvasFilters.hs +29/−0
- src/GHCJS/DOM/JSFFI/Generated/CanvasGradient.hs +14/−28
- src/GHCJS/DOM/JSFFI/Generated/CanvasImageData.hs +69/−0
- src/GHCJS/DOM/JSFFI/Generated/CanvasImageSmoothing.hs +41/−0
- src/GHCJS/DOM/JSFFI/Generated/CanvasPath.hs +60/−121
- src/GHCJS/DOM/JSFFI/Generated/CanvasPathDrawingStyles.hs +93/−0
- src/GHCJS/DOM/JSFFI/Generated/CanvasPattern.hs +23/−0
- src/GHCJS/DOM/JSFFI/Generated/CanvasRect.hs +35/−0
- src/GHCJS/DOM/JSFFI/Generated/CanvasRenderingContext2D.hs +22/−1431
- src/GHCJS/DOM/JSFFI/Generated/CanvasRenderingContext2DSettings.hs +123/−0
- src/GHCJS/DOM/JSFFI/Generated/CanvasSettings.hs +27/−0
- src/GHCJS/DOM/JSFFI/Generated/CanvasShadowStyles.hs +65/−0
- src/GHCJS/DOM/JSFFI/Generated/CanvasState.hs +45/−0
- src/GHCJS/DOM/JSFFI/Generated/CanvasText.hs +39/−0
- src/GHCJS/DOM/JSFFI/Generated/CanvasTextDrawingStyles.hs +149/−0
- src/GHCJS/DOM/JSFFI/Generated/CanvasTransform.hs +69/−0
- src/GHCJS/DOM/JSFFI/Generated/CanvasUserInterface.hs +29/−0
- src/GHCJS/DOM/JSFFI/Generated/CaptureController.hs +18/−0
- src/GHCJS/DOM/JSFFI/Generated/CaretPosition.hs +47/−0
- src/GHCJS/DOM/JSFFI/Generated/CaretPositionFromPointOptions.hs +43/−0
- src/GHCJS/DOM/JSFFI/Generated/ChannelMergerNode.hs +23/−0
- src/GHCJS/DOM/JSFFI/Generated/ChannelMergerOptions.hs +43/−0
- src/GHCJS/DOM/JSFFI/Generated/ChannelSplitterNode.hs +23/−0
- src/GHCJS/DOM/JSFFI/Generated/ChannelSplitterOptions.hs +43/−0
- src/GHCJS/DOM/JSFFI/Generated/ChapterInformationInit.hs +83/−0
- src/GHCJS/DOM/JSFFI/Generated/CharacterData.hs +50/−100
- src/GHCJS/DOM/JSFFI/Generated/CheckVisibilityOptions.hs +123/−0
- src/GHCJS/DOM/JSFFI/Generated/ChildNode.hs +29/−57
- src/GHCJS/DOM/JSFFI/Generated/Client.hs +53/−0
- src/GHCJS/DOM/JSFFI/Generated/ClientQueryOptions.hs +63/−0
- src/GHCJS/DOM/JSFFI/Generated/Clients.hs +61/−0
- src/GHCJS/DOM/JSFFI/Generated/Clipboard.hs +49/−0
- src/GHCJS/DOM/JSFFI/Generated/ClipboardChangeEvent.hs +18/−0
- src/GHCJS/DOM/JSFFI/Generated/ClipboardEvent.hs +25/−53
- src/GHCJS/DOM/JSFFI/Generated/ClipboardEventInit.hs +43/−0
- src/GHCJS/DOM/JSFFI/Generated/ClipboardItem.hs +55/−0
- src/GHCJS/DOM/JSFFI/Generated/ClipboardItemOptions.hs +43/−0
- src/GHCJS/DOM/JSFFI/Generated/ClipboardUnsanitizedFormats.hs +43/−0
- src/GHCJS/DOM/JSFFI/Generated/CloseEvent.hs +29/−51
- src/GHCJS/DOM/JSFFI/Generated/CloseEventInit.hs +83/−0
- src/GHCJS/DOM/JSFFI/Generated/CloseWatcher.hs +49/−0
- src/GHCJS/DOM/JSFFI/Generated/CloseWatcherOptions.hs +43/−0
- src/GHCJS/DOM/JSFFI/Generated/CommandEvent.hs +43/−0
- src/GHCJS/DOM/JSFFI/Generated/CommandEventInit.hs +55/−0
- src/GHCJS/DOM/JSFFI/Generated/CommandLineAPIHost.hs +0/−128
- src/GHCJS/DOM/JSFFI/Generated/Comment.hs +15/−26
- src/GHCJS/DOM/JSFFI/Generated/CompositionEvent.hs +24/−60
- src/GHCJS/DOM/JSFFI/Generated/CompositionEventInit.hs +43/−0
- src/GHCJS/DOM/JSFFI/Generated/CompressionStream.hs +23/−0
- src/GHCJS/DOM/JSFFI/Generated/ComputedEffectTiming.hs +143/−0
- src/GHCJS/DOM/JSFFI/Generated/Console.hs +131/−0
- src/GHCJS/DOM/JSFFI/Generated/ConstantSourceNode.hs +29/−0
- src/GHCJS/DOM/JSFFI/Generated/ConstantSourceOptions.hs +43/−0
- src/GHCJS/DOM/JSFFI/Generated/ConstrainBooleanOrDOMStringParameters.hs +63/−0
- src/GHCJS/DOM/JSFFI/Generated/ConstrainBooleanParameters.hs +63/−0
- src/GHCJS/DOM/JSFFI/Generated/ConstrainDOMStringParameters.hs +63/−0
- src/GHCJS/DOM/JSFFI/Generated/ConstrainDoubleRange.hs +63/−0
- src/GHCJS/DOM/JSFFI/Generated/ConstrainPoint2DParameters.hs +63/−0
- src/GHCJS/DOM/JSFFI/Generated/ConstrainULongRange.hs +63/−0
- src/GHCJS/DOM/JSFFI/Generated/ContactAddress.hs +18/−0
- src/GHCJS/DOM/JSFFI/Generated/ContentVisibilityAutoStateChangeEvent.hs +29/−0
- src/GHCJS/DOM/JSFFI/Generated/ContentVisibilityAutoStateChangeEventInit.hs +43/−0
- src/GHCJS/DOM/JSFFI/Generated/ConvolverNode.hs +40/−56
- src/GHCJS/DOM/JSFFI/Generated/ConvolverOptions.hs +63/−0
- src/GHCJS/DOM/JSFFI/Generated/CookieChangeEvent.hs +35/−0
- src/GHCJS/DOM/JSFFI/Generated/CookieChangeEventInit.hs +63/−0
- src/GHCJS/DOM/JSFFI/Generated/CookieInit.hs +167/−0
- src/GHCJS/DOM/JSFFI/Generated/CookieListItem.hs +63/−0
- src/GHCJS/DOM/JSFFI/Generated/CookieStore.hs +101/−0
- src/GHCJS/DOM/JSFFI/Generated/CookieStoreDeleteOptions.hs +95/−0
- src/GHCJS/DOM/JSFFI/Generated/CookieStoreGetOptions.hs +63/−0
- src/GHCJS/DOM/JSFFI/Generated/CookieStoreManager.hs +39/−0
- src/GHCJS/DOM/JSFFI/Generated/Coordinates.hs +0/−139
- src/GHCJS/DOM/JSFFI/Generated/CountQueuingStrategy.hs +24/−35
- src/GHCJS/DOM/JSFFI/Generated/Counter.hs +0/−54
- src/GHCJS/DOM/JSFFI/Generated/CreateHTMLCallback.hs +32/−0
- src/GHCJS/DOM/JSFFI/Generated/CreateParserOptionsCallback.hs +32/−0
- src/GHCJS/DOM/JSFFI/Generated/CreateScriptCallback.hs +32/−0
- src/GHCJS/DOM/JSFFI/Generated/CreateScriptURLCallback.hs +32/−0
- src/GHCJS/DOM/JSFFI/Generated/Credential.hs +39/−0
- src/GHCJS/DOM/JSFFI/Generated/CredentialCreationOptions.hs +143/−0
- src/GHCJS/DOM/JSFFI/Generated/CredentialData.hs +35/−0
- src/GHCJS/DOM/JSFFI/Generated/CredentialPropertiesOutput.hs +43/−0
- src/GHCJS/DOM/JSFFI/Generated/CredentialRequestOptions.hs +203/−0
- src/GHCJS/DOM/JSFFI/Generated/CredentialsContainer.hs +65/−0
- src/GHCJS/DOM/JSFFI/Generated/Crypto.hs +30/−46
- src/GHCJS/DOM/JSFFI/Generated/CryptoKey.hs +27/−43
- src/GHCJS/DOM/JSFFI/Generated/CryptoKeyPair.hs +63/−0
- src/GHCJS/DOM/JSFFI/Generated/CurrentUserDetailsOptions.hs +71/−0
- src/GHCJS/DOM/JSFFI/Generated/CustomElementConstructor.hs +23/−0
- src/GHCJS/DOM/JSFFI/Generated/CustomElementRegistry.hs +72/−53
- src/GHCJS/DOM/JSFFI/Generated/CustomEvent.hs +24/−52
- src/GHCJS/DOM/JSFFI/Generated/CustomEventInit.hs +35/−0
- src/GHCJS/DOM/JSFFI/Generated/CustomStateSet.hs +18/−0
- src/GHCJS/DOM/JSFFI/Generated/DOMError.hs +0/−47
- src/GHCJS/DOM/JSFFI/Generated/DOMException.hs +55/−77
- src/GHCJS/DOM/JSFFI/Generated/DOMImplementation.hs +41/−103
- src/GHCJS/DOM/JSFFI/Generated/DOMMatrix.hs +437/−0
- src/GHCJS/DOM/JSFFI/Generated/DOMMatrix2DInit.hs +263/−0
- src/GHCJS/DOM/JSFFI/Generated/DOMMatrixInit.hs +243/−0
- src/GHCJS/DOM/JSFFI/Generated/DOMMatrixReadOnly.hs +367/−0
- src/GHCJS/DOM/JSFFI/Generated/DOMNamedFlowCollection.hs +0/−100
- src/GHCJS/DOM/JSFFI/Generated/DOMParser.hs +21/−45
- src/GHCJS/DOM/JSFFI/Generated/DOMPoint.hs +67/−102
- src/GHCJS/DOM/JSFFI/Generated/DOMPointInit.hs +103/−0
- src/GHCJS/DOM/JSFFI/Generated/DOMPointReadOnly.hs +67/−83
- src/GHCJS/DOM/JSFFI/Generated/DOMQuad.hs +87/−0
- src/GHCJS/DOM/JSFFI/Generated/DOMQuadInit.hs +103/−0
- src/GHCJS/DOM/JSFFI/Generated/DOMRect.hs +62/−95
- src/GHCJS/DOM/JSFFI/Generated/DOMRectInit.hs +103/−0
- src/GHCJS/DOM/JSFFI/Generated/DOMRectList.hs +41/−0
- src/GHCJS/DOM/JSFFI/Generated/DOMRectReadOnly.hs +72/−100
- src/GHCJS/DOM/JSFFI/Generated/DOMStringList.hs +36/−65
- src/GHCJS/DOM/JSFFI/Generated/DOMStringMap.hs +10/−32
- src/GHCJS/DOM/JSFFI/Generated/DOMTokenList.hs +80/−131
- src/GHCJS/DOM/JSFFI/Generated/DataCue.hs +34/−77
- src/GHCJS/DOM/JSFFI/Generated/DataTransfer.hs +67/−111
- src/GHCJS/DOM/JSFFI/Generated/DataTransferItem.hs +56/−64
- src/GHCJS/DOM/JSFFI/Generated/DataTransferItemList.hs +57/−60
- src/GHCJS/DOM/JSFFI/Generated/Database.hs +0/−98
- src/GHCJS/DOM/JSFFI/Generated/DatabaseCallback.hs +0/−57
- src/GHCJS/DOM/JSFFI/Generated/DecodeErrorCallback.hs +29/−0
- src/GHCJS/DOM/JSFFI/Generated/DecodeSuccessCallback.hs +29/−0
- src/GHCJS/DOM/JSFFI/Generated/DecompressionStream.hs +23/−0
- src/GHCJS/DOM/JSFFI/Generated/DedicatedWorkerGlobalScope.hs +34/−35
- src/GHCJS/DOM/JSFFI/Generated/DelayNode.hs +19/−23
- src/GHCJS/DOM/JSFFI/Generated/DelayOptions.hs +63/−0
- src/GHCJS/DOM/JSFFI/Generated/DeviceChangeEvent.hs +18/−0
- src/GHCJS/DOM/JSFFI/Generated/DeviceMotionEvent.hs +51/−144
- src/GHCJS/DOM/JSFFI/Generated/DeviceMotionEventAcceleration.hs +59/−0
- src/GHCJS/DOM/JSFFI/Generated/DeviceMotionEventAccelerationInit.hs +83/−0
- src/GHCJS/DOM/JSFFI/Generated/DeviceMotionEventInit.hs +103/−0
- src/GHCJS/DOM/JSFFI/Generated/DeviceMotionEventRotationRate.hs +59/−0
- src/GHCJS/DOM/JSFFI/Generated/DeviceMotionEventRotationRateInit.hs +83/−0
- src/GHCJS/DOM/JSFFI/Generated/DeviceOrientationEvent.hs +52/−131
- src/GHCJS/DOM/JSFFI/Generated/DeviceOrientationEventInit.hs +103/−0
- src/GHCJS/DOM/JSFFI/Generated/DeviceProximityEvent.hs +0/−64
- src/GHCJS/DOM/JSFFI/Generated/DigitalCredential.hs +47/−0
- src/GHCJS/DOM/JSFFI/Generated/DigitalCredentialCreateRequest.hs +47/−0
- src/GHCJS/DOM/JSFFI/Generated/DigitalCredentialCreationOptions.hs +35/−0
- src/GHCJS/DOM/JSFFI/Generated/DigitalCredentialGetRequest.hs +47/−0
- src/GHCJS/DOM/JSFFI/Generated/DigitalCredentialRequestOptions.hs +35/−0
- src/GHCJS/DOM/JSFFI/Generated/DisplayMediaStreamOptions.hs +203/−0
- src/GHCJS/DOM/JSFFI/Generated/Document.hs +953/−1849
- src/GHCJS/DOM/JSFFI/Generated/DocumentAndElementEventHandlers.hs +0/−72
- src/GHCJS/DOM/JSFFI/Generated/DocumentFragment.hs +14/−26
- src/GHCJS/DOM/JSFFI/Generated/DocumentOrShadowRoot.hs +96/−116
- src/GHCJS/DOM/JSFFI/Generated/DocumentPictureInPicture.hs +37/−0
- src/GHCJS/DOM/JSFFI/Generated/DocumentPictureInPictureEvent.hs +29/−0
- src/GHCJS/DOM/JSFFI/Generated/DocumentPictureInPictureEventInit.hs +35/−0
- src/GHCJS/DOM/JSFFI/Generated/DocumentPictureInPictureOptions.hs +103/−0
- src/GHCJS/DOM/JSFFI/Generated/DocumentTimeline.hs +14/−27
- src/GHCJS/DOM/JSFFI/Generated/DocumentTimelineOptions.hs +43/−0
- src/GHCJS/DOM/JSFFI/Generated/DocumentType.hs +24/−40
- src/GHCJS/DOM/JSFFI/Generated/DoubleRange.hs +63/−0
- src/GHCJS/DOM/JSFFI/Generated/DragEvent.hs +37/−0
- src/GHCJS/DOM/JSFFI/Generated/DragEventInit.hs +39/−0
- src/GHCJS/DOM/JSFFI/Generated/DynamicsCompressorNode.hs +43/−57
- src/GHCJS/DOM/JSFFI/Generated/DynamicsCompressorOptions.hs +123/−0
- src/GHCJS/DOM/JSFFI/Generated/EXTBlendMinMax.hs +0/−29
- src/GHCJS/DOM/JSFFI/Generated/EXTTextureFilterAnisotropic.hs +0/−30
- src/GHCJS/DOM/JSFFI/Generated/EXT_blend_minmax.hs +21/−0
- src/GHCJS/DOM/JSFFI/Generated/EXT_clip_control.hs +34/−0
- src/GHCJS/DOM/JSFFI/Generated/EXT_color_buffer_float.hs +18/−0
- src/GHCJS/DOM/JSFFI/Generated/EXT_color_buffer_half_float.hs +25/−0
- src/GHCJS/DOM/JSFFI/Generated/EXT_float_blend.hs +18/−0
- src/GHCJS/DOM/JSFFI/Generated/EXT_frag_depth.hs +18/−0
- src/GHCJS/DOM/JSFFI/Generated/EXT_polygon_offset_clamp.hs +24/−0
- src/GHCJS/DOM/JSFFI/Generated/EXT_sRGB.hs +25/−0
- src/GHCJS/DOM/JSFFI/Generated/EXT_shader_texture_lod.hs +18/−0
- src/GHCJS/DOM/JSFFI/Generated/EXT_texture_compression_bptc.hs +25/−0
- src/GHCJS/DOM/JSFFI/Generated/EXT_texture_compression_rgtc.hs +25/−0
- src/GHCJS/DOM/JSFFI/Generated/EXT_texture_filter_anisotropic.hs +21/−0
- src/GHCJS/DOM/JSFFI/Generated/EXT_texture_mirror_clamp_to_edge.hs +19/−0
- src/GHCJS/DOM/JSFFI/Generated/EXT_texture_norm16.hs +33/−0
- src/GHCJS/DOM/JSFFI/Generated/EXTsRGB.hs +0/−33
- src/GHCJS/DOM/JSFFI/Generated/EffectTiming.hs +203/−0
- src/GHCJS/DOM/JSFFI/Generated/Element.hs +748/−1274
- src/GHCJS/DOM/JSFFI/Generated/ElementCSSInlineStyle.hs +20/−28
- src/GHCJS/DOM/JSFFI/Generated/ElementContentEditable.hs +59/−0
- src/GHCJS/DOM/JSFFI/Generated/ElementCreationOptions.hs +63/−0
- src/GHCJS/DOM/JSFFI/Generated/ElementDefinitionOptions.hs +43/−0
- src/GHCJS/DOM/JSFFI/Generated/ElementInternals.hs +107/−0
- src/GHCJS/DOM/JSFFI/Generated/EncodedAudioChunk.hs +61/−0
- src/GHCJS/DOM/JSFFI/Generated/EncodedAudioChunkInit.hs +99/−0
- src/GHCJS/DOM/JSFFI/Generated/EncodedAudioChunkMetadata.hs +43/−0
- src/GHCJS/DOM/JSFFI/Generated/EncodedAudioChunkOutputCallback.hs +32/−0
- src/GHCJS/DOM/JSFFI/Generated/EncodedVideoChunk.hs +61/−0
- src/GHCJS/DOM/JSFFI/Generated/EncodedVideoChunkInit.hs +99/−0
- src/GHCJS/DOM/JSFFI/Generated/EncodedVideoChunkMetadata.hs +83/−0
- src/GHCJS/DOM/JSFFI/Generated/EncodedVideoChunkOutputCallback.hs +32/−0
- src/GHCJS/DOM/JSFFI/Generated/Enums.hs +9229/−4535
- src/GHCJS/DOM/JSFFI/Generated/ErrorCallback.hs +29/−0
- src/GHCJS/DOM/JSFFI/Generated/ErrorEvent.hs +39/−64
- src/GHCJS/DOM/JSFFI/Generated/ErrorEventInit.hs +97/−0
- src/GHCJS/DOM/JSFFI/Generated/Event.hs +134/−206
- src/GHCJS/DOM/JSFFI/Generated/EventCounts.hs +18/−0
- src/GHCJS/DOM/JSFFI/Generated/EventInit.hs +83/−0
- src/GHCJS/DOM/JSFFI/Generated/EventListener.hs +0/−36
- src/GHCJS/DOM/JSFFI/Generated/EventListenerOptions.hs +43/−0
- src/GHCJS/DOM/JSFFI/Generated/EventModifierInit.hs +303/−0
- src/GHCJS/DOM/JSFFI/Generated/EventSource.hs +42/−65
- src/GHCJS/DOM/JSFFI/Generated/EventSourceInit.hs +43/−0
- src/GHCJS/DOM/JSFFI/Generated/EventTarget.hs +34/−75
- src/GHCJS/DOM/JSFFI/Generated/ExtendableCookieChangeEvent.hs +35/−0
- src/GHCJS/DOM/JSFFI/Generated/ExtendableCookieChangeEventInit.hs +63/−0
- src/GHCJS/DOM/JSFFI/Generated/ExtendableEvent.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/ExtendableEventInit.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/ExtendableMessageEvent.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/ExtendableMessageEventInit.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/External.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/FederatedCredentialInit.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/FederatedCredentialRequestOptions.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/FetchEvent.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/FetchEventInit.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/File.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/FileCallback.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/FileError.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/FileException.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/FileList.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/FilePropertyBag.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/FileReader.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/FileReaderSync.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/FileSystem.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/FileSystemCreateWritableOptions.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/FileSystemDirectoryEntry.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/FileSystemDirectoryHandle.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/FileSystemDirectoryReader.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/FileSystemEntriesCallback.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/FileSystemEntry.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/FileSystemEntryCallback.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/FileSystemFileEntry.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/FileSystemFileHandle.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/FileSystemFlags.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/FileSystemGetDirectoryOptions.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/FileSystemGetFileOptions.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/FileSystemHandle.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/FileSystemReadWriteOptions.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/FileSystemRemoveOptions.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/FileSystemSyncAccessHandle.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/FileSystemWritableFileStream.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/FlacEncoderConfig.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/FocusEvent.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/FocusEventInit.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/FocusOptions.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/FontFace.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/FontFaceDescriptors.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/FontFaceSet.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/FontFaceSetLoadEvent.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/FontFaceSetLoadEventInit.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/FontFaceSource.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/FormData.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/FormDataEvent.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/FormDataEventInit.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/FragmentDirective.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/FrameRequestCallback.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/FullscreenOptions.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/FunctionStringCallback.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/GPU.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/GPUAdapter.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/GPUAdapterInfo.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/GPUBindGroup.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/GPUBindGroupDescriptor.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/GPUBindGroupEntry.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/GPUBindGroupLayout.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/GPUBindGroupLayoutDescriptor.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/GPUBindGroupLayoutEntry.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/GPUBindingCommandsMixin.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/GPUBlendComponent.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/GPUBlendState.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/GPUBuffer.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/GPUBufferBinding.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/GPUBufferBindingLayout.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/GPUBufferDescriptor.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/GPUCanvasConfiguration.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/GPUCanvasContext.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/GPUCanvasToneMapping.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/GPUColorDict.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/GPUColorTargetState.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/GPUCommandBuffer.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/GPUCommandBufferDescriptor.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/GPUCommandEncoder.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/GPUCommandEncoderDescriptor.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/GPUCompilationInfo.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/GPUCompilationMessage.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/GPUComputePassDescriptor.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/GPUComputePassEncoder.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/GPUComputePassTimestampWrites.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/GPUComputePipeline.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/GPUComputePipelineDescriptor.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/GPUCopyExternalImageDestInfo.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/GPUCopyExternalImageSourceInfo.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/GPUDebugCommandsMixin.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/GPUDepthStencilState.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/GPUDevice.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/GPUDeviceDescriptor.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/GPUDeviceLostInfo.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/GPUError.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/GPUExtent3DDict.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/GPUExternalTexture.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/GPUExternalTextureBindingLayout.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/GPUExternalTextureDescriptor.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/GPUFragmentState.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/GPUInternalError.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/GPUMultisampleState.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/GPUObjectBase.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/GPUObjectDescriptorBase.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/GPUOrigin2DDict.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/GPUOrigin3DDict.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/GPUOutOfMemoryError.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/GPUPipelineBase.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/GPUPipelineDescriptorBase.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/GPUPipelineError.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/GPUPipelineErrorInit.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/GPUPipelineLayout.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/GPUPipelineLayoutDescriptor.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/GPUPrimitiveState.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/GPUProgrammableStage.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/GPUQuerySet.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/GPUQuerySetDescriptor.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/GPUQueue.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/GPUQueueDescriptor.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/GPURenderBundle.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/GPURenderBundleDescriptor.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/GPURenderBundleEncoder.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/GPURenderBundleEncoderDescriptor.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/GPURenderCommandsMixin.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/GPURenderPassColorAttachment.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/GPURenderPassDepthStencilAttachment.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/GPURenderPassDescriptor.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/GPURenderPassEncoder.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/GPURenderPassLayout.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/GPURenderPassTimestampWrites.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/GPURenderPipeline.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/GPURenderPipelineDescriptor.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/GPURequestAdapterOptions.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/GPUSampler.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/GPUSamplerBindingLayout.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/GPUSamplerDescriptor.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/GPUShaderModule.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/GPUShaderModuleCompilationHint.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/GPUShaderModuleDescriptor.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/GPUStencilFaceState.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/GPUStorageTextureBindingLayout.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/GPUSupportedFeatures.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/GPUSupportedLimits.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/GPUTexelCopyBufferInfo.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/GPUTexelCopyBufferLayout.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/GPUTexelCopyTextureInfo.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/GPUTexture.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/GPUTextureBindingLayout.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/GPUTextureDescriptor.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/GPUTextureView.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/GPUTextureViewDescriptor.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/GPUUncapturedErrorEvent.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/GPUUncapturedErrorEventInit.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/GPUValidationError.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/GPUVertexAttribute.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/GPUVertexBufferLayout.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/GPUVertexState.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/GainNode.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/GainOptions.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/Gamepad.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/GamepadButton.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/GamepadEffectParameters.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/GamepadEvent.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/GamepadEventInit.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/GamepadHapticActuator.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/GenericTransformStream.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/Geolocation.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/GeolocationCoordinates.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/GeolocationPosition.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/GeolocationPositionError.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/Geoposition.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/GetAnimationsOptions.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/GetComposedRangesOptions.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/GetHTMLOptions.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/GetNotificationOptions.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/GetRootNodeOptions.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/GlobalCrypto.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/GlobalEventHandlers.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/GlobalPerformance.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/HMACGetSecretInput.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/HMACGetSecretOutput.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/HTMLAllCollection.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/HTMLAnchorElement.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/HTMLAppletElement.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/HTMLAreaElement.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/HTMLAttachmentElement.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/HTMLAudioElement.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/HTMLBRElement.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/HTMLBaseElement.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/HTMLBodyElement.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/HTMLButtonElement.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/HTMLCanvasElement.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/HTMLCollection.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/HTMLDListElement.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/HTMLDataElement.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/HTMLDataListElement.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/HTMLDetailsElement.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/HTMLDialogElement.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/HTMLDirectoryElement.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/HTMLDivElement.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/HTMLDocument.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/HTMLElement.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/HTMLEmbedElement.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/HTMLFieldSetElement.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/HTMLFontElement.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/HTMLFormControlsCollection.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/HTMLFormElement.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/HTMLFrameElement.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/HTMLFrameSetElement.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/HTMLHRElement.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/HTMLHeadElement.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/HTMLHeadingElement.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/HTMLHtmlElement.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/HTMLHyperlinkElementUtils.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/HTMLIFrameElement.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/HTMLImageElement.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/HTMLInputElement.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/HTMLKeygenElement.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/HTMLLIElement.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/HTMLLabelElement.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/HTMLLegendElement.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/HTMLLinkElement.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/HTMLMapElement.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/HTMLMarqueeElement.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/HTMLMediaElement.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/HTMLMenuElement.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/HTMLMetaElement.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/HTMLMeterElement.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/HTMLModElement.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/HTMLOListElement.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/HTMLObjectElement.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/HTMLOptGroupElement.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/HTMLOptionElement.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/HTMLOptionsCollection.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/HTMLOrSVGOrMathMLElement.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/HTMLOutputElement.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/HTMLParagraphElement.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/HTMLParamElement.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/HTMLPictureElement.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/HTMLPreElement.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/HTMLProgressElement.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/HTMLQuoteElement.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/HTMLScriptElement.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/HTMLSelectElement.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/HTMLSelectedContentElement.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/HTMLSlotElement.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/HTMLSourceElement.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/HTMLSpanElement.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/HTMLStyleElement.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/HTMLTableCaptionElement.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/HTMLTableCellElement.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/HTMLTableColElement.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/HTMLTableElement.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/HTMLTableRowElement.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/HTMLTableSectionElement.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/HTMLTemplateElement.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/HTMLTextAreaElement.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/HTMLTimeElement.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/HTMLTitleElement.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/HTMLTrackElement.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/HTMLUListElement.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/HTMLUnknownElement.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/HTMLVideoElement.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/HashChangeEvent.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/HashChangeEventInit.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/Headers.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/HevcEncoderConfig.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/Highlight.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/HighlightHitResult.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/HighlightRegistry.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/HighlightsFromPointOptions.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/History.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/HyperlinkElementUtils.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/IDBCursor.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/IDBCursorWithValue.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/IDBDatabase.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/IDBDatabaseInfo.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/IDBFactory.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/IDBGetAllOptions.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/IDBIndex.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/IDBIndexParameters.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/IDBKeyRange.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/IDBObjectStore.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/IDBObjectStoreParameters.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/IDBOpenDBRequest.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/IDBRecord.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/IDBRequest.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/IDBTransaction.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/IDBTransactionOptions.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/IDBVersionChangeEvent.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/IDBVersionChangeEventInit.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/IIRFilterNode.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/IIRFilterOptions.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/IdentityCredentialRequestOptions.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/IdentityProviderConfig.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/IdentityProviderRequestOptions.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/IdleDeadline.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/IdleRequestCallback.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/IdleRequestOptions.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/ImageBitmap.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/ImageBitmapRenderingContext.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/ImageCapture.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/ImageData.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/ImageDataSettings.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/ImageDecodeOptions.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/ImageDecodeResult.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/ImageDecoder.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/ImageDecoderInit.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/ImageEncodeOptions.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/ImageTrack.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/ImageTrackList.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/ImportNodeOptions.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/InputDeviceCapabilities.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/InputDeviceInfo.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/InputEvent.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/InputEventInit.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/InspectorFrontendHost.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/InstallEvent.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/IntersectionObserver.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/IntersectionObserverCallback.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/IntersectionObserverEntry.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/IntersectionObserverEntryInit.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/IntersectionObserverInit.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/JsonWebKey.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/KHR_parallel_shader_compile.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/KeySystemTrackConfiguration.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/KeyboardEvent.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/KeyboardEventInit.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/KeyframeAnimationOptions.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/KeyframeEffect.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/KeyframeEffectOptions.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/LargestContentfulPaint.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/LinkStyle.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/Location.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/Lock.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/LockGrantedCallback.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/LockInfo.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/LockManager.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/LockManagerSnapshot.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/LockOptions.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/MIDIAccess.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/MIDIConnectionEvent.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/MIDIConnectionEventInit.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/MIDIInput.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/MIDIInputMap.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/MIDIMessageEvent.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/MIDIMessageEventInit.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/MIDIOptions.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/MIDIOutput.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/MIDIOutputMap.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/MIDIPort.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/MathMLElement.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/MediaCapabilities.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/MediaCapabilitiesDecodingInfo.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/MediaCapabilitiesEncodingInfo.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/MediaCapabilitiesInfo.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/MediaCapabilitiesKeySystemConfiguration.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/MediaConfiguration.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/MediaController.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/MediaControlsHost.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/MediaDecodingConfiguration.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/MediaDeviceInfo.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/MediaDevices.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/MediaEffectInfo.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/MediaElementAudioSourceNode.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/MediaElementAudioSourceOptions.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/MediaEncodingConfiguration.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/MediaEncryptedEvent.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/MediaEncryptedEventInit.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/MediaError.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/MediaImage.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/MediaKeyMessageEvent.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/MediaKeyMessageEventInit.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/MediaKeySession.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/MediaKeyStatusMap.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/MediaKeySystemAccess.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/MediaKeySystemConfiguration.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/MediaKeySystemMediaCapability.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/MediaKeys.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/MediaKeysPolicy.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/MediaList.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/MediaMetadata.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/MediaMetadataInit.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/MediaPositionState.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/MediaQueryList.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/MediaQueryListEvent.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/MediaQueryListEventInit.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/MediaQueryListListener.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/MediaRecorder.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/MediaRecorderOptions.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/MediaRemoteControls.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/MediaSession.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/MediaSessionActionDetails.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/MediaSessionActionHandler.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/MediaSettingsRange.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/MediaSource.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/MediaSourceHandle.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/MediaStream.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/MediaStreamAudioDestinationNode.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/MediaStreamAudioSourceNode.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/MediaStreamAudioSourceOptions.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/MediaStreamConstraints.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/MediaStreamEvent.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/MediaStreamTrack.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/MediaStreamTrackEvent.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/MediaStreamTrackEventInit.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/MediaStreamTrackHandle.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/MediaStreamTrackProcessor.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/MediaStreamTrackProcessorInit.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/MediaTrackCapabilities.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/MediaTrackConstraintSet.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/MediaTrackConstraints.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/MediaTrackSettings.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/MediaTrackSupportedConstraints.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/MessageChannel.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/MessageEvent.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/MessageEventInit.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/MessageEventTarget.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/MessagePort.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/MimeType.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/MimeTypeArray.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/MouseEvent.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/MouseEventInit.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/MultiCacheQueryOptions.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/MutationCallback.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/MutationEvent.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/MutationObserver.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/MutationObserverInit.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/MutationRecord.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/NamedNodeMap.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/NavigateEvent.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/NavigateEventInit.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/Navigation.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/NavigationActivation.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/NavigationCurrentEntryChangeEvent.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/NavigationCurrentEntryChangeEventInit.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/NavigationDestination.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/NavigationEvent.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/NavigationHistoryEntry.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/NavigationInterceptHandler.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/NavigationInterceptOptions.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/NavigationNavigateOptions.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/NavigationOptions.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/NavigationPrecommitController.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/NavigationPrecommitHandler.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/NavigationPreloadManager.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/NavigationPreloadState.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/NavigationReloadOptions.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/NavigationResult.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/NavigationTransition.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/NavigationUpdateCurrentEntryOptions.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/Navigator.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/NavigatorAutomationInformation.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/NavigatorBadge.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/NavigatorConcurrentHardware.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/NavigatorContentUtils.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/NavigatorCookies.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/NavigatorGPU.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/NavigatorID.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/NavigatorLanguage.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/NavigatorLocks.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/NavigatorLogin.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/NavigatorOnLine.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/NavigatorPlugins.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/NavigatorStorage.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/NavigatorUserMediaError.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/NavigatorUserMediaErrorCallback.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/NavigatorUserMediaSuccessCallback.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/Node.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/NodeFilter.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/NodeIterator.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/NodeList.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/NonDocumentTypeChildNode.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/NonElementParentNode.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/Notification.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/NotificationAction.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/NotificationEvent.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/NotificationEventInit.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/NotificationOptions.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/NotificationPermissionCallback.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/OESStandardDerivatives.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/OESTextureHalfFloat.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/OESVertexArrayObject.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/OES_draw_buffers_indexed.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/OES_element_index_uint.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/OES_fbo_render_mipmap.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/OES_standard_derivatives.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/OES_texture_float.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/OES_texture_float_linear.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/OES_texture_half_float.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/OES_texture_half_float_linear.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/OES_vertex_array_object.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/OTPCredentialRequestOptions.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/OVR_multiview2.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/OfflineAudioCompletionEvent.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/OfflineAudioCompletionEventInit.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/OfflineAudioContext.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/OfflineAudioContextOptions.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/OffscreenCanvas.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/OffscreenCanvasRenderingContext2D.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/OptionalEffectTiming.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/OpusEncoderConfig.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/Origin.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/OscillatorNode.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/OscillatorOptions.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/OverconstrainedError.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/OverconstrainedErrorEvent.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/OverflowEvent.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/PageRevealEvent.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/PageRevealEventInit.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/PageSwapEvent.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/PageSwapEventInit.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/PageTransitionEvent.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/PageTransitionEventInit.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/PaintTimingMixin.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/PannerNode.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/PannerOptions.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/ParentNode.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/ParseHTMLUnsafeOptions.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/PasswordCredential.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/PasswordCredentialData.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/Path2D.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/PayerErrors.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/PaymentCompleteDetails.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/PaymentCredentialInstrument.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/PaymentCurrencyAmount.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/PaymentDetailsBase.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/PaymentDetailsInit.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/PaymentDetailsModifier.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/PaymentDetailsUpdate.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/PaymentEntityLogo.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/PaymentItem.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/PaymentMethodChangeEvent.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/PaymentMethodChangeEventInit.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/PaymentMethodData.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/PaymentOptions.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/PaymentRequest.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/PaymentRequestUpdateEvent.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/PaymentRequestUpdateEventInit.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/PaymentResponse.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/PaymentShippingOption.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/PaymentValidationErrors.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/Performance.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/PerformanceEntry.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/PerformanceEventTiming.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/PerformanceMark.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/PerformanceMarkOptions.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/PerformanceMeasure.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/PerformanceMeasureOptions.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/PerformanceNavigation.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/PerformanceNavigationTiming.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/PerformanceObserver.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/PerformanceObserverCallback.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/PerformanceObserverCallbackOptions.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/PerformanceObserverEntryList.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/PerformanceObserverInit.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/PerformancePaintTiming.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/PerformanceResourceTiming.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/PerformanceServerTiming.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/PerformanceTiming.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/PeriodicWave.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/PeriodicWaveConstraints.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/PeriodicWaveOptions.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/PermissionStatus.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/Permissions.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/PhotoCapabilities.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/PhotoSettings.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/PictureInPictureEvent.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/PictureInPictureEventInit.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/PictureInPictureWindow.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/PlaneLayout.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/Plugin.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/PluginArray.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/Point2D.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/PointerEvent.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/PointerEventInit.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/PointerLockOptions.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/PopStateEvent.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/PopStateEventInit.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/PopoverTargetAttributes.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/PositionCallback.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/PositionError.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/PositionErrorCallback.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/PositionOptions.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/PrivateToken.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/ProcessingInstruction.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/ProgressEvent.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/ProgressEventInit.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/PromiseRejectionEvent.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/PromiseRejectionEventInit.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/PropertyDefinition.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/PublicKeyCredential.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/PublicKeyCredentialCreationOptions.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/PublicKeyCredentialCreationOptionsJSON.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/PublicKeyCredentialDescriptor.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/PublicKeyCredentialDescriptorJSON.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/PublicKeyCredentialEntity.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/PublicKeyCredentialParameters.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/PublicKeyCredentialRequestOptions.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/PublicKeyCredentialRequestOptionsJSON.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/PublicKeyCredentialRpEntity.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/PublicKeyCredentialUserEntity.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/PublicKeyCredentialUserEntityJSON.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/PushEvent.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/PushEventInit.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/PushManager.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/PushManagerAttribute.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/PushMessageData.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/PushSubscription.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/PushSubscriptionChangeEvent.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/PushSubscriptionChangeEventInit.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/PushSubscriptionJSON.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/PushSubscriptionKeys.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/PushSubscriptionOptions.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/PushSubscriptionOptionsInit.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/QueuingStrategy.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/QueuingStrategyInit.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/QueuingStrategySize.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/QuickTimePluginReplacement.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/RGBColor.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/RTCAnswerOptions.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/RTCCertificate.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/RTCConfiguration.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/RTCDTMFSender.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/RTCDTMFToneChangeEvent.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/RTCDTMFToneChangeEventInit.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/RTCDataChannel.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/RTCDataChannelEvent.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/RTCDataChannelEventInit.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/RTCDataChannelInit.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/RTCDtlsFingerprint.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/RTCDtlsTransport.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/RTCEncodedAudioFrame.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/RTCEncodedAudioFrameMetadata.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/RTCEncodedAudioFrameOptions.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/RTCEncodedFrameMetadata.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/RTCEncodedVideoFrame.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/RTCEncodedVideoFrameMetadata.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/RTCEncodedVideoFrameOptions.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/RTCError.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/RTCErrorEvent.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/RTCErrorEventInit.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/RTCErrorInit.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/RTCIceCandidate.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/RTCIceCandidateEvent.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/RTCIceCandidateInit.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/RTCIceCandidatePair.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/RTCIceServer.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/RTCIceTransport.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/RTCLocalIceCandidateInit.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/RTCLocalSessionDescriptionInit.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/RTCOfferAnswerOptions.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/RTCOfferOptions.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/RTCPeerConnection.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/RTCPeerConnectionErrorCallback.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/RTCPeerConnectionIceErrorEvent.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/RTCPeerConnectionIceErrorEventInit.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/RTCPeerConnectionIceEvent.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/RTCPeerConnectionIceEventInit.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/RTCRtcpParameters.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/RTCRtpCapabilities.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/RTCRtpCodec.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/RTCRtpCodecParameters.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/RTCRtpCodingParameters.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/RTCRtpContributingSource.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/RTCRtpEncodingParameters.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/RTCRtpHeaderExtensionCapability.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/RTCRtpHeaderExtensionParameters.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/RTCRtpParameters.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/RTCRtpReceiveParameters.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/RTCRtpReceiver.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/RTCRtpSFrameDecryptor.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/RTCRtpSFrameEncryptor.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/RTCRtpScriptTransform.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/RTCRtpScriptTransformer.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/RTCRtpSendParameters.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/RTCRtpSender.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/RTCRtpSynchronizationSource.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/RTCRtpTransceiver.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/RTCRtpTransceiverInit.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/RTCSctpTransport.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/RTCSessionDescription.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/RTCSessionDescriptionCallback.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/RTCSessionDescriptionInit.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/RTCSetParameterOptions.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/RTCStatsReport.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/RTCTrackEvent.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/RTCTrackEventInit.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/RTCTransformEvent.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/RadioNodeList.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/Range.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/ReadableByteStreamController.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/ReadableStream.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/ReadableStreamBYOBReader.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/ReadableStreamBYOBReaderReadOptions.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/ReadableStreamBYOBRequest.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/ReadableStreamDefaultController.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/ReadableStreamDefaultReader.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/ReadableStreamGenericReader.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/ReadableStreamGetReaderOptions.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/ReadableStreamReadResult.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/ReadableStreamSource.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/ReadableWritablePair.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/Rect.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/RegistrationOptions.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/RemotePlayback.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/RemotePlaybackAvailabilityCallback.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/Report.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/ReportBody.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/ReportingObserver.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/ReportingObserverCallback.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/ReportingObserverOptions.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/Request.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/RequestAnimationFrameCallback.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/RequestInit.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/ResizeObserver.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/ResizeObserverCallback.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/ResizeObserverEntry.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/ResizeObserverOptions.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/ResizeObserverSize.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/Response.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/ResponseInit.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/RouterCondition.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/RouterRule.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/RouterSourceDict.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/RsaOtherPrimesInfo.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/SQLError.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/SQLException.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/SQLResultSet.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/SQLResultSetRowList.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/SQLStatementCallback.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/SQLStatementErrorCallback.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/SQLTransaction.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/SQLTransactionCallback.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/SQLTransactionErrorCallback.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/SVGAElement.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/SVGAltGlyphElement.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/SVGAngle.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/SVGAnimateElement.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/SVGAnimateMotionElement.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/SVGAnimateTransformElement.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/SVGAnimatedAngle.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/SVGAnimatedBoolean.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/SVGAnimatedEnumeration.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/SVGAnimatedInteger.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/SVGAnimatedLength.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/SVGAnimatedLengthList.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/SVGAnimatedNumber.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/SVGAnimatedNumberList.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/SVGAnimatedPoints.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/SVGAnimatedPreserveAspectRatio.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/SVGAnimatedRect.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/SVGAnimatedString.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/SVGAnimatedTransformList.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/SVGAnimationElement.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/SVGBoundingBoxOptions.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/SVGCircleElement.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/SVGClipPathElement.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/SVGComponentTransferFunctionElement.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/SVGCursorElement.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/SVGDefsElement.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/SVGDescElement.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/SVGElement.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/SVGEllipseElement.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/SVGException.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/SVGExternalResourcesRequired.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/SVGFEBlendElement.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/SVGFEColorMatrixElement.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/SVGFEComponentTransferElement.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/SVGFECompositeElement.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/SVGFEConvolveMatrixElement.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/SVGFEDiffuseLightingElement.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/SVGFEDisplacementMapElement.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/SVGFEDistantLightElement.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/SVGFEDropShadowElement.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/SVGFEFloodElement.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/SVGFEFuncAElement.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/SVGFEFuncBElement.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/SVGFEFuncGElement.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/SVGFEFuncRElement.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/SVGFEGaussianBlurElement.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/SVGFEImageElement.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/SVGFEMergeElement.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/SVGFEMergeNodeElement.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/SVGFEMorphologyElement.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/SVGFEOffsetElement.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/SVGFEPointLightElement.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/SVGFESpecularLightingElement.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/SVGFESpotLightElement.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/SVGFETileElement.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/SVGFETurbulenceElement.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/SVGFilterElement.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/SVGFilterPrimitiveStandardAttributes.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/SVGFitToViewBox.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/SVGForeignObjectElement.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/SVGGElement.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/SVGGeometryElement.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/SVGGlyphRefElement.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/SVGGradientElement.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/SVGGraphicsElement.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/SVGImageElement.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/SVGLength.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/SVGLengthList.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/SVGLineElement.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/SVGLinearGradientElement.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/SVGMPathElement.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/SVGMarkerElement.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/SVGMaskElement.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/SVGMatrix.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/SVGMetadataElement.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/SVGNumber.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/SVGNumberList.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/SVGPathElement.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/SVGPathSeg.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/SVGPathSegArcAbs.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/SVGPathSegArcRel.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/SVGPathSegCurvetoCubicAbs.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/SVGPathSegCurvetoCubicRel.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/SVGPathSegCurvetoCubicSmoothAbs.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/SVGPathSegCurvetoCubicSmoothRel.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/SVGPathSegCurvetoQuadraticAbs.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/SVGPathSegCurvetoQuadraticRel.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/SVGPathSegCurvetoQuadraticSmoothAbs.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/SVGPathSegCurvetoQuadraticSmoothRel.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/SVGPathSegLinetoAbs.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/SVGPathSegLinetoHorizontalAbs.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/SVGPathSegLinetoHorizontalRel.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/SVGPathSegLinetoRel.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/SVGPathSegLinetoVerticalAbs.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/SVGPathSegLinetoVerticalRel.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/SVGPathSegList.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/SVGPathSegMovetoAbs.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/SVGPathSegMovetoRel.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/SVGPatternElement.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/SVGPoint.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/SVGPointList.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/SVGPolygonElement.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/SVGPolylineElement.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/SVGPreserveAspectRatio.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/SVGRadialGradientElement.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/SVGRect.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/SVGRectElement.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/SVGRenderingIntent.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/SVGSVGElement.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/SVGScriptElement.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/SVGSetElement.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/SVGStopElement.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/SVGStringList.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/SVGStyleElement.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/SVGSwitchElement.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/SVGSymbolElement.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/SVGTSpanElement.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/SVGTests.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/SVGTextContentElement.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/SVGTextElement.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/SVGTextPathElement.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/SVGTextPositioningElement.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/SVGTitleElement.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/SVGTransform.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/SVGTransformList.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/SVGURIReference.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/SVGUnitTypes.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/SVGUseElement.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/SVGViewElement.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/SVGViewSpec.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/SVGZoomAndPan.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/SVGZoomEvent.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/Sanitizer.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/SanitizerAttributeNamespace.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/SanitizerConfig.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/SanitizerElementNamespace.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/SanitizerElementNamespaceWithAttributes.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/SanitizerProcessingInstruction.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/Scheduler.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/SchedulerPostTaskCallback.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/SchedulerPostTaskOptions.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/Screen.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/ScreenDetailed.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/ScreenOrientation.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/ScriptProcessorNode.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/ScrollIntoViewOptions.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/ScrollOptions.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/ScrollResult.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/ScrollTimeline.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/ScrollTimelineOptions.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/ScrollToOptions.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/SecurityPolicyViolationEvent.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/SecurityPolicyViolationEventInit.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/Segment.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/Selection.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/Serial.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/SerialInputSignals.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/SerialOptions.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/SerialOutputSignals.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/SerialPort.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/SerialPortFilter.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/SerialPortInfo.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/SerialPortRequestOptions.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/ServiceWorker.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/ServiceWorkerContainer.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/ServiceWorkerGlobalScope.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/ServiceWorkerRegistration.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/SetHTMLOptions.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/SetHTMLUnsafeOptions.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/ShadowRoot.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/ShadowRootInit.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/ShareData.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/SharedWorker.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/SharedWorkerGlobalScope.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/SharedWorkerOptions.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/ShowPopoverOptions.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/SiteBoundCredential.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/Slotable.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/Slottable.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/SourceBuffer.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/SourceBufferList.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/SpeechGrammar.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/SpeechGrammarList.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/SpeechRecognition.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/SpeechRecognitionAlternative.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/SpeechRecognitionErrorEvent.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/SpeechRecognitionErrorEventInit.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/SpeechRecognitionEvent.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/SpeechRecognitionEventInit.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/SpeechRecognitionOptions.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/SpeechRecognitionPhrase.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/SpeechRecognitionResult.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/SpeechRecognitionResultList.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/SpeechSynthesis.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/SpeechSynthesisErrorEvent.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/SpeechSynthesisErrorEventInit.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/SpeechSynthesisEvent.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/SpeechSynthesisEventInit.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/SpeechSynthesisUtterance.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/SpeechSynthesisVoice.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/StartViewTransitionOptions.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/StaticRange.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/StaticRangeInit.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/StereoPannerNode.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/StereoPannerOptions.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/Storage.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/StorageErrorCallback.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/StorageEstimate.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/StorageEvent.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/StorageEventInit.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/StorageInfo.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/StorageManager.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/StorageQuota.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/StorageQuotaCallback.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/StorageUsageCallback.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/StreamPipeOptions.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/StringCallback.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/StructuredSerializeOptions.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/StyleMedia.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/StylePropertyMap.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/StylePropertyMapReadOnly.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/StyleSheet.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/StyleSheetList.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/SubmitEvent.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/SubmitEventInit.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/SubtleCrypto.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/SvcOutputMetadata.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/TaskController.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/TaskControllerInit.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/TaskPriorityChangeEvent.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/TaskPriorityChangeEventInit.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/TaskSignal.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/TaskSignalAnyInit.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/Text.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/TextDecodeOptions.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/TextDecoder.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/TextDecoderCommon.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/TextDecoderOptions.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/TextDecoderStream.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/TextEncoder.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/TextEncoderCommon.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/TextEncoderEncodeIntoResult.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/TextEncoderStream.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/TextEvent.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/TextMetrics.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/TextTrack.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/TextTrackCue.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/TextTrackCueList.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/TextTrackList.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/TimeRanges.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/TimelineRangeOffset.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/ToggleEvent.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/ToggleEventInit.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/TogglePopoverOptions.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/Touch.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/TouchEvent.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/TouchEventInit.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/TouchInit.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/TouchList.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/TrackEvent.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/TrackEventInit.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/TransformStream.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/TransformStreamDefaultController.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/TransitionEvent.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/TransitionEventInit.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/TreeWalker.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/TrustedHTML.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/TrustedHTMLParserOptions.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/TrustedScript.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/TrustedScriptURL.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/TrustedTypePolicy.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/TrustedTypePolicyFactory.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/TrustedTypePolicyOptions.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/UIEvent.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/UIEventInit.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/ULongRange.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/URL.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/URLPattern.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/URLPatternComponentResult.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/URLPatternInit.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/URLPatternOptions.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/URLPatternResult.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/URLSearchParams.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/UnknownCredentialOptions.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/UserActivation.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/UserMessageHandler.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/VTTCue.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/VTTRegion.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/VTTRegionList.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/ValidityState.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/ValidityStateFlags.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/VideoColorSpace.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/VideoColorSpaceInit.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/VideoConfiguration.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/VideoDecoder.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/VideoDecoderConfig.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/VideoDecoderInit.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/VideoDecoderSupport.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/VideoEncoder.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/VideoEncoderConfig.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/VideoEncoderEncodeOptions.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/VideoEncoderEncodeOptionsForAv1.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/VideoEncoderEncodeOptionsForAvc.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/VideoEncoderEncodeOptionsForHevc.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/VideoEncoderEncodeOptionsForVp9.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/VideoEncoderInit.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/VideoEncoderSupport.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/VideoFrame.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/VideoFrameBufferInit.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/VideoFrameCallbackMetadata.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/VideoFrameCopyToOptions.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/VideoFrameInit.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/VideoFrameMetadata.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/VideoFrameOutputCallback.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/VideoFrameRequestCallback.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/VideoPlaybackQuality.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/VideoTrack.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/VideoTrackList.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/ViewTimeline.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/ViewTimelineOptions.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/ViewTransition.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/ViewTransitionTypeSet.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/ViewTransitionUpdateCallback.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/VisualViewport.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/VoidCallback.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/VoidFunction.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/WEBGL_color_buffer_float.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/WEBGL_compressed_texture_astc.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/WEBGL_compressed_texture_etc.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/WEBGL_compressed_texture_etc1.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/WEBGL_compressed_texture_pvrtc.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/WEBGL_compressed_texture_s3tc.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/WEBGL_compressed_texture_s3tc_srgb.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/WEBGL_debug_renderer_info.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/WEBGL_debug_shaders.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/WEBGL_depth_texture.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/WEBGL_draw_buffers.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/WEBGL_lose_context.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/WEBGL_multi_draw.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/WGSLLanguageFeatures.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/WakeLock.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/WakeLockSentinel.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/WaveShaperNode.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/WaveShaperOptions.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/WebCodecsErrorCallback.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/WebGL2RenderingContext.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/WebGL2RenderingContextBase.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/WebGL2RenderingContextOverloads.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/WebGLActiveInfo.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/WebGLBuffer.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/WebGLCompressedTextureATC.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/WebGLCompressedTexturePVRTC.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/WebGLCompressedTextureS3TC.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/WebGLContextAttributes.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/WebGLContextEvent.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/WebGLContextEventInit.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/WebGLDebugRendererInfo.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/WebGLDebugShaders.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/WebGLDepthTexture.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/WebGLDrawBuffers.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/WebGLFramebuffer.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/WebGLLoseContext.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/WebGLObject.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/WebGLProgram.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/WebGLQuery.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/WebGLRenderbuffer.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/WebGLRenderingContext.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/WebGLRenderingContextBase.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/WebGLRenderingContextOverloads.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/WebGLSampler.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/WebGLShader.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/WebGLShaderPrecisionFormat.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/WebGLSync.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/WebGLTexture.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/WebGLTransformFeedback.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/WebGLUniformLocation.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/WebGLVertexArrayObject.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/WebGLVertexArrayObjectOES.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/WebGPUBuffer.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/WebGPUCommandBuffer.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/WebGPUCommandQueue.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/WebGPUComputeCommandEncoder.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/WebGPUDepthStencilDescriptor.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/WebGPUDepthStencilState.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/WebGPUDrawable.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/WebGPUFunction.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/WebGPULibrary.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/WebGPURenderCommandEncoder.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/WebGPURenderPassAttachmentDescriptor.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/WebGPURenderPassColorAttachmentDescriptor.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/WebGPURenderPassDepthAttachmentDescriptor.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/WebGPURenderPassDescriptor.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/WebGPURenderPipelineColorAttachmentDescriptor.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/WebGPURenderPipelineDescriptor.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/WebGPURenderPipelineState.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/WebGPURenderingContext.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/WebGPUTexture.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/WebGPUTextureDescriptor.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/WebKitAnimationEvent.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/WebKitCSSMatrix.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/WebKitCSSRegionRule.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/WebKitCSSViewportRule.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/WebKitMediaKeyError.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/WebKitMediaKeyMessageEvent.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/WebKitMediaKeyNeededEvent.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/WebKitMediaKeySession.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/WebKitMediaKeys.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/WebKitNamedFlow.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/WebKitNamespace.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/WebKitPlaybackTargetAvailabilityEvent.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/WebKitPoint.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/WebKitSubtleCrypto.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/WebKitTransitionEvent.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/WebSocket.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/WebTransport.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/WebTransportBidirectionalStream.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/WebTransportCloseInfo.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/WebTransportConnectionStats.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/WebTransportDatagramDuplexStream.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/WebTransportDatagramStats.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/WebTransportDatagramsWritable.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/WebTransportError.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/WebTransportErrorOptions.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/WebTransportHash.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/WebTransportOptions.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/WebTransportReceiveStream.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/WebTransportReceiveStreamStats.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/WebTransportSendGroup.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/WebTransportSendOptions.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/WebTransportSendStream.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/WebTransportSendStreamOptions.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/WebTransportSendStreamStats.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/WebTransportWriter.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/WheelEvent.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/WheelEventInit.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/Window.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/WindowClient.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/WindowEventHandlers.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/WindowLocalStorage.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/WindowOrWorkerGlobalScope.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/WindowPostMessageOptions.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/WindowSessionStorage.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/Worker.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/WorkerAndParameters.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/WorkerGlobalScope.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/WorkerLocation.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/WorkerNavigator.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/WorkerOptions.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/Worklet.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/WorkletGlobalScope.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/WorkletOptions.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/WritableStream.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/WritableStreamDefaultController.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/WritableStreamDefaultWriter.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/WriteParams.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/XMLDocument.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/XMLHttpRequest.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/XMLHttpRequestEventTarget.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/XMLHttpRequestProgressEvent.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/XMLHttpRequestUpload.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/XMLSerializer.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/XPathEvaluator.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/XPathEvaluatorBase.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/XPathException.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/XPathExpression.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/XPathNSResolver.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/XPathResult.hs too large to diff
- src/GHCJS/DOM/JSFFI/Generated/XSLTProcessor.hs too large to diff
- src/GHCJS/DOM/JSFFI/Geolocation.hs too large to diff
- src/GHCJS/DOM/JSFFI/GeolocationPositionError.hs too large to diff
- src/GHCJS/DOM/JSFFI/Navigator.hs too large to diff
- src/GHCJS/DOM/JSFFI/NavigatorUserMediaError.hs too large to diff
- src/GHCJS/DOM/JSFFI/PositionError.hs too large to diff
- src/GHCJS/DOM/JSFFI/RTCPeerConnectionError.hs too large to diff
- src/GHCJS/DOM/JSFFI/SQLError.hs too large to diff
- src/GHCJS/DOM/JSFFI/SQLTransaction.hs too large to diff
- src/GHCJS/DOM/JSFFI/SpeechGrammar.hs too large to diff
- src/GHCJS/DOM/JSFFI/SpeechRecognition.hs too large to diff
- src/GHCJS/DOM/JSFFI/SpeechRecognitionError.hs too large to diff
- src/GHCJS/DOM/JSFFI/SpeechRecognitionEvent.hs too large to diff
- src/GHCJS/DOM/JSFFI/Window.hs too large to diff
- src/GHCJS/DOM/Types.hs too large to diff
@@ -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.
@@ -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 <Hamish.K.Mackenzie@googlemail.com>-synopsis: DOM library using JSFFI and GHCJS-description: Documentent Object Model (DOM) functions that work with- GHCJS.-author: Hamish Mackenzie-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 <Hamish.K.Mackenzie@googlemail.com>+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
@@ -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
@@ -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)---- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.decodeAudioData Mozilla AudioContext.decodeAudioData documentation>-decodeAudioData :: (MonadIO m, IsAudioContext self, IsArrayBuffer audioData) =>- self -> audioData -> m AudioBuffer-decodeAudioData self audioData = liftIO $ nullableToMaybe <$> js_decodeAudioData- (toAudioContext self)- (toArrayBuffer audioData)- >>= maybe (throwIO DecodeAudioError) return-
@@ -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{..}
@@ -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)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Database.changeVersion Mozilla Database.changeVersion documentation>-changeVersion' :: (MonadIO m, ToJSString oldVersion, ToJSString newVersion) =>- Database -> oldVersion -> newVersion -> Maybe (SQLTransaction -> IO ()) -> m (Maybe SQLError)-changeVersion' self oldVersion newVersion Nothing = liftIO $ nullableToMaybe <$>- js_changeVersion self (toJSString oldVersion) (toJSString newVersion) (Nullable jsNull)-changeVersion' self oldVersion newVersion (Just callback) = liftIO $ nullableToMaybe <$>- withSQLTransactionCallback callback- (js_changeVersion self (toJSString oldVersion) (toJSString newVersion) . Nullable . pToJSVal)--changeVersion :: (MonadIO m, ToJSString oldVersion, ToJSString newVersion) =>- Database -> oldVersion -> newVersion -> Maybe (SQLTransaction -> IO ()) -> m ()-changeVersion self oldVersion newVersion callback =- changeVersion' self oldVersion newVersion callback >>= maybe (return ()) throwSQLException--foreign import javascript interruptible "$1[\"transaction\"]($2, $c, function() { $c(null); });"- js_transaction :: Database -> SQLTransactionCallback -> IO (Nullable SQLError)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Database.transaction Mozilla Database.transaction documentation>-transaction' :: (MonadIO m) => Database -> (SQLTransaction -> IO ()) -> m (Maybe SQLError)-transaction' self callback = liftIO $ nullableToMaybe <$>- withSQLTransactionCallback callback- (js_transaction self)--transaction :: (MonadIO m) => Database -> (SQLTransaction -> IO ()) -> m ()-transaction self callback = transaction' self callback >>= maybe (return ()) throwSQLException--foreign import javascript interruptible- "$1[\"readTransaction\"]($2, $c, function() { $c(null); });"- js_readTransaction :: Database -> SQLTransactionCallback -> IO (Nullable SQLError)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Database.readTransaction Mozilla Database.readTransaction documentation>-readTransaction' :: (MonadIO m) => Database -> (SQLTransaction -> IO ()) -> m (Maybe SQLError)-readTransaction' self callback = liftIO $ nullableToMaybe <$>- withSQLTransactionCallback callback (js_readTransaction self)--readTransaction :: (MonadIO m) => Database -> (SQLTransaction -> IO ()) -> m ()-readTransaction self callback = readTransaction' self callback >>= maybe (return ()) throwSQLException
@@ -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 ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/ANGLEInstancedArrays.drawArraysInstancedANGLE Mozilla ANGLEInstancedArrays.drawArraysInstancedANGLE documentation> -drawArraysInstancedANGLE ::- (MonadIO m) =>- ANGLEInstancedArrays -> Word -> Int -> Int -> Int -> m ()-drawArraysInstancedANGLE self mode first count primcount- = liftIO- (js_drawArraysInstancedANGLE self mode first count primcount)- -foreign import javascript unsafe- "(($1, $2, $3, $4, $5, $6) => { return $1[\"drawElementsInstancedANGLE\"]($2,\n$3, $4, $5, $6); })"- js_drawElementsInstancedANGLE ::- ANGLEInstancedArrays ->- Word -> Int -> Word -> Double -> Int -> IO ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/ANGLEInstancedArrays.drawElementsInstancedANGLE Mozilla ANGLEInstancedArrays.drawElementsInstancedANGLE documentation> -drawElementsInstancedANGLE ::- (MonadIO m) =>- ANGLEInstancedArrays -> Word -> Int -> Word -> Int64 -> Int -> m ()-drawElementsInstancedANGLE self mode count type' offset primcount- = liftIO- (js_drawElementsInstancedANGLE self mode count type'- (fromIntegral offset)- primcount)- -foreign import javascript unsafe- "(($1, $2, $3) => { return $1[\"vertexAttribDivisorANGLE\"]($2,\n$3); })"- js_vertexAttribDivisorANGLE ::- ANGLEInstancedArrays -> Word -> Word -> IO ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/ANGLEInstancedArrays.vertexAttribDivisorANGLE Mozilla ANGLEInstancedArrays.vertexAttribDivisorANGLE documentation> -vertexAttribDivisorANGLE ::- (MonadIO m) => ANGLEInstancedArrays -> Word -> Word -> m ()-vertexAttribDivisorANGLE self index divisor- = liftIO (js_vertexAttribDivisorANGLE self index divisor)-pattern VERTEX_ATTRIB_ARRAY_DIVISOR_ANGLE = 35070
@@ -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 ()+-- | <https://developer.mozilla.org/docs/Web/API/ANGLE_instanced_arrays/drawArraysInstancedANGLE MDN ANGLE_instanced_arrays.drawArraysInstancedANGLE documentation>+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 ()+-- | <https://developer.mozilla.org/docs/Web/API/ANGLE_instanced_arrays/drawElementsInstancedANGLE MDN ANGLE_instanced_arrays.drawElementsInstancedANGLE documentation>+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 ()+-- | <https://developer.mozilla.org/docs/Web/API/ANGLE_instanced_arrays/vertexAttribDivisorANGLE MDN ANGLE_instanced_arrays.vertexAttribDivisorANGLE documentation>+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
@@ -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 ()+-- | <https://developer.mozilla.org/docs/Web/API/Element/role MDN ARIAMixin.role documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/Element/role MDN ARIAMixin.role documentation>+getRole :: (MonadDOM m, IsARIAMixin self, FromJSString result) => self -> m (Maybe result)+getRole self = liftDOM (((fromMaybeJSString . Nullable) <$> (js_getRole ((Types.toARIAMixin self)))))++-- | <https://developer.mozilla.org/docs/Web/API/Element/role MDN ARIAMixin.role documentation>+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))++-- | <https://developer.mozilla.org/docs/Web/API/Element/role MDN ARIAMixin.role documentation>+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 ()+-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaActiveDescendantElement MDN ARIAMixin.ariaActiveDescendantElement documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaActiveDescendantElement MDN ARIAMixin.ariaActiveDescendantElement documentation>+getAriaActiveDescendantElement :: (MonadDOM m, IsARIAMixin self) => self -> m (Maybe Element)+getAriaActiveDescendantElement self = liftDOM (((js_getAriaActiveDescendantElement ((Types.toARIAMixin self))) >>= fromJSValUnchecked))++-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaActiveDescendantElement MDN ARIAMixin.ariaActiveDescendantElement documentation>+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))++-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaActiveDescendantElement MDN ARIAMixin.ariaActiveDescendantElement documentation>+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 ()+-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaAtomic MDN ARIAMixin.ariaAtomic documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaAtomic MDN ARIAMixin.ariaAtomic documentation>+getAriaAtomic :: (MonadDOM m, IsARIAMixin self, FromJSString result) => self -> m (Maybe result)+getAriaAtomic self = liftDOM (((fromMaybeJSString . Nullable) <$> (js_getAriaAtomic ((Types.toARIAMixin self)))))++-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaAtomic MDN ARIAMixin.ariaAtomic documentation>+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))++-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaAtomic MDN ARIAMixin.ariaAtomic documentation>+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 ()+-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaAutoComplete MDN ARIAMixin.ariaAutoComplete documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaAutoComplete MDN ARIAMixin.ariaAutoComplete documentation>+getAriaAutoComplete :: (MonadDOM m, IsARIAMixin self, FromJSString result) => self -> m (Maybe result)+getAriaAutoComplete self = liftDOM (((fromMaybeJSString . Nullable) <$> (js_getAriaAutoComplete ((Types.toARIAMixin self)))))++-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaAutoComplete MDN ARIAMixin.ariaAutoComplete documentation>+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))++-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaAutoComplete MDN ARIAMixin.ariaAutoComplete documentation>+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 ()+-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaBrailleLabel MDN ARIAMixin.ariaBrailleLabel documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaBrailleLabel MDN ARIAMixin.ariaBrailleLabel documentation>+getAriaBrailleLabel :: (MonadDOM m, IsARIAMixin self, FromJSString result) => self -> m (Maybe result)+getAriaBrailleLabel self = liftDOM (((fromMaybeJSString . Nullable) <$> (js_getAriaBrailleLabel ((Types.toARIAMixin self)))))++-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaBrailleLabel MDN ARIAMixin.ariaBrailleLabel documentation>+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))++-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaBrailleLabel MDN ARIAMixin.ariaBrailleLabel documentation>+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 ()+-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaBrailleRoleDescription MDN ARIAMixin.ariaBrailleRoleDescription documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaBrailleRoleDescription MDN ARIAMixin.ariaBrailleRoleDescription documentation>+getAriaBrailleRoleDescription :: (MonadDOM m, IsARIAMixin self, FromJSString result) => self -> m (Maybe result)+getAriaBrailleRoleDescription self = liftDOM (((fromMaybeJSString . Nullable) <$> (js_getAriaBrailleRoleDescription ((Types.toARIAMixin self)))))++-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaBrailleRoleDescription MDN ARIAMixin.ariaBrailleRoleDescription documentation>+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))++-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaBrailleRoleDescription MDN ARIAMixin.ariaBrailleRoleDescription documentation>+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 ()+-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaBusy MDN ARIAMixin.ariaBusy documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaBusy MDN ARIAMixin.ariaBusy documentation>+getAriaBusy :: (MonadDOM m, IsARIAMixin self, FromJSString result) => self -> m (Maybe result)+getAriaBusy self = liftDOM (((fromMaybeJSString . Nullable) <$> (js_getAriaBusy ((Types.toARIAMixin self)))))++-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaBusy MDN ARIAMixin.ariaBusy documentation>+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))++-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaBusy MDN ARIAMixin.ariaBusy documentation>+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 ()+-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaChecked MDN ARIAMixin.ariaChecked documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaChecked MDN ARIAMixin.ariaChecked documentation>+getAriaChecked :: (MonadDOM m, IsARIAMixin self, FromJSString result) => self -> m (Maybe result)+getAriaChecked self = liftDOM (((fromMaybeJSString . Nullable) <$> (js_getAriaChecked ((Types.toARIAMixin self)))))++-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaChecked MDN ARIAMixin.ariaChecked documentation>+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))++-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaChecked MDN ARIAMixin.ariaChecked documentation>+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 ()+-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaColCount MDN ARIAMixin.ariaColCount documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaColCount MDN ARIAMixin.ariaColCount documentation>+getAriaColCount :: (MonadDOM m, IsARIAMixin self, FromJSString result) => self -> m (Maybe result)+getAriaColCount self = liftDOM (((fromMaybeJSString . Nullable) <$> (js_getAriaColCount ((Types.toARIAMixin self)))))++-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaColCount MDN ARIAMixin.ariaColCount documentation>+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))++-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaColCount MDN ARIAMixin.ariaColCount documentation>+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 ()+-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaColIndex MDN ARIAMixin.ariaColIndex documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaColIndex MDN ARIAMixin.ariaColIndex documentation>+getAriaColIndex :: (MonadDOM m, IsARIAMixin self, FromJSString result) => self -> m (Maybe result)+getAriaColIndex self = liftDOM (((fromMaybeJSString . Nullable) <$> (js_getAriaColIndex ((Types.toARIAMixin self)))))++-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaColIndex MDN ARIAMixin.ariaColIndex documentation>+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))++-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaColIndex MDN ARIAMixin.ariaColIndex documentation>+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 ()+-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaColIndexText MDN ARIAMixin.ariaColIndexText documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaColIndexText MDN ARIAMixin.ariaColIndexText documentation>+getAriaColIndexText :: (MonadDOM m, IsARIAMixin self, FromJSString result) => self -> m (Maybe result)+getAriaColIndexText self = liftDOM (((fromMaybeJSString . Nullable) <$> (js_getAriaColIndexText ((Types.toARIAMixin self)))))++-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaColIndexText MDN ARIAMixin.ariaColIndexText documentation>+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))++-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaColIndexText MDN ARIAMixin.ariaColIndexText documentation>+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 ()+-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaColSpan MDN ARIAMixin.ariaColSpan documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaColSpan MDN ARIAMixin.ariaColSpan documentation>+getAriaColSpan :: (MonadDOM m, IsARIAMixin self, FromJSString result) => self -> m (Maybe result)+getAriaColSpan self = liftDOM (((fromMaybeJSString . Nullable) <$> (js_getAriaColSpan ((Types.toARIAMixin self)))))++-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaColSpan MDN ARIAMixin.ariaColSpan documentation>+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))++-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaColSpan MDN ARIAMixin.ariaColSpan documentation>+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 ()+-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaControlsElements MDN ARIAMixin.ariaControlsElements documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaControlsElements MDN ARIAMixin.ariaControlsElements documentation>+getAriaControlsElements :: (MonadDOM m, IsARIAMixin self) => self -> m (Maybe [Element])+getAriaControlsElements self = liftDOM (((js_getAriaControlsElements ((Types.toARIAMixin self))) >>= fromJSValUnchecked))++-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaControlsElements MDN ARIAMixin.ariaControlsElements documentation>+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))++-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaControlsElements MDN ARIAMixin.ariaControlsElements documentation>+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 ()+-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaCurrent MDN ARIAMixin.ariaCurrent documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaCurrent MDN ARIAMixin.ariaCurrent documentation>+getAriaCurrent :: (MonadDOM m, IsARIAMixin self, FromJSString result) => self -> m (Maybe result)+getAriaCurrent self = liftDOM (((fromMaybeJSString . Nullable) <$> (js_getAriaCurrent ((Types.toARIAMixin self)))))++-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaCurrent MDN ARIAMixin.ariaCurrent documentation>+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))++-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaCurrent MDN ARIAMixin.ariaCurrent documentation>+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 ()+-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaDescribedByElements MDN ARIAMixin.ariaDescribedByElements documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaDescribedByElements MDN ARIAMixin.ariaDescribedByElements documentation>+getAriaDescribedByElements :: (MonadDOM m, IsARIAMixin self) => self -> m (Maybe [Element])+getAriaDescribedByElements self = liftDOM (((js_getAriaDescribedByElements ((Types.toARIAMixin self))) >>= fromJSValUnchecked))++-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaDescribedByElements MDN ARIAMixin.ariaDescribedByElements documentation>+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))++-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaDescribedByElements MDN ARIAMixin.ariaDescribedByElements documentation>+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 ()+-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaDescription MDN ARIAMixin.ariaDescription documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaDescription MDN ARIAMixin.ariaDescription documentation>+getAriaDescription :: (MonadDOM m, IsARIAMixin self, FromJSString result) => self -> m (Maybe result)+getAriaDescription self = liftDOM (((fromMaybeJSString . Nullable) <$> (js_getAriaDescription ((Types.toARIAMixin self)))))++-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaDescription MDN ARIAMixin.ariaDescription documentation>+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))++-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaDescription MDN ARIAMixin.ariaDescription documentation>+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 ()+-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaDetailsElements MDN ARIAMixin.ariaDetailsElements documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaDetailsElements MDN ARIAMixin.ariaDetailsElements documentation>+getAriaDetailsElements :: (MonadDOM m, IsARIAMixin self) => self -> m (Maybe [Element])+getAriaDetailsElements self = liftDOM (((js_getAriaDetailsElements ((Types.toARIAMixin self))) >>= fromJSValUnchecked))++-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaDetailsElements MDN ARIAMixin.ariaDetailsElements documentation>+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))++-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaDetailsElements MDN ARIAMixin.ariaDetailsElements documentation>+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 ()+-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaDisabled MDN ARIAMixin.ariaDisabled documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaDisabled MDN ARIAMixin.ariaDisabled documentation>+getAriaDisabled :: (MonadDOM m, IsARIAMixin self, FromJSString result) => self -> m (Maybe result)+getAriaDisabled self = liftDOM (((fromMaybeJSString . Nullable) <$> (js_getAriaDisabled ((Types.toARIAMixin self)))))++-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaDisabled MDN ARIAMixin.ariaDisabled documentation>+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))++-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaDisabled MDN ARIAMixin.ariaDisabled documentation>+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 ()+-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaErrorMessageElements MDN ARIAMixin.ariaErrorMessageElements documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaErrorMessageElements MDN ARIAMixin.ariaErrorMessageElements documentation>+getAriaErrorMessageElements :: (MonadDOM m, IsARIAMixin self) => self -> m (Maybe [Element])+getAriaErrorMessageElements self = liftDOM (((js_getAriaErrorMessageElements ((Types.toARIAMixin self))) >>= fromJSValUnchecked))++-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaErrorMessageElements MDN ARIAMixin.ariaErrorMessageElements documentation>+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))++-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaErrorMessageElements MDN ARIAMixin.ariaErrorMessageElements documentation>+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 ()+-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaExpanded MDN ARIAMixin.ariaExpanded documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaExpanded MDN ARIAMixin.ariaExpanded documentation>+getAriaExpanded :: (MonadDOM m, IsARIAMixin self, FromJSString result) => self -> m (Maybe result)+getAriaExpanded self = liftDOM (((fromMaybeJSString . Nullable) <$> (js_getAriaExpanded ((Types.toARIAMixin self)))))++-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaExpanded MDN ARIAMixin.ariaExpanded documentation>+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))++-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaExpanded MDN ARIAMixin.ariaExpanded documentation>+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 ()+-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaFlowToElements MDN ARIAMixin.ariaFlowToElements documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaFlowToElements MDN ARIAMixin.ariaFlowToElements documentation>+getAriaFlowToElements :: (MonadDOM m, IsARIAMixin self) => self -> m (Maybe [Element])+getAriaFlowToElements self = liftDOM (((js_getAriaFlowToElements ((Types.toARIAMixin self))) >>= fromJSValUnchecked))++-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaFlowToElements MDN ARIAMixin.ariaFlowToElements documentation>+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))++-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaFlowToElements MDN ARIAMixin.ariaFlowToElements documentation>+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 ()+-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaHasPopup MDN ARIAMixin.ariaHasPopup documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaHasPopup MDN ARIAMixin.ariaHasPopup documentation>+getAriaHasPopup :: (MonadDOM m, IsARIAMixin self, FromJSString result) => self -> m (Maybe result)+getAriaHasPopup self = liftDOM (((fromMaybeJSString . Nullable) <$> (js_getAriaHasPopup ((Types.toARIAMixin self)))))++-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaHasPopup MDN ARIAMixin.ariaHasPopup documentation>+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))++-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaHasPopup MDN ARIAMixin.ariaHasPopup documentation>+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 ()+-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaHidden MDN ARIAMixin.ariaHidden documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaHidden MDN ARIAMixin.ariaHidden documentation>+getAriaHidden :: (MonadDOM m, IsARIAMixin self, FromJSString result) => self -> m (Maybe result)+getAriaHidden self = liftDOM (((fromMaybeJSString . Nullable) <$> (js_getAriaHidden ((Types.toARIAMixin self)))))++-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaHidden MDN ARIAMixin.ariaHidden documentation>+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))++-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaHidden MDN ARIAMixin.ariaHidden documentation>+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 ()+-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaInvalid MDN ARIAMixin.ariaInvalid documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaInvalid MDN ARIAMixin.ariaInvalid documentation>+getAriaInvalid :: (MonadDOM m, IsARIAMixin self, FromJSString result) => self -> m (Maybe result)+getAriaInvalid self = liftDOM (((fromMaybeJSString . Nullable) <$> (js_getAriaInvalid ((Types.toARIAMixin self)))))++-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaInvalid MDN ARIAMixin.ariaInvalid documentation>+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))++-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaInvalid MDN ARIAMixin.ariaInvalid documentation>+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 ()+-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaKeyShortcuts MDN ARIAMixin.ariaKeyShortcuts documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaKeyShortcuts MDN ARIAMixin.ariaKeyShortcuts documentation>+getAriaKeyShortcuts :: (MonadDOM m, IsARIAMixin self, FromJSString result) => self -> m (Maybe result)+getAriaKeyShortcuts self = liftDOM (((fromMaybeJSString . Nullable) <$> (js_getAriaKeyShortcuts ((Types.toARIAMixin self)))))++-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaKeyShortcuts MDN ARIAMixin.ariaKeyShortcuts documentation>+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))++-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaKeyShortcuts MDN ARIAMixin.ariaKeyShortcuts documentation>+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 ()+-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaLabel MDN ARIAMixin.ariaLabel documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaLabel MDN ARIAMixin.ariaLabel documentation>+getAriaLabel :: (MonadDOM m, IsARIAMixin self, FromJSString result) => self -> m (Maybe result)+getAriaLabel self = liftDOM (((fromMaybeJSString . Nullable) <$> (js_getAriaLabel ((Types.toARIAMixin self)))))++-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaLabel MDN ARIAMixin.ariaLabel documentation>+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))++-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaLabel MDN ARIAMixin.ariaLabel documentation>+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 ()+-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaLabelledByElements MDN ARIAMixin.ariaLabelledByElements documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaLabelledByElements MDN ARIAMixin.ariaLabelledByElements documentation>+getAriaLabelledByElements :: (MonadDOM m, IsARIAMixin self) => self -> m (Maybe [Element])+getAriaLabelledByElements self = liftDOM (((js_getAriaLabelledByElements ((Types.toARIAMixin self))) >>= fromJSValUnchecked))++-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaLabelledByElements MDN ARIAMixin.ariaLabelledByElements documentation>+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))++-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaLabelledByElements MDN ARIAMixin.ariaLabelledByElements documentation>+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 ()+-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaLevel MDN ARIAMixin.ariaLevel documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaLevel MDN ARIAMixin.ariaLevel documentation>+getAriaLevel :: (MonadDOM m, IsARIAMixin self, FromJSString result) => self -> m (Maybe result)+getAriaLevel self = liftDOM (((fromMaybeJSString . Nullable) <$> (js_getAriaLevel ((Types.toARIAMixin self)))))++-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaLevel MDN ARIAMixin.ariaLevel documentation>+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))++-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaLevel MDN ARIAMixin.ariaLevel documentation>+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 ()+-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaLive MDN ARIAMixin.ariaLive documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaLive MDN ARIAMixin.ariaLive documentation>+getAriaLive :: (MonadDOM m, IsARIAMixin self, FromJSString result) => self -> m (Maybe result)+getAriaLive self = liftDOM (((fromMaybeJSString . Nullable) <$> (js_getAriaLive ((Types.toARIAMixin self)))))++-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaLive MDN ARIAMixin.ariaLive documentation>+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))++-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaLive MDN ARIAMixin.ariaLive documentation>+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 ()+-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaModal MDN ARIAMixin.ariaModal documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaModal MDN ARIAMixin.ariaModal documentation>+getAriaModal :: (MonadDOM m, IsARIAMixin self, FromJSString result) => self -> m (Maybe result)+getAriaModal self = liftDOM (((fromMaybeJSString . Nullable) <$> (js_getAriaModal ((Types.toARIAMixin self)))))++-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaModal MDN ARIAMixin.ariaModal documentation>+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))++-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaModal MDN ARIAMixin.ariaModal documentation>+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 ()+-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaMultiLine MDN ARIAMixin.ariaMultiLine documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaMultiLine MDN ARIAMixin.ariaMultiLine documentation>+getAriaMultiLine :: (MonadDOM m, IsARIAMixin self, FromJSString result) => self -> m (Maybe result)+getAriaMultiLine self = liftDOM (((fromMaybeJSString . Nullable) <$> (js_getAriaMultiLine ((Types.toARIAMixin self)))))++-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaMultiLine MDN ARIAMixin.ariaMultiLine documentation>+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))++-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaMultiLine MDN ARIAMixin.ariaMultiLine documentation>+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 ()+-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaMultiSelectable MDN ARIAMixin.ariaMultiSelectable documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaMultiSelectable MDN ARIAMixin.ariaMultiSelectable documentation>+getAriaMultiSelectable :: (MonadDOM m, IsARIAMixin self, FromJSString result) => self -> m (Maybe result)+getAriaMultiSelectable self = liftDOM (((fromMaybeJSString . Nullable) <$> (js_getAriaMultiSelectable ((Types.toARIAMixin self)))))++-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaMultiSelectable MDN ARIAMixin.ariaMultiSelectable documentation>+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))++-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaMultiSelectable MDN ARIAMixin.ariaMultiSelectable documentation>+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 ()+-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaOrientation MDN ARIAMixin.ariaOrientation documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaOrientation MDN ARIAMixin.ariaOrientation documentation>+getAriaOrientation :: (MonadDOM m, IsARIAMixin self, FromJSString result) => self -> m (Maybe result)+getAriaOrientation self = liftDOM (((fromMaybeJSString . Nullable) <$> (js_getAriaOrientation ((Types.toARIAMixin self)))))++-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaOrientation MDN ARIAMixin.ariaOrientation documentation>+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))++-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaOrientation MDN ARIAMixin.ariaOrientation documentation>+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 ()+-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaOwnsElements MDN ARIAMixin.ariaOwnsElements documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaOwnsElements MDN ARIAMixin.ariaOwnsElements documentation>+getAriaOwnsElements :: (MonadDOM m, IsARIAMixin self) => self -> m (Maybe [Element])+getAriaOwnsElements self = liftDOM (((js_getAriaOwnsElements ((Types.toARIAMixin self))) >>= fromJSValUnchecked))++-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaOwnsElements MDN ARIAMixin.ariaOwnsElements documentation>+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))++-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaOwnsElements MDN ARIAMixin.ariaOwnsElements documentation>+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 ()+-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaPlaceholder MDN ARIAMixin.ariaPlaceholder documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaPlaceholder MDN ARIAMixin.ariaPlaceholder documentation>+getAriaPlaceholder :: (MonadDOM m, IsARIAMixin self, FromJSString result) => self -> m (Maybe result)+getAriaPlaceholder self = liftDOM (((fromMaybeJSString . Nullable) <$> (js_getAriaPlaceholder ((Types.toARIAMixin self)))))++-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaPlaceholder MDN ARIAMixin.ariaPlaceholder documentation>+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))++-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaPlaceholder MDN ARIAMixin.ariaPlaceholder documentation>+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 ()+-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaPosInSet MDN ARIAMixin.ariaPosInSet documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaPosInSet MDN ARIAMixin.ariaPosInSet documentation>+getAriaPosInSet :: (MonadDOM m, IsARIAMixin self, FromJSString result) => self -> m (Maybe result)+getAriaPosInSet self = liftDOM (((fromMaybeJSString . Nullable) <$> (js_getAriaPosInSet ((Types.toARIAMixin self)))))++-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaPosInSet MDN ARIAMixin.ariaPosInSet documentation>+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))++-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaPosInSet MDN ARIAMixin.ariaPosInSet documentation>+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 ()+-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaPressed MDN ARIAMixin.ariaPressed documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaPressed MDN ARIAMixin.ariaPressed documentation>+getAriaPressed :: (MonadDOM m, IsARIAMixin self, FromJSString result) => self -> m (Maybe result)+getAriaPressed self = liftDOM (((fromMaybeJSString . Nullable) <$> (js_getAriaPressed ((Types.toARIAMixin self)))))++-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaPressed MDN ARIAMixin.ariaPressed documentation>+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))++-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaPressed MDN ARIAMixin.ariaPressed documentation>+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 ()+-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaReadOnly MDN ARIAMixin.ariaReadOnly documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaReadOnly MDN ARIAMixin.ariaReadOnly documentation>+getAriaReadOnly :: (MonadDOM m, IsARIAMixin self, FromJSString result) => self -> m (Maybe result)+getAriaReadOnly self = liftDOM (((fromMaybeJSString . Nullable) <$> (js_getAriaReadOnly ((Types.toARIAMixin self)))))++-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaReadOnly MDN ARIAMixin.ariaReadOnly documentation>+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))++-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaReadOnly MDN ARIAMixin.ariaReadOnly documentation>+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 ()+-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaRelevant MDN ARIAMixin.ariaRelevant documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaRelevant MDN ARIAMixin.ariaRelevant documentation>+getAriaRelevant :: (MonadDOM m, IsARIAMixin self, FromJSString result) => self -> m (Maybe result)+getAriaRelevant self = liftDOM (((fromMaybeJSString . Nullable) <$> (js_getAriaRelevant ((Types.toARIAMixin self)))))++-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaRelevant MDN ARIAMixin.ariaRelevant documentation>+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))++-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaRelevant MDN ARIAMixin.ariaRelevant documentation>+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 ()+-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaRequired MDN ARIAMixin.ariaRequired documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaRequired MDN ARIAMixin.ariaRequired documentation>+getAriaRequired :: (MonadDOM m, IsARIAMixin self, FromJSString result) => self -> m (Maybe result)+getAriaRequired self = liftDOM (((fromMaybeJSString . Nullable) <$> (js_getAriaRequired ((Types.toARIAMixin self)))))++-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaRequired MDN ARIAMixin.ariaRequired documentation>+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))++-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaRequired MDN ARIAMixin.ariaRequired documentation>+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 ()+-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaRoleDescription MDN ARIAMixin.ariaRoleDescription documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaRoleDescription MDN ARIAMixin.ariaRoleDescription documentation>+getAriaRoleDescription :: (MonadDOM m, IsARIAMixin self, FromJSString result) => self -> m (Maybe result)+getAriaRoleDescription self = liftDOM (((fromMaybeJSString . Nullable) <$> (js_getAriaRoleDescription ((Types.toARIAMixin self)))))++-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaRoleDescription MDN ARIAMixin.ariaRoleDescription documentation>+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))++-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaRoleDescription MDN ARIAMixin.ariaRoleDescription documentation>+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 ()+-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaRowCount MDN ARIAMixin.ariaRowCount documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaRowCount MDN ARIAMixin.ariaRowCount documentation>+getAriaRowCount :: (MonadDOM m, IsARIAMixin self, FromJSString result) => self -> m (Maybe result)+getAriaRowCount self = liftDOM (((fromMaybeJSString . Nullable) <$> (js_getAriaRowCount ((Types.toARIAMixin self)))))++-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaRowCount MDN ARIAMixin.ariaRowCount documentation>+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))++-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaRowCount MDN ARIAMixin.ariaRowCount documentation>+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 ()+-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaRowIndex MDN ARIAMixin.ariaRowIndex documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaRowIndex MDN ARIAMixin.ariaRowIndex documentation>+getAriaRowIndex :: (MonadDOM m, IsARIAMixin self, FromJSString result) => self -> m (Maybe result)+getAriaRowIndex self = liftDOM (((fromMaybeJSString . Nullable) <$> (js_getAriaRowIndex ((Types.toARIAMixin self)))))++-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaRowIndex MDN ARIAMixin.ariaRowIndex documentation>+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))++-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaRowIndex MDN ARIAMixin.ariaRowIndex documentation>+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 ()+-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaRowIndexText MDN ARIAMixin.ariaRowIndexText documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaRowIndexText MDN ARIAMixin.ariaRowIndexText documentation>+getAriaRowIndexText :: (MonadDOM m, IsARIAMixin self, FromJSString result) => self -> m (Maybe result)+getAriaRowIndexText self = liftDOM (((fromMaybeJSString . Nullable) <$> (js_getAriaRowIndexText ((Types.toARIAMixin self)))))++-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaRowIndexText MDN ARIAMixin.ariaRowIndexText documentation>+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))++-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaRowIndexText MDN ARIAMixin.ariaRowIndexText documentation>+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 ()+-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaRowSpan MDN ARIAMixin.ariaRowSpan documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaRowSpan MDN ARIAMixin.ariaRowSpan documentation>+getAriaRowSpan :: (MonadDOM m, IsARIAMixin self, FromJSString result) => self -> m (Maybe result)+getAriaRowSpan self = liftDOM (((fromMaybeJSString . Nullable) <$> (js_getAriaRowSpan ((Types.toARIAMixin self)))))++-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaRowSpan MDN ARIAMixin.ariaRowSpan documentation>+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))++-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaRowSpan MDN ARIAMixin.ariaRowSpan documentation>+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 ()+-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaSelected MDN ARIAMixin.ariaSelected documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaSelected MDN ARIAMixin.ariaSelected documentation>+getAriaSelected :: (MonadDOM m, IsARIAMixin self, FromJSString result) => self -> m (Maybe result)+getAriaSelected self = liftDOM (((fromMaybeJSString . Nullable) <$> (js_getAriaSelected ((Types.toARIAMixin self)))))++-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaSelected MDN ARIAMixin.ariaSelected documentation>+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))++-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaSelected MDN ARIAMixin.ariaSelected documentation>+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 ()+-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaSetSize MDN ARIAMixin.ariaSetSize documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaSetSize MDN ARIAMixin.ariaSetSize documentation>+getAriaSetSize :: (MonadDOM m, IsARIAMixin self, FromJSString result) => self -> m (Maybe result)+getAriaSetSize self = liftDOM (((fromMaybeJSString . Nullable) <$> (js_getAriaSetSize ((Types.toARIAMixin self)))))++-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaSetSize MDN ARIAMixin.ariaSetSize documentation>+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))++-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaSetSize MDN ARIAMixin.ariaSetSize documentation>+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 ()+-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaSort MDN ARIAMixin.ariaSort documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaSort MDN ARIAMixin.ariaSort documentation>+getAriaSort :: (MonadDOM m, IsARIAMixin self, FromJSString result) => self -> m (Maybe result)+getAriaSort self = liftDOM (((fromMaybeJSString . Nullable) <$> (js_getAriaSort ((Types.toARIAMixin self)))))++-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaSort MDN ARIAMixin.ariaSort documentation>+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))++-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaSort MDN ARIAMixin.ariaSort documentation>+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 ()+-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaValueMax MDN ARIAMixin.ariaValueMax documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaValueMax MDN ARIAMixin.ariaValueMax documentation>+getAriaValueMax :: (MonadDOM m, IsARIAMixin self, FromJSString result) => self -> m (Maybe result)+getAriaValueMax self = liftDOM (((fromMaybeJSString . Nullable) <$> (js_getAriaValueMax ((Types.toARIAMixin self)))))++-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaValueMax MDN ARIAMixin.ariaValueMax documentation>+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))++-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaValueMax MDN ARIAMixin.ariaValueMax documentation>+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 ()+-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaValueMin MDN ARIAMixin.ariaValueMin documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaValueMin MDN ARIAMixin.ariaValueMin documentation>+getAriaValueMin :: (MonadDOM m, IsARIAMixin self, FromJSString result) => self -> m (Maybe result)+getAriaValueMin self = liftDOM (((fromMaybeJSString . Nullable) <$> (js_getAriaValueMin ((Types.toARIAMixin self)))))++-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaValueMin MDN ARIAMixin.ariaValueMin documentation>+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))++-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaValueMin MDN ARIAMixin.ariaValueMin documentation>+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 ()+-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaValueNow MDN ARIAMixin.ariaValueNow documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaValueNow MDN ARIAMixin.ariaValueNow documentation>+getAriaValueNow :: (MonadDOM m, IsARIAMixin self, FromJSString result) => self -> m (Maybe result)+getAriaValueNow self = liftDOM (((fromMaybeJSString . Nullable) <$> (js_getAriaValueNow ((Types.toARIAMixin self)))))++-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaValueNow MDN ARIAMixin.ariaValueNow documentation>+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))++-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaValueNow MDN ARIAMixin.ariaValueNow documentation>+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 ()+-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaValueText MDN ARIAMixin.ariaValueText documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaValueText MDN ARIAMixin.ariaValueText documentation>+getAriaValueText :: (MonadDOM m, IsARIAMixin self, FromJSString result) => self -> m (Maybe result)+getAriaValueText self = liftDOM (((fromMaybeJSString . Nullable) <$> (js_getAriaValueText ((Types.toARIAMixin self)))))++-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaValueText MDN ARIAMixin.ariaValueText documentation>+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))++-- | <https://developer.mozilla.org/docs/Web/API/Element/ariaValueText MDN ARIAMixin.ariaValueText documentation>+getAriaValueTextUnchecked :: (MonadDOM m, IsARIAMixin self, FromJSString result) => self -> m result+getAriaValueTextUnchecked self = liftDOM ((pFromJSVal <$> (js_getAriaValueText ((Types.toARIAMixin self)))))
@@ -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 ()+-- | <https://developer.mozilla.org/docs/Web/API/Document/ariaNotify MDN ARIANotifyMixin.ariaNotify documentation>+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')))
@@ -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+-- | <https://w3c.github.io/webcodecs/aac_codec_registration.html#dictdef-aacencoderconfig AacEncoderConfig specification>+newAacEncoderConfig :: (MonadDOM m) => m AacEncoderConfig+newAacEncoderConfig = liftDOM ((js_newAacEncoderConfig))++foreign import javascript safe "(($1, $2) => { $1[\"format\"] = $2; })"+ js_setFormat :: AacEncoderConfig -> JSVal -> IO ()+-- | <https://w3c.github.io/webcodecs/aac_codec_registration.html#dom-aacencoderconfig-format AacEncoderConfig.format specification>+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+-- | <https://w3c.github.io/webcodecs/aac_codec_registration.html#dom-aacencoderconfig-format AacEncoderConfig.format specification>+getFormat :: (MonadDOM m) => AacEncoderConfig -> m (Maybe AacBitstreamFormat)+getFormat self = liftDOM (((js_getFormat (self)) >>= fromJSValUnchecked))++-- | <https://w3c.github.io/webcodecs/aac_codec_registration.html#dom-aacencoderconfig-format AacEncoderConfig.format specification>+getFormatUnsafe :: (MonadDOM m, HasCallStack) => AacEncoderConfig -> m AacBitstreamFormat+getFormatUnsafe self = liftDOM ((((js_getFormat (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://w3c.github.io/webcodecs/aac_codec_registration.html#dom-aacencoderconfig-format AacEncoderConfig.format specification>+getFormatUnchecked :: (MonadDOM m) => AacEncoderConfig -> m AacBitstreamFormat+getFormatUnchecked self = liftDOM ((pFromJSVal <$> (js_getFormat (self))))
@@ -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+-- | <https://developer.mozilla.org/docs/Web/API/AbortController/AbortController MDN AbortController. documentation>+newAbortController :: (MonadDOM m) => m AbortController+newAbortController = liftDOM ((js_newAbortController))++foreign import javascript safe "(($1, $2) => { return $1[\"abort\"]($2); })"+ js_abort :: AbortController -> JSVal -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/AbortController/abort MDN AbortController.abort documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/AbortController/signal MDN AbortController.signal documentation>+getSignal :: (MonadDOM m, IsAbortController self) => self -> m AbortSignal+getSignal self = liftDOM ((js_getSignal ((Types.toAbortController self))))
@@ -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 ()+-- | <https://developer.mozilla.org/docs/Web/API/AbortSignal/throwIfAborted MDN AbortSignal.throwIfAborted documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/AbortSignal/abort_static MDN AbortSignal.abort documentation>+abort :: (MonadDOM m) => JSVal -> m AbortSignal+abort reason = liftDOM ((js_abort (reason)))++-- | <https://developer.mozilla.org/docs/Web/API/AbortSignal/abort_static MDN AbortSignal.abort documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/AbortSignal/any_static MDN AbortSignal.any documentation>+any :: (MonadDOM m, IsAbortSignal signals) => [signals] -> m AbortSignal+any signals = liftDOM (((toJSVal signals) >>= \a1' -> js_any a1'))++-- | <https://developer.mozilla.org/docs/Web/API/AbortSignal/any_static MDN AbortSignal.any documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/AbortSignal/timeout_static MDN AbortSignal.timeout documentation>+timeout :: (MonadDOM m) => Word53 -> m AbortSignal+timeout milliseconds = liftDOM (((toJSVal milliseconds) >>= \a1' -> js_timeout a1'))++-- | <https://developer.mozilla.org/docs/Web/API/AbortSignal/timeout_static MDN AbortSignal.timeout documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/AbortSignal/aborted MDN AbortSignal.aborted documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/AbortSignal/reason MDN AbortSignal.reason documentation>+getReason :: (MonadDOM m, IsAbortSignal self) => self -> m JSVal+getReason self = liftDOM ((js_getReason ((Types.toAbortSignal self))))++-- | <https://dom.spec.whatwg.org/#dom-abortsignal-onabort abort event>+abortEvent :: (IsAbortSignal self, IsEventTarget self) => EventName self Event+abortEvent = unsafeEventNameAsync (toJSString "abort")
@@ -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+-- | <https://developer.mozilla.org/docs/Web/API/AbstractRange/startContainer MDN AbstractRange.startContainer documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/AbstractRange/startOffset MDN AbstractRange.startOffset documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/AbstractRange/endContainer MDN AbstractRange.endContainer documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/AbstractRange/endOffset MDN AbstractRange.endOffset documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/AbstractRange/collapsed MDN AbstractRange.collapsed documentation>+getCollapsed :: (MonadDOM m, IsAbstractRange self) => self -> m Bool+getCollapsed self = liftDOM ((js_getCollapsed ((Types.toAbstractRange self))))
@@ -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 --- | <https://developer.mozilla.org/en-US/docs/Web/API/AbstractWorker.onerror Mozilla AbstractWorker.onerror documentation> -error ::- (IsAbstractWorker self, IsEventTarget self) =>- EventName self UIEvent+-- | <https://html.spec.whatwg.org/multipage/workers.html#handler-abstractworker-onerror error event>+error :: (IsAbstractWorker self, IsEventTarget self) => EventName self Event error = unsafeEventNameAsync (toJSString "error")
@@ -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+-- | <https://dom.spec.whatwg.org/#dictdef-addeventlisteneroptions AddEventListenerOptions specification>+newAddEventListenerOptions :: (MonadDOM m) => m AddEventListenerOptions+newAddEventListenerOptions = liftDOM ((js_newAddEventListenerOptions))++foreign import javascript safe "(($1, $2) => { $1[\"passive\"] = $2; })"+ js_setPassive :: AddEventListenerOptions -> Bool -> IO ()+-- | <https://dom.spec.whatwg.org/#dom-addeventlisteneroptions-passive AddEventListenerOptions.passive specification>+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+-- | <https://dom.spec.whatwg.org/#dom-addeventlisteneroptions-passive AddEventListenerOptions.passive specification>+getPassive :: (MonadDOM m) => AddEventListenerOptions -> m (Maybe Bool)+getPassive self = liftDOM (((js_getPassive (self)) >>= fromJSValUnchecked))++-- | <https://dom.spec.whatwg.org/#dom-addeventlisteneroptions-passive AddEventListenerOptions.passive specification>+getPassiveUnsafe :: (MonadDOM m, HasCallStack) => AddEventListenerOptions -> m Bool+getPassiveUnsafe self = liftDOM ((((js_getPassive (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://dom.spec.whatwg.org/#dom-addeventlisteneroptions-passive AddEventListenerOptions.passive specification>+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 ()+-- | <https://dom.spec.whatwg.org/#dom-addeventlisteneroptions-once AddEventListenerOptions.once specification>+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+-- | <https://dom.spec.whatwg.org/#dom-addeventlisteneroptions-once AddEventListenerOptions.once specification>+getOnce :: (MonadDOM m) => AddEventListenerOptions -> m (Maybe Bool)+getOnce self = liftDOM (((js_getOnce (self)) >>= fromJSValUnchecked))++-- | <https://dom.spec.whatwg.org/#dom-addeventlisteneroptions-once AddEventListenerOptions.once specification>+getOnceUnsafe :: (MonadDOM m, HasCallStack) => AddEventListenerOptions -> m Bool+getOnceUnsafe self = liftDOM ((((js_getOnce (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://dom.spec.whatwg.org/#dom-addeventlisteneroptions-once AddEventListenerOptions.once specification>+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 ()+-- | <https://dom.spec.whatwg.org/#dom-addeventlisteneroptions-signal AddEventListenerOptions.signal specification>+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+-- | <https://dom.spec.whatwg.org/#dom-addeventlisteneroptions-signal AddEventListenerOptions.signal specification>+getSignal :: (MonadDOM m) => AddEventListenerOptions -> m (Maybe AbortSignal)+getSignal self = liftDOM (((js_getSignal (self)) >>= fromJSValUnchecked))++-- | <https://dom.spec.whatwg.org/#dom-addeventlisteneroptions-signal AddEventListenerOptions.signal specification>+getSignalUnsafe :: (MonadDOM m, HasCallStack) => AddEventListenerOptions -> m AbortSignal+getSignalUnsafe self = liftDOM ((((js_getSignal (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://dom.spec.whatwg.org/#dom-addeventlisteneroptions-signal AddEventListenerOptions.signal specification>+getSignalUnchecked :: (MonadDOM m) => AddEventListenerOptions -> m AbortSignal+getSignalUnchecked self = liftDOM ((pFromJSVal <$> (js_getSignal (self))))
@@ -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+-- | <https://w3c.github.io/payment-request/#dom-addresserrors AddressErrors specification>+newAddressErrors :: (MonadDOM m) => m AddressErrors+newAddressErrors = liftDOM ((js_newAddressErrors))++foreign import javascript safe "(($1, $2) => { $1[\"addressLine\"] = $2; })"+ js_setAddressLine :: AddressErrors -> JSString -> IO ()+-- | <https://w3c.github.io/payment-request/#dom-addresserrors-addressline AddressErrors.addressLine specification>+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+-- | <https://w3c.github.io/payment-request/#dom-addresserrors-addressline AddressErrors.addressLine specification>+getAddressLine :: (MonadDOM m, FromJSString result) => AddressErrors -> m (Maybe result)+getAddressLine self = liftDOM (((fromMaybeJSString . Nullable) <$> (js_getAddressLine (self))))++-- | <https://w3c.github.io/payment-request/#dom-addresserrors-addressline AddressErrors.addressLine specification>+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))++-- | <https://w3c.github.io/payment-request/#dom-addresserrors-addressline AddressErrors.addressLine specification>+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 ()+-- | <https://w3c.github.io/payment-request/#dom-addresserrors-city AddressErrors.city specification>+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+-- | <https://w3c.github.io/payment-request/#dom-addresserrors-city AddressErrors.city specification>+getCity :: (MonadDOM m, FromJSString result) => AddressErrors -> m (Maybe result)+getCity self = liftDOM (((fromMaybeJSString . Nullable) <$> (js_getCity (self))))++-- | <https://w3c.github.io/payment-request/#dom-addresserrors-city AddressErrors.city specification>+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))++-- | <https://w3c.github.io/payment-request/#dom-addresserrors-city AddressErrors.city specification>+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 ()+-- | <https://w3c.github.io/payment-request/#dom-addresserrors-country AddressErrors.country specification>+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+-- | <https://w3c.github.io/payment-request/#dom-addresserrors-country AddressErrors.country specification>+getCountry :: (MonadDOM m, FromJSString result) => AddressErrors -> m (Maybe result)+getCountry self = liftDOM (((fromMaybeJSString . Nullable) <$> (js_getCountry (self))))++-- | <https://w3c.github.io/payment-request/#dom-addresserrors-country AddressErrors.country specification>+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))++-- | <https://w3c.github.io/payment-request/#dom-addresserrors-country AddressErrors.country specification>+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 ()+-- | <https://w3c.github.io/payment-request/#dom-addresserrors-dependentlocality AddressErrors.dependentLocality specification>+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+-- | <https://w3c.github.io/payment-request/#dom-addresserrors-dependentlocality AddressErrors.dependentLocality specification>+getDependentLocality :: (MonadDOM m, FromJSString result) => AddressErrors -> m (Maybe result)+getDependentLocality self = liftDOM (((fromMaybeJSString . Nullable) <$> (js_getDependentLocality (self))))++-- | <https://w3c.github.io/payment-request/#dom-addresserrors-dependentlocality AddressErrors.dependentLocality specification>+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))++-- | <https://w3c.github.io/payment-request/#dom-addresserrors-dependentlocality AddressErrors.dependentLocality specification>+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 ()+-- | <https://w3c.github.io/payment-request/#dom-addresserrors-organization AddressErrors.organization specification>+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+-- | <https://w3c.github.io/payment-request/#dom-addresserrors-organization AddressErrors.organization specification>+getOrganization :: (MonadDOM m, FromJSString result) => AddressErrors -> m (Maybe result)+getOrganization self = liftDOM (((fromMaybeJSString . Nullable) <$> (js_getOrganization (self))))++-- | <https://w3c.github.io/payment-request/#dom-addresserrors-organization AddressErrors.organization specification>+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))++-- | <https://w3c.github.io/payment-request/#dom-addresserrors-organization AddressErrors.organization specification>+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 ()+-- | <https://w3c.github.io/payment-request/#dom-addresserrors-phone AddressErrors.phone specification>+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+-- | <https://w3c.github.io/payment-request/#dom-addresserrors-phone AddressErrors.phone specification>+getPhone :: (MonadDOM m, FromJSString result) => AddressErrors -> m (Maybe result)+getPhone self = liftDOM (((fromMaybeJSString . Nullable) <$> (js_getPhone (self))))++-- | <https://w3c.github.io/payment-request/#dom-addresserrors-phone AddressErrors.phone specification>+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))++-- | <https://w3c.github.io/payment-request/#dom-addresserrors-phone AddressErrors.phone specification>+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 ()+-- | <https://w3c.github.io/payment-request/#dom-addresserrors-postalcode AddressErrors.postalCode specification>+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+-- | <https://w3c.github.io/payment-request/#dom-addresserrors-postalcode AddressErrors.postalCode specification>+getPostalCode :: (MonadDOM m, FromJSString result) => AddressErrors -> m (Maybe result)+getPostalCode self = liftDOM (((fromMaybeJSString . Nullable) <$> (js_getPostalCode (self))))++-- | <https://w3c.github.io/payment-request/#dom-addresserrors-postalcode AddressErrors.postalCode specification>+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))++-- | <https://w3c.github.io/payment-request/#dom-addresserrors-postalcode AddressErrors.postalCode specification>+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 ()+-- | <https://w3c.github.io/payment-request/#dom-addresserrors-recipient AddressErrors.recipient specification>+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+-- | <https://w3c.github.io/payment-request/#dom-addresserrors-recipient AddressErrors.recipient specification>+getRecipient :: (MonadDOM m, FromJSString result) => AddressErrors -> m (Maybe result)+getRecipient self = liftDOM (((fromMaybeJSString . Nullable) <$> (js_getRecipient (self))))++-- | <https://w3c.github.io/payment-request/#dom-addresserrors-recipient AddressErrors.recipient specification>+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))++-- | <https://w3c.github.io/payment-request/#dom-addresserrors-recipient AddressErrors.recipient specification>+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 ()+-- | <https://w3c.github.io/payment-request/#dom-addresserrors-region AddressErrors.region specification>+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+-- | <https://w3c.github.io/payment-request/#dom-addresserrors-region AddressErrors.region specification>+getRegion :: (MonadDOM m, FromJSString result) => AddressErrors -> m (Maybe result)+getRegion self = liftDOM (((fromMaybeJSString . Nullable) <$> (js_getRegion (self))))++-- | <https://w3c.github.io/payment-request/#dom-addresserrors-region AddressErrors.region specification>+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))++-- | <https://w3c.github.io/payment-request/#dom-addresserrors-region AddressErrors.region specification>+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 ()+-- | <https://w3c.github.io/payment-request/#dom-addresserrors-sortingcode AddressErrors.sortingCode specification>+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+-- | <https://w3c.github.io/payment-request/#dom-addresserrors-sortingcode AddressErrors.sortingCode specification>+getSortingCode :: (MonadDOM m, FromJSString result) => AddressErrors -> m (Maybe result)+getSortingCode self = liftDOM (((fromMaybeJSString . Nullable) <$> (js_getSortingCode (self))))++-- | <https://w3c.github.io/payment-request/#dom-addresserrors-sortingcode AddressErrors.sortingCode specification>+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))++-- | <https://w3c.github.io/payment-request/#dom-addresserrors-sortingcode AddressErrors.sortingCode specification>+getSortingCodeUnchecked :: (MonadDOM m, FromJSString result) => AddressErrors -> m result+getSortingCodeUnchecked self = liftDOM ((pFromJSVal <$> (js_getSortingCode (self))))
@@ -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+-- | <https://w3c.github.io/webauthn/#dictdef-allacceptedcredentialsoptions AllAcceptedCredentialsOptions specification>+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 ()+-- | <https://w3c.github.io/webauthn/#dom-allacceptedcredentialsoptions-rpid AllAcceptedCredentialsOptions.rpId specification>+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+-- | <https://w3c.github.io/webauthn/#dom-allacceptedcredentialsoptions-rpid AllAcceptedCredentialsOptions.rpId specification>+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 ()+-- | <https://w3c.github.io/webauthn/#dom-allacceptedcredentialsoptions-userid AllAcceptedCredentialsOptions.userId specification>+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+-- | <https://w3c.github.io/webauthn/#dom-allacceptedcredentialsoptions-userid AllAcceptedCredentialsOptions.userId specification>+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 ()+-- | <https://w3c.github.io/webauthn/#dom-allacceptedcredentialsoptions-allacceptedcredentialids AllAcceptedCredentialsOptions.allAcceptedCredentialIds specification>+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+-- | <https://w3c.github.io/webauthn/#dom-allacceptedcredentialsoptions-allacceptedcredentialids AllAcceptedCredentialsOptions.allAcceptedCredentialIds specification>+getAllAcceptedCredentialIds :: (MonadDOM m, FromJSString result) => AllAcceptedCredentialsOptions -> m [result]+getAllAcceptedCredentialIds self = liftDOM (((js_getAllAcceptedCredentialIds (self)) >>= fromJSValUnchecked))
@@ -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 () --- | <https://developer.mozilla.org/en-US/docs/Web/API/AnalyserNode.getFloatFrequencyData Mozilla AnalyserNode.getFloatFrequencyData documentation> -getFloatFrequencyData ::- (MonadIO m, IsFloat32Array array) =>- AnalyserNode -> Maybe array -> m ()-getFloatFrequencyData self array- = liftIO- (js_getFloatFrequencyData self- (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+-- | <https://developer.mozilla.org/docs/Web/API/AnalyserNode/AnalyserNode MDN AnalyserNode. documentation>+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')) --- | <https://developer.mozilla.org/en-US/docs/Web/API/AnalyserNode.getByteFrequencyData Mozilla AnalyserNode.getByteFrequencyData documentation> -getByteFrequencyData ::- (MonadIO m, IsUint8Array array) =>- AnalyserNode -> Maybe array -> m ()-getByteFrequencyData self array- = liftIO- (js_getByteFrequencyData self- (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 ()+-- | <https://developer.mozilla.org/docs/Web/API/AnalyserNode/getByteFrequencyData MDN AnalyserNode.getByteFrequencyData documentation>+getByteFrequencyData :: (MonadDOM m, IsUint8Array array) => AnalyserNode -> array -> m ()+getByteFrequencyData self array = liftDOM (void ((js_getByteFrequencyData (self) (Types.toUint8Array array)))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/AnalyserNode.getByteTimeDomainData Mozilla AnalyserNode.getByteTimeDomainData documentation> -getByteTimeDomainData ::- (MonadIO m, IsUint8Array array) =>- AnalyserNode -> Maybe array -> m ()-getByteTimeDomainData self array- = liftIO- (js_getByteTimeDomainData self- (maybeToOptional (fmap toUint8Array array)))- +foreign import javascript safe "(($1, $2) => { return $1[\"getByteTimeDomainData\"]($2); })"+ js_getByteTimeDomainData :: AnalyserNode -> Uint8Array -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/AnalyserNode/getByteTimeDomainData MDN AnalyserNode.getByteTimeDomainData documentation>+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 ()+-- | <https://developer.mozilla.org/docs/Web/API/AnalyserNode/getFloatFrequencyData MDN AnalyserNode.getFloatFrequencyData documentation>+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 ()+-- | <https://developer.mozilla.org/docs/Web/API/AnalyserNode/getFloatTimeDomainData MDN AnalyserNode.getFloatTimeDomainData documentation>+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 ()+-- | <https://developer.mozilla.org/docs/Web/API/AnalyserNode/fftSize MDN AnalyserNode.fftSize documentation>+setFftSize :: (MonadDOM m) => AnalyserNode -> Word -> m ()+setFftSize self val = liftDOM (void ((js_setFftSize (self) (val)))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/AnalyserNode.fftSize Mozilla AnalyserNode.fftSize documentation> -setFftSize :: (MonadIO m) => AnalyserNode -> Word -> m ()-setFftSize self val = liftIO (js_setFftSize self val)- -foreign import javascript unsafe "(($1) => { return $1[\"fftSize\"]; })" js_getFftSize ::- AnalyserNode -> IO Word+foreign import javascript unsafe "(($1) => { return $1[\"fftSize\"]; })"+ js_getFftSize :: AnalyserNode -> IO Word+-- | <https://developer.mozilla.org/docs/Web/API/AnalyserNode/fftSize MDN AnalyserNode.fftSize documentation>+getFftSize :: (MonadDOM m) => AnalyserNode -> m Word+getFftSize self = liftDOM ((js_getFftSize (self))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/AnalyserNode.fftSize Mozilla AnalyserNode.fftSize documentation> -getFftSize :: (MonadIO m) => AnalyserNode -> m Word-getFftSize self = liftIO (js_getFftSize self)- foreign import javascript unsafe "(($1) => { return $1[\"frequencyBinCount\"]; })" js_getFrequencyBinCount :: AnalyserNode -> IO Word+-- | <https://developer.mozilla.org/docs/Web/API/AnalyserNode/frequencyBinCount MDN AnalyserNode.frequencyBinCount documentation>+getFrequencyBinCount :: (MonadDOM m) => AnalyserNode -> m Word+getFrequencyBinCount self = liftDOM ((js_getFrequencyBinCount (self))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/AnalyserNode.frequencyBinCount Mozilla AnalyserNode.frequencyBinCount documentation> -getFrequencyBinCount :: (MonadIO m) => AnalyserNode -> m Word-getFrequencyBinCount self = liftIO (js_getFrequencyBinCount self)- foreign import javascript safe "(($1, $2) => { $1[\"minDecibels\"] = $2; })" js_setMinDecibels :: AnalyserNode -> Double -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/AnalyserNode/minDecibels MDN AnalyserNode.minDecibels documentation>+setMinDecibels :: (MonadDOM m) => AnalyserNode -> Double -> m ()+setMinDecibels self val = liftDOM (void ((js_setMinDecibels (self) (val)))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/AnalyserNode.minDecibels Mozilla AnalyserNode.minDecibels documentation> -setMinDecibels :: (MonadIO m) => AnalyserNode -> Double -> m ()-setMinDecibels self val = liftIO (js_setMinDecibels self val)- foreign import javascript unsafe "(($1) => { return $1[\"minDecibels\"]; })" js_getMinDecibels :: AnalyserNode -> IO Double+-- | <https://developer.mozilla.org/docs/Web/API/AnalyserNode/minDecibels MDN AnalyserNode.minDecibels documentation>+getMinDecibels :: (MonadDOM m) => AnalyserNode -> m Double+getMinDecibels self = liftDOM ((js_getMinDecibels (self))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/AnalyserNode.minDecibels Mozilla AnalyserNode.minDecibels documentation> -getMinDecibels :: (MonadIO m) => AnalyserNode -> m Double-getMinDecibels self = liftIO (js_getMinDecibels self)- foreign import javascript safe "(($1, $2) => { $1[\"maxDecibels\"] = $2; })" js_setMaxDecibels :: AnalyserNode -> Double -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/AnalyserNode/maxDecibels MDN AnalyserNode.maxDecibels documentation>+setMaxDecibels :: (MonadDOM m) => AnalyserNode -> Double -> m ()+setMaxDecibels self val = liftDOM (void ((js_setMaxDecibels (self) (val)))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/AnalyserNode.maxDecibels Mozilla AnalyserNode.maxDecibels documentation> -setMaxDecibels :: (MonadIO m) => AnalyserNode -> Double -> m ()-setMaxDecibels self val = liftIO (js_setMaxDecibels self val)- foreign import javascript unsafe "(($1) => { return $1[\"maxDecibels\"]; })" js_getMaxDecibels :: AnalyserNode -> IO Double+-- | <https://developer.mozilla.org/docs/Web/API/AnalyserNode/maxDecibels MDN AnalyserNode.maxDecibels documentation>+getMaxDecibels :: (MonadDOM m) => AnalyserNode -> m Double+getMaxDecibels self = liftDOM ((js_getMaxDecibels (self))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/AnalyserNode.maxDecibels Mozilla AnalyserNode.maxDecibels documentation> -getMaxDecibels :: (MonadIO m) => AnalyserNode -> m Double-getMaxDecibels self = liftIO (js_getMaxDecibels self)- -foreign import javascript 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 ()+-- | <https://developer.mozilla.org/docs/Web/API/AnalyserNode/smoothingTimeConstant MDN AnalyserNode.smoothingTimeConstant documentation>+setSmoothingTimeConstant :: (MonadDOM m) => AnalyserNode -> Double -> m ()+setSmoothingTimeConstant self val = liftDOM (void ((js_setSmoothingTimeConstant (self) (val)))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/AnalyserNode.smoothingTimeConstant Mozilla AnalyserNode.smoothingTimeConstant documentation> -setSmoothingTimeConstant ::- (MonadIO m) => AnalyserNode -> Double -> m ()-setSmoothingTimeConstant self val- = liftIO (js_setSmoothingTimeConstant self val)- foreign import javascript unsafe "(($1) => { return $1[\"smoothingTimeConstant\"]; })" js_getSmoothingTimeConstant :: AnalyserNode -> IO Double---- | <https://developer.mozilla.org/en-US/docs/Web/API/AnalyserNode.smoothingTimeConstant Mozilla AnalyserNode.smoothingTimeConstant documentation> -getSmoothingTimeConstant :: (MonadIO m) => AnalyserNode -> m Double-getSmoothingTimeConstant self- = liftIO (js_getSmoothingTimeConstant self)+-- | <https://developer.mozilla.org/docs/Web/API/AnalyserNode/smoothingTimeConstant MDN AnalyserNode.smoothingTimeConstant documentation>+getSmoothingTimeConstant :: (MonadDOM m) => AnalyserNode -> m Double+getSmoothingTimeConstant self = liftDOM ((js_getSmoothingTimeConstant (self)))
@@ -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+-- | <https://webaudio.github.io/web-audio-api/#AnalyserOptions AnalyserOptions specification>+newAnalyserOptions :: (MonadDOM m) => m AnalyserOptions+newAnalyserOptions = liftDOM ((js_newAnalyserOptions))++foreign import javascript safe "(($1, $2) => { $1[\"fftSize\"] = $2; })"+ js_setFftSize :: AnalyserOptions -> Word -> IO ()+-- | <https://webaudio.github.io/web-audio-api/#dom-analyseroptions-fftsize AnalyserOptions.fftSize specification>+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+-- | <https://webaudio.github.io/web-audio-api/#dom-analyseroptions-fftsize AnalyserOptions.fftSize specification>+getFftSize :: (MonadDOM m) => AnalyserOptions -> m (Maybe Word)+getFftSize self = liftDOM (((js_getFftSize (self)) >>= fromJSValUnchecked))++-- | <https://webaudio.github.io/web-audio-api/#dom-analyseroptions-fftsize AnalyserOptions.fftSize specification>+getFftSizeUnsafe :: (MonadDOM m, HasCallStack) => AnalyserOptions -> m Word+getFftSizeUnsafe self = liftDOM ((((js_getFftSize (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://webaudio.github.io/web-audio-api/#dom-analyseroptions-fftsize AnalyserOptions.fftSize specification>+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 ()+-- | <https://webaudio.github.io/web-audio-api/#dom-analyseroptions-maxdecibels AnalyserOptions.maxDecibels specification>+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+-- | <https://webaudio.github.io/web-audio-api/#dom-analyseroptions-maxdecibels AnalyserOptions.maxDecibels specification>+getMaxDecibels :: (MonadDOM m) => AnalyserOptions -> m (Maybe Double)+getMaxDecibels self = liftDOM (((js_getMaxDecibels (self)) >>= fromJSValUnchecked))++-- | <https://webaudio.github.io/web-audio-api/#dom-analyseroptions-maxdecibels AnalyserOptions.maxDecibels specification>+getMaxDecibelsUnsafe :: (MonadDOM m, HasCallStack) => AnalyserOptions -> m Double+getMaxDecibelsUnsafe self = liftDOM ((((js_getMaxDecibels (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://webaudio.github.io/web-audio-api/#dom-analyseroptions-maxdecibels AnalyserOptions.maxDecibels specification>+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 ()+-- | <https://webaudio.github.io/web-audio-api/#dom-analyseroptions-mindecibels AnalyserOptions.minDecibels specification>+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+-- | <https://webaudio.github.io/web-audio-api/#dom-analyseroptions-mindecibels AnalyserOptions.minDecibels specification>+getMinDecibels :: (MonadDOM m) => AnalyserOptions -> m (Maybe Double)+getMinDecibels self = liftDOM (((js_getMinDecibels (self)) >>= fromJSValUnchecked))++-- | <https://webaudio.github.io/web-audio-api/#dom-analyseroptions-mindecibels AnalyserOptions.minDecibels specification>+getMinDecibelsUnsafe :: (MonadDOM m, HasCallStack) => AnalyserOptions -> m Double+getMinDecibelsUnsafe self = liftDOM ((((js_getMinDecibels (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://webaudio.github.io/web-audio-api/#dom-analyseroptions-mindecibels AnalyserOptions.minDecibels specification>+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 ()+-- | <https://webaudio.github.io/web-audio-api/#dom-analyseroptions-smoothingtimeconstant AnalyserOptions.smoothingTimeConstant specification>+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+-- | <https://webaudio.github.io/web-audio-api/#dom-analyseroptions-smoothingtimeconstant AnalyserOptions.smoothingTimeConstant specification>+getSmoothingTimeConstant :: (MonadDOM m) => AnalyserOptions -> m (Maybe Double)+getSmoothingTimeConstant self = liftDOM (((js_getSmoothingTimeConstant (self)) >>= fromJSValUnchecked))++-- | <https://webaudio.github.io/web-audio-api/#dom-analyseroptions-smoothingtimeconstant AnalyserOptions.smoothingTimeConstant specification>+getSmoothingTimeConstantUnsafe :: (MonadDOM m, HasCallStack) => AnalyserOptions -> m Double+getSmoothingTimeConstantUnsafe self = liftDOM ((((js_getSmoothingTimeConstant (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://webaudio.github.io/web-audio-api/#dom-analyseroptions-smoothingtimeconstant AnalyserOptions.smoothingTimeConstant specification>+getSmoothingTimeConstantUnchecked :: (MonadDOM m) => AnalyserOptions -> m Double+getSmoothingTimeConstantUnchecked self = liftDOM ((pFromJSVal <$> (js_getSmoothingTimeConstant (self))))
@@ -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+-- | <https://developer.mozilla.org/docs/Web/API/Element/animate MDN Animatable.animate documentation>+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'))++-- | <https://developer.mozilla.org/docs/Web/API/Element/animate MDN Animatable.animate documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/Element/getAnimations MDN Animatable.getAnimations documentation>+getAnimations :: (MonadDOM m, IsAnimatable self) => self -> m [Animation]+getAnimations self = liftDOM (((js_getAnimations ((Types.toAnimatable self))) >>= fromJSValUnchecked)) --- | <https://developer.mozilla.org/en-US/docs/Web/API/Animatable.getAnimations Mozilla Animatable.getAnimations documentation> -getAnimations ::- (MonadIO m, IsAnimatable self) => self -> m [Animation]-getAnimations self- = liftIO- ((js_getAnimations (toAnimatable self)) >>= fromJSValUnchecked)+-- | <https://developer.mozilla.org/docs/Web/API/Element/getAnimations MDN Animatable.getAnimations documentation>+getAnimations_ :: (MonadDOM m, IsAnimatable self) => self -> m ()+getAnimations_ self = liftDOM (void ((js_getAnimations ((Types.toAnimatable self))))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/Animatable.getAnimations Mozilla Animatable.getAnimations documentation> -getAnimations_ :: (MonadIO m, IsAnimatable self) => self -> m ()-getAnimations_ self- = liftIO (void (js_getAnimations (toAnimatable self)))+foreign import javascript safe "(($1, $2) => { return $1[\"getAnimations\"]($2); })"+ js_getAnimations' :: Animatable -> JSVal -> IO JSVal+-- | <https://developer.mozilla.org/docs/Web/API/Element/getAnimations MDN Animatable.getAnimations documentation>+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))++-- | <https://developer.mozilla.org/docs/Web/API/Element/getAnimations MDN Animatable.getAnimations documentation>+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')))
@@ -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 --- | <https://developer.mozilla.org/en-US/docs/Web/API/Animation Mozilla Animation documentation> -newAnimation ::- (MonadIO m, IsAnimationEffect effect,- IsAnimationTimeline timeline) =>- Maybe effect -> Maybe timeline -> m Animation-newAnimation effect timeline- = liftIO- (js_newAnimation (maybeToOptional (fmap toAnimationEffect effect))- (maybeToOptional (fmap toAnimationTimeline timeline)))- -foreign import javascript unsafe "(($1) => { 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+-- | <https://developer.mozilla.org/docs/Web/API/Animation/Animation MDN Animation. documentation>+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')) --- | <https://developer.mozilla.org/en-US/docs/Web/API/Animation.effect Mozilla Animation.effect documentation> -getEffect :: (MonadIO m) => Animation -> m (Maybe AnimationEffect)-getEffect self = liftIO (nullableToMaybe <$> (js_getEffect self))+foreign import javascript safe "(($1) => { return $1[\"cancel\"](); })"+ js_cancel :: Animation -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/Animation/cancel MDN Animation.cancel documentation>+cancel :: (MonadDOM m, IsAnimation self) => self -> m ()+cancel self = liftDOM (void ((js_cancel ((Types.toAnimation self))))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/Animation.effect Mozilla Animation.effect documentation> -getEffectUnsafe ::- (MonadIO m, HasCallStack) => Animation -> m AnimationEffect-getEffectUnsafe self- = liftIO- ((nullableToMaybe <$> (js_getEffect self)) >>=- maybe (Prelude.error "Nothing to return") return)+foreign import javascript safe "(($1) => { return $1[\"commitStyles\"](); })"+ js_commitStyles :: Animation -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/Animation/commitStyles MDN Animation.commitStyles documentation>+commitStyles :: (MonadDOM m, IsAnimation self) => self -> m ()+commitStyles self = liftDOM (void ((js_commitStyles ((Types.toAnimation self))))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/Animation.effect Mozilla Animation.effect documentation> -getEffectUnchecked :: (MonadIO m) => Animation -> m AnimationEffect-getEffectUnchecked self- = liftIO (fromJust . nullableToMaybe <$> (js_getEffect self))- -foreign import javascript unsafe "(($1) => { return $1[\"timeline\"]; })" js_getTimeline- :: Animation -> IO (Nullable AnimationTimeline)+foreign import javascript safe "(($1) => { return $1[\"finish\"](); })"+ js_finish :: Animation -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/Animation/finish MDN Animation.finish documentation>+finish :: (MonadDOM m, IsAnimation self) => self -> m ()+finish self = liftDOM (void ((js_finish ((Types.toAnimation self))))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/Animation.timeline Mozilla Animation.timeline documentation> -getTimeline ::- (MonadIO m) => Animation -> m (Maybe AnimationTimeline)-getTimeline self- = liftIO (nullableToMaybe <$> (js_getTimeline self))+foreign import javascript safe "(($1) => { return $1[\"pause\"](); })"+ js_pause :: Animation -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/Animation/pause MDN Animation.pause documentation>+pause :: (MonadDOM m, IsAnimation self) => self -> m ()+pause self = liftDOM (void ((js_pause ((Types.toAnimation self))))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/Animation.timeline Mozilla Animation.timeline documentation> -getTimelineUnsafe ::- (MonadIO m, HasCallStack) => Animation -> m AnimationTimeline-getTimelineUnsafe self- = liftIO- ((nullableToMaybe <$> (js_getTimeline self)) >>=- maybe (Prelude.error "Nothing to return") return)+foreign import javascript safe "(($1) => { return $1[\"persist\"](); })"+ js_persist :: Animation -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/Animation/persist MDN Animation.persist documentation>+persist :: (MonadDOM m, IsAnimation self) => self -> m ()+persist self = liftDOM (void ((js_persist ((Types.toAnimation self))))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/Animation.timeline Mozilla Animation.timeline documentation> -getTimelineUnchecked ::- (MonadIO m) => Animation -> m AnimationTimeline-getTimelineUnchecked self- = liftIO (fromJust . nullableToMaybe <$> (js_getTimeline self))+foreign import javascript safe "(($1) => { return $1[\"play\"](); })"+ js_play :: Animation -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/Animation/play MDN Animation.play documentation>+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 ()+-- | <https://developer.mozilla.org/docs/Web/API/Animation/reverse MDN Animation.reverse documentation>+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 ()+-- | <https://developer.mozilla.org/docs/Web/API/Animation/updatePlaybackRate MDN Animation.updatePlaybackRate documentation>+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 ()+-- | <https://developer.mozilla.org/docs/Web/API/Animation/id MDN Animation.id documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/Animation/id MDN Animation.id documentation>+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 ()+-- | <https://developer.mozilla.org/docs/Web/API/Animation/effect MDN Animation.effect documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/Animation/effect MDN Animation.effect documentation>+getEffect :: (MonadDOM m, IsAnimation self) => self -> m (Maybe AnimationEffect)+getEffect self = liftDOM (((js_getEffect ((Types.toAnimation self))) >>= fromJSValUnchecked))++-- | <https://developer.mozilla.org/docs/Web/API/Animation/effect MDN Animation.effect documentation>+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))++-- | <https://developer.mozilla.org/docs/Web/API/Animation/effect MDN Animation.effect documentation>+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 ()+-- | <https://developer.mozilla.org/docs/Web/API/Animation/timeline MDN Animation.timeline documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/Animation/timeline MDN Animation.timeline documentation>+getTimeline :: (MonadDOM m, IsAnimation self) => self -> m (Maybe AnimationTimeline)+getTimeline self = liftDOM (((js_getTimeline ((Types.toAnimation self))) >>= fromJSValUnchecked))++-- | <https://developer.mozilla.org/docs/Web/API/Animation/timeline MDN Animation.timeline documentation>+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))++-- | <https://developer.mozilla.org/docs/Web/API/Animation/timeline MDN Animation.timeline documentation>+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 ()+-- | <https://developer.mozilla.org/docs/Web/API/Animation/playbackRate MDN Animation.playbackRate documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/Animation/playbackRate MDN Animation.playbackRate documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/Animation/playState MDN Animation.playState documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/Animation/replaceState MDN Animation.replaceState documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/Animation/pending MDN Animation.pending documentation>+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)+-- | <https://developer.mozilla.org/docs/Web/API/Animation/ready MDN Animation.ready documentation>+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)+-- | <https://developer.mozilla.org/docs/Web/API/Animation/finished MDN Animation.finished documentation>+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 ()+-- | <https://developer.mozilla.org/docs/Web/API/Animation/startTime MDN Animation.startTime documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/Animation/startTime MDN Animation.startTime documentation>+getStartTime :: (MonadDOM m, IsAnimation self) => self -> m (Maybe CSSNumberish)+getStartTime self = liftDOM (((js_getStartTime ((Types.toAnimation self))) >>= fromJSValUnchecked))++-- | <https://developer.mozilla.org/docs/Web/API/Animation/startTime MDN Animation.startTime documentation>+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))++-- | <https://developer.mozilla.org/docs/Web/API/Animation/startTime MDN Animation.startTime documentation>+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 ()+-- | <https://developer.mozilla.org/docs/Web/API/Animation/currentTime MDN Animation.currentTime documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/Animation/currentTime MDN Animation.currentTime documentation>+getCurrentTime :: (MonadDOM m, IsAnimation self) => self -> m (Maybe CSSNumberish)+getCurrentTime self = liftDOM (((js_getCurrentTime ((Types.toAnimation self))) >>= fromJSValUnchecked))++-- | <https://developer.mozilla.org/docs/Web/API/Animation/currentTime MDN Animation.currentTime documentation>+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))++-- | <https://developer.mozilla.org/docs/Web/API/Animation/currentTime MDN Animation.currentTime documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/Animation/overallProgress MDN Animation.overallProgress documentation>+getOverallProgress :: (MonadDOM m, IsAnimation self) => self -> m (Maybe Double)+getOverallProgress self = liftDOM (((js_getOverallProgress ((Types.toAnimation self))) >>= fromJSValUnchecked))++-- | <https://developer.mozilla.org/docs/Web/API/Animation/overallProgress MDN Animation.overallProgress documentation>+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))++-- | <https://developer.mozilla.org/docs/Web/API/Animation/overallProgress MDN Animation.overallProgress documentation>+getOverallProgressUnchecked :: (MonadDOM m, IsAnimation self) => self -> m Double+getOverallProgressUnchecked self = liftDOM ((pFromJSVal <$> (js_getOverallProgress ((Types.toAnimation self)))))++-- | <https://drafts.csswg.org/web-animations-1/#dom-animation-onfinish finish event>+finishEvent :: (IsAnimation self, IsEventTarget self) => EventName self AnimationPlaybackEvent+finishEvent = unsafeEventName (toJSString "finish")++-- | <https://drafts.csswg.org/web-animations-1/#dom-animation-oncancel cancel event>+cancelEvent :: (IsAnimation self, IsEventTarget self) => EventName self AnimationPlaybackEvent+cancelEvent = unsafeEventName (toJSString "cancel")++-- | <https://drafts.csswg.org/web-animations-1/#dom-animation-onremove remove event>+remove :: (IsAnimation self, IsEventTarget self) => EventName self AnimationPlaybackEvent+remove = unsafeEventName (toJSString "remove")
@@ -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+-- | <https://developer.mozilla.org/docs/Web/API/AnimationEffect/getComputedTiming MDN AnimationEffect.getComputedTiming documentation>+getComputedTiming :: (MonadDOM m, IsAnimationEffect self) => self -> m ComputedEffectTiming+getComputedTiming self = liftDOM ((js_getComputedTiming ((Types.toAnimationEffect self))))++-- | <https://developer.mozilla.org/docs/Web/API/AnimationEffect/getComputedTiming MDN AnimationEffect.getComputedTiming documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/AnimationEffect/getTiming MDN AnimationEffect.getTiming documentation>+getTiming :: (MonadDOM m, IsAnimationEffect self) => self -> m EffectTiming+getTiming self = liftDOM ((js_getTiming ((Types.toAnimationEffect self))))++-- | <https://developer.mozilla.org/docs/Web/API/AnimationEffect/getTiming MDN AnimationEffect.getTiming documentation>+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 ()+-- | <https://developer.mozilla.org/docs/Web/API/AnimationEffect/updateTiming MDN AnimationEffect.updateTiming documentation>+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')))
@@ -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 --- | <https://developer.mozilla.org/en-US/docs/Web/API/AnimationEvent Mozilla AnimationEvent documentation> -newAnimationEvent ::- (MonadIO m, ToJSString type') =>- type' -> Maybe AnimationEventInit -> m AnimationEvent-newAnimationEvent type' animationEventInitDict- = liftIO- (js_newAnimationEvent (toJSString type')- (maybeToOptional animationEventInitDict))- +foreign import javascript safe "(($1, $2) => { return new globalThis[\"AnimationEvent\"]($1, $2); })"+ js_newAnimationEvent :: JSString -> JSVal -> IO AnimationEvent+-- | <https://developer.mozilla.org/docs/Web/API/AnimationEvent/AnimationEvent MDN AnimationEvent. documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/AnimationEvent/animationName MDN AnimationEvent.animationName documentation>+getAnimationName :: (MonadDOM m, FromJSString result) => AnimationEvent -> m result+getAnimationName self = liftDOM ((fromJSString <$> (js_getAnimationName (self)))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/AnimationEvent.animationName Mozilla AnimationEvent.animationName documentation> -getAnimationName ::- (MonadIO m, FromJSString result) => AnimationEvent -> m result-getAnimationName self- = liftIO (fromJSString <$> (js_getAnimationName self))- foreign import javascript unsafe "(($1) => { return $1[\"elapsedTime\"]; })" js_getElapsedTime :: AnimationEvent -> IO Double+-- | <https://developer.mozilla.org/docs/Web/API/AnimationEvent/elapsedTime MDN AnimationEvent.elapsedTime documentation>+getElapsedTime :: (MonadDOM m) => AnimationEvent -> m Double+getElapsedTime self = liftDOM ((js_getElapsedTime (self))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/AnimationEvent.elapsedTime Mozilla AnimationEvent.elapsedTime documentation> -getElapsedTime :: (MonadIO m) => AnimationEvent -> m Double-getElapsedTime self = liftIO (js_getElapsedTime self)+foreign import javascript unsafe "(($1) => { return $1[\"pseudoElement\"]; })"+ js_getPseudoElement :: AnimationEvent -> IO JSString+-- | <https://developer.mozilla.org/docs/Web/API/AnimationEvent/pseudoElement MDN AnimationEvent.pseudoElement documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/AnimationEvent/animation MDN AnimationEvent.animation documentation>+getAnimation :: (MonadDOM m) => AnimationEvent -> m (Maybe CSSAnimation)+getAnimation self = liftDOM (((js_getAnimation (self)) >>= fromJSValUnchecked))++-- | <https://developer.mozilla.org/docs/Web/API/AnimationEvent/animation MDN AnimationEvent.animation documentation>+getAnimationUnsafe :: (MonadDOM m, HasCallStack) => AnimationEvent -> m CSSAnimation+getAnimationUnsafe self = liftDOM ((((js_getAnimation (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://developer.mozilla.org/docs/Web/API/AnimationEvent/animation MDN AnimationEvent.animation documentation>+getAnimationUnchecked :: (MonadDOM m) => AnimationEvent -> m CSSAnimation+getAnimationUnchecked self = liftDOM ((pFromJSVal <$> (js_getAnimation (self))))
@@ -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+-- | <https://drafts.csswg.org/css-animations-1/#dictdef-animationeventinit AnimationEventInit specification>+newAnimationEventInit :: (MonadDOM m) => m AnimationEventInit+newAnimationEventInit = liftDOM ((js_newAnimationEventInit))++foreign import javascript safe "(($1, $2) => { $1[\"animationName\"] = $2; })"+ js_setAnimationName :: AnimationEventInit -> JSString -> IO ()+-- | <https://drafts.csswg.org/css-animations-1/#dom-animationeventinit-animationname AnimationEventInit.animationName specification>+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+-- | <https://drafts.csswg.org/css-animations-1/#dom-animationeventinit-animationname AnimationEventInit.animationName specification>+getAnimationName :: (MonadDOM m, FromJSString result) => AnimationEventInit -> m (Maybe result)+getAnimationName self = liftDOM (((fromMaybeJSString . Nullable) <$> (js_getAnimationName (self))))++-- | <https://drafts.csswg.org/css-animations-1/#dom-animationeventinit-animationname AnimationEventInit.animationName specification>+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))++-- | <https://drafts.csswg.org/css-animations-1/#dom-animationeventinit-animationname AnimationEventInit.animationName specification>+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 ()+-- | <https://drafts.csswg.org/css-animations-1/#dom-animationeventinit-elapsedtime AnimationEventInit.elapsedTime specification>+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+-- | <https://drafts.csswg.org/css-animations-1/#dom-animationeventinit-elapsedtime AnimationEventInit.elapsedTime specification>+getElapsedTime :: (MonadDOM m) => AnimationEventInit -> m (Maybe Double)+getElapsedTime self = liftDOM (((js_getElapsedTime (self)) >>= fromJSValUnchecked))++-- | <https://drafts.csswg.org/css-animations-1/#dom-animationeventinit-elapsedtime AnimationEventInit.elapsedTime specification>+getElapsedTimeUnsafe :: (MonadDOM m, HasCallStack) => AnimationEventInit -> m Double+getElapsedTimeUnsafe self = liftDOM ((((js_getElapsedTime (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://drafts.csswg.org/css-animations-1/#dom-animationeventinit-elapsedtime AnimationEventInit.elapsedTime specification>+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 ()+-- | <https://drafts.csswg.org/css-animations-1/#dom-animationeventinit-pseudoelement AnimationEventInit.pseudoElement specification>+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+-- | <https://drafts.csswg.org/css-animations-1/#dom-animationeventinit-pseudoelement AnimationEventInit.pseudoElement specification>+getPseudoElement :: (MonadDOM m, FromJSString result) => AnimationEventInit -> m (Maybe result)+getPseudoElement self = liftDOM (((fromMaybeJSString . Nullable) <$> (js_getPseudoElement (self))))++-- | <https://drafts.csswg.org/css-animations-1/#dom-animationeventinit-pseudoelement AnimationEventInit.pseudoElement specification>+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))++-- | <https://drafts.csswg.org/css-animations-1/#dom-animationeventinit-pseudoelement AnimationEventInit.pseudoElement specification>+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 ()+-- | <https://drafts.csswg.org/css-animations-2/#dom-animationeventinit-animation AnimationEventInit.animation specification>+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+-- | <https://drafts.csswg.org/css-animations-2/#dom-animationeventinit-animation AnimationEventInit.animation specification>+getAnimation :: (MonadDOM m) => AnimationEventInit -> m (Maybe CSSAnimation)+getAnimation self = liftDOM (((js_getAnimation (self)) >>= fromJSValUnchecked))++-- | <https://drafts.csswg.org/css-animations-2/#dom-animationeventinit-animation AnimationEventInit.animation specification>+getAnimationUnsafe :: (MonadDOM m, HasCallStack) => AnimationEventInit -> m CSSAnimation+getAnimationUnsafe self = liftDOM ((((js_getAnimation (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://drafts.csswg.org/css-animations-2/#dom-animationeventinit-animation AnimationEventInit.animation specification>+getAnimationUnchecked :: (MonadDOM m) => AnimationEventInit -> m CSSAnimation+getAnimationUnchecked self = liftDOM ((pFromJSVal <$> (js_getAnimation (self))))
@@ -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 ()+-- | <https://developer.mozilla.org/docs/Web/API/DedicatedWorkerGlobalScope/cancelAnimationFrame MDN AnimationFrameProvider.cancelAnimationFrame documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/DedicatedWorkerGlobalScope/requestAnimationFrame MDN AnimationFrameProvider.requestAnimationFrame documentation>+requestAnimationFrame :: (MonadDOM m, IsAnimationFrameProvider self) => self -> FrameRequestCallback -> m Word+requestAnimationFrame self callback' = liftDOM (((toJSVal callback') >>= \a2' -> js_requestAnimationFrame ((Types.toAnimationFrameProvider self)) a2'))++-- | <https://developer.mozilla.org/docs/Web/API/DedicatedWorkerGlobalScope/requestAnimationFrame MDN AnimationFrameProvider.requestAnimationFrame documentation>+requestAnimationFrame_ :: (MonadDOM m, IsAnimationFrameProvider self) => self -> FrameRequestCallback -> m ()+requestAnimationFrame_ self callback' = liftDOM (void (((toJSVal callback') >>= \a2' -> js_requestAnimationFrame ((Types.toAnimationFrameProvider self)) a2')))
@@ -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+-- | <https://developer.mozilla.org/docs/Web/API/AnimationPlaybackEvent/AnimationPlaybackEvent MDN AnimationPlaybackEvent. documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/AnimationPlaybackEvent/currentTime MDN AnimationPlaybackEvent.currentTime documentation>+getCurrentTime :: (MonadDOM m) => AnimationPlaybackEvent -> m (Maybe CSSNumberish)+getCurrentTime self = liftDOM (((js_getCurrentTime (self)) >>= fromJSValUnchecked))++-- | <https://developer.mozilla.org/docs/Web/API/AnimationPlaybackEvent/currentTime MDN AnimationPlaybackEvent.currentTime documentation>+getCurrentTimeUnsafe :: (MonadDOM m, HasCallStack) => AnimationPlaybackEvent -> m CSSNumberish+getCurrentTimeUnsafe self = liftDOM ((((js_getCurrentTime (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://developer.mozilla.org/docs/Web/API/AnimationPlaybackEvent/currentTime MDN AnimationPlaybackEvent.currentTime documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/AnimationPlaybackEvent/timelineTime MDN AnimationPlaybackEvent.timelineTime documentation>+getTimelineTime :: (MonadDOM m) => AnimationPlaybackEvent -> m (Maybe CSSNumberish)+getTimelineTime self = liftDOM (((js_getTimelineTime (self)) >>= fromJSValUnchecked))++-- | <https://developer.mozilla.org/docs/Web/API/AnimationPlaybackEvent/timelineTime MDN AnimationPlaybackEvent.timelineTime documentation>+getTimelineTimeUnsafe :: (MonadDOM m, HasCallStack) => AnimationPlaybackEvent -> m CSSNumberish+getTimelineTimeUnsafe self = liftDOM ((((js_getTimelineTime (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://developer.mozilla.org/docs/Web/API/AnimationPlaybackEvent/timelineTime MDN AnimationPlaybackEvent.timelineTime documentation>+getTimelineTimeUnchecked :: (MonadDOM m) => AnimationPlaybackEvent -> m CSSNumberish+getTimelineTimeUnchecked self = liftDOM ((pFromJSVal <$> (js_getTimelineTime (self))))
@@ -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+-- | <https://drafts.csswg.org/web-animations-2/#dictdef-animationplaybackeventinit AnimationPlaybackEventInit specification>+newAnimationPlaybackEventInit :: (MonadDOM m) => m AnimationPlaybackEventInit+newAnimationPlaybackEventInit = liftDOM ((js_newAnimationPlaybackEventInit))++foreign import javascript safe "(($1, $2) => { $1[\"currentTime\"] = $2; })"+ js_setCurrentTime :: AnimationPlaybackEventInit -> JSVal -> IO ()+-- | <https://drafts.csswg.org/web-animations-2/#dom-animationplaybackeventinit-currenttime AnimationPlaybackEventInit.currentTime specification>+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+-- | <https://drafts.csswg.org/web-animations-2/#dom-animationplaybackeventinit-currenttime AnimationPlaybackEventInit.currentTime specification>+getCurrentTime :: (MonadDOM m) => AnimationPlaybackEventInit -> m (Maybe CSSNumberish)+getCurrentTime self = liftDOM (((js_getCurrentTime (self)) >>= fromJSValUnchecked))++-- | <https://drafts.csswg.org/web-animations-2/#dom-animationplaybackeventinit-currenttime AnimationPlaybackEventInit.currentTime specification>+getCurrentTimeUnsafe :: (MonadDOM m, HasCallStack) => AnimationPlaybackEventInit -> m CSSNumberish+getCurrentTimeUnsafe self = liftDOM ((((js_getCurrentTime (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://drafts.csswg.org/web-animations-2/#dom-animationplaybackeventinit-currenttime AnimationPlaybackEventInit.currentTime specification>+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 ()+-- | <https://drafts.csswg.org/web-animations-2/#dom-animationplaybackeventinit-timelinetime AnimationPlaybackEventInit.timelineTime specification>+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+-- | <https://drafts.csswg.org/web-animations-2/#dom-animationplaybackeventinit-timelinetime AnimationPlaybackEventInit.timelineTime specification>+getTimelineTime :: (MonadDOM m) => AnimationPlaybackEventInit -> m (Maybe CSSNumberish)+getTimelineTime self = liftDOM (((js_getTimelineTime (self)) >>= fromJSValUnchecked))++-- | <https://drafts.csswg.org/web-animations-2/#dom-animationplaybackeventinit-timelinetime AnimationPlaybackEventInit.timelineTime specification>+getTimelineTimeUnsafe :: (MonadDOM m, HasCallStack) => AnimationPlaybackEventInit -> m CSSNumberish+getTimelineTimeUnsafe self = liftDOM ((((js_getTimelineTime (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://drafts.csswg.org/web-animations-2/#dom-animationplaybackeventinit-timelinetime AnimationPlaybackEventInit.timelineTime specification>+getTimelineTimeUnchecked :: (MonadDOM m) => AnimationPlaybackEventInit -> m CSSNumberish+getTimelineTimeUnchecked self = liftDOM ((pFromJSVal <$> (js_getTimelineTime (self))))
@@ -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+-- | <https://developer.mozilla.org/docs/Web/API/AnimationTimeline/currentTime MDN AnimationTimeline.currentTime documentation>+getCurrentTime :: (MonadDOM m, IsAnimationTimeline self) => self -> m (Maybe CSSNumberish)+getCurrentTime self = liftDOM (((js_getCurrentTime ((Types.toAnimationTimeline self))) >>= fromJSValUnchecked))++-- | <https://developer.mozilla.org/docs/Web/API/AnimationTimeline/currentTime MDN AnimationTimeline.currentTime documentation>+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))++-- | <https://developer.mozilla.org/docs/Web/API/AnimationTimeline/currentTime MDN AnimationTimeline.currentTime documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/AnimationTimeline/duration MDN AnimationTimeline.duration documentation>+getDuration :: (MonadDOM m, IsAnimationTimeline self) => self -> m (Maybe CSSNumberish)+getDuration self = liftDOM (((js_getDuration ((Types.toAnimationTimeline self))) >>= fromJSValUnchecked))++-- | <https://developer.mozilla.org/docs/Web/API/AnimationTimeline/duration MDN AnimationTimeline.duration documentation>+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))++-- | <https://developer.mozilla.org/docs/Web/API/AnimationTimeline/duration MDN AnimationTimeline.duration documentation>+getDurationUnchecked :: (MonadDOM m, IsAnimationTimeline self) => self -> m CSSNumberish+getDurationUnchecked self = liftDOM ((pFromJSVal <$> (js_getDuration ((Types.toAnimationTimeline self)))))
@@ -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+
@@ -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---- | <https://developer.mozilla.org/en-US/docs/Web/API/ApplePayError Mozilla ApplePayError documentation> -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 ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/ApplePayError.code Mozilla ApplePayError.code documentation> -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---- | <https://developer.mozilla.org/en-US/docs/Web/API/ApplePayError.code Mozilla ApplePayError.code documentation> -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 ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/ApplePayError.contactField Mozilla ApplePayError.contactField documentation> -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)---- | <https://developer.mozilla.org/en-US/docs/Web/API/ApplePayError.contactField Mozilla ApplePayError.contactField documentation> -getContactField ::- (MonadIO m) => ApplePayError -> m (Maybe ApplePayErrorContactField)-getContactField self- = liftIO (nullableToMaybe <$> (js_getContactField self))---- | <https://developer.mozilla.org/en-US/docs/Web/API/ApplePayError.contactField Mozilla ApplePayError.contactField documentation> -getContactFieldUnsafe ::- (MonadIO m, HasCallStack) =>- ApplePayError -> m ApplePayErrorContactField-getContactFieldUnsafe self- = liftIO- ((nullableToMaybe <$> (js_getContactField self)) >>=- maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/ApplePayError.contactField Mozilla ApplePayError.contactField documentation> -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 ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/ApplePayError.message Mozilla ApplePayError.message documentation> -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---- | <https://developer.mozilla.org/en-US/docs/Web/API/ApplePayError.message Mozilla ApplePayError.message documentation> -getMessage ::- (MonadIO m, FromJSString result) => ApplePayError -> m result-getMessage self = liftIO (fromJSString <$> (js_getMessage self))
@@ -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---- | <https://developer.mozilla.org/en-US/docs/Web/API/ApplePayPaymentAuthorizedEvent.payment Mozilla ApplePayPaymentAuthorizedEvent.payment documentation> -getPayment ::- (MonadIO m) => ApplePayPaymentAuthorizedEvent -> m ApplePayPayment-getPayment self = liftIO (js_getPayment self)
@@ -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---- | <https://developer.mozilla.org/en-US/docs/Web/API/ApplePayPaymentMethodSelectedEvent.paymentMethod Mozilla ApplePayPaymentMethodSelectedEvent.paymentMethod documentation> -getPaymentMethod ::- (MonadIO m) =>- ApplePayPaymentMethodSelectedEvent -> m ApplePayPaymentMethod-getPaymentMethod self = liftIO (js_getPaymentMethod self)
@@ -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---- | <https://developer.mozilla.org/en-US/docs/Web/API/ApplePaySession Mozilla ApplePaySession documentation> -newApplePaySession ::- (MonadIO m) => Word -> ApplePayPaymentRequest -> m ApplePaySession-newApplePaySession version paymentRequest- = liftIO (js_newApplePaySession version paymentRequest)- -foreign import javascript safe- "(($1) => { return (window[\"ApplePaySession\"][\"supportsVersion\"]($1) ? 1 : 0); })"- js_supportsVersion :: Word -> IO Bool---- | <https://developer.mozilla.org/en-US/docs/Web/API/ApplePaySession.supportsVersion Mozilla ApplePaySession.supportsVersion documentation> -supportsVersion :: (MonadIO m) => Word -> m Bool-supportsVersion version = liftIO (js_supportsVersion version)---- | <https://developer.mozilla.org/en-US/docs/Web/API/ApplePaySession.supportsVersion Mozilla ApplePaySession.supportsVersion documentation> -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---- | <https://developer.mozilla.org/en-US/docs/Web/API/ApplePaySession.canMakePayments Mozilla ApplePaySession.canMakePayments documentation> -canMakePayments :: (MonadIO m) => m Bool-canMakePayments = liftIO (js_canMakePayments)---- | <https://developer.mozilla.org/en-US/docs/Web/API/ApplePaySession.canMakePayments Mozilla ApplePaySession.canMakePayments documentation> -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)---- | <https://developer.mozilla.org/en-US/docs/Web/API/ApplePaySession.canMakePaymentsWithActiveCard Mozilla ApplePaySession.canMakePaymentsWithActiveCard documentation> -canMakePaymentsWithActiveCard ::- (MonadIO m, ToJSString merchantIdentifier) =>- merchantIdentifier -> m Bool-canMakePaymentsWithActiveCard merchantIdentifier- = liftIO- ((js_canMakePaymentsWithActiveCard (toJSString merchantIdentifier))- >>= checkPromiseResult)---- | <https://developer.mozilla.org/en-US/docs/Web/API/ApplePaySession.canMakePaymentsWithActiveCard Mozilla ApplePaySession.canMakePaymentsWithActiveCard documentation> -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)---- | <https://developer.mozilla.org/en-US/docs/Web/API/ApplePaySession.openPaymentSetup Mozilla ApplePaySession.openPaymentSetup documentation> -openPaymentSetup ::- (MonadIO m, ToJSString merchantIdentifier) =>- merchantIdentifier -> m Bool-openPaymentSetup merchantIdentifier- = liftIO- ((js_openPaymentSetup (toJSString merchantIdentifier)) >>=- checkPromiseResult)---- | <https://developer.mozilla.org/en-US/docs/Web/API/ApplePaySession.openPaymentSetup Mozilla ApplePaySession.openPaymentSetup documentation> -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 ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/ApplePaySession.begin Mozilla ApplePaySession.begin documentation> -begin :: (MonadIO m) => ApplePaySession -> m ()-begin self = liftIO (js_begin self)- -foreign import javascript safe "(($1) => { return $1[\"abort\"](); })" js_abort ::- ApplePaySession -> IO ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/ApplePaySession.abort Mozilla ApplePaySession.abort documentation> -abort :: (MonadIO m) => ApplePaySession -> m ()-abort self = liftIO (js_abort self)- -foreign import javascript safe- "(($1, $2) => { return $1[\"completeMerchantValidation\"]($2); })"- js_completeMerchantValidation :: ApplePaySession -> JSVal -> IO ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/ApplePaySession.completeMerchantValidation Mozilla ApplePaySession.completeMerchantValidation documentation> -completeMerchantValidation ::- (MonadIO m, ToJSVal merchantSession) =>- ApplePaySession -> merchantSession -> m ()-completeMerchantValidation self merchantSession- = liftIO- (toJSVal merchantSession >>=- \ merchantSession' ->- js_completeMerchantValidation self merchantSession')- -foreign import javascript safe- "(($1, $2) => { return $1[\"completeShippingMethodSelection\"]($2); })"- js_completeShippingMethodSelectionUpdate ::- ApplePaySession -> ApplePayShippingMethodUpdate -> IO ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/ApplePaySession.completeShippingMethodSelection Mozilla ApplePaySession.completeShippingMethodSelection documentation> -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 ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/ApplePaySession.completeShippingContactSelection Mozilla ApplePaySession.completeShippingContactSelection documentation> -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 ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/ApplePaySession.completePaymentMethodSelection Mozilla ApplePaySession.completePaymentMethodSelection documentation> -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 ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/ApplePaySession.completePayment Mozilla ApplePaySession.completePayment documentation> -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 ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/ApplePaySession.completeShippingMethodSelection Mozilla ApplePaySession.completeShippingMethodSelection documentation> -completeShippingMethodSelection ::- (MonadIO m) =>- ApplePaySession ->- Word -> ApplePayLineItem -> [ApplePayLineItem] -> m ()-completeShippingMethodSelection self status newTotal newLineItems- = liftIO- (toJSVal newLineItems >>=- \ newLineItems' ->- js_completeShippingMethodSelection self status newTotal- newLineItems')- -foreign import javascript safe- "(($1, $2, $3, $4, $5) => { return $1[\"completeShippingContactSelection\"]($2,\n$3, $4, $5); })"- js_completeShippingContactSelection ::- ApplePaySession ->- Word -> JSVal -> ApplePayLineItem -> JSVal -> IO ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/ApplePaySession.completeShippingContactSelection Mozilla ApplePaySession.completeShippingContactSelection documentation> -completeShippingContactSelection ::- (MonadIO m) =>- ApplePaySession ->- Word ->- [ApplePayShippingMethod] ->- ApplePayLineItem -> [ApplePayLineItem] -> m ()-completeShippingContactSelection self status newShippingMethods- newTotal newLineItems- = liftIO- (toJSVal newLineItems >>=- \ newLineItems' ->- toJSVal newShippingMethods >>=- \ newShippingMethods' ->- js_completeShippingContactSelection self status newShippingMethods'- newTotal- newLineItems')- -foreign import javascript safe- "(($1, $2, $3) => { return $1[\"completePaymentMethodSelection\"]($2,\n$3); })"- js_completePaymentMethodSelection ::- ApplePaySession -> ApplePayLineItem -> JSVal -> IO ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/ApplePaySession.completePaymentMethodSelection Mozilla ApplePaySession.completePaymentMethodSelection documentation> -completePaymentMethodSelection ::- (MonadIO m) =>- ApplePaySession -> ApplePayLineItem -> [ApplePayLineItem] -> m ()-completePaymentMethodSelection self newTotal newLineItems- = liftIO- (toJSVal newLineItems >>=- \ newLineItems' ->- js_completePaymentMethodSelection self newTotal newLineItems')- -foreign import javascript safe "(($1, $2) => { return $1[\"completePayment\"]($2); })"- js_completePayment :: ApplePaySession -> Word -> IO ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/ApplePaySession.completePayment Mozilla ApplePaySession.completePayment documentation> -completePayment :: (MonadIO m) => ApplePaySession -> Word -> m ()-completePayment self status- = liftIO (js_completePayment self status)-pattern STATUS_SUCCESS = 0-pattern STATUS_FAILURE = 1-pattern STATUS_INVALID_BILLING_POSTAL_ADDRESS = 2-pattern STATUS_INVALID_SHIPPING_POSTAL_ADDRESS = 3-pattern STATUS_INVALID_SHIPPING_CONTACT = 4-pattern STATUS_PIN_REQUIRED = 5-pattern STATUS_PIN_INCORRECT = 6-pattern STATUS_PIN_LOCKOUT = 7---- | <https://developer.mozilla.org/en-US/docs/Web/API/ApplePaySession.onvalidatemerchant Mozilla ApplePaySession.onvalidatemerchant documentation> -validatemerchant :: EventName ApplePaySession onvalidatemerchant-validatemerchant = unsafeEventName (toJSString "validatemerchant")---- | <https://developer.mozilla.org/en-US/docs/Web/API/ApplePaySession.onpaymentmethodselected Mozilla ApplePaySession.onpaymentmethodselected documentation> -paymentmethodselected ::- EventName ApplePaySession onpaymentmethodselected-paymentmethodselected- = unsafeEventName (toJSString "paymentmethodselected")---- | <https://developer.mozilla.org/en-US/docs/Web/API/ApplePaySession.onpaymentauthorized Mozilla ApplePaySession.onpaymentauthorized documentation> -paymentauthorized :: EventName ApplePaySession onpaymentauthorized-paymentauthorized- = unsafeEventName (toJSString "paymentauthorized")---- | <https://developer.mozilla.org/en-US/docs/Web/API/ApplePaySession.onshippingmethodselected Mozilla ApplePaySession.onshippingmethodselected documentation> -shippingmethodselected ::- EventName ApplePaySession onshippingmethodselected-shippingmethodselected- = unsafeEventName (toJSString "shippingmethodselected")---- | <https://developer.mozilla.org/en-US/docs/Web/API/ApplePaySession.onshippingcontactselected Mozilla ApplePaySession.onshippingcontactselected documentation> -shippingcontactselected ::- EventName ApplePaySession onshippingcontactselected-shippingcontactselected- = unsafeEventName (toJSString "shippingcontactselected")---- | <https://developer.mozilla.org/en-US/docs/Web/API/ApplePaySession.oncancel Mozilla ApplePaySession.oncancel documentation> -cancel :: EventName ApplePaySession oncancel-cancel = unsafeEventName (toJSString "cancel")
@@ -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---- | <https://developer.mozilla.org/en-US/docs/Web/API/ApplePayShippingContactSelectedEvent.shippingContact Mozilla ApplePayShippingContactSelectedEvent.shippingContact documentation> -getShippingContact ::- (MonadIO m) =>- ApplePayShippingContactSelectedEvent -> m ApplePayPaymentContact-getShippingContact self = liftIO (js_getShippingContact self)
@@ -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---- | <https://developer.mozilla.org/en-US/docs/Web/API/ApplePayShippingMethodSelectedEvent.shippingMethod Mozilla ApplePayShippingMethodSelectedEvent.shippingMethod documentation> -getShippingMethod ::- (MonadIO m) =>- ApplePayShippingMethodSelectedEvent -> m ApplePayShippingMethod-getShippingMethod self = liftIO (js_getShippingMethod self)
@@ -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---- | <https://developer.mozilla.org/en-US/docs/Web/API/ApplePayValidateMerchantEvent.validationURL Mozilla ApplePayValidateMerchantEvent.validationURL documentation> -getValidationURL ::- (MonadIO m, FromJSString result) =>- ApplePayValidateMerchantEvent -> m result-getValidationURL self- = liftIO (fromJSString <$> (js_getValidationURL self))
@@ -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 ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/ApplicationCache.update Mozilla ApplicationCache.update documentation> -update :: (MonadIO m) => ApplicationCache -> m ()-update self = liftIO (js_update self)- -foreign import javascript safe "(($1) => { return $1[\"swapCache\"](); })" js_swapCache- :: ApplicationCache -> IO ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/ApplicationCache.swapCache Mozilla ApplicationCache.swapCache documentation> -swapCache :: (MonadIO m) => ApplicationCache -> m ()-swapCache self = liftIO (js_swapCache self)- -foreign import javascript unsafe "(($1) => { return $1[\"abort\"](); })" js_abort ::- ApplicationCache -> IO ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/ApplicationCache.abort Mozilla ApplicationCache.abort documentation> -abort :: (MonadIO m) => ApplicationCache -> m ()-abort self = liftIO (js_abort self)-pattern UNCACHED = 0-pattern IDLE = 1-pattern CHECKING = 2-pattern DOWNLOADING = 3-pattern UPDATEREADY = 4-pattern OBSOLETE = 5- -foreign import javascript unsafe "(($1) => { return $1[\"status\"]; })" js_getStatus ::- ApplicationCache -> IO Word---- | <https://developer.mozilla.org/en-US/docs/Web/API/ApplicationCache.status Mozilla ApplicationCache.status documentation> -getStatus :: (MonadIO m) => ApplicationCache -> m Word-getStatus self = liftIO (js_getStatus self)---- | <https://developer.mozilla.org/en-US/docs/Web/API/ApplicationCache.onchecking Mozilla ApplicationCache.onchecking documentation> -checking :: EventName ApplicationCache Event-checking = unsafeEventName (toJSString "checking")---- | <https://developer.mozilla.org/en-US/docs/Web/API/ApplicationCache.onerror Mozilla ApplicationCache.onerror documentation> -error :: EventName ApplicationCache UIEvent-error = unsafeEventNameAsync (toJSString "error")---- | <https://developer.mozilla.org/en-US/docs/Web/API/ApplicationCache.onnoupdate Mozilla ApplicationCache.onnoupdate documentation> -noUpdate :: EventName ApplicationCache Event-noUpdate = unsafeEventName (toJSString "noupdate")---- | <https://developer.mozilla.org/en-US/docs/Web/API/ApplicationCache.ondownloading Mozilla ApplicationCache.ondownloading documentation> -downloading :: EventName ApplicationCache Event-downloading = unsafeEventName (toJSString "downloading")---- | <https://developer.mozilla.org/en-US/docs/Web/API/ApplicationCache.onprogress Mozilla ApplicationCache.onprogress documentation> -progress :: EventName ApplicationCache ProgressEvent-progress = unsafeEventNameAsync (toJSString "progress")---- | <https://developer.mozilla.org/en-US/docs/Web/API/ApplicationCache.onupdateready Mozilla ApplicationCache.onupdateready documentation> -updateReady :: EventName ApplicationCache Event-updateReady = unsafeEventName (toJSString "updateready")---- | <https://developer.mozilla.org/en-US/docs/Web/API/ApplicationCache.oncached Mozilla ApplicationCache.oncached documentation> -cached :: EventName ApplicationCache Event-cached = unsafeEventName (toJSString "cached")---- | <https://developer.mozilla.org/en-US/docs/Web/API/ApplicationCache.onobsolete Mozilla ApplicationCache.onobsolete documentation> -obsolete :: EventName ApplicationCache Event-obsolete = unsafeEventName (toJSString "obsolete")
@@ -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+-- | <https://w3c.github.io/aria/#dom-arianotificationoptions AriaNotificationOptions specification>+newAriaNotificationOptions :: (MonadDOM m) => m AriaNotificationOptions+newAriaNotificationOptions = liftDOM ((js_newAriaNotificationOptions))++foreign import javascript safe "(($1, $2) => { $1[\"priority\"] = $2; })"+ js_setPriority :: AriaNotificationOptions -> JSVal -> IO ()+-- | <https://w3c.github.io/aria/#dom-arianotificationoptions-priority AriaNotificationOptions.priority specification>+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+-- | <https://w3c.github.io/aria/#dom-arianotificationoptions-priority AriaNotificationOptions.priority specification>+getPriority :: (MonadDOM m) => AriaNotificationOptions -> m (Maybe AriaNotifyPriority)+getPriority self = liftDOM (((js_getPriority (self)) >>= fromJSValUnchecked))++-- | <https://w3c.github.io/aria/#dom-arianotificationoptions-priority AriaNotificationOptions.priority specification>+getPriorityUnsafe :: (MonadDOM m, HasCallStack) => AriaNotificationOptions -> m AriaNotifyPriority+getPriorityUnsafe self = liftDOM ((((js_getPriority (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://w3c.github.io/aria/#dom-arianotificationoptions-priority AriaNotificationOptions.priority specification>+getPriorityUnchecked :: (MonadDOM m) => AriaNotificationOptions -> m AriaNotifyPriority+getPriorityUnchecked self = liftDOM ((pFromJSVal <$> (js_getPriority (self))))
@@ -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+-- | <https://html.spec.whatwg.org/multipage/scripting.html#assignednodesoptions AssignedNodesOptions specification>+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))))
@@ -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+-- | <https://developer.mozilla.org/docs/Web/API/Attr/namespaceURI MDN Attr.namespaceURI documentation>+getNamespaceURI :: (MonadDOM m, FromJSString result) => Attr -> m (Maybe result)+getNamespaceURI self = liftDOM (((fromMaybeJSString . Nullable) <$> (js_getNamespaceURI (self)))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/Attr.namespaceURI Mozilla Attr.namespaceURI documentation> -getNamespaceURI ::- (MonadIO m, FromJSString result) => Attr -> m (Maybe result)-getNamespaceURI self- = liftIO (fromMaybeJSString <$> (js_getNamespaceURI self))+-- | <https://developer.mozilla.org/docs/Web/API/Attr/namespaceURI MDN Attr.namespaceURI documentation>+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)) --- | <https://developer.mozilla.org/en-US/docs/Web/API/Attr.namespaceURI Mozilla Attr.namespaceURI documentation> -getNamespaceURIUnsafe ::- (MonadIO m, HasCallStack, FromJSString result) => Attr -> m result-getNamespaceURIUnsafe self- = liftIO- ((fromMaybeJSString <$> (js_getNamespaceURI self)) >>=- maybe (Prelude.error "Nothing to return") return)+-- | <https://developer.mozilla.org/docs/Web/API/Attr/namespaceURI MDN Attr.namespaceURI documentation>+getNamespaceURIUnchecked :: (MonadDOM m, FromJSString result) => Attr -> m result+getNamespaceURIUnchecked self = liftDOM ((pFromJSVal <$> (js_getNamespaceURI (self)))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/Attr.namespaceURI Mozilla Attr.namespaceURI documentation> -getNamespaceURIUnchecked ::- (MonadIO m, FromJSString result) => Attr -> m result-getNamespaceURIUnchecked self- = liftIO- (fromJust . fromMaybeJSString <$> (js_getNamespaceURI self))- -foreign import javascript unsafe "(($1) => { return $1[\"prefix\"]; })" js_getPrefix ::- Attr -> IO (Nullable JSString)+foreign import javascript unsafe "(($1) => { return $1[\"prefix\"]; })"+ js_getPrefix :: Attr -> IO JSVal+-- | <https://developer.mozilla.org/docs/Web/API/Attr/prefix MDN Attr.prefix documentation>+getPrefix :: (MonadDOM m, FromJSString result) => Attr -> m (Maybe result)+getPrefix self = liftDOM (((fromMaybeJSString . Nullable) <$> (js_getPrefix (self)))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/Attr.prefix Mozilla Attr.prefix documentation> -getPrefix ::- (MonadIO m, FromJSString result) => Attr -> m (Maybe result)-getPrefix self = liftIO (fromMaybeJSString <$> (js_getPrefix self))+-- | <https://developer.mozilla.org/docs/Web/API/Attr/prefix MDN Attr.prefix documentation>+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)) --- | <https://developer.mozilla.org/en-US/docs/Web/API/Attr.prefix Mozilla Attr.prefix documentation> -getPrefixUnsafe ::- (MonadIO m, HasCallStack, FromJSString result) => Attr -> m result-getPrefixUnsafe self- = liftIO- ((fromMaybeJSString <$> (js_getPrefix self)) >>=- maybe (Prelude.error "Nothing to return") return)+-- | <https://developer.mozilla.org/docs/Web/API/Attr/prefix MDN Attr.prefix documentation>+getPrefixUnchecked :: (MonadDOM m, FromJSString result) => Attr -> m result+getPrefixUnchecked self = liftDOM ((pFromJSVal <$> (js_getPrefix (self)))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/Attr.prefix Mozilla Attr.prefix documentation> -getPrefixUnchecked ::- (MonadIO m, FromJSString result) => Attr -> m result-getPrefixUnchecked self- = liftIO (fromJust . fromMaybeJSString <$> (js_getPrefix self))- foreign import javascript unsafe "(($1) => { return $1[\"localName\"]; })" js_getLocalName :: Attr -> IO JSString+-- | <https://developer.mozilla.org/docs/Web/API/Attr/localName MDN Attr.localName documentation>+getLocalName :: (MonadDOM m, FromJSString result) => Attr -> m result+getLocalName self = liftDOM ((fromJSString <$> (js_getLocalName (self)))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/Attr.localName Mozilla Attr.localName documentation> -getLocalName ::- (MonadIO m, FromJSString result) => Attr -> m result-getLocalName self- = liftIO (fromJSString <$> (js_getLocalName self))- -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+-- | <https://developer.mozilla.org/docs/Web/API/Attr/name MDN Attr.name documentation>+getName :: (MonadDOM m, FromJSString result) => Attr -> m result+getName self = liftDOM ((fromJSString <$> (js_getName (self)))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/Attr.name Mozilla Attr.name documentation> -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 ()+-- | <https://developer.mozilla.org/docs/Web/API/Attr/value MDN Attr.value documentation>+setValue :: (MonadDOM m, ToJSString val) => Attr -> val -> m ()+setValue self val = liftDOM (void ((js_setValue (self) (toJSString val)))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/Attr.value Mozilla Attr.value documentation> -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+-- | <https://developer.mozilla.org/docs/Web/API/Attr/value MDN Attr.value documentation>+getValue :: (MonadDOM m, FromJSString result) => Attr -> m result+getValue self = liftDOM ((fromJSString <$> (js_getValue (self)))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/Attr.value Mozilla Attr.value documentation> -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+-- | <https://developer.mozilla.org/docs/Web/API/Attr/ownerElement MDN Attr.ownerElement documentation>+getOwnerElement :: (MonadDOM m) => Attr -> m (Maybe Element)+getOwnerElement self = liftDOM (((js_getOwnerElement (self)) >>= fromJSValUnchecked)) --- | <https://developer.mozilla.org/en-US/docs/Web/API/Attr.ownerElement Mozilla Attr.ownerElement documentation> -getOwnerElement :: (MonadIO m) => Attr -> m (Maybe Element)-getOwnerElement self- = liftIO (nullableToMaybe <$> (js_getOwnerElement self))+-- | <https://developer.mozilla.org/docs/Web/API/Attr/ownerElement MDN Attr.ownerElement documentation>+getOwnerElementUnsafe :: (MonadDOM m, HasCallStack) => Attr -> m Element+getOwnerElementUnsafe self = liftDOM ((((js_getOwnerElement (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) --- | <https://developer.mozilla.org/en-US/docs/Web/API/Attr.ownerElement Mozilla Attr.ownerElement documentation> -getOwnerElementUnsafe ::- (MonadIO m, HasCallStack) => Attr -> m Element-getOwnerElementUnsafe self- = liftIO- ((nullableToMaybe <$> (js_getOwnerElement self)) >>=- maybe (Prelude.error "Nothing to return") return)+-- | <https://developer.mozilla.org/docs/Web/API/Attr/ownerElement MDN Attr.ownerElement documentation>+getOwnerElementUnchecked :: (MonadDOM m) => Attr -> m Element+getOwnerElementUnchecked self = liftDOM ((pFromJSVal <$> (js_getOwnerElement (self)))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/Attr.ownerElement Mozilla Attr.ownerElement documentation> -getOwnerElementUnchecked :: (MonadIO m) => Attr -> m Element-getOwnerElementUnchecked self- = liftIO (fromJust . nullableToMaybe <$> (js_getOwnerElement self))- -foreign import javascript unsafe "(($1) => { return ($1[\"specified\"] ? 1 : 0); })"+foreign import javascript unsafe "(($1) => { return $1[\"specified\"]; })" js_getSpecified :: Attr -> IO Bool---- | <https://developer.mozilla.org/en-US/docs/Web/API/Attr.specified Mozilla Attr.specified documentation> -getSpecified :: (MonadIO m) => Attr -> m Bool-getSpecified self = liftIO (js_getSpecified self)+-- | <https://developer.mozilla.org/docs/Web/API/Attr/specified MDN Attr.specified documentation>+getSpecified :: (MonadDOM m) => Attr -> m Bool+getSpecified self = liftDOM ((js_getSpecified (self)))
@@ -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 --- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioBuffer.getChannelData Mozilla AudioBuffer.getChannelData documentation> -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+-- | <https://developer.mozilla.org/docs/Web/API/AudioBuffer/AudioBuffer MDN AudioBuffer. documentation>+newAudioBuffer :: (MonadDOM m) => AudioBufferOptions -> m AudioBuffer+newAudioBuffer options = liftDOM ((js_newAudioBuffer (options))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioBuffer.getChannelData Mozilla AudioBuffer.getChannelData documentation> -getChannelData_ :: (MonadIO m) => AudioBuffer -> Word -> m ()-getChannelData_ self channelIndex- = liftIO (void (js_getChannelData self channelIndex))- -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 ()+-- | <https://developer.mozilla.org/docs/Web/API/AudioBuffer/copyFromChannel MDN AudioBuffer.copyFromChannel documentation>+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'))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioBuffer.length Mozilla AudioBuffer.length documentation> -getLength :: (MonadIO m) => AudioBuffer -> m Int-getLength self = liftIO (js_getLength self)- -foreign import javascript unsafe "(($1) => { 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 ()+-- | <https://developer.mozilla.org/docs/Web/API/AudioBuffer/copyToChannel MDN AudioBuffer.copyToChannel documentation>+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'))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioBuffer.duration Mozilla AudioBuffer.duration documentation> -getDuration :: (MonadIO m) => AudioBuffer -> m Float-getDuration self = liftIO (js_getDuration self)- +foreign import javascript safe "(($1, $2) => { return $1[\"getChannelData\"]($2); })"+ js_getChannelData :: AudioBuffer -> Word -> IO Float32Array+-- | <https://developer.mozilla.org/docs/Web/API/AudioBuffer/getChannelData MDN AudioBuffer.getChannelData documentation>+getChannelData :: (MonadDOM m) => AudioBuffer -> Word -> m Float32Array+getChannelData self channel = liftDOM ((js_getChannelData (self) (channel)))++-- | <https://developer.mozilla.org/docs/Web/API/AudioBuffer/getChannelData MDN AudioBuffer.getChannelData documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/AudioBuffer/sampleRate MDN AudioBuffer.sampleRate documentation>+getSampleRate :: (MonadDOM m) => AudioBuffer -> m Float+getSampleRate self = liftDOM ((js_getSampleRate (self))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioBuffer.sampleRate Mozilla AudioBuffer.sampleRate documentation> -getSampleRate :: (MonadIO m) => AudioBuffer -> m Float-getSampleRate self = liftIO (js_getSampleRate self)- -foreign import javascript unsafe "(($1, $2) => { $1[\"gain\"] = $2; })" js_setGain ::- AudioBuffer -> Float -> IO ()+foreign import javascript unsafe "(($1) => { return $1[\"length\"]; })"+ js_getLength :: AudioBuffer -> IO Word+-- | <https://developer.mozilla.org/docs/Web/API/AudioBuffer/length MDN AudioBuffer.length documentation>+getLength :: (MonadDOM m) => AudioBuffer -> m Word+getLength self = liftDOM ((js_getLength (self))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioBuffer.gain Mozilla AudioBuffer.gain documentation> -setGain :: (MonadIO m) => AudioBuffer -> Float -> m ()-setGain self val = liftIO (js_setGain self val)- -foreign import javascript unsafe "(($1) => { return $1[\"gain\"]; })" js_getGain ::- AudioBuffer -> IO Float+foreign import javascript unsafe "(($1) => { return $1[\"duration\"]; })"+ js_getDuration :: AudioBuffer -> IO Double+-- | <https://developer.mozilla.org/docs/Web/API/AudioBuffer/duration MDN AudioBuffer.duration documentation>+getDuration :: (MonadDOM m) => AudioBuffer -> m Double+getDuration self = liftDOM ((js_getDuration (self))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioBuffer.gain Mozilla AudioBuffer.gain documentation> -getGain :: (MonadIO m) => AudioBuffer -> m Float-getGain self = liftIO (js_getGain self)- foreign import javascript unsafe "(($1) => { return $1[\"numberOfChannels\"]; })" js_getNumberOfChannels :: AudioBuffer -> IO Word---- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioBuffer.numberOfChannels Mozilla AudioBuffer.numberOfChannels documentation> -getNumberOfChannels :: (MonadIO m) => AudioBuffer -> m Word-getNumberOfChannels self = liftIO (js_getNumberOfChannels self)+-- | <https://developer.mozilla.org/docs/Web/API/AudioBuffer/numberOfChannels MDN AudioBuffer.numberOfChannels documentation>+getNumberOfChannels :: (MonadDOM m) => AudioBuffer -> m Word+getNumberOfChannels self = liftDOM ((js_getNumberOfChannels (self)))
@@ -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---- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioBufferCallback Mozilla AudioBufferCallback documentation> -newAudioBufferCallback ::- (MonadIO m) => (AudioBuffer -> IO ()) -> m AudioBufferCallback-newAudioBufferCallback callback- = liftIO- (AudioBufferCallback <$>- syncCallback1 ThrowWouldBlock- (\ audioBuffer ->- fromJSValUnchecked audioBuffer >>=- \ audioBuffer' -> callback audioBuffer'))---- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioBufferCallback Mozilla AudioBufferCallback documentation> -newAudioBufferCallbackSync ::- (MonadIO m) => (AudioBuffer -> IO ()) -> m AudioBufferCallback-newAudioBufferCallbackSync callback- = liftIO- (AudioBufferCallback <$>- syncCallback1 ContinueAsync- (\ audioBuffer ->- fromJSValUnchecked audioBuffer >>=- \ audioBuffer' -> callback audioBuffer'))---- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioBufferCallback Mozilla AudioBufferCallback documentation> -newAudioBufferCallbackAsync ::- (MonadIO m) => (AudioBuffer -> IO ()) -> m AudioBufferCallback-newAudioBufferCallbackAsync callback- = liftIO- (AudioBufferCallback <$>- asyncCallback1- (\ audioBuffer ->- fromJSValUnchecked audioBuffer >>=- \ audioBuffer' -> callback audioBuffer'))
@@ -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+-- | <https://webaudio.github.io/web-audio-api/#AudioBufferOptions AudioBufferOptions specification>+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 ()+-- | <https://webaudio.github.io/web-audio-api/#dom-audiobufferoptions-numberofchannels AudioBufferOptions.numberOfChannels specification>+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+-- | <https://webaudio.github.io/web-audio-api/#dom-audiobufferoptions-numberofchannels AudioBufferOptions.numberOfChannels specification>+getNumberOfChannels :: (MonadDOM m) => AudioBufferOptions -> m (Maybe Word)+getNumberOfChannels self = liftDOM (((js_getNumberOfChannels (self)) >>= fromJSValUnchecked))++-- | <https://webaudio.github.io/web-audio-api/#dom-audiobufferoptions-numberofchannels AudioBufferOptions.numberOfChannels specification>+getNumberOfChannelsUnsafe :: (MonadDOM m, HasCallStack) => AudioBufferOptions -> m Word+getNumberOfChannelsUnsafe self = liftDOM ((((js_getNumberOfChannels (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://webaudio.github.io/web-audio-api/#dom-audiobufferoptions-numberofchannels AudioBufferOptions.numberOfChannels specification>+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 ()+-- | <https://webaudio.github.io/web-audio-api/#dom-audiobufferoptions-length AudioBufferOptions.length specification>+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+-- | <https://webaudio.github.io/web-audio-api/#dom-audiobufferoptions-length AudioBufferOptions.length specification>+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 ()+-- | <https://webaudio.github.io/web-audio-api/#dom-audiobufferoptions-samplerate AudioBufferOptions.sampleRate specification>+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+-- | <https://webaudio.github.io/web-audio-api/#dom-audiobufferoptions-samplerate AudioBufferOptions.sampleRate specification>+getSampleRate :: (MonadDOM m) => AudioBufferOptions -> m Float+getSampleRate self = liftDOM ((js_getSampleRate (self)))
@@ -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 () --- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioBufferSourceNode.start Mozilla AudioBufferSourceNode.start documentation> -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 ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioBufferSourceNode.stop Mozilla AudioBufferSourceNode.stop documentation> -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+-- | <https://developer.mozilla.org/docs/Web/API/AudioBufferSourceNode/AudioBufferSourceNode MDN AudioBufferSourceNode. documentation>+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')) --- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioBufferSourceNode.buffer Mozilla AudioBufferSourceNode.buffer documentation> -setBuffer ::- (MonadIO m) => AudioBufferSourceNode -> Maybe AudioBuffer -> m ()-setBuffer self val- = liftIO (js_setBuffer self (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 ()+-- | <https://developer.mozilla.org/docs/Web/API/AudioBufferSourceNode/start MDN AudioBufferSourceNode.start documentation>+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'))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioBufferSourceNode.buffer Mozilla AudioBufferSourceNode.buffer documentation> -getBuffer ::- (MonadIO m) => AudioBufferSourceNode -> m (Maybe AudioBuffer)-getBuffer self = liftIO (nullableToMaybe <$> (js_getBuffer self))+foreign import javascript safe "(($1, $2) => { $1[\"buffer\"] = $2; })"+ js_setBuffer :: AudioBufferSourceNode -> JSVal -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/AudioBufferSourceNode/buffer MDN AudioBufferSourceNode.buffer documentation>+setBuffer :: (MonadDOM m) => AudioBufferSourceNode -> Maybe AudioBuffer -> m ()+setBuffer self val = liftDOM (void (((toJSVal val) >>= \a2' -> js_setBuffer (self) a2'))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioBufferSourceNode.buffer Mozilla AudioBufferSourceNode.buffer documentation> -getBufferUnsafe ::- (MonadIO m, HasCallStack) => AudioBufferSourceNode -> m AudioBuffer-getBufferUnsafe self- = liftIO- ((nullableToMaybe <$> (js_getBuffer self)) >>=- maybe (Prelude.error "Nothing to return") return)+foreign import javascript unsafe "(($1) => { return $1[\"buffer\"]; })"+ js_getBuffer :: AudioBufferSourceNode -> IO JSVal+-- | <https://developer.mozilla.org/docs/Web/API/AudioBufferSourceNode/buffer MDN AudioBufferSourceNode.buffer documentation>+getBuffer :: (MonadDOM m) => AudioBufferSourceNode -> m (Maybe AudioBuffer)+getBuffer self = liftDOM (((js_getBuffer (self)) >>= fromJSValUnchecked)) --- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioBufferSourceNode.buffer Mozilla AudioBufferSourceNode.buffer documentation> -getBufferUnchecked ::- (MonadIO m) => AudioBufferSourceNode -> m AudioBuffer-getBufferUnchecked self- = liftIO (fromJust . nullableToMaybe <$> (js_getBuffer self))- -foreign import javascript unsafe "(($1) => { return $1[\"playbackState\"]; })"- js_getPlaybackState :: AudioBufferSourceNode -> IO Word+-- | <https://developer.mozilla.org/docs/Web/API/AudioBufferSourceNode/buffer MDN AudioBufferSourceNode.buffer documentation>+getBufferUnsafe :: (MonadDOM m, HasCallStack) => AudioBufferSourceNode -> m AudioBuffer+getBufferUnsafe self = liftDOM ((((js_getBuffer (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) --- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioBufferSourceNode.playbackState Mozilla AudioBufferSourceNode.playbackState documentation> -getPlaybackState :: (MonadIO m) => AudioBufferSourceNode -> m Word-getPlaybackState self = liftIO (js_getPlaybackState self)- -foreign import javascript unsafe "(($1) => { return $1[\"gain\"]; })" js_getGain ::- AudioBufferSourceNode -> IO AudioParam+-- | <https://developer.mozilla.org/docs/Web/API/AudioBufferSourceNode/buffer MDN AudioBufferSourceNode.buffer documentation>+getBufferUnchecked :: (MonadDOM m) => AudioBufferSourceNode -> m AudioBuffer+getBufferUnchecked self = liftDOM ((pFromJSVal <$> (js_getBuffer (self)))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioBufferSourceNode.gain Mozilla AudioBufferSourceNode.gain documentation> -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+-- | <https://developer.mozilla.org/docs/Web/API/AudioBufferSourceNode/playbackRate MDN AudioBufferSourceNode.playbackRate documentation>+getPlaybackRate :: (MonadDOM m) => AudioBufferSourceNode -> m AudioParam+getPlaybackRate self = liftDOM ((js_getPlaybackRate (self))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioBufferSourceNode.playbackRate Mozilla AudioBufferSourceNode.playbackRate documentation> -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+-- | <https://developer.mozilla.org/docs/Web/API/AudioBufferSourceNode/detune MDN AudioBufferSourceNode.detune documentation>+getDetune :: (MonadDOM m) => AudioBufferSourceNode -> m AudioParam+getDetune self = liftDOM ((js_getDetune (self))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioBufferSourceNode.loop Mozilla AudioBufferSourceNode.loop documentation> -setLoop :: (MonadIO m) => AudioBufferSourceNode -> Bool -> m ()-setLoop self val = liftIO (js_setLoop self val)- -foreign import javascript unsafe "(($1) => { return ($1[\"loop\"] ? 1 : 0); })"+foreign import javascript safe "(($1, $2) => { $1[\"loop\"] = $2; })"+ js_setLoop :: AudioBufferSourceNode -> Bool -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/AudioBufferSourceNode/loop MDN AudioBufferSourceNode.loop documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/AudioBufferSourceNode/loop MDN AudioBufferSourceNode.loop documentation>+getLoop :: (MonadDOM m) => AudioBufferSourceNode -> m Bool+getLoop self = liftDOM ((js_getLoop (self))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioBufferSourceNode.loop Mozilla AudioBufferSourceNode.loop documentation> -getLoop :: (MonadIO m) => AudioBufferSourceNode -> m Bool-getLoop self = liftIO (js_getLoop self)- -foreign import javascript unsafe "(($1, $2) => { $1[\"loopStart\"] = $2; })"+foreign import javascript safe "(($1, $2) => { $1[\"loopStart\"] = $2; })" js_setLoopStart :: AudioBufferSourceNode -> Double -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/AudioBufferSourceNode/loopStart MDN AudioBufferSourceNode.loopStart documentation>+setLoopStart :: (MonadDOM m) => AudioBufferSourceNode -> Double -> m ()+setLoopStart self val = liftDOM (void ((js_setLoopStart (self) (val)))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioBufferSourceNode.loopStart Mozilla AudioBufferSourceNode.loopStart documentation> -setLoopStart ::- (MonadIO m) => AudioBufferSourceNode -> Double -> m ()-setLoopStart self val = liftIO (js_setLoopStart self val)- foreign import javascript unsafe "(($1) => { return $1[\"loopStart\"]; })" js_getLoopStart :: AudioBufferSourceNode -> IO Double+-- | <https://developer.mozilla.org/docs/Web/API/AudioBufferSourceNode/loopStart MDN AudioBufferSourceNode.loopStart documentation>+getLoopStart :: (MonadDOM m) => AudioBufferSourceNode -> m Double+getLoopStart self = liftDOM ((js_getLoopStart (self))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioBufferSourceNode.loopStart Mozilla AudioBufferSourceNode.loopStart documentation> -getLoopStart :: (MonadIO m) => AudioBufferSourceNode -> m Double-getLoopStart self = liftIO (js_getLoopStart self)- -foreign import javascript unsafe "(($1, $2) => { $1[\"loopEnd\"] = $2; })"+foreign import javascript safe "(($1, $2) => { $1[\"loopEnd\"] = $2; })" js_setLoopEnd :: AudioBufferSourceNode -> Double -> IO ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioBufferSourceNode.loopEnd Mozilla AudioBufferSourceNode.loopEnd documentation> -setLoopEnd ::- (MonadIO m) => AudioBufferSourceNode -> Double -> m ()-setLoopEnd self val = liftIO (js_setLoopEnd self val)- -foreign import javascript unsafe "(($1) => { return $1[\"loopEnd\"]; })" js_getLoopEnd ::- AudioBufferSourceNode -> IO Double---- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioBufferSourceNode.loopEnd Mozilla AudioBufferSourceNode.loopEnd documentation> -getLoopEnd :: (MonadIO m) => AudioBufferSourceNode -> m Double-getLoopEnd self = liftIO (js_getLoopEnd self)+-- | <https://developer.mozilla.org/docs/Web/API/AudioBufferSourceNode/loopEnd MDN AudioBufferSourceNode.loopEnd documentation>+setLoopEnd :: (MonadDOM m) => AudioBufferSourceNode -> Double -> m ()+setLoopEnd self val = liftDOM (void ((js_setLoopEnd (self) (val)))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioBufferSourceNode.onended Mozilla AudioBufferSourceNode.onended documentation> -ended :: EventName AudioBufferSourceNode Event-ended = unsafeEventName (toJSString "ended")+foreign import javascript unsafe "(($1) => { return $1[\"loopEnd\"]; })"+ js_getLoopEnd :: AudioBufferSourceNode -> IO Double+-- | <https://developer.mozilla.org/docs/Web/API/AudioBufferSourceNode/loopEnd MDN AudioBufferSourceNode.loopEnd documentation>+getLoopEnd :: (MonadDOM m) => AudioBufferSourceNode -> m Double+getLoopEnd self = liftDOM ((js_getLoopEnd (self)))
@@ -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+-- | <https://webaudio.github.io/web-audio-api/#AudioBufferSourceOptions AudioBufferSourceOptions specification>+newAudioBufferSourceOptions :: (MonadDOM m) => m AudioBufferSourceOptions+newAudioBufferSourceOptions = liftDOM ((js_newAudioBufferSourceOptions))++foreign import javascript safe "(($1, $2) => { $1[\"buffer\"] = $2; })"+ js_setBuffer :: AudioBufferSourceOptions -> JSVal -> IO ()+-- | <https://webaudio.github.io/web-audio-api/#dom-audiobuffersourceoptions-buffer AudioBufferSourceOptions.buffer specification>+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+-- | <https://webaudio.github.io/web-audio-api/#dom-audiobuffersourceoptions-buffer AudioBufferSourceOptions.buffer specification>+getBuffer :: (MonadDOM m) => AudioBufferSourceOptions -> m (Maybe AudioBuffer)+getBuffer self = liftDOM (((js_getBuffer (self)) >>= fromJSValUnchecked))++-- | <https://webaudio.github.io/web-audio-api/#dom-audiobuffersourceoptions-buffer AudioBufferSourceOptions.buffer specification>+getBufferUnsafe :: (MonadDOM m, HasCallStack) => AudioBufferSourceOptions -> m AudioBuffer+getBufferUnsafe self = liftDOM ((((js_getBuffer (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://webaudio.github.io/web-audio-api/#dom-audiobuffersourceoptions-buffer AudioBufferSourceOptions.buffer specification>+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 ()+-- | <https://webaudio.github.io/web-audio-api/#dom-audiobuffersourceoptions-detune AudioBufferSourceOptions.detune specification>+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+-- | <https://webaudio.github.io/web-audio-api/#dom-audiobuffersourceoptions-detune AudioBufferSourceOptions.detune specification>+getDetune :: (MonadDOM m) => AudioBufferSourceOptions -> m (Maybe Float)+getDetune self = liftDOM (((js_getDetune (self)) >>= fromJSValUnchecked))++-- | <https://webaudio.github.io/web-audio-api/#dom-audiobuffersourceoptions-detune AudioBufferSourceOptions.detune specification>+getDetuneUnsafe :: (MonadDOM m, HasCallStack) => AudioBufferSourceOptions -> m Float+getDetuneUnsafe self = liftDOM ((((js_getDetune (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://webaudio.github.io/web-audio-api/#dom-audiobuffersourceoptions-detune AudioBufferSourceOptions.detune specification>+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 ()+-- | <https://webaudio.github.io/web-audio-api/#dom-audiobuffersourceoptions-loop AudioBufferSourceOptions.loop specification>+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+-- | <https://webaudio.github.io/web-audio-api/#dom-audiobuffersourceoptions-loop AudioBufferSourceOptions.loop specification>+getLoop :: (MonadDOM m) => AudioBufferSourceOptions -> m (Maybe Bool)+getLoop self = liftDOM (((js_getLoop (self)) >>= fromJSValUnchecked))++-- | <https://webaudio.github.io/web-audio-api/#dom-audiobuffersourceoptions-loop AudioBufferSourceOptions.loop specification>+getLoopUnsafe :: (MonadDOM m, HasCallStack) => AudioBufferSourceOptions -> m Bool+getLoopUnsafe self = liftDOM ((((js_getLoop (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://webaudio.github.io/web-audio-api/#dom-audiobuffersourceoptions-loop AudioBufferSourceOptions.loop specification>+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 ()+-- | <https://webaudio.github.io/web-audio-api/#dom-audiobuffersourceoptions-loopend AudioBufferSourceOptions.loopEnd specification>+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+-- | <https://webaudio.github.io/web-audio-api/#dom-audiobuffersourceoptions-loopend AudioBufferSourceOptions.loopEnd specification>+getLoopEnd :: (MonadDOM m) => AudioBufferSourceOptions -> m (Maybe Double)+getLoopEnd self = liftDOM (((js_getLoopEnd (self)) >>= fromJSValUnchecked))++-- | <https://webaudio.github.io/web-audio-api/#dom-audiobuffersourceoptions-loopend AudioBufferSourceOptions.loopEnd specification>+getLoopEndUnsafe :: (MonadDOM m, HasCallStack) => AudioBufferSourceOptions -> m Double+getLoopEndUnsafe self = liftDOM ((((js_getLoopEnd (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://webaudio.github.io/web-audio-api/#dom-audiobuffersourceoptions-loopend AudioBufferSourceOptions.loopEnd specification>+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 ()+-- | <https://webaudio.github.io/web-audio-api/#dom-audiobuffersourceoptions-loopstart AudioBufferSourceOptions.loopStart specification>+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+-- | <https://webaudio.github.io/web-audio-api/#dom-audiobuffersourceoptions-loopstart AudioBufferSourceOptions.loopStart specification>+getLoopStart :: (MonadDOM m) => AudioBufferSourceOptions -> m (Maybe Double)+getLoopStart self = liftDOM (((js_getLoopStart (self)) >>= fromJSValUnchecked))++-- | <https://webaudio.github.io/web-audio-api/#dom-audiobuffersourceoptions-loopstart AudioBufferSourceOptions.loopStart specification>+getLoopStartUnsafe :: (MonadDOM m, HasCallStack) => AudioBufferSourceOptions -> m Double+getLoopStartUnsafe self = liftDOM ((((js_getLoopStart (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://webaudio.github.io/web-audio-api/#dom-audiobuffersourceoptions-loopstart AudioBufferSourceOptions.loopStart specification>+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 ()+-- | <https://webaudio.github.io/web-audio-api/#dom-audiobuffersourceoptions-playbackrate AudioBufferSourceOptions.playbackRate specification>+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+-- | <https://webaudio.github.io/web-audio-api/#dom-audiobuffersourceoptions-playbackrate AudioBufferSourceOptions.playbackRate specification>+getPlaybackRate :: (MonadDOM m) => AudioBufferSourceOptions -> m (Maybe Float)+getPlaybackRate self = liftDOM (((js_getPlaybackRate (self)) >>= fromJSValUnchecked))++-- | <https://webaudio.github.io/web-audio-api/#dom-audiobuffersourceoptions-playbackrate AudioBufferSourceOptions.playbackRate specification>+getPlaybackRateUnsafe :: (MonadDOM m, HasCallStack) => AudioBufferSourceOptions -> m Float+getPlaybackRateUnsafe self = liftDOM ((((js_getPlaybackRate (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://webaudio.github.io/web-audio-api/#dom-audiobuffersourceoptions-playbackrate AudioBufferSourceOptions.playbackRate specification>+getPlaybackRateUnchecked :: (MonadDOM m) => AudioBufferSourceOptions -> m Float+getPlaybackRateUnchecked self = liftDOM ((pFromJSVal <$> (js_getPlaybackRate (self))))
@@ -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+-- | <https://w3c.github.io/media-capabilities/#dictdef-audioconfiguration AudioConfiguration specification>+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 ()+-- | <https://w3c.github.io/media-capabilities/#dom-audioconfiguration-contenttype AudioConfiguration.contentType specification>+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+-- | <https://w3c.github.io/media-capabilities/#dom-audioconfiguration-contenttype AudioConfiguration.contentType specification>+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 ()+-- | <https://w3c.github.io/media-capabilities/#dom-audioconfiguration-channels AudioConfiguration.channels specification>+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+-- | <https://w3c.github.io/media-capabilities/#dom-audioconfiguration-channels AudioConfiguration.channels specification>+getChannels :: (MonadDOM m, FromJSString result) => AudioConfiguration -> m (Maybe result)+getChannels self = liftDOM (((fromMaybeJSString . Nullable) <$> (js_getChannels (self))))++-- | <https://w3c.github.io/media-capabilities/#dom-audioconfiguration-channels AudioConfiguration.channels specification>+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))++-- | <https://w3c.github.io/media-capabilities/#dom-audioconfiguration-channels AudioConfiguration.channels specification>+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 ()+-- | <https://w3c.github.io/media-capabilities/#dom-audioconfiguration-bitrate AudioConfiguration.bitrate specification>+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+-- | <https://w3c.github.io/media-capabilities/#dom-audioconfiguration-bitrate AudioConfiguration.bitrate specification>+getBitrate :: (MonadDOM m) => AudioConfiguration -> m (Maybe Word53)+getBitrate self = liftDOM (((js_getBitrate (self)) >>= fromJSValUnchecked))++-- | <https://w3c.github.io/media-capabilities/#dom-audioconfiguration-bitrate AudioConfiguration.bitrate specification>+getBitrateUnsafe :: (MonadDOM m, HasCallStack) => AudioConfiguration -> m Word53+getBitrateUnsafe self = liftDOM ((((js_getBitrate (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://w3c.github.io/media-capabilities/#dom-audioconfiguration-bitrate AudioConfiguration.bitrate specification>+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 ()+-- | <https://w3c.github.io/media-capabilities/#dom-audioconfiguration-samplerate AudioConfiguration.samplerate specification>+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+-- | <https://w3c.github.io/media-capabilities/#dom-audioconfiguration-samplerate AudioConfiguration.samplerate specification>+getSamplerate :: (MonadDOM m) => AudioConfiguration -> m (Maybe Word)+getSamplerate self = liftDOM (((js_getSamplerate (self)) >>= fromJSValUnchecked))++-- | <https://w3c.github.io/media-capabilities/#dom-audioconfiguration-samplerate AudioConfiguration.samplerate specification>+getSamplerateUnsafe :: (MonadDOM m, HasCallStack) => AudioConfiguration -> m Word+getSamplerateUnsafe self = liftDOM ((((js_getSamplerate (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://w3c.github.io/media-capabilities/#dom-audioconfiguration-samplerate AudioConfiguration.samplerate specification>+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 ()+-- | <https://w3c.github.io/media-capabilities/#dom-audioconfiguration-spatialrendering AudioConfiguration.spatialRendering specification>+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+-- | <https://w3c.github.io/media-capabilities/#dom-audioconfiguration-spatialrendering AudioConfiguration.spatialRendering specification>+getSpatialRendering :: (MonadDOM m) => AudioConfiguration -> m (Maybe Bool)+getSpatialRendering self = liftDOM (((js_getSpatialRendering (self)) >>= fromJSValUnchecked))++-- | <https://w3c.github.io/media-capabilities/#dom-audioconfiguration-spatialrendering AudioConfiguration.spatialRendering specification>+getSpatialRenderingUnsafe :: (MonadDOM m, HasCallStack) => AudioConfiguration -> m Bool+getSpatialRenderingUnsafe self = liftDOM ((((js_getSpatialRendering (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://w3c.github.io/media-capabilities/#dom-audioconfiguration-spatialrendering AudioConfiguration.spatialRendering specification>+getSpatialRenderingUnchecked :: (MonadDOM m) => AudioConfiguration -> m Bool+getSpatialRenderingUnchecked self = liftDOM ((pFromJSVal <$> (js_getSpatialRendering (self))))
@@ -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 --- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext Mozilla AudioContext documentation> -newAudioContext :: (MonadIO m) => m AudioContext-newAudioContext = liftIO (js_newAudioContext)- -foreign import javascript interruptible- "(($1, $c) => { return $1[\"suspend\"]().then(function(s) { $c(null, s);}, function(e) { $c(e, null);}); })"- js_suspend :: AudioContext -> IO JSVal---- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.suspend Mozilla AudioContext.suspend documentation> -suspend :: (MonadIO m, IsAudioContext self) => self -> m ()-suspend self- = liftIO- ((js_suspend (toAudioContext self)) >>= 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---- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.resume Mozilla AudioContext.resume documentation> -resume :: (MonadIO m, IsAudioContext self) => self -> m ()-resume self- = liftIO- ((js_resume (toAudioContext self)) >>= 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---- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.close Mozilla AudioContext.close documentation> -close :: (MonadIO m, IsAudioContext self) => self -> m ()-close self- = liftIO- ((js_close (toAudioContext self)) >>= maybeThrowPromiseRejected)- -foreign import javascript safe "(($1, $2, $3, $4) => { return $1[\"createBuffer\"]($2, $3, $4); })"- js_createBuffer ::- AudioContext -> Word -> Word -> Float -> IO AudioBuffer---- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.createBuffer Mozilla AudioContext.createBuffer documentation> -createBuffer ::- (MonadIO m, IsAudioContext self) =>- self -> Word -> Word -> Float -> m AudioBuffer-createBuffer self numberOfChannels numberOfFrames sampleRate- = liftIO- (js_createBuffer (toAudioContext self) numberOfChannels- numberOfFrames- sampleRate)---- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.createBuffer Mozilla AudioContext.createBuffer documentation> -createBuffer_ ::- (MonadIO m, IsAudioContext self) =>- self -> Word -> Word -> Float -> m ()-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---- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.createBuffer Mozilla AudioContext.createBuffer documentation> -createBufferFromArrayBuffer ::- (MonadIO m, IsAudioContext self, IsArrayBuffer buffer) =>- self -> buffer -> Bool -> m AudioBuffer-createBufferFromArrayBuffer self buffer mixToMono- = liftIO- (js_createBufferFromArrayBuffer (toAudioContext self)- (toArrayBuffer buffer)- mixToMono)---- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.createBuffer Mozilla AudioContext.createBuffer documentation> -createBufferFromArrayBuffer_ ::- (MonadIO m, IsAudioContext self, IsArrayBuffer buffer) =>- self -> 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 ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.decodeAudioData Mozilla AudioContext.decodeAudioData documentation> -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---- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.createBufferSource Mozilla AudioContext.createBufferSource documentation> -createBufferSource ::- (MonadIO m, IsAudioContext self) => self -> m AudioBufferSourceNode-createBufferSource self- = liftIO (js_createBufferSource (toAudioContext self))---- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.createBufferSource Mozilla AudioContext.createBufferSource documentation> -createBufferSource_ ::- (MonadIO m, IsAudioContext self) => self -> m ()-createBufferSource_ self- = liftIO (void (js_createBufferSource (toAudioContext self)))- -foreign import javascript safe- "(($1, $2) => { return $1[\"createMediaElementSource\"]($2); })" js_createMediaElementSource- ::- AudioContext -> HTMLMediaElement -> IO MediaElementAudioSourceNode---- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.createMediaElementSource Mozilla AudioContext.createMediaElementSource documentation> -createMediaElementSource ::- (MonadIO m, IsAudioContext self,- IsHTMLMediaElement mediaElement) =>- self -> mediaElement -> m MediaElementAudioSourceNode-createMediaElementSource self mediaElement- = liftIO- (js_createMediaElementSource (toAudioContext self)- (toHTMLMediaElement mediaElement))---- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.createMediaElementSource Mozilla AudioContext.createMediaElementSource documentation> -createMediaElementSource_ ::- (MonadIO m, IsAudioContext self,- IsHTMLMediaElement mediaElement) =>- self -> 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---- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.createMediaStreamSource Mozilla AudioContext.createMediaStreamSource documentation> -createMediaStreamSource ::- (MonadIO m, IsAudioContext self) =>- self -> MediaStream -> m MediaStreamAudioSourceNode-createMediaStreamSource self mediaStream- = liftIO- (js_createMediaStreamSource (toAudioContext self) mediaStream)---- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.createMediaStreamSource Mozilla AudioContext.createMediaStreamSource documentation> -createMediaStreamSource_ ::- (MonadIO m, IsAudioContext self) => self -> 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---- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.createMediaStreamDestination Mozilla AudioContext.createMediaStreamDestination documentation> -createMediaStreamDestination ::- (MonadIO m, IsAudioContext self) =>- self -> m MediaStreamAudioDestinationNode-createMediaStreamDestination self- = liftIO (js_createMediaStreamDestination (toAudioContext self))---- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.createMediaStreamDestination Mozilla AudioContext.createMediaStreamDestination documentation> -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---- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.createGain Mozilla AudioContext.createGain documentation> -createGain ::- (MonadIO m, IsAudioContext self) => self -> m GainNode-createGain self = liftIO (js_createGain (toAudioContext self))---- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.createGain Mozilla AudioContext.createGain documentation> -createGain_ :: (MonadIO m, IsAudioContext self) => self -> m ()-createGain_ self- = liftIO (void (js_createGain (toAudioContext self)))- -foreign import javascript safe "(($1, $2) => { return $1[\"createDelay\"]($2); })"- js_createDelay :: AudioContext -> Optional Double -> IO DelayNode---- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.createDelay Mozilla AudioContext.createDelay documentation> -createDelay ::- (MonadIO m, IsAudioContext self) =>- self -> Maybe Double -> m DelayNode-createDelay self maxDelayTime- = liftIO- (js_createDelay (toAudioContext self)- (maybeToOptional maxDelayTime))---- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.createDelay Mozilla AudioContext.createDelay documentation> -createDelay_ ::- (MonadIO m, IsAudioContext self) => self -> 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---- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.createBiquadFilter Mozilla AudioContext.createBiquadFilter documentation> -createBiquadFilter ::- (MonadIO m, IsAudioContext self) => self -> m BiquadFilterNode-createBiquadFilter self- = liftIO (js_createBiquadFilter (toAudioContext self))---- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.createBiquadFilter Mozilla AudioContext.createBiquadFilter documentation> -createBiquadFilter_ ::- (MonadIO m, IsAudioContext self) => self -> m ()-createBiquadFilter_ self- = liftIO (void (js_createBiquadFilter (toAudioContext self)))- -foreign import javascript unsafe "(($1) => { return $1[\"createWaveShaper\"](); })"- js_createWaveShaper :: AudioContext -> IO WaveShaperNode---- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.createWaveShaper Mozilla AudioContext.createWaveShaper documentation> -createWaveShaper ::- (MonadIO m, IsAudioContext self) => self -> m WaveShaperNode-createWaveShaper self- = liftIO (js_createWaveShaper (toAudioContext self))---- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.createWaveShaper Mozilla AudioContext.createWaveShaper documentation> -createWaveShaper_ ::- (MonadIO m, IsAudioContext self) => self -> m ()-createWaveShaper_ self- = liftIO (void (js_createWaveShaper (toAudioContext self)))- -foreign import javascript unsafe "(($1) => { return $1[\"createPanner\"](); })"- js_createPanner :: AudioContext -> IO PannerNode---- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.createPanner Mozilla AudioContext.createPanner documentation> -createPanner ::- (MonadIO m, IsAudioContext self) => self -> m PannerNode-createPanner self = liftIO (js_createPanner (toAudioContext self))---- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.createPanner Mozilla AudioContext.createPanner documentation> -createPanner_ :: (MonadIO m, IsAudioContext self) => self -> m ()-createPanner_ self- = liftIO (void (js_createPanner (toAudioContext self)))- -foreign import javascript unsafe "(($1) => { return $1[\"createConvolver\"](); })"- js_createConvolver :: AudioContext -> IO ConvolverNode---- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.createConvolver Mozilla AudioContext.createConvolver documentation> -createConvolver ::- (MonadIO m, IsAudioContext self) => self -> m ConvolverNode-createConvolver self- = liftIO (js_createConvolver (toAudioContext self))---- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.createConvolver Mozilla AudioContext.createConvolver documentation> -createConvolver_ ::- (MonadIO m, IsAudioContext self) => self -> m ()-createConvolver_ self- = liftIO (void (js_createConvolver (toAudioContext self)))- -foreign import javascript unsafe- "(($1) => { return $1[\"createDynamicsCompressor\"](); })" js_createDynamicsCompressor ::- AudioContext -> IO DynamicsCompressorNode---- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.createDynamicsCompressor Mozilla AudioContext.createDynamicsCompressor documentation> -createDynamicsCompressor ::- (MonadIO m, IsAudioContext self) =>- self -> m DynamicsCompressorNode-createDynamicsCompressor self- = liftIO (js_createDynamicsCompressor (toAudioContext self))---- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.createDynamicsCompressor Mozilla AudioContext.createDynamicsCompressor documentation> -createDynamicsCompressor_ ::- (MonadIO m, IsAudioContext self) => self -> m ()-createDynamicsCompressor_ self- = liftIO (void (js_createDynamicsCompressor (toAudioContext self)))- -foreign import javascript unsafe "(($1) => { return $1[\"createAnalyser\"](); })"- js_createAnalyser :: AudioContext -> IO AnalyserNode---- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.createAnalyser Mozilla AudioContext.createAnalyser documentation> -createAnalyser ::- (MonadIO m, IsAudioContext self) => self -> m AnalyserNode-createAnalyser self- = liftIO (js_createAnalyser (toAudioContext self))---- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.createAnalyser Mozilla AudioContext.createAnalyser documentation> -createAnalyser_ :: (MonadIO m, IsAudioContext self) => self -> m ()-createAnalyser_ self- = liftIO (void (js_createAnalyser (toAudioContext self)))- -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---- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.createScriptProcessor Mozilla AudioContext.createScriptProcessor documentation> -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))---- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.createScriptProcessor Mozilla AudioContext.createScriptProcessor documentation> -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---- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.createOscillator Mozilla AudioContext.createOscillator documentation> -createOscillator ::- (MonadIO m, IsAudioContext self) => self -> m OscillatorNode-createOscillator self- = liftIO (js_createOscillator (toAudioContext self))---- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.createOscillator Mozilla AudioContext.createOscillator documentation> -createOscillator_ ::- (MonadIO m, IsAudioContext self) => self -> m ()-createOscillator_ self- = liftIO (void (js_createOscillator (toAudioContext self)))- -foreign import javascript safe "(($1, $2, $3) => { return $1[\"createPeriodicWave\"]($2, $3); })"- js_createPeriodicWave ::- AudioContext -> Float32Array -> Float32Array -> IO PeriodicWave---- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.createPeriodicWave Mozilla AudioContext.createPeriodicWave documentation> -createPeriodicWave ::- (MonadIO m, IsAudioContext self, IsFloat32Array real,- IsFloat32Array imag) =>- self -> 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+-- | <https://developer.mozilla.org/docs/Web/API/AudioContext/AudioContext MDN AudioContext. documentation>+newAudioContext :: (MonadDOM m) => m AudioContext+newAudioContext = liftDOM ((js_newAudioContext)) --- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.createPeriodicWave Mozilla AudioContext.createPeriodicWave documentation> -createPeriodicWave_ ::- (MonadIO m, IsAudioContext self, IsFloat32Array real,- IsFloat32Array imag) =>- self -> 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+-- | <https://developer.mozilla.org/docs/Web/API/AudioContext/AudioContext MDN AudioContext. documentation>+newAudioContext' :: (MonadDOM m) => Maybe AudioContextOptions -> m AudioContext+newAudioContext' contextOptions = liftDOM (((P.maybe (P.return jsUndefined) toJSVal contextOptions) >>= \a1' -> js_newAudioContext' a1')) --- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.createChannelSplitter Mozilla AudioContext.createChannelSplitter documentation> -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, ())+-- | <https://developer.mozilla.org/docs/Web/API/AudioContext/close MDN AudioContext.close documentation>+close :: (MonadDOM m) => AudioContext -> m ()+close self = liftDOM (void (((js_close (self)) >>= checkPromiseResult))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.createChannelSplitter Mozilla AudioContext.createChannelSplitter documentation> -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+-- | <https://developer.mozilla.org/docs/Web/API/AudioContext/createMediaElementSource MDN AudioContext.createMediaElementSource documentation>+createMediaElementSource :: (MonadDOM m, IsHTMLMediaElement mediaElement) => AudioContext -> mediaElement -> m MediaElementAudioSourceNode+createMediaElementSource self mediaElement = liftDOM ((js_createMediaElementSource (self) (Types.toHTMLMediaElement mediaElement))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.createChannelMerger Mozilla AudioContext.createChannelMerger documentation> -createChannelMerger ::- (MonadIO m, IsAudioContext self) =>- self -> Maybe Word -> m ChannelMergerNode-createChannelMerger self numberOfInputs- = liftIO- (js_createChannelMerger (toAudioContext self)- (maybeToOptional numberOfInputs))+-- | <https://developer.mozilla.org/docs/Web/API/AudioContext/createMediaElementSource MDN AudioContext.createMediaElementSource documentation>+createMediaElementSource_ :: (MonadDOM m, IsHTMLMediaElement mediaElement) => AudioContext -> mediaElement -> m ()+createMediaElementSource_ self mediaElement = liftDOM (void ((js_createMediaElementSource (self) (Types.toHTMLMediaElement mediaElement)))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.createChannelMerger Mozilla AudioContext.createChannelMerger documentation> -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+-- | <https://developer.mozilla.org/docs/Web/API/AudioContext/createMediaStreamDestination MDN AudioContext.createMediaStreamDestination documentation>+createMediaStreamDestination :: (MonadDOM m) => AudioContext -> m MediaStreamAudioDestinationNode+createMediaStreamDestination self = liftDOM ((js_createMediaStreamDestination (self))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.startRendering Mozilla AudioContext.startRendering documentation> -startRendering :: (MonadIO m, IsAudioContext self) => self -> m ()-startRendering self- = liftIO (js_startRendering (toAudioContext self))- -foreign import javascript unsafe "(($1) => { return $1[\"destination\"]; })"- js_getDestination :: AudioContext -> IO AudioDestinationNode+-- | <https://developer.mozilla.org/docs/Web/API/AudioContext/createMediaStreamDestination MDN AudioContext.createMediaStreamDestination documentation>+createMediaStreamDestination_ :: (MonadDOM m) => AudioContext -> m ()+createMediaStreamDestination_ self = liftDOM (void ((js_createMediaStreamDestination (self)))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.destination Mozilla AudioContext.destination documentation> -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+-- | <https://developer.mozilla.org/docs/Web/API/AudioContext/createMediaStreamSource MDN AudioContext.createMediaStreamSource documentation>+createMediaStreamSource :: (MonadDOM m) => AudioContext -> MediaStream -> m MediaStreamAudioSourceNode+createMediaStreamSource self mediaStream = liftDOM ((js_createMediaStreamSource (self) (mediaStream))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.currentTime Mozilla AudioContext.currentTime documentation> -getCurrentTime ::- (MonadIO m, IsAudioContext self) => self -> m Double-getCurrentTime self- = liftIO (js_getCurrentTime (toAudioContext self))- -foreign import javascript unsafe "(($1) => { return $1[\"sampleRate\"]; })"- js_getSampleRate :: AudioContext -> IO Float+-- | <https://developer.mozilla.org/docs/Web/API/AudioContext/createMediaStreamSource MDN AudioContext.createMediaStreamSource documentation>+createMediaStreamSource_ :: (MonadDOM m) => AudioContext -> MediaStream -> m ()+createMediaStreamSource_ self mediaStream = liftDOM (void ((js_createMediaStreamSource (self) (mediaStream)))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.sampleRate Mozilla AudioContext.sampleRate documentation> -getSampleRate ::- (MonadIO m, IsAudioContext self) => self -> m Float-getSampleRate self- = liftIO (js_getSampleRate (toAudioContext self))- -foreign import javascript unsafe "(($1) => { return $1[\"listener\"]; })" js_getListener- :: AudioContext -> IO AudioListener+foreign import javascript safe "(($1) => { return $1[\"getOutputTimestamp\"](); })"+ js_getOutputTimestamp :: AudioContext -> IO AudioTimestamp+-- | <https://developer.mozilla.org/docs/Web/API/AudioContext/getOutputTimestamp MDN AudioContext.getOutputTimestamp documentation>+getOutputTimestamp :: (MonadDOM m) => AudioContext -> m AudioTimestamp+getOutputTimestamp self = liftDOM ((js_getOutputTimestamp (self))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.listener Mozilla AudioContext.listener documentation> -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+-- | <https://developer.mozilla.org/docs/Web/API/AudioContext/getOutputTimestamp MDN AudioContext.getOutputTimestamp documentation>+getOutputTimestamp_ :: (MonadDOM m) => AudioContext -> m ()+getOutputTimestamp_ self = liftDOM (void ((js_getOutputTimestamp (self)))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.state Mozilla AudioContext.state documentation> -getState ::- (MonadIO m, IsAudioContext self) => self -> m AudioContextState-getState self- = liftIO- ((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, ())+-- | <https://developer.mozilla.org/docs/Web/API/AudioContext/resume MDN AudioContext.resume documentation>+resume :: (MonadDOM m) => AudioContext -> m ()+resume self = liftDOM (void (((js_resume (self)) >>= checkPromiseResult))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.onstatechange Mozilla AudioContext.onstatechange documentation> -statechange ::- (IsAudioContext self, IsEventTarget self) =>- EventName self onstatechange-statechange = unsafeEventName (toJSString "statechange")- -foreign import javascript unsafe "(($1) => { 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, ())+-- | <https://developer.mozilla.org/docs/Web/API/AudioContext/suspend MDN AudioContext.suspend documentation>+suspend :: (MonadDOM m) => AudioContext -> m ()+suspend self = liftDOM (void (((js_suspend (self)) >>= checkPromiseResult))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.activeSourceCount Mozilla AudioContext.activeSourceCount documentation> -getActiveSourceCount ::- (MonadIO m, IsAudioContext self) => self -> m Word-getActiveSourceCount self- = liftIO (js_getActiveSourceCount (toAudioContext self))+foreign import javascript unsafe "(($1) => { return $1[\"baseLatency\"]; })"+ js_getBaseLatency :: AudioContext -> IO Double+-- | <https://developer.mozilla.org/docs/Web/API/AudioContext/baseLatency MDN AudioContext.baseLatency documentation>+getBaseLatency :: (MonadDOM m) => AudioContext -> m Double+getBaseLatency self = liftDOM ((js_getBaseLatency (self))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.oncomplete Mozilla AudioContext.oncomplete documentation> -complete ::- (IsAudioContext self, IsEventTarget self) =>- EventName self OfflineAudioCompletionEvent-complete = unsafeEventName (toJSString "complete")+foreign import javascript unsafe "(($1) => { return $1[\"outputLatency\"]; })"+ js_getOutputLatency :: AudioContext -> IO Double+-- | <https://developer.mozilla.org/docs/Web/API/AudioContext/outputLatency MDN AudioContext.outputLatency documentation>+getOutputLatency :: (MonadDOM m) => AudioContext -> m Double+getOutputLatency self = liftDOM ((js_getOutputLatency (self)))
@@ -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+-- | <https://webaudio.github.io/web-audio-api/#AudioContextOptions AudioContextOptions specification>+newAudioContextOptions :: (MonadDOM m) => m AudioContextOptions+newAudioContextOptions = liftDOM ((js_newAudioContextOptions))++foreign import javascript safe "(($1, $2) => { $1[\"latencyHint\"] = $2; })"+ js_setLatencyHint :: AudioContextOptions -> AudioContextLatencyCategoryOrDouble -> IO ()+-- | <https://webaudio.github.io/web-audio-api/#dom-audiocontextoptions-latencyhint AudioContextOptions.latencyHint specification>+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+-- | <https://webaudio.github.io/web-audio-api/#dom-audiocontextoptions-latencyhint AudioContextOptions.latencyHint specification>+getLatencyHint :: (MonadDOM m) => AudioContextOptions -> m (Maybe AudioContextLatencyCategoryOrDouble)+getLatencyHint self = liftDOM (((js_getLatencyHint (self)) >>= fromJSValUnchecked))++-- | <https://webaudio.github.io/web-audio-api/#dom-audiocontextoptions-latencyhint AudioContextOptions.latencyHint specification>+getLatencyHintUnsafe :: (MonadDOM m, HasCallStack) => AudioContextOptions -> m AudioContextLatencyCategoryOrDouble+getLatencyHintUnsafe self = liftDOM ((((js_getLatencyHint (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://webaudio.github.io/web-audio-api/#dom-audiocontextoptions-latencyhint AudioContextOptions.latencyHint specification>+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 ()+-- | <https://webaudio.github.io/web-audio-api/#dom-audiocontextoptions-samplerate AudioContextOptions.sampleRate specification>+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+-- | <https://webaudio.github.io/web-audio-api/#dom-audiocontextoptions-samplerate AudioContextOptions.sampleRate specification>+getSampleRate :: (MonadDOM m) => AudioContextOptions -> m (Maybe Float)+getSampleRate self = liftDOM (((js_getSampleRate (self)) >>= fromJSValUnchecked))++-- | <https://webaudio.github.io/web-audio-api/#dom-audiocontextoptions-samplerate AudioContextOptions.sampleRate specification>+getSampleRateUnsafe :: (MonadDOM m, HasCallStack) => AudioContextOptions -> m Float+getSampleRateUnsafe self = liftDOM ((((js_getSampleRate (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://webaudio.github.io/web-audio-api/#dom-audiocontextoptions-samplerate AudioContextOptions.sampleRate specification>+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 ()+-- | <https://webaudio.github.io/web-audio-api/#dom-audiocontextoptions-sinkid AudioContextOptions.sinkId specification>+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+-- | <https://webaudio.github.io/web-audio-api/#dom-audiocontextoptions-sinkid AudioContextOptions.sinkId specification>+getSinkId :: (MonadDOM m) => AudioContextOptions -> m (Maybe StringOrAudioSinkOptions)+getSinkId self = liftDOM (((js_getSinkId (self)) >>= fromJSValUnchecked))++-- | <https://webaudio.github.io/web-audio-api/#dom-audiocontextoptions-sinkid AudioContextOptions.sinkId specification>+getSinkIdUnsafe :: (MonadDOM m, HasCallStack) => AudioContextOptions -> m StringOrAudioSinkOptions+getSinkIdUnsafe self = liftDOM ((((js_getSinkId (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://webaudio.github.io/web-audio-api/#dom-audiocontextoptions-sinkid AudioContextOptions.sinkId specification>+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 ()+-- | <https://webaudio.github.io/web-audio-api/#dom-audiocontextoptions-rendersizehint AudioContextOptions.renderSizeHint specification>+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+-- | <https://webaudio.github.io/web-audio-api/#dom-audiocontextoptions-rendersizehint AudioContextOptions.renderSizeHint specification>+getRenderSizeHint :: (MonadDOM m) => AudioContextOptions -> m (Maybe AudioContextRenderSizeCategoryOrWord)+getRenderSizeHint self = liftDOM (((js_getRenderSizeHint (self)) >>= fromJSValUnchecked))++-- | <https://webaudio.github.io/web-audio-api/#dom-audiocontextoptions-rendersizehint AudioContextOptions.renderSizeHint specification>+getRenderSizeHintUnsafe :: (MonadDOM m, HasCallStack) => AudioContextOptions -> m AudioContextRenderSizeCategoryOrWord+getRenderSizeHintUnsafe self = liftDOM ((((js_getRenderSizeHint (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://webaudio.github.io/web-audio-api/#dom-audiocontextoptions-rendersizehint AudioContextOptions.renderSizeHint specification>+getRenderSizeHintUnchecked :: (MonadDOM m) => AudioContextOptions -> m AudioContextRenderSizeCategoryOrWord+getRenderSizeHintUnchecked self = liftDOM ((pFromJSVal <$> (js_getRenderSizeHint (self))))
@@ -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+-- | <https://developer.mozilla.org/docs/Web/API/AudioData/AudioData MDN AudioData. documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/AudioData/allocationSize MDN AudioData.allocationSize documentation>+allocationSize :: (MonadDOM m) => AudioData -> AudioDataCopyToOptions -> m Word+allocationSize self options = liftDOM ((js_allocationSize (self) (options)))++-- | <https://developer.mozilla.org/docs/Web/API/AudioData/allocationSize MDN AudioData.allocationSize documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/AudioData/clone MDN AudioData.clone documentation>+clone :: (MonadDOM m) => AudioData -> m AudioData+clone self = liftDOM ((js_clone (self)))++-- | <https://developer.mozilla.org/docs/Web/API/AudioData/clone MDN AudioData.clone documentation>+clone_ :: (MonadDOM m) => AudioData -> m ()+clone_ self = liftDOM (void ((js_clone (self))))++foreign import javascript safe "(($1) => { return $1[\"close\"](); })"+ js_close :: AudioData -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/AudioData/close MDN AudioData.close documentation>+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 ()+-- | <https://developer.mozilla.org/docs/Web/API/AudioData/copyTo MDN AudioData.copyTo documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/AudioData/format MDN AudioData.format documentation>+getFormat :: (MonadDOM m) => AudioData -> m (Maybe AudioSampleFormat)+getFormat self = liftDOM (((js_getFormat (self)) >>= fromJSValUnchecked))++-- | <https://developer.mozilla.org/docs/Web/API/AudioData/format MDN AudioData.format documentation>+getFormatUnsafe :: (MonadDOM m, HasCallStack) => AudioData -> m AudioSampleFormat+getFormatUnsafe self = liftDOM ((((js_getFormat (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://developer.mozilla.org/docs/Web/API/AudioData/format MDN AudioData.format documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/AudioData/sampleRate MDN AudioData.sampleRate documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/AudioData/numberOfFrames MDN AudioData.numberOfFrames documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/AudioData/numberOfChannels MDN AudioData.numberOfChannels documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/AudioData/duration MDN AudioData.duration documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/AudioData/timestamp MDN AudioData.timestamp documentation>+getTimestamp :: (MonadDOM m) => AudioData -> m Int53+getTimestamp self = liftDOM (((js_getTimestamp (self)) >>= fromJSValUnchecked))
@@ -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+-- | <https://w3c.github.io/webcodecs/#dictdef-audiodatacopytooptions AudioDataCopyToOptions specification>+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 ()+-- | <https://w3c.github.io/webcodecs/#dom-audiodatacopytooptions-planeindex AudioDataCopyToOptions.planeIndex specification>+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+-- | <https://w3c.github.io/webcodecs/#dom-audiodatacopytooptions-planeindex AudioDataCopyToOptions.planeIndex specification>+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 ()+-- | <https://w3c.github.io/webcodecs/#dom-audiodatacopytooptions-frameoffset AudioDataCopyToOptions.frameOffset specification>+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+-- | <https://w3c.github.io/webcodecs/#dom-audiodatacopytooptions-frameoffset AudioDataCopyToOptions.frameOffset specification>+getFrameOffset :: (MonadDOM m) => AudioDataCopyToOptions -> m (Maybe Word)+getFrameOffset self = liftDOM (((js_getFrameOffset (self)) >>= fromJSValUnchecked))++-- | <https://w3c.github.io/webcodecs/#dom-audiodatacopytooptions-frameoffset AudioDataCopyToOptions.frameOffset specification>+getFrameOffsetUnsafe :: (MonadDOM m, HasCallStack) => AudioDataCopyToOptions -> m Word+getFrameOffsetUnsafe self = liftDOM ((((js_getFrameOffset (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://w3c.github.io/webcodecs/#dom-audiodatacopytooptions-frameoffset AudioDataCopyToOptions.frameOffset specification>+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 ()+-- | <https://w3c.github.io/webcodecs/#dom-audiodatacopytooptions-framecount AudioDataCopyToOptions.frameCount specification>+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+-- | <https://w3c.github.io/webcodecs/#dom-audiodatacopytooptions-framecount AudioDataCopyToOptions.frameCount specification>+getFrameCount :: (MonadDOM m) => AudioDataCopyToOptions -> m (Maybe Word)+getFrameCount self = liftDOM (((js_getFrameCount (self)) >>= fromJSValUnchecked))++-- | <https://w3c.github.io/webcodecs/#dom-audiodatacopytooptions-framecount AudioDataCopyToOptions.frameCount specification>+getFrameCountUnsafe :: (MonadDOM m, HasCallStack) => AudioDataCopyToOptions -> m Word+getFrameCountUnsafe self = liftDOM ((((js_getFrameCount (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://w3c.github.io/webcodecs/#dom-audiodatacopytooptions-framecount AudioDataCopyToOptions.frameCount specification>+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 ()+-- | <https://w3c.github.io/webcodecs/#dom-audiodatacopytooptions-format AudioDataCopyToOptions.format specification>+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+-- | <https://w3c.github.io/webcodecs/#dom-audiodatacopytooptions-format AudioDataCopyToOptions.format specification>+getFormat :: (MonadDOM m) => AudioDataCopyToOptions -> m (Maybe AudioSampleFormat)+getFormat self = liftDOM (((js_getFormat (self)) >>= fromJSValUnchecked))++-- | <https://w3c.github.io/webcodecs/#dom-audiodatacopytooptions-format AudioDataCopyToOptions.format specification>+getFormatUnsafe :: (MonadDOM m, HasCallStack) => AudioDataCopyToOptions -> m AudioSampleFormat+getFormatUnsafe self = liftDOM ((((js_getFormat (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://w3c.github.io/webcodecs/#dom-audiodatacopytooptions-format AudioDataCopyToOptions.format specification>+getFormatUnchecked :: (MonadDOM m) => AudioDataCopyToOptions -> m AudioSampleFormat+getFormatUnchecked self = liftDOM ((pFromJSVal <$> (js_getFormat (self))))
@@ -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+-- | <https://w3c.github.io/webcodecs/#dictdef-audiodatainit AudioDataInit specification>+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 ()+-- | <https://w3c.github.io/webcodecs/#dom-audiodatainit-format AudioDataInit.format specification>+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+-- | <https://w3c.github.io/webcodecs/#dom-audiodatainit-format AudioDataInit.format specification>+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 ()+-- | <https://w3c.github.io/webcodecs/#dom-audiodatainit-samplerate AudioDataInit.sampleRate specification>+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+-- | <https://w3c.github.io/webcodecs/#dom-audiodatainit-samplerate AudioDataInit.sampleRate specification>+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 ()+-- | <https://w3c.github.io/webcodecs/#dom-audiodatainit-numberofframes AudioDataInit.numberOfFrames specification>+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+-- | <https://w3c.github.io/webcodecs/#dom-audiodatainit-numberofframes AudioDataInit.numberOfFrames specification>+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 ()+-- | <https://w3c.github.io/webcodecs/#dom-audiodatainit-numberofchannels AudioDataInit.numberOfChannels specification>+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+-- | <https://w3c.github.io/webcodecs/#dom-audiodatainit-numberofchannels AudioDataInit.numberOfChannels specification>+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 ()+-- | <https://w3c.github.io/webcodecs/#dom-audiodatainit-timestamp AudioDataInit.timestamp specification>+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+-- | <https://w3c.github.io/webcodecs/#dom-audiodatainit-timestamp AudioDataInit.timestamp specification>+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 ()+-- | <https://w3c.github.io/webcodecs/#dom-audiodatainit-data AudioDataInit.data specification>+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+-- | <https://w3c.github.io/webcodecs/#dom-audiodatainit-data AudioDataInit.data specification>+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 ()+-- | <https://w3c.github.io/webcodecs/#dom-audiodatainit-transfer AudioDataInit.transfer specification>+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+-- | <https://w3c.github.io/webcodecs/#dom-audiodatainit-transfer AudioDataInit.transfer specification>+getTransfer :: (MonadDOM m) => AudioDataInit -> m (Maybe [ArrayBuffer])+getTransfer self = liftDOM (((js_getTransfer (self)) >>= fromJSValUnchecked))++-- | <https://w3c.github.io/webcodecs/#dom-audiodatainit-transfer AudioDataInit.transfer specification>+getTransferUnsafe :: (MonadDOM m, HasCallStack) => AudioDataInit -> m [ArrayBuffer]+getTransferUnsafe self = liftDOM ((((js_getTransfer (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://w3c.github.io/webcodecs/#dom-audiodatainit-transfer AudioDataInit.transfer specification>+getTransferUnchecked :: (MonadDOM m) => AudioDataInit -> m [ArrayBuffer]+getTransferUnchecked self = liftDOM (((js_getTransfer (self)) >>= fromJSValUnchecked))
@@ -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'))
@@ -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+-- | <https://developer.mozilla.org/docs/Web/API/AudioDecoder/AudioDecoder MDN AudioDecoder. documentation>+newAudioDecoder :: (MonadDOM m) => AudioDecoderInit -> m AudioDecoder+newAudioDecoder init = liftDOM ((js_newAudioDecoder (init)))++foreign import javascript safe "(($1) => { return $1[\"close\"](); })"+ js_close :: AudioDecoder -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/AudioDecoder/close MDN AudioDecoder.close documentation>+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 ()+-- | <https://developer.mozilla.org/docs/Web/API/AudioDecoder/configure MDN AudioDecoder.configure documentation>+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 ()+-- | <https://developer.mozilla.org/docs/Web/API/AudioDecoder/decode MDN AudioDecoder.decode documentation>+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, ())+-- | <https://developer.mozilla.org/docs/Web/API/AudioDecoder/flush MDN AudioDecoder.flush documentation>+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 ()+-- | <https://developer.mozilla.org/docs/Web/API/AudioDecoder/reset MDN AudioDecoder.reset documentation>+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)+-- | <https://developer.mozilla.org/docs/Web/API/AudioDecoder/isConfigSupported_static MDN AudioDecoder.isConfigSupported documentation>+isConfigSupported :: (MonadDOM m) => AudioDecoderConfig -> m AudioDecoderSupport+isConfigSupported config = liftDOM (((js_isConfigSupported (config)) >>= checkPromiseResult))++-- | <https://developer.mozilla.org/docs/Web/API/AudioDecoder/isConfigSupported_static MDN AudioDecoder.isConfigSupported documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/AudioDecoder/state MDN AudioDecoder.state documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/AudioDecoder/decodeQueueSize MDN AudioDecoder.decodeQueueSize documentation>+getDecodeQueueSize :: (MonadDOM m) => AudioDecoder -> m Word+getDecodeQueueSize self = liftDOM ((js_getDecodeQueueSize (self)))++-- | <https://w3c.github.io/webcodecs/#dom-audiodecoder-ondequeue dequeue event>+dequeue :: EventName AudioDecoder Event+dequeue = unsafeEventName (toJSString "dequeue")
@@ -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+-- | <https://w3c.github.io/webcodecs/#dictdef-audiodecoderconfig AudioDecoderConfig specification>+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 ()+-- | <https://w3c.github.io/webcodecs/#dom-audiodecoderconfig-codec AudioDecoderConfig.codec specification>+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+-- | <https://w3c.github.io/webcodecs/#dom-audiodecoderconfig-codec AudioDecoderConfig.codec specification>+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 ()+-- | <https://w3c.github.io/webcodecs/#dom-audiodecoderconfig-samplerate AudioDecoderConfig.sampleRate specification>+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+-- | <https://w3c.github.io/webcodecs/#dom-audiodecoderconfig-samplerate AudioDecoderConfig.sampleRate specification>+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 ()+-- | <https://w3c.github.io/webcodecs/#dom-audiodecoderconfig-numberofchannels AudioDecoderConfig.numberOfChannels specification>+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+-- | <https://w3c.github.io/webcodecs/#dom-audiodecoderconfig-numberofchannels AudioDecoderConfig.numberOfChannels specification>+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 ()+-- | <https://w3c.github.io/webcodecs/#dom-audiodecoderconfig-description AudioDecoderConfig.description specification>+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+-- | <https://w3c.github.io/webcodecs/#dom-audiodecoderconfig-description AudioDecoderConfig.description specification>+getDescription :: (MonadDOM m) => AudioDecoderConfig -> m (Maybe AllowSharedBufferSource)+getDescription self = liftDOM (((js_getDescription (self)) >>= fromJSValUnchecked))++-- | <https://w3c.github.io/webcodecs/#dom-audiodecoderconfig-description AudioDecoderConfig.description specification>+getDescriptionUnsafe :: (MonadDOM m, HasCallStack) => AudioDecoderConfig -> m AllowSharedBufferSource+getDescriptionUnsafe self = liftDOM ((((js_getDescription (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://w3c.github.io/webcodecs/#dom-audiodecoderconfig-description AudioDecoderConfig.description specification>+getDescriptionUnchecked :: (MonadDOM m) => AudioDecoderConfig -> m AllowSharedBufferSource+getDescriptionUnchecked self = liftDOM ((pFromJSVal <$> (js_getDescription (self))))
@@ -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+-- | <https://w3c.github.io/webcodecs/#dictdef-audiodecoderinit AudioDecoderInit specification>+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 ()+-- | <https://w3c.github.io/webcodecs/#dom-audiodecoderinit-output AudioDecoderInit.output specification>+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 ()+-- | <https://w3c.github.io/webcodecs/#dom-audiodecoderinit-error AudioDecoderInit.error specification>+setError :: (MonadDOM m) => AudioDecoderInit -> WebCodecsErrorCallback -> m ()+setError self val = liftDOM (void (((toJSVal val) >>= \a2' -> js_setError (self) a2')))
@@ -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+-- | <https://w3c.github.io/webcodecs/#dictdef-audiodecodersupport AudioDecoderSupport specification>+newAudioDecoderSupport :: (MonadDOM m) => m AudioDecoderSupport+newAudioDecoderSupport = liftDOM ((js_newAudioDecoderSupport))++foreign import javascript safe "(($1, $2) => { $1[\"supported\"] = $2; })"+ js_setSupported :: AudioDecoderSupport -> Bool -> IO ()+-- | <https://w3c.github.io/webcodecs/#dom-audiodecodersupport-supported AudioDecoderSupport.supported specification>+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+-- | <https://w3c.github.io/webcodecs/#dom-audiodecodersupport-supported AudioDecoderSupport.supported specification>+getSupported :: (MonadDOM m) => AudioDecoderSupport -> m (Maybe Bool)+getSupported self = liftDOM (((js_getSupported (self)) >>= fromJSValUnchecked))++-- | <https://w3c.github.io/webcodecs/#dom-audiodecodersupport-supported AudioDecoderSupport.supported specification>+getSupportedUnsafe :: (MonadDOM m, HasCallStack) => AudioDecoderSupport -> m Bool+getSupportedUnsafe self = liftDOM ((((js_getSupported (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://w3c.github.io/webcodecs/#dom-audiodecodersupport-supported AudioDecoderSupport.supported specification>+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 ()+-- | <https://w3c.github.io/webcodecs/#dom-audiodecodersupport-config AudioDecoderSupport.config specification>+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+-- | <https://w3c.github.io/webcodecs/#dom-audiodecodersupport-config AudioDecoderSupport.config specification>+getConfig :: (MonadDOM m) => AudioDecoderSupport -> m (Maybe AudioDecoderConfig)+getConfig self = liftDOM (((js_getConfig (self)) >>= fromJSValUnchecked))++-- | <https://w3c.github.io/webcodecs/#dom-audiodecodersupport-config AudioDecoderSupport.config specification>+getConfigUnsafe :: (MonadDOM m, HasCallStack) => AudioDecoderSupport -> m AudioDecoderConfig+getConfigUnsafe self = liftDOM ((((js_getConfig (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://w3c.github.io/webcodecs/#dom-audiodecodersupport-config AudioDecoderSupport.config specification>+getConfigUnchecked :: (MonadDOM m) => AudioDecoderSupport -> m AudioDecoderConfig+getConfigUnchecked self = liftDOM ((pFromJSVal <$> (js_getConfig (self))))
@@ -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---- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioDestinationNode.maxChannelCount Mozilla AudioDestinationNode.maxChannelCount documentation> -getMaxChannelCount :: (MonadIO m) => AudioDestinationNode -> m Word-getMaxChannelCount self = liftIO (js_getMaxChannelCount self)+-- | <https://developer.mozilla.org/docs/Web/API/AudioDestinationNode/maxChannelCount MDN AudioDestinationNode.maxChannelCount documentation>+getMaxChannelCount :: (MonadDOM m) => AudioDestinationNode -> m Word+getMaxChannelCount self = liftDOM ((js_getMaxChannelCount (self)))
@@ -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+-- | <https://developer.mozilla.org/docs/Web/API/AudioEncoder/AudioEncoder MDN AudioEncoder. documentation>+newAudioEncoder :: (MonadDOM m) => AudioEncoderInit -> m AudioEncoder+newAudioEncoder init = liftDOM ((js_newAudioEncoder (init)))++foreign import javascript safe "(($1) => { return $1[\"close\"](); })"+ js_close :: AudioEncoder -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/AudioEncoder/close MDN AudioEncoder.close documentation>+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 ()+-- | <https://developer.mozilla.org/docs/Web/API/AudioEncoder/configure MDN AudioEncoder.configure documentation>+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 ()+-- | <https://developer.mozilla.org/docs/Web/API/AudioEncoder/encode MDN AudioEncoder.encode documentation>+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, ())+-- | <https://developer.mozilla.org/docs/Web/API/AudioEncoder/flush MDN AudioEncoder.flush documentation>+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 ()+-- | <https://developer.mozilla.org/docs/Web/API/AudioEncoder/reset MDN AudioEncoder.reset documentation>+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)+-- | <https://developer.mozilla.org/docs/Web/API/AudioEncoder/isConfigSupported_static MDN AudioEncoder.isConfigSupported documentation>+isConfigSupported :: (MonadDOM m) => AudioEncoderConfig -> m AudioEncoderSupport+isConfigSupported config = liftDOM (((js_isConfigSupported (config)) >>= checkPromiseResult))++-- | <https://developer.mozilla.org/docs/Web/API/AudioEncoder/isConfigSupported_static MDN AudioEncoder.isConfigSupported documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/AudioEncoder/state MDN AudioEncoder.state documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/AudioEncoder/encodeQueueSize MDN AudioEncoder.encodeQueueSize documentation>+getEncodeQueueSize :: (MonadDOM m) => AudioEncoder -> m Word+getEncodeQueueSize self = liftDOM ((js_getEncodeQueueSize (self)))++-- | <https://w3c.github.io/webcodecs/#dom-audioencoder-ondequeue dequeue event>+dequeue :: EventName AudioEncoder Event+dequeue = unsafeEventName (toJSString "dequeue")
@@ -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+-- | <https://w3c.github.io/webcodecs/#dictdef-audioencoderconfig AudioEncoderConfig specification>+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 ()+-- | <https://w3c.github.io/webcodecs/#dom-audioencoderconfig-codec AudioEncoderConfig.codec specification>+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+-- | <https://w3c.github.io/webcodecs/#dom-audioencoderconfig-codec AudioEncoderConfig.codec specification>+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 ()+-- | <https://w3c.github.io/webcodecs/#dom-audioencoderconfig-samplerate AudioEncoderConfig.sampleRate specification>+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+-- | <https://w3c.github.io/webcodecs/#dom-audioencoderconfig-samplerate AudioEncoderConfig.sampleRate specification>+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 ()+-- | <https://w3c.github.io/webcodecs/#dom-audioencoderconfig-numberofchannels AudioEncoderConfig.numberOfChannels specification>+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+-- | <https://w3c.github.io/webcodecs/#dom-audioencoderconfig-numberofchannels AudioEncoderConfig.numberOfChannels specification>+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 ()+-- | <https://w3c.github.io/webcodecs/#dom-audioencoderconfig-bitrate AudioEncoderConfig.bitrate specification>+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+-- | <https://w3c.github.io/webcodecs/#dom-audioencoderconfig-bitrate AudioEncoderConfig.bitrate specification>+getBitrate :: (MonadDOM m) => AudioEncoderConfig -> m (Maybe Word53)+getBitrate self = liftDOM (((js_getBitrate (self)) >>= fromJSValUnchecked))++-- | <https://w3c.github.io/webcodecs/#dom-audioencoderconfig-bitrate AudioEncoderConfig.bitrate specification>+getBitrateUnsafe :: (MonadDOM m, HasCallStack) => AudioEncoderConfig -> m Word53+getBitrateUnsafe self = liftDOM ((((js_getBitrate (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://w3c.github.io/webcodecs/#dom-audioencoderconfig-bitrate AudioEncoderConfig.bitrate specification>+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 ()+-- | <https://w3c.github.io/webcodecs/#dom-audioencoderconfig-bitratemode AudioEncoderConfig.bitrateMode specification>+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+-- | <https://w3c.github.io/webcodecs/#dom-audioencoderconfig-bitratemode AudioEncoderConfig.bitrateMode specification>+getBitrateMode :: (MonadDOM m) => AudioEncoderConfig -> m (Maybe BitrateMode)+getBitrateMode self = liftDOM (((js_getBitrateMode (self)) >>= fromJSValUnchecked))++-- | <https://w3c.github.io/webcodecs/#dom-audioencoderconfig-bitratemode AudioEncoderConfig.bitrateMode specification>+getBitrateModeUnsafe :: (MonadDOM m, HasCallStack) => AudioEncoderConfig -> m BitrateMode+getBitrateModeUnsafe self = liftDOM ((((js_getBitrateMode (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://w3c.github.io/webcodecs/#dom-audioencoderconfig-bitratemode AudioEncoderConfig.bitrateMode specification>+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 ()+-- | <https://w3c.github.io/webcodecs/aac_codec_registration.html#dom-audioencoderconfig-aac AudioEncoderConfig.aac specification>+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+-- | <https://w3c.github.io/webcodecs/aac_codec_registration.html#dom-audioencoderconfig-aac AudioEncoderConfig.aac specification>+getAac :: (MonadDOM m) => AudioEncoderConfig -> m (Maybe AacEncoderConfig)+getAac self = liftDOM (((js_getAac (self)) >>= fromJSValUnchecked))++-- | <https://w3c.github.io/webcodecs/aac_codec_registration.html#dom-audioencoderconfig-aac AudioEncoderConfig.aac specification>+getAacUnsafe :: (MonadDOM m, HasCallStack) => AudioEncoderConfig -> m AacEncoderConfig+getAacUnsafe self = liftDOM ((((js_getAac (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://w3c.github.io/webcodecs/aac_codec_registration.html#dom-audioencoderconfig-aac AudioEncoderConfig.aac specification>+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 ()+-- | <https://w3c.github.io/webcodecs/flac_codec_registration.html#dom-audioencoderconfig-flac AudioEncoderConfig.flac specification>+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+-- | <https://w3c.github.io/webcodecs/flac_codec_registration.html#dom-audioencoderconfig-flac AudioEncoderConfig.flac specification>+getFlac :: (MonadDOM m) => AudioEncoderConfig -> m (Maybe FlacEncoderConfig)+getFlac self = liftDOM (((js_getFlac (self)) >>= fromJSValUnchecked))++-- | <https://w3c.github.io/webcodecs/flac_codec_registration.html#dom-audioencoderconfig-flac AudioEncoderConfig.flac specification>+getFlacUnsafe :: (MonadDOM m, HasCallStack) => AudioEncoderConfig -> m FlacEncoderConfig+getFlacUnsafe self = liftDOM ((((js_getFlac (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://w3c.github.io/webcodecs/flac_codec_registration.html#dom-audioencoderconfig-flac AudioEncoderConfig.flac specification>+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 ()+-- | <https://w3c.github.io/webcodecs/opus_codec_registration.html#dom-audioencoderconfig-opus AudioEncoderConfig.opus specification>+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+-- | <https://w3c.github.io/webcodecs/opus_codec_registration.html#dom-audioencoderconfig-opus AudioEncoderConfig.opus specification>+getOpus :: (MonadDOM m) => AudioEncoderConfig -> m (Maybe OpusEncoderConfig)+getOpus self = liftDOM (((js_getOpus (self)) >>= fromJSValUnchecked))++-- | <https://w3c.github.io/webcodecs/opus_codec_registration.html#dom-audioencoderconfig-opus AudioEncoderConfig.opus specification>+getOpusUnsafe :: (MonadDOM m, HasCallStack) => AudioEncoderConfig -> m OpusEncoderConfig+getOpusUnsafe self = liftDOM ((((js_getOpus (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://w3c.github.io/webcodecs/opus_codec_registration.html#dom-audioencoderconfig-opus AudioEncoderConfig.opus specification>+getOpusUnchecked :: (MonadDOM m) => AudioEncoderConfig -> m OpusEncoderConfig+getOpusUnchecked self = liftDOM ((pFromJSVal <$> (js_getOpus (self))))
@@ -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+-- | <https://w3c.github.io/webcodecs/#dictdef-audioencoderinit AudioEncoderInit specification>+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 ()+-- | <https://w3c.github.io/webcodecs/#dom-audioencoderinit-output AudioEncoderInit.output specification>+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 ()+-- | <https://w3c.github.io/webcodecs/#dom-audioencoderinit-error AudioEncoderInit.error specification>+setError :: (MonadDOM m) => AudioEncoderInit -> WebCodecsErrorCallback -> m ()+setError self val = liftDOM (void (((toJSVal val) >>= \a2' -> js_setError (self) a2')))
@@ -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+-- | <https://w3c.github.io/webcodecs/#dictdef-audioencodersupport AudioEncoderSupport specification>+newAudioEncoderSupport :: (MonadDOM m) => m AudioEncoderSupport+newAudioEncoderSupport = liftDOM ((js_newAudioEncoderSupport))++foreign import javascript safe "(($1, $2) => { $1[\"supported\"] = $2; })"+ js_setSupported :: AudioEncoderSupport -> Bool -> IO ()+-- | <https://w3c.github.io/webcodecs/#dom-audioencodersupport-supported AudioEncoderSupport.supported specification>+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+-- | <https://w3c.github.io/webcodecs/#dom-audioencodersupport-supported AudioEncoderSupport.supported specification>+getSupported :: (MonadDOM m) => AudioEncoderSupport -> m (Maybe Bool)+getSupported self = liftDOM (((js_getSupported (self)) >>= fromJSValUnchecked))++-- | <https://w3c.github.io/webcodecs/#dom-audioencodersupport-supported AudioEncoderSupport.supported specification>+getSupportedUnsafe :: (MonadDOM m, HasCallStack) => AudioEncoderSupport -> m Bool+getSupportedUnsafe self = liftDOM ((((js_getSupported (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://w3c.github.io/webcodecs/#dom-audioencodersupport-supported AudioEncoderSupport.supported specification>+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 ()+-- | <https://w3c.github.io/webcodecs/#dom-audioencodersupport-config AudioEncoderSupport.config specification>+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+-- | <https://w3c.github.io/webcodecs/#dom-audioencodersupport-config AudioEncoderSupport.config specification>+getConfig :: (MonadDOM m) => AudioEncoderSupport -> m (Maybe AudioEncoderConfig)+getConfig self = liftDOM (((js_getConfig (self)) >>= fromJSValUnchecked))++-- | <https://w3c.github.io/webcodecs/#dom-audioencodersupport-config AudioEncoderSupport.config specification>+getConfigUnsafe :: (MonadDOM m, HasCallStack) => AudioEncoderSupport -> m AudioEncoderConfig+getConfigUnsafe self = liftDOM ((((js_getConfig (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://w3c.github.io/webcodecs/#dom-audioencodersupport-config AudioEncoderSupport.config specification>+getConfigUnchecked :: (MonadDOM m) => AudioEncoderSupport -> m AudioEncoderConfig+getConfigUnchecked self = liftDOM ((pFromJSVal <$> (js_getConfig (self))))
@@ -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 ()+-- | <https://developer.mozilla.org/docs/Web/API/AudioListener/setOrientation MDN AudioListener.setOrientation documentation>+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 ()+-- | <https://developer.mozilla.org/docs/Web/API/AudioListener/setPosition MDN AudioListener.setPosition documentation>+setPosition :: (MonadDOM m) => AudioListener -> Float -> Float -> Float -> m ()+setPosition self x y z = liftDOM (void ((js_setPosition (self) (x) (y) (z)))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioListener.setPosition Mozilla AudioListener.setPosition documentation> -setPosition ::- (MonadIO m) => AudioListener -> Float -> Float -> Float -> m ()-setPosition self x y z = liftIO (js_setPosition self x y z)- -foreign import javascript unsafe- "(($1, $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+-- | <https://developer.mozilla.org/docs/Web/API/AudioListener/positionX MDN AudioListener.positionX documentation>+getPositionX :: (MonadDOM m) => AudioListener -> m AudioParam+getPositionX self = liftDOM ((js_getPositionX (self))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioListener.setOrientation Mozilla AudioListener.setOrientation documentation> -setOrientation ::- (MonadIO m) =>- AudioListener ->- Float -> Float -> Float -> Float -> Float -> Float -> m ()-setOrientation self x y z xUp yUp zUp- = liftIO (js_setOrientation self x y z xUp yUp zUp)- -foreign import javascript unsafe "(($1, $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+-- | <https://developer.mozilla.org/docs/Web/API/AudioListener/positionY MDN AudioListener.positionY documentation>+getPositionY :: (MonadDOM m) => AudioListener -> m AudioParam+getPositionY self = liftDOM ((js_getPositionY (self))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioListener.setVelocity Mozilla AudioListener.setVelocity documentation> -setVelocity ::- (MonadIO m) => AudioListener -> Float -> Float -> Float -> m ()-setVelocity self x y z = liftIO (js_setVelocity self x y z)- -foreign import javascript unsafe "(($1, $2) => { $1[\"dopplerFactor\"] = $2; })"- js_setDopplerFactor :: AudioListener -> Float -> IO ()+foreign import javascript unsafe "(($1) => { return $1[\"positionZ\"]; })"+ js_getPositionZ :: AudioListener -> IO AudioParam+-- | <https://developer.mozilla.org/docs/Web/API/AudioListener/positionZ MDN AudioListener.positionZ documentation>+getPositionZ :: (MonadDOM m) => AudioListener -> m AudioParam+getPositionZ self = liftDOM ((js_getPositionZ (self))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioListener.dopplerFactor Mozilla AudioListener.dopplerFactor documentation> -setDopplerFactor :: (MonadIO m) => AudioListener -> Float -> m ()-setDopplerFactor self val = liftIO (js_setDopplerFactor self val)- -foreign import javascript unsafe "(($1) => { return $1[\"dopplerFactor\"]; })"- js_getDopplerFactor :: AudioListener -> IO Float+foreign import javascript unsafe "(($1) => { return $1[\"forwardX\"]; })"+ js_getForwardX :: AudioListener -> IO AudioParam+-- | <https://developer.mozilla.org/docs/Web/API/AudioListener/forwardX MDN AudioListener.forwardX documentation>+getForwardX :: (MonadDOM m) => AudioListener -> m AudioParam+getForwardX self = liftDOM ((js_getForwardX (self))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioListener.dopplerFactor Mozilla AudioListener.dopplerFactor documentation> -getDopplerFactor :: (MonadIO m) => AudioListener -> m Float-getDopplerFactor self = liftIO (js_getDopplerFactor self)- -foreign import javascript unsafe "(($1, $2) => { $1[\"speedOfSound\"] = $2; })"- js_setSpeedOfSound :: AudioListener -> Float -> IO ()+foreign import javascript unsafe "(($1) => { return $1[\"forwardY\"]; })"+ js_getForwardY :: AudioListener -> IO AudioParam+-- | <https://developer.mozilla.org/docs/Web/API/AudioListener/forwardY MDN AudioListener.forwardY documentation>+getForwardY :: (MonadDOM m) => AudioListener -> m AudioParam+getForwardY self = liftDOM ((js_getForwardY (self))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioListener.speedOfSound Mozilla AudioListener.speedOfSound documentation> -setSpeedOfSound :: (MonadIO m) => AudioListener -> Float -> m ()-setSpeedOfSound self val = liftIO (js_setSpeedOfSound self val)- -foreign import javascript unsafe "(($1) => { return $1[\"speedOfSound\"]; })"- js_getSpeedOfSound :: AudioListener -> IO Float+foreign import javascript unsafe "(($1) => { return $1[\"forwardZ\"]; })"+ js_getForwardZ :: AudioListener -> IO AudioParam+-- | <https://developer.mozilla.org/docs/Web/API/AudioListener/forwardZ MDN AudioListener.forwardZ documentation>+getForwardZ :: (MonadDOM m) => AudioListener -> m AudioParam+getForwardZ self = liftDOM ((js_getForwardZ (self))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioListener.speedOfSound Mozilla AudioListener.speedOfSound documentation> -getSpeedOfSound :: (MonadIO m) => AudioListener -> m Float-getSpeedOfSound self = liftIO (js_getSpeedOfSound self)+foreign import javascript unsafe "(($1) => { return $1[\"upX\"]; })"+ js_getUpX :: AudioListener -> IO AudioParam+-- | <https://developer.mozilla.org/docs/Web/API/AudioListener/upX MDN AudioListener.upX documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/AudioListener/upY MDN AudioListener.upY documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/AudioListener/upZ MDN AudioListener.upZ documentation>+getUpZ :: (MonadDOM m) => AudioListener -> m AudioParam+getUpZ self = liftDOM ((js_getUpZ (self)))
@@ -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+-- | <https://developer.mozilla.org/docs/Web/API/AudioNode/connect MDN AudioNode.connect documentation>+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')) --- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioNode.connect Mozilla AudioNode.connect documentation> -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))- +-- | <https://developer.mozilla.org/docs/Web/API/AudioNode/connect MDN AudioNode.connect documentation>+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 ()+-- | <https://developer.mozilla.org/docs/Web/API/AudioNode/connect MDN AudioNode.connect documentation>+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'))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioNode.connect Mozilla AudioNode.connect documentation> -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 ()+-- | <https://developer.mozilla.org/docs/Web/API/AudioNode/disconnect MDN AudioNode.disconnect documentation>+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 ()+-- | <https://developer.mozilla.org/docs/Web/API/AudioNode/disconnect MDN AudioNode.disconnect documentation>+disconnect :: (MonadDOM m, IsAudioNode self) => self -> Word -> m ()+disconnect self output = liftDOM (void ((js_disconnect ((Types.toAudioNode self)) (output)))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioNode.disconnect Mozilla AudioNode.disconnect documentation> -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 ()+-- | <https://developer.mozilla.org/docs/Web/API/AudioNode/disconnect MDN AudioNode.disconnect documentation>+disconnectDestinationNode :: (MonadDOM m, IsAudioNode self, IsAudioNode destinationNode) => self -> destinationNode -> m ()+disconnectDestinationNode self destinationNode = liftDOM (void ((js_disconnectDestinationNode ((Types.toAudioNode self)) (Types.toAudioNode destinationNode)))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioNode.context Mozilla AudioNode.context documentation> -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 ()+-- | <https://developer.mozilla.org/docs/Web/API/AudioNode/disconnect MDN AudioNode.disconnect documentation>+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 ()+-- | <https://developer.mozilla.org/docs/Web/API/AudioNode/disconnect MDN AudioNode.disconnect documentation>+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 ()+-- | <https://developer.mozilla.org/docs/Web/API/AudioNode/disconnect MDN AudioNode.disconnect documentation>+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 ()+-- | <https://developer.mozilla.org/docs/Web/API/AudioNode/disconnect MDN AudioNode.disconnect documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/AudioNode/context MDN AudioNode.context documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/AudioNode/numberOfInputs MDN AudioNode.numberOfInputs documentation>+getNumberOfInputs :: (MonadDOM m, IsAudioNode self) => self -> m Word+getNumberOfInputs self = liftDOM ((js_getNumberOfInputs ((Types.toAudioNode self)))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioNode.numberOfInputs Mozilla AudioNode.numberOfInputs documentation> -getNumberOfInputs ::- (MonadIO m, IsAudioNode self) => self -> m Word-getNumberOfInputs self- = liftIO (js_getNumberOfInputs (toAudioNode self))- foreign import javascript unsafe "(($1) => { return $1[\"numberOfOutputs\"]; })" js_getNumberOfOutputs :: AudioNode -> IO Word+-- | <https://developer.mozilla.org/docs/Web/API/AudioNode/numberOfOutputs MDN AudioNode.numberOfOutputs documentation>+getNumberOfOutputs :: (MonadDOM m, IsAudioNode self) => self -> m Word+getNumberOfOutputs self = liftDOM ((js_getNumberOfOutputs ((Types.toAudioNode self)))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioNode.numberOfOutputs Mozilla AudioNode.numberOfOutputs documentation> -getNumberOfOutputs ::- (MonadIO m, IsAudioNode self) => self -> m Word-getNumberOfOutputs self- = liftIO (js_getNumberOfOutputs (toAudioNode self))- foreign import javascript safe "(($1, $2) => { $1[\"channelCount\"] = $2; })" js_setChannelCount :: AudioNode -> Word -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/AudioNode/channelCount MDN AudioNode.channelCount documentation>+setChannelCount :: (MonadDOM m, IsAudioNode self) => self -> Word -> m ()+setChannelCount self val = liftDOM (void ((js_setChannelCount ((Types.toAudioNode self)) (val)))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioNode.channelCount Mozilla AudioNode.channelCount documentation> -setChannelCount ::- (MonadIO m, IsAudioNode self) => self -> Word -> m ()-setChannelCount self val- = liftIO (js_setChannelCount (toAudioNode self) val)- foreign import javascript unsafe "(($1) => { return $1[\"channelCount\"]; })" js_getChannelCount :: AudioNode -> IO Word+-- | <https://developer.mozilla.org/docs/Web/API/AudioNode/channelCount MDN AudioNode.channelCount documentation>+getChannelCount :: (MonadDOM m, IsAudioNode self) => self -> m Word+getChannelCount self = liftDOM ((js_getChannelCount ((Types.toAudioNode self)))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioNode.channelCount Mozilla AudioNode.channelCount documentation> -getChannelCount :: (MonadIO m, IsAudioNode self) => self -> m Word-getChannelCount self- = liftIO (js_getChannelCount (toAudioNode self))- foreign import javascript safe "(($1, $2) => { $1[\"channelCountMode\"] = $2; })"- js_setChannelCountMode :: AudioNode -> JSString -> IO ()+ js_setChannelCountMode :: AudioNode -> JSVal -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/AudioNode/channelCountMode MDN AudioNode.channelCountMode documentation>+setChannelCountMode :: (MonadDOM m, IsAudioNode self) => self -> ChannelCountMode -> m ()+setChannelCountMode self val = liftDOM (void (((toJSVal val) >>= \a2' -> js_setChannelCountMode ((Types.toAudioNode self)) a2'))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioNode.channelCountMode Mozilla AudioNode.channelCountMode documentation> -setChannelCountMode ::- (MonadIO m, IsAudioNode self, ToJSString val) =>- self -> val -> m ()-setChannelCountMode self val- = liftIO- (js_setChannelCountMode (toAudioNode self) (toJSString val))- foreign import javascript unsafe "(($1) => { return $1[\"channelCountMode\"]; })"- js_getChannelCountMode :: AudioNode -> IO JSString+ js_getChannelCountMode :: AudioNode -> IO JSVal+-- | <https://developer.mozilla.org/docs/Web/API/AudioNode/channelCountMode MDN AudioNode.channelCountMode documentation>+getChannelCountMode :: (MonadDOM m, IsAudioNode self) => self -> m ChannelCountMode+getChannelCountMode self = liftDOM (((js_getChannelCountMode ((Types.toAudioNode self))) >>= fromJSValUnchecked)) --- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioNode.channelCountMode Mozilla AudioNode.channelCountMode documentation> -getChannelCountMode ::- (MonadIO m, IsAudioNode self, FromJSString result) =>- self -> m result-getChannelCountMode self- = liftIO- (fromJSString <$> (js_getChannelCountMode (toAudioNode self)))- -foreign import javascript 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 ()+-- | <https://developer.mozilla.org/docs/Web/API/AudioNode/channelInterpretation MDN AudioNode.channelInterpretation documentation>+setChannelInterpretation :: (MonadDOM m, IsAudioNode self) => self -> ChannelInterpretation -> m ()+setChannelInterpretation self val = liftDOM (void (((toJSVal val) >>= \a2' -> js_setChannelInterpretation ((Types.toAudioNode self)) a2'))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioNode.channelInterpretation Mozilla AudioNode.channelInterpretation documentation> -setChannelInterpretation ::- (MonadIO m, IsAudioNode self, ToJSString val) =>- self -> val -> m ()-setChannelInterpretation self val- = liftIO- (js_setChannelInterpretation (toAudioNode self) (toJSString val))- foreign import javascript unsafe "(($1) => { return $1[\"channelInterpretation\"]; })"- js_getChannelInterpretation :: AudioNode -> IO JSString---- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioNode.channelInterpretation Mozilla AudioNode.channelInterpretation documentation> -getChannelInterpretation ::- (MonadIO m, IsAudioNode self, FromJSString result) =>- self -> m result-getChannelInterpretation self- = liftIO- (fromJSString <$> (js_getChannelInterpretation (toAudioNode self)))+ js_getChannelInterpretation :: AudioNode -> IO JSVal+-- | <https://developer.mozilla.org/docs/Web/API/AudioNode/channelInterpretation MDN AudioNode.channelInterpretation documentation>+getChannelInterpretation :: (MonadDOM m, IsAudioNode self) => self -> m ChannelInterpretation+getChannelInterpretation self = liftDOM (((js_getChannelInterpretation ((Types.toAudioNode self))) >>= fromJSValUnchecked))
@@ -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+-- | <https://webaudio.github.io/web-audio-api/#AudioNodeOptions AudioNodeOptions specification>+newAudioNodeOptions :: (MonadDOM m) => m AudioNodeOptions+newAudioNodeOptions = liftDOM ((js_newAudioNodeOptions))++foreign import javascript safe "(($1, $2) => { $1[\"channelCount\"] = $2; })"+ js_setChannelCount :: AudioNodeOptions -> Word -> IO ()+-- | <https://webaudio.github.io/web-audio-api/#dom-audionodeoptions-channelcount AudioNodeOptions.channelCount specification>+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+-- | <https://webaudio.github.io/web-audio-api/#dom-audionodeoptions-channelcount AudioNodeOptions.channelCount specification>+getChannelCount :: (MonadDOM m, IsAudioNodeOptions self) => self -> m (Maybe Word)+getChannelCount self = liftDOM (((js_getChannelCount ((Types.toAudioNodeOptions self))) >>= fromJSValUnchecked))++-- | <https://webaudio.github.io/web-audio-api/#dom-audionodeoptions-channelcount AudioNodeOptions.channelCount specification>+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))++-- | <https://webaudio.github.io/web-audio-api/#dom-audionodeoptions-channelcount AudioNodeOptions.channelCount specification>+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 ()+-- | <https://webaudio.github.io/web-audio-api/#dom-audionodeoptions-channelcountmode AudioNodeOptions.channelCountMode specification>+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+-- | <https://webaudio.github.io/web-audio-api/#dom-audionodeoptions-channelcountmode AudioNodeOptions.channelCountMode specification>+getChannelCountMode :: (MonadDOM m, IsAudioNodeOptions self) => self -> m (Maybe ChannelCountMode)+getChannelCountMode self = liftDOM (((js_getChannelCountMode ((Types.toAudioNodeOptions self))) >>= fromJSValUnchecked))++-- | <https://webaudio.github.io/web-audio-api/#dom-audionodeoptions-channelcountmode AudioNodeOptions.channelCountMode specification>+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))++-- | <https://webaudio.github.io/web-audio-api/#dom-audionodeoptions-channelcountmode AudioNodeOptions.channelCountMode specification>+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 ()+-- | <https://webaudio.github.io/web-audio-api/#dom-audionodeoptions-channelinterpretation AudioNodeOptions.channelInterpretation specification>+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+-- | <https://webaudio.github.io/web-audio-api/#dom-audionodeoptions-channelinterpretation AudioNodeOptions.channelInterpretation specification>+getChannelInterpretation :: (MonadDOM m, IsAudioNodeOptions self) => self -> m (Maybe ChannelInterpretation)+getChannelInterpretation self = liftDOM (((js_getChannelInterpretation ((Types.toAudioNodeOptions self))) >>= fromJSValUnchecked))++-- | <https://webaudio.github.io/web-audio-api/#dom-audionodeoptions-channelinterpretation AudioNodeOptions.channelInterpretation specification>+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))++-- | <https://webaudio.github.io/web-audio-api/#dom-audionodeoptions-channelinterpretation AudioNodeOptions.channelInterpretation specification>+getChannelInterpretationUnchecked :: (MonadDOM m, IsAudioNodeOptions self) => self -> m ChannelInterpretation+getChannelInterpretationUnchecked self = liftDOM ((pFromJSVal <$> (js_getChannelInterpretation ((Types.toAudioNodeOptions self)))))
@@ -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 () --- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioParam.setValueAtTime Mozilla AudioParam.setValueAtTime documentation> -setValueAtTime ::- (MonadIO m) => AudioParam -> Float -> Float -> m ()-setValueAtTime self value time- = liftIO (js_setValueAtTime self value time)- -foreign import javascript unsafe- "(($1, $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+-- | <https://developer.mozilla.org/docs/Web/API/AudioParam/cancelAndHoldAtTime MDN AudioParam.cancelAndHoldAtTime documentation>+cancelAndHoldAtTime :: (MonadDOM m) => AudioParam -> Double -> m AudioParam+cancelAndHoldAtTime self cancelTime = liftDOM ((js_cancelAndHoldAtTime (self) (cancelTime))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioParam.linearRampToValueAtTime Mozilla AudioParam.linearRampToValueAtTime documentation> -linearRampToValueAtTime ::- (MonadIO m) => AudioParam -> Float -> Float -> m ()-linearRampToValueAtTime self value time- = liftIO (js_linearRampToValueAtTime self value time)- -foreign import javascript unsafe- "(($1, $2, $3) => { return $1[\"exponentialRampToValueAtTime\"]($2,\n$3); })"- js_exponentialRampToValueAtTime ::- AudioParam -> Float -> Float -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/AudioParam/cancelAndHoldAtTime MDN AudioParam.cancelAndHoldAtTime documentation>+cancelAndHoldAtTime_ :: (MonadDOM m) => AudioParam -> Double -> m ()+cancelAndHoldAtTime_ self cancelTime = liftDOM (void ((js_cancelAndHoldAtTime (self) (cancelTime)))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioParam.exponentialRampToValueAtTime Mozilla AudioParam.exponentialRampToValueAtTime documentation> -exponentialRampToValueAtTime ::- (MonadIO m) => AudioParam -> Float -> Float -> m ()-exponentialRampToValueAtTime self value time- = liftIO (js_exponentialRampToValueAtTime self value time)- -foreign import javascript unsafe- "(($1, $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+-- | <https://developer.mozilla.org/docs/Web/API/AudioParam/cancelScheduledValues MDN AudioParam.cancelScheduledValues documentation>+cancelScheduledValues :: (MonadDOM m) => AudioParam -> Double -> m AudioParam+cancelScheduledValues self cancelTime = liftDOM ((js_cancelScheduledValues (self) (cancelTime))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioParam.setTargetAtTime Mozilla AudioParam.setTargetAtTime documentation> -setTargetAtTime ::- (MonadIO m) => AudioParam -> Float -> Float -> Float -> m ()-setTargetAtTime self target time timeConstant- = liftIO (js_setTargetAtTime self target time timeConstant)- -foreign import javascript unsafe- "(($1, $2, $3, $4) => { return $1[\"setValueCurveAtTime\"]($2,\n$3, $4); })" js_setValueCurveAtTime- :: AudioParam -> Optional Float32Array -> Float -> Float -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/AudioParam/cancelScheduledValues MDN AudioParam.cancelScheduledValues documentation>+cancelScheduledValues_ :: (MonadDOM m) => AudioParam -> Double -> m ()+cancelScheduledValues_ self cancelTime = liftDOM (void ((js_cancelScheduledValues (self) (cancelTime)))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioParam.setValueCurveAtTime Mozilla AudioParam.setValueCurveAtTime documentation> -setValueCurveAtTime ::- (MonadIO m, IsFloat32Array values) =>- AudioParam -> Maybe values -> Float -> Float -> m ()-setValueCurveAtTime self values time duration- = liftIO- (js_setValueCurveAtTime self- (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+-- | <https://developer.mozilla.org/docs/Web/API/AudioParam/exponentialRampToValueAtTime MDN AudioParam.exponentialRampToValueAtTime documentation>+exponentialRampToValueAtTime :: (MonadDOM m) => AudioParam -> Float -> Double -> m AudioParam+exponentialRampToValueAtTime self value endTime = liftDOM ((js_exponentialRampToValueAtTime (self) (value) (endTime))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioParam.cancelScheduledValues Mozilla AudioParam.cancelScheduledValues documentation> -cancelScheduledValues :: (MonadIO m) => AudioParam -> Float -> m ()-cancelScheduledValues self startTime- = liftIO (js_cancelScheduledValues self startTime)- -foreign import javascript unsafe "(($1, $2) => { $1[\"value\"] = $2; })" js_setValue- :: AudioParam -> Float -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/AudioParam/exponentialRampToValueAtTime MDN AudioParam.exponentialRampToValueAtTime documentation>+exponentialRampToValueAtTime_ :: (MonadDOM m) => AudioParam -> Float -> Double -> m ()+exponentialRampToValueAtTime_ self value endTime = liftDOM (void ((js_exponentialRampToValueAtTime (self) (value) (endTime)))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioParam.value Mozilla AudioParam.value documentation> -setValue :: (MonadIO m) => AudioParam -> Float -> m ()-setValue self val = liftIO (js_setValue self val)- -foreign import javascript unsafe "(($1) => { 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+-- | <https://developer.mozilla.org/docs/Web/API/AudioParam/linearRampToValueAtTime MDN AudioParam.linearRampToValueAtTime documentation>+linearRampToValueAtTime :: (MonadDOM m) => AudioParam -> Float -> Double -> m AudioParam+linearRampToValueAtTime self value endTime = liftDOM ((js_linearRampToValueAtTime (self) (value) (endTime))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioParam.value Mozilla AudioParam.value documentation> -getValue :: (MonadIO m) => AudioParam -> m Float-getValue self = liftIO (js_getValue self)- -foreign import javascript unsafe "(($1) => { return $1[\"minValue\"]; })" js_getMinValue- :: AudioParam -> IO Float+-- | <https://developer.mozilla.org/docs/Web/API/AudioParam/linearRampToValueAtTime MDN AudioParam.linearRampToValueAtTime documentation>+linearRampToValueAtTime_ :: (MonadDOM m) => AudioParam -> Float -> Double -> m ()+linearRampToValueAtTime_ self value endTime = liftDOM (void ((js_linearRampToValueAtTime (self) (value) (endTime)))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioParam.minValue Mozilla AudioParam.minValue documentation> -getMinValue :: (MonadIO m) => AudioParam -> m Float-getMinValue self = liftIO (js_getMinValue self)- -foreign import javascript unsafe "(($1) => { 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+-- | <https://developer.mozilla.org/docs/Web/API/AudioParam/setTargetAtTime MDN AudioParam.setTargetAtTime documentation>+setTargetAtTime :: (MonadDOM m) => AudioParam -> Float -> Double -> Float -> m AudioParam+setTargetAtTime self target startTime timeConstant = liftDOM ((js_setTargetAtTime (self) (target) (startTime) (timeConstant))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioParam.maxValue Mozilla AudioParam.maxValue documentation> -getMaxValue :: (MonadIO m) => AudioParam -> m Float-getMaxValue self = liftIO (js_getMaxValue self)- +-- | <https://developer.mozilla.org/docs/Web/API/AudioParam/setTargetAtTime MDN AudioParam.setTargetAtTime documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/AudioParam/setValueAtTime MDN AudioParam.setValueAtTime documentation>+setValueAtTime :: (MonadDOM m) => AudioParam -> Float -> Double -> m AudioParam+setValueAtTime self value startTime = liftDOM ((js_setValueAtTime (self) (value) (startTime)))++-- | <https://developer.mozilla.org/docs/Web/API/AudioParam/setValueAtTime MDN AudioParam.setValueAtTime documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/AudioParam/setValueCurveAtTime MDN AudioParam.setValueCurveAtTime documentation>+setValueCurveAtTime :: (MonadDOM m) => AudioParam -> [Float] -> Double -> Double -> m AudioParam+setValueCurveAtTime self values startTime duration = liftDOM (((toJSVal values) >>= \a2' -> js_setValueCurveAtTime (self) a2' (startTime) (duration)))++-- | <https://developer.mozilla.org/docs/Web/API/AudioParam/setValueCurveAtTime MDN AudioParam.setValueCurveAtTime documentation>+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 ()+-- | <https://developer.mozilla.org/docs/Web/API/AudioParam/value MDN AudioParam.value documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/AudioParam/value MDN AudioParam.value documentation>+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 ()+-- | <https://webaudio.github.io/web-audio-api/#dom-audioparam-automationrate AudioParam.automationRate specification>+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+-- | <https://webaudio.github.io/web-audio-api/#dom-audioparam-automationrate AudioParam.automationRate specification>+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---- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioParam.defaultValue Mozilla AudioParam.defaultValue documentation> -getDefaultValue :: (MonadIO m) => AudioParam -> m Float-getDefaultValue self = liftIO (js_getDefaultValue self)- -foreign import javascript unsafe "(($1) => { return $1[\"name\"]; })" js_getName ::- AudioParam -> IO JSString+-- | <https://developer.mozilla.org/docs/Web/API/AudioParam/defaultValue MDN AudioParam.defaultValue documentation>+getDefaultValue :: (MonadDOM m) => AudioParam -> m Float+getDefaultValue self = liftDOM ((js_getDefaultValue (self))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioParam.name Mozilla AudioParam.name documentation> -getName ::- (MonadIO m, FromJSString result) => AudioParam -> m result-getName self = liftIO (fromJSString <$> (js_getName self))- -foreign import javascript unsafe "(($1) => { return $1[\"units\"]; })" js_getUnits ::- AudioParam -> IO Word+foreign import javascript unsafe "(($1) => { return $1[\"minValue\"]; })"+ js_getMinValue :: AudioParam -> IO Float+-- | <https://developer.mozilla.org/docs/Web/API/AudioParam/minValue MDN AudioParam.minValue documentation>+getMinValue :: (MonadDOM m) => AudioParam -> m Float+getMinValue self = liftDOM ((js_getMinValue (self))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioParam.units Mozilla AudioParam.units documentation> -getUnits :: (MonadIO m) => AudioParam -> m Word-getUnits self = liftIO (js_getUnits self)+foreign import javascript unsafe "(($1) => { return $1[\"maxValue\"]; })"+ js_getMaxValue :: AudioParam -> IO Float+-- | <https://developer.mozilla.org/docs/Web/API/AudioParam/maxValue MDN AudioParam.maxValue documentation>+getMaxValue :: (MonadDOM m) => AudioParam -> m Float+getMaxValue self = liftDOM ((js_getMaxValue (self)))
@@ -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+
@@ -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+-- | <https://developer.mozilla.org/docs/Web/API/AudioProcessingEvent/AudioProcessingEvent MDN AudioProcessingEvent. documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/AudioProcessingEvent/playbackTime MDN AudioProcessingEvent.playbackTime documentation>+getPlaybackTime :: (MonadDOM m) => AudioProcessingEvent -> m Double+getPlaybackTime self = liftDOM ((js_getPlaybackTime (self))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioProcessingEvent.playbackTime Mozilla AudioProcessingEvent.playbackTime documentation> -getPlaybackTime :: (MonadIO m) => AudioProcessingEvent -> m Double-getPlaybackTime self = liftIO (js_getPlaybackTime self)- foreign import javascript unsafe "(($1) => { return $1[\"inputBuffer\"]; })" js_getInputBuffer :: AudioProcessingEvent -> IO AudioBuffer+-- | <https://developer.mozilla.org/docs/Web/API/AudioProcessingEvent/inputBuffer MDN AudioProcessingEvent.inputBuffer documentation>+getInputBuffer :: (MonadDOM m) => AudioProcessingEvent -> m AudioBuffer+getInputBuffer self = liftDOM ((js_getInputBuffer (self))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioProcessingEvent.inputBuffer Mozilla AudioProcessingEvent.inputBuffer documentation> -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---- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioProcessingEvent.outputBuffer Mozilla AudioProcessingEvent.outputBuffer documentation> -getOutputBuffer ::- (MonadIO m) => AudioProcessingEvent -> m AudioBuffer-getOutputBuffer self = liftIO (js_getOutputBuffer self)+-- | <https://developer.mozilla.org/docs/Web/API/AudioProcessingEvent/outputBuffer MDN AudioProcessingEvent.outputBuffer documentation>+getOutputBuffer :: (MonadDOM m) => AudioProcessingEvent -> m AudioBuffer+getOutputBuffer self = liftDOM ((js_getOutputBuffer (self)))
@@ -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+-- | <https://webaudio.github.io/web-audio-api/#AudioProcessingEventInit AudioProcessingEventInit specification>+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 ()+-- | <https://webaudio.github.io/web-audio-api/#dom-audioprocessingeventinit-playbacktime AudioProcessingEventInit.playbackTime specification>+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+-- | <https://webaudio.github.io/web-audio-api/#dom-audioprocessingeventinit-playbacktime AudioProcessingEventInit.playbackTime specification>+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 ()+-- | <https://webaudio.github.io/web-audio-api/#dom-audioprocessingeventinit-inputbuffer AudioProcessingEventInit.inputBuffer specification>+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+-- | <https://webaudio.github.io/web-audio-api/#dom-audioprocessingeventinit-inputbuffer AudioProcessingEventInit.inputBuffer specification>+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 ()+-- | <https://webaudio.github.io/web-audio-api/#dom-audioprocessingeventinit-outputbuffer AudioProcessingEventInit.outputBuffer specification>+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+-- | <https://webaudio.github.io/web-audio-api/#dom-audioprocessingeventinit-outputbuffer AudioProcessingEventInit.outputBuffer specification>+getOutputBuffer :: (MonadDOM m) => AudioProcessingEventInit -> m AudioBuffer+getOutputBuffer self = liftDOM ((js_getOutputBuffer (self)))
@@ -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 ()+-- | <https://developer.mozilla.org/docs/Web/API/AudioScheduledSourceNode/start MDN AudioScheduledSourceNode.start documentation>+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 ()+-- | <https://developer.mozilla.org/docs/Web/API/AudioScheduledSourceNode/stop MDN AudioScheduledSourceNode.stop documentation>+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')))++-- | <https://webaudio.github.io/web-audio-api/#dom-audioscheduledsourcenode-onended ended event>+ended :: (IsAudioScheduledSourceNode self, IsEventTarget self) => EventName self Event+ended = unsafeEventName (toJSString "ended")
@@ -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+-- | <https://webaudio.github.io/web-audio-api/#AudioSinkOptions AudioSinkOptions specification>+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 ()+-- | <https://webaudio.github.io/web-audio-api/#dom-audiosinkoptions-type AudioSinkOptions.type specification>+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+-- | <https://webaudio.github.io/web-audio-api/#dom-audiosinkoptions-type AudioSinkOptions.type specification>+getType :: (MonadDOM m) => AudioSinkOptions -> m AudioSinkType+getType self = liftDOM (((js_getType (self)) >>= fromJSValUnchecked))
@@ -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+-- | <https://webaudio.github.io/web-audio-api/#AudioTimestamp AudioTimestamp specification>+newAudioTimestamp :: (MonadDOM m) => m AudioTimestamp+newAudioTimestamp = liftDOM ((js_newAudioTimestamp))++foreign import javascript safe "(($1, $2) => { $1[\"contextTime\"] = $2; })"+ js_setContextTime :: AudioTimestamp -> Double -> IO ()+-- | <https://webaudio.github.io/web-audio-api/#dom-audiotimestamp-contexttime AudioTimestamp.contextTime specification>+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+-- | <https://webaudio.github.io/web-audio-api/#dom-audiotimestamp-contexttime AudioTimestamp.contextTime specification>+getContextTime :: (MonadDOM m) => AudioTimestamp -> m (Maybe Double)+getContextTime self = liftDOM (((js_getContextTime (self)) >>= fromJSValUnchecked))++-- | <https://webaudio.github.io/web-audio-api/#dom-audiotimestamp-contexttime AudioTimestamp.contextTime specification>+getContextTimeUnsafe :: (MonadDOM m, HasCallStack) => AudioTimestamp -> m Double+getContextTimeUnsafe self = liftDOM ((((js_getContextTime (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://webaudio.github.io/web-audio-api/#dom-audiotimestamp-contexttime AudioTimestamp.contextTime specification>+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 ()+-- | <https://webaudio.github.io/web-audio-api/#dom-audiotimestamp-performancetime AudioTimestamp.performanceTime specification>+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+-- | <https://webaudio.github.io/web-audio-api/#dom-audiotimestamp-performancetime AudioTimestamp.performanceTime specification>+getPerformanceTime :: (MonadDOM m) => AudioTimestamp -> m (Maybe Double)+getPerformanceTime self = liftDOM (((js_getPerformanceTime (self)) >>= fromJSValUnchecked))++-- | <https://webaudio.github.io/web-audio-api/#dom-audiotimestamp-performancetime AudioTimestamp.performanceTime specification>+getPerformanceTimeUnsafe :: (MonadDOM m, HasCallStack) => AudioTimestamp -> m Double+getPerformanceTimeUnsafe self = liftDOM ((((js_getPerformanceTime (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://webaudio.github.io/web-audio-api/#dom-audiotimestamp-performancetime AudioTimestamp.performanceTime specification>+getPerformanceTimeUnchecked :: (MonadDOM m) => AudioTimestamp -> m Double+getPerformanceTimeUnchecked self = liftDOM ((pFromJSVal <$> (js_getPerformanceTime (self))))
@@ -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 --- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioTrack.id Mozilla AudioTrack.id documentation> -getId :: (MonadIO m, FromJSString result) => AudioTrack -> m result-getId self = liftIO (fromJSString <$> (js_getId self))- -foreign import javascript unsafe "(($1, $2) => { $1[\"kind\"] = $2; })" js_setKind ::- AudioTrack -> JSString -> IO ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioTrack.kind Mozilla AudioTrack.kind documentation> -setKind :: (MonadIO m, ToJSString val) => AudioTrack -> val -> m ()-setKind self val = liftIO (js_setKind self (toJSString val))- -foreign import javascript unsafe "(($1) => { return $1[\"kind\"]; })" js_getKind ::- AudioTrack -> IO JSString+foreign import javascript unsafe "(($1) => { return $1[\"id\"]; })"+ js_getId :: AudioTrack -> IO JSString+-- | <https://developer.mozilla.org/docs/Web/API/AudioTrack/id MDN AudioTrack.id documentation>+getId :: (MonadDOM m, FromJSString result) => AudioTrack -> m result+getId self = liftDOM ((fromJSString <$> (js_getId (self)))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioTrack.kind Mozilla AudioTrack.kind documentation> -getKind ::- (MonadIO m, FromJSString result) => AudioTrack -> m result-getKind self = liftIO (fromJSString <$> (js_getKind self))- -foreign import javascript unsafe "(($1) => { return $1[\"label\"]; })" js_getLabel ::- AudioTrack -> IO JSString+foreign import javascript unsafe "(($1) => { return $1[\"kind\"]; })"+ js_getKind :: AudioTrack -> IO JSString+-- | <https://developer.mozilla.org/docs/Web/API/AudioTrack/kind MDN AudioTrack.kind documentation>+getKind :: (MonadDOM m, FromJSString result) => AudioTrack -> m result+getKind self = liftDOM ((fromJSString <$> (js_getKind (self)))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioTrack.label Mozilla AudioTrack.label documentation> -getLabel ::- (MonadIO m, FromJSString result) => AudioTrack -> m result-getLabel self = liftIO (fromJSString <$> (js_getLabel self))- -foreign import javascript unsafe "(($1, $2) => { $1[\"language\"] = $2; })"- js_setLanguage :: AudioTrack -> JSString -> IO ()+foreign import javascript unsafe "(($1) => { return $1[\"label\"]; })"+ js_getLabel :: AudioTrack -> IO JSString+-- | <https://developer.mozilla.org/docs/Web/API/AudioTrack/label MDN AudioTrack.label documentation>+getLabel :: (MonadDOM m, FromJSString result) => AudioTrack -> m result+getLabel self = liftDOM ((fromJSString <$> (js_getLabel (self)))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioTrack.language Mozilla AudioTrack.language documentation> -setLanguage ::- (MonadIO m, ToJSString val) => AudioTrack -> val -> m ()-setLanguage self val- = liftIO (js_setLanguage self (toJSString val))- -foreign import javascript unsafe "(($1) => { return $1[\"language\"]; })" js_getLanguage- :: AudioTrack -> IO JSString+foreign import javascript unsafe "(($1) => { return $1[\"language\"]; })"+ js_getLanguage :: AudioTrack -> IO JSString+-- | <https://developer.mozilla.org/docs/Web/API/AudioTrack/language MDN AudioTrack.language documentation>+getLanguage :: (MonadDOM m, FromJSString result) => AudioTrack -> m result+getLanguage self = liftDOM ((fromJSString <$> (js_getLanguage (self)))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioTrack.language Mozilla AudioTrack.language documentation> -getLanguage ::- (MonadIO m, FromJSString result) => AudioTrack -> m result-getLanguage self = liftIO (fromJSString <$> (js_getLanguage self))- -foreign import javascript unsafe "(($1, $2) => { $1[\"enabled\"] = $2; })"+foreign import javascript safe "(($1, $2) => { $1[\"enabled\"] = $2; })" js_setEnabled :: AudioTrack -> Bool -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/AudioTrack/enabled MDN AudioTrack.enabled documentation>+setEnabled :: (MonadDOM m) => AudioTrack -> Bool -> m ()+setEnabled self val = liftDOM (void ((js_setEnabled (self) (val)))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioTrack.enabled Mozilla AudioTrack.enabled documentation> -setEnabled :: (MonadIO m) => AudioTrack -> Bool -> m ()-setEnabled self val = liftIO (js_setEnabled self val)- -foreign import javascript unsafe "(($1) => { return ($1[\"enabled\"] ? 1 : 0); })"+foreign import javascript unsafe "(($1) => { return $1[\"enabled\"]; })" js_getEnabled :: AudioTrack -> IO Bool+-- | <https://developer.mozilla.org/docs/Web/API/AudioTrack/enabled MDN AudioTrack.enabled documentation>+getEnabled :: (MonadDOM m) => AudioTrack -> m Bool+getEnabled self = liftDOM ((js_getEnabled (self))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioTrack.enabled Mozilla AudioTrack.enabled documentation> -getEnabled :: (MonadIO m) => AudioTrack -> m Bool-getEnabled self = liftIO (js_getEnabled self)- foreign import javascript unsafe "(($1) => { return $1[\"sourceBuffer\"]; })"- js_getSourceBuffer :: AudioTrack -> IO SourceBuffer+ js_getSourceBuffer :: AudioTrack -> IO JSVal+-- | <https://developer.mozilla.org/docs/Web/API/AudioTrack/sourceBuffer MDN AudioTrack.sourceBuffer documentation>+getSourceBuffer :: (MonadDOM m) => AudioTrack -> m (Maybe SourceBuffer)+getSourceBuffer self = liftDOM (((js_getSourceBuffer (self)) >>= fromJSValUnchecked)) --- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioTrack.sourceBuffer Mozilla AudioTrack.sourceBuffer documentation> -getSourceBuffer :: (MonadIO m) => AudioTrack -> m SourceBuffer-getSourceBuffer self = liftIO (js_getSourceBuffer self)+-- | <https://developer.mozilla.org/docs/Web/API/AudioTrack/sourceBuffer MDN AudioTrack.sourceBuffer documentation>+getSourceBufferUnsafe :: (MonadDOM m, HasCallStack) => AudioTrack -> m SourceBuffer+getSourceBufferUnsafe self = liftDOM ((((js_getSourceBuffer (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://developer.mozilla.org/docs/Web/API/AudioTrack/sourceBuffer MDN AudioTrack.sourceBuffer documentation>+getSourceBufferUnchecked :: (MonadDOM m) => AudioTrack -> m SourceBuffer+getSourceBufferUnchecked self = liftDOM ((pFromJSVal <$> (js_getSourceBuffer (self))))
@@ -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 --- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioTrackList.item Mozilla AudioTrackList.item documentation> -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+-- | <https://developer.mozilla.org/docs/Web/API/AudioTrackList/getTrackById MDN AudioTrackList.getTrackById documentation>+getTrackById :: (MonadDOM m, ToJSString id) => AudioTrackList -> id -> m (Maybe AudioTrack)+getTrackById self id = liftDOM (((js_getTrackById (self) (toJSString id)) >>= fromJSValUnchecked)) --- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioTrackList.item Mozilla AudioTrackList.item documentation> -item_ :: (MonadIO m) => AudioTrackList -> Word -> m ()-item_ self index = liftIO (void (js_item self index))- -foreign import javascript unsafe "(($1, $2) => { return $1[\"getTrackById\"]($2); })"- js_getTrackById :: AudioTrackList -> JSString -> IO AudioTrack+-- | <https://developer.mozilla.org/docs/Web/API/AudioTrackList/getTrackById MDN AudioTrackList.getTrackById documentation>+getTrackById_ :: (MonadDOM m, ToJSString id) => AudioTrackList -> id -> m ()+getTrackById_ self id = liftDOM (void ((js_getTrackById (self) (toJSString id)))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioTrackList.getTrackById Mozilla AudioTrackList.getTrackById documentation> -getTrackById ::- (MonadIO m, ToJSString id) => AudioTrackList -> id -> m AudioTrack-getTrackById self id- = liftIO (js_getTrackById self (toJSString id))+-- | <https://developer.mozilla.org/docs/Web/API/AudioTrackList/getTrackById MDN AudioTrackList.getTrackById documentation>+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)) --- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioTrackList.getTrackById Mozilla AudioTrackList.getTrackById documentation> -getTrackById_ ::- (MonadIO m, ToJSString id) => AudioTrackList -> id -> m ()-getTrackById_ self id- = liftIO (void (js_getTrackById self (toJSString id)))- -foreign import javascript unsafe "(($1) => { return $1[\"length\"]; })" js_getLength ::- AudioTrackList -> IO Word+-- | <https://developer.mozilla.org/docs/Web/API/AudioTrackList/getTrackById MDN AudioTrackList.getTrackById documentation>+getTrackByIdUnchecked :: (MonadDOM m, ToJSString id) => AudioTrackList -> id -> m AudioTrack+getTrackByIdUnchecked self id = liftDOM ((pFromJSVal <$> (js_getTrackById (self) (toJSString id)))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioTrackList.length Mozilla AudioTrackList.length documentation> -getLength :: (MonadIO m) => AudioTrackList -> m Word-getLength self = liftIO (js_getLength self)+foreign import javascript unsafe "(($1) => { return $1[\"length\"]; })"+ js_getLength :: AudioTrackList -> IO Word+-- | <https://developer.mozilla.org/docs/Web/API/AudioTrackList/length MDN AudioTrackList.length documentation>+getLength :: (MonadDOM m) => AudioTrackList -> m Word+getLength self = liftDOM ((js_getLength (self))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioTrackList.onchange Mozilla AudioTrackList.onchange documentation> +-- | <https://html.spec.whatwg.org/multipage/media.html#handler-tracklist-onchange change event> change :: EventName AudioTrackList Event change = unsafeEventName (toJSString "change") --- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioTrackList.onaddtrack Mozilla AudioTrackList.onaddtrack documentation> -addTrack :: EventName AudioTrackList Event+-- | <https://html.spec.whatwg.org/multipage/media.html#handler-tracklist-onaddtrack addtrack event>+addTrack :: EventName AudioTrackList TrackEvent addTrack = unsafeEventName (toJSString "addtrack") --- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioTrackList.onremovetrack Mozilla AudioTrackList.onremovetrack documentation> -removeTrack :: EventName AudioTrackList Event+-- | <https://html.spec.whatwg.org/multipage/media.html#handler-tracklist-onremovetrack removetrack event>+removeTrack :: EventName AudioTrackList TrackEvent removeTrack = unsafeEventName (toJSString "removetrack")
@@ -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+
@@ -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 ()+-- | <https://developer.mozilla.org/docs/Web/API/AudioWorkletGlobalScope/registerProcessor MDN AudioWorkletGlobalScope.registerProcessor documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/AudioWorkletGlobalScope/currentFrame MDN AudioWorkletGlobalScope.currentFrame documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/AudioWorkletGlobalScope/currentTime MDN AudioWorkletGlobalScope.currentTime documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/AudioWorkletGlobalScope/sampleRate MDN AudioWorkletGlobalScope.sampleRate documentation>+getSampleRate :: (MonadDOM m) => AudioWorkletGlobalScope -> m Float+getSampleRate self = liftDOM ((js_getSampleRate (self)))
@@ -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+-- | <https://developer.mozilla.org/docs/Web/API/AudioWorkletNode/AudioWorkletNode MDN AudioWorkletNode. documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/AudioWorkletNode/parameters MDN AudioWorkletNode.parameters documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/AudioWorkletNode/port MDN AudioWorkletNode.port documentation>+getPort :: (MonadDOM m) => AudioWorkletNode -> m MessagePort+getPort self = liftDOM ((js_getPort (self)))++-- | <https://webaudio.github.io/web-audio-api/#dom-audioworkletnode-onprocessorerror processorerror event>+processorerror :: EventName AudioWorkletNode ErrorEvent+processorerror = unsafeEventName (toJSString "processorerror")
@@ -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+-- | <https://webaudio.github.io/web-audio-api/#AudioWorkletNodeOptions AudioWorkletNodeOptions specification>+newAudioWorkletNodeOptions :: (MonadDOM m) => m AudioWorkletNodeOptions+newAudioWorkletNodeOptions = liftDOM ((js_newAudioWorkletNodeOptions))++foreign import javascript safe "(($1, $2) => { $1[\"numberOfInputs\"] = $2; })"+ js_setNumberOfInputs :: AudioWorkletNodeOptions -> Word -> IO ()+-- | <https://webaudio.github.io/web-audio-api/#dom-audioworkletnodeoptions-numberofinputs AudioWorkletNodeOptions.numberOfInputs specification>+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+-- | <https://webaudio.github.io/web-audio-api/#dom-audioworkletnodeoptions-numberofinputs AudioWorkletNodeOptions.numberOfInputs specification>+getNumberOfInputs :: (MonadDOM m) => AudioWorkletNodeOptions -> m (Maybe Word)+getNumberOfInputs self = liftDOM (((js_getNumberOfInputs (self)) >>= fromJSValUnchecked))++-- | <https://webaudio.github.io/web-audio-api/#dom-audioworkletnodeoptions-numberofinputs AudioWorkletNodeOptions.numberOfInputs specification>+getNumberOfInputsUnsafe :: (MonadDOM m, HasCallStack) => AudioWorkletNodeOptions -> m Word+getNumberOfInputsUnsafe self = liftDOM ((((js_getNumberOfInputs (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://webaudio.github.io/web-audio-api/#dom-audioworkletnodeoptions-numberofinputs AudioWorkletNodeOptions.numberOfInputs specification>+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 ()+-- | <https://webaudio.github.io/web-audio-api/#dom-audioworkletnodeoptions-numberofoutputs AudioWorkletNodeOptions.numberOfOutputs specification>+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+-- | <https://webaudio.github.io/web-audio-api/#dom-audioworkletnodeoptions-numberofoutputs AudioWorkletNodeOptions.numberOfOutputs specification>+getNumberOfOutputs :: (MonadDOM m) => AudioWorkletNodeOptions -> m (Maybe Word)+getNumberOfOutputs self = liftDOM (((js_getNumberOfOutputs (self)) >>= fromJSValUnchecked))++-- | <https://webaudio.github.io/web-audio-api/#dom-audioworkletnodeoptions-numberofoutputs AudioWorkletNodeOptions.numberOfOutputs specification>+getNumberOfOutputsUnsafe :: (MonadDOM m, HasCallStack) => AudioWorkletNodeOptions -> m Word+getNumberOfOutputsUnsafe self = liftDOM ((((js_getNumberOfOutputs (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://webaudio.github.io/web-audio-api/#dom-audioworkletnodeoptions-numberofoutputs AudioWorkletNodeOptions.numberOfOutputs specification>+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 ()+-- | <https://webaudio.github.io/web-audio-api/#dom-audioworkletnodeoptions-outputchannelcount AudioWorkletNodeOptions.outputChannelCount specification>+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+-- | <https://webaudio.github.io/web-audio-api/#dom-audioworkletnodeoptions-outputchannelcount AudioWorkletNodeOptions.outputChannelCount specification>+getOutputChannelCount :: (MonadDOM m) => AudioWorkletNodeOptions -> m (Maybe [Word])+getOutputChannelCount self = liftDOM (((js_getOutputChannelCount (self)) >>= fromJSValUnchecked))++-- | <https://webaudio.github.io/web-audio-api/#dom-audioworkletnodeoptions-outputchannelcount AudioWorkletNodeOptions.outputChannelCount specification>+getOutputChannelCountUnsafe :: (MonadDOM m, HasCallStack) => AudioWorkletNodeOptions -> m [Word]+getOutputChannelCountUnsafe self = liftDOM ((((js_getOutputChannelCount (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://webaudio.github.io/web-audio-api/#dom-audioworkletnodeoptions-outputchannelcount AudioWorkletNodeOptions.outputChannelCount specification>+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 ()+-- | <https://webaudio.github.io/web-audio-api/#dom-audioworkletnodeoptions-parameterdata AudioWorkletNodeOptions.parameterData specification>+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+-- | <https://webaudio.github.io/web-audio-api/#dom-audioworkletnodeoptions-parameterdata AudioWorkletNodeOptions.parameterData specification>+getParameterData :: (MonadDOM m) => AudioWorkletNodeOptions -> m (Maybe (Record JSString JSVal))+getParameterData self = liftDOM (((js_getParameterData (self)) >>= fromJSValUnchecked))++-- | <https://webaudio.github.io/web-audio-api/#dom-audioworkletnodeoptions-parameterdata AudioWorkletNodeOptions.parameterData specification>+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))++-- | <https://webaudio.github.io/web-audio-api/#dom-audioworkletnodeoptions-parameterdata AudioWorkletNodeOptions.parameterData specification>+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 ()+-- | <https://webaudio.github.io/web-audio-api/#dom-audioworkletnodeoptions-processoroptions AudioWorkletNodeOptions.processorOptions specification>+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+-- | <https://webaudio.github.io/web-audio-api/#dom-audioworkletnodeoptions-processoroptions AudioWorkletNodeOptions.processorOptions specification>+getProcessorOptions :: (MonadDOM m) => AudioWorkletNodeOptions -> m (Maybe GObject)+getProcessorOptions self = liftDOM (((js_getProcessorOptions (self)) >>= fromJSValUnchecked))++-- | <https://webaudio.github.io/web-audio-api/#dom-audioworkletnodeoptions-processoroptions AudioWorkletNodeOptions.processorOptions specification>+getProcessorOptionsUnsafe :: (MonadDOM m, HasCallStack) => AudioWorkletNodeOptions -> m GObject+getProcessorOptionsUnsafe self = liftDOM ((((js_getProcessorOptions (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://webaudio.github.io/web-audio-api/#dom-audioworkletnodeoptions-processoroptions AudioWorkletNodeOptions.processorOptions specification>+getProcessorOptionsUnchecked :: (MonadDOM m) => AudioWorkletNodeOptions -> m GObject+getProcessorOptionsUnchecked self = liftDOM ((pFromJSVal <$> (js_getProcessorOptions (self))))
@@ -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+-- | <https://developer.mozilla.org/docs/Web/API/AudioWorkletProcessor/AudioWorkletProcessor MDN AudioWorkletProcessor. documentation>+newAudioWorkletProcessor :: (MonadDOM m) => m AudioWorkletProcessor+newAudioWorkletProcessor = liftDOM ((js_newAudioWorkletProcessor))++foreign import javascript unsafe "(($1) => { return $1[\"port\"]; })"+ js_getPort :: AudioWorkletProcessor -> IO MessagePort+-- | <https://developer.mozilla.org/docs/Web/API/AudioWorkletProcessor/port MDN AudioWorkletProcessor.port documentation>+getPort :: (MonadDOM m) => AudioWorkletProcessor -> m MessagePort+getPort self = liftDOM ((js_getPort (self)))
@@ -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'))
@@ -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+-- | <https://w3c.github.io/webauthn/#dictdef-authenticationextensionsclientinputs AuthenticationExtensionsClientInputs specification>+newAuthenticationExtensionsClientInputs :: (MonadDOM m) => m AuthenticationExtensionsClientInputs+newAuthenticationExtensionsClientInputs = liftDOM ((js_newAuthenticationExtensionsClientInputs))++foreign import javascript safe "(($1, $2) => { $1[\"credentialProtectionPolicy\"] = $2; })"+ js_setCredentialProtectionPolicy :: AuthenticationExtensionsClientInputs -> JSString -> IO ()+-- | <https://fidoalliance.org/specs/fido-v2.3-ps-20260226/fido-client-to-authenticator-protocol-v2.3-ps-20260226.html#dom-authenticationextensionsclientinputs-credentialprotectionpolicy AuthenticationExtensionsClientInputs.credentialProtectionPolicy specification>+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+-- | <https://fidoalliance.org/specs/fido-v2.3-ps-20260226/fido-client-to-authenticator-protocol-v2.3-ps-20260226.html#dom-authenticationextensionsclientinputs-credentialprotectionpolicy AuthenticationExtensionsClientInputs.credentialProtectionPolicy specification>+getCredentialProtectionPolicy :: (MonadDOM m, FromJSString result) => AuthenticationExtensionsClientInputs -> m (Maybe result)+getCredentialProtectionPolicy self = liftDOM (((fromMaybeJSString . Nullable) <$> (js_getCredentialProtectionPolicy (self))))++-- | <https://fidoalliance.org/specs/fido-v2.3-ps-20260226/fido-client-to-authenticator-protocol-v2.3-ps-20260226.html#dom-authenticationextensionsclientinputs-credentialprotectionpolicy AuthenticationExtensionsClientInputs.credentialProtectionPolicy specification>+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))++-- | <https://fidoalliance.org/specs/fido-v2.3-ps-20260226/fido-client-to-authenticator-protocol-v2.3-ps-20260226.html#dom-authenticationextensionsclientinputs-credentialprotectionpolicy AuthenticationExtensionsClientInputs.credentialProtectionPolicy specification>+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 ()+-- | <https://fidoalliance.org/specs/fido-v2.3-ps-20260226/fido-client-to-authenticator-protocol-v2.3-ps-20260226.html#dom-authenticationextensionsclientinputs-enforcecredentialprotectionpolicy AuthenticationExtensionsClientInputs.enforceCredentialProtectionPolicy specification>+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+-- | <https://fidoalliance.org/specs/fido-v2.3-ps-20260226/fido-client-to-authenticator-protocol-v2.3-ps-20260226.html#dom-authenticationextensionsclientinputs-enforcecredentialprotectionpolicy AuthenticationExtensionsClientInputs.enforceCredentialProtectionPolicy specification>+getEnforceCredentialProtectionPolicy :: (MonadDOM m) => AuthenticationExtensionsClientInputs -> m (Maybe Bool)+getEnforceCredentialProtectionPolicy self = liftDOM (((js_getEnforceCredentialProtectionPolicy (self)) >>= fromJSValUnchecked))++-- | <https://fidoalliance.org/specs/fido-v2.3-ps-20260226/fido-client-to-authenticator-protocol-v2.3-ps-20260226.html#dom-authenticationextensionsclientinputs-enforcecredentialprotectionpolicy AuthenticationExtensionsClientInputs.enforceCredentialProtectionPolicy specification>+getEnforceCredentialProtectionPolicyUnsafe :: (MonadDOM m, HasCallStack) => AuthenticationExtensionsClientInputs -> m Bool+getEnforceCredentialProtectionPolicyUnsafe self = liftDOM ((((js_getEnforceCredentialProtectionPolicy (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://fidoalliance.org/specs/fido-v2.3-ps-20260226/fido-client-to-authenticator-protocol-v2.3-ps-20260226.html#dom-authenticationextensionsclientinputs-enforcecredentialprotectionpolicy AuthenticationExtensionsClientInputs.enforceCredentialProtectionPolicy specification>+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 ()+-- | <https://fidoalliance.org/specs/fido-v2.3-ps-20260226/fido-client-to-authenticator-protocol-v2.3-ps-20260226.html#dom-authenticationextensionsclientinputs-credblob AuthenticationExtensionsClientInputs.credBlob specification>+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+-- | <https://fidoalliance.org/specs/fido-v2.3-ps-20260226/fido-client-to-authenticator-protocol-v2.3-ps-20260226.html#dom-authenticationextensionsclientinputs-credblob AuthenticationExtensionsClientInputs.credBlob specification>+getCredBlob :: (MonadDOM m) => AuthenticationExtensionsClientInputs -> m (Maybe ArrayBuffer)+getCredBlob self = liftDOM (((js_getCredBlob (self)) >>= fromJSValUnchecked))++-- | <https://fidoalliance.org/specs/fido-v2.3-ps-20260226/fido-client-to-authenticator-protocol-v2.3-ps-20260226.html#dom-authenticationextensionsclientinputs-credblob AuthenticationExtensionsClientInputs.credBlob specification>+getCredBlobUnsafe :: (MonadDOM m, HasCallStack) => AuthenticationExtensionsClientInputs -> m ArrayBuffer+getCredBlobUnsafe self = liftDOM ((((js_getCredBlob (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://fidoalliance.org/specs/fido-v2.3-ps-20260226/fido-client-to-authenticator-protocol-v2.3-ps-20260226.html#dom-authenticationextensionsclientinputs-credblob AuthenticationExtensionsClientInputs.credBlob specification>+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 ()+-- | <https://fidoalliance.org/specs/fido-v2.3-ps-20260226/fido-client-to-authenticator-protocol-v2.3-ps-20260226.html#dom-authenticationextensionsclientinputs-getcredblob AuthenticationExtensionsClientInputs.getCredBlob specification>+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+-- | <https://fidoalliance.org/specs/fido-v2.3-ps-20260226/fido-client-to-authenticator-protocol-v2.3-ps-20260226.html#dom-authenticationextensionsclientinputs-getcredblob AuthenticationExtensionsClientInputs.getCredBlob specification>+getGetCredBlob :: (MonadDOM m) => AuthenticationExtensionsClientInputs -> m (Maybe Bool)+getGetCredBlob self = liftDOM (((js_getGetCredBlob (self)) >>= fromJSValUnchecked))++-- | <https://fidoalliance.org/specs/fido-v2.3-ps-20260226/fido-client-to-authenticator-protocol-v2.3-ps-20260226.html#dom-authenticationextensionsclientinputs-getcredblob AuthenticationExtensionsClientInputs.getCredBlob specification>+getGetCredBlobUnsafe :: (MonadDOM m, HasCallStack) => AuthenticationExtensionsClientInputs -> m Bool+getGetCredBlobUnsafe self = liftDOM ((((js_getGetCredBlob (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://fidoalliance.org/specs/fido-v2.3-ps-20260226/fido-client-to-authenticator-protocol-v2.3-ps-20260226.html#dom-authenticationextensionsclientinputs-getcredblob AuthenticationExtensionsClientInputs.getCredBlob specification>+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 ()+-- | <https://fidoalliance.org/specs/fido-v2.3-ps-20260226/fido-client-to-authenticator-protocol-v2.3-ps-20260226.html#dom-authenticationextensionsclientinputs-minpinlength AuthenticationExtensionsClientInputs.minPinLength specification>+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+-- | <https://fidoalliance.org/specs/fido-v2.3-ps-20260226/fido-client-to-authenticator-protocol-v2.3-ps-20260226.html#dom-authenticationextensionsclientinputs-minpinlength AuthenticationExtensionsClientInputs.minPinLength specification>+getMinPinLength :: (MonadDOM m) => AuthenticationExtensionsClientInputs -> m (Maybe Bool)+getMinPinLength self = liftDOM (((js_getMinPinLength (self)) >>= fromJSValUnchecked))++-- | <https://fidoalliance.org/specs/fido-v2.3-ps-20260226/fido-client-to-authenticator-protocol-v2.3-ps-20260226.html#dom-authenticationextensionsclientinputs-minpinlength AuthenticationExtensionsClientInputs.minPinLength specification>+getMinPinLengthUnsafe :: (MonadDOM m, HasCallStack) => AuthenticationExtensionsClientInputs -> m Bool+getMinPinLengthUnsafe self = liftDOM ((((js_getMinPinLength (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://fidoalliance.org/specs/fido-v2.3-ps-20260226/fido-client-to-authenticator-protocol-v2.3-ps-20260226.html#dom-authenticationextensionsclientinputs-minpinlength AuthenticationExtensionsClientInputs.minPinLength specification>+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 ()+-- | <https://fidoalliance.org/specs/fido-v2.3-ps-20260226/fido-client-to-authenticator-protocol-v2.3-ps-20260226.html#dom-authenticationextensionsclientinputs-pincomplexitypolicy AuthenticationExtensionsClientInputs.pinComplexityPolicy specification>+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+-- | <https://fidoalliance.org/specs/fido-v2.3-ps-20260226/fido-client-to-authenticator-protocol-v2.3-ps-20260226.html#dom-authenticationextensionsclientinputs-pincomplexitypolicy AuthenticationExtensionsClientInputs.pinComplexityPolicy specification>+getPinComplexityPolicy :: (MonadDOM m) => AuthenticationExtensionsClientInputs -> m (Maybe Bool)+getPinComplexityPolicy self = liftDOM (((js_getPinComplexityPolicy (self)) >>= fromJSValUnchecked))++-- | <https://fidoalliance.org/specs/fido-v2.3-ps-20260226/fido-client-to-authenticator-protocol-v2.3-ps-20260226.html#dom-authenticationextensionsclientinputs-pincomplexitypolicy AuthenticationExtensionsClientInputs.pinComplexityPolicy specification>+getPinComplexityPolicyUnsafe :: (MonadDOM m, HasCallStack) => AuthenticationExtensionsClientInputs -> m Bool+getPinComplexityPolicyUnsafe self = liftDOM ((((js_getPinComplexityPolicy (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://fidoalliance.org/specs/fido-v2.3-ps-20260226/fido-client-to-authenticator-protocol-v2.3-ps-20260226.html#dom-authenticationextensionsclientinputs-pincomplexitypolicy AuthenticationExtensionsClientInputs.pinComplexityPolicy specification>+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 ()+-- | <https://fidoalliance.org/specs/fido-v2.3-ps-20260226/fido-client-to-authenticator-protocol-v2.3-ps-20260226.html#dom-authenticationextensionsclientinputs-hmaccreatesecret AuthenticationExtensionsClientInputs.hmacCreateSecret specification>+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+-- | <https://fidoalliance.org/specs/fido-v2.3-ps-20260226/fido-client-to-authenticator-protocol-v2.3-ps-20260226.html#dom-authenticationextensionsclientinputs-hmaccreatesecret AuthenticationExtensionsClientInputs.hmacCreateSecret specification>+getHmacCreateSecret :: (MonadDOM m) => AuthenticationExtensionsClientInputs -> m (Maybe Bool)+getHmacCreateSecret self = liftDOM (((js_getHmacCreateSecret (self)) >>= fromJSValUnchecked))++-- | <https://fidoalliance.org/specs/fido-v2.3-ps-20260226/fido-client-to-authenticator-protocol-v2.3-ps-20260226.html#dom-authenticationextensionsclientinputs-hmaccreatesecret AuthenticationExtensionsClientInputs.hmacCreateSecret specification>+getHmacCreateSecretUnsafe :: (MonadDOM m, HasCallStack) => AuthenticationExtensionsClientInputs -> m Bool+getHmacCreateSecretUnsafe self = liftDOM ((((js_getHmacCreateSecret (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://fidoalliance.org/specs/fido-v2.3-ps-20260226/fido-client-to-authenticator-protocol-v2.3-ps-20260226.html#dom-authenticationextensionsclientinputs-hmaccreatesecret AuthenticationExtensionsClientInputs.hmacCreateSecret specification>+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 ()+-- | <https://fidoalliance.org/specs/fido-v2.3-ps-20260226/fido-client-to-authenticator-protocol-v2.3-ps-20260226.html#dom-authenticationextensionsclientinputs-hmacgetsecret AuthenticationExtensionsClientInputs.hmacGetSecret specification>+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+-- | <https://fidoalliance.org/specs/fido-v2.3-ps-20260226/fido-client-to-authenticator-protocol-v2.3-ps-20260226.html#dom-authenticationextensionsclientinputs-hmacgetsecret AuthenticationExtensionsClientInputs.hmacGetSecret specification>+getHmacGetSecret :: (MonadDOM m) => AuthenticationExtensionsClientInputs -> m (Maybe HMACGetSecretInput)+getHmacGetSecret self = liftDOM (((js_getHmacGetSecret (self)) >>= fromJSValUnchecked))++-- | <https://fidoalliance.org/specs/fido-v2.3-ps-20260226/fido-client-to-authenticator-protocol-v2.3-ps-20260226.html#dom-authenticationextensionsclientinputs-hmacgetsecret AuthenticationExtensionsClientInputs.hmacGetSecret specification>+getHmacGetSecretUnsafe :: (MonadDOM m, HasCallStack) => AuthenticationExtensionsClientInputs -> m HMACGetSecretInput+getHmacGetSecretUnsafe self = liftDOM ((((js_getHmacGetSecret (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://fidoalliance.org/specs/fido-v2.3-ps-20260226/fido-client-to-authenticator-protocol-v2.3-ps-20260226.html#dom-authenticationextensionsclientinputs-hmacgetsecret AuthenticationExtensionsClientInputs.hmacGetSecret specification>+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 ()+-- | <https://w3c.github.io/secure-payment-confirmation/#dom-authenticationextensionsclientinputs-payment AuthenticationExtensionsClientInputs.payment specification>+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+-- | <https://w3c.github.io/secure-payment-confirmation/#dom-authenticationextensionsclientinputs-payment AuthenticationExtensionsClientInputs.payment specification>+getPayment :: (MonadDOM m) => AuthenticationExtensionsClientInputs -> m (Maybe AuthenticationExtensionsPaymentInputs)+getPayment self = liftDOM (((js_getPayment (self)) >>= fromJSValUnchecked))++-- | <https://w3c.github.io/secure-payment-confirmation/#dom-authenticationextensionsclientinputs-payment AuthenticationExtensionsClientInputs.payment specification>+getPaymentUnsafe :: (MonadDOM m, HasCallStack) => AuthenticationExtensionsClientInputs -> m AuthenticationExtensionsPaymentInputs+getPaymentUnsafe self = liftDOM ((((js_getPayment (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://w3c.github.io/secure-payment-confirmation/#dom-authenticationextensionsclientinputs-payment AuthenticationExtensionsClientInputs.payment specification>+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 ()+-- | <https://w3c.github.io/webauthn/#dom-authenticationextensionsclientinputs-appid AuthenticationExtensionsClientInputs.appid specification>+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+-- | <https://w3c.github.io/webauthn/#dom-authenticationextensionsclientinputs-appid AuthenticationExtensionsClientInputs.appid specification>+getAppid :: (MonadDOM m, FromJSString result) => AuthenticationExtensionsClientInputs -> m (Maybe result)+getAppid self = liftDOM (((fromMaybeJSString . Nullable) <$> (js_getAppid (self))))++-- | <https://w3c.github.io/webauthn/#dom-authenticationextensionsclientinputs-appid AuthenticationExtensionsClientInputs.appid specification>+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))++-- | <https://w3c.github.io/webauthn/#dom-authenticationextensionsclientinputs-appid AuthenticationExtensionsClientInputs.appid specification>+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 ()+-- | <https://w3c.github.io/webauthn/#dom-authenticationextensionsclientinputs-appidexclude AuthenticationExtensionsClientInputs.appidExclude specification>+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+-- | <https://w3c.github.io/webauthn/#dom-authenticationextensionsclientinputs-appidexclude AuthenticationExtensionsClientInputs.appidExclude specification>+getAppidExclude :: (MonadDOM m, FromJSString result) => AuthenticationExtensionsClientInputs -> m (Maybe result)+getAppidExclude self = liftDOM (((fromMaybeJSString . Nullable) <$> (js_getAppidExclude (self))))++-- | <https://w3c.github.io/webauthn/#dom-authenticationextensionsclientinputs-appidexclude AuthenticationExtensionsClientInputs.appidExclude specification>+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))++-- | <https://w3c.github.io/webauthn/#dom-authenticationextensionsclientinputs-appidexclude AuthenticationExtensionsClientInputs.appidExclude specification>+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 ()+-- | <https://w3c.github.io/webauthn/#dom-authenticationextensionsclientinputs-credprops AuthenticationExtensionsClientInputs.credProps specification>+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+-- | <https://w3c.github.io/webauthn/#dom-authenticationextensionsclientinputs-credprops AuthenticationExtensionsClientInputs.credProps specification>+getCredProps :: (MonadDOM m) => AuthenticationExtensionsClientInputs -> m (Maybe Bool)+getCredProps self = liftDOM (((js_getCredProps (self)) >>= fromJSValUnchecked))++-- | <https://w3c.github.io/webauthn/#dom-authenticationextensionsclientinputs-credprops AuthenticationExtensionsClientInputs.credProps specification>+getCredPropsUnsafe :: (MonadDOM m, HasCallStack) => AuthenticationExtensionsClientInputs -> m Bool+getCredPropsUnsafe self = liftDOM ((((js_getCredProps (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://w3c.github.io/webauthn/#dom-authenticationextensionsclientinputs-credprops AuthenticationExtensionsClientInputs.credProps specification>+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 ()+-- | <https://w3c.github.io/webauthn/#dom-authenticationextensionsclientinputs-prf AuthenticationExtensionsClientInputs.prf specification>+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+-- | <https://w3c.github.io/webauthn/#dom-authenticationextensionsclientinputs-prf AuthenticationExtensionsClientInputs.prf specification>+getPrf :: (MonadDOM m) => AuthenticationExtensionsClientInputs -> m (Maybe AuthenticationExtensionsPRFInputs)+getPrf self = liftDOM (((js_getPrf (self)) >>= fromJSValUnchecked))++-- | <https://w3c.github.io/webauthn/#dom-authenticationextensionsclientinputs-prf AuthenticationExtensionsClientInputs.prf specification>+getPrfUnsafe :: (MonadDOM m, HasCallStack) => AuthenticationExtensionsClientInputs -> m AuthenticationExtensionsPRFInputs+getPrfUnsafe self = liftDOM ((((js_getPrf (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://w3c.github.io/webauthn/#dom-authenticationextensionsclientinputs-prf AuthenticationExtensionsClientInputs.prf specification>+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 ()+-- | <https://w3c.github.io/webauthn/#dom-authenticationextensionsclientinputs-largeblob AuthenticationExtensionsClientInputs.largeBlob specification>+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+-- | <https://w3c.github.io/webauthn/#dom-authenticationextensionsclientinputs-largeblob AuthenticationExtensionsClientInputs.largeBlob specification>+getLargeBlob :: (MonadDOM m) => AuthenticationExtensionsClientInputs -> m (Maybe AuthenticationExtensionsLargeBlobInputs)+getLargeBlob self = liftDOM (((js_getLargeBlob (self)) >>= fromJSValUnchecked))++-- | <https://w3c.github.io/webauthn/#dom-authenticationextensionsclientinputs-largeblob AuthenticationExtensionsClientInputs.largeBlob specification>+getLargeBlobUnsafe :: (MonadDOM m, HasCallStack) => AuthenticationExtensionsClientInputs -> m AuthenticationExtensionsLargeBlobInputs+getLargeBlobUnsafe self = liftDOM ((((js_getLargeBlob (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://w3c.github.io/webauthn/#dom-authenticationextensionsclientinputs-largeblob AuthenticationExtensionsClientInputs.largeBlob specification>+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 ()+-- | <https://w3c.github.io/webauthn/#dom-authenticationextensionsclientinputs-remoteclientdatajson AuthenticationExtensionsClientInputs.remoteClientDataJSON specification>+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+-- | <https://w3c.github.io/webauthn/#dom-authenticationextensionsclientinputs-remoteclientdatajson AuthenticationExtensionsClientInputs.remoteClientDataJSON specification>+getRemoteClientDataJSON :: (MonadDOM m, FromJSString result) => AuthenticationExtensionsClientInputs -> m (Maybe result)+getRemoteClientDataJSON self = liftDOM (((fromMaybeJSString . Nullable) <$> (js_getRemoteClientDataJSON (self))))++-- | <https://w3c.github.io/webauthn/#dom-authenticationextensionsclientinputs-remoteclientdatajson AuthenticationExtensionsClientInputs.remoteClientDataJSON specification>+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))++-- | <https://w3c.github.io/webauthn/#dom-authenticationextensionsclientinputs-remoteclientdatajson AuthenticationExtensionsClientInputs.remoteClientDataJSON specification>+getRemoteClientDataJSONUnchecked :: (MonadDOM m, FromJSString result) => AuthenticationExtensionsClientInputs -> m result+getRemoteClientDataJSONUnchecked self = liftDOM ((pFromJSVal <$> (js_getRemoteClientDataJSON (self))))
@@ -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+-- | <https://w3c.github.io/webauthn/#dictdef-authenticationextensionsclientinputsjson AuthenticationExtensionsClientInputsJSON specification>+newAuthenticationExtensionsClientInputsJSON :: (MonadDOM m) => m AuthenticationExtensionsClientInputsJSON+newAuthenticationExtensionsClientInputsJSON = liftDOM ((js_newAuthenticationExtensionsClientInputsJSON))++foreign import javascript safe "(($1, $2) => { $1[\"appid\"] = $2; })"+ js_setAppid :: AuthenticationExtensionsClientInputsJSON -> JSString -> IO ()+-- | <https://w3c.github.io/webauthn/#dom-authenticationextensionsclientinputsjson-appid AuthenticationExtensionsClientInputsJSON.appid specification>+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+-- | <https://w3c.github.io/webauthn/#dom-authenticationextensionsclientinputsjson-appid AuthenticationExtensionsClientInputsJSON.appid specification>+getAppid :: (MonadDOM m, FromJSString result) => AuthenticationExtensionsClientInputsJSON -> m (Maybe result)+getAppid self = liftDOM (((fromMaybeJSString . Nullable) <$> (js_getAppid (self))))++-- | <https://w3c.github.io/webauthn/#dom-authenticationextensionsclientinputsjson-appid AuthenticationExtensionsClientInputsJSON.appid specification>+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))++-- | <https://w3c.github.io/webauthn/#dom-authenticationextensionsclientinputsjson-appid AuthenticationExtensionsClientInputsJSON.appid specification>+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 ()+-- | <https://w3c.github.io/webauthn/#dom-authenticationextensionsclientinputsjson-appidexclude AuthenticationExtensionsClientInputsJSON.appidExclude specification>+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+-- | <https://w3c.github.io/webauthn/#dom-authenticationextensionsclientinputsjson-appidexclude AuthenticationExtensionsClientInputsJSON.appidExclude specification>+getAppidExclude :: (MonadDOM m, FromJSString result) => AuthenticationExtensionsClientInputsJSON -> m (Maybe result)+getAppidExclude self = liftDOM (((fromMaybeJSString . Nullable) <$> (js_getAppidExclude (self))))++-- | <https://w3c.github.io/webauthn/#dom-authenticationextensionsclientinputsjson-appidexclude AuthenticationExtensionsClientInputsJSON.appidExclude specification>+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))++-- | <https://w3c.github.io/webauthn/#dom-authenticationextensionsclientinputsjson-appidexclude AuthenticationExtensionsClientInputsJSON.appidExclude specification>+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 ()+-- | <https://w3c.github.io/webauthn/#dom-authenticationextensionsclientinputsjson-credprops AuthenticationExtensionsClientInputsJSON.credProps specification>+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+-- | <https://w3c.github.io/webauthn/#dom-authenticationextensionsclientinputsjson-credprops AuthenticationExtensionsClientInputsJSON.credProps specification>+getCredProps :: (MonadDOM m) => AuthenticationExtensionsClientInputsJSON -> m (Maybe Bool)+getCredProps self = liftDOM (((js_getCredProps (self)) >>= fromJSValUnchecked))++-- | <https://w3c.github.io/webauthn/#dom-authenticationextensionsclientinputsjson-credprops AuthenticationExtensionsClientInputsJSON.credProps specification>+getCredPropsUnsafe :: (MonadDOM m, HasCallStack) => AuthenticationExtensionsClientInputsJSON -> m Bool+getCredPropsUnsafe self = liftDOM ((((js_getCredProps (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://w3c.github.io/webauthn/#dom-authenticationextensionsclientinputsjson-credprops AuthenticationExtensionsClientInputsJSON.credProps specification>+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 ()+-- | <https://w3c.github.io/webauthn/#dom-authenticationextensionsclientinputsjson-prf AuthenticationExtensionsClientInputsJSON.prf specification>+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+-- | <https://w3c.github.io/webauthn/#dom-authenticationextensionsclientinputsjson-prf AuthenticationExtensionsClientInputsJSON.prf specification>+getPrf :: (MonadDOM m) => AuthenticationExtensionsClientInputsJSON -> m (Maybe AuthenticationExtensionsPRFInputsJSON)+getPrf self = liftDOM (((js_getPrf (self)) >>= fromJSValUnchecked))++-- | <https://w3c.github.io/webauthn/#dom-authenticationextensionsclientinputsjson-prf AuthenticationExtensionsClientInputsJSON.prf specification>+getPrfUnsafe :: (MonadDOM m, HasCallStack) => AuthenticationExtensionsClientInputsJSON -> m AuthenticationExtensionsPRFInputsJSON+getPrfUnsafe self = liftDOM ((((js_getPrf (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://w3c.github.io/webauthn/#dom-authenticationextensionsclientinputsjson-prf AuthenticationExtensionsClientInputsJSON.prf specification>+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 ()+-- | <https://w3c.github.io/webauthn/#dom-authenticationextensionsclientinputsjson-largeblob AuthenticationExtensionsClientInputsJSON.largeBlob specification>+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+-- | <https://w3c.github.io/webauthn/#dom-authenticationextensionsclientinputsjson-largeblob AuthenticationExtensionsClientInputsJSON.largeBlob specification>+getLargeBlob :: (MonadDOM m) => AuthenticationExtensionsClientInputsJSON -> m (Maybe AuthenticationExtensionsLargeBlobInputsJSON)+getLargeBlob self = liftDOM (((js_getLargeBlob (self)) >>= fromJSValUnchecked))++-- | <https://w3c.github.io/webauthn/#dom-authenticationextensionsclientinputsjson-largeblob AuthenticationExtensionsClientInputsJSON.largeBlob specification>+getLargeBlobUnsafe :: (MonadDOM m, HasCallStack) => AuthenticationExtensionsClientInputsJSON -> m AuthenticationExtensionsLargeBlobInputsJSON+getLargeBlobUnsafe self = liftDOM ((((js_getLargeBlob (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://w3c.github.io/webauthn/#dom-authenticationextensionsclientinputsjson-largeblob AuthenticationExtensionsClientInputsJSON.largeBlob specification>+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 ()+-- | <https://w3c.github.io/webauthn/#dom-authenticationextensionsclientinputsjson-remoteclientdatajson AuthenticationExtensionsClientInputsJSON.remoteClientDataJSON specification>+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+-- | <https://w3c.github.io/webauthn/#dom-authenticationextensionsclientinputsjson-remoteclientdatajson AuthenticationExtensionsClientInputsJSON.remoteClientDataJSON specification>+getRemoteClientDataJSON :: (MonadDOM m, FromJSString result) => AuthenticationExtensionsClientInputsJSON -> m (Maybe result)+getRemoteClientDataJSON self = liftDOM (((fromMaybeJSString . Nullable) <$> (js_getRemoteClientDataJSON (self))))++-- | <https://w3c.github.io/webauthn/#dom-authenticationextensionsclientinputsjson-remoteclientdatajson AuthenticationExtensionsClientInputsJSON.remoteClientDataJSON specification>+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))++-- | <https://w3c.github.io/webauthn/#dom-authenticationextensionsclientinputsjson-remoteclientdatajson AuthenticationExtensionsClientInputsJSON.remoteClientDataJSON specification>+getRemoteClientDataJSONUnchecked :: (MonadDOM m, FromJSString result) => AuthenticationExtensionsClientInputsJSON -> m result+getRemoteClientDataJSONUnchecked self = liftDOM ((pFromJSVal <$> (js_getRemoteClientDataJSON (self))))
@@ -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+-- | <https://w3c.github.io/webauthn/#dictdef-authenticationextensionsclientoutputs AuthenticationExtensionsClientOutputs specification>+newAuthenticationExtensionsClientOutputs :: (MonadDOM m) => m AuthenticationExtensionsClientOutputs+newAuthenticationExtensionsClientOutputs = liftDOM ((js_newAuthenticationExtensionsClientOutputs))++foreign import javascript safe "(($1, $2) => { $1[\"credBlob\"] = $2; })"+ js_setCredBlob :: AuthenticationExtensionsClientOutputs -> Bool -> IO ()+-- | <https://fidoalliance.org/specs/fido-v2.3-ps-20260226/fido-client-to-authenticator-protocol-v2.3-ps-20260226.html#dom-authenticationextensionsclientoutputs-credblob AuthenticationExtensionsClientOutputs.credBlob specification>+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+-- | <https://fidoalliance.org/specs/fido-v2.3-ps-20260226/fido-client-to-authenticator-protocol-v2.3-ps-20260226.html#dom-authenticationextensionsclientoutputs-credblob AuthenticationExtensionsClientOutputs.credBlob specification>+getCredBlob :: (MonadDOM m) => AuthenticationExtensionsClientOutputs -> m (Maybe Bool)+getCredBlob self = liftDOM (((js_getCredBlob (self)) >>= fromJSValUnchecked))++-- | <https://fidoalliance.org/specs/fido-v2.3-ps-20260226/fido-client-to-authenticator-protocol-v2.3-ps-20260226.html#dom-authenticationextensionsclientoutputs-credblob AuthenticationExtensionsClientOutputs.credBlob specification>+getCredBlobUnsafe :: (MonadDOM m, HasCallStack) => AuthenticationExtensionsClientOutputs -> m Bool+getCredBlobUnsafe self = liftDOM ((((js_getCredBlob (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://fidoalliance.org/specs/fido-v2.3-ps-20260226/fido-client-to-authenticator-protocol-v2.3-ps-20260226.html#dom-authenticationextensionsclientoutputs-credblob AuthenticationExtensionsClientOutputs.credBlob specification>+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 ()+-- | <https://fidoalliance.org/specs/fido-v2.3-ps-20260226/fido-client-to-authenticator-protocol-v2.3-ps-20260226.html#dom-authenticationextensionsclientoutputs-getcredblob AuthenticationExtensionsClientOutputs.getCredBlob specification>+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+-- | <https://fidoalliance.org/specs/fido-v2.3-ps-20260226/fido-client-to-authenticator-protocol-v2.3-ps-20260226.html#dom-authenticationextensionsclientoutputs-getcredblob AuthenticationExtensionsClientOutputs.getCredBlob specification>+getGetCredBlob :: (MonadDOM m) => AuthenticationExtensionsClientOutputs -> m (Maybe ArrayBuffer)+getGetCredBlob self = liftDOM (((js_getGetCredBlob (self)) >>= fromJSValUnchecked))++-- | <https://fidoalliance.org/specs/fido-v2.3-ps-20260226/fido-client-to-authenticator-protocol-v2.3-ps-20260226.html#dom-authenticationextensionsclientoutputs-getcredblob AuthenticationExtensionsClientOutputs.getCredBlob specification>+getGetCredBlobUnsafe :: (MonadDOM m, HasCallStack) => AuthenticationExtensionsClientOutputs -> m ArrayBuffer+getGetCredBlobUnsafe self = liftDOM ((((js_getGetCredBlob (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://fidoalliance.org/specs/fido-v2.3-ps-20260226/fido-client-to-authenticator-protocol-v2.3-ps-20260226.html#dom-authenticationextensionsclientoutputs-getcredblob AuthenticationExtensionsClientOutputs.getCredBlob specification>+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 ()+-- | <https://fidoalliance.org/specs/fido-v2.3-ps-20260226/fido-client-to-authenticator-protocol-v2.3-ps-20260226.html#dom-authenticationextensionsclientoutputs-hmaccreatesecret AuthenticationExtensionsClientOutputs.hmacCreateSecret specification>+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+-- | <https://fidoalliance.org/specs/fido-v2.3-ps-20260226/fido-client-to-authenticator-protocol-v2.3-ps-20260226.html#dom-authenticationextensionsclientoutputs-hmaccreatesecret AuthenticationExtensionsClientOutputs.hmacCreateSecret specification>+getHmacCreateSecret :: (MonadDOM m) => AuthenticationExtensionsClientOutputs -> m (Maybe Bool)+getHmacCreateSecret self = liftDOM (((js_getHmacCreateSecret (self)) >>= fromJSValUnchecked))++-- | <https://fidoalliance.org/specs/fido-v2.3-ps-20260226/fido-client-to-authenticator-protocol-v2.3-ps-20260226.html#dom-authenticationextensionsclientoutputs-hmaccreatesecret AuthenticationExtensionsClientOutputs.hmacCreateSecret specification>+getHmacCreateSecretUnsafe :: (MonadDOM m, HasCallStack) => AuthenticationExtensionsClientOutputs -> m Bool+getHmacCreateSecretUnsafe self = liftDOM ((((js_getHmacCreateSecret (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://fidoalliance.org/specs/fido-v2.3-ps-20260226/fido-client-to-authenticator-protocol-v2.3-ps-20260226.html#dom-authenticationextensionsclientoutputs-hmaccreatesecret AuthenticationExtensionsClientOutputs.hmacCreateSecret specification>+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 ()+-- | <https://fidoalliance.org/specs/fido-v2.3-ps-20260226/fido-client-to-authenticator-protocol-v2.3-ps-20260226.html#dom-authenticationextensionsclientoutputs-hmacgetsecret AuthenticationExtensionsClientOutputs.hmacGetSecret specification>+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+-- | <https://fidoalliance.org/specs/fido-v2.3-ps-20260226/fido-client-to-authenticator-protocol-v2.3-ps-20260226.html#dom-authenticationextensionsclientoutputs-hmacgetsecret AuthenticationExtensionsClientOutputs.hmacGetSecret specification>+getHmacGetSecret :: (MonadDOM m) => AuthenticationExtensionsClientOutputs -> m (Maybe HMACGetSecretOutput)+getHmacGetSecret self = liftDOM (((js_getHmacGetSecret (self)) >>= fromJSValUnchecked))++-- | <https://fidoalliance.org/specs/fido-v2.3-ps-20260226/fido-client-to-authenticator-protocol-v2.3-ps-20260226.html#dom-authenticationextensionsclientoutputs-hmacgetsecret AuthenticationExtensionsClientOutputs.hmacGetSecret specification>+getHmacGetSecretUnsafe :: (MonadDOM m, HasCallStack) => AuthenticationExtensionsClientOutputs -> m HMACGetSecretOutput+getHmacGetSecretUnsafe self = liftDOM ((((js_getHmacGetSecret (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://fidoalliance.org/specs/fido-v2.3-ps-20260226/fido-client-to-authenticator-protocol-v2.3-ps-20260226.html#dom-authenticationextensionsclientoutputs-hmacgetsecret AuthenticationExtensionsClientOutputs.hmacGetSecret specification>+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 ()+-- | <https://w3c.github.io/secure-payment-confirmation/#dom-authenticationextensionsclientoutputs-payment AuthenticationExtensionsClientOutputs.payment specification>+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+-- | <https://w3c.github.io/secure-payment-confirmation/#dom-authenticationextensionsclientoutputs-payment AuthenticationExtensionsClientOutputs.payment specification>+getPayment :: (MonadDOM m) => AuthenticationExtensionsClientOutputs -> m (Maybe AuthenticationExtensionsPaymentOutputs)+getPayment self = liftDOM (((js_getPayment (self)) >>= fromJSValUnchecked))++-- | <https://w3c.github.io/secure-payment-confirmation/#dom-authenticationextensionsclientoutputs-payment AuthenticationExtensionsClientOutputs.payment specification>+getPaymentUnsafe :: (MonadDOM m, HasCallStack) => AuthenticationExtensionsClientOutputs -> m AuthenticationExtensionsPaymentOutputs+getPaymentUnsafe self = liftDOM ((((js_getPayment (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://w3c.github.io/secure-payment-confirmation/#dom-authenticationextensionsclientoutputs-payment AuthenticationExtensionsClientOutputs.payment specification>+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 ()+-- | <https://w3c.github.io/webauthn/#dom-authenticationextensionsclientoutputs-appid AuthenticationExtensionsClientOutputs.appid specification>+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+-- | <https://w3c.github.io/webauthn/#dom-authenticationextensionsclientoutputs-appid AuthenticationExtensionsClientOutputs.appid specification>+getAppid :: (MonadDOM m) => AuthenticationExtensionsClientOutputs -> m (Maybe Bool)+getAppid self = liftDOM (((js_getAppid (self)) >>= fromJSValUnchecked))++-- | <https://w3c.github.io/webauthn/#dom-authenticationextensionsclientoutputs-appid AuthenticationExtensionsClientOutputs.appid specification>+getAppidUnsafe :: (MonadDOM m, HasCallStack) => AuthenticationExtensionsClientOutputs -> m Bool+getAppidUnsafe self = liftDOM ((((js_getAppid (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://w3c.github.io/webauthn/#dom-authenticationextensionsclientoutputs-appid AuthenticationExtensionsClientOutputs.appid specification>+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 ()+-- | <https://w3c.github.io/webauthn/#dom-authenticationextensionsclientoutputs-appidexclude AuthenticationExtensionsClientOutputs.appidExclude specification>+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+-- | <https://w3c.github.io/webauthn/#dom-authenticationextensionsclientoutputs-appidexclude AuthenticationExtensionsClientOutputs.appidExclude specification>+getAppidExclude :: (MonadDOM m) => AuthenticationExtensionsClientOutputs -> m (Maybe Bool)+getAppidExclude self = liftDOM (((js_getAppidExclude (self)) >>= fromJSValUnchecked))++-- | <https://w3c.github.io/webauthn/#dom-authenticationextensionsclientoutputs-appidexclude AuthenticationExtensionsClientOutputs.appidExclude specification>+getAppidExcludeUnsafe :: (MonadDOM m, HasCallStack) => AuthenticationExtensionsClientOutputs -> m Bool+getAppidExcludeUnsafe self = liftDOM ((((js_getAppidExclude (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://w3c.github.io/webauthn/#dom-authenticationextensionsclientoutputs-appidexclude AuthenticationExtensionsClientOutputs.appidExclude specification>+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 ()+-- | <https://w3c.github.io/webauthn/#dom-authenticationextensionsclientoutputs-credprops AuthenticationExtensionsClientOutputs.credProps specification>+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+-- | <https://w3c.github.io/webauthn/#dom-authenticationextensionsclientoutputs-credprops AuthenticationExtensionsClientOutputs.credProps specification>+getCredProps :: (MonadDOM m) => AuthenticationExtensionsClientOutputs -> m (Maybe CredentialPropertiesOutput)+getCredProps self = liftDOM (((js_getCredProps (self)) >>= fromJSValUnchecked))++-- | <https://w3c.github.io/webauthn/#dom-authenticationextensionsclientoutputs-credprops AuthenticationExtensionsClientOutputs.credProps specification>+getCredPropsUnsafe :: (MonadDOM m, HasCallStack) => AuthenticationExtensionsClientOutputs -> m CredentialPropertiesOutput+getCredPropsUnsafe self = liftDOM ((((js_getCredProps (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://w3c.github.io/webauthn/#dom-authenticationextensionsclientoutputs-credprops AuthenticationExtensionsClientOutputs.credProps specification>+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 ()+-- | <https://w3c.github.io/webauthn/#dom-authenticationextensionsclientoutputs-prf AuthenticationExtensionsClientOutputs.prf specification>+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+-- | <https://w3c.github.io/webauthn/#dom-authenticationextensionsclientoutputs-prf AuthenticationExtensionsClientOutputs.prf specification>+getPrf :: (MonadDOM m) => AuthenticationExtensionsClientOutputs -> m (Maybe AuthenticationExtensionsPRFOutputs)+getPrf self = liftDOM (((js_getPrf (self)) >>= fromJSValUnchecked))++-- | <https://w3c.github.io/webauthn/#dom-authenticationextensionsclientoutputs-prf AuthenticationExtensionsClientOutputs.prf specification>+getPrfUnsafe :: (MonadDOM m, HasCallStack) => AuthenticationExtensionsClientOutputs -> m AuthenticationExtensionsPRFOutputs+getPrfUnsafe self = liftDOM ((((js_getPrf (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://w3c.github.io/webauthn/#dom-authenticationextensionsclientoutputs-prf AuthenticationExtensionsClientOutputs.prf specification>+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 ()+-- | <https://w3c.github.io/webauthn/#dom-authenticationextensionsclientoutputs-largeblob AuthenticationExtensionsClientOutputs.largeBlob specification>+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+-- | <https://w3c.github.io/webauthn/#dom-authenticationextensionsclientoutputs-largeblob AuthenticationExtensionsClientOutputs.largeBlob specification>+getLargeBlob :: (MonadDOM m) => AuthenticationExtensionsClientOutputs -> m (Maybe AuthenticationExtensionsLargeBlobOutputs)+getLargeBlob self = liftDOM (((js_getLargeBlob (self)) >>= fromJSValUnchecked))++-- | <https://w3c.github.io/webauthn/#dom-authenticationextensionsclientoutputs-largeblob AuthenticationExtensionsClientOutputs.largeBlob specification>+getLargeBlobUnsafe :: (MonadDOM m, HasCallStack) => AuthenticationExtensionsClientOutputs -> m AuthenticationExtensionsLargeBlobOutputs+getLargeBlobUnsafe self = liftDOM ((((js_getLargeBlob (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://w3c.github.io/webauthn/#dom-authenticationextensionsclientoutputs-largeblob AuthenticationExtensionsClientOutputs.largeBlob specification>+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 ()+-- | <https://w3c.github.io/webauthn/#dom-authenticationextensionsclientoutputs-remoteclientdatajson AuthenticationExtensionsClientOutputs.remoteClientDataJSON specification>+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+-- | <https://w3c.github.io/webauthn/#dom-authenticationextensionsclientoutputs-remoteclientdatajson AuthenticationExtensionsClientOutputs.remoteClientDataJSON specification>+getRemoteClientDataJSON :: (MonadDOM m) => AuthenticationExtensionsClientOutputs -> m (Maybe Bool)+getRemoteClientDataJSON self = liftDOM (((js_getRemoteClientDataJSON (self)) >>= fromJSValUnchecked))++-- | <https://w3c.github.io/webauthn/#dom-authenticationextensionsclientoutputs-remoteclientdatajson AuthenticationExtensionsClientOutputs.remoteClientDataJSON specification>+getRemoteClientDataJSONUnsafe :: (MonadDOM m, HasCallStack) => AuthenticationExtensionsClientOutputs -> m Bool+getRemoteClientDataJSONUnsafe self = liftDOM ((((js_getRemoteClientDataJSON (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://w3c.github.io/webauthn/#dom-authenticationextensionsclientoutputs-remoteclientdatajson AuthenticationExtensionsClientOutputs.remoteClientDataJSON specification>+getRemoteClientDataJSONUnchecked :: (MonadDOM m) => AuthenticationExtensionsClientOutputs -> m Bool+getRemoteClientDataJSONUnchecked self = liftDOM ((pFromJSVal <$> (js_getRemoteClientDataJSON (self))))
@@ -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+-- | <https://w3c.github.io/webauthn/#dictdef-authenticationextensionslargeblobinputs AuthenticationExtensionsLargeBlobInputs specification>+newAuthenticationExtensionsLargeBlobInputs :: (MonadDOM m) => m AuthenticationExtensionsLargeBlobInputs+newAuthenticationExtensionsLargeBlobInputs = liftDOM ((js_newAuthenticationExtensionsLargeBlobInputs))++foreign import javascript safe "(($1, $2) => { $1[\"support\"] = $2; })"+ js_setSupport :: AuthenticationExtensionsLargeBlobInputs -> JSString -> IO ()+-- | <https://w3c.github.io/webauthn/#dom-authenticationextensionslargeblobinputs-support AuthenticationExtensionsLargeBlobInputs.support specification>+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+-- | <https://w3c.github.io/webauthn/#dom-authenticationextensionslargeblobinputs-support AuthenticationExtensionsLargeBlobInputs.support specification>+getSupport :: (MonadDOM m, FromJSString result) => AuthenticationExtensionsLargeBlobInputs -> m (Maybe result)+getSupport self = liftDOM (((fromMaybeJSString . Nullable) <$> (js_getSupport (self))))++-- | <https://w3c.github.io/webauthn/#dom-authenticationextensionslargeblobinputs-support AuthenticationExtensionsLargeBlobInputs.support specification>+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))++-- | <https://w3c.github.io/webauthn/#dom-authenticationextensionslargeblobinputs-support AuthenticationExtensionsLargeBlobInputs.support specification>+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 ()+-- | <https://w3c.github.io/webauthn/#dom-authenticationextensionslargeblobinputs-read AuthenticationExtensionsLargeBlobInputs.read specification>+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+-- | <https://w3c.github.io/webauthn/#dom-authenticationextensionslargeblobinputs-read AuthenticationExtensionsLargeBlobInputs.read specification>+getRead :: (MonadDOM m) => AuthenticationExtensionsLargeBlobInputs -> m (Maybe Bool)+getRead self = liftDOM (((js_getRead (self)) >>= fromJSValUnchecked))++-- | <https://w3c.github.io/webauthn/#dom-authenticationextensionslargeblobinputs-read AuthenticationExtensionsLargeBlobInputs.read specification>+getReadUnsafe :: (MonadDOM m, HasCallStack) => AuthenticationExtensionsLargeBlobInputs -> m Bool+getReadUnsafe self = liftDOM ((((js_getRead (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://w3c.github.io/webauthn/#dom-authenticationextensionslargeblobinputs-read AuthenticationExtensionsLargeBlobInputs.read specification>+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 ()+-- | <https://w3c.github.io/webauthn/#dom-authenticationextensionslargeblobinputs-write AuthenticationExtensionsLargeBlobInputs.write specification>+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+-- | <https://w3c.github.io/webauthn/#dom-authenticationextensionslargeblobinputs-write AuthenticationExtensionsLargeBlobInputs.write specification>+getWrite :: (MonadDOM m) => AuthenticationExtensionsLargeBlobInputs -> m (Maybe BufferSource)+getWrite self = liftDOM (((js_getWrite (self)) >>= fromJSValUnchecked))++-- | <https://w3c.github.io/webauthn/#dom-authenticationextensionslargeblobinputs-write AuthenticationExtensionsLargeBlobInputs.write specification>+getWriteUnsafe :: (MonadDOM m, HasCallStack) => AuthenticationExtensionsLargeBlobInputs -> m BufferSource+getWriteUnsafe self = liftDOM ((((js_getWrite (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://w3c.github.io/webauthn/#dom-authenticationextensionslargeblobinputs-write AuthenticationExtensionsLargeBlobInputs.write specification>+getWriteUnchecked :: (MonadDOM m) => AuthenticationExtensionsLargeBlobInputs -> m BufferSource+getWriteUnchecked self = liftDOM ((pFromJSVal <$> (js_getWrite (self))))
@@ -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+-- | <https://w3c.github.io/webauthn/#dictdef-authenticationextensionslargeblobinputsjson AuthenticationExtensionsLargeBlobInputsJSON specification>+newAuthenticationExtensionsLargeBlobInputsJSON :: (MonadDOM m) => m AuthenticationExtensionsLargeBlobInputsJSON+newAuthenticationExtensionsLargeBlobInputsJSON = liftDOM ((js_newAuthenticationExtensionsLargeBlobInputsJSON))++foreign import javascript safe "(($1, $2) => { $1[\"support\"] = $2; })"+ js_setSupport :: AuthenticationExtensionsLargeBlobInputsJSON -> JSString -> IO ()+-- | <https://w3c.github.io/webauthn/#dom-authenticationextensionslargeblobinputsjson-support AuthenticationExtensionsLargeBlobInputsJSON.support specification>+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+-- | <https://w3c.github.io/webauthn/#dom-authenticationextensionslargeblobinputsjson-support AuthenticationExtensionsLargeBlobInputsJSON.support specification>+getSupport :: (MonadDOM m, FromJSString result) => AuthenticationExtensionsLargeBlobInputsJSON -> m (Maybe result)+getSupport self = liftDOM (((fromMaybeJSString . Nullable) <$> (js_getSupport (self))))++-- | <https://w3c.github.io/webauthn/#dom-authenticationextensionslargeblobinputsjson-support AuthenticationExtensionsLargeBlobInputsJSON.support specification>+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))++-- | <https://w3c.github.io/webauthn/#dom-authenticationextensionslargeblobinputsjson-support AuthenticationExtensionsLargeBlobInputsJSON.support specification>+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 ()+-- | <https://w3c.github.io/webauthn/#dom-authenticationextensionslargeblobinputsjson-read AuthenticationExtensionsLargeBlobInputsJSON.read specification>+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+-- | <https://w3c.github.io/webauthn/#dom-authenticationextensionslargeblobinputsjson-read AuthenticationExtensionsLargeBlobInputsJSON.read specification>+getRead :: (MonadDOM m) => AuthenticationExtensionsLargeBlobInputsJSON -> m (Maybe Bool)+getRead self = liftDOM (((js_getRead (self)) >>= fromJSValUnchecked))++-- | <https://w3c.github.io/webauthn/#dom-authenticationextensionslargeblobinputsjson-read AuthenticationExtensionsLargeBlobInputsJSON.read specification>+getReadUnsafe :: (MonadDOM m, HasCallStack) => AuthenticationExtensionsLargeBlobInputsJSON -> m Bool+getReadUnsafe self = liftDOM ((((js_getRead (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://w3c.github.io/webauthn/#dom-authenticationextensionslargeblobinputsjson-read AuthenticationExtensionsLargeBlobInputsJSON.read specification>+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 ()+-- | <https://w3c.github.io/webauthn/#dom-authenticationextensionslargeblobinputsjson-write AuthenticationExtensionsLargeBlobInputsJSON.write specification>+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+-- | <https://w3c.github.io/webauthn/#dom-authenticationextensionslargeblobinputsjson-write AuthenticationExtensionsLargeBlobInputsJSON.write specification>+getWrite :: (MonadDOM m, FromJSString result) => AuthenticationExtensionsLargeBlobInputsJSON -> m (Maybe result)+getWrite self = liftDOM (((fromMaybeJSString . Nullable) <$> (js_getWrite (self))))++-- | <https://w3c.github.io/webauthn/#dom-authenticationextensionslargeblobinputsjson-write AuthenticationExtensionsLargeBlobInputsJSON.write specification>+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))++-- | <https://w3c.github.io/webauthn/#dom-authenticationextensionslargeblobinputsjson-write AuthenticationExtensionsLargeBlobInputsJSON.write specification>+getWriteUnchecked :: (MonadDOM m, FromJSString result) => AuthenticationExtensionsLargeBlobInputsJSON -> m result+getWriteUnchecked self = liftDOM ((pFromJSVal <$> (js_getWrite (self))))
@@ -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+-- | <https://w3c.github.io/webauthn/#dictdef-authenticationextensionslargebloboutputs AuthenticationExtensionsLargeBlobOutputs specification>+newAuthenticationExtensionsLargeBlobOutputs :: (MonadDOM m) => m AuthenticationExtensionsLargeBlobOutputs+newAuthenticationExtensionsLargeBlobOutputs = liftDOM ((js_newAuthenticationExtensionsLargeBlobOutputs))++foreign import javascript safe "(($1, $2) => { $1[\"supported\"] = $2; })"+ js_setSupported :: AuthenticationExtensionsLargeBlobOutputs -> Bool -> IO ()+-- | <https://w3c.github.io/webauthn/#dom-authenticationextensionslargebloboutputs-supported AuthenticationExtensionsLargeBlobOutputs.supported specification>+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+-- | <https://w3c.github.io/webauthn/#dom-authenticationextensionslargebloboutputs-supported AuthenticationExtensionsLargeBlobOutputs.supported specification>+getSupported :: (MonadDOM m) => AuthenticationExtensionsLargeBlobOutputs -> m (Maybe Bool)+getSupported self = liftDOM (((js_getSupported (self)) >>= fromJSValUnchecked))++-- | <https://w3c.github.io/webauthn/#dom-authenticationextensionslargebloboutputs-supported AuthenticationExtensionsLargeBlobOutputs.supported specification>+getSupportedUnsafe :: (MonadDOM m, HasCallStack) => AuthenticationExtensionsLargeBlobOutputs -> m Bool+getSupportedUnsafe self = liftDOM ((((js_getSupported (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://w3c.github.io/webauthn/#dom-authenticationextensionslargebloboutputs-supported AuthenticationExtensionsLargeBlobOutputs.supported specification>+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 ()+-- | <https://w3c.github.io/webauthn/#dom-authenticationextensionslargebloboutputs-blob AuthenticationExtensionsLargeBlobOutputs.blob specification>+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+-- | <https://w3c.github.io/webauthn/#dom-authenticationextensionslargebloboutputs-blob AuthenticationExtensionsLargeBlobOutputs.blob specification>+getBlob :: (MonadDOM m) => AuthenticationExtensionsLargeBlobOutputs -> m (Maybe ArrayBuffer)+getBlob self = liftDOM (((js_getBlob (self)) >>= fromJSValUnchecked))++-- | <https://w3c.github.io/webauthn/#dom-authenticationextensionslargebloboutputs-blob AuthenticationExtensionsLargeBlobOutputs.blob specification>+getBlobUnsafe :: (MonadDOM m, HasCallStack) => AuthenticationExtensionsLargeBlobOutputs -> m ArrayBuffer+getBlobUnsafe self = liftDOM ((((js_getBlob (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://w3c.github.io/webauthn/#dom-authenticationextensionslargebloboutputs-blob AuthenticationExtensionsLargeBlobOutputs.blob specification>+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 ()+-- | <https://w3c.github.io/webauthn/#dom-authenticationextensionslargebloboutputs-written AuthenticationExtensionsLargeBlobOutputs.written specification>+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+-- | <https://w3c.github.io/webauthn/#dom-authenticationextensionslargebloboutputs-written AuthenticationExtensionsLargeBlobOutputs.written specification>+getWritten :: (MonadDOM m) => AuthenticationExtensionsLargeBlobOutputs -> m (Maybe Bool)+getWritten self = liftDOM (((js_getWritten (self)) >>= fromJSValUnchecked))++-- | <https://w3c.github.io/webauthn/#dom-authenticationextensionslargebloboutputs-written AuthenticationExtensionsLargeBlobOutputs.written specification>+getWrittenUnsafe :: (MonadDOM m, HasCallStack) => AuthenticationExtensionsLargeBlobOutputs -> m Bool+getWrittenUnsafe self = liftDOM ((((js_getWritten (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://w3c.github.io/webauthn/#dom-authenticationextensionslargebloboutputs-written AuthenticationExtensionsLargeBlobOutputs.written specification>+getWrittenUnchecked :: (MonadDOM m) => AuthenticationExtensionsLargeBlobOutputs -> m Bool+getWrittenUnchecked self = liftDOM ((pFromJSVal <$> (js_getWritten (self))))
@@ -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+-- | <https://w3c.github.io/webauthn/#dictdef-authenticationextensionsprfinputs AuthenticationExtensionsPRFInputs specification>+newAuthenticationExtensionsPRFInputs :: (MonadDOM m) => m AuthenticationExtensionsPRFInputs+newAuthenticationExtensionsPRFInputs = liftDOM ((js_newAuthenticationExtensionsPRFInputs))++foreign import javascript safe "(($1, $2) => { $1[\"eval\"] = $2; })"+ js_setEval :: AuthenticationExtensionsPRFInputs -> AuthenticationExtensionsPRFValues -> IO ()+-- | <https://w3c.github.io/webauthn/#dom-authenticationextensionsprfinputs-eval AuthenticationExtensionsPRFInputs.eval specification>+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+-- | <https://w3c.github.io/webauthn/#dom-authenticationextensionsprfinputs-eval AuthenticationExtensionsPRFInputs.eval specification>+getEval :: (MonadDOM m) => AuthenticationExtensionsPRFInputs -> m (Maybe AuthenticationExtensionsPRFValues)+getEval self = liftDOM (((js_getEval (self)) >>= fromJSValUnchecked))++-- | <https://w3c.github.io/webauthn/#dom-authenticationextensionsprfinputs-eval AuthenticationExtensionsPRFInputs.eval specification>+getEvalUnsafe :: (MonadDOM m, HasCallStack) => AuthenticationExtensionsPRFInputs -> m AuthenticationExtensionsPRFValues+getEvalUnsafe self = liftDOM ((((js_getEval (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://w3c.github.io/webauthn/#dom-authenticationextensionsprfinputs-eval AuthenticationExtensionsPRFInputs.eval specification>+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 ()+-- | <https://w3c.github.io/webauthn/#dom-authenticationextensionsprfinputs-evalbycredential AuthenticationExtensionsPRFInputs.evalByCredential specification>+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+-- | <https://w3c.github.io/webauthn/#dom-authenticationextensionsprfinputs-evalbycredential AuthenticationExtensionsPRFInputs.evalByCredential specification>+getEvalByCredential :: (MonadDOM m) => AuthenticationExtensionsPRFInputs -> m (Maybe (Record JSString JSVal))+getEvalByCredential self = liftDOM (((js_getEvalByCredential (self)) >>= fromJSValUnchecked))++-- | <https://w3c.github.io/webauthn/#dom-authenticationextensionsprfinputs-evalbycredential AuthenticationExtensionsPRFInputs.evalByCredential specification>+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))++-- | <https://w3c.github.io/webauthn/#dom-authenticationextensionsprfinputs-evalbycredential AuthenticationExtensionsPRFInputs.evalByCredential specification>+getEvalByCredentialUnchecked :: (MonadDOM m) => AuthenticationExtensionsPRFInputs -> m (Record JSString JSVal)+getEvalByCredentialUnchecked self = liftDOM ((pFromJSVal <$> (js_getEvalByCredential (self))))
@@ -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+-- | <https://w3c.github.io/webauthn/#dictdef-authenticationextensionsprfinputsjson AuthenticationExtensionsPRFInputsJSON specification>+newAuthenticationExtensionsPRFInputsJSON :: (MonadDOM m) => m AuthenticationExtensionsPRFInputsJSON+newAuthenticationExtensionsPRFInputsJSON = liftDOM ((js_newAuthenticationExtensionsPRFInputsJSON))++foreign import javascript safe "(($1, $2) => { $1[\"eval\"] = $2; })"+ js_setEval :: AuthenticationExtensionsPRFInputsJSON -> AuthenticationExtensionsPRFValuesJSON -> IO ()+-- | <https://w3c.github.io/webauthn/#dom-authenticationextensionsprfinputsjson-eval AuthenticationExtensionsPRFInputsJSON.eval specification>+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+-- | <https://w3c.github.io/webauthn/#dom-authenticationextensionsprfinputsjson-eval AuthenticationExtensionsPRFInputsJSON.eval specification>+getEval :: (MonadDOM m) => AuthenticationExtensionsPRFInputsJSON -> m (Maybe AuthenticationExtensionsPRFValuesJSON)+getEval self = liftDOM (((js_getEval (self)) >>= fromJSValUnchecked))++-- | <https://w3c.github.io/webauthn/#dom-authenticationextensionsprfinputsjson-eval AuthenticationExtensionsPRFInputsJSON.eval specification>+getEvalUnsafe :: (MonadDOM m, HasCallStack) => AuthenticationExtensionsPRFInputsJSON -> m AuthenticationExtensionsPRFValuesJSON+getEvalUnsafe self = liftDOM ((((js_getEval (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://w3c.github.io/webauthn/#dom-authenticationextensionsprfinputsjson-eval AuthenticationExtensionsPRFInputsJSON.eval specification>+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 ()+-- | <https://w3c.github.io/webauthn/#dom-authenticationextensionsprfinputsjson-evalbycredential AuthenticationExtensionsPRFInputsJSON.evalByCredential specification>+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+-- | <https://w3c.github.io/webauthn/#dom-authenticationextensionsprfinputsjson-evalbycredential AuthenticationExtensionsPRFInputsJSON.evalByCredential specification>+getEvalByCredential :: (MonadDOM m) => AuthenticationExtensionsPRFInputsJSON -> m (Maybe (Record JSString JSVal))+getEvalByCredential self = liftDOM (((js_getEvalByCredential (self)) >>= fromJSValUnchecked))++-- | <https://w3c.github.io/webauthn/#dom-authenticationextensionsprfinputsjson-evalbycredential AuthenticationExtensionsPRFInputsJSON.evalByCredential specification>+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))++-- | <https://w3c.github.io/webauthn/#dom-authenticationextensionsprfinputsjson-evalbycredential AuthenticationExtensionsPRFInputsJSON.evalByCredential specification>+getEvalByCredentialUnchecked :: (MonadDOM m) => AuthenticationExtensionsPRFInputsJSON -> m (Record JSString JSVal)+getEvalByCredentialUnchecked self = liftDOM ((pFromJSVal <$> (js_getEvalByCredential (self))))
@@ -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+-- | <https://w3c.github.io/webauthn/#dictdef-authenticationextensionsprfoutputs AuthenticationExtensionsPRFOutputs specification>+newAuthenticationExtensionsPRFOutputs :: (MonadDOM m) => m AuthenticationExtensionsPRFOutputs+newAuthenticationExtensionsPRFOutputs = liftDOM ((js_newAuthenticationExtensionsPRFOutputs))++foreign import javascript safe "(($1, $2) => { $1[\"enabled\"] = $2; })"+ js_setEnabled :: AuthenticationExtensionsPRFOutputs -> Bool -> IO ()+-- | <https://w3c.github.io/webauthn/#dom-authenticationextensionsprfoutputs-enabled AuthenticationExtensionsPRFOutputs.enabled specification>+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+-- | <https://w3c.github.io/webauthn/#dom-authenticationextensionsprfoutputs-enabled AuthenticationExtensionsPRFOutputs.enabled specification>+getEnabled :: (MonadDOM m) => AuthenticationExtensionsPRFOutputs -> m (Maybe Bool)+getEnabled self = liftDOM (((js_getEnabled (self)) >>= fromJSValUnchecked))++-- | <https://w3c.github.io/webauthn/#dom-authenticationextensionsprfoutputs-enabled AuthenticationExtensionsPRFOutputs.enabled specification>+getEnabledUnsafe :: (MonadDOM m, HasCallStack) => AuthenticationExtensionsPRFOutputs -> m Bool+getEnabledUnsafe self = liftDOM ((((js_getEnabled (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://w3c.github.io/webauthn/#dom-authenticationextensionsprfoutputs-enabled AuthenticationExtensionsPRFOutputs.enabled specification>+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 ()+-- | <https://w3c.github.io/webauthn/#dom-authenticationextensionsprfoutputs-results AuthenticationExtensionsPRFOutputs.results specification>+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+-- | <https://w3c.github.io/webauthn/#dom-authenticationextensionsprfoutputs-results AuthenticationExtensionsPRFOutputs.results specification>+getResults :: (MonadDOM m) => AuthenticationExtensionsPRFOutputs -> m (Maybe AuthenticationExtensionsPRFValues)+getResults self = liftDOM (((js_getResults (self)) >>= fromJSValUnchecked))++-- | <https://w3c.github.io/webauthn/#dom-authenticationextensionsprfoutputs-results AuthenticationExtensionsPRFOutputs.results specification>+getResultsUnsafe :: (MonadDOM m, HasCallStack) => AuthenticationExtensionsPRFOutputs -> m AuthenticationExtensionsPRFValues+getResultsUnsafe self = liftDOM ((((js_getResults (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://w3c.github.io/webauthn/#dom-authenticationextensionsprfoutputs-results AuthenticationExtensionsPRFOutputs.results specification>+getResultsUnchecked :: (MonadDOM m) => AuthenticationExtensionsPRFOutputs -> m AuthenticationExtensionsPRFValues+getResultsUnchecked self = liftDOM ((pFromJSVal <$> (js_getResults (self))))
@@ -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+-- | <https://w3c.github.io/webauthn/#dictdef-authenticationextensionsprfvalues AuthenticationExtensionsPRFValues specification>+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 ()+-- | <https://w3c.github.io/webauthn/#dom-authenticationextensionsprfvalues-first AuthenticationExtensionsPRFValues.first specification>+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+-- | <https://w3c.github.io/webauthn/#dom-authenticationextensionsprfvalues-first AuthenticationExtensionsPRFValues.first specification>+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 ()+-- | <https://w3c.github.io/webauthn/#dom-authenticationextensionsprfvalues-second AuthenticationExtensionsPRFValues.second specification>+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+-- | <https://w3c.github.io/webauthn/#dom-authenticationextensionsprfvalues-second AuthenticationExtensionsPRFValues.second specification>+getSecond :: (MonadDOM m) => AuthenticationExtensionsPRFValues -> m (Maybe BufferSource)+getSecond self = liftDOM (((js_getSecond (self)) >>= fromJSValUnchecked))++-- | <https://w3c.github.io/webauthn/#dom-authenticationextensionsprfvalues-second AuthenticationExtensionsPRFValues.second specification>+getSecondUnsafe :: (MonadDOM m, HasCallStack) => AuthenticationExtensionsPRFValues -> m BufferSource+getSecondUnsafe self = liftDOM ((((js_getSecond (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://w3c.github.io/webauthn/#dom-authenticationextensionsprfvalues-second AuthenticationExtensionsPRFValues.second specification>+getSecondUnchecked :: (MonadDOM m) => AuthenticationExtensionsPRFValues -> m BufferSource+getSecondUnchecked self = liftDOM ((pFromJSVal <$> (js_getSecond (self))))
@@ -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+-- | <https://w3c.github.io/webauthn/#dictdef-authenticationextensionsprfvaluesjson AuthenticationExtensionsPRFValuesJSON specification>+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 ()+-- | <https://w3c.github.io/webauthn/#dom-authenticationextensionsprfvaluesjson-first AuthenticationExtensionsPRFValuesJSON.first specification>+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+-- | <https://w3c.github.io/webauthn/#dom-authenticationextensionsprfvaluesjson-first AuthenticationExtensionsPRFValuesJSON.first specification>+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 ()+-- | <https://w3c.github.io/webauthn/#dom-authenticationextensionsprfvaluesjson-second AuthenticationExtensionsPRFValuesJSON.second specification>+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+-- | <https://w3c.github.io/webauthn/#dom-authenticationextensionsprfvaluesjson-second AuthenticationExtensionsPRFValuesJSON.second specification>+getSecond :: (MonadDOM m, FromJSString result) => AuthenticationExtensionsPRFValuesJSON -> m (Maybe result)+getSecond self = liftDOM (((fromMaybeJSString . Nullable) <$> (js_getSecond (self))))++-- | <https://w3c.github.io/webauthn/#dom-authenticationextensionsprfvaluesjson-second AuthenticationExtensionsPRFValuesJSON.second specification>+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))++-- | <https://w3c.github.io/webauthn/#dom-authenticationextensionsprfvaluesjson-second AuthenticationExtensionsPRFValuesJSON.second specification>+getSecondUnchecked :: (MonadDOM m, FromJSString result) => AuthenticationExtensionsPRFValuesJSON -> m result+getSecondUnchecked self = liftDOM ((pFromJSVal <$> (js_getSecond (self))))
@@ -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+-- | <https://w3c.github.io/secure-payment-confirmation/#dictdef-authenticationextensionspaymentinputs AuthenticationExtensionsPaymentInputs specification>+newAuthenticationExtensionsPaymentInputs :: (MonadDOM m) => m AuthenticationExtensionsPaymentInputs+newAuthenticationExtensionsPaymentInputs = liftDOM ((js_newAuthenticationExtensionsPaymentInputs))++foreign import javascript safe "(($1, $2) => { $1[\"isPayment\"] = $2; })"+ js_setIsPayment :: AuthenticationExtensionsPaymentInputs -> Bool -> IO ()+-- | <https://w3c.github.io/secure-payment-confirmation/#dom-authenticationextensionspaymentinputs-ispayment AuthenticationExtensionsPaymentInputs.isPayment specification>+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+-- | <https://w3c.github.io/secure-payment-confirmation/#dom-authenticationextensionspaymentinputs-ispayment AuthenticationExtensionsPaymentInputs.isPayment specification>+getIsPayment :: (MonadDOM m) => AuthenticationExtensionsPaymentInputs -> m (Maybe Bool)+getIsPayment self = liftDOM (((js_getIsPayment (self)) >>= fromJSValUnchecked))++-- | <https://w3c.github.io/secure-payment-confirmation/#dom-authenticationextensionspaymentinputs-ispayment AuthenticationExtensionsPaymentInputs.isPayment specification>+getIsPaymentUnsafe :: (MonadDOM m, HasCallStack) => AuthenticationExtensionsPaymentInputs -> m Bool+getIsPaymentUnsafe self = liftDOM ((((js_getIsPayment (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://w3c.github.io/secure-payment-confirmation/#dom-authenticationextensionspaymentinputs-ispayment AuthenticationExtensionsPaymentInputs.isPayment specification>+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 ()+-- | <https://w3c.github.io/secure-payment-confirmation/#dom-authenticationextensionspaymentinputs-browserboundpubkeycredparams AuthenticationExtensionsPaymentInputs.browserBoundPubKeyCredParams specification>+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+-- | <https://w3c.github.io/secure-payment-confirmation/#dom-authenticationextensionspaymentinputs-browserboundpubkeycredparams AuthenticationExtensionsPaymentInputs.browserBoundPubKeyCredParams specification>+getBrowserBoundPubKeyCredParams :: (MonadDOM m) => AuthenticationExtensionsPaymentInputs -> m (Maybe [PublicKeyCredentialParameters])+getBrowserBoundPubKeyCredParams self = liftDOM (((js_getBrowserBoundPubKeyCredParams (self)) >>= fromJSValUnchecked))++-- | <https://w3c.github.io/secure-payment-confirmation/#dom-authenticationextensionspaymentinputs-browserboundpubkeycredparams AuthenticationExtensionsPaymentInputs.browserBoundPubKeyCredParams specification>+getBrowserBoundPubKeyCredParamsUnsafe :: (MonadDOM m, HasCallStack) => AuthenticationExtensionsPaymentInputs -> m [PublicKeyCredentialParameters]+getBrowserBoundPubKeyCredParamsUnsafe self = liftDOM ((((js_getBrowserBoundPubKeyCredParams (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://w3c.github.io/secure-payment-confirmation/#dom-authenticationextensionspaymentinputs-browserboundpubkeycredparams AuthenticationExtensionsPaymentInputs.browserBoundPubKeyCredParams specification>+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 ()+-- | <https://w3c.github.io/secure-payment-confirmation/#dom-authenticationextensionspaymentinputs-rpid AuthenticationExtensionsPaymentInputs.rpId specification>+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+-- | <https://w3c.github.io/secure-payment-confirmation/#dom-authenticationextensionspaymentinputs-rpid AuthenticationExtensionsPaymentInputs.rpId specification>+getRpId :: (MonadDOM m, FromJSString result) => AuthenticationExtensionsPaymentInputs -> m (Maybe result)+getRpId self = liftDOM (((fromMaybeJSString . Nullable) <$> (js_getRpId (self))))++-- | <https://w3c.github.io/secure-payment-confirmation/#dom-authenticationextensionspaymentinputs-rpid AuthenticationExtensionsPaymentInputs.rpId specification>+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))++-- | <https://w3c.github.io/secure-payment-confirmation/#dom-authenticationextensionspaymentinputs-rpid AuthenticationExtensionsPaymentInputs.rpId specification>+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 ()+-- | <https://w3c.github.io/secure-payment-confirmation/#dom-authenticationextensionspaymentinputs-toporigin AuthenticationExtensionsPaymentInputs.topOrigin specification>+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+-- | <https://w3c.github.io/secure-payment-confirmation/#dom-authenticationextensionspaymentinputs-toporigin AuthenticationExtensionsPaymentInputs.topOrigin specification>+getTopOrigin :: (MonadDOM m, FromJSString result) => AuthenticationExtensionsPaymentInputs -> m (Maybe result)+getTopOrigin self = liftDOM (((fromMaybeJSString . Nullable) <$> (js_getTopOrigin (self))))++-- | <https://w3c.github.io/secure-payment-confirmation/#dom-authenticationextensionspaymentinputs-toporigin AuthenticationExtensionsPaymentInputs.topOrigin specification>+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))++-- | <https://w3c.github.io/secure-payment-confirmation/#dom-authenticationextensionspaymentinputs-toporigin AuthenticationExtensionsPaymentInputs.topOrigin specification>+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 ()+-- | <https://w3c.github.io/secure-payment-confirmation/#dom-authenticationextensionspaymentinputs-payeename AuthenticationExtensionsPaymentInputs.payeeName specification>+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+-- | <https://w3c.github.io/secure-payment-confirmation/#dom-authenticationextensionspaymentinputs-payeename AuthenticationExtensionsPaymentInputs.payeeName specification>+getPayeeName :: (MonadDOM m, FromJSString result) => AuthenticationExtensionsPaymentInputs -> m (Maybe result)+getPayeeName self = liftDOM (((fromMaybeJSString . Nullable) <$> (js_getPayeeName (self))))++-- | <https://w3c.github.io/secure-payment-confirmation/#dom-authenticationextensionspaymentinputs-payeename AuthenticationExtensionsPaymentInputs.payeeName specification>+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))++-- | <https://w3c.github.io/secure-payment-confirmation/#dom-authenticationextensionspaymentinputs-payeename AuthenticationExtensionsPaymentInputs.payeeName specification>+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 ()+-- | <https://w3c.github.io/secure-payment-confirmation/#dom-authenticationextensionspaymentinputs-payeeorigin AuthenticationExtensionsPaymentInputs.payeeOrigin specification>+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+-- | <https://w3c.github.io/secure-payment-confirmation/#dom-authenticationextensionspaymentinputs-payeeorigin AuthenticationExtensionsPaymentInputs.payeeOrigin specification>+getPayeeOrigin :: (MonadDOM m, FromJSString result) => AuthenticationExtensionsPaymentInputs -> m (Maybe result)+getPayeeOrigin self = liftDOM (((fromMaybeJSString . Nullable) <$> (js_getPayeeOrigin (self))))++-- | <https://w3c.github.io/secure-payment-confirmation/#dom-authenticationextensionspaymentinputs-payeeorigin AuthenticationExtensionsPaymentInputs.payeeOrigin specification>+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))++-- | <https://w3c.github.io/secure-payment-confirmation/#dom-authenticationextensionspaymentinputs-payeeorigin AuthenticationExtensionsPaymentInputs.payeeOrigin specification>+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 ()+-- | <https://w3c.github.io/secure-payment-confirmation/#dom-authenticationextensionspaymentinputs-paymententitieslogos AuthenticationExtensionsPaymentInputs.paymentEntitiesLogos specification>+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+-- | <https://w3c.github.io/secure-payment-confirmation/#dom-authenticationextensionspaymentinputs-paymententitieslogos AuthenticationExtensionsPaymentInputs.paymentEntitiesLogos specification>+getPaymentEntitiesLogos :: (MonadDOM m) => AuthenticationExtensionsPaymentInputs -> m (Maybe [PaymentEntityLogo])+getPaymentEntitiesLogos self = liftDOM (((js_getPaymentEntitiesLogos (self)) >>= fromJSValUnchecked))++-- | <https://w3c.github.io/secure-payment-confirmation/#dom-authenticationextensionspaymentinputs-paymententitieslogos AuthenticationExtensionsPaymentInputs.paymentEntitiesLogos specification>+getPaymentEntitiesLogosUnsafe :: (MonadDOM m, HasCallStack) => AuthenticationExtensionsPaymentInputs -> m [PaymentEntityLogo]+getPaymentEntitiesLogosUnsafe self = liftDOM ((((js_getPaymentEntitiesLogos (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://w3c.github.io/secure-payment-confirmation/#dom-authenticationextensionspaymentinputs-paymententitieslogos AuthenticationExtensionsPaymentInputs.paymentEntitiesLogos specification>+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 ()+-- | <https://w3c.github.io/secure-payment-confirmation/#dom-authenticationextensionspaymentinputs-total AuthenticationExtensionsPaymentInputs.total specification>+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+-- | <https://w3c.github.io/secure-payment-confirmation/#dom-authenticationextensionspaymentinputs-total AuthenticationExtensionsPaymentInputs.total specification>+getTotal :: (MonadDOM m) => AuthenticationExtensionsPaymentInputs -> m (Maybe PaymentCurrencyAmount)+getTotal self = liftDOM (((js_getTotal (self)) >>= fromJSValUnchecked))++-- | <https://w3c.github.io/secure-payment-confirmation/#dom-authenticationextensionspaymentinputs-total AuthenticationExtensionsPaymentInputs.total specification>+getTotalUnsafe :: (MonadDOM m, HasCallStack) => AuthenticationExtensionsPaymentInputs -> m PaymentCurrencyAmount+getTotalUnsafe self = liftDOM ((((js_getTotal (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://w3c.github.io/secure-payment-confirmation/#dom-authenticationextensionspaymentinputs-total AuthenticationExtensionsPaymentInputs.total specification>+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 ()+-- | <https://w3c.github.io/secure-payment-confirmation/#dom-authenticationextensionspaymentinputs-instrument AuthenticationExtensionsPaymentInputs.instrument specification>+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+-- | <https://w3c.github.io/secure-payment-confirmation/#dom-authenticationextensionspaymentinputs-instrument AuthenticationExtensionsPaymentInputs.instrument specification>+getInstrument :: (MonadDOM m) => AuthenticationExtensionsPaymentInputs -> m (Maybe PaymentCredentialInstrument)+getInstrument self = liftDOM (((js_getInstrument (self)) >>= fromJSValUnchecked))++-- | <https://w3c.github.io/secure-payment-confirmation/#dom-authenticationextensionspaymentinputs-instrument AuthenticationExtensionsPaymentInputs.instrument specification>+getInstrumentUnsafe :: (MonadDOM m, HasCallStack) => AuthenticationExtensionsPaymentInputs -> m PaymentCredentialInstrument+getInstrumentUnsafe self = liftDOM ((((js_getInstrument (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://w3c.github.io/secure-payment-confirmation/#dom-authenticationextensionspaymentinputs-instrument AuthenticationExtensionsPaymentInputs.instrument specification>+getInstrumentUnchecked :: (MonadDOM m) => AuthenticationExtensionsPaymentInputs -> m PaymentCredentialInstrument+getInstrumentUnchecked self = liftDOM ((pFromJSVal <$> (js_getInstrument (self))))
@@ -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+-- | <https://w3c.github.io/secure-payment-confirmation/#dictdef-authenticationextensionspaymentoutputs AuthenticationExtensionsPaymentOutputs specification>+newAuthenticationExtensionsPaymentOutputs :: (MonadDOM m) => m AuthenticationExtensionsPaymentOutputs+newAuthenticationExtensionsPaymentOutputs = liftDOM ((js_newAuthenticationExtensionsPaymentOutputs))++foreign import javascript safe "(($1, $2) => { $1[\"browserBoundSignature\"] = $2; })"+ js_setBrowserBoundSignature :: AuthenticationExtensionsPaymentOutputs -> BrowserBoundSignature -> IO ()+-- | <https://w3c.github.io/secure-payment-confirmation/#dom-authenticationextensionspaymentoutputs-browserboundsignature AuthenticationExtensionsPaymentOutputs.browserBoundSignature specification>+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+-- | <https://w3c.github.io/secure-payment-confirmation/#dom-authenticationextensionspaymentoutputs-browserboundsignature AuthenticationExtensionsPaymentOutputs.browserBoundSignature specification>+getBrowserBoundSignature :: (MonadDOM m) => AuthenticationExtensionsPaymentOutputs -> m (Maybe BrowserBoundSignature)+getBrowserBoundSignature self = liftDOM (((js_getBrowserBoundSignature (self)) >>= fromJSValUnchecked))++-- | <https://w3c.github.io/secure-payment-confirmation/#dom-authenticationextensionspaymentoutputs-browserboundsignature AuthenticationExtensionsPaymentOutputs.browserBoundSignature specification>+getBrowserBoundSignatureUnsafe :: (MonadDOM m, HasCallStack) => AuthenticationExtensionsPaymentOutputs -> m BrowserBoundSignature+getBrowserBoundSignatureUnsafe self = liftDOM ((((js_getBrowserBoundSignature (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://w3c.github.io/secure-payment-confirmation/#dom-authenticationextensionspaymentoutputs-browserboundsignature AuthenticationExtensionsPaymentOutputs.browserBoundSignature specification>+getBrowserBoundSignatureUnchecked :: (MonadDOM m) => AuthenticationExtensionsPaymentOutputs -> m BrowserBoundSignature+getBrowserBoundSignatureUnchecked self = liftDOM ((pFromJSVal <$> (js_getBrowserBoundSignature (self))))
@@ -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+-- | <https://developer.mozilla.org/docs/Web/API/AuthenticatorAssertionResponse/authenticatorData MDN AuthenticatorAssertionResponse.authenticatorData documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/AuthenticatorAssertionResponse/signature MDN AuthenticatorAssertionResponse.signature documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/AuthenticatorAssertionResponse/userHandle MDN AuthenticatorAssertionResponse.userHandle documentation>+getUserHandle :: (MonadDOM m) => AuthenticatorAssertionResponse -> m (Maybe ArrayBuffer)+getUserHandle self = liftDOM (((js_getUserHandle (self)) >>= fromJSValUnchecked))++-- | <https://developer.mozilla.org/docs/Web/API/AuthenticatorAssertionResponse/userHandle MDN AuthenticatorAssertionResponse.userHandle documentation>+getUserHandleUnsafe :: (MonadDOM m, HasCallStack) => AuthenticatorAssertionResponse -> m ArrayBuffer+getUserHandleUnsafe self = liftDOM ((((js_getUserHandle (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://developer.mozilla.org/docs/Web/API/AuthenticatorAssertionResponse/userHandle MDN AuthenticatorAssertionResponse.userHandle documentation>+getUserHandleUnchecked :: (MonadDOM m) => AuthenticatorAssertionResponse -> m ArrayBuffer+getUserHandleUnchecked self = liftDOM ((pFromJSVal <$> (js_getUserHandle (self))))
@@ -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+-- | <https://developer.mozilla.org/docs/Web/API/AuthenticatorAttestationResponse/getAuthenticatorData MDN AuthenticatorAttestationResponse.getAuthenticatorData documentation>+getAuthenticatorData :: (MonadDOM m) => AuthenticatorAttestationResponse -> m ArrayBuffer+getAuthenticatorData self = liftDOM ((js_getAuthenticatorData (self)))++-- | <https://developer.mozilla.org/docs/Web/API/AuthenticatorAttestationResponse/getAuthenticatorData MDN AuthenticatorAttestationResponse.getAuthenticatorData documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/AuthenticatorAttestationResponse/getPublicKey MDN AuthenticatorAttestationResponse.getPublicKey documentation>+getPublicKey :: (MonadDOM m) => AuthenticatorAttestationResponse -> m (Maybe ArrayBuffer)+getPublicKey self = liftDOM (((js_getPublicKey (self)) >>= fromJSValUnchecked))++-- | <https://developer.mozilla.org/docs/Web/API/AuthenticatorAttestationResponse/getPublicKey MDN AuthenticatorAttestationResponse.getPublicKey documentation>+getPublicKey_ :: (MonadDOM m) => AuthenticatorAttestationResponse -> m ()+getPublicKey_ self = liftDOM (void ((js_getPublicKey (self))))++-- | <https://developer.mozilla.org/docs/Web/API/AuthenticatorAttestationResponse/getPublicKey MDN AuthenticatorAttestationResponse.getPublicKey documentation>+getPublicKeyUnsafe :: (MonadDOM m, HasCallStack) => AuthenticatorAttestationResponse -> m ArrayBuffer+getPublicKeyUnsafe self = liftDOM ((((js_getPublicKey (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://developer.mozilla.org/docs/Web/API/AuthenticatorAttestationResponse/getPublicKey MDN AuthenticatorAttestationResponse.getPublicKey documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/AuthenticatorAttestationResponse/getPublicKeyAlgorithm MDN AuthenticatorAttestationResponse.getPublicKeyAlgorithm documentation>+getPublicKeyAlgorithm :: (MonadDOM m) => AuthenticatorAttestationResponse -> m Int+getPublicKeyAlgorithm self = liftDOM ((js_getPublicKeyAlgorithm (self)))++-- | <https://developer.mozilla.org/docs/Web/API/AuthenticatorAttestationResponse/getPublicKeyAlgorithm MDN AuthenticatorAttestationResponse.getPublicKeyAlgorithm documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/AuthenticatorAttestationResponse/getTransports MDN AuthenticatorAttestationResponse.getTransports documentation>+getTransports :: (MonadDOM m, FromJSString result) => AuthenticatorAttestationResponse -> m [result]+getTransports self = liftDOM (((js_getTransports (self)) >>= fromJSValUnchecked))++-- | <https://developer.mozilla.org/docs/Web/API/AuthenticatorAttestationResponse/getTransports MDN AuthenticatorAttestationResponse.getTransports documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/AuthenticatorAttestationResponse/attestationObject MDN AuthenticatorAttestationResponse.attestationObject documentation>+getAttestationObject :: (MonadDOM m) => AuthenticatorAttestationResponse -> m ArrayBuffer+getAttestationObject self = liftDOM ((js_getAttestationObject (self)))
@@ -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+-- | <https://developer.mozilla.org/docs/Web/API/AuthenticatorResponse/clientDataJSON MDN AuthenticatorResponse.clientDataJSON documentation>+getClientDataJSON :: (MonadDOM m, IsAuthenticatorResponse self) => self -> m ArrayBuffer+getClientDataJSON self = liftDOM ((js_getClientDataJSON ((Types.toAuthenticatorResponse self))))
@@ -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+-- | <https://w3c.github.io/webauthn/#dictdef-authenticatorselectioncriteria AuthenticatorSelectionCriteria specification>+newAuthenticatorSelectionCriteria :: (MonadDOM m) => m AuthenticatorSelectionCriteria+newAuthenticatorSelectionCriteria = liftDOM ((js_newAuthenticatorSelectionCriteria))++foreign import javascript safe "(($1, $2) => { $1[\"authenticatorAttachment\"] = $2; })"+ js_setAuthenticatorAttachment :: AuthenticatorSelectionCriteria -> JSString -> IO ()+-- | <https://w3c.github.io/webauthn/#dom-authenticatorselectioncriteria-authenticatorattachment AuthenticatorSelectionCriteria.authenticatorAttachment specification>+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+-- | <https://w3c.github.io/webauthn/#dom-authenticatorselectioncriteria-authenticatorattachment AuthenticatorSelectionCriteria.authenticatorAttachment specification>+getAuthenticatorAttachment :: (MonadDOM m, FromJSString result) => AuthenticatorSelectionCriteria -> m (Maybe result)+getAuthenticatorAttachment self = liftDOM (((fromMaybeJSString . Nullable) <$> (js_getAuthenticatorAttachment (self))))++-- | <https://w3c.github.io/webauthn/#dom-authenticatorselectioncriteria-authenticatorattachment AuthenticatorSelectionCriteria.authenticatorAttachment specification>+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))++-- | <https://w3c.github.io/webauthn/#dom-authenticatorselectioncriteria-authenticatorattachment AuthenticatorSelectionCriteria.authenticatorAttachment specification>+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 ()+-- | <https://w3c.github.io/webauthn/#dom-authenticatorselectioncriteria-residentkey AuthenticatorSelectionCriteria.residentKey specification>+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+-- | <https://w3c.github.io/webauthn/#dom-authenticatorselectioncriteria-residentkey AuthenticatorSelectionCriteria.residentKey specification>+getResidentKey :: (MonadDOM m, FromJSString result) => AuthenticatorSelectionCriteria -> m (Maybe result)+getResidentKey self = liftDOM (((fromMaybeJSString . Nullable) <$> (js_getResidentKey (self))))++-- | <https://w3c.github.io/webauthn/#dom-authenticatorselectioncriteria-residentkey AuthenticatorSelectionCriteria.residentKey specification>+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))++-- | <https://w3c.github.io/webauthn/#dom-authenticatorselectioncriteria-residentkey AuthenticatorSelectionCriteria.residentKey specification>+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 ()+-- | <https://w3c.github.io/webauthn/#dom-authenticatorselectioncriteria-requireresidentkey AuthenticatorSelectionCriteria.requireResidentKey specification>+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+-- | <https://w3c.github.io/webauthn/#dom-authenticatorselectioncriteria-requireresidentkey AuthenticatorSelectionCriteria.requireResidentKey specification>+getRequireResidentKey :: (MonadDOM m) => AuthenticatorSelectionCriteria -> m (Maybe Bool)+getRequireResidentKey self = liftDOM (((js_getRequireResidentKey (self)) >>= fromJSValUnchecked))++-- | <https://w3c.github.io/webauthn/#dom-authenticatorselectioncriteria-requireresidentkey AuthenticatorSelectionCriteria.requireResidentKey specification>+getRequireResidentKeyUnsafe :: (MonadDOM m, HasCallStack) => AuthenticatorSelectionCriteria -> m Bool+getRequireResidentKeyUnsafe self = liftDOM ((((js_getRequireResidentKey (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://w3c.github.io/webauthn/#dom-authenticatorselectioncriteria-requireresidentkey AuthenticatorSelectionCriteria.requireResidentKey specification>+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 ()+-- | <https://w3c.github.io/webauthn/#dom-authenticatorselectioncriteria-userverification AuthenticatorSelectionCriteria.userVerification specification>+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+-- | <https://w3c.github.io/webauthn/#dom-authenticatorselectioncriteria-userverification AuthenticatorSelectionCriteria.userVerification specification>+getUserVerification :: (MonadDOM m, FromJSString result) => AuthenticatorSelectionCriteria -> m (Maybe result)+getUserVerification self = liftDOM (((fromMaybeJSString . Nullable) <$> (js_getUserVerification (self))))++-- | <https://w3c.github.io/webauthn/#dom-authenticatorselectioncriteria-userverification AuthenticatorSelectionCriteria.userVerification specification>+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))++-- | <https://w3c.github.io/webauthn/#dom-authenticatorselectioncriteria-userverification AuthenticatorSelectionCriteria.userVerification specification>+getUserVerificationUnchecked :: (MonadDOM m, FromJSString result) => AuthenticatorSelectionCriteria -> m result+getUserVerificationUnchecked self = liftDOM ((pFromJSVal <$> (js_getUserVerification (self))))
@@ -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---- | <https://developer.mozilla.org/en-US/docs/Web/API/AutocompleteErrorEvent Mozilla AutocompleteErrorEvent documentation> -newAutocompleteErrorEvent ::- (MonadIO m, ToJSString type') =>- type' ->- Maybe AutocompleteErrorEventInit -> m AutocompleteErrorEvent-newAutocompleteErrorEvent type' eventInitDict- = liftIO- (js_newAutocompleteErrorEvent (toJSString type')- (maybeToOptional eventInitDict))- -foreign import javascript unsafe "(($1) => { return $1[\"reason\"]; })" js_getReason ::- AutocompleteErrorEvent -> IO JSString---- | <https://developer.mozilla.org/en-US/docs/Web/API/AutocompleteErrorEvent.reason Mozilla AutocompleteErrorEvent.reason documentation> -getReason ::- (MonadIO m, FromJSString result) =>- AutocompleteErrorEvent -> m result-getReason self = liftIO (fromJSString <$> (js_getReason self))
@@ -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+
@@ -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+-- | <https://w3c.github.io/webcodecs/avc_codec_registration.html#dictdef-avcencoderconfig AvcEncoderConfig specification>+newAvcEncoderConfig :: (MonadDOM m) => m AvcEncoderConfig+newAvcEncoderConfig = liftDOM ((js_newAvcEncoderConfig))++foreign import javascript safe "(($1, $2) => { $1[\"format\"] = $2; })"+ js_setFormat :: AvcEncoderConfig -> JSVal -> IO ()+-- | <https://w3c.github.io/webcodecs/avc_codec_registration.html#dom-avcencoderconfig-format AvcEncoderConfig.format specification>+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+-- | <https://w3c.github.io/webcodecs/avc_codec_registration.html#dom-avcencoderconfig-format AvcEncoderConfig.format specification>+getFormat :: (MonadDOM m) => AvcEncoderConfig -> m (Maybe AvcBitstreamFormat)+getFormat self = liftDOM (((js_getFormat (self)) >>= fromJSValUnchecked))++-- | <https://w3c.github.io/webcodecs/avc_codec_registration.html#dom-avcencoderconfig-format AvcEncoderConfig.format specification>+getFormatUnsafe :: (MonadDOM m, HasCallStack) => AvcEncoderConfig -> m AvcBitstreamFormat+getFormatUnsafe self = liftDOM ((((js_getFormat (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://w3c.github.io/webcodecs/avc_codec_registration.html#dom-avcencoderconfig-format AvcEncoderConfig.format specification>+getFormatUnchecked :: (MonadDOM m) => AvcEncoderConfig -> m AvcBitstreamFormat+getFormatUnchecked self = liftDOM ((pFromJSVal <$> (js_getFormat (self))))
@@ -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+-- | <https://w3c.github.io/mediacapture-extensions/#dom-backgroundblur BackgroundBlur specification>+newBackgroundBlur :: (MonadDOM m) => Bool -> m BackgroundBlur+newBackgroundBlur enabled = liftDOM ((js_newBackgroundBlur (enabled)))
@@ -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 --- | <https://developer.mozilla.org/en-US/docs/Web/API/BarProp.visible Mozilla BarProp.visible documentation> -getVisible :: (MonadIO m) => BarProp -> m Bool-getVisible self = liftIO (js_getVisible self)+foreign import javascript unsafe "(($1) => { return $1[\"visible\"]; })"+ js_getVisible :: BarProp -> IO Bool+-- | <https://developer.mozilla.org/docs/Web/API/BarProp/visible MDN BarProp.visible documentation>+getVisible :: (MonadDOM m) => BarProp -> m Bool+getVisible self = liftDOM ((js_getVisible (self)))
@@ -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+-- | <https://developer.mozilla.org/docs/Web/API/BaseAudioContext/createAnalyser MDN BaseAudioContext.createAnalyser documentation>+createAnalyser :: (MonadDOM m, IsBaseAudioContext self) => self -> m AnalyserNode+createAnalyser self = liftDOM ((js_createAnalyser ((Types.toBaseAudioContext self))))++-- | <https://developer.mozilla.org/docs/Web/API/BaseAudioContext/createAnalyser MDN BaseAudioContext.createAnalyser documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/BaseAudioContext/createBiquadFilter MDN BaseAudioContext.createBiquadFilter documentation>+createBiquadFilter :: (MonadDOM m, IsBaseAudioContext self) => self -> m BiquadFilterNode+createBiquadFilter self = liftDOM ((js_createBiquadFilter ((Types.toBaseAudioContext self))))++-- | <https://developer.mozilla.org/docs/Web/API/BaseAudioContext/createBiquadFilter MDN BaseAudioContext.createBiquadFilter documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/BaseAudioContext/createBuffer MDN BaseAudioContext.createBuffer documentation>+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)))++-- | <https://developer.mozilla.org/docs/Web/API/BaseAudioContext/createBuffer MDN BaseAudioContext.createBuffer documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/BaseAudioContext/createBufferSource MDN BaseAudioContext.createBufferSource documentation>+createBufferSource :: (MonadDOM m, IsBaseAudioContext self) => self -> m AudioBufferSourceNode+createBufferSource self = liftDOM ((js_createBufferSource ((Types.toBaseAudioContext self))))++-- | <https://developer.mozilla.org/docs/Web/API/BaseAudioContext/createBufferSource MDN BaseAudioContext.createBufferSource documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/BaseAudioContext/createChannelMerger MDN BaseAudioContext.createChannelMerger documentation>+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'))++-- | <https://developer.mozilla.org/docs/Web/API/BaseAudioContext/createChannelMerger MDN BaseAudioContext.createChannelMerger documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/BaseAudioContext/createChannelSplitter MDN BaseAudioContext.createChannelSplitter documentation>+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'))++-- | <https://developer.mozilla.org/docs/Web/API/BaseAudioContext/createChannelSplitter MDN BaseAudioContext.createChannelSplitter documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/BaseAudioContext/createConstantSource MDN BaseAudioContext.createConstantSource documentation>+createConstantSource :: (MonadDOM m, IsBaseAudioContext self) => self -> m ConstantSourceNode+createConstantSource self = liftDOM ((js_createConstantSource ((Types.toBaseAudioContext self))))++-- | <https://developer.mozilla.org/docs/Web/API/BaseAudioContext/createConstantSource MDN BaseAudioContext.createConstantSource documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/BaseAudioContext/createConvolver MDN BaseAudioContext.createConvolver documentation>+createConvolver :: (MonadDOM m, IsBaseAudioContext self) => self -> m ConvolverNode+createConvolver self = liftDOM ((js_createConvolver ((Types.toBaseAudioContext self))))++-- | <https://developer.mozilla.org/docs/Web/API/BaseAudioContext/createConvolver MDN BaseAudioContext.createConvolver documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/BaseAudioContext/createDelay MDN BaseAudioContext.createDelay documentation>+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'))++-- | <https://developer.mozilla.org/docs/Web/API/BaseAudioContext/createDelay MDN BaseAudioContext.createDelay documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/BaseAudioContext/createDynamicsCompressor MDN BaseAudioContext.createDynamicsCompressor documentation>+createDynamicsCompressor :: (MonadDOM m, IsBaseAudioContext self) => self -> m DynamicsCompressorNode+createDynamicsCompressor self = liftDOM ((js_createDynamicsCompressor ((Types.toBaseAudioContext self))))++-- | <https://developer.mozilla.org/docs/Web/API/BaseAudioContext/createDynamicsCompressor MDN BaseAudioContext.createDynamicsCompressor documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/BaseAudioContext/createGain MDN BaseAudioContext.createGain documentation>+createGain :: (MonadDOM m, IsBaseAudioContext self) => self -> m GainNode+createGain self = liftDOM ((js_createGain ((Types.toBaseAudioContext self))))++-- | <https://developer.mozilla.org/docs/Web/API/BaseAudioContext/createGain MDN BaseAudioContext.createGain documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/BaseAudioContext/createIIRFilter MDN BaseAudioContext.createIIRFilter documentation>+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'))++-- | <https://developer.mozilla.org/docs/Web/API/BaseAudioContext/createIIRFilter MDN BaseAudioContext.createIIRFilter documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/BaseAudioContext/createOscillator MDN BaseAudioContext.createOscillator documentation>+createOscillator :: (MonadDOM m, IsBaseAudioContext self) => self -> m OscillatorNode+createOscillator self = liftDOM ((js_createOscillator ((Types.toBaseAudioContext self))))++-- | <https://developer.mozilla.org/docs/Web/API/BaseAudioContext/createOscillator MDN BaseAudioContext.createOscillator documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/BaseAudioContext/createPanner MDN BaseAudioContext.createPanner documentation>+createPanner :: (MonadDOM m, IsBaseAudioContext self) => self -> m PannerNode+createPanner self = liftDOM ((js_createPanner ((Types.toBaseAudioContext self))))++-- | <https://developer.mozilla.org/docs/Web/API/BaseAudioContext/createPanner MDN BaseAudioContext.createPanner documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/BaseAudioContext/createPeriodicWave MDN BaseAudioContext.createPeriodicWave documentation>+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'))++-- | <https://developer.mozilla.org/docs/Web/API/BaseAudioContext/createPeriodicWave MDN BaseAudioContext.createPeriodicWave documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/BaseAudioContext/createScriptProcessor MDN BaseAudioContext.createScriptProcessor documentation>+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'))++-- | <https://developer.mozilla.org/docs/Web/API/BaseAudioContext/createScriptProcessor MDN BaseAudioContext.createScriptProcessor documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/BaseAudioContext/createStereoPanner MDN BaseAudioContext.createStereoPanner documentation>+createStereoPanner :: (MonadDOM m, IsBaseAudioContext self) => self -> m StereoPannerNode+createStereoPanner self = liftDOM ((js_createStereoPanner ((Types.toBaseAudioContext self))))++-- | <https://developer.mozilla.org/docs/Web/API/BaseAudioContext/createStereoPanner MDN BaseAudioContext.createStereoPanner documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/BaseAudioContext/createWaveShaper MDN BaseAudioContext.createWaveShaper documentation>+createWaveShaper :: (MonadDOM m, IsBaseAudioContext self) => self -> m WaveShaperNode+createWaveShaper self = liftDOM ((js_createWaveShaper ((Types.toBaseAudioContext self))))++-- | <https://developer.mozilla.org/docs/Web/API/BaseAudioContext/createWaveShaper MDN BaseAudioContext.createWaveShaper documentation>+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)+-- | <https://developer.mozilla.org/docs/Web/API/BaseAudioContext/decodeAudioData MDN BaseAudioContext.decodeAudioData documentation>+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))++-- | <https://developer.mozilla.org/docs/Web/API/BaseAudioContext/decodeAudioData MDN BaseAudioContext.decodeAudioData documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/BaseAudioContext/destination MDN BaseAudioContext.destination documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/BaseAudioContext/sampleRate MDN BaseAudioContext.sampleRate documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/BaseAudioContext/currentTime MDN BaseAudioContext.currentTime documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/BaseAudioContext/listener MDN BaseAudioContext.listener documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/BaseAudioContext/state MDN BaseAudioContext.state documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/BaseAudioContext/audioWorklet MDN BaseAudioContext.audioWorklet documentation>+getAudioWorklet :: (MonadDOM m, IsBaseAudioContext self) => self -> m AudioWorklet+getAudioWorklet self = liftDOM ((js_getAudioWorklet ((Types.toBaseAudioContext self))))++-- | <https://webaudio.github.io/web-audio-api/#dom-baseaudiocontext-onstatechange statechange event>+statechange :: (IsBaseAudioContext self, IsEventTarget self) => EventName self Event+statechange = unsafeEventName (toJSString "statechange")
@@ -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---- | <https://developer.mozilla.org/en-US/docs/Web/API/BasicCredential.id Mozilla BasicCredential.id documentation> -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---- | <https://developer.mozilla.org/en-US/docs/Web/API/BasicCredential.type Mozilla BasicCredential.type documentation> -getType ::- (MonadIO m, IsBasicCredential self, FromJSString result) =>- self -> m result-getType self- = liftIO (fromJSString <$> (js_getType (toBasicCredential self)))
@@ -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---- | <https://developer.mozilla.org/en-US/docs/Web/API/BeforeLoadEvent Mozilla BeforeLoadEvent documentation> -newBeforeLoadEvent ::- (MonadIO m, ToJSString type') =>- type' -> Maybe BeforeLoadEventInit -> m BeforeLoadEvent-newBeforeLoadEvent type' eventInitDict- = liftIO- (js_newBeforeLoadEvent (toJSString type')- (maybeToOptional eventInitDict))- -foreign import javascript unsafe "(($1) => { return $1[\"url\"]; })" js_getUrl ::- BeforeLoadEvent -> IO JSString---- | <https://developer.mozilla.org/en-US/docs/Web/API/BeforeLoadEvent.url Mozilla BeforeLoadEvent.url documentation> -getUrl ::- (MonadIO m, FromJSString result) => BeforeLoadEvent -> m result-getUrl self = liftIO (fromJSString <$> (js_getUrl self))
@@ -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 ()+-- | <https://developer.mozilla.org/docs/Web/API/BeforeUnloadEvent/returnValue MDN BeforeUnloadEvent.returnValue documentation>+setReturnValue :: (MonadDOM m, ToJSString val) => BeforeUnloadEvent -> val -> m ()+setReturnValue self val = liftDOM (void ((js_setReturnValue (self) (toJSString val)))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/BeforeUnloadEvent.returnValue Mozilla BeforeUnloadEvent.returnValue documentation> -setReturnValue ::- (MonadIO m, ToJSString val) => BeforeUnloadEvent -> val -> m ()-setReturnValue self val- = liftIO (js_setReturnValue self (toJSString val))- foreign import javascript unsafe "(($1) => { return $1[\"returnValue\"]; })" js_getReturnValue :: BeforeUnloadEvent -> IO JSString---- | <https://developer.mozilla.org/en-US/docs/Web/API/BeforeUnloadEvent.returnValue Mozilla BeforeUnloadEvent.returnValue documentation> -getReturnValue ::- (MonadIO m, FromJSString result) => BeforeUnloadEvent -> m result-getReturnValue self- = liftIO (fromJSString <$> (js_getReturnValue self))+-- | <https://developer.mozilla.org/docs/Web/API/BeforeUnloadEvent/returnValue MDN BeforeUnloadEvent.returnValue documentation>+getReturnValue :: (MonadDOM m, FromJSString result) => BeforeUnloadEvent -> m result+getReturnValue self = liftDOM ((fromJSString <$> (js_getReturnValue (self))))
@@ -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 () --- | <https://developer.mozilla.org/en-US/docs/Web/API/BiquadFilterNode.getFrequencyResponse Mozilla BiquadFilterNode.getFrequencyResponse documentation> -getFrequencyResponse ::- (MonadIO m, IsFloat32Array frequencyHz, IsFloat32Array magResponse,- IsFloat32Array phaseResponse) =>- BiquadFilterNode ->- Maybe frequencyHz ->- Maybe magResponse -> Maybe phaseResponse -> m ()-getFrequencyResponse self frequencyHz magResponse phaseResponse- = liftIO- (js_getFrequencyResponse self- (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+-- | <https://developer.mozilla.org/docs/Web/API/BiquadFilterNode/BiquadFilterNode MDN BiquadFilterNode. documentation>+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')) --- | <https://developer.mozilla.org/en-US/docs/Web/API/BiquadFilterNode.type Mozilla BiquadFilterNode.type documentation> -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 ()+-- | <https://developer.mozilla.org/docs/Web/API/BiquadFilterNode/getFrequencyResponse MDN BiquadFilterNode.getFrequencyResponse documentation>+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)))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/BiquadFilterNode.type Mozilla BiquadFilterNode.type documentation> -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 ()+-- | <https://developer.mozilla.org/docs/Web/API/BiquadFilterNode/type MDN BiquadFilterNode.type documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/BiquadFilterNode/type MDN BiquadFilterNode.type documentation>+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---- | <https://developer.mozilla.org/en-US/docs/Web/API/BiquadFilterNode.frequency Mozilla BiquadFilterNode.frequency documentation> -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+-- | <https://developer.mozilla.org/docs/Web/API/BiquadFilterNode/frequency MDN BiquadFilterNode.frequency documentation>+getFrequency :: (MonadDOM m) => BiquadFilterNode -> m AudioParam+getFrequency self = liftDOM ((js_getFrequency (self))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/BiquadFilterNode.detune Mozilla BiquadFilterNode.detune documentation> -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+-- | <https://developer.mozilla.org/docs/Web/API/BiquadFilterNode/detune MDN BiquadFilterNode.detune documentation>+getDetune :: (MonadDOM m) => BiquadFilterNode -> m AudioParam+getDetune self = liftDOM ((js_getDetune (self))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/BiquadFilterNode.Q Mozilla BiquadFilterNode.Q documentation> -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+-- | <https://developer.mozilla.org/docs/Web/API/BiquadFilterNode/Q MDN BiquadFilterNode.Q documentation>+getQ :: (MonadDOM m) => BiquadFilterNode -> m AudioParam+getQ self = liftDOM ((js_getQ (self))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/BiquadFilterNode.gain Mozilla BiquadFilterNode.gain documentation> -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+-- | <https://developer.mozilla.org/docs/Web/API/BiquadFilterNode/gain MDN BiquadFilterNode.gain documentation>+getGain :: (MonadDOM m) => BiquadFilterNode -> m AudioParam+getGain self = liftDOM ((js_getGain (self)))
@@ -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+-- | <https://webaudio.github.io/web-audio-api/#BiquadFilterOptions BiquadFilterOptions specification>+newBiquadFilterOptions :: (MonadDOM m) => m BiquadFilterOptions+newBiquadFilterOptions = liftDOM ((js_newBiquadFilterOptions))++foreign import javascript safe "(($1, $2) => { $1[\"type\"] = $2; })"+ js_setType :: BiquadFilterOptions -> JSVal -> IO ()+-- | <https://webaudio.github.io/web-audio-api/#dom-biquadfilteroptions-type BiquadFilterOptions.type specification>+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+-- | <https://webaudio.github.io/web-audio-api/#dom-biquadfilteroptions-type BiquadFilterOptions.type specification>+getType :: (MonadDOM m) => BiquadFilterOptions -> m (Maybe BiquadFilterType)+getType self = liftDOM (((js_getType (self)) >>= fromJSValUnchecked))++-- | <https://webaudio.github.io/web-audio-api/#dom-biquadfilteroptions-type BiquadFilterOptions.type specification>+getTypeUnsafe :: (MonadDOM m, HasCallStack) => BiquadFilterOptions -> m BiquadFilterType+getTypeUnsafe self = liftDOM ((((js_getType (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://webaudio.github.io/web-audio-api/#dom-biquadfilteroptions-type BiquadFilterOptions.type specification>+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 ()+-- | <https://webaudio.github.io/web-audio-api/#dom-biquadfilteroptions-q BiquadFilterOptions.Q specification>+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+-- | <https://webaudio.github.io/web-audio-api/#dom-biquadfilteroptions-q BiquadFilterOptions.Q specification>+getQ :: (MonadDOM m) => BiquadFilterOptions -> m (Maybe Float)+getQ self = liftDOM (((js_getQ (self)) >>= fromJSValUnchecked))++-- | <https://webaudio.github.io/web-audio-api/#dom-biquadfilteroptions-q BiquadFilterOptions.Q specification>+getQUnsafe :: (MonadDOM m, HasCallStack) => BiquadFilterOptions -> m Float+getQUnsafe self = liftDOM ((((js_getQ (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://webaudio.github.io/web-audio-api/#dom-biquadfilteroptions-q BiquadFilterOptions.Q specification>+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 ()+-- | <https://webaudio.github.io/web-audio-api/#dom-biquadfilteroptions-detune BiquadFilterOptions.detune specification>+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+-- | <https://webaudio.github.io/web-audio-api/#dom-biquadfilteroptions-detune BiquadFilterOptions.detune specification>+getDetune :: (MonadDOM m) => BiquadFilterOptions -> m (Maybe Float)+getDetune self = liftDOM (((js_getDetune (self)) >>= fromJSValUnchecked))++-- | <https://webaudio.github.io/web-audio-api/#dom-biquadfilteroptions-detune BiquadFilterOptions.detune specification>+getDetuneUnsafe :: (MonadDOM m, HasCallStack) => BiquadFilterOptions -> m Float+getDetuneUnsafe self = liftDOM ((((js_getDetune (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://webaudio.github.io/web-audio-api/#dom-biquadfilteroptions-detune BiquadFilterOptions.detune specification>+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 ()+-- | <https://webaudio.github.io/web-audio-api/#dom-biquadfilteroptions-frequency BiquadFilterOptions.frequency specification>+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+-- | <https://webaudio.github.io/web-audio-api/#dom-biquadfilteroptions-frequency BiquadFilterOptions.frequency specification>+getFrequency :: (MonadDOM m) => BiquadFilterOptions -> m (Maybe Float)+getFrequency self = liftDOM (((js_getFrequency (self)) >>= fromJSValUnchecked))++-- | <https://webaudio.github.io/web-audio-api/#dom-biquadfilteroptions-frequency BiquadFilterOptions.frequency specification>+getFrequencyUnsafe :: (MonadDOM m, HasCallStack) => BiquadFilterOptions -> m Float+getFrequencyUnsafe self = liftDOM ((((js_getFrequency (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://webaudio.github.io/web-audio-api/#dom-biquadfilteroptions-frequency BiquadFilterOptions.frequency specification>+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 ()+-- | <https://webaudio.github.io/web-audio-api/#dom-biquadfilteroptions-gain BiquadFilterOptions.gain specification>+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+-- | <https://webaudio.github.io/web-audio-api/#dom-biquadfilteroptions-gain BiquadFilterOptions.gain specification>+getGain :: (MonadDOM m) => BiquadFilterOptions -> m (Maybe Float)+getGain self = liftDOM (((js_getGain (self)) >>= fromJSValUnchecked))++-- | <https://webaudio.github.io/web-audio-api/#dom-biquadfilteroptions-gain BiquadFilterOptions.gain specification>+getGainUnsafe :: (MonadDOM m, HasCallStack) => BiquadFilterOptions -> m Float+getGainUnsafe self = liftDOM ((((js_getGain (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://webaudio.github.io/web-audio-api/#dom-biquadfilteroptions-gain BiquadFilterOptions.gain specification>+getGainUnchecked :: (MonadDOM m) => BiquadFilterOptions -> m Float+getGainUnchecked self = liftDOM ((pFromJSVal <$> (js_getGain (self))))
@@ -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 --- | <https://developer.mozilla.org/en-US/docs/Web/API/Blob Mozilla Blob documentation> -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+-- | <https://developer.mozilla.org/docs/Web/API/Blob/Blob MDN Blob. documentation>+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')) --- | <https://developer.mozilla.org/en-US/docs/Web/API/Blob.slice Mozilla Blob.slice documentation> -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)+-- | <https://developer.mozilla.org/docs/Web/API/Blob/arrayBuffer MDN Blob.arrayBuffer documentation>+arrayBuffer :: (MonadDOM m, IsBlob self) => self -> m ArrayBuffer+arrayBuffer self = liftDOM (((js_arrayBuffer ((Types.toBlob self))) >>= checkPromiseResult)) --- | <https://developer.mozilla.org/en-US/docs/Web/API/Blob.slice Mozilla Blob.slice documentation> -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+-- | <https://developer.mozilla.org/docs/Web/API/Blob/arrayBuffer MDN Blob.arrayBuffer documentation>+arrayBuffer_ :: (MonadDOM m, IsBlob self) => self -> m ()+arrayBuffer_ self = liftDOM (void (((js_arrayBuffer ((Types.toBlob self))) >>= checkPromiseResult))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/Blob.size Mozilla Blob.size documentation> -getSize :: (MonadIO m, IsBlob self) => self -> m Word64-getSize self = liftIO (round <$> (js_getSize (toBlob self)))- -foreign import javascript unsafe "(($1) => { 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)+-- | <https://developer.mozilla.org/docs/Web/API/Blob/bytes MDN Blob.bytes documentation>+bytes :: (MonadDOM m, IsBlob self) => self -> m Uint8Array+bytes self = liftDOM (((js_bytes ((Types.toBlob self))) >>= checkPromiseResult)) --- | <https://developer.mozilla.org/en-US/docs/Web/API/Blob.type Mozilla Blob.type documentation> -getType ::- (MonadIO m, IsBlob self, FromJSString result) => self -> m result-getType self = liftIO (fromJSString <$> (js_getType (toBlob self)))+-- | <https://developer.mozilla.org/docs/Web/API/Blob/bytes MDN Blob.bytes documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/Blob/slice MDN Blob.slice documentation>+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)))++-- | <https://developer.mozilla.org/docs/Web/API/Blob/slice MDN Blob.slice documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/Blob/stream MDN Blob.stream documentation>+stream :: (MonadDOM m, IsBlob self) => self -> m ReadableStream+stream self = liftDOM ((js_stream ((Types.toBlob self))))++-- | <https://developer.mozilla.org/docs/Web/API/Blob/stream MDN Blob.stream documentation>+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)+-- | <https://developer.mozilla.org/docs/Web/API/Blob/text MDN Blob.text documentation>+text :: (MonadDOM m, IsBlob self, FromJSString result) => self -> m result+text self = liftDOM ((fromJSString <$> ((js_text ((Types.toBlob self))) >>= checkPromiseResult)))++-- | <https://developer.mozilla.org/docs/Web/API/Blob/text MDN Blob.text documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/Blob/size MDN Blob.size documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/Blob/type MDN Blob.type documentation>+getType :: (MonadDOM m, IsBlob self, FromJSString result) => self -> m result+getType self = liftDOM ((fromJSString <$> (js_getType ((Types.toBlob self)))))
@@ -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 --- | <https://developer.mozilla.org/en-US/docs/Web/API/BlobCallback Mozilla BlobCallback documentation> -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')) --- | <https://developer.mozilla.org/en-US/docs/Web/API/BlobCallback Mozilla BlobCallback documentation> -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')) --- | <https://developer.mozilla.org/en-US/docs/Web/API/BlobCallback Mozilla BlobCallback documentation> -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'))
@@ -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+-- | <https://developer.mozilla.org/docs/Web/API/BlobEvent/BlobEvent MDN BlobEvent. documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/BlobEvent/data MDN BlobEvent.data documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/BlobEvent/timecode MDN BlobEvent.timecode documentation>+getTimecode :: (MonadDOM m) => BlobEvent -> m Double+getTimecode self = liftDOM ((js_getTimecode (self)))
@@ -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+-- | <https://w3c.github.io/mediacapture-record/#dictdef-blobeventinit BlobEventInit specification>+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 ()+-- | <https://w3c.github.io/mediacapture-record/#dom-blobeventinit-data BlobEventInit.data specification>+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+-- | <https://w3c.github.io/mediacapture-record/#dom-blobeventinit-data BlobEventInit.data specification>+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 ()+-- | <https://w3c.github.io/mediacapture-record/#dom-blobeventinit-timecode BlobEventInit.timecode specification>+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+-- | <https://w3c.github.io/mediacapture-record/#dom-blobeventinit-timecode BlobEventInit.timecode specification>+getTimecode :: (MonadDOM m) => BlobEventInit -> m (Maybe Double)+getTimecode self = liftDOM (((js_getTimecode (self)) >>= fromJSValUnchecked))++-- | <https://w3c.github.io/mediacapture-record/#dom-blobeventinit-timecode BlobEventInit.timecode specification>+getTimecodeUnsafe :: (MonadDOM m, HasCallStack) => BlobEventInit -> m Double+getTimecodeUnsafe self = liftDOM ((((js_getTimecode (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://w3c.github.io/mediacapture-record/#dom-blobeventinit-timecode BlobEventInit.timecode specification>+getTimecodeUnchecked :: (MonadDOM m) => BlobEventInit -> m Double+getTimecodeUnchecked self = liftDOM ((pFromJSVal <$> (js_getTimecode (self))))
@@ -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+-- | <https://w3c.github.io/FileAPI/#dfn-BlobPropertyBag BlobPropertyBag specification>+newBlobPropertyBag :: (MonadDOM m) => m BlobPropertyBag+newBlobPropertyBag = liftDOM ((js_newBlobPropertyBag))++foreign import javascript safe "(($1, $2) => { $1[\"type\"] = $2; })"+ js_setType :: BlobPropertyBag -> JSString -> IO ()+-- | <https://w3c.github.io/FileAPI/#dfn-BPtype BlobPropertyBag.type specification>+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+-- | <https://w3c.github.io/FileAPI/#dfn-BPtype BlobPropertyBag.type specification>+getType :: (MonadDOM m, IsBlobPropertyBag self, FromJSString result) => self -> m (Maybe result)+getType self = liftDOM (((fromMaybeJSString . Nullable) <$> (js_getType ((Types.toBlobPropertyBag self)))))++-- | <https://w3c.github.io/FileAPI/#dfn-BPtype BlobPropertyBag.type specification>+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))++-- | <https://w3c.github.io/FileAPI/#dfn-BPtype BlobPropertyBag.type specification>+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 ()+-- | <https://w3c.github.io/FileAPI/#dom-blobpropertybag-endings BlobPropertyBag.endings specification>+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+-- | <https://w3c.github.io/FileAPI/#dom-blobpropertybag-endings BlobPropertyBag.endings specification>+getEndings :: (MonadDOM m, IsBlobPropertyBag self) => self -> m (Maybe EndingType)+getEndings self = liftDOM (((js_getEndings ((Types.toBlobPropertyBag self))) >>= fromJSValUnchecked))++-- | <https://w3c.github.io/FileAPI/#dom-blobpropertybag-endings BlobPropertyBag.endings specification>+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))++-- | <https://w3c.github.io/FileAPI/#dom-blobpropertybag-endings BlobPropertyBag.endings specification>+getEndingsUnchecked :: (MonadDOM m, IsBlobPropertyBag self) => self -> m EndingType+getEndingsUnchecked self = liftDOM ((pFromJSVal <$> (js_getEndings ((Types.toBlobPropertyBag self)))))
@@ -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)+-- | <https://developer.mozilla.org/docs/Web/API/Request/arrayBuffer MDN Body.arrayBuffer documentation>+arrayBuffer :: (MonadDOM m, IsBody self) => self -> m ArrayBuffer+arrayBuffer self = liftDOM (((js_arrayBuffer ((Types.toBody self))) >>= checkPromiseResult)) --- | <https://developer.mozilla.org/en-US/docs/Web/API/Body.arrayBuffer Mozilla Body.arrayBuffer documentation> -arrayBuffer :: (MonadIO m, IsBody self) => self -> m ArrayBuffer-arrayBuffer self- = liftIO ((js_arrayBuffer (toBody self)) >>= checkPromiseResult)+-- | <https://developer.mozilla.org/docs/Web/API/Request/arrayBuffer MDN Body.arrayBuffer documentation>+arrayBuffer_ :: (MonadDOM m, IsBody self) => self -> m ()+arrayBuffer_ self = liftDOM (void (((js_arrayBuffer ((Types.toBody self))) >>= checkPromiseResult))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/Body.arrayBuffer Mozilla Body.arrayBuffer documentation> -arrayBuffer_ :: (MonadIO m, IsBody self) => self -> m ()-arrayBuffer_ self = liftIO (void (js_arrayBuffer (toBody self)))- -foreign import javascript interruptible- "(($1, $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)+-- | <https://developer.mozilla.org/docs/Web/API/Request/blob MDN Body.blob documentation>+blob :: (MonadDOM m, IsBody self) => self -> m Blob+blob self = liftDOM (((js_blob ((Types.toBody self))) >>= checkPromiseResult)) --- | <https://developer.mozilla.org/en-US/docs/Web/API/Body.blob Mozilla Body.blob documentation> -blob :: (MonadIO m, IsBody self) => self -> m Blob-blob self = liftIO ((js_blob (toBody self)) >>= checkPromiseResult)+-- | <https://developer.mozilla.org/docs/Web/API/Request/blob MDN Body.blob documentation>+blob_ :: (MonadDOM m, IsBody self) => self -> m ()+blob_ self = liftDOM (void (((js_blob ((Types.toBody self))) >>= checkPromiseResult))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/Body.blob Mozilla Body.blob documentation> -blob_ :: (MonadIO m, IsBody self) => self -> m ()-blob_ self = liftIO (void (js_blob (toBody self)))- -foreign import javascript interruptible- "(($1, $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)+-- | <https://developer.mozilla.org/docs/Web/API/Request/bytes MDN Body.bytes documentation>+bytes :: (MonadDOM m, IsBody self) => self -> m Uint8Array+bytes self = liftDOM (((js_bytes ((Types.toBody self))) >>= checkPromiseResult))++-- | <https://developer.mozilla.org/docs/Web/API/Request/bytes MDN Body.bytes documentation>+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)+-- | <https://developer.mozilla.org/docs/Web/API/Request/formData MDN Body.formData documentation>+formData :: (MonadDOM m, IsBody self) => self -> m FormData+formData self = liftDOM (((js_formData ((Types.toBody self))) >>= checkPromiseResult))++-- | <https://developer.mozilla.org/docs/Web/API/Request/formData MDN Body.formData documentation>+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)+-- | <https://developer.mozilla.org/docs/Web/API/Request/json MDN Body.json documentation>+json :: (MonadDOM m, IsBody self) => self -> m JSVal+json self = liftDOM (((js_json ((Types.toBody self))) >>= checkPromiseResult)) --- | <https://developer.mozilla.org/en-US/docs/Web/API/Body.json Mozilla Body.json documentation> -json :: (MonadIO m, IsBody self) => self -> m JSVal-json self = liftIO ((js_json (toBody self)) >>= checkPromiseResult)+-- | <https://developer.mozilla.org/docs/Web/API/Request/json MDN Body.json documentation>+json_ :: (MonadDOM m, IsBody self) => self -> m ()+json_ self = liftDOM (void (((js_json ((Types.toBody self))) >>= checkPromiseResult))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/Body.json Mozilla Body.json documentation> -json_ :: (MonadIO m, IsBody self) => self -> m ()-json_ self = liftIO (void (js_json (toBody self)))- -foreign import javascript interruptible- "(($1, $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)+-- | <https://developer.mozilla.org/docs/Web/API/Request/text MDN Body.text documentation>+text :: (MonadDOM m, IsBody self, FromJSString result) => self -> m result+text self = liftDOM ((fromJSString <$> ((js_text ((Types.toBody self))) >>= checkPromiseResult))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/Body.text Mozilla Body.text documentation> -text ::- (MonadIO m, IsBody self, FromJSString result) => self -> m result-text self- = liftIO- (fromJSString <$> ((js_text (toBody self)) >>= checkPromiseResult))+-- | <https://developer.mozilla.org/docs/Web/API/Request/text MDN Body.text documentation>+text_ :: (MonadDOM m, IsBody self) => self -> m ()+text_ self = liftDOM (void (((js_text ((Types.toBody self))) >>= checkPromiseResult))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/Body.text Mozilla Body.text documentation> -text_ :: (MonadIO m, IsBody self) => self -> m ()-text_ self = liftIO (void (js_text (toBody self)))- -foreign import javascript unsafe "(($1) => { return ($1[\"bodyUsed\"] ? 1 : 0); })"- js_getBodyUsed :: Body -> IO Bool+foreign import javascript unsafe "(($1) => { return $1[\"body\"]; })"+ js_getBody :: Body -> IO JSVal+-- | <https://developer.mozilla.org/docs/Web/API/Request/body MDN Body.body documentation>+getBody :: (MonadDOM m, IsBody self) => self -> m (Maybe ReadableStream)+getBody self = liftDOM (((js_getBody ((Types.toBody self))) >>= fromJSValUnchecked)) --- | <https://developer.mozilla.org/en-US/docs/Web/API/Body.bodyUsed Mozilla Body.bodyUsed documentation> -getBodyUsed :: (MonadIO m, IsBody self) => self -> m Bool-getBodyUsed self = liftIO (js_getBodyUsed (toBody self))+-- | <https://developer.mozilla.org/docs/Web/API/Request/body MDN Body.body documentation>+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))++-- | <https://developer.mozilla.org/docs/Web/API/Request/body MDN Body.body documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/Request/bodyUsed MDN Body.bodyUsed documentation>+getBodyUsed :: (MonadDOM m, IsBody self) => self -> m Bool+getBodyUsed self = liftDOM ((js_getBodyUsed ((Types.toBody self))))
@@ -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+-- | <https://developer.mozilla.org/docs/Web/API/BroadcastChannel/BroadcastChannel MDN BroadcastChannel. documentation>+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 ()+-- | <https://developer.mozilla.org/docs/Web/API/BroadcastChannel/close MDN BroadcastChannel.close documentation>+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 ()+-- | <https://developer.mozilla.org/docs/Web/API/BroadcastChannel/postMessage MDN BroadcastChannel.postMessage documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/BroadcastChannel/name MDN BroadcastChannel.name documentation>+getName :: (MonadDOM m, FromJSString result) => BroadcastChannel -> m result+getName self = liftDOM ((fromJSString <$> (js_getName (self))))++-- | <https://html.spec.whatwg.org/multipage/web-messaging.html#handler-broadcastchannel-onmessage message event>+message :: EventName BroadcastChannel MessageEvent+message = unsafeEventNameAsync (toJSString "message")++-- | <https://html.spec.whatwg.org/multipage/web-messaging.html#handler-broadcastchannel-onmessageerror messageerror event>+messageerror :: EventName BroadcastChannel MessageEvent+messageerror = unsafeEventName (toJSString "messageerror")
@@ -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+-- | <https://w3c.github.io/secure-payment-confirmation/#dictdef-browserboundsignature BrowserBoundSignature specification>+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 ()+-- | <https://w3c.github.io/secure-payment-confirmation/#dom-browserboundsignature-signature BrowserBoundSignature.signature specification>+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+-- | <https://w3c.github.io/secure-payment-confirmation/#dom-browserboundsignature-signature BrowserBoundSignature.signature specification>+getSignature :: (MonadDOM m) => BrowserBoundSignature -> m ArrayBuffer+getSignature self = liftDOM ((js_getSignature (self)))
@@ -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 --- | <https://developer.mozilla.org/en-US/docs/Web/API/ByteLengthQueuingStrategy Mozilla ByteLengthQueuingStrategy documentation> -newByteLengthQueuingStrategy ::- (MonadIO m) => m ByteLengthQueuingStrategy-newByteLengthQueuingStrategy- = liftIO (js_newByteLengthQueuingStrategy)- -foreign import javascript unsafe "(($1) => { return $1[\"size\"](); })" js_size ::- ByteLengthQueuingStrategy -> IO Double+foreign import javascript safe "(($1) => { return new globalThis[\"ByteLengthQueuingStrategy\"]($1); })"+ js_newByteLengthQueuingStrategy :: QueuingStrategyInit -> IO ByteLengthQueuingStrategy+-- | <https://developer.mozilla.org/docs/Web/API/ByteLengthQueuingStrategy/ByteLengthQueuingStrategy MDN ByteLengthQueuingStrategy. documentation>+newByteLengthQueuingStrategy :: (MonadDOM m) => QueuingStrategyInit -> m ByteLengthQueuingStrategy+newByteLengthQueuingStrategy init = liftDOM ((js_newByteLengthQueuingStrategy (init))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/ByteLengthQueuingStrategy.size Mozilla ByteLengthQueuingStrategy.size documentation> -size :: (MonadIO m) => ByteLengthQueuingStrategy -> m Double-size self = liftIO (js_size self)+foreign import javascript unsafe "(($1) => { return $1[\"highWaterMark\"]; })"+ js_getHighWaterMark :: ByteLengthQueuingStrategy -> IO Double+-- | <https://developer.mozilla.org/docs/Web/API/ByteLengthQueuingStrategy/highWaterMark MDN ByteLengthQueuingStrategy.highWaterMark documentation>+getHighWaterMark :: (MonadDOM m) => ByteLengthQueuingStrategy -> m Double+getHighWaterMark self = liftDOM ((js_getHighWaterMark (self))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/ByteLengthQueuingStrategy.size Mozilla ByteLengthQueuingStrategy.size documentation> -size_ :: (MonadIO m) => ByteLengthQueuingStrategy -> m ()-size_ self = liftIO (void (js_size self))+foreign import javascript unsafe "(($1) => { return $1[\"size\"]; })"+ js_getSize :: ByteLengthQueuingStrategy -> IO Function+-- | <https://developer.mozilla.org/docs/Web/API/ByteLengthQueuingStrategy/size MDN ByteLengthQueuingStrategy.size documentation>+getSize :: (MonadDOM m) => ByteLengthQueuingStrategy -> m Function+getSize self = liftDOM ((js_getSize (self)))
@@ -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+
@@ -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 --- | <https://developer.mozilla.org/en-US/docs/Web/API/CSS.supports Mozilla CSS.supports documentation> -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+-- | <https://developer.mozilla.org/docs/Web/API/CSS/factory_functions_static MDN CSS.Hz documentation>+hz :: (MonadDOM m) => Double -> m CSSUnitValue+hz value = liftDOM ((js_hz (value))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/CSS.supports Mozilla CSS.supports documentation> -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+-- | <https://developer.mozilla.org/docs/Web/API/CSS/factory_functions_static MDN CSS.Hz documentation>+hz_ :: (MonadDOM m) => Double -> m ()+hz_ value = liftDOM (void ((js_hz (value)))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/CSS.supports Mozilla CSS.supports documentation> -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+-- | <https://developer.mozilla.org/docs/Web/API/CSS/factory_functions_static MDN CSS.Q documentation>+q :: (MonadDOM m) => Double -> m CSSUnitValue+q value = liftDOM ((js_q (value))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/CSS.supports Mozilla CSS.supports documentation> -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); })"+-- | <https://developer.mozilla.org/docs/Web/API/CSS/factory_functions_static MDN CSS.Q documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/CSS/factory_functions_static MDN CSS.cap documentation>+cap :: (MonadDOM m) => Double -> m CSSUnitValue+cap value = liftDOM ((js_cap (value)))++-- | <https://developer.mozilla.org/docs/Web/API/CSS/factory_functions_static MDN CSS.cap documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/CSS/factory_functions_static MDN CSS.ch documentation>+ch :: (MonadDOM m) => Double -> m CSSUnitValue+ch value = liftDOM ((js_ch (value)))++-- | <https://developer.mozilla.org/docs/Web/API/CSS/factory_functions_static MDN CSS.ch documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/CSS/factory_functions_static MDN CSS.cm documentation>+cm :: (MonadDOM m) => Double -> m CSSUnitValue+cm value = liftDOM ((js_cm (value)))++-- | <https://developer.mozilla.org/docs/Web/API/CSS/factory_functions_static MDN CSS.cm documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/CSS/factory_functions_static MDN CSS.cqb documentation>+cqb :: (MonadDOM m) => Double -> m CSSUnitValue+cqb value = liftDOM ((js_cqb (value)))++-- | <https://developer.mozilla.org/docs/Web/API/CSS/factory_functions_static MDN CSS.cqb documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/CSS/factory_functions_static MDN CSS.cqh documentation>+cqh :: (MonadDOM m) => Double -> m CSSUnitValue+cqh value = liftDOM ((js_cqh (value)))++-- | <https://developer.mozilla.org/docs/Web/API/CSS/factory_functions_static MDN CSS.cqh documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/CSS/factory_functions_static MDN CSS.cqi documentation>+cqi :: (MonadDOM m) => Double -> m CSSUnitValue+cqi value = liftDOM ((js_cqi (value)))++-- | <https://developer.mozilla.org/docs/Web/API/CSS/factory_functions_static MDN CSS.cqi documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/CSS/factory_functions_static MDN CSS.cqmax documentation>+cqmax :: (MonadDOM m) => Double -> m CSSUnitValue+cqmax value = liftDOM ((js_cqmax (value)))++-- | <https://developer.mozilla.org/docs/Web/API/CSS/factory_functions_static MDN CSS.cqmax documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/CSS/factory_functions_static MDN CSS.cqmin documentation>+cqmin :: (MonadDOM m) => Double -> m CSSUnitValue+cqmin value = liftDOM ((js_cqmin (value)))++-- | <https://developer.mozilla.org/docs/Web/API/CSS/factory_functions_static MDN CSS.cqmin documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/CSS/factory_functions_static MDN CSS.cqw documentation>+cqw :: (MonadDOM m) => Double -> m CSSUnitValue+cqw value = liftDOM ((js_cqw (value)))++-- | <https://developer.mozilla.org/docs/Web/API/CSS/factory_functions_static MDN CSS.cqw documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/CSS/factory_functions_static MDN CSS.deg documentation>+deg :: (MonadDOM m) => Double -> m CSSUnitValue+deg value = liftDOM ((js_deg (value)))++-- | <https://developer.mozilla.org/docs/Web/API/CSS/factory_functions_static MDN CSS.deg documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/CSS/factory_functions_static MDN CSS.dpcm documentation>+dpcm :: (MonadDOM m) => Double -> m CSSUnitValue+dpcm value = liftDOM ((js_dpcm (value)))++-- | <https://developer.mozilla.org/docs/Web/API/CSS/factory_functions_static MDN CSS.dpcm documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/CSS/factory_functions_static MDN CSS.dpi documentation>+dpi :: (MonadDOM m) => Double -> m CSSUnitValue+dpi value = liftDOM ((js_dpi (value)))++-- | <https://developer.mozilla.org/docs/Web/API/CSS/factory_functions_static MDN CSS.dpi documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/CSS/factory_functions_static MDN CSS.dppx documentation>+dppx :: (MonadDOM m) => Double -> m CSSUnitValue+dppx value = liftDOM ((js_dppx (value)))++-- | <https://developer.mozilla.org/docs/Web/API/CSS/factory_functions_static MDN CSS.dppx documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/CSS/factory_functions_static MDN CSS.dvb documentation>+dvb :: (MonadDOM m) => Double -> m CSSUnitValue+dvb value = liftDOM ((js_dvb (value)))++-- | <https://developer.mozilla.org/docs/Web/API/CSS/factory_functions_static MDN CSS.dvb documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/CSS/factory_functions_static MDN CSS.dvh documentation>+dvh :: (MonadDOM m) => Double -> m CSSUnitValue+dvh value = liftDOM ((js_dvh (value)))++-- | <https://developer.mozilla.org/docs/Web/API/CSS/factory_functions_static MDN CSS.dvh documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/CSS/factory_functions_static MDN CSS.dvi documentation>+dvi :: (MonadDOM m) => Double -> m CSSUnitValue+dvi value = liftDOM ((js_dvi (value)))++-- | <https://developer.mozilla.org/docs/Web/API/CSS/factory_functions_static MDN CSS.dvi documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/CSS/factory_functions_static MDN CSS.dvmax documentation>+dvmax :: (MonadDOM m) => Double -> m CSSUnitValue+dvmax value = liftDOM ((js_dvmax (value)))++-- | <https://developer.mozilla.org/docs/Web/API/CSS/factory_functions_static MDN CSS.dvmax documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/CSS/factory_functions_static MDN CSS.dvmin documentation>+dvmin :: (MonadDOM m) => Double -> m CSSUnitValue+dvmin value = liftDOM ((js_dvmin (value)))++-- | <https://developer.mozilla.org/docs/Web/API/CSS/factory_functions_static MDN CSS.dvmin documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/CSS/factory_functions_static MDN CSS.dvw documentation>+dvw :: (MonadDOM m) => Double -> m CSSUnitValue+dvw value = liftDOM ((js_dvw (value)))++-- | <https://developer.mozilla.org/docs/Web/API/CSS/factory_functions_static MDN CSS.dvw documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/CSS/factory_functions_static MDN CSS.em documentation>+em :: (MonadDOM m) => Double -> m CSSUnitValue+em value = liftDOM ((js_em (value)))++-- | <https://developer.mozilla.org/docs/Web/API/CSS/factory_functions_static MDN CSS.em documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/CSS/escape_static MDN CSS.escape documentation>+escape :: (MonadDOM m, ToJSString ident, FromJSString result) => ident -> m result+escape ident = liftDOM ((fromJSString <$> (js_escape (toJSString ident)))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/CSS.escape Mozilla CSS.escape documentation> -escape ::- (MonadIO m, ToJSString ident, FromJSString result) =>- ident -> m result-escape ident- = liftIO (fromJSString <$> (js_escape (toJSString ident)))+-- | <https://developer.mozilla.org/docs/Web/API/CSS/escape_static MDN CSS.escape documentation>+escape_ :: (MonadDOM m, ToJSString ident) => ident -> m ()+escape_ ident = liftDOM (void ((js_escape (toJSString ident)))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/CSS.escape Mozilla CSS.escape documentation> -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+-- | <https://developer.mozilla.org/docs/Web/API/CSS/factory_functions_static MDN CSS.ex documentation>+ex :: (MonadDOM m) => Double -> m CSSUnitValue+ex value = liftDOM ((js_ex (value)))++-- | <https://developer.mozilla.org/docs/Web/API/CSS/factory_functions_static MDN CSS.ex documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/CSS/factory_functions_static MDN CSS.fr documentation>+fr :: (MonadDOM m) => Double -> m CSSUnitValue+fr value = liftDOM ((js_fr (value)))++-- | <https://developer.mozilla.org/docs/Web/API/CSS/factory_functions_static MDN CSS.fr documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/CSS/factory_functions_static MDN CSS.grad documentation>+grad :: (MonadDOM m) => Double -> m CSSUnitValue+grad value = liftDOM ((js_grad (value)))++-- | <https://developer.mozilla.org/docs/Web/API/CSS/factory_functions_static MDN CSS.grad documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/CSS/factory_functions_static MDN CSS.ic documentation>+ic :: (MonadDOM m) => Double -> m CSSUnitValue+ic value = liftDOM ((js_ic (value)))++-- | <https://developer.mozilla.org/docs/Web/API/CSS/factory_functions_static MDN CSS.ic documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/CSS/factory_functions_static MDN CSS.in documentation>+in' :: (MonadDOM m) => Double -> m CSSUnitValue+in' value = liftDOM ((js_in' (value)))++-- | <https://developer.mozilla.org/docs/Web/API/CSS/factory_functions_static MDN CSS.in documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/CSS/factory_functions_static MDN CSS.kHz documentation>+kHz :: (MonadDOM m) => Double -> m CSSUnitValue+kHz value = liftDOM ((js_kHz (value)))++-- | <https://developer.mozilla.org/docs/Web/API/CSS/factory_functions_static MDN CSS.kHz documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/CSS/factory_functions_static MDN CSS.lh documentation>+lh :: (MonadDOM m) => Double -> m CSSUnitValue+lh value = liftDOM ((js_lh (value)))++-- | <https://developer.mozilla.org/docs/Web/API/CSS/factory_functions_static MDN CSS.lh documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/CSS/factory_functions_static MDN CSS.lvb documentation>+lvb :: (MonadDOM m) => Double -> m CSSUnitValue+lvb value = liftDOM ((js_lvb (value)))++-- | <https://developer.mozilla.org/docs/Web/API/CSS/factory_functions_static MDN CSS.lvb documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/CSS/factory_functions_static MDN CSS.lvh documentation>+lvh :: (MonadDOM m) => Double -> m CSSUnitValue+lvh value = liftDOM ((js_lvh (value)))++-- | <https://developer.mozilla.org/docs/Web/API/CSS/factory_functions_static MDN CSS.lvh documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/CSS/factory_functions_static MDN CSS.lvi documentation>+lvi :: (MonadDOM m) => Double -> m CSSUnitValue+lvi value = liftDOM ((js_lvi (value)))++-- | <https://developer.mozilla.org/docs/Web/API/CSS/factory_functions_static MDN CSS.lvi documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/CSS/factory_functions_static MDN CSS.lvmax documentation>+lvmax :: (MonadDOM m) => Double -> m CSSUnitValue+lvmax value = liftDOM ((js_lvmax (value)))++-- | <https://developer.mozilla.org/docs/Web/API/CSS/factory_functions_static MDN CSS.lvmax documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/CSS/factory_functions_static MDN CSS.lvmin documentation>+lvmin :: (MonadDOM m) => Double -> m CSSUnitValue+lvmin value = liftDOM ((js_lvmin (value)))++-- | <https://developer.mozilla.org/docs/Web/API/CSS/factory_functions_static MDN CSS.lvmin documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/CSS/factory_functions_static MDN CSS.lvw documentation>+lvw :: (MonadDOM m) => Double -> m CSSUnitValue+lvw value = liftDOM ((js_lvw (value)))++-- | <https://developer.mozilla.org/docs/Web/API/CSS/factory_functions_static MDN CSS.lvw documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/CSS/factory_functions_static MDN CSS.mm documentation>+mm :: (MonadDOM m) => Double -> m CSSUnitValue+mm value = liftDOM ((js_mm (value)))++-- | <https://developer.mozilla.org/docs/Web/API/CSS/factory_functions_static MDN CSS.mm documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/CSS/factory_functions_static MDN CSS.ms documentation>+ms :: (MonadDOM m) => Double -> m CSSUnitValue+ms value = liftDOM ((js_ms (value)))++-- | <https://developer.mozilla.org/docs/Web/API/CSS/factory_functions_static MDN CSS.ms documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/CSS/factory_functions_static MDN CSS.number documentation>+number :: (MonadDOM m) => Double -> m CSSUnitValue+number value = liftDOM ((js_number (value)))++-- | <https://developer.mozilla.org/docs/Web/API/CSS/factory_functions_static MDN CSS.number documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/CSS/factory_functions_static MDN CSS.pc documentation>+pc :: (MonadDOM m) => Double -> m CSSUnitValue+pc value = liftDOM ((js_pc (value)))++-- | <https://developer.mozilla.org/docs/Web/API/CSS/factory_functions_static MDN CSS.pc documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/CSS/factory_functions_static MDN CSS.percent documentation>+percent :: (MonadDOM m) => Double -> m CSSUnitValue+percent value = liftDOM ((js_percent (value)))++-- | <https://developer.mozilla.org/docs/Web/API/CSS/factory_functions_static MDN CSS.percent documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/CSS/factory_functions_static MDN CSS.pt documentation>+pt :: (MonadDOM m) => Double -> m CSSUnitValue+pt value = liftDOM ((js_pt (value)))++-- | <https://developer.mozilla.org/docs/Web/API/CSS/factory_functions_static MDN CSS.pt documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/CSS/factory_functions_static MDN CSS.px documentation>+px :: (MonadDOM m) => Double -> m CSSUnitValue+px value = liftDOM ((js_px (value)))++-- | <https://developer.mozilla.org/docs/Web/API/CSS/factory_functions_static MDN CSS.px documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/CSS/factory_functions_static MDN CSS.rad documentation>+rad :: (MonadDOM m) => Double -> m CSSUnitValue+rad value = liftDOM ((js_rad (value)))++-- | <https://developer.mozilla.org/docs/Web/API/CSS/factory_functions_static MDN CSS.rad documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/CSS/factory_functions_static MDN CSS.rcap documentation>+rcap :: (MonadDOM m) => Double -> m CSSUnitValue+rcap value = liftDOM ((js_rcap (value)))++-- | <https://developer.mozilla.org/docs/Web/API/CSS/factory_functions_static MDN CSS.rcap documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/CSS/factory_functions_static MDN CSS.rch documentation>+rch :: (MonadDOM m) => Double -> m CSSUnitValue+rch value = liftDOM ((js_rch (value)))++-- | <https://developer.mozilla.org/docs/Web/API/CSS/factory_functions_static MDN CSS.rch documentation>+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 ()+-- | <https://developer.mozilla.org/docs/Web/API/CSS/registerProperty_static MDN CSS.registerProperty documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/CSS/factory_functions_static MDN CSS.rem documentation>+rem :: (MonadDOM m) => Double -> m CSSUnitValue+rem value = liftDOM ((js_rem (value)))++-- | <https://developer.mozilla.org/docs/Web/API/CSS/factory_functions_static MDN CSS.rem documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/CSS/factory_functions_static MDN CSS.rex documentation>+rex :: (MonadDOM m) => Double -> m CSSUnitValue+rex value = liftDOM ((js_rex (value)))++-- | <https://developer.mozilla.org/docs/Web/API/CSS/factory_functions_static MDN CSS.rex documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/CSS/factory_functions_static MDN CSS.ric documentation>+ric :: (MonadDOM m) => Double -> m CSSUnitValue+ric value = liftDOM ((js_ric (value)))++-- | <https://developer.mozilla.org/docs/Web/API/CSS/factory_functions_static MDN CSS.ric documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/CSS/factory_functions_static MDN CSS.rlh documentation>+rlh :: (MonadDOM m) => Double -> m CSSUnitValue+rlh value = liftDOM ((js_rlh (value)))++-- | <https://developer.mozilla.org/docs/Web/API/CSS/factory_functions_static MDN CSS.rlh documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/CSS/factory_functions_static MDN CSS.s documentation>+s :: (MonadDOM m) => Double -> m CSSUnitValue+s value = liftDOM ((js_s (value)))++-- | <https://developer.mozilla.org/docs/Web/API/CSS/factory_functions_static MDN CSS.s documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/CSS/supports_static MDN CSS.supports documentation>+supports2 :: (MonadDOM m, ToJSString property, ToJSString value) => property -> value -> m Bool+supports2 property value = liftDOM ((js_supports2 (toJSString property) (toJSString value)))++-- | <https://developer.mozilla.org/docs/Web/API/CSS/supports_static MDN CSS.supports documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/CSS/supports_static MDN CSS.supports documentation>+supports :: (MonadDOM m, ToJSString conditionText) => conditionText -> m Bool+supports conditionText = liftDOM ((js_supports (toJSString conditionText)))++-- | <https://developer.mozilla.org/docs/Web/API/CSS/supports_static MDN CSS.supports documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/CSS/factory_functions_static MDN CSS.svb documentation>+svb :: (MonadDOM m) => Double -> m CSSUnitValue+svb value = liftDOM ((js_svb (value)))++-- | <https://developer.mozilla.org/docs/Web/API/CSS/factory_functions_static MDN CSS.svb documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/CSS/factory_functions_static MDN CSS.svh documentation>+svh :: (MonadDOM m) => Double -> m CSSUnitValue+svh value = liftDOM ((js_svh (value)))++-- | <https://developer.mozilla.org/docs/Web/API/CSS/factory_functions_static MDN CSS.svh documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/CSS/factory_functions_static MDN CSS.svi documentation>+svi :: (MonadDOM m) => Double -> m CSSUnitValue+svi value = liftDOM ((js_svi (value)))++-- | <https://developer.mozilla.org/docs/Web/API/CSS/factory_functions_static MDN CSS.svi documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/CSS/factory_functions_static MDN CSS.svmax documentation>+svmax :: (MonadDOM m) => Double -> m CSSUnitValue+svmax value = liftDOM ((js_svmax (value)))++-- | <https://developer.mozilla.org/docs/Web/API/CSS/factory_functions_static MDN CSS.svmax documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/CSS/factory_functions_static MDN CSS.svmin documentation>+svmin :: (MonadDOM m) => Double -> m CSSUnitValue+svmin value = liftDOM ((js_svmin (value)))++-- | <https://developer.mozilla.org/docs/Web/API/CSS/factory_functions_static MDN CSS.svmin documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/CSS/factory_functions_static MDN CSS.svw documentation>+svw :: (MonadDOM m) => Double -> m CSSUnitValue+svw value = liftDOM ((js_svw (value)))++-- | <https://developer.mozilla.org/docs/Web/API/CSS/factory_functions_static MDN CSS.svw documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/CSS/factory_functions_static MDN CSS.turn documentation>+turn :: (MonadDOM m) => Double -> m CSSUnitValue+turn value = liftDOM ((js_turn (value)))++-- | <https://developer.mozilla.org/docs/Web/API/CSS/factory_functions_static MDN CSS.turn documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/CSS/factory_functions_static MDN CSS.vb documentation>+vb :: (MonadDOM m) => Double -> m CSSUnitValue+vb value = liftDOM ((js_vb (value)))++-- | <https://developer.mozilla.org/docs/Web/API/CSS/factory_functions_static MDN CSS.vb documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/CSS/factory_functions_static MDN CSS.vh documentation>+vh :: (MonadDOM m) => Double -> m CSSUnitValue+vh value = liftDOM ((js_vh (value)))++-- | <https://developer.mozilla.org/docs/Web/API/CSS/factory_functions_static MDN CSS.vh documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/CSS/factory_functions_static MDN CSS.vi documentation>+vi :: (MonadDOM m) => Double -> m CSSUnitValue+vi value = liftDOM ((js_vi (value)))++-- | <https://developer.mozilla.org/docs/Web/API/CSS/factory_functions_static MDN CSS.vi documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/CSS/factory_functions_static MDN CSS.vmax documentation>+vmax :: (MonadDOM m) => Double -> m CSSUnitValue+vmax value = liftDOM ((js_vmax (value)))++-- | <https://developer.mozilla.org/docs/Web/API/CSS/factory_functions_static MDN CSS.vmax documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/CSS/factory_functions_static MDN CSS.vmin documentation>+vmin :: (MonadDOM m) => Double -> m CSSUnitValue+vmin value = liftDOM ((js_vmin (value)))++-- | <https://developer.mozilla.org/docs/Web/API/CSS/factory_functions_static MDN CSS.vmin documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/CSS/factory_functions_static MDN CSS.vw documentation>+vw :: (MonadDOM m) => Double -> m CSSUnitValue+vw value = liftDOM ((js_vw (value)))++-- | <https://developer.mozilla.org/docs/Web/API/CSS/factory_functions_static MDN CSS.vw documentation>+vw_ :: (MonadDOM m) => Double -> m ()+vw_ value = liftDOM (void ((js_vw (value))))++foreign import javascript unsafe "(() => { return globalThis[\"CSS\"][\"highlights\"]; })"+ js_getHighlights :: IO HighlightRegistry+-- | <https://developer.mozilla.org/docs/Web/API/CSS/highlights_static MDN CSS.highlights documentation>+getHighlights :: (MonadDOM m) => m HighlightRegistry+getHighlights = liftDOM ((js_getHighlights))
@@ -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+-- | <https://developer.mozilla.org/docs/Web/API/CSSAnimation/animationName MDN CSSAnimation.animationName documentation>+getAnimationName :: (MonadDOM m, FromJSString result) => CSSAnimation -> m result+getAnimationName self = liftDOM ((fromJSString <$> (js_getAnimationName (self))))
@@ -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+-- | <https://developer.mozilla.org/docs/Web/API/CSSConditionRule/conditionText MDN CSSConditionRule.conditionText documentation>+getConditionText :: (MonadDOM m, IsCSSConditionRule self, FromJSString result) => self -> m result+getConditionText self = liftDOM ((fromJSString <$> (js_getConditionText ((Types.toCSSConditionRule self)))))
@@ -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+-- | <https://drafts.csswg.org/css-conditional-5/#dictdef-csscontainercondition CSSContainerCondition specification>+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 ()+-- | <https://drafts.csswg.org/css-conditional-5/#dom-csscontainercondition-name CSSContainerCondition.name specification>+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+-- | <https://drafts.csswg.org/css-conditional-5/#dom-csscontainercondition-name CSSContainerCondition.name specification>+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 ()+-- | <https://drafts.csswg.org/css-conditional-5/#dom-csscontainercondition-query CSSContainerCondition.query specification>+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+-- | <https://drafts.csswg.org/css-conditional-5/#dom-csscontainercondition-query CSSContainerCondition.query specification>+getQuery :: (MonadDOM m, FromJSString result) => CSSContainerCondition -> m result+getQuery self = liftDOM ((fromJSString <$> (js_getQuery (self))))
@@ -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+-- | <https://developer.mozilla.org/docs/Web/API/CSSContainerRule/containerName MDN CSSContainerRule.containerName documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/CSSContainerRule/containerQuery MDN CSSContainerRule.containerQuery documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/CSSContainerRule/conditions MDN CSSContainerRule.conditions documentation>+getConditions :: (MonadDOM m) => CSSContainerRule -> m [CSSContainerCondition]+getConditions self = liftDOM (((js_getConditions (self)) >>= fromJSValUnchecked))
@@ -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 ()+-- | <https://developer.mozilla.org/docs/Web/API/CSSCounterStyleRule/name MDN CSSCounterStyleRule.name documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/CSSCounterStyleRule/name MDN CSSCounterStyleRule.name documentation>+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 ()+-- | <https://developer.mozilla.org/docs/Web/API/CSSCounterStyleRule/system MDN CSSCounterStyleRule.system documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/CSSCounterStyleRule/system MDN CSSCounterStyleRule.system documentation>+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 ()+-- | <https://developer.mozilla.org/docs/Web/API/CSSCounterStyleRule/symbols MDN CSSCounterStyleRule.symbols documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/CSSCounterStyleRule/symbols MDN CSSCounterStyleRule.symbols documentation>+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 ()+-- | <https://developer.mozilla.org/docs/Web/API/CSSCounterStyleRule/additiveSymbols MDN CSSCounterStyleRule.additiveSymbols documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/CSSCounterStyleRule/additiveSymbols MDN CSSCounterStyleRule.additiveSymbols documentation>+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 ()+-- | <https://developer.mozilla.org/docs/Web/API/CSSCounterStyleRule/negative MDN CSSCounterStyleRule.negative documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/CSSCounterStyleRule/negative MDN CSSCounterStyleRule.negative documentation>+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 ()+-- | <https://developer.mozilla.org/docs/Web/API/CSSCounterStyleRule/prefix MDN CSSCounterStyleRule.prefix documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/CSSCounterStyleRule/prefix MDN CSSCounterStyleRule.prefix documentation>+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 ()+-- | <https://developer.mozilla.org/docs/Web/API/CSSCounterStyleRule/suffix MDN CSSCounterStyleRule.suffix documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/CSSCounterStyleRule/suffix MDN CSSCounterStyleRule.suffix documentation>+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 ()+-- | <https://developer.mozilla.org/docs/Web/API/CSSCounterStyleRule/range MDN CSSCounterStyleRule.range documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/CSSCounterStyleRule/range MDN CSSCounterStyleRule.range documentation>+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 ()+-- | <https://developer.mozilla.org/docs/Web/API/CSSCounterStyleRule/pad MDN CSSCounterStyleRule.pad documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/CSSCounterStyleRule/pad MDN CSSCounterStyleRule.pad documentation>+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 ()+-- | <https://developer.mozilla.org/docs/Web/API/CSSCounterStyleRule/speakAs MDN CSSCounterStyleRule.speakAs documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/CSSCounterStyleRule/speakAs MDN CSSCounterStyleRule.speakAs documentation>+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 ()+-- | <https://developer.mozilla.org/docs/Web/API/CSSCounterStyleRule/fallback MDN CSSCounterStyleRule.fallback documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/CSSCounterStyleRule/fallback MDN CSSCounterStyleRule.fallback documentation>+getFallback :: (MonadDOM m, FromJSString result) => CSSCounterStyleRule -> m result+getFallback self = liftDOM ((fromJSString <$> (js_getFallback (self))))
@@ -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 ()+-- | <https://drafts.csswg.org/css-fonts-5/#dom-cssfontfacedescriptors-src CSSFontFaceDescriptors.src specification>+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+-- | <https://drafts.csswg.org/css-fonts-5/#dom-cssfontfacedescriptors-src CSSFontFaceDescriptors.src specification>+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 ()+-- | <https://drafts.csswg.org/css-fonts-5/#dom-cssfontfacedescriptors-fontfamily CSSFontFaceDescriptors.fontFamily specification>+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+-- | <https://drafts.csswg.org/css-fonts-5/#dom-cssfontfacedescriptors-fontfamily CSSFontFaceDescriptors.fontFamily specification>+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 ()+-- | <https://drafts.csswg.org/css-fonts-5/#dom-cssfontfacedescriptors-fontstyle CSSFontFaceDescriptors.fontStyle specification>+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+-- | <https://drafts.csswg.org/css-fonts-5/#dom-cssfontfacedescriptors-fontstyle CSSFontFaceDescriptors.fontStyle specification>+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 ()+-- | <https://drafts.csswg.org/css-fonts-5/#dom-cssfontfacedescriptors-fontweight CSSFontFaceDescriptors.fontWeight specification>+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+-- | <https://drafts.csswg.org/css-fonts-5/#dom-cssfontfacedescriptors-fontweight CSSFontFaceDescriptors.fontWeight specification>+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 ()+-- | <https://drafts.csswg.org/css-fonts-5/#dom-cssfontfacedescriptors-fontstretch CSSFontFaceDescriptors.fontStretch specification>+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+-- | <https://drafts.csswg.org/css-fonts-5/#dom-cssfontfacedescriptors-fontstretch CSSFontFaceDescriptors.fontStretch specification>+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 ()+-- | <https://drafts.csswg.org/css-fonts-5/#dom-cssfontfacedescriptors-fontwidth CSSFontFaceDescriptors.fontWidth specification>+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+-- | <https://drafts.csswg.org/css-fonts-5/#dom-cssfontfacedescriptors-fontwidth CSSFontFaceDescriptors.fontWidth specification>+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 ()+-- | <https://drafts.csswg.org/css-fonts-5/#dom-cssfontfacedescriptors-sizeadjust CSSFontFaceDescriptors.sizeAdjust specification>+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+-- | <https://drafts.csswg.org/css-fonts-5/#dom-cssfontfacedescriptors-sizeadjust CSSFontFaceDescriptors.sizeAdjust specification>+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 ()+-- | <https://drafts.csswg.org/css-fonts-5/#dom-cssfontfacedescriptors-unicoderange CSSFontFaceDescriptors.unicodeRange specification>+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+-- | <https://drafts.csswg.org/css-fonts-5/#dom-cssfontfacedescriptors-unicoderange CSSFontFaceDescriptors.unicodeRange specification>+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 ()+-- | <https://drafts.csswg.org/css-fonts-5/#dom-cssfontfacedescriptors-fontfeaturesettings CSSFontFaceDescriptors.fontFeatureSettings specification>+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+-- | <https://drafts.csswg.org/css-fonts-5/#dom-cssfontfacedescriptors-fontfeaturesettings CSSFontFaceDescriptors.fontFeatureSettings specification>+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 ()+-- | <https://drafts.csswg.org/css-fonts-5/#dom-cssfontfacedescriptors-fontdisplay CSSFontFaceDescriptors.fontDisplay specification>+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+-- | <https://drafts.csswg.org/css-fonts-5/#dom-cssfontfacedescriptors-fontdisplay CSSFontFaceDescriptors.fontDisplay specification>+getFontDisplay :: (MonadDOM m, FromJSString result) => CSSFontFaceDescriptors -> m result+getFontDisplay self = liftDOM ((fromJSString <$> (js_getFontDisplay (self))))
@@ -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---- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSFontFaceLoadEvent Mozilla CSSFontFaceLoadEvent documentation> -newCSSFontFaceLoadEvent ::- (MonadIO m, ToJSString type') =>- type' -> Maybe CSSFontFaceLoadEventInit -> m CSSFontFaceLoadEvent-newCSSFontFaceLoadEvent type' eventInit- = liftIO- (js_newCSSFontFaceLoadEvent (toJSString type')- (maybeToOptional eventInit))- -foreign import javascript unsafe "(($1) => { return $1[\"fontface\"]; })" js_getFontface- :: CSSFontFaceLoadEvent -> IO (Nullable CSSFontFaceRule)---- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSFontFaceLoadEvent.fontface Mozilla CSSFontFaceLoadEvent.fontface documentation> -getFontface ::- (MonadIO m) => CSSFontFaceLoadEvent -> m (Maybe CSSFontFaceRule)-getFontface self- = liftIO (nullableToMaybe <$> (js_getFontface self))---- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSFontFaceLoadEvent.fontface Mozilla CSSFontFaceLoadEvent.fontface documentation> -getFontfaceUnsafe ::- (MonadIO m, HasCallStack) =>- CSSFontFaceLoadEvent -> m CSSFontFaceRule-getFontfaceUnsafe self- = liftIO- ((nullableToMaybe <$> (js_getFontface self)) >>=- maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSFontFaceLoadEvent.fontface Mozilla CSSFontFaceLoadEvent.fontface documentation> -getFontfaceUnchecked ::- (MonadIO m) => CSSFontFaceLoadEvent -> m CSSFontFaceRule-getFontfaceUnchecked self- = liftIO (fromJust . nullableToMaybe <$> (js_getFontface self))- -foreign import javascript unsafe "(($1) => { return $1[\"error\"]; })" js_getError ::- CSSFontFaceLoadEvent -> IO (Nullable DOMError)---- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSFontFaceLoadEvent.error Mozilla CSSFontFaceLoadEvent.error documentation> -getError ::- (MonadIO m) => CSSFontFaceLoadEvent -> m (Maybe DOMError)-getError self = liftIO (nullableToMaybe <$> (js_getError self))---- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSFontFaceLoadEvent.error Mozilla CSSFontFaceLoadEvent.error documentation> -getErrorUnsafe ::- (MonadIO m, HasCallStack) => CSSFontFaceLoadEvent -> m DOMError-getErrorUnsafe self- = liftIO- ((nullableToMaybe <$> (js_getError self)) >>=- maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSFontFaceLoadEvent.error Mozilla CSSFontFaceLoadEvent.error documentation> -getErrorUnchecked ::- (MonadIO m) => CSSFontFaceLoadEvent -> m DOMError-getErrorUnchecked self- = liftIO (fromJust . nullableToMaybe <$> (js_getError self))
@@ -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 --- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSFontFaceRule.style Mozilla CSSFontFaceRule.style documentation> -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+-- | <https://developer.mozilla.org/docs/Web/API/CSSFontFaceRule/style MDN CSSFontFaceRule.style documentation>+getStyle :: (MonadDOM m) => CSSFontFaceRule -> m CSSFontFaceDescriptors+getStyle self = liftDOM ((js_getStyle (self)))
@@ -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 ()+-- | <https://developer.mozilla.org/docs/Web/API/CSSFontFeatureValuesRule/fontFamily MDN CSSFontFeatureValuesRule.fontFamily documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/CSSFontFeatureValuesRule/fontFamily MDN CSSFontFeatureValuesRule.fontFamily documentation>+getFontFamily :: (MonadDOM m, FromJSString result) => CSSFontFeatureValuesRule -> m result+getFontFamily self = liftDOM ((fromJSString <$> (js_getFontFamily (self))))
@@ -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+-- | <https://developer.mozilla.org/docs/Web/API/CSSFontPaletteValuesRule/name MDN CSSFontPaletteValuesRule.name documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/CSSFontPaletteValuesRule/fontFamily MDN CSSFontPaletteValuesRule.fontFamily documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/CSSFontPaletteValuesRule/basePalette MDN CSSFontPaletteValuesRule.basePalette documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/CSSFontPaletteValuesRule/overrideColors MDN CSSFontPaletteValuesRule.overrideColors documentation>+getOverrideColors :: (MonadDOM m, FromJSString result) => CSSFontPaletteValuesRule -> m result+getOverrideColors self = liftDOM ((fromJSString <$> (js_getOverrideColors (self))))
@@ -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 ()+-- | <https://developer.mozilla.org/docs/Web/API/CSSGroupingRule/deleteRule MDN CSSGroupingRule.deleteRule documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/CSSGroupingRule/insertRule MDN CSSGroupingRule.insertRule documentation>+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'))++-- | <https://developer.mozilla.org/docs/Web/API/CSSGroupingRule/insertRule MDN CSSGroupingRule.insertRule documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/CSSGroupingRule/cssRules MDN CSSGroupingRule.cssRules documentation>+getCssRules :: (MonadDOM m, IsCSSGroupingRule self) => self -> m CSSRuleList+getCssRules self = liftDOM ((js_getCssRules ((Types.toCSSGroupingRule self))))
@@ -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+
@@ -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) --- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSImportRule.href Mozilla CSSImportRule.href documentation> -getHref ::- (MonadIO m, FromJSString result) =>- CSSImportRule -> m (Maybe result)-getHref self = liftIO (fromMaybeJSString <$> (js_getHref self))---- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSImportRule.href Mozilla CSSImportRule.href documentation> -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+-- | <https://developer.mozilla.org/docs/Web/API/CSSImportRule/href MDN CSSImportRule.href documentation>+getHref :: (MonadDOM m, FromJSString result) => CSSImportRule -> m result+getHref self = liftDOM ((fromJSString <$> (js_getHref (self)))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSImportRule.href Mozilla CSSImportRule.href documentation> -getHrefUnchecked ::- (MonadIO m, FromJSString result) => CSSImportRule -> m result-getHrefUnchecked self- = liftIO (fromJust . fromMaybeJSString <$> (js_getHref self))- -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+-- | <https://developer.mozilla.org/docs/Web/API/CSSImportRule/media MDN CSSImportRule.media documentation>+getMedia :: (MonadDOM m) => CSSImportRule -> m MediaList+getMedia self = liftDOM ((js_getMedia (self))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSImportRule.media Mozilla CSSImportRule.media documentation> -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+-- | <https://developer.mozilla.org/docs/Web/API/CSSImportRule/styleSheet MDN CSSImportRule.styleSheet documentation>+getStyleSheet :: (MonadDOM m) => CSSImportRule -> m (Maybe CSSStyleSheet)+getStyleSheet self = liftDOM (((js_getStyleSheet (self)) >>= fromJSValUnchecked)) --- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSImportRule.styleSheet Mozilla CSSImportRule.styleSheet documentation> -getStyleSheet :: (MonadIO m) => CSSImportRule -> m CSSStyleSheet-getStyleSheet self = liftIO (js_getStyleSheet self)+-- | <https://developer.mozilla.org/docs/Web/API/CSSImportRule/styleSheet MDN CSSImportRule.styleSheet documentation>+getStyleSheetUnsafe :: (MonadDOM m, HasCallStack) => CSSImportRule -> m CSSStyleSheet+getStyleSheetUnsafe self = liftDOM ((((js_getStyleSheet (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://developer.mozilla.org/docs/Web/API/CSSImportRule/styleSheet MDN CSSImportRule.styleSheet documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/CSSImportRule/layerName MDN CSSImportRule.layerName documentation>+getLayerName :: (MonadDOM m, FromJSString result) => CSSImportRule -> m (Maybe result)+getLayerName self = liftDOM (((fromMaybeJSString . Nullable) <$> (js_getLayerName (self))))++-- | <https://developer.mozilla.org/docs/Web/API/CSSImportRule/layerName MDN CSSImportRule.layerName documentation>+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))++-- | <https://developer.mozilla.org/docs/Web/API/CSSImportRule/layerName MDN CSSImportRule.layerName documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/CSSImportRule/supportsText MDN CSSImportRule.supportsText documentation>+getSupportsText :: (MonadDOM m, FromJSString result) => CSSImportRule -> m (Maybe result)+getSupportsText self = liftDOM (((fromMaybeJSString . Nullable) <$> (js_getSupportsText (self))))++-- | <https://developer.mozilla.org/docs/Web/API/CSSImportRule/supportsText MDN CSSImportRule.supportsText documentation>+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))++-- | <https://developer.mozilla.org/docs/Web/API/CSSImportRule/supportsText MDN CSSImportRule.supportsText documentation>+getSupportsTextUnchecked :: (MonadDOM m, FromJSString result) => CSSImportRule -> m result+getSupportsTextUnchecked self = liftDOM ((pFromJSVal <$> (js_getSupportsText (self))))
@@ -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 () --- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSKeyframeRule.keyText Mozilla CSSKeyframeRule.keyText documentation> -setKeyText ::- (MonadIO m, ToJSString val) => CSSKeyframeRule -> val -> m ()-setKeyText self val = liftIO (js_setKeyText self (toJSString val))- -foreign import javascript unsafe "(($1) => { return $1[\"keyText\"]; })" js_getKeyText ::- CSSKeyframeRule -> IO JSString+foreign import javascript safe "(($1, $2) => { $1[\"keyText\"] = $2; })"+ js_setKeyText :: CSSKeyframeRule -> JSString -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/CSSKeyframeRule/keyText MDN CSSKeyframeRule.keyText documentation>+setKeyText :: (MonadDOM m, ToJSString val) => CSSKeyframeRule -> val -> m ()+setKeyText self val = liftDOM (void ((js_setKeyText (self) (toJSString val)))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSKeyframeRule.keyText Mozilla CSSKeyframeRule.keyText documentation> -getKeyText ::- (MonadIO m, FromJSString result) => CSSKeyframeRule -> m result-getKeyText self = liftIO (fromJSString <$> (js_getKeyText self))- -foreign import javascript unsafe "(($1) => { return $1[\"style\"]; })" js_getStyle ::- CSSKeyframeRule -> IO CSSStyleDeclaration+foreign import javascript unsafe "(($1) => { return $1[\"keyText\"]; })"+ js_getKeyText :: CSSKeyframeRule -> IO JSString+-- | <https://developer.mozilla.org/docs/Web/API/CSSKeyframeRule/keyText MDN CSSKeyframeRule.keyText documentation>+getKeyText :: (MonadDOM m, FromJSString result) => CSSKeyframeRule -> m result+getKeyText self = liftDOM ((fromJSString <$> (js_getKeyText (self)))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSKeyframeRule.style Mozilla CSSKeyframeRule.style documentation> -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+-- | <https://developer.mozilla.org/docs/Web/API/CSSKeyframeRule/style MDN CSSKeyframeRule.style documentation>+getStyle :: (MonadDOM m) => CSSKeyframeRule -> m CSSStyleProperties+getStyle self = liftDOM ((js_getStyle (self)))
@@ -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 () --- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSKeyframesRule.insertRule Mozilla CSSKeyframesRule.insertRule documentation> -insertRule ::- (MonadIO m, ToJSString rule) => CSSKeyframesRule -> rule -> m ()-insertRule self rule- = liftIO (js_insertRule self (toJSString rule))- -foreign import javascript unsafe "(($1, $2) => { return $1[\"appendRule\"]($2); })"+foreign import javascript safe "(($1, $2) => { return $1[\"appendRule\"]($2); })" js_appendRule :: CSSKeyframesRule -> JSString -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/CSSKeyframesRule/appendRule MDN CSSKeyframesRule.appendRule documentation>+appendRule :: (MonadDOM m, ToJSString rule) => CSSKeyframesRule -> rule -> m ()+appendRule self rule = liftDOM (void ((js_appendRule (self) (toJSString rule)))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSKeyframesRule.appendRule Mozilla CSSKeyframesRule.appendRule documentation> -appendRule ::- (MonadIO m, ToJSString rule) => CSSKeyframesRule -> rule -> m ()-appendRule self rule- = liftIO (js_appendRule self (toJSString rule))- -foreign import javascript unsafe "(($1, $2) => { return $1[\"deleteRule\"]($2); })"+foreign import javascript safe "(($1, $2) => { return $1[\"deleteRule\"]($2); })" js_deleteRule :: CSSKeyframesRule -> JSString -> IO ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSKeyframesRule.deleteRule Mozilla CSSKeyframesRule.deleteRule documentation> -deleteRule ::- (MonadIO m, ToJSString key) => CSSKeyframesRule -> key -> m ()-deleteRule self key = liftIO (js_deleteRule self (toJSString key))- -foreign import javascript unsafe "(($1, $2) => { return $1[\"findRule\"]($2); })" js_findRule- :: CSSKeyframesRule -> JSString -> IO (Nullable CSSKeyframeRule)---- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSKeyframesRule.findRule Mozilla CSSKeyframesRule.findRule documentation> -findRule ::- (MonadIO m, ToJSString key) =>- CSSKeyframesRule -> key -> m (Maybe CSSKeyframeRule)-findRule self key- = liftIO (nullableToMaybe <$> (js_findRule self (toJSString key)))+-- | <https://developer.mozilla.org/docs/Web/API/CSSKeyframesRule/deleteRule MDN CSSKeyframesRule.deleteRule documentation>+deleteRule :: (MonadDOM m, ToJSString select) => CSSKeyframesRule -> select -> m ()+deleteRule self select = liftDOM (void ((js_deleteRule (self) (toJSString select)))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSKeyframesRule.findRule Mozilla CSSKeyframesRule.findRule documentation> -findRule_ ::- (MonadIO m, ToJSString key) => CSSKeyframesRule -> key -> m ()-findRule_ self key- = liftIO (void (js_findRule self (toJSString key)))+foreign import javascript safe "(($1, $2) => { return $1[\"findRule\"]($2); })"+ js_findRule :: CSSKeyframesRule -> JSString -> IO JSVal+-- | <https://developer.mozilla.org/docs/Web/API/CSSKeyframesRule/findRule MDN CSSKeyframesRule.findRule documentation>+findRule :: (MonadDOM m, ToJSString select) => CSSKeyframesRule -> select -> m (Maybe CSSKeyframeRule)+findRule self select = liftDOM (((js_findRule (self) (toJSString select)) >>= fromJSValUnchecked)) --- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSKeyframesRule.findRule Mozilla CSSKeyframesRule.findRule documentation> -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)+-- | <https://developer.mozilla.org/docs/Web/API/CSSKeyframesRule/findRule MDN CSSKeyframesRule.findRule documentation>+findRule_ :: (MonadDOM m, ToJSString select) => CSSKeyframesRule -> select -> m ()+findRule_ self select = liftDOM (void ((js_findRule (self) (toJSString select)))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSKeyframesRule.findRule Mozilla CSSKeyframesRule.findRule documentation> -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+-- | <https://developer.mozilla.org/docs/Web/API/CSSKeyframesRule/findRule MDN CSSKeyframesRule.findRule documentation>+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)) --- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSKeyframesRule.get Mozilla CSSKeyframesRule.get documentation> -get :: (MonadIO m) => CSSKeyframesRule -> Word -> m CSSKeyframeRule-get self index = liftIO (js_get self index)+-- | <https://developer.mozilla.org/docs/Web/API/CSSKeyframesRule/findRule MDN CSSKeyframesRule.findRule documentation>+findRuleUnchecked :: (MonadDOM m, ToJSString select) => CSSKeyframesRule -> select -> m CSSKeyframeRule+findRuleUnchecked self select = liftDOM ((pFromJSVal <$> (js_findRule (self) (toJSString select)))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSKeyframesRule.get Mozilla CSSKeyframesRule.get documentation> -get_ :: (MonadIO m) => CSSKeyframesRule -> Word -> m ()-get_ self index = liftIO (void (js_get self index))- -foreign import javascript unsafe "(($1, $2) => { $1[\"name\"] = $2; })" js_setName ::- CSSKeyframesRule -> JSString -> IO ()+foreign import javascript safe "(($1, $2) => { $1[\"name\"] = $2; })"+ js_setName :: CSSKeyframesRule -> JSString -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/CSSKeyframesRule/name MDN CSSKeyframesRule.name documentation>+setName :: (MonadDOM m, ToJSString val) => CSSKeyframesRule -> val -> m ()+setName self val = liftDOM (void ((js_setName (self) (toJSString val)))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSKeyframesRule.name Mozilla CSSKeyframesRule.name documentation> -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+-- | <https://developer.mozilla.org/docs/Web/API/CSSKeyframesRule/name MDN CSSKeyframesRule.name documentation>+getName :: (MonadDOM m, FromJSString result) => CSSKeyframesRule -> m result+getName self = liftDOM ((fromJSString <$> (js_getName (self)))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSKeyframesRule.name Mozilla CSSKeyframesRule.name documentation> -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+-- | <https://developer.mozilla.org/docs/Web/API/CSSKeyframesRule/cssRules MDN CSSKeyframesRule.cssRules documentation>+getCssRules :: (MonadDOM m) => CSSKeyframesRule -> m CSSRuleList+getCssRules self = liftDOM ((js_getCssRules (self))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSKeyframesRule.cssRules Mozilla CSSKeyframesRule.cssRules documentation> -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+-- | <https://developer.mozilla.org/docs/Web/API/CSSKeyframesRule/length MDN CSSKeyframesRule.length documentation>+getLength :: (MonadDOM m) => CSSKeyframesRule -> m Word+getLength self = liftDOM ((js_getLength (self)))
@@ -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+-- | <https://developer.mozilla.org/docs/Web/API/CSSKeywordValue/CSSKeywordValue MDN CSSKeywordValue. documentation>+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 ()+-- | <https://developer.mozilla.org/docs/Web/API/CSSKeywordValue/value MDN CSSKeywordValue.value documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/CSSKeywordValue/value MDN CSSKeywordValue.value documentation>+getValue :: (MonadDOM m, FromJSString result) => CSSKeywordValue -> m result+getValue self = liftDOM ((fromJSString <$> (js_getValue (self))))
@@ -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+-- | <https://developer.mozilla.org/docs/Web/API/CSSLayerBlockRule/name MDN CSSLayerBlockRule.name documentation>+getName :: (MonadDOM m, FromJSString result) => CSSLayerBlockRule -> m result+getName self = liftDOM ((fromJSString <$> (js_getName (self))))
@@ -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+-- | <https://developer.mozilla.org/docs/Web/API/CSSLayerStatementRule/nameList MDN CSSLayerStatementRule.nameList documentation>+getNameList :: (MonadDOM m, FromJSString result) => CSSLayerStatementRule -> m [result]+getNameList self = liftDOM (((js_getNameList (self)) >>= fromJSValUnchecked))
@@ -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+-- | <https://developer.mozilla.org/docs/Web/API/CSSMathClamp/CSSMathClamp MDN CSSMathClamp. documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/CSSMathClamp/lower MDN CSSMathClamp.lower documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/CSSMathClamp/value MDN CSSMathClamp.value documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/CSSMathClamp/upper MDN CSSMathClamp.upper documentation>+getUpper :: (MonadDOM m) => CSSMathClamp -> m CSSNumericValue+getUpper self = liftDOM ((js_getUpper (self)))
@@ -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+-- | <https://developer.mozilla.org/docs/Web/API/CSSMathInvert/CSSMathInvert MDN CSSMathInvert. documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/CSSMathInvert/value MDN CSSMathInvert.value documentation>+getValue :: (MonadDOM m) => CSSMathInvert -> m CSSNumericValue+getValue self = liftDOM ((js_getValue (self)))
@@ -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+-- | <https://developer.mozilla.org/docs/Web/API/CSSMathMax/values MDN CSSMathMax.values documentation>+getValues :: (MonadDOM m) => CSSMathMax -> m CSSNumericArray+getValues self = liftDOM ((js_getValues (self)))
@@ -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+-- | <https://developer.mozilla.org/docs/Web/API/CSSMathMin/values MDN CSSMathMin.values documentation>+getValues :: (MonadDOM m) => CSSMathMin -> m CSSNumericArray+getValues self = liftDOM ((js_getValues (self)))
@@ -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+-- | <https://developer.mozilla.org/docs/Web/API/CSSMathNegate/CSSMathNegate MDN CSSMathNegate. documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/CSSMathNegate/value MDN CSSMathNegate.value documentation>+getValue :: (MonadDOM m) => CSSMathNegate -> m CSSNumericValue+getValue self = liftDOM ((js_getValue (self)))
@@ -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+-- | <https://developer.mozilla.org/docs/Web/API/CSSMathProduct/values MDN CSSMathProduct.values documentation>+getValues :: (MonadDOM m) => CSSMathProduct -> m CSSNumericArray+getValues self = liftDOM ((js_getValues (self)))
@@ -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+-- | <https://developer.mozilla.org/docs/Web/API/CSSMathSum/values MDN CSSMathSum.values documentation>+getValues :: (MonadDOM m) => CSSMathSum -> m CSSNumericArray+getValues self = liftDOM ((js_getValues (self)))
@@ -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+-- | <https://developer.mozilla.org/docs/Web/API/CSSMathValue/operator MDN CSSMathValue.operator documentation>+getOperator :: (MonadDOM m, IsCSSMathValue self) => self -> m CSSMathOperator+getOperator self = liftDOM (((js_getOperator ((Types.toCSSMathValue self))) >>= fromJSValUnchecked))
@@ -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+-- | <https://developer.mozilla.org/docs/Web/API/CSSMatrixComponent/CSSMatrixComponent MDN CSSMatrixComponent. documentation>+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 ()+-- | <https://developer.mozilla.org/docs/Web/API/CSSMatrixComponent/matrix MDN CSSMatrixComponent.matrix documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/CSSMatrixComponent/matrix MDN CSSMatrixComponent.matrix documentation>+getMatrix :: (MonadDOM m) => CSSMatrixComponent -> m DOMMatrix+getMatrix self = liftDOM ((js_getMatrix (self)))
@@ -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+-- | <https://drafts.css-houdini.org/css-typed-om-1/#dictdef-cssmatrixcomponentoptions CSSMatrixComponentOptions specification>+newCSSMatrixComponentOptions :: (MonadDOM m) => m CSSMatrixComponentOptions+newCSSMatrixComponentOptions = liftDOM ((js_newCSSMatrixComponentOptions))++foreign import javascript safe "(($1, $2) => { $1[\"is2D\"] = $2; })"+ js_setIs2D :: CSSMatrixComponentOptions -> Bool -> IO ()+-- | <https://drafts.css-houdini.org/css-typed-om-1/#dom-cssmatrixcomponentoptions-is2d CSSMatrixComponentOptions.is2D specification>+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+-- | <https://drafts.css-houdini.org/css-typed-om-1/#dom-cssmatrixcomponentoptions-is2d CSSMatrixComponentOptions.is2D specification>+getIs2D :: (MonadDOM m) => CSSMatrixComponentOptions -> m (Maybe Bool)+getIs2D self = liftDOM (((js_getIs2D (self)) >>= fromJSValUnchecked))++-- | <https://drafts.css-houdini.org/css-typed-om-1/#dom-cssmatrixcomponentoptions-is2d CSSMatrixComponentOptions.is2D specification>+getIs2DUnsafe :: (MonadDOM m, HasCallStack) => CSSMatrixComponentOptions -> m Bool+getIs2DUnsafe self = liftDOM ((((js_getIs2D (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://drafts.css-houdini.org/css-typed-om-1/#dom-cssmatrixcomponentoptions-is2d CSSMatrixComponentOptions.is2D specification>+getIs2DUnchecked :: (MonadDOM m) => CSSMatrixComponentOptions -> m Bool+getIs2DUnchecked self = liftDOM ((pFromJSVal <$> (js_getIs2D (self))))
@@ -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 --- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSMediaRule.insertRule Mozilla CSSMediaRule.insertRule documentation> -insertRule ::- (MonadIO m, ToJSString rule) =>- CSSMediaRule -> Maybe rule -> Maybe Word -> m Word-insertRule self rule index- = liftIO- (js_insertRule self (toOptionalJSString rule)- (maybeToOptional index))---- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSMediaRule.insertRule Mozilla CSSMediaRule.insertRule documentation> -insertRule_ ::- (MonadIO m, ToJSString rule) =>- CSSMediaRule -> 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 ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSMediaRule.deleteRule Mozilla CSSMediaRule.deleteRule documentation> -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---- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSMediaRule.media Mozilla CSSMediaRule.media documentation> -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---- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSMediaRule.cssRules Mozilla CSSMediaRule.cssRules documentation> -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+-- | <https://developer.mozilla.org/docs/Web/API/CSSMediaRule/media MDN CSSMediaRule.media documentation>+getMedia :: (MonadDOM m) => CSSMediaRule -> m MediaList+getMedia self = liftDOM ((js_getMedia (self)))
@@ -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---- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSNamespaceRule.namespaceURI Mozilla CSSNamespaceRule.namespaceURI documentation> -getNamespaceURI ::- (MonadIO m, FromJSString result) => CSSNamespaceRule -> m result-getNamespaceURI self- = liftIO (fromJSString <$> (js_getNamespaceURI self))- -foreign import javascript unsafe "(($1) => { return $1[\"prefix\"]; })" js_getPrefix ::- CSSNamespaceRule -> IO JSString+-- | <https://developer.mozilla.org/docs/Web/API/CSSNamespaceRule/namespaceURI MDN CSSNamespaceRule.namespaceURI documentation>+getNamespaceURI :: (MonadDOM m, FromJSString result) => CSSNamespaceRule -> m result+getNamespaceURI self = liftDOM ((fromJSString <$> (js_getNamespaceURI (self)))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSNamespaceRule.prefix Mozilla CSSNamespaceRule.prefix documentation> -getPrefix ::- (MonadIO m, FromJSString result) => CSSNamespaceRule -> m result-getPrefix self = liftIO (fromJSString <$> (js_getPrefix self))+foreign import javascript unsafe "(($1) => { return $1[\"prefix\"]; })"+ js_getPrefix :: CSSNamespaceRule -> IO JSString+-- | <https://developer.mozilla.org/docs/Web/API/CSSNamespaceRule/prefix MDN CSSNamespaceRule.prefix documentation>+getPrefix :: (MonadDOM m, FromJSString result) => CSSNamespaceRule -> m result+getPrefix self = liftDOM ((fromJSString <$> (js_getPrefix (self))))
@@ -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+-- | <https://developer.mozilla.org/docs/Web/API/CSSNestedDeclarations/style MDN CSSNestedDeclarations.style documentation>+getStyle :: (MonadDOM m) => CSSNestedDeclarations -> m CSSStyleProperties+getStyle self = liftDOM ((js_getStyle (self)))
@@ -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+-- | <https://developer.mozilla.org/docs/Web/API/CSSNumericArray/length MDN CSSNumericArray.length documentation>+getLength :: (MonadDOM m) => CSSNumericArray -> m Word+getLength self = liftDOM ((js_getLength (self)))
@@ -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+-- | <https://drafts.css-houdini.org/css-typed-om-1/#dictdef-cssnumerictype CSSNumericType specification>+newCSSNumericType :: (MonadDOM m) => m CSSNumericType+newCSSNumericType = liftDOM ((js_newCSSNumericType))++foreign import javascript safe "(($1, $2) => { $1[\"length\"] = $2; })"+ js_setLength :: CSSNumericType -> Int -> IO ()+-- | <https://drafts.css-houdini.org/css-typed-om-1/#dom-cssnumerictype-length CSSNumericType.length specification>+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+-- | <https://drafts.css-houdini.org/css-typed-om-1/#dom-cssnumerictype-length CSSNumericType.length specification>+getLength :: (MonadDOM m) => CSSNumericType -> m (Maybe Int)+getLength self = liftDOM (((js_getLength (self)) >>= fromJSValUnchecked))++-- | <https://drafts.css-houdini.org/css-typed-om-1/#dom-cssnumerictype-length CSSNumericType.length specification>+getLengthUnsafe :: (MonadDOM m, HasCallStack) => CSSNumericType -> m Int+getLengthUnsafe self = liftDOM ((((js_getLength (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://drafts.css-houdini.org/css-typed-om-1/#dom-cssnumerictype-length CSSNumericType.length specification>+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 ()+-- | <https://drafts.css-houdini.org/css-typed-om-1/#dom-cssnumerictype-angle CSSNumericType.angle specification>+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+-- | <https://drafts.css-houdini.org/css-typed-om-1/#dom-cssnumerictype-angle CSSNumericType.angle specification>+getAngle :: (MonadDOM m) => CSSNumericType -> m (Maybe Int)+getAngle self = liftDOM (((js_getAngle (self)) >>= fromJSValUnchecked))++-- | <https://drafts.css-houdini.org/css-typed-om-1/#dom-cssnumerictype-angle CSSNumericType.angle specification>+getAngleUnsafe :: (MonadDOM m, HasCallStack) => CSSNumericType -> m Int+getAngleUnsafe self = liftDOM ((((js_getAngle (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://drafts.css-houdini.org/css-typed-om-1/#dom-cssnumerictype-angle CSSNumericType.angle specification>+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 ()+-- | <https://drafts.css-houdini.org/css-typed-om-1/#dom-cssnumerictype-time CSSNumericType.time specification>+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+-- | <https://drafts.css-houdini.org/css-typed-om-1/#dom-cssnumerictype-time CSSNumericType.time specification>+getTime :: (MonadDOM m) => CSSNumericType -> m (Maybe Int)+getTime self = liftDOM (((js_getTime (self)) >>= fromJSValUnchecked))++-- | <https://drafts.css-houdini.org/css-typed-om-1/#dom-cssnumerictype-time CSSNumericType.time specification>+getTimeUnsafe :: (MonadDOM m, HasCallStack) => CSSNumericType -> m Int+getTimeUnsafe self = liftDOM ((((js_getTime (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://drafts.css-houdini.org/css-typed-om-1/#dom-cssnumerictype-time CSSNumericType.time specification>+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 ()+-- | <https://drafts.css-houdini.org/css-typed-om-1/#dom-cssnumerictype-frequency CSSNumericType.frequency specification>+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+-- | <https://drafts.css-houdini.org/css-typed-om-1/#dom-cssnumerictype-frequency CSSNumericType.frequency specification>+getFrequency :: (MonadDOM m) => CSSNumericType -> m (Maybe Int)+getFrequency self = liftDOM (((js_getFrequency (self)) >>= fromJSValUnchecked))++-- | <https://drafts.css-houdini.org/css-typed-om-1/#dom-cssnumerictype-frequency CSSNumericType.frequency specification>+getFrequencyUnsafe :: (MonadDOM m, HasCallStack) => CSSNumericType -> m Int+getFrequencyUnsafe self = liftDOM ((((js_getFrequency (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://drafts.css-houdini.org/css-typed-om-1/#dom-cssnumerictype-frequency CSSNumericType.frequency specification>+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 ()+-- | <https://drafts.css-houdini.org/css-typed-om-1/#dom-cssnumerictype-resolution CSSNumericType.resolution specification>+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+-- | <https://drafts.css-houdini.org/css-typed-om-1/#dom-cssnumerictype-resolution CSSNumericType.resolution specification>+getResolution :: (MonadDOM m) => CSSNumericType -> m (Maybe Int)+getResolution self = liftDOM (((js_getResolution (self)) >>= fromJSValUnchecked))++-- | <https://drafts.css-houdini.org/css-typed-om-1/#dom-cssnumerictype-resolution CSSNumericType.resolution specification>+getResolutionUnsafe :: (MonadDOM m, HasCallStack) => CSSNumericType -> m Int+getResolutionUnsafe self = liftDOM ((((js_getResolution (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://drafts.css-houdini.org/css-typed-om-1/#dom-cssnumerictype-resolution CSSNumericType.resolution specification>+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 ()+-- | <https://drafts.css-houdini.org/css-typed-om-1/#dom-cssnumerictype-flex CSSNumericType.flex specification>+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+-- | <https://drafts.css-houdini.org/css-typed-om-1/#dom-cssnumerictype-flex CSSNumericType.flex specification>+getFlex :: (MonadDOM m) => CSSNumericType -> m (Maybe Int)+getFlex self = liftDOM (((js_getFlex (self)) >>= fromJSValUnchecked))++-- | <https://drafts.css-houdini.org/css-typed-om-1/#dom-cssnumerictype-flex CSSNumericType.flex specification>+getFlexUnsafe :: (MonadDOM m, HasCallStack) => CSSNumericType -> m Int+getFlexUnsafe self = liftDOM ((((js_getFlex (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://drafts.css-houdini.org/css-typed-om-1/#dom-cssnumerictype-flex CSSNumericType.flex specification>+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 ()+-- | <https://drafts.css-houdini.org/css-typed-om-1/#dom-cssnumerictype-percent CSSNumericType.percent specification>+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+-- | <https://drafts.css-houdini.org/css-typed-om-1/#dom-cssnumerictype-percent CSSNumericType.percent specification>+getPercent :: (MonadDOM m) => CSSNumericType -> m (Maybe Int)+getPercent self = liftDOM (((js_getPercent (self)) >>= fromJSValUnchecked))++-- | <https://drafts.css-houdini.org/css-typed-om-1/#dom-cssnumerictype-percent CSSNumericType.percent specification>+getPercentUnsafe :: (MonadDOM m, HasCallStack) => CSSNumericType -> m Int+getPercentUnsafe self = liftDOM ((((js_getPercent (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://drafts.css-houdini.org/css-typed-om-1/#dom-cssnumerictype-percent CSSNumericType.percent specification>+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 ()+-- | <https://drafts.css-houdini.org/css-typed-om-1/#dom-cssnumerictype-percenthint CSSNumericType.percentHint specification>+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+-- | <https://drafts.css-houdini.org/css-typed-om-1/#dom-cssnumerictype-percenthint CSSNumericType.percentHint specification>+getPercentHint :: (MonadDOM m) => CSSNumericType -> m (Maybe CSSNumericBaseType)+getPercentHint self = liftDOM (((js_getPercentHint (self)) >>= fromJSValUnchecked))++-- | <https://drafts.css-houdini.org/css-typed-om-1/#dom-cssnumerictype-percenthint CSSNumericType.percentHint specification>+getPercentHintUnsafe :: (MonadDOM m, HasCallStack) => CSSNumericType -> m CSSNumericBaseType+getPercentHintUnsafe self = liftDOM ((((js_getPercentHint (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://drafts.css-houdini.org/css-typed-om-1/#dom-cssnumerictype-percenthint CSSNumericType.percentHint specification>+getPercentHintUnchecked :: (MonadDOM m) => CSSNumericType -> m CSSNumericBaseType+getPercentHintUnchecked self = liftDOM ((pFromJSVal <$> (js_getPercentHint (self))))
@@ -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+-- | <https://developer.mozilla.org/docs/Web/API/CSSNumericValue/add MDN CSSNumericValue.add documentation>+add :: (MonadDOM m, IsCSSNumericValue self, IsCSSNumberish values) => self -> [values] -> m CSSNumericValue+add self values = liftDOM (((toJSVal values) >>= \a2' -> js_add ((Types.toCSSNumericValue self)) a2'))++-- | <https://developer.mozilla.org/docs/Web/API/CSSNumericValue/add MDN CSSNumericValue.add documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/CSSNumericValue/div MDN CSSNumericValue.div documentation>+div :: (MonadDOM m, IsCSSNumericValue self, IsCSSNumberish values) => self -> [values] -> m CSSNumericValue+div self values = liftDOM (((toJSVal values) >>= \a2' -> js_div ((Types.toCSSNumericValue self)) a2'))++-- | <https://developer.mozilla.org/docs/Web/API/CSSNumericValue/div MDN CSSNumericValue.div documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/CSSNumericValue/equals MDN CSSNumericValue.equals documentation>+equals :: (MonadDOM m, IsCSSNumericValue self, IsCSSNumberish value) => self -> [value] -> m Bool+equals self value = liftDOM (((toJSVal value) >>= \a2' -> js_equals ((Types.toCSSNumericValue self)) a2'))++-- | <https://developer.mozilla.org/docs/Web/API/CSSNumericValue/equals MDN CSSNumericValue.equals documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/CSSNumericValue/max MDN CSSNumericValue.max documentation>+max :: (MonadDOM m, IsCSSNumericValue self, IsCSSNumberish values) => self -> [values] -> m CSSNumericValue+max self values = liftDOM (((toJSVal values) >>= \a2' -> js_max ((Types.toCSSNumericValue self)) a2'))++-- | <https://developer.mozilla.org/docs/Web/API/CSSNumericValue/max MDN CSSNumericValue.max documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/CSSNumericValue/min MDN CSSNumericValue.min documentation>+min :: (MonadDOM m, IsCSSNumericValue self, IsCSSNumberish values) => self -> [values] -> m CSSNumericValue+min self values = liftDOM (((toJSVal values) >>= \a2' -> js_min ((Types.toCSSNumericValue self)) a2'))++-- | <https://developer.mozilla.org/docs/Web/API/CSSNumericValue/min MDN CSSNumericValue.min documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/CSSNumericValue/mul MDN CSSNumericValue.mul documentation>+mul :: (MonadDOM m, IsCSSNumericValue self, IsCSSNumberish values) => self -> [values] -> m CSSNumericValue+mul self values = liftDOM (((toJSVal values) >>= \a2' -> js_mul ((Types.toCSSNumericValue self)) a2'))++-- | <https://developer.mozilla.org/docs/Web/API/CSSNumericValue/mul MDN CSSNumericValue.mul documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/CSSNumericValue/sub MDN CSSNumericValue.sub documentation>+sub :: (MonadDOM m, IsCSSNumericValue self, IsCSSNumberish values) => self -> [values] -> m CSSNumericValue+sub self values = liftDOM (((toJSVal values) >>= \a2' -> js_sub ((Types.toCSSNumericValue self)) a2'))++-- | <https://developer.mozilla.org/docs/Web/API/CSSNumericValue/sub MDN CSSNumericValue.sub documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/CSSNumericValue/to MDN CSSNumericValue.to documentation>+to :: (MonadDOM m, IsCSSNumericValue self, ToJSString unit) => self -> unit -> m CSSUnitValue+to self unit = liftDOM ((js_to ((Types.toCSSNumericValue self)) (toJSString unit)))++-- | <https://developer.mozilla.org/docs/Web/API/CSSNumericValue/to MDN CSSNumericValue.to documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/CSSNumericValue/toSum MDN CSSNumericValue.toSum documentation>+toSum :: (MonadDOM m, IsCSSNumericValue self, ToJSString units) => self -> [units] -> m CSSMathSum+toSum self units = liftDOM (((toJSVal units) >>= \a2' -> js_toSum ((Types.toCSSNumericValue self)) a2'))++-- | <https://developer.mozilla.org/docs/Web/API/CSSNumericValue/toSum MDN CSSNumericValue.toSum documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/CSSNumericValue/type MDN CSSNumericValue.type documentation>+type' :: (MonadDOM m, IsCSSNumericValue self) => self -> m CSSNumericType+type' self = liftDOM ((js_type' ((Types.toCSSNumericValue self))))++-- | <https://developer.mozilla.org/docs/Web/API/CSSNumericValue/type MDN CSSNumericValue.type documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/CSSNumericValue/parse_static MDN CSSNumericValue.parse documentation>+parse :: (MonadDOM m, ToJSString cssText) => cssText -> m CSSNumericValue+parse cssText = liftDOM ((js_parse (toJSString cssText)))++-- | <https://developer.mozilla.org/docs/Web/API/CSSNumericValue/parse_static MDN CSSNumericValue.parse documentation>+parse_ :: (MonadDOM m, ToJSString cssText) => cssText -> m ()+parse_ cssText = liftDOM (void ((js_parse (toJSString cssText))))
@@ -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 ()+-- | <https://developer.mozilla.org/docs/Web/API/CSSPageDescriptors#margin MDN CSSPageDescriptors.margin documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/CSSPageDescriptors#margin MDN CSSPageDescriptors.margin documentation>+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 ()+-- | <https://developer.mozilla.org/docs/Web/API/CSSPageDescriptors#margintop MDN CSSPageDescriptors.marginTop documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/CSSPageDescriptors#margintop MDN CSSPageDescriptors.marginTop documentation>+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 ()+-- | <https://developer.mozilla.org/docs/Web/API/CSSPageDescriptors#marginright MDN CSSPageDescriptors.marginRight documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/CSSPageDescriptors#marginright MDN CSSPageDescriptors.marginRight documentation>+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 ()+-- | <https://developer.mozilla.org/docs/Web/API/CSSPageDescriptors#marginbottom MDN CSSPageDescriptors.marginBottom documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/CSSPageDescriptors#marginbottom MDN CSSPageDescriptors.marginBottom documentation>+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 ()+-- | <https://developer.mozilla.org/docs/Web/API/CSSPageDescriptors#marginleft MDN CSSPageDescriptors.marginLeft documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/CSSPageDescriptors#marginleft MDN CSSPageDescriptors.marginLeft documentation>+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 ()+-- | <https://developer.mozilla.org/docs/Web/API/CSSPageDescriptors#size MDN CSSPageDescriptors.size documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/CSSPageDescriptors#size MDN CSSPageDescriptors.size documentation>+getSize :: (MonadDOM m, FromJSString result) => CSSPageDescriptors -> m result+getSize self = liftDOM ((fromJSString <$> (js_getSize (self))))
@@ -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 () --- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSPageRule.selectorText Mozilla CSSPageRule.selectorText documentation> -setSelectorText ::- (MonadIO m, ToJSString val) => CSSPageRule -> Maybe val -> m ()-setSelectorText self val- = liftIO (js_setSelectorText self (toOptionalJSString val))- -foreign import javascript unsafe "(($1) => { return $1[\"selectorText\"]; })"- js_getSelectorText :: CSSPageRule -> IO (Nullable JSString)---- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSPageRule.selectorText Mozilla CSSPageRule.selectorText documentation> -getSelectorText ::- (MonadIO m, FromJSString result) => CSSPageRule -> m (Maybe result)-getSelectorText self- = liftIO (fromMaybeJSString <$> (js_getSelectorText self))---- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSPageRule.selectorText Mozilla CSSPageRule.selectorText documentation> -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 ()+-- | <https://developer.mozilla.org/docs/Web/API/CSSPageRule/selectorText MDN CSSPageRule.selectorText documentation>+setSelectorText :: (MonadDOM m, ToJSString val) => CSSPageRule -> val -> m ()+setSelectorText self val = liftDOM (void ((js_setSelectorText (self) (toJSString val)))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSPageRule.selectorText Mozilla CSSPageRule.selectorText documentation> -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+-- | <https://developer.mozilla.org/docs/Web/API/CSSPageRule/selectorText MDN CSSPageRule.selectorText documentation>+getSelectorText :: (MonadDOM m, FromJSString result) => CSSPageRule -> m result+getSelectorText self = liftDOM ((fromJSString <$> (js_getSelectorText (self)))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSPageRule.style Mozilla CSSPageRule.style documentation> -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+-- | <https://developer.mozilla.org/docs/Web/API/CSSPageRule/style MDN CSSPageRule.style documentation>+getStyle :: (MonadDOM m) => CSSPageRule -> m CSSPageDescriptors+getStyle self = liftDOM ((js_getStyle (self)))
@@ -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+-- | <https://developer.mozilla.org/docs/Web/API/CSSPerspective/CSSPerspective MDN CSSPerspective. documentation>+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 ()+-- | <https://developer.mozilla.org/docs/Web/API/CSSPerspective/length MDN CSSPerspective.length documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/CSSPerspective/length MDN CSSPerspective.length documentation>+getLength :: (MonadDOM m) => CSSPerspective -> m CSSPerspectiveValue+getLength self = liftDOM ((js_getLength (self)))
@@ -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 ()+-- | <https://developer.mozilla.org/docs/Web/API/CSSPositionTryDescriptors#instance_properties MDN CSSPositionTryDescriptors.margin documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/CSSPositionTryDescriptors#instance_properties MDN CSSPositionTryDescriptors.margin documentation>+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 ()+-- | <https://developer.mozilla.org/docs/Web/API/CSSPositionTryDescriptors#instance_properties MDN CSSPositionTryDescriptors.marginTop documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/CSSPositionTryDescriptors#instance_properties MDN CSSPositionTryDescriptors.marginTop documentation>+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 ()+-- | <https://developer.mozilla.org/docs/Web/API/CSSPositionTryDescriptors#instance_properties MDN CSSPositionTryDescriptors.marginRight documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/CSSPositionTryDescriptors#instance_properties MDN CSSPositionTryDescriptors.marginRight documentation>+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 ()+-- | <https://developer.mozilla.org/docs/Web/API/CSSPositionTryDescriptors#instance_properties MDN CSSPositionTryDescriptors.marginBottom documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/CSSPositionTryDescriptors#instance_properties MDN CSSPositionTryDescriptors.marginBottom documentation>+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 ()+-- | <https://developer.mozilla.org/docs/Web/API/CSSPositionTryDescriptors#instance_properties MDN CSSPositionTryDescriptors.marginLeft documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/CSSPositionTryDescriptors#instance_properties MDN CSSPositionTryDescriptors.marginLeft documentation>+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 ()+-- | <https://developer.mozilla.org/docs/Web/API/CSSPositionTryDescriptors#instance_properties MDN CSSPositionTryDescriptors.marginBlock documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/CSSPositionTryDescriptors#instance_properties MDN CSSPositionTryDescriptors.marginBlock documentation>+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 ()+-- | <https://developer.mozilla.org/docs/Web/API/CSSPositionTryDescriptors#instance_properties MDN CSSPositionTryDescriptors.marginBlockStart documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/CSSPositionTryDescriptors#instance_properties MDN CSSPositionTryDescriptors.marginBlockStart documentation>+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 ()+-- | <https://developer.mozilla.org/docs/Web/API/CSSPositionTryDescriptors#instance_properties MDN CSSPositionTryDescriptors.marginBlockEnd documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/CSSPositionTryDescriptors#instance_properties MDN CSSPositionTryDescriptors.marginBlockEnd documentation>+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 ()+-- | <https://developer.mozilla.org/docs/Web/API/CSSPositionTryDescriptors#instance_properties MDN CSSPositionTryDescriptors.marginInline documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/CSSPositionTryDescriptors#instance_properties MDN CSSPositionTryDescriptors.marginInline documentation>+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 ()+-- | <https://developer.mozilla.org/docs/Web/API/CSSPositionTryDescriptors#instance_properties MDN CSSPositionTryDescriptors.marginInlineStart documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/CSSPositionTryDescriptors#instance_properties MDN CSSPositionTryDescriptors.marginInlineStart documentation>+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 ()+-- | <https://developer.mozilla.org/docs/Web/API/CSSPositionTryDescriptors#instance_properties MDN CSSPositionTryDescriptors.marginInlineEnd documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/CSSPositionTryDescriptors#instance_properties MDN CSSPositionTryDescriptors.marginInlineEnd documentation>+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 ()+-- | <https://developer.mozilla.org/docs/Web/API/CSSPositionTryDescriptors#instance_properties MDN CSSPositionTryDescriptors.inset documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/CSSPositionTryDescriptors#instance_properties MDN CSSPositionTryDescriptors.inset documentation>+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 ()+-- | <https://developer.mozilla.org/docs/Web/API/CSSPositionTryDescriptors#instance_properties MDN CSSPositionTryDescriptors.insetBlock documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/CSSPositionTryDescriptors#instance_properties MDN CSSPositionTryDescriptors.insetBlock documentation>+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 ()+-- | <https://developer.mozilla.org/docs/Web/API/CSSPositionTryDescriptors#instance_properties MDN CSSPositionTryDescriptors.insetBlockStart documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/CSSPositionTryDescriptors#instance_properties MDN CSSPositionTryDescriptors.insetBlockStart documentation>+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 ()+-- | <https://developer.mozilla.org/docs/Web/API/CSSPositionTryDescriptors#instance_properties MDN CSSPositionTryDescriptors.insetBlockEnd documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/CSSPositionTryDescriptors#instance_properties MDN CSSPositionTryDescriptors.insetBlockEnd documentation>+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 ()+-- | <https://developer.mozilla.org/docs/Web/API/CSSPositionTryDescriptors#instance_properties MDN CSSPositionTryDescriptors.insetInline documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/CSSPositionTryDescriptors#instance_properties MDN CSSPositionTryDescriptors.insetInline documentation>+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 ()+-- | <https://developer.mozilla.org/docs/Web/API/CSSPositionTryDescriptors#instance_properties MDN CSSPositionTryDescriptors.insetInlineStart documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/CSSPositionTryDescriptors#instance_properties MDN CSSPositionTryDescriptors.insetInlineStart documentation>+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 ()+-- | <https://developer.mozilla.org/docs/Web/API/CSSPositionTryDescriptors#instance_properties MDN CSSPositionTryDescriptors.insetInlineEnd documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/CSSPositionTryDescriptors#instance_properties MDN CSSPositionTryDescriptors.insetInlineEnd documentation>+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 ()+-- | <https://developer.mozilla.org/docs/Web/API/CSSPositionTryDescriptors#instance_properties MDN CSSPositionTryDescriptors.top documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/CSSPositionTryDescriptors#instance_properties MDN CSSPositionTryDescriptors.top documentation>+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 ()+-- | <https://developer.mozilla.org/docs/Web/API/CSSPositionTryDescriptors#instance_properties MDN CSSPositionTryDescriptors.left documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/CSSPositionTryDescriptors#instance_properties MDN CSSPositionTryDescriptors.left documentation>+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 ()+-- | <https://developer.mozilla.org/docs/Web/API/CSSPositionTryDescriptors#instance_properties MDN CSSPositionTryDescriptors.right documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/CSSPositionTryDescriptors#instance_properties MDN CSSPositionTryDescriptors.right documentation>+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 ()+-- | <https://developer.mozilla.org/docs/Web/API/CSSPositionTryDescriptors#instance_properties MDN CSSPositionTryDescriptors.bottom documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/CSSPositionTryDescriptors#instance_properties MDN CSSPositionTryDescriptors.bottom documentation>+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 ()+-- | <https://developer.mozilla.org/docs/Web/API/CSSPositionTryDescriptors#instance_properties MDN CSSPositionTryDescriptors.width documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/CSSPositionTryDescriptors#instance_properties MDN CSSPositionTryDescriptors.width documentation>+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 ()+-- | <https://developer.mozilla.org/docs/Web/API/CSSPositionTryDescriptors#instance_properties MDN CSSPositionTryDescriptors.minWidth documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/CSSPositionTryDescriptors#instance_properties MDN CSSPositionTryDescriptors.minWidth documentation>+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 ()+-- | <https://developer.mozilla.org/docs/Web/API/CSSPositionTryDescriptors#instance_properties MDN CSSPositionTryDescriptors.maxWidth documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/CSSPositionTryDescriptors#instance_properties MDN CSSPositionTryDescriptors.maxWidth documentation>+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 ()+-- | <https://developer.mozilla.org/docs/Web/API/CSSPositionTryDescriptors#instance_properties MDN CSSPositionTryDescriptors.height documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/CSSPositionTryDescriptors#instance_properties MDN CSSPositionTryDescriptors.height documentation>+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 ()+-- | <https://developer.mozilla.org/docs/Web/API/CSSPositionTryDescriptors#instance_properties MDN CSSPositionTryDescriptors.minHeight documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/CSSPositionTryDescriptors#instance_properties MDN CSSPositionTryDescriptors.minHeight documentation>+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 ()+-- | <https://developer.mozilla.org/docs/Web/API/CSSPositionTryDescriptors#instance_properties MDN CSSPositionTryDescriptors.maxHeight documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/CSSPositionTryDescriptors#instance_properties MDN CSSPositionTryDescriptors.maxHeight documentation>+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 ()+-- | <https://developer.mozilla.org/docs/Web/API/CSSPositionTryDescriptors#instance_properties MDN CSSPositionTryDescriptors.blockSize documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/CSSPositionTryDescriptors#instance_properties MDN CSSPositionTryDescriptors.blockSize documentation>+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 ()+-- | <https://developer.mozilla.org/docs/Web/API/CSSPositionTryDescriptors#instance_properties MDN CSSPositionTryDescriptors.minBlockSize documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/CSSPositionTryDescriptors#instance_properties MDN CSSPositionTryDescriptors.minBlockSize documentation>+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 ()+-- | <https://developer.mozilla.org/docs/Web/API/CSSPositionTryDescriptors#instance_properties MDN CSSPositionTryDescriptors.maxBlockSize documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/CSSPositionTryDescriptors#instance_properties MDN CSSPositionTryDescriptors.maxBlockSize documentation>+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 ()+-- | <https://developer.mozilla.org/docs/Web/API/CSSPositionTryDescriptors#instance_properties MDN CSSPositionTryDescriptors.inlineSize documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/CSSPositionTryDescriptors#instance_properties MDN CSSPositionTryDescriptors.inlineSize documentation>+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 ()+-- | <https://developer.mozilla.org/docs/Web/API/CSSPositionTryDescriptors#instance_properties MDN CSSPositionTryDescriptors.minInlineSize documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/CSSPositionTryDescriptors#instance_properties MDN CSSPositionTryDescriptors.minInlineSize documentation>+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 ()+-- | <https://developer.mozilla.org/docs/Web/API/CSSPositionTryDescriptors#instance_properties MDN CSSPositionTryDescriptors.maxInlineSize documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/CSSPositionTryDescriptors#instance_properties MDN CSSPositionTryDescriptors.maxInlineSize documentation>+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 ()+-- | <https://developer.mozilla.org/docs/Web/API/CSSPositionTryDescriptors#instance_properties MDN CSSPositionTryDescriptors.placeSelf documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/CSSPositionTryDescriptors#instance_properties MDN CSSPositionTryDescriptors.placeSelf documentation>+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 ()+-- | <https://developer.mozilla.org/docs/Web/API/CSSPositionTryDescriptors#instance_properties MDN CSSPositionTryDescriptors.alignSelf documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/CSSPositionTryDescriptors#instance_properties MDN CSSPositionTryDescriptors.alignSelf documentation>+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 ()+-- | <https://developer.mozilla.org/docs/Web/API/CSSPositionTryDescriptors#instance_properties MDN CSSPositionTryDescriptors.justifySelf documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/CSSPositionTryDescriptors#instance_properties MDN CSSPositionTryDescriptors.justifySelf documentation>+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 ()+-- | <https://developer.mozilla.org/docs/Web/API/CSSPositionTryDescriptors#instance_properties MDN CSSPositionTryDescriptors.positionAnchor documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/CSSPositionTryDescriptors#instance_properties MDN CSSPositionTryDescriptors.positionAnchor documentation>+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 ()+-- | <https://developer.mozilla.org/docs/Web/API/CSSPositionTryDescriptors#instance_properties MDN CSSPositionTryDescriptors.positionArea documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/CSSPositionTryDescriptors#instance_properties MDN CSSPositionTryDescriptors.positionArea documentation>+getPositionArea :: (MonadDOM m, FromJSString result) => CSSPositionTryDescriptors -> m result+getPositionArea self = liftDOM ((fromJSString <$> (js_getPositionArea (self))))
@@ -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+-- | <https://developer.mozilla.org/docs/Web/API/CSSPositionTryRule/name MDN CSSPositionTryRule.name documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/CSSPositionTryRule/style MDN CSSPositionTryRule.style documentation>+getStyle :: (MonadDOM m) => CSSPositionTryRule -> m CSSPositionTryDescriptors+getStyle self = liftDOM ((js_getStyle (self)))
@@ -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 ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSPrimitiveValue.setFloatValue Mozilla CSSPrimitiveValue.setFloatValue documentation> -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---- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSPrimitiveValue.getFloatValue Mozilla CSSPrimitiveValue.getFloatValue documentation> -getFloatValue ::- (MonadIO m) => CSSPrimitiveValue -> Maybe Word -> m Float-getFloatValue self unitType- = liftIO (js_getFloatValue self (maybeToOptional unitType))---- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSPrimitiveValue.getFloatValue Mozilla CSSPrimitiveValue.getFloatValue documentation> -getFloatValue_ ::- (MonadIO m) => CSSPrimitiveValue -> 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 ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSPrimitiveValue.setStringValue Mozilla CSSPrimitiveValue.setStringValue documentation> -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---- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSPrimitiveValue.getStringValue Mozilla CSSPrimitiveValue.getStringValue documentation> -getStringValue ::- (MonadIO m, FromJSString result) => CSSPrimitiveValue -> m result-getStringValue self- = liftIO (fromJSString <$> (js_getStringValue self))---- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSPrimitiveValue.getStringValue Mozilla CSSPrimitiveValue.getStringValue documentation> -getStringValue_ :: (MonadIO m) => CSSPrimitiveValue -> m ()-getStringValue_ self = liftIO (void (js_getStringValue self))- -foreign import javascript safe "(($1) => { return $1[\"getCounterValue\"](); })"- js_getCounterValue :: CSSPrimitiveValue -> IO Counter---- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSPrimitiveValue.getCounterValue Mozilla CSSPrimitiveValue.getCounterValue documentation> -getCounterValue :: (MonadIO m) => CSSPrimitiveValue -> m Counter-getCounterValue self = liftIO (js_getCounterValue self)---- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSPrimitiveValue.getCounterValue Mozilla CSSPrimitiveValue.getCounterValue documentation> -getCounterValue_ :: (MonadIO m) => CSSPrimitiveValue -> m ()-getCounterValue_ self = liftIO (void (js_getCounterValue self))- -foreign import javascript safe "(($1) => { return $1[\"getRectValue\"](); })"- js_getRectValue :: CSSPrimitiveValue -> IO Rect---- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSPrimitiveValue.getRectValue Mozilla CSSPrimitiveValue.getRectValue documentation> -getRectValue :: (MonadIO m) => CSSPrimitiveValue -> m Rect-getRectValue self = liftIO (js_getRectValue self)---- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSPrimitiveValue.getRectValue Mozilla CSSPrimitiveValue.getRectValue documentation> -getRectValue_ :: (MonadIO m) => CSSPrimitiveValue -> m ()-getRectValue_ self = liftIO (void (js_getRectValue self))- -foreign import javascript safe "(($1) => { return $1[\"getRGBColorValue\"](); })"- js_getRGBColorValue :: CSSPrimitiveValue -> IO RGBColor---- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSPrimitiveValue.getRGBColorValue Mozilla CSSPrimitiveValue.getRGBColorValue documentation> -getRGBColorValue :: (MonadIO m) => CSSPrimitiveValue -> m RGBColor-getRGBColorValue self = liftIO (js_getRGBColorValue self)---- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSPrimitiveValue.getRGBColorValue Mozilla CSSPrimitiveValue.getRGBColorValue documentation> -getRGBColorValue_ :: (MonadIO m) => CSSPrimitiveValue -> m ()-getRGBColorValue_ self = liftIO (void (js_getRGBColorValue self))-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---- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSPrimitiveValue.primitiveType Mozilla CSSPrimitiveValue.primitiveType documentation> -getPrimitiveType :: (MonadIO m) => CSSPrimitiveValue -> m Word-getPrimitiveType self = liftIO (js_getPrimitiveType self)
@@ -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+-- | <https://developer.mozilla.org/docs/Web/API/CSSPropertyRule/name MDN CSSPropertyRule.name documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/CSSPropertyRule/syntax MDN CSSPropertyRule.syntax documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/CSSPropertyRule/inherits MDN CSSPropertyRule.inherits documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/CSSPropertyRule/initialValue MDN CSSPropertyRule.initialValue documentation>+getInitialValue :: (MonadDOM m, FromJSString result) => CSSPropertyRule -> m (Maybe result)+getInitialValue self = liftDOM (((fromMaybeJSString . Nullable) <$> (js_getInitialValue (self))))++-- | <https://developer.mozilla.org/docs/Web/API/CSSPropertyRule/initialValue MDN CSSPropertyRule.initialValue documentation>+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))++-- | <https://developer.mozilla.org/docs/Web/API/CSSPropertyRule/initialValue MDN CSSPropertyRule.initialValue documentation>+getInitialValueUnchecked :: (MonadDOM m, FromJSString result) => CSSPropertyRule -> m result+getInitialValueUnchecked self = liftDOM ((pFromJSVal <$> (js_getInitialValue (self))))
@@ -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+-- | <https://developer.mozilla.org/docs/Web/API/CSSRotate/CSSRotate MDN CSSRotate. documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/CSSRotate/CSSRotate MDN CSSRotate. documentation>+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 ()+-- | <https://developer.mozilla.org/docs/Web/API/CSSRotate/x MDN CSSRotate.x documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/CSSRotate/x MDN CSSRotate.x documentation>+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 ()+-- | <https://developer.mozilla.org/docs/Web/API/CSSRotate/y MDN CSSRotate.y documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/CSSRotate/y MDN CSSRotate.y documentation>+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 ()+-- | <https://developer.mozilla.org/docs/Web/API/CSSRotate/z MDN CSSRotate.z documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/CSSRotate/z MDN CSSRotate.z documentation>+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 ()+-- | <https://developer.mozilla.org/docs/Web/API/CSSRotate/angle MDN CSSRotate.angle documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/CSSRotate/angle MDN CSSRotate.angle documentation>+getAngle :: (MonadDOM m) => CSSRotate -> m CSSNumericValue+getAngle self = liftDOM ((js_getAngle (self)))
@@ -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 --- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSRule.type Mozilla CSSRule.type documentation> -getType :: (MonadIO m, IsCSSRule self) => self -> m Word-getType self = liftIO (js_getType (toCSSRule self))- foreign import javascript safe "(($1, $2) => { $1[\"cssText\"] = $2; })"- js_setCssText :: CSSRule -> Optional JSString -> IO ()+ js_setCssText :: CSSRule -> JSString -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/CSSRule/cssText MDN CSSRule.cssText documentation>+setCssText :: (MonadDOM m, IsCSSRule self, ToJSString val) => self -> val -> m ()+setCssText self val = liftDOM (void ((js_setCssText ((Types.toCSSRule self)) (toJSString val)))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSRule.cssText Mozilla CSSRule.cssText documentation> -setCssText ::- (MonadIO m, IsCSSRule self, ToJSString val) =>- self -> Maybe val -> m ()-setCssText self val- = liftIO (js_setCssText (toCSSRule self) (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+-- | <https://developer.mozilla.org/docs/Web/API/CSSRule/cssText MDN CSSRule.cssText documentation>+getCssText :: (MonadDOM m, IsCSSRule self, FromJSString result) => self -> m result+getCssText self = liftDOM ((fromJSString <$> (js_getCssText ((Types.toCSSRule self))))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSRule.cssText Mozilla CSSRule.cssText documentation> -getCssText ::- (MonadIO m, IsCSSRule self, FromJSString result) =>- self -> m (Maybe result)-getCssText self- = liftIO (fromMaybeJSString <$> (js_getCssText (toCSSRule self)))+foreign import javascript unsafe "(($1) => { return $1[\"parentRule\"]; })"+ js_getParentRule :: CSSRule -> IO JSVal+-- | <https://developer.mozilla.org/docs/Web/API/CSSRule/parentRule MDN CSSRule.parentRule documentation>+getParentRule :: (MonadDOM m, IsCSSRule self) => self -> m (Maybe CSSRule)+getParentRule self = liftDOM (((js_getParentRule ((Types.toCSSRule self))) >>= fromJSValUnchecked)) --- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSRule.cssText Mozilla CSSRule.cssText documentation> -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)+-- | <https://developer.mozilla.org/docs/Web/API/CSSRule/parentRule MDN CSSRule.parentRule documentation>+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)) --- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSRule.cssText Mozilla CSSRule.cssText documentation> -getCssTextUnchecked ::- (MonadIO m, IsCSSRule self, FromJSString result) =>- self -> m result-getCssTextUnchecked self- = liftIO- (fromJust . fromMaybeJSString <$> (js_getCssText (toCSSRule self)))- +-- | <https://developer.mozilla.org/docs/Web/API/CSSRule/parentRule MDN CSSRule.parentRule documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/CSSRule/parentStyleSheet MDN CSSRule.parentStyleSheet documentation>+getParentStyleSheet :: (MonadDOM m, IsCSSRule self) => self -> m (Maybe CSSStyleSheet)+getParentStyleSheet self = liftDOM (((js_getParentStyleSheet ((Types.toCSSRule self))) >>= fromJSValUnchecked)) --- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSRule.parentStyleSheet Mozilla CSSRule.parentStyleSheet documentation> -getParentStyleSheet ::- (MonadIO m, IsCSSRule self) => self -> m (Maybe CSSStyleSheet)-getParentStyleSheet self- = liftIO- (nullableToMaybe <$> (js_getParentStyleSheet (toCSSRule self)))+-- | <https://developer.mozilla.org/docs/Web/API/CSSRule/parentStyleSheet MDN CSSRule.parentStyleSheet documentation>+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)) --- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSRule.parentStyleSheet Mozilla CSSRule.parentStyleSheet documentation> -getParentStyleSheetUnsafe ::- (MonadIO m, IsCSSRule self, HasCallStack) =>- self -> m CSSStyleSheet-getParentStyleSheetUnsafe self- = liftIO- ((nullableToMaybe <$> (js_getParentStyleSheet (toCSSRule self)))- >>= maybe (Prelude.error "Nothing to return") return)+-- | <https://developer.mozilla.org/docs/Web/API/CSSRule/parentStyleSheet MDN CSSRule.parentStyleSheet documentation>+getParentStyleSheetUnchecked :: (MonadDOM m, IsCSSRule self) => self -> m CSSStyleSheet+getParentStyleSheetUnchecked self = liftDOM ((pFromJSVal <$> (js_getParentStyleSheet ((Types.toCSSRule self))))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSRule.parentStyleSheet Mozilla CSSRule.parentStyleSheet documentation> -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+-- | <https://developer.mozilla.org/docs/Web/API/CSSRule/type MDN CSSRule.type documentation>+getType :: (MonadDOM m, IsCSSRule self) => self -> m Word+getType self = liftDOM ((js_getType ((Types.toCSSRule self)))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSRule.parentRule Mozilla CSSRule.parentRule documentation> -getParentRule ::- (MonadIO m, IsCSSRule self) => self -> m (Maybe CSSRule)-getParentRule self- = liftIO (nullableToMaybe <$> (js_getParentRule (toCSSRule self)))+pattern STYLE_RULE = 1 --- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSRule.parentRule Mozilla CSSRule.parentRule documentation> -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 --- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSRule.parentRule Mozilla CSSRule.parentRule documentation> -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
@@ -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 --- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSRuleList.item Mozilla CSSRuleList.item documentation> -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+-- | <https://developer.mozilla.org/docs/Web/API/CSSRuleList/item MDN CSSRuleList.item documentation>+item :: (MonadDOM m) => CSSRuleList -> Word -> m (Maybe CSSRule)+item self index = liftDOM (((js_item (self) (index)) >>= fromJSValUnchecked)) --- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSRuleList.item Mozilla CSSRuleList.item documentation> -item_ :: (MonadIO m) => CSSRuleList -> Word -> m ()-item_ self index = liftIO (void (js_item self index))- -foreign import javascript unsafe "(($1) => { return $1[\"length\"]; })" js_getLength ::- CSSRuleList -> IO Word+-- | <https://developer.mozilla.org/docs/Web/API/CSSRuleList/item MDN CSSRuleList.item documentation>+item_ :: (MonadDOM m) => CSSRuleList -> Word -> m ()+item_ self index = liftDOM (void ((js_item (self) (index)))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSRuleList.length Mozilla CSSRuleList.length documentation> -getLength :: (MonadIO m) => CSSRuleList -> m Word-getLength self = liftIO (js_getLength self)+-- | <https://developer.mozilla.org/docs/Web/API/CSSRuleList/item MDN CSSRuleList.item documentation>+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))++-- | <https://developer.mozilla.org/docs/Web/API/CSSRuleList/item MDN CSSRuleList.item documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/CSSRuleList/length MDN CSSRuleList.length documentation>+getLength :: (MonadDOM m) => CSSRuleList -> m Word+getLength self = liftDOM ((js_getLength (self)))
@@ -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+-- | <https://developer.mozilla.org/docs/Web/API/CSSScale/CSSScale MDN CSSScale. documentation>+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 ()+-- | <https://developer.mozilla.org/docs/Web/API/CSSScale/x MDN CSSScale.x documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/CSSScale/x MDN CSSScale.x documentation>+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 ()+-- | <https://developer.mozilla.org/docs/Web/API/CSSScale/y MDN CSSScale.y documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/CSSScale/y MDN CSSScale.y documentation>+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 ()+-- | <https://developer.mozilla.org/docs/Web/API/CSSScale/z MDN CSSScale.z documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/CSSScale/z MDN CSSScale.z documentation>+getZ :: (MonadDOM m) => CSSScale -> m CSSNumberish+getZ self = liftDOM ((js_getZ (self)))
@@ -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+-- | <https://developer.mozilla.org/docs/Web/API/CSSScopeRule/start MDN CSSScopeRule.start documentation>+getStart :: (MonadDOM m, FromJSString result) => CSSScopeRule -> m (Maybe result)+getStart self = liftDOM (((fromMaybeJSString . Nullable) <$> (js_getStart (self))))++-- | <https://developer.mozilla.org/docs/Web/API/CSSScopeRule/start MDN CSSScopeRule.start documentation>+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))++-- | <https://developer.mozilla.org/docs/Web/API/CSSScopeRule/start MDN CSSScopeRule.start documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/CSSScopeRule/end MDN CSSScopeRule.end documentation>+getEnd :: (MonadDOM m, FromJSString result) => CSSScopeRule -> m (Maybe result)+getEnd self = liftDOM (((fromMaybeJSString . Nullable) <$> (js_getEnd (self))))++-- | <https://developer.mozilla.org/docs/Web/API/CSSScopeRule/end MDN CSSScopeRule.end documentation>+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))++-- | <https://developer.mozilla.org/docs/Web/API/CSSScopeRule/end MDN CSSScopeRule.end documentation>+getEndUnchecked :: (MonadDOM m, FromJSString result) => CSSScopeRule -> m result+getEndUnchecked self = liftDOM ((pFromJSVal <$> (js_getEnd (self))))
@@ -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+-- | <https://developer.mozilla.org/docs/Web/API/CSSSkew/CSSSkew MDN CSSSkew. documentation>+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 ()+-- | <https://developer.mozilla.org/docs/Web/API/CSSSkew/ax MDN CSSSkew.ax documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/CSSSkew/ax MDN CSSSkew.ax documentation>+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 ()+-- | <https://developer.mozilla.org/docs/Web/API/CSSSkew/ay MDN CSSSkew.ay documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/CSSSkew/ay MDN CSSSkew.ay documentation>+getAy :: (MonadDOM m) => CSSSkew -> m CSSNumericValue+getAy self = liftDOM ((js_getAy (self)))
@@ -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+-- | <https://developer.mozilla.org/docs/Web/API/CSSSkewX/CSSSkewX MDN CSSSkewX. documentation>+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 ()+-- | <https://developer.mozilla.org/docs/Web/API/CSSSkewX/ax MDN CSSSkewX.ax documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/CSSSkewX/ax MDN CSSSkewX.ax documentation>+getAx :: (MonadDOM m) => CSSSkewX -> m CSSNumericValue+getAx self = liftDOM ((js_getAx (self)))
@@ -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+-- | <https://developer.mozilla.org/docs/Web/API/CSSSkewY/CSSSkewY MDN CSSSkewY. documentation>+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 ()+-- | <https://developer.mozilla.org/docs/Web/API/CSSSkewY/ay MDN CSSSkewY.ay documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/CSSSkewY/ay MDN CSSSkewY.ay documentation>+getAy :: (MonadDOM m) => CSSSkewY -> m CSSNumericValue+getAy self = liftDOM ((js_getAy (self)))
@@ -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+
@@ -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 --- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSStyleDeclaration.getPropertyValue Mozilla CSSStyleDeclaration.getPropertyValue documentation> -getPropertyValue ::- (MonadIO m, ToJSString propertyName, FromJSString result) =>- CSSStyleDeclaration -> propertyName -> m 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+-- | <https://developer.mozilla.org/docs/Web/API/CSSStyleDeclaration/getPropertyPriority MDN CSSStyleDeclaration.getPropertyPriority documentation>+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)))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSStyleDeclaration.getPropertyValue Mozilla CSSStyleDeclaration.getPropertyValue documentation> -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)+-- | <https://developer.mozilla.org/docs/Web/API/CSSStyleDeclaration/getPropertyPriority MDN CSSStyleDeclaration.getPropertyPriority documentation>+getPropertyPriority_ :: (MonadDOM m, IsCSSStyleDeclaration self, ToJSString property) => self -> property -> m ()+getPropertyPriority_ self property = liftDOM (void ((js_getPropertyPriority ((Types.toCSSStyleDeclaration self)) (toJSString property)))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSStyleDeclaration.getPropertyCSSValue Mozilla CSSStyleDeclaration.getPropertyCSSValue documentation> -getPropertyCSSValue ::- (MonadIO m, ToJSString propertyName) =>- CSSStyleDeclaration -> propertyName -> m (Maybe CSSValue)-getPropertyCSSValue self propertyName- = liftIO- (nullableToMaybe <$>- (js_getPropertyCSSValue self (toJSString propertyName)))+foreign import javascript safe "(($1, $2) => { return $1[\"getPropertyValue\"]($2); })"+ js_getPropertyValue :: CSSStyleDeclaration -> JSString -> IO JSString+-- | <https://developer.mozilla.org/docs/Web/API/CSSStyleDeclaration/getPropertyValue MDN CSSStyleDeclaration.getPropertyValue documentation>+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)))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSStyleDeclaration.getPropertyCSSValue Mozilla CSSStyleDeclaration.getPropertyCSSValue documentation> -getPropertyCSSValue_ ::- (MonadIO m, ToJSString propertyName) =>- CSSStyleDeclaration -> propertyName -> m ()-getPropertyCSSValue_ self propertyName- = liftIO- (void (js_getPropertyCSSValue self (toJSString propertyName)))+-- | <https://developer.mozilla.org/docs/Web/API/CSSStyleDeclaration/getPropertyValue MDN CSSStyleDeclaration.getPropertyValue documentation>+getPropertyValue_ :: (MonadDOM m, IsCSSStyleDeclaration self, ToJSString property) => self -> property -> m ()+getPropertyValue_ self property = liftDOM (void ((js_getPropertyValue ((Types.toCSSStyleDeclaration self)) (toJSString property)))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSStyleDeclaration.getPropertyCSSValue Mozilla CSSStyleDeclaration.getPropertyCSSValue documentation> -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+-- | <https://developer.mozilla.org/docs/Web/API/CSSStyleDeclaration/item MDN CSSStyleDeclaration.item documentation>+item :: (MonadDOM m, IsCSSStyleDeclaration self, FromJSString result) => self -> Word -> m result+item self index = liftDOM ((fromJSString <$> (js_item ((Types.toCSSStyleDeclaration self)) (index)))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSStyleDeclaration.getPropertyCSSValue Mozilla CSSStyleDeclaration.getPropertyCSSValue documentation> -getPropertyCSSValueUnchecked ::- (MonadIO m, ToJSString propertyName) =>- CSSStyleDeclaration -> propertyName -> m CSSValue-getPropertyCSSValueUnchecked self propertyName- = liftIO- (fromJust . nullableToMaybe <$>- (js_getPropertyCSSValue self (toJSString propertyName)))- +-- | <https://developer.mozilla.org/docs/Web/API/CSSStyleDeclaration/item MDN CSSStyleDeclaration.item documentation>+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---- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSStyleDeclaration.removeProperty Mozilla CSSStyleDeclaration.removeProperty documentation> -removeProperty ::- (MonadIO m, ToJSString propertyName, FromJSString result) =>- CSSStyleDeclaration -> propertyName -> m result-removeProperty self propertyName- = liftIO- (fromJSString <$>- (js_removeProperty self (toJSString propertyName)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSStyleDeclaration.removeProperty Mozilla CSSStyleDeclaration.removeProperty documentation> -removeProperty_ ::- (MonadIO m, ToJSString propertyName) =>- CSSStyleDeclaration -> propertyName -> m ()-removeProperty_ self propertyName- = liftIO (void (js_removeProperty self (toJSString propertyName)))- -foreign import javascript unsafe "(($1, $2) => { return $1[\"getPropertyPriority\"]($2); })"- js_getPropertyPriority ::- CSSStyleDeclaration -> JSString -> IO (Nullable JSString)---- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSStyleDeclaration.getPropertyPriority Mozilla CSSStyleDeclaration.getPropertyPriority documentation> -getPropertyPriority ::- (MonadIO m, ToJSString propertyName, FromJSString result) =>- CSSStyleDeclaration -> propertyName -> m (Maybe result)-getPropertyPriority self propertyName- = liftIO- (fromMaybeJSString <$>- (js_getPropertyPriority self (toJSString propertyName)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSStyleDeclaration.getPropertyPriority Mozilla CSSStyleDeclaration.getPropertyPriority documentation> -getPropertyPriority_ ::- (MonadIO m, ToJSString propertyName) =>- CSSStyleDeclaration -> propertyName -> m ()-getPropertyPriority_ self propertyName- = liftIO- (void (js_getPropertyPriority self (toJSString propertyName)))+-- | <https://developer.mozilla.org/docs/Web/API/CSSStyleDeclaration/removeProperty MDN CSSStyleDeclaration.removeProperty documentation>+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)))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSStyleDeclaration.getPropertyPriority Mozilla CSSStyleDeclaration.getPropertyPriority documentation> -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)+-- | <https://developer.mozilla.org/docs/Web/API/CSSStyleDeclaration/removeProperty MDN CSSStyleDeclaration.removeProperty documentation>+removeProperty_ :: (MonadDOM m, IsCSSStyleDeclaration self, ToJSString property) => self -> property -> m ()+removeProperty_ self property = liftDOM (void ((js_removeProperty ((Types.toCSSStyleDeclaration self)) (toJSString property)))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSStyleDeclaration.getPropertyPriority Mozilla CSSStyleDeclaration.getPropertyPriority documentation> -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 ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSStyleDeclaration.setProperty Mozilla CSSStyleDeclaration.setProperty documentation> -setProperty ::- (MonadIO m, ToJSString propertyName, ToJSString value,- ToJSString priority) =>- CSSStyleDeclaration ->- propertyName -> 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---- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSStyleDeclaration.item Mozilla CSSStyleDeclaration.item documentation> -item ::- (MonadIO m, FromJSString result) =>- CSSStyleDeclaration -> Word -> m result-item self index = liftIO (fromJSString <$> (js_item self index))---- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSStyleDeclaration.item Mozilla CSSStyleDeclaration.item documentation> -item_ :: (MonadIO m) => CSSStyleDeclaration -> Word -> m ()-item_ self index = liftIO (void (js_item self index))- -foreign import javascript unsafe "(($1, $2) => { return $1[\"getPropertyShorthand\"]($2); })"- js_getPropertyShorthand ::- CSSStyleDeclaration -> Optional JSString -> IO (Nullable JSString)---- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSStyleDeclaration.getPropertyShorthand Mozilla CSSStyleDeclaration.getPropertyShorthand documentation> -getPropertyShorthand ::- (MonadIO m, ToJSString propertyName, FromJSString result) =>- CSSStyleDeclaration -> Maybe propertyName -> m (Maybe result)-getPropertyShorthand self propertyName- = liftIO- (fromMaybeJSString <$>- (js_getPropertyShorthand self (toOptionalJSString propertyName)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSStyleDeclaration.getPropertyShorthand Mozilla CSSStyleDeclaration.getPropertyShorthand documentation> -getPropertyShorthand_ ::- (MonadIO m, ToJSString propertyName) =>- CSSStyleDeclaration -> Maybe propertyName -> m ()-getPropertyShorthand_ self propertyName- = liftIO- (void- (js_getPropertyShorthand self (toOptionalJSString propertyName)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSStyleDeclaration.getPropertyShorthand Mozilla CSSStyleDeclaration.getPropertyShorthand documentation> -getPropertyShorthandUnsafe ::- (MonadIO m, ToJSString propertyName, HasCallStack,- FromJSString result) =>- CSSStyleDeclaration -> Maybe propertyName -> m result-getPropertyShorthandUnsafe self propertyName- = liftIO- ((fromMaybeJSString <$>- (js_getPropertyShorthand self (toOptionalJSString propertyName)))- >>= maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSStyleDeclaration.getPropertyShorthand Mozilla CSSStyleDeclaration.getPropertyShorthand documentation> -getPropertyShorthandUnchecked ::- (MonadIO m, ToJSString propertyName, FromJSString result) =>- CSSStyleDeclaration -> 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---- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSStyleDeclaration.isPropertyImplicit Mozilla CSSStyleDeclaration.isPropertyImplicit documentation> -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 ()+-- | <https://developer.mozilla.org/docs/Web/API/CSSStyleDeclaration/setProperty MDN CSSStyleDeclaration.setProperty documentation>+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)))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSStyleDeclaration.isPropertyImplicit Mozilla CSSStyleDeclaration.isPropertyImplicit documentation> -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 ()+-- | <https://developer.mozilla.org/docs/Web/API/CSSStyleDeclaration/cssText MDN CSSStyleDeclaration.cssText documentation>+setCssText :: (MonadDOM m, IsCSSStyleDeclaration self, ToJSString val) => self -> val -> m ()+setCssText self val = liftDOM (void ((js_setCssText ((Types.toCSSStyleDeclaration self)) (toJSString val)))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSStyleDeclaration.cssText Mozilla CSSStyleDeclaration.cssText documentation> -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+-- | <https://developer.mozilla.org/docs/Web/API/CSSStyleDeclaration/cssText MDN CSSStyleDeclaration.cssText documentation>+getCssText :: (MonadDOM m, IsCSSStyleDeclaration self, FromJSString result) => self -> m result+getCssText self = liftDOM ((fromJSString <$> (js_getCssText ((Types.toCSSStyleDeclaration self))))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSStyleDeclaration.cssText Mozilla CSSStyleDeclaration.cssText documentation> -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+-- | <https://developer.mozilla.org/docs/Web/API/CSSStyleDeclaration/length MDN CSSStyleDeclaration.length documentation>+getLength :: (MonadDOM m, IsCSSStyleDeclaration self) => self -> m Word+getLength self = liftDOM ((js_getLength ((Types.toCSSStyleDeclaration self)))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSStyleDeclaration.length Mozilla CSSStyleDeclaration.length documentation> -getLength :: (MonadIO m) => CSSStyleDeclaration -> m Word-getLength self = liftIO (js_getLength self)- foreign import javascript unsafe "(($1) => { return $1[\"parentRule\"]; })"- js_getParentRule :: CSSStyleDeclaration -> IO (Nullable CSSRule)---- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSStyleDeclaration.parentRule Mozilla CSSStyleDeclaration.parentRule documentation> -getParentRule ::- (MonadIO m) => CSSStyleDeclaration -> m (Maybe CSSRule)-getParentRule self- = liftIO (nullableToMaybe <$> (js_getParentRule self))+ js_getParentRule :: CSSStyleDeclaration -> IO JSVal+-- | <https://developer.mozilla.org/docs/Web/API/CSSStyleDeclaration/parentRule MDN CSSStyleDeclaration.parentRule documentation>+getParentRule :: (MonadDOM m, IsCSSStyleDeclaration self) => self -> m (Maybe CSSRule)+getParentRule self = liftDOM (((js_getParentRule ((Types.toCSSStyleDeclaration self))) >>= fromJSValUnchecked)) --- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSStyleDeclaration.parentRule Mozilla CSSStyleDeclaration.parentRule documentation> -getParentRuleUnsafe ::- (MonadIO m, HasCallStack) => CSSStyleDeclaration -> m CSSRule-getParentRuleUnsafe self- = liftIO- ((nullableToMaybe <$> (js_getParentRule self)) >>=- maybe (Prelude.error "Nothing to return") return)+-- | <https://developer.mozilla.org/docs/Web/API/CSSStyleDeclaration/parentRule MDN CSSStyleDeclaration.parentRule documentation>+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)) --- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSStyleDeclaration.parentRule Mozilla CSSStyleDeclaration.parentRule documentation> -getParentRuleUnchecked ::- (MonadIO m) => CSSStyleDeclaration -> m CSSRule-getParentRuleUnchecked self- = liftIO (fromJust . nullableToMaybe <$> (js_getParentRule self))+-- | <https://developer.mozilla.org/docs/Web/API/CSSStyleDeclaration/parentRule MDN CSSStyleDeclaration.parentRule documentation>+getParentRuleUnchecked :: (MonadDOM m, IsCSSStyleDeclaration self) => self -> m CSSRule+getParentRuleUnchecked self = liftDOM ((pFromJSVal <$> (js_getParentRule ((Types.toCSSStyleDeclaration self)))))
@@ -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 ()+-- | <https://developer.mozilla.org/docs/Web/API/CSSStyleProperties/cssFloat MDN CSSStyleProperties.cssFloat documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/CSSStyleProperties/cssFloat MDN CSSStyleProperties.cssFloat documentation>+getCssFloat :: (MonadDOM m, FromJSString result) => CSSStyleProperties -> m result+getCssFloat self = liftDOM ((fromJSString <$> (js_getCssFloat (self))))
@@ -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 () --- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSStyleRule.selectorText Mozilla CSSStyleRule.selectorText documentation> -setSelectorText ::- (MonadIO m, ToJSString val) => CSSStyleRule -> Maybe val -> m ()-setSelectorText self val- = liftIO (js_setSelectorText self (toOptionalJSString val))- -foreign import javascript unsafe "(($1) => { return $1[\"selectorText\"]; })"- js_getSelectorText :: CSSStyleRule -> IO (Nullable JSString)---- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSStyleRule.selectorText Mozilla CSSStyleRule.selectorText documentation> -getSelectorText ::- (MonadIO m, FromJSString result) =>- CSSStyleRule -> m (Maybe result)-getSelectorText self- = liftIO (fromMaybeJSString <$> (js_getSelectorText self))+foreign import javascript safe "(($1, $2) => { $1[\"selectorText\"] = $2; })"+ js_setSelectorText :: CSSStyleRule -> JSString -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/CSSStyleRule/selectorText MDN CSSStyleRule.selectorText documentation>+setSelectorText :: (MonadDOM m, ToJSString val) => CSSStyleRule -> val -> m ()+setSelectorText self val = liftDOM (void ((js_setSelectorText (self) (toJSString val)))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSStyleRule.selectorText Mozilla CSSStyleRule.selectorText documentation> -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+-- | <https://developer.mozilla.org/docs/Web/API/CSSStyleRule/selectorText MDN CSSStyleRule.selectorText documentation>+getSelectorText :: (MonadDOM m, FromJSString result) => CSSStyleRule -> m result+getSelectorText self = liftDOM ((fromJSString <$> (js_getSelectorText (self)))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSStyleRule.selectorText Mozilla CSSStyleRule.selectorText documentation> -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+-- | <https://developer.mozilla.org/docs/Web/API/CSSStyleRule/style MDN CSSStyleRule.style documentation>+getStyle :: (MonadDOM m) => CSSStyleRule -> m CSSStyleProperties+getStyle self = liftDOM ((js_getStyle (self))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSStyleRule.style Mozilla CSSStyleRule.style documentation> -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+-- | <https://developer.mozilla.org/docs/Web/API/CSSStyleRule/styleMap MDN CSSStyleRule.styleMap documentation>+getStyleMap :: (MonadDOM m) => CSSStyleRule -> m StylePropertyMap+getStyleMap self = liftDOM ((js_getStyleMap (self)))
@@ -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 --- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSStyleSheet.insertRule Mozilla CSSStyleSheet.insertRule documentation> -insertRuleDeprecated ::- (MonadIO m, ToJSString rule) =>- CSSStyleSheet -> rule -> Word -> m Word-insertRuleDeprecated self rule index- = liftIO (js_insertRuleDeprecated self (toJSString rule) index)+foreign import javascript safe "(($1) => { return new globalThis[\"CSSStyleSheet\"]($1); })"+ js_newCSSStyleSheet :: JSVal -> IO CSSStyleSheet+-- | <https://developer.mozilla.org/docs/Web/API/CSSStyleSheet/CSSStyleSheet MDN CSSStyleSheet. documentation>+newCSSStyleSheet :: (MonadDOM m) => Maybe CSSStyleSheetInit -> m CSSStyleSheet+newCSSStyleSheet options = liftDOM (((P.maybe (P.return jsUndefined) toJSVal options) >>= \a1' -> js_newCSSStyleSheet a1')) --- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSStyleSheet.insertRule Mozilla CSSStyleSheet.insertRule documentation> -insertRuleDeprecated_ ::- (MonadIO m, ToJSString rule) =>- CSSStyleSheet -> rule -> Word -> m ()-insertRuleDeprecated_ self rule index- = liftIO- (void (js_insertRuleDeprecated self (toJSString rule) index))- -foreign import javascript 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+-- | <https://developer.mozilla.org/docs/Web/API/CSSStyleSheet/addRule MDN CSSStyleSheet.addRule documentation>+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')) --- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSStyleSheet.insertRule Mozilla CSSStyleSheet.insertRule documentation> -insertRule ::- (MonadIO m, ToJSString rule) => CSSStyleSheet -> rule -> m Word-insertRule self rule- = liftIO (js_insertRule self (toJSString rule))+-- | <https://developer.mozilla.org/docs/Web/API/CSSStyleSheet/addRule MDN CSSStyleSheet.addRule documentation>+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'))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSStyleSheet.insertRule Mozilla CSSStyleSheet.insertRule documentation> -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 ()+-- | <https://developer.mozilla.org/docs/Web/API/CSSStyleSheet/deleteRule MDN CSSStyleSheet.deleteRule documentation>+deleteRule :: (MonadDOM m) => CSSStyleSheet -> Word -> m ()+deleteRule self index = liftDOM (void ((js_deleteRule (self) (index)))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSStyleSheet.deleteRule Mozilla CSSStyleSheet.deleteRule documentation> -deleteRule :: (MonadIO m) => CSSStyleSheet -> Word -> m ()-deleteRule self index = liftIO (js_deleteRule self index)- -foreign import javascript 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+-- | <https://developer.mozilla.org/docs/Web/API/CSSStyleSheet/insertRule MDN CSSStyleSheet.insertRule documentation>+insertRule :: (MonadDOM m, ToJSString rule) => CSSStyleSheet -> rule -> m Word+insertRule self rule = liftDOM ((js_insertRule (self) (toJSString rule))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSStyleSheet.addRule Mozilla CSSStyleSheet.addRule documentation> -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))+-- | <https://developer.mozilla.org/docs/Web/API/CSSStyleSheet/insertRule MDN CSSStyleSheet.insertRule documentation>+insertRule_ :: (MonadDOM m, ToJSString rule) => CSSStyleSheet -> rule -> m ()+insertRule_ self rule = liftDOM (void ((js_insertRule (self) (toJSString rule)))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSStyleSheet.addRule Mozilla CSSStyleSheet.addRule documentation> -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+-- | <https://developer.mozilla.org/docs/Web/API/CSSStyleSheet/insertRule MDN CSSStyleSheet.insertRule documentation>+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'))++-- | <https://developer.mozilla.org/docs/Web/API/CSSStyleSheet/insertRule MDN CSSStyleSheet.insertRule documentation>+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 ()+-- | <https://developer.mozilla.org/docs/Web/API/CSSStyleSheet/removeRule MDN CSSStyleSheet.removeRule documentation>+removeRule :: (MonadDOM m) => CSSStyleSheet -> Maybe Word -> m ()+removeRule self index = liftDOM (void (((P.maybe (P.return jsUndefined) toJSVal index) >>= \a2' -> js_removeRule (self) a2'))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSStyleSheet.removeRule Mozilla CSSStyleSheet.removeRule documentation> -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)+-- | <https://developer.mozilla.org/docs/Web/API/CSSStyleSheet/replace MDN CSSStyleSheet.replace documentation>+replace :: (MonadDOM m, ToJSString text) => CSSStyleSheet -> text -> m CSSStyleSheet+replace self text = liftDOM (((js_replace (self) (toJSString text)) >>= checkPromiseResult))++-- | <https://developer.mozilla.org/docs/Web/API/CSSStyleSheet/replace MDN CSSStyleSheet.replace documentation>+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 ()+-- | <https://developer.mozilla.org/docs/Web/API/CSSStyleSheet/replaceSync MDN CSSStyleSheet.replaceSync documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/CSSStyleSheet/ownerRule MDN CSSStyleSheet.ownerRule documentation>+getOwnerRule :: (MonadDOM m) => CSSStyleSheet -> m (Maybe CSSRule)+getOwnerRule self = liftDOM (((js_getOwnerRule (self)) >>= fromJSValUnchecked)) --- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSStyleSheet.ownerRule Mozilla CSSStyleSheet.ownerRule documentation> -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+-- | <https://developer.mozilla.org/docs/Web/API/CSSStyleSheet/ownerRule MDN CSSStyleSheet.ownerRule documentation>+getOwnerRuleUnsafe :: (MonadDOM m, HasCallStack) => CSSStyleSheet -> m CSSRule+getOwnerRuleUnsafe self = liftDOM ((((js_getOwnerRule (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) --- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSStyleSheet.cssRules Mozilla CSSStyleSheet.cssRules documentation> -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+-- | <https://developer.mozilla.org/docs/Web/API/CSSStyleSheet/ownerRule MDN CSSStyleSheet.ownerRule documentation>+getOwnerRuleUnchecked :: (MonadDOM m) => CSSStyleSheet -> m CSSRule+getOwnerRuleUnchecked self = liftDOM ((pFromJSVal <$> (js_getOwnerRule (self)))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSStyleSheet.rules Mozilla CSSStyleSheet.rules documentation> -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+-- | <https://developer.mozilla.org/docs/Web/API/CSSStyleSheet/cssRules MDN CSSStyleSheet.cssRules documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/CSSStyleSheet/rules MDN CSSStyleSheet.rules documentation>+getRules :: (MonadDOM m) => CSSStyleSheet -> m CSSRuleList+getRules self = liftDOM ((js_getRules (self)))
@@ -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+-- | <https://drafts.csswg.org/cssom-1/#dictdef-cssstylesheetinit CSSStyleSheetInit specification>+newCSSStyleSheetInit :: (MonadDOM m) => m CSSStyleSheetInit+newCSSStyleSheetInit = liftDOM ((js_newCSSStyleSheetInit))++foreign import javascript safe "(($1, $2) => { $1[\"baseURL\"] = $2; })"+ js_setBaseURL :: CSSStyleSheetInit -> (Nullable JSString) -> IO ()+-- | <https://drafts.csswg.org/cssom-1/#dom-cssstylesheetinit-baseurl CSSStyleSheetInit.baseURL specification>+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+-- | <https://drafts.csswg.org/cssom-1/#dom-cssstylesheetinit-baseurl CSSStyleSheetInit.baseURL specification>+getBaseURL :: (MonadDOM m, FromJSString result) => CSSStyleSheetInit -> m (Maybe result)+getBaseURL self = liftDOM (((fromMaybeJSString . Nullable) <$> (js_getBaseURL (self))))++-- | <https://drafts.csswg.org/cssom-1/#dom-cssstylesheetinit-baseurl CSSStyleSheetInit.baseURL specification>+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))++-- | <https://drafts.csswg.org/cssom-1/#dom-cssstylesheetinit-baseurl CSSStyleSheetInit.baseURL specification>+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 ()+-- | <https://drafts.csswg.org/cssom-1/#dom-cssstylesheetinit-media CSSStyleSheetInit.media specification>+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+-- | <https://drafts.csswg.org/cssom-1/#dom-cssstylesheetinit-media CSSStyleSheetInit.media specification>+getMedia :: (MonadDOM m) => CSSStyleSheetInit -> m (Maybe MediaListOrString)+getMedia self = liftDOM (((js_getMedia (self)) >>= fromJSValUnchecked))++-- | <https://drafts.csswg.org/cssom-1/#dom-cssstylesheetinit-media CSSStyleSheetInit.media specification>+getMediaUnsafe :: (MonadDOM m, HasCallStack) => CSSStyleSheetInit -> m MediaListOrString+getMediaUnsafe self = liftDOM ((((js_getMedia (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://drafts.csswg.org/cssom-1/#dom-cssstylesheetinit-media CSSStyleSheetInit.media specification>+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 ()+-- | <https://drafts.csswg.org/cssom-1/#dom-cssstylesheetinit-disabled CSSStyleSheetInit.disabled specification>+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+-- | <https://drafts.csswg.org/cssom-1/#dom-cssstylesheetinit-disabled CSSStyleSheetInit.disabled specification>+getDisabled :: (MonadDOM m) => CSSStyleSheetInit -> m (Maybe Bool)+getDisabled self = liftDOM (((js_getDisabled (self)) >>= fromJSValUnchecked))++-- | <https://drafts.csswg.org/cssom-1/#dom-cssstylesheetinit-disabled CSSStyleSheetInit.disabled specification>+getDisabledUnsafe :: (MonadDOM m, HasCallStack) => CSSStyleSheetInit -> m Bool+getDisabledUnsafe self = liftDOM ((((js_getDisabled (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://drafts.csswg.org/cssom-1/#dom-cssstylesheetinit-disabled CSSStyleSheetInit.disabled specification>+getDisabledUnchecked :: (MonadDOM m) => CSSStyleSheetInit -> m Bool+getDisabledUnchecked self = liftDOM ((pFromJSVal <$> (js_getDisabled (self))))
@@ -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+-- | <https://developer.mozilla.org/docs/Web/API/CSSStyleValue/parse_static MDN CSSStyleValue.parse documentation>+parse :: (MonadDOM m, ToJSString property, ToJSString cssText) => property -> cssText -> m CSSStyleValue+parse property cssText = liftDOM ((js_parse (toJSString property) (toJSString cssText)))++-- | <https://developer.mozilla.org/docs/Web/API/CSSStyleValue/parse_static MDN CSSStyleValue.parse documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/CSSStyleValue/parseAll_static MDN CSSStyleValue.parseAll documentation>+parseAll :: (MonadDOM m, ToJSString property, ToJSString cssText) => property -> cssText -> m [CSSStyleValue]+parseAll property cssText = liftDOM (((js_parseAll (toJSString property) (toJSString cssText)) >>= fromJSValUnchecked))++-- | <https://developer.mozilla.org/docs/Web/API/CSSStyleValue/parseAll_static MDN CSSStyleValue.parseAll documentation>+parseAll_ :: (MonadDOM m, ToJSString property, ToJSString cssText) => property -> cssText -> m ()+parseAll_ property cssText = liftDOM (void ((js_parseAll (toJSString property) (toJSString cssText))))
@@ -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 --- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSSupportsRule.insertRule Mozilla CSSSupportsRule.insertRule documentation> -insertRule ::- (MonadIO m, ToJSString rule) =>- CSSSupportsRule -> rule -> Word -> m Word-insertRule self rule index- = liftIO (js_insertRule self (toJSString rule) index)---- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSSupportsRule.insertRule Mozilla CSSSupportsRule.insertRule documentation> -insertRule_ ::- (MonadIO m, ToJSString rule) =>- CSSSupportsRule -> rule -> Word -> m ()-insertRule_ self rule index- = liftIO (void (js_insertRule self (toJSString rule) index))- -foreign import javascript safe "(($1, $2) => { return $1[\"deleteRule\"]($2); })"- js_deleteRule :: CSSSupportsRule -> Word -> IO ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSSupportsRule.deleteRule Mozilla CSSSupportsRule.deleteRule documentation> -deleteRule :: (MonadIO m) => CSSSupportsRule -> Word -> m ()-deleteRule self index = liftIO (js_deleteRule self index)- -foreign import javascript unsafe "(($1) => { return $1[\"cssRules\"]; })" js_getCssRules- :: CSSSupportsRule -> IO CSSRuleList---- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSSupportsRule.cssRules Mozilla CSSSupportsRule.cssRules documentation> -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---- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSSupportsRule.conditionText Mozilla CSSSupportsRule.conditionText documentation> -getConditionText ::- (MonadIO m, FromJSString result) => CSSSupportsRule -> m result-getConditionText self- = liftIO (fromJSString <$> (js_getConditionText self))
@@ -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+-- | <https://developer.mozilla.org/docs/Web/API/CSSTransformComponent/toMatrix MDN CSSTransformComponent.toMatrix documentation>+toMatrix :: (MonadDOM m, IsCSSTransformComponent self) => self -> m DOMMatrix+toMatrix self = liftDOM ((js_toMatrix ((Types.toCSSTransformComponent self))))++-- | <https://developer.mozilla.org/docs/Web/API/CSSTransformComponent/toMatrix MDN CSSTransformComponent.toMatrix documentation>+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 ()+-- | <https://developer.mozilla.org/docs/Web/API/CSSTransformComponent/is2D MDN CSSTransformComponent.is2D documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/CSSTransformComponent/is2D MDN CSSTransformComponent.is2D documentation>+getIs2D :: (MonadDOM m, IsCSSTransformComponent self) => self -> m Bool+getIs2D self = liftDOM ((js_getIs2D ((Types.toCSSTransformComponent self))))
@@ -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+-- | <https://developer.mozilla.org/docs/Web/API/CSSTransformValue/CSSTransformValue MDN CSSTransformValue. documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/CSSTransformValue/toMatrix MDN CSSTransformValue.toMatrix documentation>+toMatrix :: (MonadDOM m) => CSSTransformValue -> m DOMMatrix+toMatrix self = liftDOM ((js_toMatrix (self)))++-- | <https://developer.mozilla.org/docs/Web/API/CSSTransformValue/toMatrix MDN CSSTransformValue.toMatrix documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/CSSTransformValue/length MDN CSSTransformValue.length documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/CSSTransformValue/is2D MDN CSSTransformValue.is2D documentation>+getIs2D :: (MonadDOM m) => CSSTransformValue -> m Bool+getIs2D self = liftDOM ((js_getIs2D (self)))
@@ -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+-- | <https://developer.mozilla.org/docs/Web/API/CSSTransition/transitionProperty MDN CSSTransition.transitionProperty documentation>+getTransitionProperty :: (MonadDOM m, FromJSString result) => CSSTransition -> m result+getTransitionProperty self = liftDOM ((fromJSString <$> (js_getTransitionProperty (self))))
@@ -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+-- | <https://developer.mozilla.org/docs/Web/API/CSSTranslate/CSSTranslate MDN CSSTranslate. documentation>+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 ()+-- | <https://developer.mozilla.org/docs/Web/API/CSSTranslate/x MDN CSSTranslate.x documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/CSSTranslate/x MDN CSSTranslate.x documentation>+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 ()+-- | <https://developer.mozilla.org/docs/Web/API/CSSTranslate/y MDN CSSTranslate.y documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/CSSTranslate/y MDN CSSTranslate.y documentation>+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 ()+-- | <https://developer.mozilla.org/docs/Web/API/CSSTranslate/z MDN CSSTranslate.z documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/CSSTranslate/z MDN CSSTranslate.z documentation>+getZ :: (MonadDOM m) => CSSTranslate -> m CSSNumericValue+getZ self = liftDOM ((js_getZ (self)))
@@ -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+-- | <https://developer.mozilla.org/docs/Web/API/CSSUnitValue/CSSUnitValue MDN CSSUnitValue. documentation>+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 ()+-- | <https://developer.mozilla.org/docs/Web/API/CSSUnitValue/value MDN CSSUnitValue.value documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/CSSUnitValue/value MDN CSSUnitValue.value documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/CSSUnitValue/unit MDN CSSUnitValue.unit documentation>+getUnit :: (MonadDOM m, FromJSString result) => CSSUnitValue -> m result+getUnit self = liftDOM ((fromJSString <$> (js_getUnit (self))))
@@ -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+-- | <https://developer.mozilla.org/docs/Web/API/CSSUnparsedValue/CSSUnparsedValue MDN CSSUnparsedValue. documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/CSSUnparsedValue/length MDN CSSUnparsedValue.length documentation>+getLength :: (MonadDOM m) => CSSUnparsedValue -> m Word+getLength self = liftDOM ((js_getLength (self)))
@@ -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 ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSValue.cssText Mozilla CSSValue.cssText documentation> -setCssText ::- (MonadIO m, IsCSSValue self, ToJSString val) =>- self -> Maybe val -> m ()-setCssText self val- = liftIO (js_setCssText (toCSSValue self) (toOptionalJSString val))- -foreign import javascript unsafe "(($1) => { return $1[\"cssText\"]; })" js_getCssText ::- CSSValue -> IO (Nullable JSString)---- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSValue.cssText Mozilla CSSValue.cssText documentation> -getCssText ::- (MonadIO m, IsCSSValue self, FromJSString result) =>- self -> m (Maybe result)-getCssText self- = liftIO (fromMaybeJSString <$> (js_getCssText (toCSSValue self)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSValue.cssText Mozilla CSSValue.cssText documentation> -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)---- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSValue.cssText Mozilla CSSValue.cssText documentation> -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---- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSValue.cssValueType Mozilla CSSValue.cssValueType documentation> -getCssValueType :: (MonadIO m, IsCSSValue self) => self -> m Word-getCssValueType self- = liftIO (js_getCssValueType (toCSSValue self))
@@ -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---- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSValueList.item Mozilla CSSValueList.item documentation> -item :: (MonadIO m) => CSSValueList -> Word -> m CSSValue-item self index = liftIO (js_item self index)---- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSValueList.item Mozilla CSSValueList.item documentation> -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---- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSValueList.length Mozilla CSSValueList.length documentation> -getLength :: (MonadIO m) => CSSValueList -> m Word-getLength self = liftIO (js_getLength self)
@@ -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+-- | <https://developer.mozilla.org/docs/Web/API/CSSVariableReferenceValue/CSSVariableReferenceValue MDN CSSVariableReferenceValue. documentation>+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 ()+-- | <https://developer.mozilla.org/docs/Web/API/CSSVariableReferenceValue/variable MDN CSSVariableReferenceValue.variable documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/CSSVariableReferenceValue/variable MDN CSSVariableReferenceValue.variable documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/CSSVariableReferenceValue/fallback MDN CSSVariableReferenceValue.fallback documentation>+getFallback :: (MonadDOM m) => CSSVariableReferenceValue -> m (Maybe CSSUnparsedValue)+getFallback self = liftDOM (((js_getFallback (self)) >>= fromJSValUnchecked))++-- | <https://developer.mozilla.org/docs/Web/API/CSSVariableReferenceValue/fallback MDN CSSVariableReferenceValue.fallback documentation>+getFallbackUnsafe :: (MonadDOM m, HasCallStack) => CSSVariableReferenceValue -> m CSSUnparsedValue+getFallbackUnsafe self = liftDOM ((((js_getFallback (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://developer.mozilla.org/docs/Web/API/CSSVariableReferenceValue/fallback MDN CSSVariableReferenceValue.fallback documentation>+getFallbackUnchecked :: (MonadDOM m) => CSSVariableReferenceValue -> m CSSUnparsedValue+getFallbackUnchecked self = liftDOM ((pFromJSVal <$> (js_getFallback (self))))
@@ -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+-- | <https://developer.mozilla.org/docs/Web/API/CSSViewTransitionRule/navigation MDN CSSViewTransitionRule.navigation documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/CSSViewTransitionRule/types MDN CSSViewTransitionRule.types documentation>+getTypes :: (MonadDOM m, FromJSString result) => CSSViewTransitionRule -> m [result]+getTypes self = liftDOM (((js_getTypes (self)) >>= fromJSValUnchecked))
@@ -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, ())+-- | <https://developer.mozilla.org/docs/Web/API/Cache/add MDN Cache.add documentation>+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, ())+-- | <https://developer.mozilla.org/docs/Web/API/Cache/addAll MDN Cache.addAll documentation>+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)+-- | <https://developer.mozilla.org/docs/Web/API/Cache/delete MDN Cache.delete documentation>+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))++-- | <https://developer.mozilla.org/docs/Web/API/Cache/delete MDN Cache.delete documentation>+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)+-- | <https://developer.mozilla.org/docs/Web/API/Cache/keys MDN Cache.keys documentation>+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))++-- | <https://developer.mozilla.org/docs/Web/API/Cache/keys MDN Cache.keys documentation>+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)+-- | <https://developer.mozilla.org/docs/Web/API/Cache/match MDN Cache.match documentation>+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))++-- | <https://developer.mozilla.org/docs/Web/API/Cache/match MDN Cache.match documentation>+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)+-- | <https://developer.mozilla.org/docs/Web/API/Cache/matchAll MDN Cache.matchAll documentation>+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))++-- | <https://developer.mozilla.org/docs/Web/API/Cache/matchAll MDN Cache.matchAll documentation>+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, ())+-- | <https://developer.mozilla.org/docs/Web/API/Cache/put MDN Cache.put documentation>+put :: (MonadDOM m, IsRequestInfo request) => Cache -> request -> Response -> m ()+put self request response = liftDOM (void (((js_put (self) (Types.toRequestInfo request) (response)) >>= checkPromiseResult)))
@@ -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+-- | <https://w3c.github.io/ServiceWorker/#dictdef-cachequeryoptions CacheQueryOptions specification>+newCacheQueryOptions :: (MonadDOM m) => m CacheQueryOptions+newCacheQueryOptions = liftDOM ((js_newCacheQueryOptions))++foreign import javascript safe "(($1, $2) => { $1[\"ignoreSearch\"] = $2; })"+ js_setIgnoreSearch :: CacheQueryOptions -> Bool -> IO ()+-- | <https://w3c.github.io/ServiceWorker/#dom-cachequeryoptions-ignoresearch CacheQueryOptions.ignoreSearch specification>+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+-- | <https://w3c.github.io/ServiceWorker/#dom-cachequeryoptions-ignoresearch CacheQueryOptions.ignoreSearch specification>+getIgnoreSearch :: (MonadDOM m, IsCacheQueryOptions self) => self -> m (Maybe Bool)+getIgnoreSearch self = liftDOM (((js_getIgnoreSearch ((Types.toCacheQueryOptions self))) >>= fromJSValUnchecked))++-- | <https://w3c.github.io/ServiceWorker/#dom-cachequeryoptions-ignoresearch CacheQueryOptions.ignoreSearch specification>+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))++-- | <https://w3c.github.io/ServiceWorker/#dom-cachequeryoptions-ignoresearch CacheQueryOptions.ignoreSearch specification>+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 ()+-- | <https://w3c.github.io/ServiceWorker/#dom-cachequeryoptions-ignoremethod CacheQueryOptions.ignoreMethod specification>+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+-- | <https://w3c.github.io/ServiceWorker/#dom-cachequeryoptions-ignoremethod CacheQueryOptions.ignoreMethod specification>+getIgnoreMethod :: (MonadDOM m, IsCacheQueryOptions self) => self -> m (Maybe Bool)+getIgnoreMethod self = liftDOM (((js_getIgnoreMethod ((Types.toCacheQueryOptions self))) >>= fromJSValUnchecked))++-- | <https://w3c.github.io/ServiceWorker/#dom-cachequeryoptions-ignoremethod CacheQueryOptions.ignoreMethod specification>+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))++-- | <https://w3c.github.io/ServiceWorker/#dom-cachequeryoptions-ignoremethod CacheQueryOptions.ignoreMethod specification>+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 ()+-- | <https://w3c.github.io/ServiceWorker/#dom-cachequeryoptions-ignorevary CacheQueryOptions.ignoreVary specification>+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+-- | <https://w3c.github.io/ServiceWorker/#dom-cachequeryoptions-ignorevary CacheQueryOptions.ignoreVary specification>+getIgnoreVary :: (MonadDOM m, IsCacheQueryOptions self) => self -> m (Maybe Bool)+getIgnoreVary self = liftDOM (((js_getIgnoreVary ((Types.toCacheQueryOptions self))) >>= fromJSValUnchecked))++-- | <https://w3c.github.io/ServiceWorker/#dom-cachequeryoptions-ignorevary CacheQueryOptions.ignoreVary specification>+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))++-- | <https://w3c.github.io/ServiceWorker/#dom-cachequeryoptions-ignorevary CacheQueryOptions.ignoreVary specification>+getIgnoreVaryUnchecked :: (MonadDOM m, IsCacheQueryOptions self) => self -> m Bool+getIgnoreVaryUnchecked self = liftDOM ((pFromJSVal <$> (js_getIgnoreVary ((Types.toCacheQueryOptions self)))))
@@ -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)+-- | <https://developer.mozilla.org/docs/Web/API/CacheStorage/delete MDN CacheStorage.delete documentation>+delete :: (MonadDOM m, ToJSString cacheName) => CacheStorage -> cacheName -> m Bool+delete self cacheName = liftDOM (((js_delete (self) (toJSString cacheName)) >>= checkPromiseResult))++-- | <https://developer.mozilla.org/docs/Web/API/CacheStorage/delete MDN CacheStorage.delete documentation>+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)+-- | <https://developer.mozilla.org/docs/Web/API/CacheStorage/has MDN CacheStorage.has documentation>+has :: (MonadDOM m, ToJSString cacheName) => CacheStorage -> cacheName -> m Bool+has self cacheName = liftDOM (((js_has (self) (toJSString cacheName)) >>= checkPromiseResult))++-- | <https://developer.mozilla.org/docs/Web/API/CacheStorage/has MDN CacheStorage.has documentation>+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)+-- | <https://developer.mozilla.org/docs/Web/API/CacheStorage/keys MDN CacheStorage.keys documentation>+keys :: (MonadDOM m, FromJSString result) => CacheStorage -> m [result]+keys self = liftDOM ((((js_keys (self)) >>= checkPromiseResult) >>= fromJSValUnchecked))++-- | <https://developer.mozilla.org/docs/Web/API/CacheStorage/keys MDN CacheStorage.keys documentation>+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)+-- | <https://developer.mozilla.org/docs/Web/API/CacheStorage/match MDN CacheStorage.match documentation>+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))++-- | <https://developer.mozilla.org/docs/Web/API/CacheStorage/match MDN CacheStorage.match documentation>+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)+-- | <https://developer.mozilla.org/docs/Web/API/CacheStorage/open MDN CacheStorage.open documentation>+open :: (MonadDOM m, ToJSString cacheName) => CacheStorage -> cacheName -> m Cache+open self cacheName = liftDOM (((js_open (self) (toJSString cacheName)) >>= checkPromiseResult))++-- | <https://developer.mozilla.org/docs/Web/API/CacheStorage/open MDN CacheStorage.open documentation>+open_ :: (MonadDOM m, ToJSString cacheName) => CacheStorage -> cacheName -> m ()+open_ self cacheName = liftDOM (void (((js_open (self) (toJSString cacheName)) >>= checkPromiseResult)))
@@ -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 () --- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasCaptureMediaStreamTrack.requestFrame Mozilla CanvasCaptureMediaStreamTrack.requestFrame documentation> -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 ()+-- | <https://developer.mozilla.org/docs/Web/API/CanvasCaptureMediaStreamTrack/requestFrame MDN CanvasCaptureMediaStreamTrack.requestFrame documentation>+requestFrame :: (MonadDOM m) => CanvasCaptureMediaStreamTrack -> m ()+requestFrame self = liftDOM (void ((js_requestFrame (self)))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasCaptureMediaStreamTrack.canvas Mozilla CanvasCaptureMediaStreamTrack.canvas documentation> -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+-- | <https://developer.mozilla.org/docs/Web/API/CanvasCaptureMediaStreamTrack/canvas MDN CanvasCaptureMediaStreamTrack.canvas documentation>+getCanvas :: (MonadDOM m) => CanvasCaptureMediaStreamTrack -> m HTMLCanvasElement+getCanvas self = liftDOM ((js_getCanvas (self)))
@@ -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 ()+-- | <https://developer.mozilla.org/docs/Web/API/CanvasRenderingContext2D/globalAlpha MDN CanvasCompositing.globalAlpha documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/CanvasRenderingContext2D/globalAlpha MDN CanvasCompositing.globalAlpha documentation>+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 ()+-- | <https://developer.mozilla.org/docs/Web/API/CanvasRenderingContext2D/globalCompositeOperation MDN CanvasCompositing.globalCompositeOperation documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/CanvasRenderingContext2D/globalCompositeOperation MDN CanvasCompositing.globalCompositeOperation documentation>+getGlobalCompositeOperation :: (MonadDOM m, IsCanvasCompositing self, FromJSString result) => self -> m result+getGlobalCompositeOperation self = liftDOM ((fromJSString <$> (js_getGlobalCompositeOperation ((Types.toCanvasCompositing self)))))
@@ -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 ()+-- | <https://developer.mozilla.org/docs/Web/API/CanvasRenderingContext2D/drawImage MDN CanvasDrawImage.drawImage documentation>+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 ()+-- | <https://developer.mozilla.org/docs/Web/API/CanvasRenderingContext2D/drawImage MDN CanvasDrawImage.drawImage documentation>+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 ()+-- | <https://developer.mozilla.org/docs/Web/API/CanvasRenderingContext2D/drawImage MDN CanvasDrawImage.drawImage documentation>+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))))
@@ -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 ()+-- | <https://developer.mozilla.org/docs/Web/API/CanvasRenderingContext2D/beginPath MDN CanvasDrawPath.beginPath documentation>+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 ()+-- | <https://developer.mozilla.org/docs/Web/API/CanvasRenderingContext2D/clip MDN CanvasDrawPath.clip documentation>+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 ()+-- | <https://developer.mozilla.org/docs/Web/API/CanvasRenderingContext2D/clip MDN CanvasDrawPath.clip documentation>+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 ()+-- | <https://developer.mozilla.org/docs/Web/API/CanvasRenderingContext2D/fill MDN CanvasDrawPath.fill documentation>+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 ()+-- | <https://developer.mozilla.org/docs/Web/API/CanvasRenderingContext2D/fill MDN CanvasDrawPath.fill documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/CanvasRenderingContext2D/isPointInPath MDN CanvasDrawPath.isPointInPath documentation>+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'))++-- | <https://developer.mozilla.org/docs/Web/API/CanvasRenderingContext2D/isPointInPath MDN CanvasDrawPath.isPointInPath documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/CanvasRenderingContext2D/isPointInPath MDN CanvasDrawPath.isPointInPath documentation>+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'))++-- | <https://developer.mozilla.org/docs/Web/API/CanvasRenderingContext2D/isPointInPath MDN CanvasDrawPath.isPointInPath documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/CanvasRenderingContext2D/isPointInStroke MDN CanvasDrawPath.isPointInStroke documentation>+isPointInStroke :: (MonadDOM m, IsCanvasDrawPath self) => self -> Double -> Double -> m Bool+isPointInStroke self x y = liftDOM ((js_isPointInStroke ((Types.toCanvasDrawPath self)) (x) (y)))++-- | <https://developer.mozilla.org/docs/Web/API/CanvasRenderingContext2D/isPointInStroke MDN CanvasDrawPath.isPointInStroke documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/CanvasRenderingContext2D/isPointInStroke MDN CanvasDrawPath.isPointInStroke documentation>+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)))++-- | <https://developer.mozilla.org/docs/Web/API/CanvasRenderingContext2D/isPointInStroke MDN CanvasDrawPath.isPointInStroke documentation>+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 ()+-- | <https://developer.mozilla.org/docs/Web/API/CanvasRenderingContext2D/stroke MDN CanvasDrawPath.stroke documentation>+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 ()+-- | <https://developer.mozilla.org/docs/Web/API/CanvasRenderingContext2D/stroke MDN CanvasDrawPath.stroke documentation>+strokePath :: (MonadDOM m, IsCanvasDrawPath self) => self -> Path2D -> m ()+strokePath self path = liftDOM (void ((js_strokePath ((Types.toCanvasDrawPath self)) (path))))
@@ -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+-- | <https://developer.mozilla.org/docs/Web/API/CanvasRenderingContext2D/createConicGradient MDN CanvasFillStrokeStyles.createConicGradient documentation>+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)))++-- | <https://developer.mozilla.org/docs/Web/API/CanvasRenderingContext2D/createConicGradient MDN CanvasFillStrokeStyles.createConicGradient documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/CanvasRenderingContext2D/createLinearGradient MDN CanvasFillStrokeStyles.createLinearGradient documentation>+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)))++-- | <https://developer.mozilla.org/docs/Web/API/CanvasRenderingContext2D/createLinearGradient MDN CanvasFillStrokeStyles.createLinearGradient documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/CanvasRenderingContext2D/createPattern MDN CanvasFillStrokeStyles.createPattern documentation>+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))++-- | <https://developer.mozilla.org/docs/Web/API/CanvasRenderingContext2D/createPattern MDN CanvasFillStrokeStyles.createPattern documentation>+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))))++-- | <https://developer.mozilla.org/docs/Web/API/CanvasRenderingContext2D/createPattern MDN CanvasFillStrokeStyles.createPattern documentation>+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))++-- | <https://developer.mozilla.org/docs/Web/API/CanvasRenderingContext2D/createPattern MDN CanvasFillStrokeStyles.createPattern documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/CanvasRenderingContext2D/createRadialGradient MDN CanvasFillStrokeStyles.createRadialGradient documentation>+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)))++-- | <https://developer.mozilla.org/docs/Web/API/CanvasRenderingContext2D/createRadialGradient MDN CanvasFillStrokeStyles.createRadialGradient documentation>+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 ()+-- | <https://developer.mozilla.org/docs/Web/API/CanvasRenderingContext2D/strokeStyle MDN CanvasFillStrokeStyles.strokeStyle documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/CanvasRenderingContext2D/strokeStyle MDN CanvasFillStrokeStyles.strokeStyle documentation>+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 ()+-- | <https://developer.mozilla.org/docs/Web/API/CanvasRenderingContext2D/fillStyle MDN CanvasFillStrokeStyles.fillStyle documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/CanvasRenderingContext2D/fillStyle MDN CanvasFillStrokeStyles.fillStyle documentation>+getFillStyle :: (MonadDOM m, IsCanvasFillStrokeStyles self) => self -> m StringOrCanvasGradientOrCanvasPattern+getFillStyle self = liftDOM ((js_getFillStyle ((Types.toCanvasFillStrokeStyles self))))
@@ -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 ()+-- | <https://developer.mozilla.org/docs/Web/API/CanvasRenderingContext2D/filter MDN CanvasFilters.filter documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/CanvasRenderingContext2D/filter MDN CanvasFilters.filter documentation>+getFilter :: (MonadDOM m, IsCanvasFilters self, FromJSString result) => self -> m result+getFilter self = liftDOM ((fromJSString <$> (js_getFilter ((Types.toCanvasFilters self)))))
@@ -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 () --- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasGradient.addColorStop Mozilla CanvasGradient.addColorStop documentation> -addColorStop ::- (MonadIO m, ToJSString color) =>- CanvasGradient -> Float -> color -> m ()-addColorStop self offset color- = liftIO (js_addColorStop self offset (toJSString color))+foreign import javascript safe "(($1, $2, $3) => { return $1[\"addColorStop\"]($2, $3); })"+ js_addColorStop :: CanvasGradient -> Double -> JSString -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/CanvasGradient/addColorStop MDN CanvasGradient.addColorStop documentation>+addColorStop :: (MonadDOM m, ToJSString color) => CanvasGradient -> Double -> color -> m ()+addColorStop self offset color = liftDOM (void ((js_addColorStop (self) (offset) (toJSString color))))
@@ -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+-- | <https://developer.mozilla.org/docs/Web/API/CanvasRenderingContext2D/createImageData MDN CanvasImageData.createImageData documentation>+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'))++-- | <https://developer.mozilla.org/docs/Web/API/CanvasRenderingContext2D/createImageData MDN CanvasImageData.createImageData documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/CanvasRenderingContext2D/createImageData MDN CanvasImageData.createImageData documentation>+createImageData :: (MonadDOM m, IsCanvasImageData self) => self -> ImageData -> m ImageData+createImageData self imageData = liftDOM ((js_createImageData ((Types.toCanvasImageData self)) (imageData)))++-- | <https://developer.mozilla.org/docs/Web/API/CanvasRenderingContext2D/createImageData MDN CanvasImageData.createImageData documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/CanvasRenderingContext2D/getImageData MDN CanvasImageData.getImageData documentation>+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)))++-- | <https://developer.mozilla.org/docs/Web/API/CanvasRenderingContext2D/getImageData MDN CanvasImageData.getImageData documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/CanvasRenderingContext2D/getImageData MDN CanvasImageData.getImageData documentation>+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'))++-- | <https://developer.mozilla.org/docs/Web/API/CanvasRenderingContext2D/getImageData MDN CanvasImageData.getImageData documentation>+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 ()+-- | <https://developer.mozilla.org/docs/Web/API/CanvasRenderingContext2D/putImageData MDN CanvasImageData.putImageData documentation>+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 ()+-- | <https://developer.mozilla.org/docs/Web/API/CanvasRenderingContext2D/putImageData MDN CanvasImageData.putImageData documentation>+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))))
@@ -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 ()+-- | <https://developer.mozilla.org/docs/Web/API/CanvasRenderingContext2D/imageSmoothingEnabled MDN CanvasImageSmoothing.imageSmoothingEnabled documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/CanvasRenderingContext2D/imageSmoothingEnabled MDN CanvasImageSmoothing.imageSmoothingEnabled documentation>+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 ()+-- | <https://developer.mozilla.org/docs/Web/API/CanvasRenderingContext2D/imageSmoothingQuality MDN CanvasImageSmoothing.imageSmoothingQuality documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/CanvasRenderingContext2D/imageSmoothingQuality MDN CanvasImageSmoothing.imageSmoothingQuality documentation>+getImageSmoothingQuality :: (MonadDOM m, IsCanvasImageSmoothing self) => self -> m ImageSmoothingQuality+getImageSmoothingQuality self = liftDOM (((js_getImageSmoothingQuality ((Types.toCanvasImageSmoothing self))) >>= fromJSValUnchecked))
@@ -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 () --- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasPath.closePath Mozilla CanvasPath.closePath documentation> -closePath :: (MonadIO m, IsCanvasPath self) => self -> m ()-closePath self = liftIO (js_closePath (toCanvasPath self))- -foreign import javascript unsafe "(($1, $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 ()+-- | <https://developer.mozilla.org/docs/Web/API/CanvasRenderingContext2D/arc MDN CanvasPath.arc documentation>+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'))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasPath.moveTo Mozilla CanvasPath.moveTo documentation> -moveTo ::- (MonadIO m, IsCanvasPath self) => self -> Double -> Double -> m ()-moveTo self x y = liftIO (js_moveTo (toCanvasPath self) x y)- -foreign import javascript unsafe "(($1, $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 ()+-- | <https://developer.mozilla.org/docs/Web/API/CanvasRenderingContext2D/arcTo MDN CanvasPath.arcTo documentation>+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)))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasPath.lineTo Mozilla CanvasPath.lineTo documentation> -lineTo ::- (MonadIO m, IsCanvasPath self) => self -> Double -> Double -> m ()-lineTo self x y = liftIO (js_lineTo (toCanvasPath self) x y)- -foreign import javascript unsafe- "(($1, $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 ()+-- | <https://developer.mozilla.org/docs/Web/API/CanvasRenderingContext2D/bezierCurveTo MDN CanvasPath.bezierCurveTo documentation>+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)))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasPath.quadraticCurveTo Mozilla CanvasPath.quadraticCurveTo documentation> -quadraticCurveTo ::- (MonadIO m, IsCanvasPath self) =>- self -> Double -> Double -> Double -> Double -> m ()-quadraticCurveTo self cpx cpy x y- = liftIO (js_quadraticCurveTo (toCanvasPath self) cpx cpy x y)- -foreign import javascript unsafe- "(($1, $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 ()+-- | <https://developer.mozilla.org/docs/Web/API/CanvasRenderingContext2D/closePath MDN CanvasPath.closePath documentation>+closePath :: (MonadDOM m, IsCanvasPath self) => self -> m ()+closePath self = liftDOM (void ((js_closePath ((Types.toCanvasPath self))))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasPath.bezierCurveTo Mozilla CanvasPath.bezierCurveTo documentation> -bezierCurveTo ::- (MonadIO m, IsCanvasPath self) =>- self ->- Double -> Double -> Double -> Double -> Double -> Double -> m ()-bezierCurveTo self cp1x cp1y cp2x cp2y x y- = liftIO- (js_bezierCurveTo (toCanvasPath self) cp1x cp1y cp2x cp2y x y)- -foreign import javascript 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 ()+-- | <https://developer.mozilla.org/docs/Web/API/CanvasRenderingContext2D/ellipse MDN CanvasPath.ellipse documentation>+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'))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasPath.arcTo Mozilla CanvasPath.arcTo documentation> -arcTo ::- (MonadIO m, IsCanvasPath self) =>- self -> Double -> Double -> Double -> Double -> Double -> m ()-arcTo self x1 y1 x2 y2 radius- = liftIO (js_arcTo (toCanvasPath self) x1 y1 x2 y2 radius)- -foreign import javascript unsafe "(($1, $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 ()+-- | <https://developer.mozilla.org/docs/Web/API/CanvasRenderingContext2D/lineTo MDN CanvasPath.lineTo documentation>+lineTo :: (MonadDOM m, IsCanvasPath self) => self -> Double -> Double -> m ()+lineTo self x y = liftDOM (void ((js_lineTo ((Types.toCanvasPath self)) (x) (y)))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasPath.rect Mozilla CanvasPath.rect documentation> -rect ::- (MonadIO m, IsCanvasPath self) =>- self -> Double -> Double -> Double -> Double -> m ()-rect self x y w h = liftIO (js_rect (toCanvasPath self) x y w h)- -foreign import javascript 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 ()+-- | <https://developer.mozilla.org/docs/Web/API/CanvasRenderingContext2D/moveTo MDN CanvasPath.moveTo documentation>+moveTo :: (MonadDOM m, IsCanvasPath self) => self -> Double -> Double -> m ()+moveTo self x y = liftDOM (void ((js_moveTo ((Types.toCanvasPath self)) (x) (y)))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasPath.arc Mozilla CanvasPath.arc documentation> -arc ::- (MonadIO m, IsCanvasPath self) =>- self ->- Double -> Double -> Double -> Double -> Double -> Bool -> m ()-arc self x y radius startAngle endAngle anticlockwise- = liftIO- (js_arc (toCanvasPath self) x y radius startAngle endAngle- anticlockwise)- -foreign import javascript 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 ()+-- | <https://developer.mozilla.org/docs/Web/API/CanvasRenderingContext2D/quadraticCurveTo MDN CanvasPath.quadraticCurveTo documentation>+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)))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasPath.ellipse Mozilla CanvasPath.ellipse documentation> -ellipse ::- (MonadIO m, IsCanvasPath self) =>- self ->- Double ->- Double ->- Double -> Double -> Double -> Double -> Double -> Bool -> m ()-ellipse self x y radiusX radiusY rotation startAngle endAngle- anticlockwise- = liftIO- (js_ellipse (toCanvasPath self) x y radiusX radiusY rotation- startAngle- endAngle- anticlockwise)+foreign import javascript safe "(($1, $2, $3, $4, $5) => { return $1[\"rect\"]($2, $3, $4, $5); })"+ js_rect :: CanvasPath -> Double -> Double -> Double -> Double -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/CanvasRenderingContext2D/rect MDN CanvasPath.rect documentation>+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 ()+-- | <https://developer.mozilla.org/docs/Web/API/CanvasRenderingContext2D/roundRect MDN CanvasPath.roundRect documentation>+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')))
@@ -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+-- | <https://developer.mozilla.org/docs/Web/API/CanvasRenderingContext2D/getLineDash MDN CanvasPathDrawingStyles.getLineDash documentation>+getLineDash :: (MonadDOM m, IsCanvasPathDrawingStyles self) => self -> m [Double]+getLineDash self = liftDOM (((js_getLineDash ((Types.toCanvasPathDrawingStyles self))) >>= fromJSValUnchecked))++-- | <https://developer.mozilla.org/docs/Web/API/CanvasRenderingContext2D/getLineDash MDN CanvasPathDrawingStyles.getLineDash documentation>+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 ()+-- | <https://developer.mozilla.org/docs/Web/API/CanvasRenderingContext2D/setLineDash MDN CanvasPathDrawingStyles.setLineDash documentation>+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 ()+-- | <https://developer.mozilla.org/docs/Web/API/CanvasRenderingContext2D/lineWidth MDN CanvasPathDrawingStyles.lineWidth documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/CanvasRenderingContext2D/lineWidth MDN CanvasPathDrawingStyles.lineWidth documentation>+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 ()+-- | <https://developer.mozilla.org/docs/Web/API/CanvasRenderingContext2D/lineCap MDN CanvasPathDrawingStyles.lineCap documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/CanvasRenderingContext2D/lineCap MDN CanvasPathDrawingStyles.lineCap documentation>+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 ()+-- | <https://developer.mozilla.org/docs/Web/API/CanvasRenderingContext2D/lineJoin MDN CanvasPathDrawingStyles.lineJoin documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/CanvasRenderingContext2D/lineJoin MDN CanvasPathDrawingStyles.lineJoin documentation>+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 ()+-- | <https://developer.mozilla.org/docs/Web/API/CanvasRenderingContext2D/miterLimit MDN CanvasPathDrawingStyles.miterLimit documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/CanvasRenderingContext2D/miterLimit MDN CanvasPathDrawingStyles.miterLimit documentation>+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 ()+-- | <https://developer.mozilla.org/docs/Web/API/CanvasRenderingContext2D/lineDashOffset MDN CanvasPathDrawingStyles.lineDashOffset documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/CanvasRenderingContext2D/lineDashOffset MDN CanvasPathDrawingStyles.lineDashOffset documentation>+getLineDashOffset :: (MonadDOM m, IsCanvasPathDrawingStyles self) => self -> m Double+getLineDashOffset self = liftDOM ((js_getLineDashOffset ((Types.toCanvasPathDrawingStyles self))))
@@ -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 ()+-- | <https://developer.mozilla.org/docs/Web/API/CanvasPattern/setTransform MDN CanvasPattern.setTransform documentation>+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')))
@@ -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 ()+-- | <https://developer.mozilla.org/docs/Web/API/CanvasRenderingContext2D/clearRect MDN CanvasRect.clearRect documentation>+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 ()+-- | <https://developer.mozilla.org/docs/Web/API/CanvasRenderingContext2D/fillRect MDN CanvasRect.fillRect documentation>+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 ()+-- | <https://developer.mozilla.org/docs/Web/API/CanvasRenderingContext2D/strokeRect MDN CanvasRect.strokeRect documentation>+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))))
@@ -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 ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.save Mozilla CanvasRenderingContext2D.save documentation> -save :: (MonadIO m) => CanvasRenderingContext2D -> m ()-save self = liftIO (js_save self)- -foreign import javascript unsafe "(($1) => { return $1[\"restore\"](); })" js_restore ::- CanvasRenderingContext2D -> IO ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.restore Mozilla CanvasRenderingContext2D.restore documentation> -restore :: (MonadIO m) => CanvasRenderingContext2D -> m ()-restore self = liftIO (js_restore self)- -foreign import javascript unsafe "(($1) => { return $1[\"commit\"](); })" js_commit ::- CanvasRenderingContext2D -> IO ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.commit Mozilla CanvasRenderingContext2D.commit documentation> -commit :: (MonadIO m) => CanvasRenderingContext2D -> m ()-commit self = liftIO (js_commit self)- -foreign import javascript unsafe "(($1, $2, $3) => { return $1[\"scale\"]($2, $3); })" js_scale- :: CanvasRenderingContext2D -> Float -> Float -> IO ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.scale Mozilla CanvasRenderingContext2D.scale documentation> -scale ::- (MonadIO m) => CanvasRenderingContext2D -> Float -> Float -> m ()-scale self sx sy = liftIO (js_scale self sx sy)- -foreign import javascript unsafe "(($1, $2) => { return $1[\"rotate\"]($2); })" js_rotate ::- CanvasRenderingContext2D -> Float -> IO ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.rotate Mozilla CanvasRenderingContext2D.rotate documentation> -rotate :: (MonadIO m) => CanvasRenderingContext2D -> Float -> m ()-rotate self angle = liftIO (js_rotate self angle)- -foreign import javascript unsafe "(($1, $2, $3) => { return $1[\"translate\"]($2, $3); })"- js_translate :: CanvasRenderingContext2D -> Float -> Float -> IO ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.translate Mozilla CanvasRenderingContext2D.translate documentation> -translate ::- (MonadIO m) => CanvasRenderingContext2D -> Float -> Float -> m ()-translate self tx ty = liftIO (js_translate self tx ty)- -foreign import javascript unsafe- "(($1, $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 ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.transform Mozilla CanvasRenderingContext2D.transform documentation> -transform ::- (MonadIO m) =>- CanvasRenderingContext2D ->- Float -> Float -> Float -> Float -> Float -> Float -> m ()-transform self m11 m12 m21 m22 dx dy- = liftIO (js_transform self m11 m12 m21 m22 dx dy)- -foreign import javascript unsafe- "(($1, $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 ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.setTransform Mozilla CanvasRenderingContext2D.setTransform documentation> -setTransform ::- (MonadIO m) =>- CanvasRenderingContext2D ->- Float -> Float -> Float -> Float -> Float -> Float -> m ()-setTransform self m11 m12 m21 m22 dx dy- = liftIO (js_setTransform self m11 m12 m21 m22 dx dy)- -foreign import javascript unsafe "(($1) => { return $1[\"resetTransform\"](); })"- js_resetTransform :: CanvasRenderingContext2D -> IO ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.resetTransform Mozilla CanvasRenderingContext2D.resetTransform documentation> -resetTransform :: (MonadIO m) => CanvasRenderingContext2D -> m ()-resetTransform self = liftIO (js_resetTransform self)- -foreign import javascript unsafe "(($1, $2) => { return $1[\"setLineDash\"]($2); })"- js_setLineDash :: CanvasRenderingContext2D -> JSVal -> IO ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.setLineDash Mozilla CanvasRenderingContext2D.setLineDash documentation> -setLineDash ::- (MonadIO m) => CanvasRenderingContext2D -> [Float] -> m ()-setLineDash self dash- = liftIO (toJSVal dash >>= \ dash' -> js_setLineDash self dash')- -foreign import javascript unsafe "(($1) => { return $1[\"getLineDash\"](); })"- js_getLineDash :: CanvasRenderingContext2D -> IO JSVal---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.getLineDash Mozilla CanvasRenderingContext2D.getLineDash documentation> -getLineDash :: (MonadIO m) => CanvasRenderingContext2D -> m [Float]-getLineDash self- = liftIO ((js_getLineDash self) >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.getLineDash Mozilla CanvasRenderingContext2D.getLineDash documentation> -getLineDash_ :: (MonadIO m) => CanvasRenderingContext2D -> m ()-getLineDash_ self = liftIO (void (js_getLineDash self))- -foreign import javascript unsafe- "(($1, $2, $3, $4, $5) => { return $1[\"clearRect\"]($2, $3, $4, $5); })" js_clearRect ::- CanvasRenderingContext2D ->- Float -> Float -> Float -> Float -> IO ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.clearRect Mozilla CanvasRenderingContext2D.clearRect documentation> -clearRect ::- (MonadIO m) =>- CanvasRenderingContext2D ->- Float -> Float -> Float -> Float -> m ()-clearRect self x y width height- = liftIO (js_clearRect self x y width height)- -foreign import javascript unsafe "(($1, $2, $3, $4, $5) => { return $1[\"fillRect\"]($2, $3, $4, $5); })"- js_fillRect ::- CanvasRenderingContext2D ->- Float -> Float -> Float -> Float -> IO ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.fillRect Mozilla CanvasRenderingContext2D.fillRect documentation> -fillRect ::- (MonadIO m) =>- CanvasRenderingContext2D ->- Float -> Float -> Float -> Float -> m ()-fillRect self x y width height- = liftIO (js_fillRect self x y width height)- -foreign import javascript unsafe "(($1) => { return $1[\"beginPath\"](); })" js_beginPath- :: CanvasRenderingContext2D -> IO ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.beginPath Mozilla CanvasRenderingContext2D.beginPath documentation> -beginPath :: (MonadIO m) => CanvasRenderingContext2D -> m ()-beginPath self = liftIO (js_beginPath self)- -foreign import javascript unsafe "(($1, $2, $3) => { return $1[\"fill\"]($2, $3); })" js_fillPath- ::- CanvasRenderingContext2D ->- Path2D -> Optional CanvasWindingRule -> IO ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.fill Mozilla CanvasRenderingContext2D.fill documentation> -fillPath ::- (MonadIO m) =>- CanvasRenderingContext2D ->- Path2D -> Maybe CanvasWindingRule -> m ()-fillPath self path winding- = liftIO (js_fillPath self path (maybeToOptional winding))- -foreign import javascript unsafe "(($1, $2) => { return $1[\"stroke\"]($2); })" js_strokePath- :: CanvasRenderingContext2D -> Path2D -> IO ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.stroke Mozilla CanvasRenderingContext2D.stroke documentation> -strokePath ::- (MonadIO m) => CanvasRenderingContext2D -> Path2D -> m ()-strokePath self path = liftIO (js_strokePath self path)- -foreign import javascript unsafe "(($1, $2, $3) => { return $1[\"clip\"]($2, $3); })" js_clipPath- ::- CanvasRenderingContext2D ->- Path2D -> Optional CanvasWindingRule -> IO ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.clip Mozilla CanvasRenderingContext2D.clip documentation> -clipPath ::- (MonadIO m) =>- CanvasRenderingContext2D ->- Path2D -> Maybe CanvasWindingRule -> m ()-clipPath self path winding- = liftIO (js_clipPath self path (maybeToOptional winding))- -foreign import javascript unsafe "(($1, $2) => { return $1[\"fill\"]($2); })" js_fill ::- CanvasRenderingContext2D -> Optional CanvasWindingRule -> IO ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.fill Mozilla CanvasRenderingContext2D.fill documentation> -fill ::- (MonadIO m) =>- CanvasRenderingContext2D -> Maybe CanvasWindingRule -> m ()-fill self winding = liftIO (js_fill self (maybeToOptional winding))- -foreign import javascript unsafe "(($1) => { return $1[\"stroke\"](); })" js_stroke ::- CanvasRenderingContext2D -> IO ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.stroke Mozilla CanvasRenderingContext2D.stroke documentation> -stroke :: (MonadIO m) => CanvasRenderingContext2D -> m ()-stroke self = liftIO (js_stroke self)- -foreign import javascript unsafe "(($1, $2) => { return $1[\"clip\"]($2); })" js_clip ::- CanvasRenderingContext2D -> Optional CanvasWindingRule -> IO ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.clip Mozilla CanvasRenderingContext2D.clip documentation> -clip ::- (MonadIO m) =>- CanvasRenderingContext2D -> Maybe CanvasWindingRule -> m ()-clip self winding = liftIO (js_clip self (maybeToOptional winding))- -foreign import javascript unsafe- "(($1, $2, $3, $4, $5) => { return ($1[\"isPointInPath\"]($2, $3, $4,\n$5) ? 1 : 0); })"- js_isPointInPathPath ::- CanvasRenderingContext2D ->- Path2D -> Float -> Float -> Optional CanvasWindingRule -> IO Bool---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.isPointInPath Mozilla CanvasRenderingContext2D.isPointInPath documentation> -isPointInPathPath ::- (MonadIO m) =>- CanvasRenderingContext2D ->- Path2D -> Float -> Float -> Maybe CanvasWindingRule -> m Bool-isPointInPathPath self path x y winding- = liftIO- (js_isPointInPathPath self path x y (maybeToOptional winding))---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.isPointInPath Mozilla CanvasRenderingContext2D.isPointInPath documentation> -isPointInPathPath_ ::- (MonadIO m) =>- CanvasRenderingContext2D ->- Path2D -> Float -> Float -> Maybe CanvasWindingRule -> m ()-isPointInPathPath_ self path x y winding- = liftIO- (void- (js_isPointInPathPath self path x y (maybeToOptional winding)))- -foreign import javascript unsafe- "(($1, $2, $3, $4) => { return ($1[\"isPointInStroke\"]($2, $3,\n$4) ? 1 : 0); })"- js_isPointInStrokePath ::- CanvasRenderingContext2D -> Path2D -> Float -> Float -> IO Bool---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.isPointInStroke Mozilla CanvasRenderingContext2D.isPointInStroke documentation> -isPointInStrokePath ::- (MonadIO m) =>- CanvasRenderingContext2D -> Path2D -> Float -> Float -> m Bool-isPointInStrokePath self path x y- = liftIO (js_isPointInStrokePath self path x y)---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.isPointInStroke Mozilla CanvasRenderingContext2D.isPointInStroke documentation> -isPointInStrokePath_ ::- (MonadIO m) =>- CanvasRenderingContext2D -> Path2D -> Float -> Float -> m ()-isPointInStrokePath_ self path x y- = liftIO (void (js_isPointInStrokePath self path x y))- -foreign import javascript unsafe- "(($1, $2, $3, $4) => { return ($1[\"isPointInPath\"]($2, $3,\n$4) ? 1 : 0); })" js_isPointInPath ::- CanvasRenderingContext2D ->- Float -> Float -> Optional CanvasWindingRule -> IO Bool---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.isPointInPath Mozilla CanvasRenderingContext2D.isPointInPath documentation> -isPointInPath ::- (MonadIO m) =>- CanvasRenderingContext2D ->- Float -> Float -> Maybe CanvasWindingRule -> m Bool-isPointInPath self x y winding- = liftIO (js_isPointInPath self x y (maybeToOptional winding))---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.isPointInPath Mozilla CanvasRenderingContext2D.isPointInPath documentation> -isPointInPath_ ::- (MonadIO m) =>- CanvasRenderingContext2D ->- Float -> Float -> Maybe CanvasWindingRule -> m ()-isPointInPath_ self x y winding- = liftIO- (void (js_isPointInPath self x y (maybeToOptional winding)))- -foreign import javascript unsafe- "(($1, $2, $3) => { return ($1[\"isPointInStroke\"]($2,\n$3) ? 1 : 0); })" js_isPointInStroke ::- CanvasRenderingContext2D -> Float -> Float -> IO Bool---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.isPointInStroke Mozilla CanvasRenderingContext2D.isPointInStroke documentation> -isPointInStroke ::- (MonadIO m) => CanvasRenderingContext2D -> Float -> Float -> m Bool-isPointInStroke self x y = liftIO (js_isPointInStroke self x y)---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.isPointInStroke Mozilla CanvasRenderingContext2D.isPointInStroke documentation> -isPointInStroke_ ::- (MonadIO m) => CanvasRenderingContext2D -> Float -> Float -> m ()-isPointInStroke_ self x y- = liftIO (void (js_isPointInStroke self x y))- -foreign import javascript unsafe "(($1, $2) => { return $1[\"measureText\"]($2); })"- js_measureText ::- CanvasRenderingContext2D -> JSString -> IO TextMetrics---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.measureText Mozilla CanvasRenderingContext2D.measureText documentation> -measureText ::- (MonadIO m, ToJSString text) =>- CanvasRenderingContext2D -> text -> m TextMetrics-measureText self text- = liftIO (js_measureText self (toJSString text))---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.measureText Mozilla CanvasRenderingContext2D.measureText documentation> -measureText_ ::- (MonadIO m, ToJSString text) =>- CanvasRenderingContext2D -> text -> m ()-measureText_ self text- = liftIO (void (js_measureText self (toJSString text)))- -foreign import javascript unsafe "(($1, $2) => { return $1[\"setAlpha\"]($2); })" js_setAlpha- :: CanvasRenderingContext2D -> Optional Float -> IO ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.setAlpha Mozilla CanvasRenderingContext2D.setAlpha documentation> -setAlpha ::- (MonadIO m) => CanvasRenderingContext2D -> Maybe Float -> m ()-setAlpha self alpha- = liftIO (js_setAlpha self (maybeToOptional alpha))- -foreign import javascript unsafe- "(($1, $2) => { return $1[\"setCompositeOperation\"]($2); })" js_setCompositeOperation ::- CanvasRenderingContext2D -> Optional JSString -> IO ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.setCompositeOperation Mozilla CanvasRenderingContext2D.setCompositeOperation documentation> -setCompositeOperation ::- (MonadIO m, ToJSString compositeOperation) =>- CanvasRenderingContext2D -> Maybe compositeOperation -> m ()-setCompositeOperation self compositeOperation- = liftIO- (js_setCompositeOperation self- (toOptionalJSString compositeOperation))- -foreign import javascript unsafe "(($1, $2) => { return $1[\"setLineWidth\"]($2); })"- js_setLineWidthFunction ::- CanvasRenderingContext2D -> Optional Float -> IO ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.setLineWidth Mozilla CanvasRenderingContext2D.setLineWidth documentation> -setLineWidthFunction ::- (MonadIO m) => CanvasRenderingContext2D -> Maybe Float -> m ()-setLineWidthFunction self width- = liftIO (js_setLineWidthFunction self (maybeToOptional width))- -foreign import javascript unsafe "(($1, $2) => { return $1[\"setLineCap\"]($2); })"- js_setLineCapFunction ::- CanvasRenderingContext2D -> Optional JSString -> IO ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.setLineCap Mozilla CanvasRenderingContext2D.setLineCap documentation> -setLineCapFunction ::- (MonadIO m, ToJSString cap) =>- CanvasRenderingContext2D -> Maybe cap -> m ()-setLineCapFunction self cap- = liftIO (js_setLineCapFunction self (toOptionalJSString cap))- -foreign import javascript unsafe "(($1, $2) => { return $1[\"setLineJoin\"]($2); })"- js_setLineJoinFunction ::- CanvasRenderingContext2D -> Optional JSString -> IO ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.setLineJoin Mozilla CanvasRenderingContext2D.setLineJoin documentation> -setLineJoinFunction ::- (MonadIO m, ToJSString join) =>- CanvasRenderingContext2D -> Maybe join -> m ()-setLineJoinFunction self join- = liftIO (js_setLineJoinFunction self (toOptionalJSString join))- -foreign import javascript unsafe "(($1, $2) => { return $1[\"setMiterLimit\"]($2); })"- js_setMiterLimitFunction ::- CanvasRenderingContext2D -> Optional Float -> IO ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.setMiterLimit Mozilla CanvasRenderingContext2D.setMiterLimit documentation> -setMiterLimitFunction ::- (MonadIO m) => CanvasRenderingContext2D -> Maybe Float -> m ()-setMiterLimitFunction self limit- = liftIO (js_setMiterLimitFunction self (maybeToOptional limit))- -foreign import javascript unsafe "(($1) => { return $1[\"clearShadow\"](); })"- js_clearShadow :: CanvasRenderingContext2D -> IO ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.clearShadow Mozilla CanvasRenderingContext2D.clearShadow documentation> -clearShadow :: (MonadIO m) => CanvasRenderingContext2D -> m ()-clearShadow self = liftIO (js_clearShadow self)- -foreign import javascript unsafe "(($1, $2, $3, $4, $5) => { return $1[\"fillText\"]($2, $3, $4, $5); })"- js_fillText ::- CanvasRenderingContext2D ->- JSString -> Float -> Float -> Optional Float -> IO ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.fillText Mozilla CanvasRenderingContext2D.fillText documentation> -fillText ::- (MonadIO m, ToJSString text) =>- CanvasRenderingContext2D ->- text -> Float -> Float -> Maybe Float -> m ()-fillText self text x y maxWidth- = liftIO- (js_fillText self (toJSString text) x y (maybeToOptional maxWidth))- -foreign import javascript unsafe- "(($1, $2, $3, $4, $5) => { return $1[\"strokeText\"]($2, $3, $4, $5); })" js_strokeText ::- CanvasRenderingContext2D ->- JSString -> Float -> Float -> Optional Float -> IO ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.strokeText Mozilla CanvasRenderingContext2D.strokeText documentation> -strokeText ::- (MonadIO m, ToJSString text) =>- CanvasRenderingContext2D ->- text -> Float -> Float -> Maybe Float -> m ()-strokeText self text x y maxWidth- = liftIO- (js_strokeText self (toJSString text) x y- (maybeToOptional maxWidth))- -foreign import javascript unsafe "(($1, $2, $3) => { return $1[\"setStrokeColor\"]($2, $3); })"- js_setStrokeColor ::- CanvasRenderingContext2D -> JSString -> Optional Float -> IO ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.setStrokeColor Mozilla CanvasRenderingContext2D.setStrokeColor documentation> -setStrokeColor ::- (MonadIO m, ToJSString color) =>- CanvasRenderingContext2D -> color -> Maybe Float -> m ()-setStrokeColor self color alpha- = liftIO- (js_setStrokeColor self (toJSString color) (maybeToOptional alpha))- -foreign import javascript unsafe "(($1, $2, $3) => { return $1[\"setStrokeColor\"]($2, $3); })"- js_setStrokeColorGray ::- CanvasRenderingContext2D -> Float -> Optional Float -> IO ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.setStrokeColor Mozilla CanvasRenderingContext2D.setStrokeColor documentation> -setStrokeColorGray ::- (MonadIO m) =>- CanvasRenderingContext2D -> Float -> Maybe Float -> m ()-setStrokeColorGray self grayLevel alpha- = liftIO- (js_setStrokeColorGray self grayLevel (maybeToOptional alpha))- -foreign import javascript unsafe- "(($1, $2, $3, $4, $5) => { return $1[\"setStrokeColor\"]($2, $3, $4,\n$5); })" js_setStrokeColorRGB ::- CanvasRenderingContext2D ->- Float -> Float -> Float -> Float -> IO ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.setStrokeColor Mozilla CanvasRenderingContext2D.setStrokeColor documentation> -setStrokeColorRGB ::- (MonadIO m) =>- CanvasRenderingContext2D ->- Float -> Float -> Float -> Float -> m ()-setStrokeColorRGB self r g b a- = liftIO (js_setStrokeColorRGB self r g b a)- -foreign import javascript unsafe- "(($1, $2, $3, $4, $5, $6) => { return $1[\"setStrokeColor\"]($2, $3, $4,\n$5, $6); })" js_setStrokeColorCYMK- ::- CanvasRenderingContext2D ->- Float -> Float -> Float -> Float -> Float -> IO ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.setStrokeColor Mozilla CanvasRenderingContext2D.setStrokeColor documentation> -setStrokeColorCYMK ::- (MonadIO m) =>- CanvasRenderingContext2D ->- Float -> Float -> Float -> Float -> Float -> m ()-setStrokeColorCYMK self c m y k a- = liftIO (js_setStrokeColorCYMK self c m y k a)- -foreign import javascript unsafe "(($1, $2, $3) => { return $1[\"setFillColor\"]($2, $3); })"- js_setFillColor ::- CanvasRenderingContext2D -> JSString -> Optional Float -> IO ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.setFillColor Mozilla CanvasRenderingContext2D.setFillColor documentation> -setFillColor ::- (MonadIO m, ToJSString color) =>- CanvasRenderingContext2D -> color -> Maybe Float -> m ()-setFillColor self color alpha- = liftIO- (js_setFillColor self (toJSString color) (maybeToOptional alpha))- -foreign import javascript unsafe "(($1, $2, $3) => { return $1[\"setFillColor\"]($2, $3); })"- js_setFillColorGray ::- CanvasRenderingContext2D -> Float -> Optional Float -> IO ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.setFillColor Mozilla CanvasRenderingContext2D.setFillColor documentation> -setFillColorGray ::- (MonadIO m) =>- CanvasRenderingContext2D -> Float -> Maybe Float -> m ()-setFillColorGray self grayLevel alpha- = liftIO- (js_setFillColorGray self grayLevel (maybeToOptional alpha))- -foreign import javascript unsafe- "(($1, $2, $3, $4, $5) => { return $1[\"setFillColor\"]($2, $3, $4,\n$5); })" js_setFillColorRGB ::- CanvasRenderingContext2D ->- Float -> Float -> Float -> Float -> IO ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.setFillColor Mozilla CanvasRenderingContext2D.setFillColor documentation> -setFillColorRGB ::- (MonadIO m) =>- CanvasRenderingContext2D ->- Float -> Float -> Float -> Float -> m ()-setFillColorRGB self r g b a- = liftIO (js_setFillColorRGB self r g b a)- -foreign import javascript unsafe- "(($1, $2, $3, $4, $5, $6) => { return $1[\"setFillColor\"]($2, $3, $4,\n$5, $6); })" js_setFillColorCYMK ::- CanvasRenderingContext2D ->- Float -> Float -> Float -> Float -> Float -> IO ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.setFillColor Mozilla CanvasRenderingContext2D.setFillColor documentation> -setFillColorCYMK ::- (MonadIO m) =>- CanvasRenderingContext2D ->- Float -> Float -> Float -> Float -> Float -> m ()-setFillColorCYMK self c m y k a- = liftIO (js_setFillColorCYMK self c m y k a)- -foreign import javascript unsafe- "(($1, $2, $3, $4, $5) => { return $1[\"strokeRect\"]($2, $3, $4, $5); })" js_strokeRect ::- CanvasRenderingContext2D ->- Float -> Float -> Float -> Float -> IO ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.strokeRect Mozilla CanvasRenderingContext2D.strokeRect documentation> -strokeRect ::- (MonadIO m) =>- CanvasRenderingContext2D ->- Float -> Float -> Float -> Float -> m ()-strokeRect self x y width height- = liftIO (js_strokeRect self x y width height)- -foreign import javascript safe "(($1, $2, $3, $4) => { return $1[\"drawImage\"]($2, $3, $4); })"- js_drawImage ::- CanvasRenderingContext2D ->- CanvasImageSource -> Float -> Float -> IO ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.drawImage Mozilla CanvasRenderingContext2D.drawImage documentation> -drawImage ::- (MonadIO m, IsCanvasImageSource image) =>- CanvasRenderingContext2D -> image -> Float -> Float -> m ()-drawImage self image x y- = liftIO (js_drawImage self (toCanvasImageSource image) x y)- -foreign import javascript 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 ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.drawImage Mozilla CanvasRenderingContext2D.drawImage documentation> -drawImageScaled ::- (MonadIO m, IsCanvasImageSource image) =>- CanvasRenderingContext2D ->- image -> Float -> Float -> Float -> Float -> m ()-drawImageScaled self image x y width height- = liftIO- (js_drawImageScaled self (toCanvasImageSource image) x y width- height)- -foreign import javascript 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 ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.drawImage Mozilla CanvasRenderingContext2D.drawImage documentation> -drawImagePart ::- (MonadIO m, IsCanvasImageSource image) =>- CanvasRenderingContext2D ->- image ->- Float ->- Float -> Float -> Float -> Float -> Float -> Float -> Float -> m ()-drawImagePart self image sx sy sw sh dx dy dw dh- = liftIO- (js_drawImagePart self (toCanvasImageSource image) sx sy sw sh dx- dy- dw- dh)- -foreign import javascript unsafe- "(($1, $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 ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.drawImageFromRect Mozilla CanvasRenderingContext2D.drawImageFromRect documentation> -drawImageFromRect ::- (MonadIO m, ToJSString compositeOperation) =>- CanvasRenderingContext2D ->- HTMLImageElement ->- Maybe Float ->- Maybe Float ->- Maybe Float ->- Maybe Float ->- Maybe Float ->- Maybe Float ->- Maybe Float -> Maybe Float -> Maybe compositeOperation -> m ()-drawImageFromRect self image sx sy sw sh dx dy dw dh- compositeOperation- = liftIO- (js_drawImageFromRect self image (maybeToOptional sx)- (maybeToOptional sy)- (maybeToOptional sw)- (maybeToOptional sh)- (maybeToOptional dx)- (maybeToOptional dy)- (maybeToOptional dw)- (maybeToOptional dh)- (toOptionalJSString compositeOperation))- -foreign import javascript unsafe- "(($1, $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 ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.setShadow Mozilla CanvasRenderingContext2D.setShadow documentation> -setShadow ::- (MonadIO m, ToJSString color) =>- CanvasRenderingContext2D ->- Float -> Float -> Float -> Maybe color -> Maybe Float -> m ()-setShadow self width height blur color alpha- = liftIO- (js_setShadow self width height blur (toOptionalJSString color)- (maybeToOptional alpha))- -foreign import javascript unsafe- "(($1, $2, $3, $4, $5, $6) => { return $1[\"setShadow\"]($2, $3, $4, $5,\n$6); })" js_setShadowGray ::- CanvasRenderingContext2D ->- Float -> Float -> Float -> Float -> Optional Float -> IO ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.setShadow Mozilla CanvasRenderingContext2D.setShadow documentation> -setShadowGray ::- (MonadIO m) =>- CanvasRenderingContext2D ->- Float -> Float -> Float -> Float -> Maybe Float -> m ()-setShadowGray self width height blur grayLevel alpha- = liftIO- (js_setShadowGray self width height blur grayLevel- (maybeToOptional alpha))- -foreign import javascript unsafe- "(($1, $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 ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.setShadow Mozilla CanvasRenderingContext2D.setShadow documentation> -setShadowRGB ::- (MonadIO m) =>- CanvasRenderingContext2D ->- Float -> Float -> Float -> Float -> Float -> Float -> Float -> m ()-setShadowRGB self width height blur r g b a- = liftIO (js_setShadowRGB self width height blur r g b a)- -foreign import javascript unsafe- "(($1, $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 ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.setShadow Mozilla CanvasRenderingContext2D.setShadow documentation> -setShadowCYMK ::- (MonadIO m) =>- CanvasRenderingContext2D ->- Float ->- Float -> Float -> Float -> Float -> Float -> Float -> Float -> m ()-setShadowCYMK self width height blur c m y k a- = liftIO (js_setShadowCYMK self width height blur c m y k a)- -foreign import javascript unsafe "(($1, $2, $3, $4) => { return $1[\"putImageData\"]($2, $3, $4); })"- js_putImageData ::- CanvasRenderingContext2D -> ImageData -> Float -> Float -> IO ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.putImageData Mozilla CanvasRenderingContext2D.putImageData documentation> -putImageData ::- (MonadIO m) =>- CanvasRenderingContext2D -> ImageData -> Float -> Float -> m ()-putImageData self imagedata dx dy- = liftIO (js_putImageData self imagedata dx dy)- -foreign import javascript unsafe- "(($1, $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 ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.putImageData Mozilla CanvasRenderingContext2D.putImageData documentation> -putImageDataDirty ::- (MonadIO m) =>- CanvasRenderingContext2D ->- ImageData ->- Float -> Float -> Float -> Float -> Float -> Float -> m ()-putImageDataDirty self imagedata dx dy dirtyX dirtyY dirtyWidth- dirtyHeight- = liftIO- (js_putImageDataDirty self imagedata dx dy dirtyX dirtyY dirtyWidth- dirtyHeight)- -foreign import javascript unsafe- "(($1, $2, $3, $4) => { return $1[\"webkitPutImageDataHD\"]($2,\n$3, $4); })" js_webkitPutImageDataHD- :: CanvasRenderingContext2D -> ImageData -> Float -> Float -> IO ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.webkitPutImageDataHD Mozilla CanvasRenderingContext2D.webkitPutImageDataHD documentation> -webkitPutImageDataHD ::- (MonadIO m) =>- CanvasRenderingContext2D -> ImageData -> Float -> Float -> m ()-webkitPutImageDataHD self imagedata dx dy- = liftIO (js_webkitPutImageDataHD self imagedata dx dy)- -foreign import javascript unsafe- "(($1, $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 ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.webkitPutImageDataHD Mozilla CanvasRenderingContext2D.webkitPutImageDataHD documentation> -webkitPutImageDataHDDirty ::- (MonadIO m) =>- CanvasRenderingContext2D ->- ImageData ->- Float -> Float -> Float -> Float -> Float -> Float -> m ()-webkitPutImageDataHDDirty self imagedata dx dy dirtyX dirtyY- dirtyWidth dirtyHeight- = liftIO- (js_webkitPutImageDataHDDirty self imagedata dx dy dirtyX dirtyY- dirtyWidth- dirtyHeight)- -foreign import javascript safe "(($1, $2) => { return $1[\"createImageData\"]($2); })"- js_createImageData ::- CanvasRenderingContext2D -> Optional ImageData -> IO ImageData---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.createImageData Mozilla CanvasRenderingContext2D.createImageData documentation> -createImageData ::- (MonadIO m) =>- CanvasRenderingContext2D -> Maybe ImageData -> m ImageData-createImageData self imagedata- = liftIO (js_createImageData self (maybeToOptional imagedata))---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.createImageData Mozilla CanvasRenderingContext2D.createImageData documentation> -createImageData_ ::- (MonadIO m) => CanvasRenderingContext2D -> Maybe ImageData -> m ()-createImageData_ self imagedata- = liftIO- (void (js_createImageData self (maybeToOptional imagedata)))- -foreign import javascript safe "(($1, $2, $3) => { return $1[\"createImageData\"]($2, $3); })"- js_createImageDataSize ::- CanvasRenderingContext2D -> Float -> Float -> IO ImageData---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.createImageData Mozilla CanvasRenderingContext2D.createImageData documentation> -createImageDataSize ::- (MonadIO m) =>- CanvasRenderingContext2D -> Float -> Float -> m ImageData-createImageDataSize self sw sh- = liftIO (js_createImageDataSize self sw sh)---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.createImageData Mozilla CanvasRenderingContext2D.createImageData documentation> -createImageDataSize_ ::- (MonadIO m) => CanvasRenderingContext2D -> Float -> Float -> m ()-createImageDataSize_ self sw sh- = liftIO (void (js_createImageDataSize self sw sh))- -foreign import javascript safe- "(($1, $2, $3, $4, $5) => { return $1[\"createLinearGradient\"]($2,\n$3, $4, $5); })"- js_createLinearGradient ::- CanvasRenderingContext2D ->- Float -> Float -> Float -> Float -> IO CanvasGradient---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.createLinearGradient Mozilla CanvasRenderingContext2D.createLinearGradient documentation> -createLinearGradient ::- (MonadIO m) =>- CanvasRenderingContext2D ->- Float -> Float -> Float -> Float -> m CanvasGradient-createLinearGradient self x0 y0 x1 y1- = liftIO (js_createLinearGradient self x0 y0 x1 y1)---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.createLinearGradient Mozilla CanvasRenderingContext2D.createLinearGradient documentation> -createLinearGradient_ ::- (MonadIO m) =>- CanvasRenderingContext2D ->- Float -> Float -> Float -> Float -> m ()-createLinearGradient_ self x0 y0 x1 y1- = liftIO (void (js_createLinearGradient self x0 y0 x1 y1))- -foreign import javascript 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---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.createRadialGradient Mozilla CanvasRenderingContext2D.createRadialGradient documentation> -createRadialGradient ::- (MonadIO m) =>- CanvasRenderingContext2D ->- Float ->- Float -> Float -> Float -> Float -> Float -> m CanvasGradient-createRadialGradient self x0 y0 r0 x1 y1 r1- = liftIO (js_createRadialGradient self x0 y0 r0 x1 y1 r1)---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.createRadialGradient Mozilla CanvasRenderingContext2D.createRadialGradient documentation> -createRadialGradient_ ::- (MonadIO m) =>- CanvasRenderingContext2D ->- Float -> Float -> Float -> Float -> Float -> Float -> m ()-createRadialGradient_ self x0 y0 r0 x1 y1 r1- = liftIO (void (js_createRadialGradient self x0 y0 r0 x1 y1 r1))- -foreign import javascript safe "(($1, $2, $3) => { return $1[\"createPattern\"]($2, $3); })"- js_createPattern ::- CanvasRenderingContext2D ->- CanvasImageSource -> JSString -> IO (Nullable CanvasPattern)---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.createPattern Mozilla CanvasRenderingContext2D.createPattern documentation> -createPattern ::- (MonadIO m, IsCanvasImageSource image, ToJSString repetition) =>- CanvasRenderingContext2D ->- image -> repetition -> m (Maybe CanvasPattern)-createPattern self image repetition- = liftIO- (nullableToMaybe <$>- (js_createPattern self (toCanvasImageSource image)- (toJSString repetition)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.createPattern Mozilla CanvasRenderingContext2D.createPattern documentation> -createPattern_ ::- (MonadIO m, IsCanvasImageSource image, ToJSString repetition) =>- CanvasRenderingContext2D -> image -> repetition -> m ()-createPattern_ self image repetition- = liftIO- (void- (js_createPattern self (toCanvasImageSource image)- (toJSString repetition)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.createPattern Mozilla CanvasRenderingContext2D.createPattern documentation> -createPatternUnsafe ::- (MonadIO m, IsCanvasImageSource image, ToJSString repetition,- HasCallStack) =>- CanvasRenderingContext2D -> image -> repetition -> m CanvasPattern-createPatternUnsafe self image repetition- = liftIO- ((nullableToMaybe <$>- (js_createPattern self (toCanvasImageSource image)- (toJSString repetition)))- >>= maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.createPattern Mozilla CanvasRenderingContext2D.createPattern documentation> -createPatternUnchecked ::- (MonadIO m, IsCanvasImageSource image, ToJSString repetition) =>- CanvasRenderingContext2D -> image -> 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---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.getImageData Mozilla CanvasRenderingContext2D.getImageData documentation> -getImageData ::- (MonadIO m) =>- CanvasRenderingContext2D ->- Float -> Float -> Float -> Float -> m ImageData-getImageData self sx sy sw sh- = liftIO (js_getImageData self sx sy sw sh)---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.getImageData Mozilla CanvasRenderingContext2D.getImageData documentation> -getImageData_ ::- (MonadIO m) =>- CanvasRenderingContext2D ->- Float -> Float -> Float -> Float -> m ()-getImageData_ self sx sy sw sh- = liftIO (void (js_getImageData self sx sy sw sh))- -foreign import javascript safe- "(($1, $2, $3, $4, $5) => { return $1[\"webkitGetImageDataHD\"]($2,\n$3, $4, $5); })"- js_webkitGetImageDataHD ::- CanvasRenderingContext2D ->- Float -> Float -> Float -> Float -> IO ImageData---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.webkitGetImageDataHD Mozilla CanvasRenderingContext2D.webkitGetImageDataHD documentation> -webkitGetImageDataHD ::- (MonadIO m) =>- CanvasRenderingContext2D ->- Float -> Float -> Float -> Float -> m ImageData-webkitGetImageDataHD self sx sy sw sh- = liftIO (js_webkitGetImageDataHD self sx sy sw sh)---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.webkitGetImageDataHD Mozilla CanvasRenderingContext2D.webkitGetImageDataHD documentation> -webkitGetImageDataHD_ ::- (MonadIO m) =>- CanvasRenderingContext2D ->- Float -> Float -> Float -> Float -> m ()-webkitGetImageDataHD_ self sx sy sw sh- = liftIO (void (js_webkitGetImageDataHD self sx sy sw sh))- -foreign import javascript unsafe "(($1, $2) => { return $1[\"drawFocusIfNeeded\"]($2); })"- js_drawFocusIfNeeded ::- CanvasRenderingContext2D -> Element -> IO ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.drawFocusIfNeeded Mozilla CanvasRenderingContext2D.drawFocusIfNeeded documentation> -drawFocusIfNeeded ::- (MonadIO m, IsElement element) =>- CanvasRenderingContext2D -> element -> m ()-drawFocusIfNeeded self element- = liftIO (js_drawFocusIfNeeded self (toElement element))- -foreign import javascript unsafe- "(($1, $2, $3) => { return $1[\"drawFocusIfNeeded\"]($2, $3); })" js_drawFocusIfNeededPath ::- CanvasRenderingContext2D -> Path2D -> Element -> IO ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.drawFocusIfNeeded Mozilla CanvasRenderingContext2D.drawFocusIfNeeded documentation> -drawFocusIfNeededPath ::- (MonadIO m, IsElement element) =>- CanvasRenderingContext2D -> Path2D -> element -> m ()-drawFocusIfNeededPath self path element- = liftIO (js_drawFocusIfNeededPath self path (toElement element))- -foreign import javascript unsafe "(($1) => { return $1[\"canvas\"]; })" js_getCanvas ::- CanvasRenderingContext2D -> IO HTMLCanvasElement---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.canvas Mozilla CanvasRenderingContext2D.canvas documentation> -getCanvas ::- (MonadIO m) => CanvasRenderingContext2D -> m HTMLCanvasElement-getCanvas self = liftIO (js_getCanvas self)- -foreign import javascript unsafe "(($1, $2) => { $1[\"globalAlpha\"] = $2; })"- js_setGlobalAlpha :: CanvasRenderingContext2D -> Float -> IO ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.globalAlpha Mozilla CanvasRenderingContext2D.globalAlpha documentation> -setGlobalAlpha ::- (MonadIO m) => CanvasRenderingContext2D -> Float -> m ()-setGlobalAlpha self val = liftIO (js_setGlobalAlpha self val)- -foreign import javascript unsafe "(($1) => { return $1[\"globalAlpha\"]; })"- js_getGlobalAlpha :: CanvasRenderingContext2D -> IO Float---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.globalAlpha Mozilla CanvasRenderingContext2D.globalAlpha documentation> -getGlobalAlpha ::- (MonadIO m) => CanvasRenderingContext2D -> m Float-getGlobalAlpha self = liftIO (js_getGlobalAlpha self)- -foreign import javascript unsafe- "(($1, $2) => { $1[\"globalCompositeOperation\"] = $2; })"- js_setGlobalCompositeOperation ::- CanvasRenderingContext2D -> JSString -> IO ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.globalCompositeOperation Mozilla CanvasRenderingContext2D.globalCompositeOperation documentation> -setGlobalCompositeOperation ::- (MonadIO m, ToJSString val) =>- CanvasRenderingContext2D -> val -> m ()-setGlobalCompositeOperation self val- = liftIO (js_setGlobalCompositeOperation self (toJSString val))- -foreign import javascript unsafe "(($1) => { return $1[\"globalCompositeOperation\"]; })"- js_getGlobalCompositeOperation ::- CanvasRenderingContext2D -> IO JSString---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.globalCompositeOperation Mozilla CanvasRenderingContext2D.globalCompositeOperation documentation> -getGlobalCompositeOperation ::- (MonadIO m, FromJSString result) =>- CanvasRenderingContext2D -> m result-getGlobalCompositeOperation self- = liftIO (fromJSString <$> (js_getGlobalCompositeOperation self))- -foreign import javascript unsafe "(($1, $2) => { $1[\"lineWidth\"] = $2; })"- js_setLineWidth :: CanvasRenderingContext2D -> Float -> IO ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.lineWidth Mozilla CanvasRenderingContext2D.lineWidth documentation> -setLineWidth ::- (MonadIO m) => CanvasRenderingContext2D -> Float -> m ()-setLineWidth self val = liftIO (js_setLineWidth self val)- -foreign import javascript unsafe "(($1) => { return $1[\"lineWidth\"]; })"- js_getLineWidth :: CanvasRenderingContext2D -> IO Float---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.lineWidth Mozilla CanvasRenderingContext2D.lineWidth documentation> -getLineWidth :: (MonadIO m) => CanvasRenderingContext2D -> m Float-getLineWidth self = liftIO (js_getLineWidth self)- -foreign import javascript unsafe "(($1, $2) => { $1[\"lineCap\"] = $2; })"- js_setLineCap :: CanvasRenderingContext2D -> JSString -> IO ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.lineCap Mozilla CanvasRenderingContext2D.lineCap documentation> -setLineCap ::- (MonadIO m, ToJSString val) =>- CanvasRenderingContext2D -> val -> m ()-setLineCap self val = liftIO (js_setLineCap self (toJSString val))- -foreign import javascript unsafe "(($1) => { return $1[\"lineCap\"]; })" js_getLineCap ::- CanvasRenderingContext2D -> IO JSString---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.lineCap Mozilla CanvasRenderingContext2D.lineCap documentation> -getLineCap ::- (MonadIO m, FromJSString result) =>- CanvasRenderingContext2D -> m result-getLineCap self = liftIO (fromJSString <$> (js_getLineCap self))- -foreign import javascript unsafe "(($1, $2) => { $1[\"lineJoin\"] = $2; })"- js_setLineJoin :: CanvasRenderingContext2D -> JSString -> IO ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.lineJoin Mozilla CanvasRenderingContext2D.lineJoin documentation> -setLineJoin ::- (MonadIO m, ToJSString val) =>- CanvasRenderingContext2D -> val -> m ()-setLineJoin self val- = liftIO (js_setLineJoin self (toJSString val))- -foreign import javascript unsafe "(($1) => { return $1[\"lineJoin\"]; })" js_getLineJoin- :: CanvasRenderingContext2D -> IO JSString---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.lineJoin Mozilla CanvasRenderingContext2D.lineJoin documentation> -getLineJoin ::- (MonadIO m, FromJSString result) =>- CanvasRenderingContext2D -> m result-getLineJoin self = liftIO (fromJSString <$> (js_getLineJoin self))- -foreign import javascript unsafe "(($1, $2) => { $1[\"miterLimit\"] = $2; })"- js_setMiterLimit :: CanvasRenderingContext2D -> Float -> IO ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.miterLimit Mozilla CanvasRenderingContext2D.miterLimit documentation> -setMiterLimit ::- (MonadIO m) => CanvasRenderingContext2D -> Float -> m ()-setMiterLimit self val = liftIO (js_setMiterLimit self val)- -foreign import javascript unsafe "(($1) => { return $1[\"miterLimit\"]; })"- js_getMiterLimit :: CanvasRenderingContext2D -> IO Float---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.miterLimit Mozilla CanvasRenderingContext2D.miterLimit documentation> -getMiterLimit :: (MonadIO m) => CanvasRenderingContext2D -> m Float-getMiterLimit self = liftIO (js_getMiterLimit self)- -foreign import javascript unsafe "(($1, $2) => { $1[\"shadowOffsetX\"] = $2; })"- js_setShadowOffsetX :: CanvasRenderingContext2D -> Float -> IO ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.shadowOffsetX Mozilla CanvasRenderingContext2D.shadowOffsetX documentation> -setShadowOffsetX ::- (MonadIO m) => CanvasRenderingContext2D -> Float -> m ()-setShadowOffsetX self val = liftIO (js_setShadowOffsetX self val)- -foreign import javascript unsafe "(($1) => { return $1[\"shadowOffsetX\"]; })"- js_getShadowOffsetX :: CanvasRenderingContext2D -> IO Float---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.shadowOffsetX Mozilla CanvasRenderingContext2D.shadowOffsetX documentation> -getShadowOffsetX ::- (MonadIO m) => CanvasRenderingContext2D -> m Float-getShadowOffsetX self = liftIO (js_getShadowOffsetX self)- -foreign import javascript unsafe "(($1, $2) => { $1[\"shadowOffsetY\"] = $2; })"- js_setShadowOffsetY :: CanvasRenderingContext2D -> Float -> IO ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.shadowOffsetY Mozilla CanvasRenderingContext2D.shadowOffsetY documentation> -setShadowOffsetY ::- (MonadIO m) => CanvasRenderingContext2D -> Float -> m ()-setShadowOffsetY self val = liftIO (js_setShadowOffsetY self val)- -foreign import javascript unsafe "(($1) => { return $1[\"shadowOffsetY\"]; })"- js_getShadowOffsetY :: CanvasRenderingContext2D -> IO Float---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.shadowOffsetY Mozilla CanvasRenderingContext2D.shadowOffsetY documentation> -getShadowOffsetY ::- (MonadIO m) => CanvasRenderingContext2D -> m Float-getShadowOffsetY self = liftIO (js_getShadowOffsetY self)- -foreign import javascript unsafe "(($1, $2) => { $1[\"shadowBlur\"] = $2; })"- js_setShadowBlur :: CanvasRenderingContext2D -> Float -> IO ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.shadowBlur Mozilla CanvasRenderingContext2D.shadowBlur documentation> -setShadowBlur ::- (MonadIO m) => CanvasRenderingContext2D -> Float -> m ()-setShadowBlur self val = liftIO (js_setShadowBlur self val)- -foreign import javascript unsafe "(($1) => { return $1[\"shadowBlur\"]; })"- js_getShadowBlur :: CanvasRenderingContext2D -> IO Float---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.shadowBlur Mozilla CanvasRenderingContext2D.shadowBlur documentation> -getShadowBlur :: (MonadIO m) => CanvasRenderingContext2D -> m Float-getShadowBlur self = liftIO (js_getShadowBlur self)- -foreign import javascript unsafe "(($1, $2) => { $1[\"shadowColor\"] = $2; })"- js_setShadowColor :: CanvasRenderingContext2D -> JSString -> IO ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.shadowColor Mozilla CanvasRenderingContext2D.shadowColor documentation> -setShadowColor ::- (MonadIO m, ToJSString val) =>- CanvasRenderingContext2D -> val -> m ()-setShadowColor self val- = liftIO (js_setShadowColor self (toJSString val))- -foreign import javascript unsafe "(($1) => { return $1[\"shadowColor\"]; })"- js_getShadowColor :: CanvasRenderingContext2D -> IO JSString---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.shadowColor Mozilla CanvasRenderingContext2D.shadowColor documentation> -getShadowColor ::- (MonadIO m, FromJSString result) =>- CanvasRenderingContext2D -> m result-getShadowColor self- = liftIO (fromJSString <$> (js_getShadowColor self))- -foreign import javascript unsafe "(($1, $2) => { $1[\"lineDashOffset\"] = $2; })"- js_setLineDashOffset :: CanvasRenderingContext2D -> Float -> IO ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.lineDashOffset Mozilla CanvasRenderingContext2D.lineDashOffset documentation> -setLineDashOffset ::- (MonadIO m) => CanvasRenderingContext2D -> Float -> m ()-setLineDashOffset self val = liftIO (js_setLineDashOffset self val)- -foreign import javascript unsafe "(($1) => { return $1[\"lineDashOffset\"]; })"- js_getLineDashOffset :: CanvasRenderingContext2D -> IO Float---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.lineDashOffset Mozilla CanvasRenderingContext2D.lineDashOffset documentation> -getLineDashOffset ::- (MonadIO m) => CanvasRenderingContext2D -> m Float-getLineDashOffset self = liftIO (js_getLineDashOffset self)- -foreign import javascript unsafe "(($1, $2) => { $1[\"webkitLineDash\"] = $2; })"- js_setWebkitLineDash :: CanvasRenderingContext2D -> JSVal -> IO ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.webkitLineDash Mozilla CanvasRenderingContext2D.webkitLineDash documentation> -setWebkitLineDash ::- (MonadIO m) => CanvasRenderingContext2D -> [Float] -> m ()-setWebkitLineDash self val- = liftIO (toJSVal val >>= \ val' -> js_setWebkitLineDash self val')- -foreign import javascript unsafe "(($1) => { return $1[\"webkitLineDash\"]; })"- js_getWebkitLineDash :: CanvasRenderingContext2D -> IO JSVal---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.webkitLineDash Mozilla CanvasRenderingContext2D.webkitLineDash documentation> -getWebkitLineDash ::- (MonadIO m) => CanvasRenderingContext2D -> m [Float]-getWebkitLineDash self- = liftIO ((js_getWebkitLineDash self) >>= fromJSValUnchecked)- -foreign import javascript unsafe- "(($1, $2) => { $1[\"webkitLineDashOffset\"] = $2; })" js_setWebkitLineDashOffset ::- CanvasRenderingContext2D -> Float -> IO ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.webkitLineDashOffset Mozilla CanvasRenderingContext2D.webkitLineDashOffset documentation> -setWebkitLineDashOffset ::- (MonadIO m) => CanvasRenderingContext2D -> Float -> m ()-setWebkitLineDashOffset self val- = liftIO (js_setWebkitLineDashOffset self val)- -foreign import javascript unsafe "(($1) => { return $1[\"webkitLineDashOffset\"]; })"- js_getWebkitLineDashOffset :: CanvasRenderingContext2D -> IO Float---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.webkitLineDashOffset Mozilla CanvasRenderingContext2D.webkitLineDashOffset documentation> -getWebkitLineDashOffset ::- (MonadIO m) => CanvasRenderingContext2D -> m Float-getWebkitLineDashOffset self- = liftIO (js_getWebkitLineDashOffset self)- -foreign import javascript unsafe "(($1, $2) => { $1[\"font\"] = $2; })" js_setFont ::- CanvasRenderingContext2D -> JSString -> IO ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.font Mozilla CanvasRenderingContext2D.font documentation> -setFont ::- (MonadIO m, ToJSString val) =>- CanvasRenderingContext2D -> val -> m ()-setFont self val = liftIO (js_setFont self (toJSString val))- -foreign import javascript unsafe "(($1) => { return $1[\"font\"]; })" js_getFont ::- CanvasRenderingContext2D -> IO JSString---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.font Mozilla CanvasRenderingContext2D.font documentation> -getFont ::- (MonadIO m, FromJSString result) =>- CanvasRenderingContext2D -> m result-getFont self = liftIO (fromJSString <$> (js_getFont self))- -foreign import javascript unsafe "(($1, $2) => { $1[\"textAlign\"] = $2; })"- js_setTextAlign :: CanvasRenderingContext2D -> JSString -> IO ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.textAlign Mozilla CanvasRenderingContext2D.textAlign documentation> -setTextAlign ::- (MonadIO m, ToJSString val) =>- CanvasRenderingContext2D -> val -> m ()-setTextAlign self val- = liftIO (js_setTextAlign self (toJSString val))- -foreign import javascript unsafe "(($1) => { return $1[\"textAlign\"]; })"- js_getTextAlign :: CanvasRenderingContext2D -> IO JSString---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.textAlign Mozilla CanvasRenderingContext2D.textAlign documentation> -getTextAlign ::- (MonadIO m, FromJSString result) =>- CanvasRenderingContext2D -> m result-getTextAlign self- = liftIO (fromJSString <$> (js_getTextAlign self))- -foreign import javascript unsafe "(($1, $2) => { $1[\"textBaseline\"] = $2; })"- js_setTextBaseline :: CanvasRenderingContext2D -> JSString -> IO ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.textBaseline Mozilla CanvasRenderingContext2D.textBaseline documentation> -setTextBaseline ::- (MonadIO m, ToJSString val) =>- CanvasRenderingContext2D -> val -> m ()-setTextBaseline self val- = liftIO (js_setTextBaseline self (toJSString val))- -foreign import javascript unsafe "(($1) => { return $1[\"textBaseline\"]; })"- js_getTextBaseline :: CanvasRenderingContext2D -> IO JSString---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.textBaseline Mozilla CanvasRenderingContext2D.textBaseline documentation> -getTextBaseline ::- (MonadIO m, FromJSString result) =>- CanvasRenderingContext2D -> m result-getTextBaseline self- = liftIO (fromJSString <$> (js_getTextBaseline self))- -foreign import javascript unsafe "(($1, $2) => { $1[\"direction\"] = $2; })"- js_setDirection :: CanvasRenderingContext2D -> JSString -> IO ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.direction Mozilla CanvasRenderingContext2D.direction documentation> -setDirection ::- (MonadIO m, ToJSString val) =>- CanvasRenderingContext2D -> val -> m ()-setDirection self val- = liftIO (js_setDirection self (toJSString val))- -foreign import javascript unsafe "(($1) => { return $1[\"direction\"]; })"- js_getDirection :: CanvasRenderingContext2D -> IO JSString---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.direction Mozilla CanvasRenderingContext2D.direction documentation> -getDirection ::- (MonadIO m, FromJSString result) =>- CanvasRenderingContext2D -> m result-getDirection self- = liftIO (fromJSString <$> (js_getDirection self))- -foreign import javascript unsafe "(($1, $2) => { $1[\"strokeStyle\"] = $2; })"- js_setStrokeStyle ::- CanvasRenderingContext2D -> CanvasStyle -> IO ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.strokeStyle Mozilla CanvasRenderingContext2D.strokeStyle documentation> -setStrokeStyle ::- (MonadIO m, IsCanvasStyle val) =>- CanvasRenderingContext2D -> val -> m ()-setStrokeStyle self val- = liftIO- (toJSVal val >>=- \ val' -> js_setStrokeStyle self (CanvasStyle val'))- -foreign import javascript unsafe "(($1) => { return $1[\"strokeStyle\"]; })"- js_getStrokeStyle :: CanvasRenderingContext2D -> IO CanvasStyle---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.strokeStyle Mozilla CanvasRenderingContext2D.strokeStyle documentation> -getStrokeStyle ::- (MonadIO m) => CanvasRenderingContext2D -> m CanvasStyle-getStrokeStyle self = liftIO (js_getStrokeStyle self)- -foreign import javascript unsafe "(($1, $2) => { $1[\"fillStyle\"] = $2; })"- js_setFillStyle :: CanvasRenderingContext2D -> CanvasStyle -> IO ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.fillStyle Mozilla CanvasRenderingContext2D.fillStyle documentation> -setFillStyle ::- (MonadIO m, IsCanvasStyle val) =>- CanvasRenderingContext2D -> val -> m ()-setFillStyle self val- = liftIO- (toJSVal val >>= \ val' -> js_setFillStyle self (CanvasStyle val'))- -foreign import javascript unsafe "(($1) => { return $1[\"fillStyle\"]; })"- js_getFillStyle :: CanvasRenderingContext2D -> IO CanvasStyle---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.fillStyle Mozilla CanvasRenderingContext2D.fillStyle documentation> -getFillStyle ::- (MonadIO m) => CanvasRenderingContext2D -> m CanvasStyle-getFillStyle self = liftIO (js_getFillStyle self)- -foreign import javascript unsafe- "(($1) => { return $1[\"webkitBackingStorePixelRatio\"]; })"- js_getWebkitBackingStorePixelRatio ::- CanvasRenderingContext2D -> IO Float---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.webkitBackingStorePixelRatio Mozilla CanvasRenderingContext2D.webkitBackingStorePixelRatio documentation> -getWebkitBackingStorePixelRatio ::- (MonadIO m) => CanvasRenderingContext2D -> m Float-getWebkitBackingStorePixelRatio self- = liftIO (js_getWebkitBackingStorePixelRatio self)- -foreign import javascript unsafe- "(($1, $2) => { $1[\"imageSmoothingEnabled\"] = $2; })" js_setImageSmoothingEnabled- :: CanvasRenderingContext2D -> Bool -> IO ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.imageSmoothingEnabled Mozilla CanvasRenderingContext2D.imageSmoothingEnabled documentation> -setImageSmoothingEnabled ::- (MonadIO m) => CanvasRenderingContext2D -> Bool -> m ()-setImageSmoothingEnabled self val- = liftIO (js_setImageSmoothingEnabled self val)- -foreign import javascript unsafe- "(($1) => { return ($1[\"imageSmoothingEnabled\"] ? 1 : 0); })"- js_getImageSmoothingEnabled :: CanvasRenderingContext2D -> IO Bool---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.imageSmoothingEnabled Mozilla CanvasRenderingContext2D.imageSmoothingEnabled documentation> -getImageSmoothingEnabled ::- (MonadIO m) => CanvasRenderingContext2D -> m Bool-getImageSmoothingEnabled self- = liftIO (js_getImageSmoothingEnabled self)- -foreign import javascript unsafe- "(($1, $2) => { $1[\"webkitImageSmoothingEnabled\"] = $2; })"- js_setWebkitImageSmoothingEnabled ::- CanvasRenderingContext2D -> Bool -> IO ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.webkitImageSmoothingEnabled Mozilla CanvasRenderingContext2D.webkitImageSmoothingEnabled documentation> -setWebkitImageSmoothingEnabled ::- (MonadIO m) => CanvasRenderingContext2D -> Bool -> m ()-setWebkitImageSmoothingEnabled self val- = liftIO (js_setWebkitImageSmoothingEnabled self val)- -foreign import javascript unsafe- "(($1) => { return ($1[\"webkitImageSmoothingEnabled\"] ? 1 : 0); })"- js_getWebkitImageSmoothingEnabled ::- CanvasRenderingContext2D -> IO Bool---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.webkitImageSmoothingEnabled Mozilla CanvasRenderingContext2D.webkitImageSmoothingEnabled documentation> -getWebkitImageSmoothingEnabled ::- (MonadIO m) => CanvasRenderingContext2D -> m Bool-getWebkitImageSmoothingEnabled self- = liftIO (js_getWebkitImageSmoothingEnabled self)- -foreign import javascript unsafe- "(($1, $2) => { $1[\"imageSmoothingQuality\"] = $2; })" js_setImageSmoothingQuality- :: CanvasRenderingContext2D -> JSVal -> IO ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.imageSmoothingQuality Mozilla CanvasRenderingContext2D.imageSmoothingQuality documentation> -setImageSmoothingQuality ::- (MonadIO m) =>- CanvasRenderingContext2D -> ImageSmoothingQuality -> m ()-setImageSmoothingQuality self val- = liftIO (js_setImageSmoothingQuality self (pToJSVal val))- -foreign import javascript unsafe "(($1) => { return $1[\"imageSmoothingQuality\"]; })"- js_getImageSmoothingQuality :: CanvasRenderingContext2D -> IO JSVal---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.imageSmoothingQuality Mozilla CanvasRenderingContext2D.imageSmoothingQuality documentation> -getImageSmoothingQuality ::- (MonadIO m) => CanvasRenderingContext2D -> m ImageSmoothingQuality-getImageSmoothingQuality self- = liftIO- ((js_getImageSmoothingQuality self) >>= fromJSValUnchecked)+{-# 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+-- | <https://developer.mozilla.org/docs/Web/API/CanvasRenderingContext2D/canvas MDN CanvasRenderingContext2D.canvas documentation>+getCanvas :: (MonadDOM m) => CanvasRenderingContext2D -> m HTMLCanvasElement+getCanvas self = liftDOM ((js_getCanvas (self)))
@@ -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+-- | <https://html.spec.whatwg.org/multipage/canvas.html#canvasrenderingcontext2dsettings CanvasRenderingContext2DSettings specification>+newCanvasRenderingContext2DSettings :: (MonadDOM m) => m CanvasRenderingContext2DSettings+newCanvasRenderingContext2DSettings = liftDOM ((js_newCanvasRenderingContext2DSettings))++foreign import javascript safe "(($1, $2) => { $1[\"alpha\"] = $2; })"+ js_setAlpha :: CanvasRenderingContext2DSettings -> Bool -> IO ()+-- | <https://html.spec.whatwg.org/multipage/canvas.html#dom-canvasrenderingcontext2dsettings-alpha CanvasRenderingContext2DSettings.alpha specification>+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+-- | <https://html.spec.whatwg.org/multipage/canvas.html#dom-canvasrenderingcontext2dsettings-alpha CanvasRenderingContext2DSettings.alpha specification>+getAlpha :: (MonadDOM m) => CanvasRenderingContext2DSettings -> m (Maybe Bool)+getAlpha self = liftDOM (((js_getAlpha (self)) >>= fromJSValUnchecked))++-- | <https://html.spec.whatwg.org/multipage/canvas.html#dom-canvasrenderingcontext2dsettings-alpha CanvasRenderingContext2DSettings.alpha specification>+getAlphaUnsafe :: (MonadDOM m, HasCallStack) => CanvasRenderingContext2DSettings -> m Bool+getAlphaUnsafe self = liftDOM ((((js_getAlpha (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://html.spec.whatwg.org/multipage/canvas.html#dom-canvasrenderingcontext2dsettings-alpha CanvasRenderingContext2DSettings.alpha specification>+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 ()+-- | <https://html.spec.whatwg.org/multipage/canvas.html#dom-canvasrenderingcontext2dsettings-desynchronized CanvasRenderingContext2DSettings.desynchronized specification>+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+-- | <https://html.spec.whatwg.org/multipage/canvas.html#dom-canvasrenderingcontext2dsettings-desynchronized CanvasRenderingContext2DSettings.desynchronized specification>+getDesynchronized :: (MonadDOM m) => CanvasRenderingContext2DSettings -> m (Maybe Bool)+getDesynchronized self = liftDOM (((js_getDesynchronized (self)) >>= fromJSValUnchecked))++-- | <https://html.spec.whatwg.org/multipage/canvas.html#dom-canvasrenderingcontext2dsettings-desynchronized CanvasRenderingContext2DSettings.desynchronized specification>+getDesynchronizedUnsafe :: (MonadDOM m, HasCallStack) => CanvasRenderingContext2DSettings -> m Bool+getDesynchronizedUnsafe self = liftDOM ((((js_getDesynchronized (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://html.spec.whatwg.org/multipage/canvas.html#dom-canvasrenderingcontext2dsettings-desynchronized CanvasRenderingContext2DSettings.desynchronized specification>+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 ()+-- | <https://html.spec.whatwg.org/multipage/canvas.html#dom-canvasrenderingcontext2dsettings-colorspace CanvasRenderingContext2DSettings.colorSpace specification>+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+-- | <https://html.spec.whatwg.org/multipage/canvas.html#dom-canvasrenderingcontext2dsettings-colorspace CanvasRenderingContext2DSettings.colorSpace specification>+getColorSpace :: (MonadDOM m) => CanvasRenderingContext2DSettings -> m (Maybe PredefinedColorSpace)+getColorSpace self = liftDOM (((js_getColorSpace (self)) >>= fromJSValUnchecked))++-- | <https://html.spec.whatwg.org/multipage/canvas.html#dom-canvasrenderingcontext2dsettings-colorspace CanvasRenderingContext2DSettings.colorSpace specification>+getColorSpaceUnsafe :: (MonadDOM m, HasCallStack) => CanvasRenderingContext2DSettings -> m PredefinedColorSpace+getColorSpaceUnsafe self = liftDOM ((((js_getColorSpace (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://html.spec.whatwg.org/multipage/canvas.html#dom-canvasrenderingcontext2dsettings-colorspace CanvasRenderingContext2DSettings.colorSpace specification>+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 ()+-- | <https://html.spec.whatwg.org/multipage/canvas.html#dom-canvasrenderingcontext2dsettings-colortype CanvasRenderingContext2DSettings.colorType specification>+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+-- | <https://html.spec.whatwg.org/multipage/canvas.html#dom-canvasrenderingcontext2dsettings-colortype CanvasRenderingContext2DSettings.colorType specification>+getColorType :: (MonadDOM m) => CanvasRenderingContext2DSettings -> m (Maybe CanvasColorType)+getColorType self = liftDOM (((js_getColorType (self)) >>= fromJSValUnchecked))++-- | <https://html.spec.whatwg.org/multipage/canvas.html#dom-canvasrenderingcontext2dsettings-colortype CanvasRenderingContext2DSettings.colorType specification>+getColorTypeUnsafe :: (MonadDOM m, HasCallStack) => CanvasRenderingContext2DSettings -> m CanvasColorType+getColorTypeUnsafe self = liftDOM ((((js_getColorType (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://html.spec.whatwg.org/multipage/canvas.html#dom-canvasrenderingcontext2dsettings-colortype CanvasRenderingContext2DSettings.colorType specification>+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 ()+-- | <https://html.spec.whatwg.org/multipage/canvas.html#dom-canvasrenderingcontext2dsettings-willreadfrequently CanvasRenderingContext2DSettings.willReadFrequently specification>+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+-- | <https://html.spec.whatwg.org/multipage/canvas.html#dom-canvasrenderingcontext2dsettings-willreadfrequently CanvasRenderingContext2DSettings.willReadFrequently specification>+getWillReadFrequently :: (MonadDOM m) => CanvasRenderingContext2DSettings -> m (Maybe Bool)+getWillReadFrequently self = liftDOM (((js_getWillReadFrequently (self)) >>= fromJSValUnchecked))++-- | <https://html.spec.whatwg.org/multipage/canvas.html#dom-canvasrenderingcontext2dsettings-willreadfrequently CanvasRenderingContext2DSettings.willReadFrequently specification>+getWillReadFrequentlyUnsafe :: (MonadDOM m, HasCallStack) => CanvasRenderingContext2DSettings -> m Bool+getWillReadFrequentlyUnsafe self = liftDOM ((((js_getWillReadFrequently (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://html.spec.whatwg.org/multipage/canvas.html#dom-canvasrenderingcontext2dsettings-willreadfrequently CanvasRenderingContext2DSettings.willReadFrequently specification>+getWillReadFrequentlyUnchecked :: (MonadDOM m) => CanvasRenderingContext2DSettings -> m Bool+getWillReadFrequentlyUnchecked self = liftDOM ((pFromJSVal <$> (js_getWillReadFrequently (self))))
@@ -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+-- | <https://developer.mozilla.org/docs/Web/API/CanvasRenderingContext2D/getContextAttributes MDN CanvasSettings.getContextAttributes documentation>+getContextAttributes :: (MonadDOM m, IsCanvasSettings self) => self -> m CanvasRenderingContext2DSettings+getContextAttributes self = liftDOM ((js_getContextAttributes ((Types.toCanvasSettings self))))++-- | <https://developer.mozilla.org/docs/Web/API/CanvasRenderingContext2D/getContextAttributes MDN CanvasSettings.getContextAttributes documentation>+getContextAttributes_ :: (MonadDOM m, IsCanvasSettings self) => self -> m ()+getContextAttributes_ self = liftDOM (void ((js_getContextAttributes ((Types.toCanvasSettings self)))))
@@ -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 ()+-- | <https://developer.mozilla.org/docs/Web/API/CanvasRenderingContext2D/shadowOffsetX MDN CanvasShadowStyles.shadowOffsetX documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/CanvasRenderingContext2D/shadowOffsetX MDN CanvasShadowStyles.shadowOffsetX documentation>+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 ()+-- | <https://developer.mozilla.org/docs/Web/API/CanvasRenderingContext2D/shadowOffsetY MDN CanvasShadowStyles.shadowOffsetY documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/CanvasRenderingContext2D/shadowOffsetY MDN CanvasShadowStyles.shadowOffsetY documentation>+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 ()+-- | <https://developer.mozilla.org/docs/Web/API/CanvasRenderingContext2D/shadowBlur MDN CanvasShadowStyles.shadowBlur documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/CanvasRenderingContext2D/shadowBlur MDN CanvasShadowStyles.shadowBlur documentation>+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 ()+-- | <https://developer.mozilla.org/docs/Web/API/CanvasRenderingContext2D/shadowColor MDN CanvasShadowStyles.shadowColor documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/CanvasRenderingContext2D/shadowColor MDN CanvasShadowStyles.shadowColor documentation>+getShadowColor :: (MonadDOM m, IsCanvasShadowStyles self, FromJSString result) => self -> m result+getShadowColor self = liftDOM ((fromJSString <$> (js_getShadowColor ((Types.toCanvasShadowStyles self)))))
@@ -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+-- | <https://developer.mozilla.org/docs/Web/API/CanvasRenderingContext2D/isContextLost MDN CanvasState.isContextLost documentation>+isContextLost :: (MonadDOM m, IsCanvasState self) => self -> m Bool+isContextLost self = liftDOM ((js_isContextLost ((Types.toCanvasState self))))++-- | <https://developer.mozilla.org/docs/Web/API/CanvasRenderingContext2D/isContextLost MDN CanvasState.isContextLost documentation>+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 ()+-- | <https://developer.mozilla.org/docs/Web/API/CanvasRenderingContext2D/reset MDN CanvasState.reset documentation>+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 ()+-- | <https://developer.mozilla.org/docs/Web/API/CanvasRenderingContext2D/restore MDN CanvasState.restore documentation>+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 ()+-- | <https://developer.mozilla.org/docs/Web/API/CanvasRenderingContext2D/save MDN CanvasState.save documentation>+save :: (MonadDOM m, IsCanvasState self) => self -> m ()+save self = liftDOM (void ((js_save ((Types.toCanvasState self)))))
@@ -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 ()+-- | <https://developer.mozilla.org/docs/Web/API/CanvasRenderingContext2D/fillText MDN CanvasText.fillText documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/CanvasRenderingContext2D/measureText MDN CanvasText.measureText documentation>+measureText :: (MonadDOM m, IsCanvasText self, ToJSString text) => self -> text -> m TextMetrics+measureText self text = liftDOM ((js_measureText ((Types.toCanvasText self)) (toJSString text)))++-- | <https://developer.mozilla.org/docs/Web/API/CanvasRenderingContext2D/measureText MDN CanvasText.measureText documentation>+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 ()+-- | <https://developer.mozilla.org/docs/Web/API/CanvasRenderingContext2D/strokeText MDN CanvasText.strokeText documentation>+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')))
@@ -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 ()+-- | <https://developer.mozilla.org/docs/Web/API/CanvasRenderingContext2D/lang MDN CanvasTextDrawingStyles.lang documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/CanvasRenderingContext2D/lang MDN CanvasTextDrawingStyles.lang documentation>+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 ()+-- | <https://developer.mozilla.org/docs/Web/API/CanvasRenderingContext2D/font MDN CanvasTextDrawingStyles.font documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/CanvasRenderingContext2D/font MDN CanvasTextDrawingStyles.font documentation>+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 ()+-- | <https://developer.mozilla.org/docs/Web/API/CanvasRenderingContext2D/textAlign MDN CanvasTextDrawingStyles.textAlign documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/CanvasRenderingContext2D/textAlign MDN CanvasTextDrawingStyles.textAlign documentation>+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 ()+-- | <https://developer.mozilla.org/docs/Web/API/CanvasRenderingContext2D/textBaseline MDN CanvasTextDrawingStyles.textBaseline documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/CanvasRenderingContext2D/textBaseline MDN CanvasTextDrawingStyles.textBaseline documentation>+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 ()+-- | <https://developer.mozilla.org/docs/Web/API/CanvasRenderingContext2D/direction MDN CanvasTextDrawingStyles.direction documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/CanvasRenderingContext2D/direction MDN CanvasTextDrawingStyles.direction documentation>+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 ()+-- | <https://developer.mozilla.org/docs/Web/API/CanvasRenderingContext2D/letterSpacing MDN CanvasTextDrawingStyles.letterSpacing documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/CanvasRenderingContext2D/letterSpacing MDN CanvasTextDrawingStyles.letterSpacing documentation>+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 ()+-- | <https://developer.mozilla.org/docs/Web/API/CanvasRenderingContext2D/fontKerning MDN CanvasTextDrawingStyles.fontKerning documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/CanvasRenderingContext2D/fontKerning MDN CanvasTextDrawingStyles.fontKerning documentation>+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 ()+-- | <https://developer.mozilla.org/docs/Web/API/CanvasRenderingContext2D/fontStretch MDN CanvasTextDrawingStyles.fontStretch documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/CanvasRenderingContext2D/fontStretch MDN CanvasTextDrawingStyles.fontStretch documentation>+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 ()+-- | <https://developer.mozilla.org/docs/Web/API/CanvasRenderingContext2D/fontVariantCaps MDN CanvasTextDrawingStyles.fontVariantCaps documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/CanvasRenderingContext2D/fontVariantCaps MDN CanvasTextDrawingStyles.fontVariantCaps documentation>+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 ()+-- | <https://developer.mozilla.org/docs/Web/API/CanvasRenderingContext2D/textRendering MDN CanvasTextDrawingStyles.textRendering documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/CanvasRenderingContext2D/textRendering MDN CanvasTextDrawingStyles.textRendering documentation>+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 ()+-- | <https://developer.mozilla.org/docs/Web/API/CanvasRenderingContext2D/wordSpacing MDN CanvasTextDrawingStyles.wordSpacing documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/CanvasRenderingContext2D/wordSpacing MDN CanvasTextDrawingStyles.wordSpacing documentation>+getWordSpacing :: (MonadDOM m, IsCanvasTextDrawingStyles self, FromJSString result) => self -> m result+getWordSpacing self = liftDOM ((fromJSString <$> (js_getWordSpacing ((Types.toCanvasTextDrawingStyles self)))))
@@ -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+-- | <https://developer.mozilla.org/docs/Web/API/CanvasRenderingContext2D/getTransform MDN CanvasTransform.getTransform documentation>+getTransform :: (MonadDOM m, IsCanvasTransform self) => self -> m DOMMatrix+getTransform self = liftDOM ((js_getTransform ((Types.toCanvasTransform self))))++-- | <https://developer.mozilla.org/docs/Web/API/CanvasRenderingContext2D/getTransform MDN CanvasTransform.getTransform documentation>+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 ()+-- | <https://developer.mozilla.org/docs/Web/API/CanvasRenderingContext2D/resetTransform MDN CanvasTransform.resetTransform documentation>+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 ()+-- | <https://developer.mozilla.org/docs/Web/API/CanvasRenderingContext2D/rotate MDN CanvasTransform.rotate documentation>+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 ()+-- | <https://developer.mozilla.org/docs/Web/API/CanvasRenderingContext2D/scale MDN CanvasTransform.scale documentation>+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 ()+-- | <https://developer.mozilla.org/docs/Web/API/CanvasRenderingContext2D/setTransform MDN CanvasTransform.setTransform documentation>+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 ()+-- | <https://developer.mozilla.org/docs/Web/API/CanvasRenderingContext2D/setTransform MDN CanvasTransform.setTransform documentation>+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 ()+-- | <https://developer.mozilla.org/docs/Web/API/CanvasRenderingContext2D/transform MDN CanvasTransform.transform documentation>+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 ()+-- | <https://developer.mozilla.org/docs/Web/API/CanvasRenderingContext2D/translate MDN CanvasTransform.translate documentation>+translate :: (MonadDOM m, IsCanvasTransform self) => self -> Double -> Double -> m ()+translate self x y = liftDOM (void ((js_translate ((Types.toCanvasTransform self)) (x) (y))))
@@ -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 ()+-- | <https://developer.mozilla.org/docs/Web/API/CanvasRenderingContext2D/drawFocusIfNeeded MDN CanvasUserInterface.drawFocusIfNeeded documentation>+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 ()+-- | <https://developer.mozilla.org/docs/Web/API/CanvasRenderingContext2D/drawFocusIfNeeded MDN CanvasUserInterface.drawFocusIfNeeded documentation>+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))))
@@ -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+
@@ -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+-- | <https://developer.mozilla.org/docs/Web/API/CaretPosition/getClientRect MDN CaretPosition.getClientRect documentation>+getClientRect :: (MonadDOM m) => CaretPosition -> m (Maybe DOMRect)+getClientRect self = liftDOM (((js_getClientRect (self)) >>= fromJSValUnchecked))++-- | <https://developer.mozilla.org/docs/Web/API/CaretPosition/getClientRect MDN CaretPosition.getClientRect documentation>+getClientRect_ :: (MonadDOM m) => CaretPosition -> m ()+getClientRect_ self = liftDOM (void ((js_getClientRect (self))))++-- | <https://developer.mozilla.org/docs/Web/API/CaretPosition/getClientRect MDN CaretPosition.getClientRect documentation>+getClientRectUnsafe :: (MonadDOM m, HasCallStack) => CaretPosition -> m DOMRect+getClientRectUnsafe self = liftDOM ((((js_getClientRect (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://developer.mozilla.org/docs/Web/API/CaretPosition/getClientRect MDN CaretPosition.getClientRect documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/CaretPosition/offsetNode MDN CaretPosition.offsetNode documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/CaretPosition/offset MDN CaretPosition.offset documentation>+getOffset :: (MonadDOM m) => CaretPosition -> m Word+getOffset self = liftDOM ((js_getOffset (self)))
@@ -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+-- | <https://drafts.csswg.org/cssom-view-1/#dictdef-caretpositionfrompointoptions CaretPositionFromPointOptions specification>+newCaretPositionFromPointOptions :: (MonadDOM m) => m CaretPositionFromPointOptions+newCaretPositionFromPointOptions = liftDOM ((js_newCaretPositionFromPointOptions))++foreign import javascript safe "(($1, $2) => { $1[\"shadowRoots\"] = $2; })"+ js_setShadowRoots :: CaretPositionFromPointOptions -> JSVal -> IO ()+-- | <https://drafts.csswg.org/cssom-view-1/#dom-caretpositionfrompointoptions-shadowroots CaretPositionFromPointOptions.shadowRoots specification>+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+-- | <https://drafts.csswg.org/cssom-view-1/#dom-caretpositionfrompointoptions-shadowroots CaretPositionFromPointOptions.shadowRoots specification>+getShadowRoots :: (MonadDOM m) => CaretPositionFromPointOptions -> m (Maybe [ShadowRoot])+getShadowRoots self = liftDOM (((js_getShadowRoots (self)) >>= fromJSValUnchecked))++-- | <https://drafts.csswg.org/cssom-view-1/#dom-caretpositionfrompointoptions-shadowroots CaretPositionFromPointOptions.shadowRoots specification>+getShadowRootsUnsafe :: (MonadDOM m, HasCallStack) => CaretPositionFromPointOptions -> m [ShadowRoot]+getShadowRootsUnsafe self = liftDOM ((((js_getShadowRoots (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://drafts.csswg.org/cssom-view-1/#dom-caretpositionfrompointoptions-shadowroots CaretPositionFromPointOptions.shadowRoots specification>+getShadowRootsUnchecked :: (MonadDOM m) => CaretPositionFromPointOptions -> m [ShadowRoot]+getShadowRootsUnchecked self = liftDOM (((js_getShadowRoots (self)) >>= fromJSValUnchecked))
@@ -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+-- | <https://developer.mozilla.org/docs/Web/API/ChannelMergerNode/ChannelMergerNode MDN ChannelMergerNode. documentation>+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'))
@@ -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+-- | <https://webaudio.github.io/web-audio-api/#ChannelMergerOptions ChannelMergerOptions specification>+newChannelMergerOptions :: (MonadDOM m) => m ChannelMergerOptions+newChannelMergerOptions = liftDOM ((js_newChannelMergerOptions))++foreign import javascript safe "(($1, $2) => { $1[\"numberOfInputs\"] = $2; })"+ js_setNumberOfInputs :: ChannelMergerOptions -> Word -> IO ()+-- | <https://webaudio.github.io/web-audio-api/#dom-channelmergeroptions-numberofinputs ChannelMergerOptions.numberOfInputs specification>+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+-- | <https://webaudio.github.io/web-audio-api/#dom-channelmergeroptions-numberofinputs ChannelMergerOptions.numberOfInputs specification>+getNumberOfInputs :: (MonadDOM m) => ChannelMergerOptions -> m (Maybe Word)+getNumberOfInputs self = liftDOM (((js_getNumberOfInputs (self)) >>= fromJSValUnchecked))++-- | <https://webaudio.github.io/web-audio-api/#dom-channelmergeroptions-numberofinputs ChannelMergerOptions.numberOfInputs specification>+getNumberOfInputsUnsafe :: (MonadDOM m, HasCallStack) => ChannelMergerOptions -> m Word+getNumberOfInputsUnsafe self = liftDOM ((((js_getNumberOfInputs (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://webaudio.github.io/web-audio-api/#dom-channelmergeroptions-numberofinputs ChannelMergerOptions.numberOfInputs specification>+getNumberOfInputsUnchecked :: (MonadDOM m) => ChannelMergerOptions -> m Word+getNumberOfInputsUnchecked self = liftDOM ((pFromJSVal <$> (js_getNumberOfInputs (self))))
@@ -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+-- | <https://developer.mozilla.org/docs/Web/API/ChannelSplitterNode/ChannelSplitterNode MDN ChannelSplitterNode. documentation>+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'))
@@ -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+-- | <https://webaudio.github.io/web-audio-api/#ChannelSplitterOptions ChannelSplitterOptions specification>+newChannelSplitterOptions :: (MonadDOM m) => m ChannelSplitterOptions+newChannelSplitterOptions = liftDOM ((js_newChannelSplitterOptions))++foreign import javascript safe "(($1, $2) => { $1[\"numberOfOutputs\"] = $2; })"+ js_setNumberOfOutputs :: ChannelSplitterOptions -> Word -> IO ()+-- | <https://webaudio.github.io/web-audio-api/#dom-channelsplitteroptions-numberofoutputs ChannelSplitterOptions.numberOfOutputs specification>+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+-- | <https://webaudio.github.io/web-audio-api/#dom-channelsplitteroptions-numberofoutputs ChannelSplitterOptions.numberOfOutputs specification>+getNumberOfOutputs :: (MonadDOM m) => ChannelSplitterOptions -> m (Maybe Word)+getNumberOfOutputs self = liftDOM (((js_getNumberOfOutputs (self)) >>= fromJSValUnchecked))++-- | <https://webaudio.github.io/web-audio-api/#dom-channelsplitteroptions-numberofoutputs ChannelSplitterOptions.numberOfOutputs specification>+getNumberOfOutputsUnsafe :: (MonadDOM m, HasCallStack) => ChannelSplitterOptions -> m Word+getNumberOfOutputsUnsafe self = liftDOM ((((js_getNumberOfOutputs (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://webaudio.github.io/web-audio-api/#dom-channelsplitteroptions-numberofoutputs ChannelSplitterOptions.numberOfOutputs specification>+getNumberOfOutputsUnchecked :: (MonadDOM m) => ChannelSplitterOptions -> m Word+getNumberOfOutputsUnchecked self = liftDOM ((pFromJSVal <$> (js_getNumberOfOutputs (self))))
@@ -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+-- | <https://w3c.github.io/mediasession/#dictdef-chapterinformationinit ChapterInformationInit specification>+newChapterInformationInit :: (MonadDOM m) => m ChapterInformationInit+newChapterInformationInit = liftDOM ((js_newChapterInformationInit))++foreign import javascript safe "(($1, $2) => { $1[\"title\"] = $2; })"+ js_setTitle :: ChapterInformationInit -> JSString -> IO ()+-- | <https://w3c.github.io/mediasession/#dom-chapterinformationinit-title ChapterInformationInit.title specification>+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+-- | <https://w3c.github.io/mediasession/#dom-chapterinformationinit-title ChapterInformationInit.title specification>+getTitle :: (MonadDOM m, FromJSString result) => ChapterInformationInit -> m (Maybe result)+getTitle self = liftDOM (((fromMaybeJSString . Nullable) <$> (js_getTitle (self))))++-- | <https://w3c.github.io/mediasession/#dom-chapterinformationinit-title ChapterInformationInit.title specification>+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))++-- | <https://w3c.github.io/mediasession/#dom-chapterinformationinit-title ChapterInformationInit.title specification>+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 ()+-- | <https://w3c.github.io/mediasession/#dom-chapterinformationinit-starttime ChapterInformationInit.startTime specification>+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+-- | <https://w3c.github.io/mediasession/#dom-chapterinformationinit-starttime ChapterInformationInit.startTime specification>+getStartTime :: (MonadDOM m) => ChapterInformationInit -> m (Maybe Double)+getStartTime self = liftDOM (((js_getStartTime (self)) >>= fromJSValUnchecked))++-- | <https://w3c.github.io/mediasession/#dom-chapterinformationinit-starttime ChapterInformationInit.startTime specification>+getStartTimeUnsafe :: (MonadDOM m, HasCallStack) => ChapterInformationInit -> m Double+getStartTimeUnsafe self = liftDOM ((((js_getStartTime (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://w3c.github.io/mediasession/#dom-chapterinformationinit-starttime ChapterInformationInit.startTime specification>+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 ()+-- | <https://w3c.github.io/mediasession/#dom-chapterinformationinit-artwork ChapterInformationInit.artwork specification>+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+-- | <https://w3c.github.io/mediasession/#dom-chapterinformationinit-artwork ChapterInformationInit.artwork specification>+getArtwork :: (MonadDOM m) => ChapterInformationInit -> m (Maybe [MediaImage])+getArtwork self = liftDOM (((js_getArtwork (self)) >>= fromJSValUnchecked))++-- | <https://w3c.github.io/mediasession/#dom-chapterinformationinit-artwork ChapterInformationInit.artwork specification>+getArtworkUnsafe :: (MonadDOM m, HasCallStack) => ChapterInformationInit -> m [MediaImage]+getArtworkUnsafe self = liftDOM ((((js_getArtwork (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://w3c.github.io/mediasession/#dom-chapterinformationinit-artwork ChapterInformationInit.artwork specification>+getArtworkUnchecked :: (MonadDOM m) => ChapterInformationInit -> m [MediaImage]+getArtworkUnchecked self = liftDOM (((js_getArtwork (self)) >>= fromJSValUnchecked))
@@ -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 --- | <https://developer.mozilla.org/en-US/docs/Web/API/CharacterData.substringData Mozilla CharacterData.substringData documentation> -substringData ::- (MonadIO m, IsCharacterData self, FromJSString result) =>- self -> Word -> Word -> m result-substringData self offset count- = liftIO- (fromJSString <$>- (js_substringData (toCharacterData self) offset count))---- | <https://developer.mozilla.org/en-US/docs/Web/API/CharacterData.substringData Mozilla CharacterData.substringData documentation> -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 ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/CharacterData.appendData Mozilla CharacterData.appendData documentation> -appendData ::- (MonadIO m, IsCharacterData self, ToJSString data') =>- self -> data' -> m ()-appendData self data'- = liftIO (js_appendData (toCharacterData self) (toJSString data'))- -foreign import javascript safe "(($1, $2, $3) => { return $1[\"insertData\"]($2, $3); })"- js_insertData :: CharacterData -> Word -> JSString -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/CharacterData/appendData MDN CharacterData.appendData documentation>+appendData :: (MonadDOM m, IsCharacterData self, ToJSString data') => self -> data' -> m ()+appendData self data' = liftDOM (void ((js_appendData ((Types.toCharacterData self)) (toJSString data')))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/CharacterData.insertData Mozilla CharacterData.insertData documentation> -insertData ::- (MonadIO m, IsCharacterData self, ToJSString data') =>- self -> Word -> data' -> m ()-insertData self offset data'- = liftIO- (js_insertData (toCharacterData self) offset (toJSString data'))- foreign import javascript safe "(($1, $2, $3) => { return $1[\"deleteData\"]($2, $3); })" js_deleteData :: CharacterData -> Word -> Word -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/CharacterData/deleteData MDN CharacterData.deleteData documentation>+deleteData :: (MonadDOM m, IsCharacterData self) => self -> Word -> Word -> m ()+deleteData self offset count = liftDOM (void ((js_deleteData ((Types.toCharacterData self)) (offset) (count)))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/CharacterData.deleteData Mozilla CharacterData.deleteData documentation> -deleteData ::- (MonadIO m, IsCharacterData self) => self -> Word -> Word -> m ()-deleteData self offset 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 ()+-- | <https://developer.mozilla.org/docs/Web/API/CharacterData/insertData MDN CharacterData.insertData documentation>+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 ()+-- | <https://developer.mozilla.org/docs/Web/API/CharacterData/replaceData MDN CharacterData.replaceData documentation>+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')))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/CharacterData.replaceData Mozilla CharacterData.replaceData documentation> -replaceData ::- (MonadIO m, IsCharacterData self, ToJSString data') =>- self -> Word -> Word -> data' -> m ()-replaceData self offset 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+-- | <https://developer.mozilla.org/docs/Web/API/CharacterData/substringData MDN CharacterData.substringData documentation>+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)))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/CharacterData.data Mozilla CharacterData.data documentation> -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+-- | <https://developer.mozilla.org/docs/Web/API/CharacterData/substringData MDN CharacterData.substringData documentation>+substringData_ :: (MonadDOM m, IsCharacterData self) => self -> Word -> Word -> m ()+substringData_ self offset count = liftDOM (void ((js_substringData ((Types.toCharacterData self)) (offset) (count)))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/CharacterData.data Mozilla CharacterData.data documentation> -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 ()+-- | <https://developer.mozilla.org/docs/Web/API/CharacterData/data MDN CharacterData.data documentation>+setData :: (MonadDOM m, IsCharacterData self, ToJSString val) => self -> val -> m ()+setData self val = liftDOM (void ((js_setData ((Types.toCharacterData self)) (toJSString val)))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/CharacterData.length Mozilla CharacterData.length documentation> -getLength :: (MonadIO m, IsCharacterData self) => self -> m Word-getLength self = liftIO (js_getLength (toCharacterData self))+foreign import javascript unsafe "(($1) => { return $1[\"data\"]; })"+ js_getData :: CharacterData -> IO JSString+-- | <https://developer.mozilla.org/docs/Web/API/CharacterData/data MDN CharacterData.data documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/CharacterData/length MDN CharacterData.length documentation>+getLength :: (MonadDOM m, IsCharacterData self) => self -> m Word+getLength self = liftDOM ((js_getLength ((Types.toCharacterData self))))
@@ -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+-- | <https://drafts.csswg.org/cssom-view-1/#dictdef-checkvisibilityoptions CheckVisibilityOptions specification>+newCheckVisibilityOptions :: (MonadDOM m) => m CheckVisibilityOptions+newCheckVisibilityOptions = liftDOM ((js_newCheckVisibilityOptions))++foreign import javascript safe "(($1, $2) => { $1[\"checkOpacity\"] = $2; })"+ js_setCheckOpacity :: CheckVisibilityOptions -> Bool -> IO ()+-- | <https://drafts.csswg.org/cssom-view-1/#dom-checkvisibilityoptions-checkopacity CheckVisibilityOptions.checkOpacity specification>+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+-- | <https://drafts.csswg.org/cssom-view-1/#dom-checkvisibilityoptions-checkopacity CheckVisibilityOptions.checkOpacity specification>+getCheckOpacity :: (MonadDOM m) => CheckVisibilityOptions -> m (Maybe Bool)+getCheckOpacity self = liftDOM (((js_getCheckOpacity (self)) >>= fromJSValUnchecked))++-- | <https://drafts.csswg.org/cssom-view-1/#dom-checkvisibilityoptions-checkopacity CheckVisibilityOptions.checkOpacity specification>+getCheckOpacityUnsafe :: (MonadDOM m, HasCallStack) => CheckVisibilityOptions -> m Bool+getCheckOpacityUnsafe self = liftDOM ((((js_getCheckOpacity (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://drafts.csswg.org/cssom-view-1/#dom-checkvisibilityoptions-checkopacity CheckVisibilityOptions.checkOpacity specification>+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 ()+-- | <https://drafts.csswg.org/cssom-view-1/#dom-checkvisibilityoptions-checkvisibilitycss CheckVisibilityOptions.checkVisibilityCSS specification>+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+-- | <https://drafts.csswg.org/cssom-view-1/#dom-checkvisibilityoptions-checkvisibilitycss CheckVisibilityOptions.checkVisibilityCSS specification>+getCheckVisibilityCSS :: (MonadDOM m) => CheckVisibilityOptions -> m (Maybe Bool)+getCheckVisibilityCSS self = liftDOM (((js_getCheckVisibilityCSS (self)) >>= fromJSValUnchecked))++-- | <https://drafts.csswg.org/cssom-view-1/#dom-checkvisibilityoptions-checkvisibilitycss CheckVisibilityOptions.checkVisibilityCSS specification>+getCheckVisibilityCSSUnsafe :: (MonadDOM m, HasCallStack) => CheckVisibilityOptions -> m Bool+getCheckVisibilityCSSUnsafe self = liftDOM ((((js_getCheckVisibilityCSS (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://drafts.csswg.org/cssom-view-1/#dom-checkvisibilityoptions-checkvisibilitycss CheckVisibilityOptions.checkVisibilityCSS specification>+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 ()+-- | <https://drafts.csswg.org/cssom-view-1/#dom-checkvisibilityoptions-contentvisibilityauto CheckVisibilityOptions.contentVisibilityAuto specification>+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+-- | <https://drafts.csswg.org/cssom-view-1/#dom-checkvisibilityoptions-contentvisibilityauto CheckVisibilityOptions.contentVisibilityAuto specification>+getContentVisibilityAuto :: (MonadDOM m) => CheckVisibilityOptions -> m (Maybe Bool)+getContentVisibilityAuto self = liftDOM (((js_getContentVisibilityAuto (self)) >>= fromJSValUnchecked))++-- | <https://drafts.csswg.org/cssom-view-1/#dom-checkvisibilityoptions-contentvisibilityauto CheckVisibilityOptions.contentVisibilityAuto specification>+getContentVisibilityAutoUnsafe :: (MonadDOM m, HasCallStack) => CheckVisibilityOptions -> m Bool+getContentVisibilityAutoUnsafe self = liftDOM ((((js_getContentVisibilityAuto (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://drafts.csswg.org/cssom-view-1/#dom-checkvisibilityoptions-contentvisibilityauto CheckVisibilityOptions.contentVisibilityAuto specification>+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 ()+-- | <https://drafts.csswg.org/cssom-view-1/#dom-checkvisibilityoptions-opacityproperty CheckVisibilityOptions.opacityProperty specification>+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+-- | <https://drafts.csswg.org/cssom-view-1/#dom-checkvisibilityoptions-opacityproperty CheckVisibilityOptions.opacityProperty specification>+getOpacityProperty :: (MonadDOM m) => CheckVisibilityOptions -> m (Maybe Bool)+getOpacityProperty self = liftDOM (((js_getOpacityProperty (self)) >>= fromJSValUnchecked))++-- | <https://drafts.csswg.org/cssom-view-1/#dom-checkvisibilityoptions-opacityproperty CheckVisibilityOptions.opacityProperty specification>+getOpacityPropertyUnsafe :: (MonadDOM m, HasCallStack) => CheckVisibilityOptions -> m Bool+getOpacityPropertyUnsafe self = liftDOM ((((js_getOpacityProperty (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://drafts.csswg.org/cssom-view-1/#dom-checkvisibilityoptions-opacityproperty CheckVisibilityOptions.opacityProperty specification>+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 ()+-- | <https://drafts.csswg.org/cssom-view-1/#dom-checkvisibilityoptions-visibilityproperty CheckVisibilityOptions.visibilityProperty specification>+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+-- | <https://drafts.csswg.org/cssom-view-1/#dom-checkvisibilityoptions-visibilityproperty CheckVisibilityOptions.visibilityProperty specification>+getVisibilityProperty :: (MonadDOM m) => CheckVisibilityOptions -> m (Maybe Bool)+getVisibilityProperty self = liftDOM (((js_getVisibilityProperty (self)) >>= fromJSValUnchecked))++-- | <https://drafts.csswg.org/cssom-view-1/#dom-checkvisibilityoptions-visibilityproperty CheckVisibilityOptions.visibilityProperty specification>+getVisibilityPropertyUnsafe :: (MonadDOM m, HasCallStack) => CheckVisibilityOptions -> m Bool+getVisibilityPropertyUnsafe self = liftDOM ((((js_getVisibilityProperty (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://drafts.csswg.org/cssom-view-1/#dom-checkvisibilityoptions-visibilityproperty CheckVisibilityOptions.visibilityProperty specification>+getVisibilityPropertyUnchecked :: (MonadDOM m) => CheckVisibilityOptions -> m Bool+getVisibilityPropertyUnchecked self = liftDOM ((pFromJSVal <$> (js_getVisibilityProperty (self))))
@@ -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 () --- | <https://developer.mozilla.org/en-US/docs/Web/API/ChildNode.before Mozilla ChildNode.before documentation> -before ::- (MonadIO m, IsChildNode self, IsNodeOrString nodes) =>- self -> [nodes] -> m ()-before self nodes- = liftIO- (toJSVal nodes >>= \ nodes' -> js_before (toChildNode self) nodes')- -foreign import javascript 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 ()+-- | <https://developer.mozilla.org/docs/Web/API/CharacterData/after MDN ChildNode.after documentation>+after :: (MonadDOM m, IsChildNode self, IsNodeOrString nodes) => self -> [nodes] -> m ()+after self nodes = liftDOM (void (((toJSVal nodes) >>= \a2' -> js_after ((Types.toChildNode self)) a2'))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/ChildNode.after Mozilla ChildNode.after documentation> -after ::- (MonadIO m, IsChildNode self, IsNodeOrString nodes) =>- self -> [nodes] -> m ()-after self nodes- = liftIO- (toJSVal nodes >>= \ nodes' -> js_after (toChildNode self) nodes')- -foreign import javascript 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 ()+-- | <https://developer.mozilla.org/docs/Web/API/CharacterData/before MDN ChildNode.before documentation>+before :: (MonadDOM m, IsChildNode self, IsNodeOrString nodes) => self -> [nodes] -> m ()+before self nodes = liftDOM (void (((toJSVal nodes) >>= \a2' -> js_before ((Types.toChildNode self)) a2'))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/ChildNode.replaceWith Mozilla ChildNode.replaceWith documentation> -replaceWith ::- (MonadIO m, IsChildNode self, IsNodeOrString nodes) =>- self -> [nodes] -> m ()-replaceWith self nodes- = liftIO- (toJSVal nodes >>=- \ nodes' -> js_replaceWith (toChildNode self) nodes')- -foreign import javascript safe "(($1) => { return $1[\"remove\"](); })" js_remove ::- ChildNode -> IO ()+foreign import javascript safe "(($1) => { return $1[\"remove\"](); })"+ js_remove :: ChildNode -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/CharacterData/remove MDN ChildNode.remove documentation>+remove :: (MonadDOM m, IsChildNode self) => self -> m ()+remove self = liftDOM (void ((js_remove ((Types.toChildNode self))))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/ChildNode.remove Mozilla ChildNode.remove documentation> -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 ()+-- | <https://developer.mozilla.org/docs/Web/API/CharacterData/replaceWith MDN ChildNode.replaceWith documentation>+replaceWith :: (MonadDOM m, IsChildNode self, IsNodeOrString nodes) => self -> [nodes] -> m ()+replaceWith self nodes = liftDOM (void (((toJSVal nodes) >>= \a2' -> js_replaceWith ((Types.toChildNode self)) a2')))
@@ -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 ()+-- | <https://developer.mozilla.org/docs/Web/API/Client/postMessage MDN Client.postMessage documentation>+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 ()+-- | <https://developer.mozilla.org/docs/Web/API/Client/postMessage MDN Client.postMessage documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/Client/url MDN Client.url documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/Client/frameType MDN Client.frameType documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/Client/id MDN Client.id documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/Client/type MDN Client.type documentation>+getType :: (MonadDOM m, IsClient self) => self -> m ClientType+getType self = liftDOM (((js_getType ((Types.toClient self))) >>= fromJSValUnchecked))
@@ -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+-- | <https://w3c.github.io/ServiceWorker/#dictdef-clientqueryoptions ClientQueryOptions specification>+newClientQueryOptions :: (MonadDOM m) => m ClientQueryOptions+newClientQueryOptions = liftDOM ((js_newClientQueryOptions))++foreign import javascript safe "(($1, $2) => { $1[\"includeUncontrolled\"] = $2; })"+ js_setIncludeUncontrolled :: ClientQueryOptions -> Bool -> IO ()+-- | <https://w3c.github.io/ServiceWorker/#dom-clientqueryoptions-includeuncontrolled ClientQueryOptions.includeUncontrolled specification>+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+-- | <https://w3c.github.io/ServiceWorker/#dom-clientqueryoptions-includeuncontrolled ClientQueryOptions.includeUncontrolled specification>+getIncludeUncontrolled :: (MonadDOM m) => ClientQueryOptions -> m (Maybe Bool)+getIncludeUncontrolled self = liftDOM (((js_getIncludeUncontrolled (self)) >>= fromJSValUnchecked))++-- | <https://w3c.github.io/ServiceWorker/#dom-clientqueryoptions-includeuncontrolled ClientQueryOptions.includeUncontrolled specification>+getIncludeUncontrolledUnsafe :: (MonadDOM m, HasCallStack) => ClientQueryOptions -> m Bool+getIncludeUncontrolledUnsafe self = liftDOM ((((js_getIncludeUncontrolled (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://w3c.github.io/ServiceWorker/#dom-clientqueryoptions-includeuncontrolled ClientQueryOptions.includeUncontrolled specification>+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 ()+-- | <https://w3c.github.io/ServiceWorker/#dom-clientqueryoptions-type ClientQueryOptions.type specification>+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+-- | <https://w3c.github.io/ServiceWorker/#dom-clientqueryoptions-type ClientQueryOptions.type specification>+getType :: (MonadDOM m) => ClientQueryOptions -> m (Maybe ClientType)+getType self = liftDOM (((js_getType (self)) >>= fromJSValUnchecked))++-- | <https://w3c.github.io/ServiceWorker/#dom-clientqueryoptions-type ClientQueryOptions.type specification>+getTypeUnsafe :: (MonadDOM m, HasCallStack) => ClientQueryOptions -> m ClientType+getTypeUnsafe self = liftDOM ((((js_getType (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://w3c.github.io/ServiceWorker/#dom-clientqueryoptions-type ClientQueryOptions.type specification>+getTypeUnchecked :: (MonadDOM m) => ClientQueryOptions -> m ClientType+getTypeUnchecked self = liftDOM ((pFromJSVal <$> (js_getType (self))))
@@ -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, ())+-- | <https://developer.mozilla.org/docs/Web/API/Clients/claim MDN Clients.claim documentation>+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)+-- | <https://developer.mozilla.org/docs/Web/API/Clients/get MDN Clients.get documentation>+get :: (MonadDOM m, ToJSString id) => Clients -> id -> m ClientOrUndefined+get self id = liftDOM (((js_get (self) (toJSString id)) >>= checkPromiseResult))++-- | <https://developer.mozilla.org/docs/Web/API/Clients/get MDN Clients.get documentation>+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)+-- | <https://developer.mozilla.org/docs/Web/API/Clients/matchAll MDN Clients.matchAll documentation>+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))++-- | <https://developer.mozilla.org/docs/Web/API/Clients/matchAll MDN Clients.matchAll documentation>+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)+-- | <https://developer.mozilla.org/docs/Web/API/Clients/openWindow MDN Clients.openWindow documentation>+openWindow :: (MonadDOM m, ToJSString url) => Clients -> url -> m (Maybe WindowClient)+openWindow self url = liftDOM ((((js_openWindow (self) (toJSString url)) >>= checkPromiseResult) >>= fromJSValUnchecked))++-- | <https://developer.mozilla.org/docs/Web/API/Clients/openWindow MDN Clients.openWindow documentation>+openWindow_ :: (MonadDOM m, ToJSString url) => Clients -> url -> m ()+openWindow_ self url = liftDOM (void (((js_openWindow (self) (toJSString url)) >>= checkPromiseResult)))++-- | <https://developer.mozilla.org/docs/Web/API/Clients/openWindow MDN Clients.openWindow documentation>+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))++-- | <https://developer.mozilla.org/docs/Web/API/Clients/openWindow MDN Clients.openWindow documentation>+openWindowUnchecked :: (MonadDOM m, ToJSString url) => Clients -> url -> m WindowClient+openWindowUnchecked self url = liftDOM ((pFromJSVal <$> ((js_openWindow (self) (toJSString url)) >>= checkPromiseResult)))
@@ -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)+-- | <https://developer.mozilla.org/docs/Web/API/Clipboard/read MDN Clipboard.read documentation>+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))++-- | <https://developer.mozilla.org/docs/Web/API/Clipboard/read MDN Clipboard.read documentation>+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)+-- | <https://developer.mozilla.org/docs/Web/API/Clipboard/readText MDN Clipboard.readText documentation>+readText :: (MonadDOM m, FromJSString result) => Clipboard -> m result+readText self = liftDOM ((fromJSString <$> ((js_readText (self)) >>= checkPromiseResult)))++-- | <https://developer.mozilla.org/docs/Web/API/Clipboard/readText MDN Clipboard.readText documentation>+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, ())+-- | <https://developer.mozilla.org/docs/Web/API/Clipboard/write MDN Clipboard.write documentation>+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, ())+-- | <https://developer.mozilla.org/docs/Web/API/Clipboard/writeText MDN Clipboard.writeText documentation>+writeText :: (MonadDOM m, ToJSString data') => Clipboard -> data' -> m ()+writeText self data' = liftDOM (void (((js_writeText (self) (toJSString data')) >>= checkPromiseResult)))
@@ -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+
@@ -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 --- | <https://developer.mozilla.org/en-US/docs/Web/API/ClipboardEvent Mozilla ClipboardEvent documentation> -newClipboardEvent ::- (MonadIO m, ToJSString type') =>- type' -> Maybe ClipboardEventInit -> m ClipboardEvent-newClipboardEvent type' eventInitDict- = liftIO- (js_newClipboardEvent (toJSString type')- (maybeToOptional eventInitDict))- -foreign import javascript unsafe "(($1) => { 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+-- | <https://developer.mozilla.org/docs/Web/API/ClipboardEvent/ClipboardEvent MDN ClipboardEvent. documentation>+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')) --- | <https://developer.mozilla.org/en-US/docs/Web/API/ClipboardEvent.clipboardData Mozilla ClipboardEvent.clipboardData documentation> -getClipboardData ::- (MonadIO m) => ClipboardEvent -> m (Maybe DataTransfer)-getClipboardData self- = liftIO (nullableToMaybe <$> (js_getClipboardData self))+foreign import javascript unsafe "(($1) => { return $1[\"clipboardData\"]; })"+ js_getClipboardData :: ClipboardEvent -> IO JSVal+-- | <https://developer.mozilla.org/docs/Web/API/ClipboardEvent/clipboardData MDN ClipboardEvent.clipboardData documentation>+getClipboardData :: (MonadDOM m) => ClipboardEvent -> m (Maybe DataTransfer)+getClipboardData self = liftDOM (((js_getClipboardData (self)) >>= fromJSValUnchecked)) --- | <https://developer.mozilla.org/en-US/docs/Web/API/ClipboardEvent.clipboardData Mozilla ClipboardEvent.clipboardData documentation> -getClipboardDataUnsafe ::- (MonadIO m, HasCallStack) => ClipboardEvent -> m DataTransfer-getClipboardDataUnsafe self- = liftIO- ((nullableToMaybe <$> (js_getClipboardData self)) >>=- maybe (Prelude.error "Nothing to return") return)+-- | <https://developer.mozilla.org/docs/Web/API/ClipboardEvent/clipboardData MDN ClipboardEvent.clipboardData documentation>+getClipboardDataUnsafe :: (MonadDOM m, HasCallStack) => ClipboardEvent -> m DataTransfer+getClipboardDataUnsafe self = liftDOM ((((js_getClipboardData (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) --- | <https://developer.mozilla.org/en-US/docs/Web/API/ClipboardEvent.clipboardData Mozilla ClipboardEvent.clipboardData documentation> -getClipboardDataUnchecked ::- (MonadIO m) => ClipboardEvent -> m DataTransfer-getClipboardDataUnchecked self- = liftIO- (fromJust . nullableToMaybe <$> (js_getClipboardData self))+-- | <https://developer.mozilla.org/docs/Web/API/ClipboardEvent/clipboardData MDN ClipboardEvent.clipboardData documentation>+getClipboardDataUnchecked :: (MonadDOM m) => ClipboardEvent -> m DataTransfer+getClipboardDataUnchecked self = liftDOM ((pFromJSVal <$> (js_getClipboardData (self))))
@@ -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+-- | <https://w3c.github.io/clipboard-apis/#dictdef-clipboardeventinit ClipboardEventInit specification>+newClipboardEventInit :: (MonadDOM m) => m ClipboardEventInit+newClipboardEventInit = liftDOM ((js_newClipboardEventInit))++foreign import javascript safe "(($1, $2) => { $1[\"clipboardData\"] = $2; })"+ js_setClipboardData :: ClipboardEventInit -> JSVal -> IO ()+-- | <https://w3c.github.io/clipboard-apis/#dom-clipboardeventinit-clipboarddata ClipboardEventInit.clipboardData specification>+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+-- | <https://w3c.github.io/clipboard-apis/#dom-clipboardeventinit-clipboarddata ClipboardEventInit.clipboardData specification>+getClipboardData :: (MonadDOM m) => ClipboardEventInit -> m (Maybe DataTransfer)+getClipboardData self = liftDOM (((js_getClipboardData (self)) >>= fromJSValUnchecked))++-- | <https://w3c.github.io/clipboard-apis/#dom-clipboardeventinit-clipboarddata ClipboardEventInit.clipboardData specification>+getClipboardDataUnsafe :: (MonadDOM m, HasCallStack) => ClipboardEventInit -> m DataTransfer+getClipboardDataUnsafe self = liftDOM ((((js_getClipboardData (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://w3c.github.io/clipboard-apis/#dom-clipboardeventinit-clipboarddata ClipboardEventInit.clipboardData specification>+getClipboardDataUnchecked :: (MonadDOM m) => ClipboardEventInit -> m DataTransfer+getClipboardDataUnchecked self = liftDOM ((pFromJSVal <$> (js_getClipboardData (self))))
@@ -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+-- | <https://developer.mozilla.org/docs/Web/API/ClipboardItem/ClipboardItem MDN ClipboardItem. documentation>+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)+-- | <https://developer.mozilla.org/docs/Web/API/ClipboardItem/getType MDN ClipboardItem.getType documentation>+getType :: (MonadDOM m, ToJSString type') => ClipboardItem -> type' -> m Blob+getType self type' = liftDOM (((js_getType (self) (toJSString type')) >>= checkPromiseResult))++-- | <https://developer.mozilla.org/docs/Web/API/ClipboardItem/getType MDN ClipboardItem.getType documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/ClipboardItem/supports_static MDN ClipboardItem.supports documentation>+supports :: (MonadDOM m, ToJSString type') => type' -> m Bool+supports type' = liftDOM ((js_supports (toJSString type')))++-- | <https://developer.mozilla.org/docs/Web/API/ClipboardItem/supports_static MDN ClipboardItem.supports documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/ClipboardItem/presentationStyle MDN ClipboardItem.presentationStyle documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/ClipboardItem/types MDN ClipboardItem.types documentation>+getTypes :: (MonadDOM m, FromJSString result) => ClipboardItem -> m [result]+getTypes self = liftDOM (((js_getTypes (self)) >>= fromJSValUnchecked))
@@ -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+-- | <https://w3c.github.io/clipboard-apis/#dictdef-clipboarditemoptions ClipboardItemOptions specification>+newClipboardItemOptions :: (MonadDOM m) => m ClipboardItemOptions+newClipboardItemOptions = liftDOM ((js_newClipboardItemOptions))++foreign import javascript safe "(($1, $2) => { $1[\"presentationStyle\"] = $2; })"+ js_setPresentationStyle :: ClipboardItemOptions -> JSVal -> IO ()+-- | <https://w3c.github.io/clipboard-apis/#dom-clipboarditemoptions-presentationstyle ClipboardItemOptions.presentationStyle specification>+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+-- | <https://w3c.github.io/clipboard-apis/#dom-clipboarditemoptions-presentationstyle ClipboardItemOptions.presentationStyle specification>+getPresentationStyle :: (MonadDOM m) => ClipboardItemOptions -> m (Maybe PresentationStyle)+getPresentationStyle self = liftDOM (((js_getPresentationStyle (self)) >>= fromJSValUnchecked))++-- | <https://w3c.github.io/clipboard-apis/#dom-clipboarditemoptions-presentationstyle ClipboardItemOptions.presentationStyle specification>+getPresentationStyleUnsafe :: (MonadDOM m, HasCallStack) => ClipboardItemOptions -> m PresentationStyle+getPresentationStyleUnsafe self = liftDOM ((((js_getPresentationStyle (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://w3c.github.io/clipboard-apis/#dom-clipboarditemoptions-presentationstyle ClipboardItemOptions.presentationStyle specification>+getPresentationStyleUnchecked :: (MonadDOM m) => ClipboardItemOptions -> m PresentationStyle+getPresentationStyleUnchecked self = liftDOM ((pFromJSVal <$> (js_getPresentationStyle (self))))
@@ -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+-- | <https://w3c.github.io/clipboard-apis/#dictdef-clipboardunsanitizedformats ClipboardUnsanitizedFormats specification>+newClipboardUnsanitizedFormats :: (MonadDOM m) => m ClipboardUnsanitizedFormats+newClipboardUnsanitizedFormats = liftDOM ((js_newClipboardUnsanitizedFormats))++foreign import javascript safe "(($1, $2) => { $1[\"unsanitized\"] = $2; })"+ js_setUnsanitized :: ClipboardUnsanitizedFormats -> JSVal -> IO ()+-- | <https://w3c.github.io/clipboard-apis/#dom-clipboardunsanitizedformats-unsanitized ClipboardUnsanitizedFormats.unsanitized specification>+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+-- | <https://w3c.github.io/clipboard-apis/#dom-clipboardunsanitizedformats-unsanitized ClipboardUnsanitizedFormats.unsanitized specification>+getUnsanitized :: (MonadDOM m, FromJSString result) => ClipboardUnsanitizedFormats -> m (Maybe [result])+getUnsanitized self = liftDOM (((js_getUnsanitized (self)) >>= fromJSValUnchecked))++-- | <https://w3c.github.io/clipboard-apis/#dom-clipboardunsanitizedformats-unsanitized ClipboardUnsanitizedFormats.unsanitized specification>+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))++-- | <https://w3c.github.io/clipboard-apis/#dom-clipboardunsanitizedformats-unsanitized ClipboardUnsanitizedFormats.unsanitized specification>+getUnsanitizedUnchecked :: (MonadDOM m, FromJSString result) => ClipboardUnsanitizedFormats -> m [result]+getUnsanitizedUnchecked self = liftDOM (((js_getUnsanitized (self)) >>= fromJSValUnchecked))
@@ -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 --- | <https://developer.mozilla.org/en-US/docs/Web/API/CloseEvent Mozilla CloseEvent documentation> -newCloseEvent ::- (MonadIO m, ToJSString type') =>- type' -> Maybe CloseEventInit -> m CloseEvent-newCloseEvent type' eventInitDict- = liftIO- (js_newCloseEvent (toJSString type')- (maybeToOptional eventInitDict))- -foreign import javascript unsafe "(($1) => { 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+-- | <https://developer.mozilla.org/docs/Web/API/CloseEvent/CloseEvent MDN CloseEvent. documentation>+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')) --- | <https://developer.mozilla.org/en-US/docs/Web/API/CloseEvent.wasClean Mozilla CloseEvent.wasClean documentation> -getWasClean :: (MonadIO m) => CloseEvent -> m Bool-getWasClean self = liftIO (js_getWasClean self)- -foreign import javascript unsafe "(($1) => { return $1[\"code\"]; })" js_getCode ::- CloseEvent -> IO Word+foreign import javascript unsafe "(($1) => { return $1[\"wasClean\"]; })"+ js_getWasClean :: CloseEvent -> IO Bool+-- | <https://developer.mozilla.org/docs/Web/API/CloseEvent/wasClean MDN CloseEvent.wasClean documentation>+getWasClean :: (MonadDOM m) => CloseEvent -> m Bool+getWasClean self = liftDOM ((js_getWasClean (self))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/CloseEvent.code Mozilla CloseEvent.code documentation> -getCode :: (MonadIO m) => CloseEvent -> m Word-getCode self = liftIO (js_getCode self)- -foreign import javascript unsafe "(($1) => { return $1[\"reason\"]; })" js_getReason ::- CloseEvent -> IO JSString+foreign import javascript unsafe "(($1) => { return $1[\"code\"]; })"+ js_getCode :: CloseEvent -> IO Word+-- | <https://developer.mozilla.org/docs/Web/API/CloseEvent/code MDN CloseEvent.code documentation>+getCode :: (MonadDOM m) => CloseEvent -> m Word+getCode self = liftDOM ((js_getCode (self))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/CloseEvent.reason Mozilla CloseEvent.reason documentation> -getReason ::- (MonadIO m, FromJSString result) => CloseEvent -> m result-getReason self = liftIO (fromJSString <$> (js_getReason self))+foreign import javascript unsafe "(($1) => { return $1[\"reason\"]; })"+ js_getReason :: CloseEvent -> IO JSString+-- | <https://developer.mozilla.org/docs/Web/API/CloseEvent/reason MDN CloseEvent.reason documentation>+getReason :: (MonadDOM m, FromJSString result) => CloseEvent -> m result+getReason self = liftDOM ((fromJSString <$> (js_getReason (self))))
@@ -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+-- | <https://websockets.spec.whatwg.org/#dictdef-closeeventinit CloseEventInit specification>+newCloseEventInit :: (MonadDOM m) => m CloseEventInit+newCloseEventInit = liftDOM ((js_newCloseEventInit))++foreign import javascript safe "(($1, $2) => { $1[\"wasClean\"] = $2; })"+ js_setWasClean :: CloseEventInit -> Bool -> IO ()+-- | <https://websockets.spec.whatwg.org/#dom-closeeventinit-wasclean CloseEventInit.wasClean specification>+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+-- | <https://websockets.spec.whatwg.org/#dom-closeeventinit-wasclean CloseEventInit.wasClean specification>+getWasClean :: (MonadDOM m) => CloseEventInit -> m (Maybe Bool)+getWasClean self = liftDOM (((js_getWasClean (self)) >>= fromJSValUnchecked))++-- | <https://websockets.spec.whatwg.org/#dom-closeeventinit-wasclean CloseEventInit.wasClean specification>+getWasCleanUnsafe :: (MonadDOM m, HasCallStack) => CloseEventInit -> m Bool+getWasCleanUnsafe self = liftDOM ((((js_getWasClean (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://websockets.spec.whatwg.org/#dom-closeeventinit-wasclean CloseEventInit.wasClean specification>+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 ()+-- | <https://websockets.spec.whatwg.org/#dom-closeeventinit-code CloseEventInit.code specification>+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+-- | <https://websockets.spec.whatwg.org/#dom-closeeventinit-code CloseEventInit.code specification>+getCode :: (MonadDOM m) => CloseEventInit -> m (Maybe Word)+getCode self = liftDOM (((js_getCode (self)) >>= fromJSValUnchecked))++-- | <https://websockets.spec.whatwg.org/#dom-closeeventinit-code CloseEventInit.code specification>+getCodeUnsafe :: (MonadDOM m, HasCallStack) => CloseEventInit -> m Word+getCodeUnsafe self = liftDOM ((((js_getCode (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://websockets.spec.whatwg.org/#dom-closeeventinit-code CloseEventInit.code specification>+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 ()+-- | <https://websockets.spec.whatwg.org/#dom-closeeventinit-reason CloseEventInit.reason specification>+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+-- | <https://websockets.spec.whatwg.org/#dom-closeeventinit-reason CloseEventInit.reason specification>+getReason :: (MonadDOM m, FromJSString result) => CloseEventInit -> m (Maybe result)+getReason self = liftDOM (((fromMaybeJSString . Nullable) <$> (js_getReason (self))))++-- | <https://websockets.spec.whatwg.org/#dom-closeeventinit-reason CloseEventInit.reason specification>+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))++-- | <https://websockets.spec.whatwg.org/#dom-closeeventinit-reason CloseEventInit.reason specification>+getReasonUnchecked :: (MonadDOM m, FromJSString result) => CloseEventInit -> m result+getReasonUnchecked self = liftDOM ((pFromJSVal <$> (js_getReason (self))))
@@ -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+-- | <https://developer.mozilla.org/docs/Web/API/CloseWatcher/CloseWatcher MDN CloseWatcher. documentation>+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 ()+-- | <https://developer.mozilla.org/docs/Web/API/CloseWatcher/close MDN CloseWatcher.close documentation>+close :: (MonadDOM m) => CloseWatcher -> m ()+close self = liftDOM (void ((js_close (self))))++foreign import javascript safe "(($1) => { return $1[\"destroy\"](); })"+ js_destroy :: CloseWatcher -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/CloseWatcher/destroy MDN CloseWatcher.destroy documentation>+destroy :: (MonadDOM m) => CloseWatcher -> m ()+destroy self = liftDOM (void ((js_destroy (self))))++foreign import javascript safe "(($1) => { return $1[\"requestClose\"](); })"+ js_requestClose :: CloseWatcher -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/CloseWatcher/requestClose MDN CloseWatcher.requestClose documentation>+requestClose :: (MonadDOM m) => CloseWatcher -> m ()+requestClose self = liftDOM (void ((js_requestClose (self))))++-- | <https://html.spec.whatwg.org/multipage/interaction.html#handler-closewatcher-oncancel cancel event>+cancel :: EventName CloseWatcher Event+cancel = unsafeEventName (toJSString "cancel")++-- | <https://html.spec.whatwg.org/multipage/interaction.html#handler-closewatcher-onclose close event>+closeEvent :: EventName CloseWatcher Event+closeEvent = unsafeEventNameAsync (toJSString "close")
@@ -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+-- | <https://html.spec.whatwg.org/multipage/interaction.html#closewatcheroptions CloseWatcherOptions specification>+newCloseWatcherOptions :: (MonadDOM m) => m CloseWatcherOptions+newCloseWatcherOptions = liftDOM ((js_newCloseWatcherOptions))++foreign import javascript safe "(($1, $2) => { $1[\"signal\"] = $2; })"+ js_setSignal :: CloseWatcherOptions -> AbortSignal -> IO ()+-- | <https://html.spec.whatwg.org/multipage/interaction.html#dom-closewatcheroptions-signal CloseWatcherOptions.signal specification>+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+-- | <https://html.spec.whatwg.org/multipage/interaction.html#dom-closewatcheroptions-signal CloseWatcherOptions.signal specification>+getSignal :: (MonadDOM m) => CloseWatcherOptions -> m (Maybe AbortSignal)+getSignal self = liftDOM (((js_getSignal (self)) >>= fromJSValUnchecked))++-- | <https://html.spec.whatwg.org/multipage/interaction.html#dom-closewatcheroptions-signal CloseWatcherOptions.signal specification>+getSignalUnsafe :: (MonadDOM m, HasCallStack) => CloseWatcherOptions -> m AbortSignal+getSignalUnsafe self = liftDOM ((((js_getSignal (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://html.spec.whatwg.org/multipage/interaction.html#dom-closewatcheroptions-signal CloseWatcherOptions.signal specification>+getSignalUnchecked :: (MonadDOM m) => CloseWatcherOptions -> m AbortSignal+getSignalUnchecked self = liftDOM ((pFromJSVal <$> (js_getSignal (self))))
@@ -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+-- | <https://developer.mozilla.org/docs/Web/API/CommandEvent/CommandEvent MDN CommandEvent. documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/CommandEvent/source MDN CommandEvent.source documentation>+getSource :: (MonadDOM m) => CommandEvent -> m (Maybe Element)+getSource self = liftDOM (((js_getSource (self)) >>= fromJSValUnchecked))++-- | <https://developer.mozilla.org/docs/Web/API/CommandEvent/source MDN CommandEvent.source documentation>+getSourceUnsafe :: (MonadDOM m, HasCallStack) => CommandEvent -> m Element+getSourceUnsafe self = liftDOM ((((js_getSource (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://developer.mozilla.org/docs/Web/API/CommandEvent/source MDN CommandEvent.source documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/CommandEvent/command MDN CommandEvent.command documentation>+getCommand :: (MonadDOM m, FromJSString result) => CommandEvent -> m result+getCommand self = liftDOM ((fromJSString <$> (js_getCommand (self))))
@@ -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+-- | <https://html.spec.whatwg.org/multipage/interaction.html#commandeventinit CommandEventInit specification>+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))))
@@ -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 ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/CommandLineAPIHost.clearConsoleMessages Mozilla CommandLineAPIHost.clearConsoleMessages documentation> -clearConsoleMessages :: (MonadIO m) => CommandLineAPIHost -> m ()-clearConsoleMessages self = liftIO (js_clearConsoleMessages self)- -foreign import javascript unsafe "(($1, $2) => { return $1[\"copyText\"]($2); })" js_copyText- :: CommandLineAPIHost -> JSString -> IO ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/CommandLineAPIHost.copyText Mozilla CommandLineAPIHost.copyText documentation> -copyText ::- (MonadIO m, ToJSString text) => CommandLineAPIHost -> text -> m ()-copyText self text = liftIO (js_copyText self (toJSString text))- -foreign import javascript unsafe "(($1, $2, $3) => { return $1[\"inspect\"]($2, $3); })"- js_inspect :: CommandLineAPIHost -> JSVal -> JSVal -> IO ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/CommandLineAPIHost.inspect Mozilla CommandLineAPIHost.inspect documentation> -inspect ::- (MonadIO m, 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---- | <https://developer.mozilla.org/en-US/docs/Web/API/CommandLineAPIHost.inspectedObject Mozilla CommandLineAPIHost.inspectedObject documentation> -inspectedObject :: (MonadIO m) => CommandLineAPIHost -> m JSVal-inspectedObject self = liftIO (js_inspectedObject self)---- | <https://developer.mozilla.org/en-US/docs/Web/API/CommandLineAPIHost.inspectedObject Mozilla CommandLineAPIHost.inspectedObject documentation> -inspectedObject_ :: (MonadIO m) => CommandLineAPIHost -> m ()-inspectedObject_ self = liftIO (void (js_inspectedObject self))- -foreign import javascript unsafe "(($1, $2) => { return $1[\"getEventListeners\"]($2); })"- js_getEventListeners :: CommandLineAPIHost -> Node -> IO Array---- | <https://developer.mozilla.org/en-US/docs/Web/API/CommandLineAPIHost.getEventListeners Mozilla CommandLineAPIHost.getEventListeners documentation> -getEventListeners ::- (MonadIO m, IsNode node) => CommandLineAPIHost -> node -> m Array-getEventListeners self node- = liftIO (js_getEventListeners self (toNode node))---- | <https://developer.mozilla.org/en-US/docs/Web/API/CommandLineAPIHost.getEventListeners Mozilla CommandLineAPIHost.getEventListeners documentation> -getEventListeners_ ::- (MonadIO m, IsNode node) => CommandLineAPIHost -> 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---- | <https://developer.mozilla.org/en-US/docs/Web/API/CommandLineAPIHost.databaseId Mozilla CommandLineAPIHost.databaseId documentation> -databaseId ::- (MonadIO m, ToJSVal database, FromJSString result) =>- CommandLineAPIHost -> database -> m result-databaseId self database- = liftIO- (fromJSString <$>- (toJSVal database >>= \ database' -> js_databaseId self database'))---- | <https://developer.mozilla.org/en-US/docs/Web/API/CommandLineAPIHost.databaseId Mozilla CommandLineAPIHost.databaseId documentation> -databaseId_ ::- (MonadIO m, 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---- | <https://developer.mozilla.org/en-US/docs/Web/API/CommandLineAPIHost.storageId Mozilla CommandLineAPIHost.storageId documentation> -storageId ::- (MonadIO m, ToJSVal storage, FromJSString result) =>- CommandLineAPIHost -> storage -> m result-storageId self storage- = liftIO- (fromJSString <$>- (toJSVal storage >>= \ storage' -> js_storageId self storage'))---- | <https://developer.mozilla.org/en-US/docs/Web/API/CommandLineAPIHost.storageId Mozilla CommandLineAPIHost.storageId documentation> -storageId_ ::- (MonadIO m, ToJSVal storage) =>- CommandLineAPIHost -> storage -> m ()-storageId_ self storage- = liftIO- (void- (toJSVal storage >>= \ storage' -> js_storageId self storage'))
@@ -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 --- | <https://developer.mozilla.org/en-US/docs/Web/API/Comment Mozilla Comment documentation> -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+-- | <https://developer.mozilla.org/docs/Web/API/Comment/Comment MDN Comment. documentation>+newComment :: (MonadDOM m, ToJSString data') => Maybe data' -> m Comment+newComment data' = liftDOM ((js_newComment (toOptionalJSString data')))
@@ -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 --- | <https://developer.mozilla.org/en-US/docs/Web/API/CompositionEvent Mozilla CompositionEvent documentation> -newCompositionEvent ::- (MonadIO m, ToJSString type') =>- type' -> Maybe CompositionEventInit -> m CompositionEvent-newCompositionEvent type' eventInitDict- = liftIO- (js_newCompositionEvent (toJSString type')- (maybeToOptional eventInitDict))- -foreign import javascript unsafe- "(($1, $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+-- | <https://developer.mozilla.org/docs/Web/API/CompositionEvent/CompositionEvent MDN CompositionEvent. documentation>+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')) --- | <https://developer.mozilla.org/en-US/docs/Web/API/CompositionEvent.initCompositionEvent Mozilla CompositionEvent.initCompositionEvent documentation> -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 ()+-- | <https://developer.mozilla.org/docs/Web/API/CompositionEvent/initCompositionEvent MDN CompositionEvent.initCompositionEvent documentation>+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)))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/CompositionEvent.data Mozilla CompositionEvent.data documentation> -getData ::- (MonadIO m, FromJSString result) => CompositionEvent -> m result-getData self = liftIO (fromJSString <$> (js_getData self))+foreign import javascript unsafe "(($1) => { return $1[\"data\"]; })"+ js_getData :: CompositionEvent -> IO JSString+-- | <https://developer.mozilla.org/docs/Web/API/CompositionEvent/data MDN CompositionEvent.data documentation>+getData :: (MonadDOM m, FromJSString result) => CompositionEvent -> m result+getData self = liftDOM ((fromJSString <$> (js_getData (self))))
@@ -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+-- | <https://w3c.github.io/uievents/#dictdef-compositioneventinit CompositionEventInit specification>+newCompositionEventInit :: (MonadDOM m) => m CompositionEventInit+newCompositionEventInit = liftDOM ((js_newCompositionEventInit))++foreign import javascript safe "(($1, $2) => { $1[\"data\"] = $2; })"+ js_setData :: CompositionEventInit -> JSString -> IO ()+-- | <https://w3c.github.io/uievents/#dom-compositioneventinit-data CompositionEventInit.data specification>+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+-- | <https://w3c.github.io/uievents/#dom-compositioneventinit-data CompositionEventInit.data specification>+getData :: (MonadDOM m, FromJSString result) => CompositionEventInit -> m (Maybe result)+getData self = liftDOM (((fromMaybeJSString . Nullable) <$> (js_getData (self))))++-- | <https://w3c.github.io/uievents/#dom-compositioneventinit-data CompositionEventInit.data specification>+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))++-- | <https://w3c.github.io/uievents/#dom-compositioneventinit-data CompositionEventInit.data specification>+getDataUnchecked :: (MonadDOM m, FromJSString result) => CompositionEventInit -> m result+getDataUnchecked self = liftDOM ((pFromJSVal <$> (js_getData (self))))
@@ -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+-- | <https://developer.mozilla.org/docs/Web/API/CompressionStream/CompressionStream MDN CompressionStream. documentation>+newCompressionStream :: (MonadDOM m) => CompressionFormat -> m CompressionStream+newCompressionStream format = liftDOM (((toJSVal format) >>= \a1' -> js_newCompressionStream a1'))
@@ -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+-- | <https://drafts.csswg.org/web-animations-1/#dictdef-computedeffecttiming ComputedEffectTiming specification>+newComputedEffectTiming :: (MonadDOM m) => m ComputedEffectTiming+newComputedEffectTiming = liftDOM ((js_newComputedEffectTiming))++foreign import javascript safe "(($1, $2) => { $1[\"progress\"] = $2; })"+ js_setProgress :: ComputedEffectTiming -> JSVal -> IO ()+-- | <https://drafts.csswg.org/web-animations-1/#dom-computedeffecttiming-progress ComputedEffectTiming.progress specification>+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+-- | <https://drafts.csswg.org/web-animations-1/#dom-computedeffecttiming-progress ComputedEffectTiming.progress specification>+getProgress :: (MonadDOM m) => ComputedEffectTiming -> m (Maybe Double)+getProgress self = liftDOM (((js_getProgress (self)) >>= fromJSValUnchecked))++-- | <https://drafts.csswg.org/web-animations-1/#dom-computedeffecttiming-progress ComputedEffectTiming.progress specification>+getProgressUnsafe :: (MonadDOM m, HasCallStack) => ComputedEffectTiming -> m Double+getProgressUnsafe self = liftDOM ((((js_getProgress (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://drafts.csswg.org/web-animations-1/#dom-computedeffecttiming-progress ComputedEffectTiming.progress specification>+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 ()+-- | <https://drafts.csswg.org/web-animations-1/#dom-computedeffecttiming-currentiteration ComputedEffectTiming.currentIteration specification>+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+-- | <https://drafts.csswg.org/web-animations-1/#dom-computedeffecttiming-currentiteration ComputedEffectTiming.currentIteration specification>+getCurrentIteration :: (MonadDOM m) => ComputedEffectTiming -> m (Maybe Double)+getCurrentIteration self = liftDOM (((js_getCurrentIteration (self)) >>= fromJSValUnchecked))++-- | <https://drafts.csswg.org/web-animations-1/#dom-computedeffecttiming-currentiteration ComputedEffectTiming.currentIteration specification>+getCurrentIterationUnsafe :: (MonadDOM m, HasCallStack) => ComputedEffectTiming -> m Double+getCurrentIterationUnsafe self = liftDOM ((((js_getCurrentIteration (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://drafts.csswg.org/web-animations-1/#dom-computedeffecttiming-currentiteration ComputedEffectTiming.currentIteration specification>+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 ()+-- | <https://drafts.csswg.org/web-animations-2/#dom-computedeffecttiming-starttime ComputedEffectTiming.startTime specification>+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+-- | <https://drafts.csswg.org/web-animations-2/#dom-computedeffecttiming-starttime ComputedEffectTiming.startTime specification>+getStartTime :: (MonadDOM m) => ComputedEffectTiming -> m (Maybe CSSNumberish)+getStartTime self = liftDOM (((js_getStartTime (self)) >>= fromJSValUnchecked))++-- | <https://drafts.csswg.org/web-animations-2/#dom-computedeffecttiming-starttime ComputedEffectTiming.startTime specification>+getStartTimeUnsafe :: (MonadDOM m, HasCallStack) => ComputedEffectTiming -> m CSSNumberish+getStartTimeUnsafe self = liftDOM ((((js_getStartTime (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://drafts.csswg.org/web-animations-2/#dom-computedeffecttiming-starttime ComputedEffectTiming.startTime specification>+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 ()+-- | <https://drafts.csswg.org/web-animations-2/#dom-computedeffecttiming-endtime ComputedEffectTiming.endTime specification>+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+-- | <https://drafts.csswg.org/web-animations-2/#dom-computedeffecttiming-endtime ComputedEffectTiming.endTime specification>+getEndTime :: (MonadDOM m) => ComputedEffectTiming -> m (Maybe CSSNumberish)+getEndTime self = liftDOM (((js_getEndTime (self)) >>= fromJSValUnchecked))++-- | <https://drafts.csswg.org/web-animations-2/#dom-computedeffecttiming-endtime ComputedEffectTiming.endTime specification>+getEndTimeUnsafe :: (MonadDOM m, HasCallStack) => ComputedEffectTiming -> m CSSNumberish+getEndTimeUnsafe self = liftDOM ((((js_getEndTime (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://drafts.csswg.org/web-animations-2/#dom-computedeffecttiming-endtime ComputedEffectTiming.endTime specification>+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 ()+-- | <https://drafts.csswg.org/web-animations-2/#dom-computedeffecttiming-activeduration ComputedEffectTiming.activeDuration specification>+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+-- | <https://drafts.csswg.org/web-animations-2/#dom-computedeffecttiming-activeduration ComputedEffectTiming.activeDuration specification>+getActiveDuration :: (MonadDOM m) => ComputedEffectTiming -> m (Maybe CSSNumberish)+getActiveDuration self = liftDOM (((js_getActiveDuration (self)) >>= fromJSValUnchecked))++-- | <https://drafts.csswg.org/web-animations-2/#dom-computedeffecttiming-activeduration ComputedEffectTiming.activeDuration specification>+getActiveDurationUnsafe :: (MonadDOM m, HasCallStack) => ComputedEffectTiming -> m CSSNumberish+getActiveDurationUnsafe self = liftDOM ((((js_getActiveDuration (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://drafts.csswg.org/web-animations-2/#dom-computedeffecttiming-activeduration ComputedEffectTiming.activeDuration specification>+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 ()+-- | <https://drafts.csswg.org/web-animations-2/#dom-computedeffecttiming-localtime ComputedEffectTiming.localTime specification>+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+-- | <https://drafts.csswg.org/web-animations-2/#dom-computedeffecttiming-localtime ComputedEffectTiming.localTime specification>+getLocalTime :: (MonadDOM m) => ComputedEffectTiming -> m (Maybe CSSNumberish)+getLocalTime self = liftDOM (((js_getLocalTime (self)) >>= fromJSValUnchecked))++-- | <https://drafts.csswg.org/web-animations-2/#dom-computedeffecttiming-localtime ComputedEffectTiming.localTime specification>+getLocalTimeUnsafe :: (MonadDOM m, HasCallStack) => ComputedEffectTiming -> m CSSNumberish+getLocalTimeUnsafe self = liftDOM ((((js_getLocalTime (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://drafts.csswg.org/web-animations-2/#dom-computedeffecttiming-localtime ComputedEffectTiming.localTime specification>+getLocalTimeUnchecked :: (MonadDOM m) => ComputedEffectTiming -> m CSSNumberish+getLocalTimeUnchecked self = liftDOM ((pFromJSVal <$> (js_getLocalTime (self))))
@@ -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 ()+-- | <https://developer.mozilla.org/docs/Web/API/console/assert_static MDN console.assert documentation>+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 ()+-- | <https://developer.mozilla.org/docs/Web/API/console/clear_static MDN console.clear documentation>+clear :: (MonadDOM m) => m ()+clear = liftDOM (void ((js_clear)))++foreign import javascript safe "(($1) => { return globalThis[\"console\"][\"count\"]($1); })"+ js_count :: (Optional JSString) -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/console/count_static MDN console.count documentation>+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 ()+-- | <https://developer.mozilla.org/docs/Web/API/console/countReset_static MDN console.countReset documentation>+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 ()+-- | <https://developer.mozilla.org/docs/Web/API/console/debug_static MDN console.debug documentation>+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 ()+-- | <https://developer.mozilla.org/docs/Web/API/console/dir_static MDN console.dir documentation>+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 ()+-- | <https://developer.mozilla.org/docs/Web/API/console/dirxml_static MDN console.dirxml documentation>+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 ()+-- | <https://developer.mozilla.org/docs/Web/API/console/error_static MDN console.error documentation>+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 ()+-- | <https://developer.mozilla.org/docs/Web/API/console/group_static MDN console.group documentation>+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 ()+-- | <https://developer.mozilla.org/docs/Web/API/console/groupCollapsed_static MDN console.groupCollapsed documentation>+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 ()+-- | <https://developer.mozilla.org/docs/Web/API/console/groupEnd_static MDN console.groupEnd documentation>+groupEnd :: (MonadDOM m) => m ()+groupEnd = liftDOM (void ((js_groupEnd)))++foreign import javascript safe "(($1) => { return globalThis[\"console\"][\"info\"](...$1); })"+ js_info :: JSVal -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/console/info_static MDN console.info documentation>+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 ()+-- | <https://developer.mozilla.org/docs/Web/API/console/log_static MDN console.log documentation>+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 ()+-- | <https://developer.mozilla.org/docs/Web/API/console/table_static MDN console.table documentation>+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 ()+-- | <https://developer.mozilla.org/docs/Web/API/console/time_static MDN console.time documentation>+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 ()+-- | <https://developer.mozilla.org/docs/Web/API/console/timeEnd_static MDN console.timeEnd documentation>+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 ()+-- | <https://developer.mozilla.org/docs/Web/API/console/timeLog_static MDN console.timeLog documentation>+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 ()+-- | <https://developer.mozilla.org/docs/Web/API/console/trace_static MDN console.trace documentation>+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 ()+-- | <https://developer.mozilla.org/docs/Web/API/console/warn_static MDN console.warn documentation>+warn :: (MonadDOM m) => [JSVal] -> m ()+warn data' = liftDOM (void (((toJSVal data') >>= \a1' -> js_warn a1')))
@@ -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+-- | <https://developer.mozilla.org/docs/Web/API/ConstantSourceNode/ConstantSourceNode MDN ConstantSourceNode. documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/ConstantSourceNode/offset MDN ConstantSourceNode.offset documentation>+getOffset :: (MonadDOM m) => ConstantSourceNode -> m AudioParam+getOffset self = liftDOM ((js_getOffset (self)))
@@ -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+-- | <https://webaudio.github.io/web-audio-api/#ConstantSourceOptions ConstantSourceOptions specification>+newConstantSourceOptions :: (MonadDOM m) => m ConstantSourceOptions+newConstantSourceOptions = liftDOM ((js_newConstantSourceOptions))++foreign import javascript safe "(($1, $2) => { $1[\"offset\"] = $2; })"+ js_setOffset :: ConstantSourceOptions -> Float -> IO ()+-- | <https://webaudio.github.io/web-audio-api/#dom-constantsourceoptions-offset ConstantSourceOptions.offset specification>+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+-- | <https://webaudio.github.io/web-audio-api/#dom-constantsourceoptions-offset ConstantSourceOptions.offset specification>+getOffset :: (MonadDOM m) => ConstantSourceOptions -> m (Maybe Float)+getOffset self = liftDOM (((js_getOffset (self)) >>= fromJSValUnchecked))++-- | <https://webaudio.github.io/web-audio-api/#dom-constantsourceoptions-offset ConstantSourceOptions.offset specification>+getOffsetUnsafe :: (MonadDOM m, HasCallStack) => ConstantSourceOptions -> m Float+getOffsetUnsafe self = liftDOM ((((js_getOffset (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://webaudio.github.io/web-audio-api/#dom-constantsourceoptions-offset ConstantSourceOptions.offset specification>+getOffsetUnchecked :: (MonadDOM m) => ConstantSourceOptions -> m Float+getOffsetUnchecked self = liftDOM ((pFromJSVal <$> (js_getOffset (self))))
@@ -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+-- | <https://w3c.github.io/mediacapture-main/#dom-constrainbooleanordomstringparameters ConstrainBooleanOrDOMStringParameters specification>+newConstrainBooleanOrDOMStringParameters :: (MonadDOM m) => m ConstrainBooleanOrDOMStringParameters+newConstrainBooleanOrDOMStringParameters = liftDOM ((js_newConstrainBooleanOrDOMStringParameters))++foreign import javascript safe "(($1, $2) => { $1[\"exact\"] = $2; })"+ js_setExact :: ConstrainBooleanOrDOMStringParameters -> BoolOrString -> IO ()+-- | <https://w3c.github.io/mediacapture-main/#dom-constrainbooleanordomstringparameters-exact ConstrainBooleanOrDOMStringParameters.exact specification>+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+-- | <https://w3c.github.io/mediacapture-main/#dom-constrainbooleanordomstringparameters-exact ConstrainBooleanOrDOMStringParameters.exact specification>+getExact :: (MonadDOM m) => ConstrainBooleanOrDOMStringParameters -> m (Maybe BoolOrString)+getExact self = liftDOM (((js_getExact (self)) >>= fromJSValUnchecked))++-- | <https://w3c.github.io/mediacapture-main/#dom-constrainbooleanordomstringparameters-exact ConstrainBooleanOrDOMStringParameters.exact specification>+getExactUnsafe :: (MonadDOM m, HasCallStack) => ConstrainBooleanOrDOMStringParameters -> m BoolOrString+getExactUnsafe self = liftDOM ((((js_getExact (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://w3c.github.io/mediacapture-main/#dom-constrainbooleanordomstringparameters-exact ConstrainBooleanOrDOMStringParameters.exact specification>+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 ()+-- | <https://w3c.github.io/mediacapture-main/#dom-constrainbooleanordomstringparameters-ideal ConstrainBooleanOrDOMStringParameters.ideal specification>+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+-- | <https://w3c.github.io/mediacapture-main/#dom-constrainbooleanordomstringparameters-ideal ConstrainBooleanOrDOMStringParameters.ideal specification>+getIdeal :: (MonadDOM m) => ConstrainBooleanOrDOMStringParameters -> m (Maybe BoolOrString)+getIdeal self = liftDOM (((js_getIdeal (self)) >>= fromJSValUnchecked))++-- | <https://w3c.github.io/mediacapture-main/#dom-constrainbooleanordomstringparameters-ideal ConstrainBooleanOrDOMStringParameters.ideal specification>+getIdealUnsafe :: (MonadDOM m, HasCallStack) => ConstrainBooleanOrDOMStringParameters -> m BoolOrString+getIdealUnsafe self = liftDOM ((((js_getIdeal (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://w3c.github.io/mediacapture-main/#dom-constrainbooleanordomstringparameters-ideal ConstrainBooleanOrDOMStringParameters.ideal specification>+getIdealUnchecked :: (MonadDOM m) => ConstrainBooleanOrDOMStringParameters -> m BoolOrString+getIdealUnchecked self = liftDOM ((pFromJSVal <$> (js_getIdeal (self))))
@@ -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+-- | <https://w3c.github.io/mediacapture-main/#dom-constrainbooleanparameters ConstrainBooleanParameters specification>+newConstrainBooleanParameters :: (MonadDOM m) => m ConstrainBooleanParameters+newConstrainBooleanParameters = liftDOM ((js_newConstrainBooleanParameters))++foreign import javascript safe "(($1, $2) => { $1[\"exact\"] = $2; })"+ js_setExact :: ConstrainBooleanParameters -> Bool -> IO ()+-- | <https://w3c.github.io/mediacapture-main/#dom-constrainbooleanparameters-exact ConstrainBooleanParameters.exact specification>+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+-- | <https://w3c.github.io/mediacapture-main/#dom-constrainbooleanparameters-exact ConstrainBooleanParameters.exact specification>+getExact :: (MonadDOM m) => ConstrainBooleanParameters -> m (Maybe Bool)+getExact self = liftDOM (((js_getExact (self)) >>= fromJSValUnchecked))++-- | <https://w3c.github.io/mediacapture-main/#dom-constrainbooleanparameters-exact ConstrainBooleanParameters.exact specification>+getExactUnsafe :: (MonadDOM m, HasCallStack) => ConstrainBooleanParameters -> m Bool+getExactUnsafe self = liftDOM ((((js_getExact (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://w3c.github.io/mediacapture-main/#dom-constrainbooleanparameters-exact ConstrainBooleanParameters.exact specification>+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 ()+-- | <https://w3c.github.io/mediacapture-main/#dom-constrainbooleanparameters-ideal ConstrainBooleanParameters.ideal specification>+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+-- | <https://w3c.github.io/mediacapture-main/#dom-constrainbooleanparameters-ideal ConstrainBooleanParameters.ideal specification>+getIdeal :: (MonadDOM m) => ConstrainBooleanParameters -> m (Maybe Bool)+getIdeal self = liftDOM (((js_getIdeal (self)) >>= fromJSValUnchecked))++-- | <https://w3c.github.io/mediacapture-main/#dom-constrainbooleanparameters-ideal ConstrainBooleanParameters.ideal specification>+getIdealUnsafe :: (MonadDOM m, HasCallStack) => ConstrainBooleanParameters -> m Bool+getIdealUnsafe self = liftDOM ((((js_getIdeal (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://w3c.github.io/mediacapture-main/#dom-constrainbooleanparameters-ideal ConstrainBooleanParameters.ideal specification>+getIdealUnchecked :: (MonadDOM m) => ConstrainBooleanParameters -> m Bool+getIdealUnchecked self = liftDOM ((pFromJSVal <$> (js_getIdeal (self))))
@@ -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+-- | <https://w3c.github.io/mediacapture-main/#dom-constraindomstringparameters ConstrainDOMStringParameters specification>+newConstrainDOMStringParameters :: (MonadDOM m) => m ConstrainDOMStringParameters+newConstrainDOMStringParameters = liftDOM ((js_newConstrainDOMStringParameters))++foreign import javascript safe "(($1, $2) => { $1[\"exact\"] = $2; })"+ js_setExact :: ConstrainDOMStringParameters -> StringOrSequenceString -> IO ()+-- | <https://w3c.github.io/mediacapture-main/#dom-constraindomstringparameters-exact ConstrainDOMStringParameters.exact specification>+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+-- | <https://w3c.github.io/mediacapture-main/#dom-constraindomstringparameters-exact ConstrainDOMStringParameters.exact specification>+getExact :: (MonadDOM m) => ConstrainDOMStringParameters -> m (Maybe StringOrSequenceString)+getExact self = liftDOM (((js_getExact (self)) >>= fromJSValUnchecked))++-- | <https://w3c.github.io/mediacapture-main/#dom-constraindomstringparameters-exact ConstrainDOMStringParameters.exact specification>+getExactUnsafe :: (MonadDOM m, HasCallStack) => ConstrainDOMStringParameters -> m StringOrSequenceString+getExactUnsafe self = liftDOM ((((js_getExact (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://w3c.github.io/mediacapture-main/#dom-constraindomstringparameters-exact ConstrainDOMStringParameters.exact specification>+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 ()+-- | <https://w3c.github.io/mediacapture-main/#dom-constraindomstringparameters-ideal ConstrainDOMStringParameters.ideal specification>+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+-- | <https://w3c.github.io/mediacapture-main/#dom-constraindomstringparameters-ideal ConstrainDOMStringParameters.ideal specification>+getIdeal :: (MonadDOM m) => ConstrainDOMStringParameters -> m (Maybe StringOrSequenceString)+getIdeal self = liftDOM (((js_getIdeal (self)) >>= fromJSValUnchecked))++-- | <https://w3c.github.io/mediacapture-main/#dom-constraindomstringparameters-ideal ConstrainDOMStringParameters.ideal specification>+getIdealUnsafe :: (MonadDOM m, HasCallStack) => ConstrainDOMStringParameters -> m StringOrSequenceString+getIdealUnsafe self = liftDOM ((((js_getIdeal (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://w3c.github.io/mediacapture-main/#dom-constraindomstringparameters-ideal ConstrainDOMStringParameters.ideal specification>+getIdealUnchecked :: (MonadDOM m) => ConstrainDOMStringParameters -> m StringOrSequenceString+getIdealUnchecked self = liftDOM ((pFromJSVal <$> (js_getIdeal (self))))
@@ -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+-- | <https://w3c.github.io/mediacapture-main/#dom-constraindoublerange ConstrainDoubleRange specification>+newConstrainDoubleRange :: (MonadDOM m) => m ConstrainDoubleRange+newConstrainDoubleRange = liftDOM ((js_newConstrainDoubleRange))++foreign import javascript safe "(($1, $2) => { $1[\"exact\"] = $2; })"+ js_setExact :: ConstrainDoubleRange -> Double -> IO ()+-- | <https://w3c.github.io/mediacapture-main/#dom-constraindoublerange-exact ConstrainDoubleRange.exact specification>+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+-- | <https://w3c.github.io/mediacapture-main/#dom-constraindoublerange-exact ConstrainDoubleRange.exact specification>+getExact :: (MonadDOM m) => ConstrainDoubleRange -> m (Maybe Double)+getExact self = liftDOM (((js_getExact (self)) >>= fromJSValUnchecked))++-- | <https://w3c.github.io/mediacapture-main/#dom-constraindoublerange-exact ConstrainDoubleRange.exact specification>+getExactUnsafe :: (MonadDOM m, HasCallStack) => ConstrainDoubleRange -> m Double+getExactUnsafe self = liftDOM ((((js_getExact (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://w3c.github.io/mediacapture-main/#dom-constraindoublerange-exact ConstrainDoubleRange.exact specification>+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 ()+-- | <https://w3c.github.io/mediacapture-main/#dom-constraindoublerange-ideal ConstrainDoubleRange.ideal specification>+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+-- | <https://w3c.github.io/mediacapture-main/#dom-constraindoublerange-ideal ConstrainDoubleRange.ideal specification>+getIdeal :: (MonadDOM m) => ConstrainDoubleRange -> m (Maybe Double)+getIdeal self = liftDOM (((js_getIdeal (self)) >>= fromJSValUnchecked))++-- | <https://w3c.github.io/mediacapture-main/#dom-constraindoublerange-ideal ConstrainDoubleRange.ideal specification>+getIdealUnsafe :: (MonadDOM m, HasCallStack) => ConstrainDoubleRange -> m Double+getIdealUnsafe self = liftDOM ((((js_getIdeal (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://w3c.github.io/mediacapture-main/#dom-constraindoublerange-ideal ConstrainDoubleRange.ideal specification>+getIdealUnchecked :: (MonadDOM m) => ConstrainDoubleRange -> m Double+getIdealUnchecked self = liftDOM ((pFromJSVal <$> (js_getIdeal (self))))
@@ -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+-- | <https://w3c.github.io/mediacapture-image/#dictdef-constrainpoint2dparameters ConstrainPoint2DParameters specification>+newConstrainPoint2DParameters :: (MonadDOM m) => m ConstrainPoint2DParameters+newConstrainPoint2DParameters = liftDOM ((js_newConstrainPoint2DParameters))++foreign import javascript safe "(($1, $2) => { $1[\"exact\"] = $2; })"+ js_setExact :: ConstrainPoint2DParameters -> JSVal -> IO ()+-- | <https://w3c.github.io/mediacapture-image/#dom-constrainpoint2dparameters-exact ConstrainPoint2DParameters.exact specification>+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+-- | <https://w3c.github.io/mediacapture-image/#dom-constrainpoint2dparameters-exact ConstrainPoint2DParameters.exact specification>+getExact :: (MonadDOM m) => ConstrainPoint2DParameters -> m (Maybe [Point2D])+getExact self = liftDOM (((js_getExact (self)) >>= fromJSValUnchecked))++-- | <https://w3c.github.io/mediacapture-image/#dom-constrainpoint2dparameters-exact ConstrainPoint2DParameters.exact specification>+getExactUnsafe :: (MonadDOM m, HasCallStack) => ConstrainPoint2DParameters -> m [Point2D]+getExactUnsafe self = liftDOM ((((js_getExact (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://w3c.github.io/mediacapture-image/#dom-constrainpoint2dparameters-exact ConstrainPoint2DParameters.exact specification>+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 ()+-- | <https://w3c.github.io/mediacapture-image/#dom-constrainpoint2dparameters-ideal ConstrainPoint2DParameters.ideal specification>+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+-- | <https://w3c.github.io/mediacapture-image/#dom-constrainpoint2dparameters-ideal ConstrainPoint2DParameters.ideal specification>+getIdeal :: (MonadDOM m) => ConstrainPoint2DParameters -> m (Maybe [Point2D])+getIdeal self = liftDOM (((js_getIdeal (self)) >>= fromJSValUnchecked))++-- | <https://w3c.github.io/mediacapture-image/#dom-constrainpoint2dparameters-ideal ConstrainPoint2DParameters.ideal specification>+getIdealUnsafe :: (MonadDOM m, HasCallStack) => ConstrainPoint2DParameters -> m [Point2D]+getIdealUnsafe self = liftDOM ((((js_getIdeal (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://w3c.github.io/mediacapture-image/#dom-constrainpoint2dparameters-ideal ConstrainPoint2DParameters.ideal specification>+getIdealUnchecked :: (MonadDOM m) => ConstrainPoint2DParameters -> m [Point2D]+getIdealUnchecked self = liftDOM (((js_getIdeal (self)) >>= fromJSValUnchecked))
@@ -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+-- | <https://w3c.github.io/mediacapture-main/#dom-constrainulongrange ConstrainULongRange specification>+newConstrainULongRange :: (MonadDOM m) => m ConstrainULongRange+newConstrainULongRange = liftDOM ((js_newConstrainULongRange))++foreign import javascript safe "(($1, $2) => { $1[\"exact\"] = $2; })"+ js_setExact :: ConstrainULongRange -> Word -> IO ()+-- | <https://w3c.github.io/mediacapture-main/#dom-constrainulongrange-exact ConstrainULongRange.exact specification>+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+-- | <https://w3c.github.io/mediacapture-main/#dom-constrainulongrange-exact ConstrainULongRange.exact specification>+getExact :: (MonadDOM m) => ConstrainULongRange -> m (Maybe Word)+getExact self = liftDOM (((js_getExact (self)) >>= fromJSValUnchecked))++-- | <https://w3c.github.io/mediacapture-main/#dom-constrainulongrange-exact ConstrainULongRange.exact specification>+getExactUnsafe :: (MonadDOM m, HasCallStack) => ConstrainULongRange -> m Word+getExactUnsafe self = liftDOM ((((js_getExact (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://w3c.github.io/mediacapture-main/#dom-constrainulongrange-exact ConstrainULongRange.exact specification>+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 ()+-- | <https://w3c.github.io/mediacapture-main/#dom-constrainulongrange-ideal ConstrainULongRange.ideal specification>+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+-- | <https://w3c.github.io/mediacapture-main/#dom-constrainulongrange-ideal ConstrainULongRange.ideal specification>+getIdeal :: (MonadDOM m) => ConstrainULongRange -> m (Maybe Word)+getIdeal self = liftDOM (((js_getIdeal (self)) >>= fromJSValUnchecked))++-- | <https://w3c.github.io/mediacapture-main/#dom-constrainulongrange-ideal ConstrainULongRange.ideal specification>+getIdealUnsafe :: (MonadDOM m, HasCallStack) => ConstrainULongRange -> m Word+getIdealUnsafe self = liftDOM ((((js_getIdeal (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://w3c.github.io/mediacapture-main/#dom-constrainulongrange-ideal ConstrainULongRange.ideal specification>+getIdealUnchecked :: (MonadDOM m) => ConstrainULongRange -> m Word+getIdealUnchecked self = liftDOM ((pFromJSVal <$> (js_getIdeal (self))))
@@ -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+
@@ -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+-- | <https://developer.mozilla.org/docs/Web/API/ContentVisibilityAutoStateChangeEvent/ContentVisibilityAutoStateChangeEvent MDN ContentVisibilityAutoStateChangeEvent. documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/ContentVisibilityAutoStateChangeEvent/skipped MDN ContentVisibilityAutoStateChangeEvent.skipped documentation>+getSkipped :: (MonadDOM m) => ContentVisibilityAutoStateChangeEvent -> m Bool+getSkipped self = liftDOM ((js_getSkipped (self)))
@@ -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+-- | <https://drafts.csswg.org/css-contain-2/#dictdef-contentvisibilityautostatechangeeventinit ContentVisibilityAutoStateChangeEventInit specification>+newContentVisibilityAutoStateChangeEventInit :: (MonadDOM m) => m ContentVisibilityAutoStateChangeEventInit+newContentVisibilityAutoStateChangeEventInit = liftDOM ((js_newContentVisibilityAutoStateChangeEventInit))++foreign import javascript safe "(($1, $2) => { $1[\"skipped\"] = $2; })"+ js_setSkipped :: ContentVisibilityAutoStateChangeEventInit -> Bool -> IO ()+-- | <https://drafts.csswg.org/css-contain-2/#dom-contentvisibilityautostatechangeeventinit-skipped ContentVisibilityAutoStateChangeEventInit.skipped specification>+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+-- | <https://drafts.csswg.org/css-contain-2/#dom-contentvisibilityautostatechangeeventinit-skipped ContentVisibilityAutoStateChangeEventInit.skipped specification>+getSkipped :: (MonadDOM m) => ContentVisibilityAutoStateChangeEventInit -> m (Maybe Bool)+getSkipped self = liftDOM (((js_getSkipped (self)) >>= fromJSValUnchecked))++-- | <https://drafts.csswg.org/css-contain-2/#dom-contentvisibilityautostatechangeeventinit-skipped ContentVisibilityAutoStateChangeEventInit.skipped specification>+getSkippedUnsafe :: (MonadDOM m, HasCallStack) => ContentVisibilityAutoStateChangeEventInit -> m Bool+getSkippedUnsafe self = liftDOM ((((js_getSkipped (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://drafts.csswg.org/css-contain-2/#dom-contentvisibilityautostatechangeeventinit-skipped ContentVisibilityAutoStateChangeEventInit.skipped specification>+getSkippedUnchecked :: (MonadDOM m) => ContentVisibilityAutoStateChangeEventInit -> m Bool+getSkippedUnchecked self = liftDOM ((pFromJSVal <$> (js_getSkipped (self))))
@@ -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 () --- | <https://developer.mozilla.org/en-US/docs/Web/API/ConvolverNode.buffer Mozilla ConvolverNode.buffer documentation> -setBuffer ::- (MonadIO m) => ConvolverNode -> Maybe AudioBuffer -> m ()-setBuffer self val- = liftIO (js_setBuffer self (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+-- | <https://developer.mozilla.org/docs/Web/API/ConvolverNode/ConvolverNode MDN ConvolverNode. documentation>+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')) --- | <https://developer.mozilla.org/en-US/docs/Web/API/ConvolverNode.buffer Mozilla ConvolverNode.buffer documentation> -getBuffer :: (MonadIO m) => ConvolverNode -> m (Maybe AudioBuffer)-getBuffer self = liftIO (nullableToMaybe <$> (js_getBuffer self))+foreign import javascript safe "(($1, $2) => { $1[\"buffer\"] = $2; })"+ js_setBuffer :: ConvolverNode -> JSVal -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/ConvolverNode/buffer MDN ConvolverNode.buffer documentation>+setBuffer :: (MonadDOM m) => ConvolverNode -> Maybe AudioBuffer -> m ()+setBuffer self val = liftDOM (void (((toJSVal val) >>= \a2' -> js_setBuffer (self) a2'))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/ConvolverNode.buffer Mozilla ConvolverNode.buffer documentation> -getBufferUnsafe ::- (MonadIO m, HasCallStack) => ConvolverNode -> m AudioBuffer-getBufferUnsafe self- = liftIO- ((nullableToMaybe <$> (js_getBuffer self)) >>=- maybe (Prelude.error "Nothing to return") return)+foreign import javascript unsafe "(($1) => { return $1[\"buffer\"]; })"+ js_getBuffer :: ConvolverNode -> IO JSVal+-- | <https://developer.mozilla.org/docs/Web/API/ConvolverNode/buffer MDN ConvolverNode.buffer documentation>+getBuffer :: (MonadDOM m) => ConvolverNode -> m (Maybe AudioBuffer)+getBuffer self = liftDOM (((js_getBuffer (self)) >>= fromJSValUnchecked)) --- | <https://developer.mozilla.org/en-US/docs/Web/API/ConvolverNode.buffer Mozilla ConvolverNode.buffer documentation> -getBufferUnchecked :: (MonadIO m) => ConvolverNode -> m AudioBuffer-getBufferUnchecked self- = liftIO (fromJust . nullableToMaybe <$> (js_getBuffer self))- -foreign import javascript unsafe "(($1, $2) => { $1[\"normalize\"] = $2; })"+-- | <https://developer.mozilla.org/docs/Web/API/ConvolverNode/buffer MDN ConvolverNode.buffer documentation>+getBufferUnsafe :: (MonadDOM m, HasCallStack) => ConvolverNode -> m AudioBuffer+getBufferUnsafe self = liftDOM ((((js_getBuffer (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://developer.mozilla.org/docs/Web/API/ConvolverNode/buffer MDN ConvolverNode.buffer documentation>+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 ()+-- | <https://developer.mozilla.org/docs/Web/API/ConvolverNode/normalize MDN ConvolverNode.normalize documentation>+setNormalize :: (MonadDOM m) => ConvolverNode -> Bool -> m ()+setNormalize self val = liftDOM (void ((js_setNormalize (self) (val)))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/ConvolverNode.normalize Mozilla ConvolverNode.normalize documentation> -setNormalize :: (MonadIO m) => ConvolverNode -> Bool -> m ()-setNormalize self val = liftIO (js_setNormalize self val)- -foreign import javascript unsafe "(($1) => { return ($1[\"normalize\"] ? 1 : 0); })"+foreign import javascript unsafe "(($1) => { return $1[\"normalize\"]; })" js_getNormalize :: ConvolverNode -> IO Bool---- | <https://developer.mozilla.org/en-US/docs/Web/API/ConvolverNode.normalize Mozilla ConvolverNode.normalize documentation> -getNormalize :: (MonadIO m) => ConvolverNode -> m Bool-getNormalize self = liftIO (js_getNormalize self)+-- | <https://developer.mozilla.org/docs/Web/API/ConvolverNode/normalize MDN ConvolverNode.normalize documentation>+getNormalize :: (MonadDOM m) => ConvolverNode -> m Bool+getNormalize self = liftDOM ((js_getNormalize (self)))
@@ -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+-- | <https://webaudio.github.io/web-audio-api/#ConvolverOptions ConvolverOptions specification>+newConvolverOptions :: (MonadDOM m) => m ConvolverOptions+newConvolverOptions = liftDOM ((js_newConvolverOptions))++foreign import javascript safe "(($1, $2) => { $1[\"buffer\"] = $2; })"+ js_setBuffer :: ConvolverOptions -> JSVal -> IO ()+-- | <https://webaudio.github.io/web-audio-api/#dom-convolveroptions-buffer ConvolverOptions.buffer specification>+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+-- | <https://webaudio.github.io/web-audio-api/#dom-convolveroptions-buffer ConvolverOptions.buffer specification>+getBuffer :: (MonadDOM m) => ConvolverOptions -> m (Maybe AudioBuffer)+getBuffer self = liftDOM (((js_getBuffer (self)) >>= fromJSValUnchecked))++-- | <https://webaudio.github.io/web-audio-api/#dom-convolveroptions-buffer ConvolverOptions.buffer specification>+getBufferUnsafe :: (MonadDOM m, HasCallStack) => ConvolverOptions -> m AudioBuffer+getBufferUnsafe self = liftDOM ((((js_getBuffer (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://webaudio.github.io/web-audio-api/#dom-convolveroptions-buffer ConvolverOptions.buffer specification>+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 ()+-- | <https://webaudio.github.io/web-audio-api/#dom-convolveroptions-disablenormalization ConvolverOptions.disableNormalization specification>+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+-- | <https://webaudio.github.io/web-audio-api/#dom-convolveroptions-disablenormalization ConvolverOptions.disableNormalization specification>+getDisableNormalization :: (MonadDOM m) => ConvolverOptions -> m (Maybe Bool)+getDisableNormalization self = liftDOM (((js_getDisableNormalization (self)) >>= fromJSValUnchecked))++-- | <https://webaudio.github.io/web-audio-api/#dom-convolveroptions-disablenormalization ConvolverOptions.disableNormalization specification>+getDisableNormalizationUnsafe :: (MonadDOM m, HasCallStack) => ConvolverOptions -> m Bool+getDisableNormalizationUnsafe self = liftDOM ((((js_getDisableNormalization (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://webaudio.github.io/web-audio-api/#dom-convolveroptions-disablenormalization ConvolverOptions.disableNormalization specification>+getDisableNormalizationUnchecked :: (MonadDOM m) => ConvolverOptions -> m Bool+getDisableNormalizationUnchecked self = liftDOM ((pFromJSVal <$> (js_getDisableNormalization (self))))
@@ -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+-- | <https://developer.mozilla.org/docs/Web/API/CookieChangeEvent/CookieChangeEvent MDN CookieChangeEvent. documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/CookieChangeEvent/changed MDN CookieChangeEvent.changed documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/CookieChangeEvent/deleted MDN CookieChangeEvent.deleted documentation>+getDeleted :: (MonadDOM m) => CookieChangeEvent -> m [CookieListItem]+getDeleted self = liftDOM (((js_getDeleted (self)) >>= fromJSValUnchecked))
@@ -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+-- | <https://cookiestore.spec.whatwg.org/#dictdef-cookiechangeeventinit CookieChangeEventInit specification>+newCookieChangeEventInit :: (MonadDOM m) => m CookieChangeEventInit+newCookieChangeEventInit = liftDOM ((js_newCookieChangeEventInit))++foreign import javascript safe "(($1, $2) => { $1[\"changed\"] = $2; })"+ js_setChanged :: CookieChangeEventInit -> JSVal -> IO ()+-- | <https://cookiestore.spec.whatwg.org/#dom-cookiechangeeventinit-changed CookieChangeEventInit.changed specification>+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+-- | <https://cookiestore.spec.whatwg.org/#dom-cookiechangeeventinit-changed CookieChangeEventInit.changed specification>+getChanged :: (MonadDOM m) => CookieChangeEventInit -> m (Maybe [CookieListItem])+getChanged self = liftDOM (((js_getChanged (self)) >>= fromJSValUnchecked))++-- | <https://cookiestore.spec.whatwg.org/#dom-cookiechangeeventinit-changed CookieChangeEventInit.changed specification>+getChangedUnsafe :: (MonadDOM m, HasCallStack) => CookieChangeEventInit -> m [CookieListItem]+getChangedUnsafe self = liftDOM ((((js_getChanged (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://cookiestore.spec.whatwg.org/#dom-cookiechangeeventinit-changed CookieChangeEventInit.changed specification>+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 ()+-- | <https://cookiestore.spec.whatwg.org/#dom-cookiechangeeventinit-deleted CookieChangeEventInit.deleted specification>+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+-- | <https://cookiestore.spec.whatwg.org/#dom-cookiechangeeventinit-deleted CookieChangeEventInit.deleted specification>+getDeleted :: (MonadDOM m) => CookieChangeEventInit -> m (Maybe [CookieListItem])+getDeleted self = liftDOM (((js_getDeleted (self)) >>= fromJSValUnchecked))++-- | <https://cookiestore.spec.whatwg.org/#dom-cookiechangeeventinit-deleted CookieChangeEventInit.deleted specification>+getDeletedUnsafe :: (MonadDOM m, HasCallStack) => CookieChangeEventInit -> m [CookieListItem]+getDeletedUnsafe self = liftDOM ((((js_getDeleted (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://cookiestore.spec.whatwg.org/#dom-cookiechangeeventinit-deleted CookieChangeEventInit.deleted specification>+getDeletedUnchecked :: (MonadDOM m) => CookieChangeEventInit -> m [CookieListItem]+getDeletedUnchecked self = liftDOM (((js_getDeleted (self)) >>= fromJSValUnchecked))
@@ -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+-- | <https://cookiestore.spec.whatwg.org/#dictdef-cookieinit CookieInit specification>+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 ()+-- | <https://cookiestore.spec.whatwg.org/#dom-cookieinit-name CookieInit.name specification>+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+-- | <https://cookiestore.spec.whatwg.org/#dom-cookieinit-name CookieInit.name specification>+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 ()+-- | <https://cookiestore.spec.whatwg.org/#dom-cookieinit-value CookieInit.value specification>+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+-- | <https://cookiestore.spec.whatwg.org/#dom-cookieinit-value CookieInit.value specification>+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 ()+-- | <https://cookiestore.spec.whatwg.org/#dom-cookieinit-expires CookieInit.expires specification>+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+-- | <https://cookiestore.spec.whatwg.org/#dom-cookieinit-expires CookieInit.expires specification>+getExpires :: (MonadDOM m) => CookieInit -> m (Maybe Double)+getExpires self = liftDOM (((js_getExpires (self)) >>= fromJSValUnchecked))++-- | <https://cookiestore.spec.whatwg.org/#dom-cookieinit-expires CookieInit.expires specification>+getExpiresUnsafe :: (MonadDOM m, HasCallStack) => CookieInit -> m Double+getExpiresUnsafe self = liftDOM ((((js_getExpires (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://cookiestore.spec.whatwg.org/#dom-cookieinit-expires CookieInit.expires specification>+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 ()+-- | <https://cookiestore.spec.whatwg.org/#dom-cookieinit-domain CookieInit.domain specification>+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+-- | <https://cookiestore.spec.whatwg.org/#dom-cookieinit-domain CookieInit.domain specification>+getDomain :: (MonadDOM m, FromJSString result) => CookieInit -> m (Maybe result)+getDomain self = liftDOM (((fromMaybeJSString . Nullable) <$> (js_getDomain (self))))++-- | <https://cookiestore.spec.whatwg.org/#dom-cookieinit-domain CookieInit.domain specification>+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))++-- | <https://cookiestore.spec.whatwg.org/#dom-cookieinit-domain CookieInit.domain specification>+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 ()+-- | <https://cookiestore.spec.whatwg.org/#dom-cookieinit-path CookieInit.path specification>+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+-- | <https://cookiestore.spec.whatwg.org/#dom-cookieinit-path CookieInit.path specification>+getPath :: (MonadDOM m, FromJSString result) => CookieInit -> m (Maybe result)+getPath self = liftDOM (((fromMaybeJSString . Nullable) <$> (js_getPath (self))))++-- | <https://cookiestore.spec.whatwg.org/#dom-cookieinit-path CookieInit.path specification>+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))++-- | <https://cookiestore.spec.whatwg.org/#dom-cookieinit-path CookieInit.path specification>+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 ()+-- | <https://cookiestore.spec.whatwg.org/#dom-cookieinit-samesite CookieInit.sameSite specification>+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+-- | <https://cookiestore.spec.whatwg.org/#dom-cookieinit-samesite CookieInit.sameSite specification>+getSameSite :: (MonadDOM m) => CookieInit -> m (Maybe CookieSameSite)+getSameSite self = liftDOM (((js_getSameSite (self)) >>= fromJSValUnchecked))++-- | <https://cookiestore.spec.whatwg.org/#dom-cookieinit-samesite CookieInit.sameSite specification>+getSameSiteUnsafe :: (MonadDOM m, HasCallStack) => CookieInit -> m CookieSameSite+getSameSiteUnsafe self = liftDOM ((((js_getSameSite (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://cookiestore.spec.whatwg.org/#dom-cookieinit-samesite CookieInit.sameSite specification>+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 ()+-- | <https://cookiestore.spec.whatwg.org/#dom-cookieinit-partitioned CookieInit.partitioned specification>+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+-- | <https://cookiestore.spec.whatwg.org/#dom-cookieinit-partitioned CookieInit.partitioned specification>+getPartitioned :: (MonadDOM m) => CookieInit -> m (Maybe Bool)+getPartitioned self = liftDOM (((js_getPartitioned (self)) >>= fromJSValUnchecked))++-- | <https://cookiestore.spec.whatwg.org/#dom-cookieinit-partitioned CookieInit.partitioned specification>+getPartitionedUnsafe :: (MonadDOM m, HasCallStack) => CookieInit -> m Bool+getPartitionedUnsafe self = liftDOM ((((js_getPartitioned (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://cookiestore.spec.whatwg.org/#dom-cookieinit-partitioned CookieInit.partitioned specification>+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 ()+-- | <https://cookiestore.spec.whatwg.org/#dom-cookieinit-maxage CookieInit.maxAge specification>+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+-- | <https://cookiestore.spec.whatwg.org/#dom-cookieinit-maxage CookieInit.maxAge specification>+getMaxAge :: (MonadDOM m) => CookieInit -> m (Maybe Int53)+getMaxAge self = liftDOM (((js_getMaxAge (self)) >>= fromJSValUnchecked))++-- | <https://cookiestore.spec.whatwg.org/#dom-cookieinit-maxage CookieInit.maxAge specification>+getMaxAgeUnsafe :: (MonadDOM m, HasCallStack) => CookieInit -> m Int53+getMaxAgeUnsafe self = liftDOM ((((js_getMaxAge (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://cookiestore.spec.whatwg.org/#dom-cookieinit-maxage CookieInit.maxAge specification>+getMaxAgeUnchecked :: (MonadDOM m) => CookieInit -> m Int53+getMaxAgeUnchecked self = liftDOM ((pFromJSVal <$> (js_getMaxAge (self))))
@@ -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+-- | <https://cookiestore.spec.whatwg.org/#dictdef-cookielistitem CookieListItem specification>+newCookieListItem :: (MonadDOM m) => m CookieListItem+newCookieListItem = liftDOM ((js_newCookieListItem))++foreign import javascript safe "(($1, $2) => { $1[\"name\"] = $2; })"+ js_setName :: CookieListItem -> JSString -> IO ()+-- | <https://cookiestore.spec.whatwg.org/#dom-cookielistitem-name CookieListItem.name specification>+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+-- | <https://cookiestore.spec.whatwg.org/#dom-cookielistitem-name CookieListItem.name specification>+getName :: (MonadDOM m, FromJSString result) => CookieListItem -> m (Maybe result)+getName self = liftDOM (((fromMaybeJSString . Nullable) <$> (js_getName (self))))++-- | <https://cookiestore.spec.whatwg.org/#dom-cookielistitem-name CookieListItem.name specification>+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))++-- | <https://cookiestore.spec.whatwg.org/#dom-cookielistitem-name CookieListItem.name specification>+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 ()+-- | <https://cookiestore.spec.whatwg.org/#dom-cookielistitem-value CookieListItem.value specification>+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+-- | <https://cookiestore.spec.whatwg.org/#dom-cookielistitem-value CookieListItem.value specification>+getValue :: (MonadDOM m, FromJSString result) => CookieListItem -> m (Maybe result)+getValue self = liftDOM (((fromMaybeJSString . Nullable) <$> (js_getValue (self))))++-- | <https://cookiestore.spec.whatwg.org/#dom-cookielistitem-value CookieListItem.value specification>+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))++-- | <https://cookiestore.spec.whatwg.org/#dom-cookielistitem-value CookieListItem.value specification>+getValueUnchecked :: (MonadDOM m, FromJSString result) => CookieListItem -> m result+getValueUnchecked self = liftDOM ((pFromJSVal <$> (js_getValue (self))))
@@ -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, ())+-- | <https://developer.mozilla.org/docs/Web/API/CookieStore/delete MDN CookieStore.delete documentation>+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, ())+-- | <https://developer.mozilla.org/docs/Web/API/CookieStore/delete MDN CookieStore.delete documentation>+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)+-- | <https://developer.mozilla.org/docs/Web/API/CookieStore/get MDN CookieStore.get documentation>+get :: (MonadDOM m, ToJSString name) => CookieStore -> name -> m (Maybe CookieListItem)+get self name = liftDOM ((((js_get (self) (toJSString name)) >>= checkPromiseResult) >>= fromJSValUnchecked))++-- | <https://developer.mozilla.org/docs/Web/API/CookieStore/get MDN CookieStore.get documentation>+get_ :: (MonadDOM m, ToJSString name) => CookieStore -> name -> m ()+get_ self name = liftDOM (void (((js_get (self) (toJSString name)) >>= checkPromiseResult)))++-- | <https://developer.mozilla.org/docs/Web/API/CookieStore/get MDN CookieStore.get documentation>+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))++-- | <https://developer.mozilla.org/docs/Web/API/CookieStore/get MDN CookieStore.get documentation>+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)+-- | <https://developer.mozilla.org/docs/Web/API/CookieStore/get MDN CookieStore.get documentation>+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))++-- | <https://developer.mozilla.org/docs/Web/API/CookieStore/get MDN CookieStore.get documentation>+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)))++-- | <https://developer.mozilla.org/docs/Web/API/CookieStore/get MDN CookieStore.get documentation>+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))++-- | <https://developer.mozilla.org/docs/Web/API/CookieStore/get MDN CookieStore.get documentation>+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)+-- | <https://developer.mozilla.org/docs/Web/API/CookieStore/getAll MDN CookieStore.getAll documentation>+getAll :: (MonadDOM m, ToJSString name) => CookieStore -> name -> m [CookieListItem]+getAll self name = liftDOM ((((js_getAll (self) (toJSString name)) >>= checkPromiseResult) >>= fromJSValUnchecked))++-- | <https://developer.mozilla.org/docs/Web/API/CookieStore/getAll MDN CookieStore.getAll documentation>+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)+-- | <https://developer.mozilla.org/docs/Web/API/CookieStore/getAll MDN CookieStore.getAll documentation>+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))++-- | <https://developer.mozilla.org/docs/Web/API/CookieStore/getAll MDN CookieStore.getAll documentation>+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, ())+-- | <https://developer.mozilla.org/docs/Web/API/CookieStore/set MDN CookieStore.set documentation>+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, ())+-- | <https://developer.mozilla.org/docs/Web/API/CookieStore/set MDN CookieStore.set documentation>+setOptions :: (MonadDOM m) => CookieStore -> CookieInit -> m ()+setOptions self options = liftDOM (void (((js_setOptions (self) (options)) >>= checkPromiseResult)))++-- | <https://cookiestore.spec.whatwg.org/#dom-cookiestore-onchange change event>+change :: EventName CookieStore CookieChangeEvent+change = unsafeEventName (toJSString "change")
@@ -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+-- | <https://cookiestore.spec.whatwg.org/#dictdef-cookiestoredeleteoptions CookieStoreDeleteOptions specification>+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 ()+-- | <https://cookiestore.spec.whatwg.org/#dom-cookiestoredeleteoptions-name CookieStoreDeleteOptions.name specification>+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+-- | <https://cookiestore.spec.whatwg.org/#dom-cookiestoredeleteoptions-name CookieStoreDeleteOptions.name specification>+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 ()+-- | <https://cookiestore.spec.whatwg.org/#dom-cookiestoredeleteoptions-domain CookieStoreDeleteOptions.domain specification>+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+-- | <https://cookiestore.spec.whatwg.org/#dom-cookiestoredeleteoptions-domain CookieStoreDeleteOptions.domain specification>+getDomain :: (MonadDOM m, FromJSString result) => CookieStoreDeleteOptions -> m (Maybe result)+getDomain self = liftDOM (((fromMaybeJSString . Nullable) <$> (js_getDomain (self))))++-- | <https://cookiestore.spec.whatwg.org/#dom-cookiestoredeleteoptions-domain CookieStoreDeleteOptions.domain specification>+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))++-- | <https://cookiestore.spec.whatwg.org/#dom-cookiestoredeleteoptions-domain CookieStoreDeleteOptions.domain specification>+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 ()+-- | <https://cookiestore.spec.whatwg.org/#dom-cookiestoredeleteoptions-path CookieStoreDeleteOptions.path specification>+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+-- | <https://cookiestore.spec.whatwg.org/#dom-cookiestoredeleteoptions-path CookieStoreDeleteOptions.path specification>+getPath :: (MonadDOM m, FromJSString result) => CookieStoreDeleteOptions -> m (Maybe result)+getPath self = liftDOM (((fromMaybeJSString . Nullable) <$> (js_getPath (self))))++-- | <https://cookiestore.spec.whatwg.org/#dom-cookiestoredeleteoptions-path CookieStoreDeleteOptions.path specification>+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))++-- | <https://cookiestore.spec.whatwg.org/#dom-cookiestoredeleteoptions-path CookieStoreDeleteOptions.path specification>+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 ()+-- | <https://cookiestore.spec.whatwg.org/#dom-cookiestoredeleteoptions-partitioned CookieStoreDeleteOptions.partitioned specification>+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+-- | <https://cookiestore.spec.whatwg.org/#dom-cookiestoredeleteoptions-partitioned CookieStoreDeleteOptions.partitioned specification>+getPartitioned :: (MonadDOM m) => CookieStoreDeleteOptions -> m (Maybe Bool)+getPartitioned self = liftDOM (((js_getPartitioned (self)) >>= fromJSValUnchecked))++-- | <https://cookiestore.spec.whatwg.org/#dom-cookiestoredeleteoptions-partitioned CookieStoreDeleteOptions.partitioned specification>+getPartitionedUnsafe :: (MonadDOM m, HasCallStack) => CookieStoreDeleteOptions -> m Bool+getPartitionedUnsafe self = liftDOM ((((js_getPartitioned (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://cookiestore.spec.whatwg.org/#dom-cookiestoredeleteoptions-partitioned CookieStoreDeleteOptions.partitioned specification>+getPartitionedUnchecked :: (MonadDOM m) => CookieStoreDeleteOptions -> m Bool+getPartitionedUnchecked self = liftDOM ((pFromJSVal <$> (js_getPartitioned (self))))
@@ -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+-- | <https://cookiestore.spec.whatwg.org/#dictdef-cookiestoregetoptions CookieStoreGetOptions specification>+newCookieStoreGetOptions :: (MonadDOM m) => m CookieStoreGetOptions+newCookieStoreGetOptions = liftDOM ((js_newCookieStoreGetOptions))++foreign import javascript safe "(($1, $2) => { $1[\"name\"] = $2; })"+ js_setName :: CookieStoreGetOptions -> JSString -> IO ()+-- | <https://cookiestore.spec.whatwg.org/#dom-cookiestoregetoptions-name CookieStoreGetOptions.name specification>+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+-- | <https://cookiestore.spec.whatwg.org/#dom-cookiestoregetoptions-name CookieStoreGetOptions.name specification>+getName :: (MonadDOM m, FromJSString result) => CookieStoreGetOptions -> m (Maybe result)+getName self = liftDOM (((fromMaybeJSString . Nullable) <$> (js_getName (self))))++-- | <https://cookiestore.spec.whatwg.org/#dom-cookiestoregetoptions-name CookieStoreGetOptions.name specification>+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))++-- | <https://cookiestore.spec.whatwg.org/#dom-cookiestoregetoptions-name CookieStoreGetOptions.name specification>+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 ()+-- | <https://cookiestore.spec.whatwg.org/#dom-cookiestoregetoptions-url CookieStoreGetOptions.url specification>+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+-- | <https://cookiestore.spec.whatwg.org/#dom-cookiestoregetoptions-url CookieStoreGetOptions.url specification>+getUrl :: (MonadDOM m, FromJSString result) => CookieStoreGetOptions -> m (Maybe result)+getUrl self = liftDOM (((fromMaybeJSString . Nullable) <$> (js_getUrl (self))))++-- | <https://cookiestore.spec.whatwg.org/#dom-cookiestoregetoptions-url CookieStoreGetOptions.url specification>+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))++-- | <https://cookiestore.spec.whatwg.org/#dom-cookiestoregetoptions-url CookieStoreGetOptions.url specification>+getUrlUnchecked :: (MonadDOM m, FromJSString result) => CookieStoreGetOptions -> m result+getUrlUnchecked self = liftDOM ((pFromJSVal <$> (js_getUrl (self))))
@@ -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)+-- | <https://developer.mozilla.org/docs/Web/API/CookieStoreManager/getSubscriptions MDN CookieStoreManager.getSubscriptions documentation>+getSubscriptions :: (MonadDOM m) => CookieStoreManager -> m [CookieStoreGetOptions]+getSubscriptions self = liftDOM ((((js_getSubscriptions (self)) >>= checkPromiseResult) >>= fromJSValUnchecked))++-- | <https://developer.mozilla.org/docs/Web/API/CookieStoreManager/getSubscriptions MDN CookieStoreManager.getSubscriptions documentation>+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, ())+-- | <https://developer.mozilla.org/docs/Web/API/CookieStoreManager/subscribe MDN CookieStoreManager.subscribe documentation>+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, ())+-- | <https://developer.mozilla.org/docs/Web/API/CookieStoreManager/unsubscribe MDN CookieStoreManager.unsubscribe documentation>+unsubscribe :: (MonadDOM m) => CookieStoreManager -> [CookieStoreGetOptions] -> m ()+unsubscribe self subscriptions = liftDOM (void ((((toJSVal subscriptions) >>= \a2' -> js_unsubscribe (self) a2') >>= checkPromiseResult)))
@@ -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---- | <https://developer.mozilla.org/en-US/docs/Web/API/Coordinates.latitude Mozilla Coordinates.latitude documentation> -getLatitude :: (MonadIO m) => Coordinates -> m Double-getLatitude self = liftIO (js_getLatitude self)- -foreign import javascript unsafe "(($1) => { return $1[\"longitude\"]; })"- js_getLongitude :: Coordinates -> IO Double---- | <https://developer.mozilla.org/en-US/docs/Web/API/Coordinates.longitude Mozilla Coordinates.longitude documentation> -getLongitude :: (MonadIO m) => Coordinates -> m Double-getLongitude self = liftIO (js_getLongitude self)- -foreign import javascript unsafe "(($1) => { return $1[\"altitude\"]; })" js_getAltitude- :: Coordinates -> IO (Nullable Double)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Coordinates.altitude Mozilla Coordinates.altitude documentation> -getAltitude :: (MonadIO m) => Coordinates -> m (Maybe Double)-getAltitude self- = liftIO (nullableToMaybe <$> (js_getAltitude self))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Coordinates.altitude Mozilla Coordinates.altitude documentation> -getAltitudeUnsafe ::- (MonadIO m, HasCallStack) => Coordinates -> m Double-getAltitudeUnsafe self- = liftIO- ((nullableToMaybe <$> (js_getAltitude self)) >>=- maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Coordinates.altitude Mozilla Coordinates.altitude documentation> -getAltitudeUnchecked :: (MonadIO m) => Coordinates -> m Double-getAltitudeUnchecked self- = liftIO (fromJust . nullableToMaybe <$> (js_getAltitude self))- -foreign import javascript unsafe "(($1) => { return $1[\"accuracy\"]; })" js_getAccuracy- :: Coordinates -> IO Double---- | <https://developer.mozilla.org/en-US/docs/Web/API/Coordinates.accuracy Mozilla Coordinates.accuracy documentation> -getAccuracy :: (MonadIO m) => Coordinates -> m Double-getAccuracy self = liftIO (js_getAccuracy self)- -foreign import javascript unsafe "(($1) => { return $1[\"altitudeAccuracy\"]; })"- js_getAltitudeAccuracy :: Coordinates -> IO (Nullable Double)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Coordinates.altitudeAccuracy Mozilla Coordinates.altitudeAccuracy documentation> -getAltitudeAccuracy ::- (MonadIO m) => Coordinates -> m (Maybe Double)-getAltitudeAccuracy self- = liftIO (nullableToMaybe <$> (js_getAltitudeAccuracy self))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Coordinates.altitudeAccuracy Mozilla Coordinates.altitudeAccuracy documentation> -getAltitudeAccuracyUnsafe ::- (MonadIO m, HasCallStack) => Coordinates -> m Double-getAltitudeAccuracyUnsafe self- = liftIO- ((nullableToMaybe <$> (js_getAltitudeAccuracy self)) >>=- maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Coordinates.altitudeAccuracy Mozilla Coordinates.altitudeAccuracy documentation> -getAltitudeAccuracyUnchecked ::- (MonadIO m) => Coordinates -> m Double-getAltitudeAccuracyUnchecked self- = liftIO- (fromJust . nullableToMaybe <$> (js_getAltitudeAccuracy self))- -foreign import javascript unsafe "(($1) => { return $1[\"heading\"]; })" js_getHeading ::- Coordinates -> IO (Nullable Double)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Coordinates.heading Mozilla Coordinates.heading documentation> -getHeading :: (MonadIO m) => Coordinates -> m (Maybe Double)-getHeading self = liftIO (nullableToMaybe <$> (js_getHeading self))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Coordinates.heading Mozilla Coordinates.heading documentation> -getHeadingUnsafe ::- (MonadIO m, HasCallStack) => Coordinates -> m Double-getHeadingUnsafe self- = liftIO- ((nullableToMaybe <$> (js_getHeading self)) >>=- maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Coordinates.heading Mozilla Coordinates.heading documentation> -getHeadingUnchecked :: (MonadIO m) => Coordinates -> m Double-getHeadingUnchecked self- = liftIO (fromJust . nullableToMaybe <$> (js_getHeading self))- -foreign import javascript unsafe "(($1) => { return $1[\"speed\"]; })" js_getSpeed ::- Coordinates -> IO (Nullable Double)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Coordinates.speed Mozilla Coordinates.speed documentation> -getSpeed :: (MonadIO m) => Coordinates -> m (Maybe Double)-getSpeed self = liftIO (nullableToMaybe <$> (js_getSpeed self))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Coordinates.speed Mozilla Coordinates.speed documentation> -getSpeedUnsafe ::- (MonadIO m, HasCallStack) => Coordinates -> m Double-getSpeedUnsafe self- = liftIO- ((nullableToMaybe <$> (js_getSpeed self)) >>=- maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Coordinates.speed Mozilla Coordinates.speed documentation> -getSpeedUnchecked :: (MonadIO m) => Coordinates -> m Double-getSpeedUnchecked self- = liftIO (fromJust . nullableToMaybe <$> (js_getSpeed self))
@@ -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 --- | <https://developer.mozilla.org/en-US/docs/Web/API/CountQueuingStrategy Mozilla CountQueuingStrategy documentation> -newCountQueuingStrategy :: (MonadIO m) => m CountQueuingStrategy-newCountQueuingStrategy = liftIO (js_newCountQueuingStrategy)- -foreign import javascript unsafe "(($1) => { return $1[\"size\"](); })" js_size ::- CountQueuingStrategy -> IO Double+foreign import javascript safe "(($1) => { return new globalThis[\"CountQueuingStrategy\"]($1); })"+ js_newCountQueuingStrategy :: QueuingStrategyInit -> IO CountQueuingStrategy+-- | <https://developer.mozilla.org/docs/Web/API/CountQueuingStrategy/CountQueuingStrategy MDN CountQueuingStrategy. documentation>+newCountQueuingStrategy :: (MonadDOM m) => QueuingStrategyInit -> m CountQueuingStrategy+newCountQueuingStrategy init = liftDOM ((js_newCountQueuingStrategy (init))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/CountQueuingStrategy.size Mozilla CountQueuingStrategy.size documentation> -size :: (MonadIO m) => CountQueuingStrategy -> m Double-size self = liftIO (js_size self)+foreign import javascript unsafe "(($1) => { return $1[\"highWaterMark\"]; })"+ js_getHighWaterMark :: CountQueuingStrategy -> IO Double+-- | <https://developer.mozilla.org/docs/Web/API/CountQueuingStrategy/highWaterMark MDN CountQueuingStrategy.highWaterMark documentation>+getHighWaterMark :: (MonadDOM m) => CountQueuingStrategy -> m Double+getHighWaterMark self = liftDOM ((js_getHighWaterMark (self))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/CountQueuingStrategy.size Mozilla CountQueuingStrategy.size documentation> -size_ :: (MonadIO m) => CountQueuingStrategy -> m ()-size_ self = liftIO (void (js_size self))+foreign import javascript unsafe "(($1) => { return $1[\"size\"]; })"+ js_getSize :: CountQueuingStrategy -> IO Function+-- | <https://developer.mozilla.org/docs/Web/API/CountQueuingStrategy/size MDN CountQueuingStrategy.size documentation>+getSize :: (MonadDOM m) => CountQueuingStrategy -> m Function+getSize self = liftDOM ((js_getSize (self)))
@@ -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---- | <https://developer.mozilla.org/en-US/docs/Web/API/Counter.identifier Mozilla Counter.identifier documentation> -getIdentifier ::- (MonadIO m, FromJSString result) => Counter -> m result-getIdentifier self- = liftIO (fromJSString <$> (js_getIdentifier self))- -foreign import javascript unsafe "(($1) => { return $1[\"listStyle\"]; })"- js_getListStyle :: Counter -> IO JSString---- | <https://developer.mozilla.org/en-US/docs/Web/API/Counter.listStyle Mozilla Counter.listStyle documentation> -getListStyle ::- (MonadIO m, FromJSString result) => Counter -> m result-getListStyle self- = liftIO (fromJSString <$> (js_getListStyle self))- -foreign import javascript unsafe "(($1) => { return $1[\"separator\"]; })"- js_getSeparator :: Counter -> IO JSString---- | <https://developer.mozilla.org/en-US/docs/Web/API/Counter.separator Mozilla Counter.separator documentation> -getSeparator ::- (MonadIO m, FromJSString result) => Counter -> m result-getSeparator self- = liftIO (fromJSString <$> (js_getSeparator self))
@@ -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'))
@@ -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'))
@@ -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'))
@@ -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'))
@@ -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)+-- | <https://developer.mozilla.org/docs/Web/API/Credential/isConditionalMediationAvailable_static MDN Credential.isConditionalMediationAvailable documentation>+isConditionalMediationAvailable :: (MonadDOM m) => m Bool+isConditionalMediationAvailable = liftDOM (((js_isConditionalMediationAvailable) >>= checkPromiseResult))++-- | <https://developer.mozilla.org/docs/Web/API/Credential/isConditionalMediationAvailable_static MDN Credential.isConditionalMediationAvailable documentation>+isConditionalMediationAvailable_ :: (MonadDOM m) => m ()+isConditionalMediationAvailable_ = liftDOM (void (((js_isConditionalMediationAvailable) >>= checkPromiseResult)))++foreign import javascript unsafe "(($1) => { return $1[\"id\"]; })"+ js_getId :: Credential -> IO JSString+-- | <https://developer.mozilla.org/docs/Web/API/Credential/id MDN Credential.id documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/Credential/type MDN Credential.type documentation>+getType :: (MonadDOM m, IsCredential self, FromJSString result) => self -> m result+getType self = liftDOM ((fromJSString <$> (js_getType ((Types.toCredential self)))))
@@ -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+-- | <https://w3c.github.io/webappsec-credential-management/#dictdef-credentialcreationoptions CredentialCreationOptions specification>+newCredentialCreationOptions :: (MonadDOM m) => m CredentialCreationOptions+newCredentialCreationOptions = liftDOM ((js_newCredentialCreationOptions))++foreign import javascript safe "(($1, $2) => { $1[\"mediation\"] = $2; })"+ js_setMediation :: CredentialCreationOptions -> JSVal -> IO ()+-- | <https://w3c.github.io/webappsec-credential-management/#dom-credentialcreationoptions-mediation CredentialCreationOptions.mediation specification>+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+-- | <https://w3c.github.io/webappsec-credential-management/#dom-credentialcreationoptions-mediation CredentialCreationOptions.mediation specification>+getMediation :: (MonadDOM m) => CredentialCreationOptions -> m (Maybe CredentialMediationRequirement)+getMediation self = liftDOM (((js_getMediation (self)) >>= fromJSValUnchecked))++-- | <https://w3c.github.io/webappsec-credential-management/#dom-credentialcreationoptions-mediation CredentialCreationOptions.mediation specification>+getMediationUnsafe :: (MonadDOM m, HasCallStack) => CredentialCreationOptions -> m CredentialMediationRequirement+getMediationUnsafe self = liftDOM ((((js_getMediation (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://w3c.github.io/webappsec-credential-management/#dom-credentialcreationoptions-mediation CredentialCreationOptions.mediation specification>+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 ()+-- | <https://w3c.github.io/webappsec-credential-management/#dom-credentialcreationoptions-signal CredentialCreationOptions.signal specification>+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+-- | <https://w3c.github.io/webappsec-credential-management/#dom-credentialcreationoptions-signal CredentialCreationOptions.signal specification>+getSignal :: (MonadDOM m) => CredentialCreationOptions -> m (Maybe AbortSignal)+getSignal self = liftDOM (((js_getSignal (self)) >>= fromJSValUnchecked))++-- | <https://w3c.github.io/webappsec-credential-management/#dom-credentialcreationoptions-signal CredentialCreationOptions.signal specification>+getSignalUnsafe :: (MonadDOM m, HasCallStack) => CredentialCreationOptions -> m AbortSignal+getSignalUnsafe self = liftDOM ((((js_getSignal (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://w3c.github.io/webappsec-credential-management/#dom-credentialcreationoptions-signal CredentialCreationOptions.signal specification>+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 ()+-- | <https://w3c.github.io/webappsec-credential-management/#dom-credentialcreationoptions-password CredentialCreationOptions.password specification>+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+-- | <https://w3c.github.io/webappsec-credential-management/#dom-credentialcreationoptions-password CredentialCreationOptions.password specification>+getPassword :: (MonadDOM m) => CredentialCreationOptions -> m (Maybe PasswordCredentialInit)+getPassword self = liftDOM (((js_getPassword (self)) >>= fromJSValUnchecked))++-- | <https://w3c.github.io/webappsec-credential-management/#dom-credentialcreationoptions-password CredentialCreationOptions.password specification>+getPasswordUnsafe :: (MonadDOM m, HasCallStack) => CredentialCreationOptions -> m PasswordCredentialInit+getPasswordUnsafe self = liftDOM ((((js_getPassword (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://w3c.github.io/webappsec-credential-management/#dom-credentialcreationoptions-password CredentialCreationOptions.password specification>+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 ()+-- | <https://w3c.github.io/webappsec-credential-management/#dom-credentialcreationoptions-federated CredentialCreationOptions.federated specification>+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+-- | <https://w3c.github.io/webappsec-credential-management/#dom-credentialcreationoptions-federated CredentialCreationOptions.federated specification>+getFederated :: (MonadDOM m) => CredentialCreationOptions -> m (Maybe FederatedCredentialInit)+getFederated self = liftDOM (((js_getFederated (self)) >>= fromJSValUnchecked))++-- | <https://w3c.github.io/webappsec-credential-management/#dom-credentialcreationoptions-federated CredentialCreationOptions.federated specification>+getFederatedUnsafe :: (MonadDOM m, HasCallStack) => CredentialCreationOptions -> m FederatedCredentialInit+getFederatedUnsafe self = liftDOM ((((js_getFederated (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://w3c.github.io/webappsec-credential-management/#dom-credentialcreationoptions-federated CredentialCreationOptions.federated specification>+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 ()+-- | <https://w3c-fedid.github.io/digital-credentials/#dom-credentialcreationoptions-digital CredentialCreationOptions.digital specification>+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+-- | <https://w3c-fedid.github.io/digital-credentials/#dom-credentialcreationoptions-digital CredentialCreationOptions.digital specification>+getDigital :: (MonadDOM m) => CredentialCreationOptions -> m (Maybe DigitalCredentialCreationOptions)+getDigital self = liftDOM (((js_getDigital (self)) >>= fromJSValUnchecked))++-- | <https://w3c-fedid.github.io/digital-credentials/#dom-credentialcreationoptions-digital CredentialCreationOptions.digital specification>+getDigitalUnsafe :: (MonadDOM m, HasCallStack) => CredentialCreationOptions -> m DigitalCredentialCreationOptions+getDigitalUnsafe self = liftDOM ((((js_getDigital (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://w3c-fedid.github.io/digital-credentials/#dom-credentialcreationoptions-digital CredentialCreationOptions.digital specification>+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 ()+-- | <https://w3c.github.io/webauthn/#dom-credentialcreationoptions-publickey CredentialCreationOptions.publicKey specification>+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+-- | <https://w3c.github.io/webauthn/#dom-credentialcreationoptions-publickey CredentialCreationOptions.publicKey specification>+getPublicKey :: (MonadDOM m) => CredentialCreationOptions -> m (Maybe PublicKeyCredentialCreationOptions)+getPublicKey self = liftDOM (((js_getPublicKey (self)) >>= fromJSValUnchecked))++-- | <https://w3c.github.io/webauthn/#dom-credentialcreationoptions-publickey CredentialCreationOptions.publicKey specification>+getPublicKeyUnsafe :: (MonadDOM m, HasCallStack) => CredentialCreationOptions -> m PublicKeyCredentialCreationOptions+getPublicKeyUnsafe self = liftDOM ((((js_getPublicKey (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://w3c.github.io/webauthn/#dom-credentialcreationoptions-publickey CredentialCreationOptions.publicKey specification>+getPublicKeyUnchecked :: (MonadDOM m) => CredentialCreationOptions -> m PublicKeyCredentialCreationOptions+getPublicKeyUnchecked self = liftDOM ((pFromJSVal <$> (js_getPublicKey (self))))
@@ -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+-- | <https://w3c.github.io/webappsec-credential-management/#dictdef-credentialdata CredentialData specification>+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 ()+-- | <https://w3c.github.io/webappsec-credential-management/#dom-credentialdata-id CredentialData.id specification>+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+-- | <https://w3c.github.io/webappsec-credential-management/#dom-credentialdata-id CredentialData.id specification>+getId :: (MonadDOM m, IsCredentialData self, FromJSString result) => self -> m result+getId self = liftDOM ((fromJSString <$> (js_getId ((Types.toCredentialData self)))))
@@ -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+-- | <https://w3c.github.io/webauthn/#dictdef-credentialpropertiesoutput CredentialPropertiesOutput specification>+newCredentialPropertiesOutput :: (MonadDOM m) => m CredentialPropertiesOutput+newCredentialPropertiesOutput = liftDOM ((js_newCredentialPropertiesOutput))++foreign import javascript safe "(($1, $2) => { $1[\"rk\"] = $2; })"+ js_setRk :: CredentialPropertiesOutput -> Bool -> IO ()+-- | <https://w3c.github.io/webauthn/#dom-credentialpropertiesoutput-rk CredentialPropertiesOutput.rk specification>+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+-- | <https://w3c.github.io/webauthn/#dom-credentialpropertiesoutput-rk CredentialPropertiesOutput.rk specification>+getRk :: (MonadDOM m) => CredentialPropertiesOutput -> m (Maybe Bool)+getRk self = liftDOM (((js_getRk (self)) >>= fromJSValUnchecked))++-- | <https://w3c.github.io/webauthn/#dom-credentialpropertiesoutput-rk CredentialPropertiesOutput.rk specification>+getRkUnsafe :: (MonadDOM m, HasCallStack) => CredentialPropertiesOutput -> m Bool+getRkUnsafe self = liftDOM ((((js_getRk (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://w3c.github.io/webauthn/#dom-credentialpropertiesoutput-rk CredentialPropertiesOutput.rk specification>+getRkUnchecked :: (MonadDOM m) => CredentialPropertiesOutput -> m Bool+getRkUnchecked self = liftDOM ((pFromJSVal <$> (js_getRk (self))))
@@ -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+-- | <https://w3c.github.io/webappsec-credential-management/#dictdef-credentialrequestoptions CredentialRequestOptions specification>+newCredentialRequestOptions :: (MonadDOM m) => m CredentialRequestOptions+newCredentialRequestOptions = liftDOM ((js_newCredentialRequestOptions))++foreign import javascript safe "(($1, $2) => { $1[\"mediation\"] = $2; })"+ js_setMediation :: CredentialRequestOptions -> JSVal -> IO ()+-- | <https://w3c.github.io/webappsec-credential-management/#dom-credentialrequestoptions-mediation CredentialRequestOptions.mediation specification>+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+-- | <https://w3c.github.io/webappsec-credential-management/#dom-credentialrequestoptions-mediation CredentialRequestOptions.mediation specification>+getMediation :: (MonadDOM m) => CredentialRequestOptions -> m (Maybe CredentialMediationRequirement)+getMediation self = liftDOM (((js_getMediation (self)) >>= fromJSValUnchecked))++-- | <https://w3c.github.io/webappsec-credential-management/#dom-credentialrequestoptions-mediation CredentialRequestOptions.mediation specification>+getMediationUnsafe :: (MonadDOM m, HasCallStack) => CredentialRequestOptions -> m CredentialMediationRequirement+getMediationUnsafe self = liftDOM ((((js_getMediation (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://w3c.github.io/webappsec-credential-management/#dom-credentialrequestoptions-mediation CredentialRequestOptions.mediation specification>+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 ()+-- | <https://w3c.github.io/webappsec-credential-management/#dom-credentialrequestoptions-uimode CredentialRequestOptions.uiMode specification>+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+-- | <https://w3c.github.io/webappsec-credential-management/#dom-credentialrequestoptions-uimode CredentialRequestOptions.uiMode specification>+getUiMode :: (MonadDOM m, FromJSString result) => CredentialRequestOptions -> m (Maybe result)+getUiMode self = liftDOM (((fromMaybeJSString . Nullable) <$> (js_getUiMode (self))))++-- | <https://w3c.github.io/webappsec-credential-management/#dom-credentialrequestoptions-uimode CredentialRequestOptions.uiMode specification>+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))++-- | <https://w3c.github.io/webappsec-credential-management/#dom-credentialrequestoptions-uimode CredentialRequestOptions.uiMode specification>+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 ()+-- | <https://w3c.github.io/webappsec-credential-management/#dom-credentialrequestoptions-signal CredentialRequestOptions.signal specification>+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+-- | <https://w3c.github.io/webappsec-credential-management/#dom-credentialrequestoptions-signal CredentialRequestOptions.signal specification>+getSignal :: (MonadDOM m) => CredentialRequestOptions -> m (Maybe AbortSignal)+getSignal self = liftDOM (((js_getSignal (self)) >>= fromJSValUnchecked))++-- | <https://w3c.github.io/webappsec-credential-management/#dom-credentialrequestoptions-signal CredentialRequestOptions.signal specification>+getSignalUnsafe :: (MonadDOM m, HasCallStack) => CredentialRequestOptions -> m AbortSignal+getSignalUnsafe self = liftDOM ((((js_getSignal (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://w3c.github.io/webappsec-credential-management/#dom-credentialrequestoptions-signal CredentialRequestOptions.signal specification>+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 ()+-- | <https://w3c.github.io/webappsec-credential-management/#dom-credentialrequestoptions-password CredentialRequestOptions.password specification>+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+-- | <https://w3c.github.io/webappsec-credential-management/#dom-credentialrequestoptions-password CredentialRequestOptions.password specification>+getPassword :: (MonadDOM m) => CredentialRequestOptions -> m (Maybe Bool)+getPassword self = liftDOM (((js_getPassword (self)) >>= fromJSValUnchecked))++-- | <https://w3c.github.io/webappsec-credential-management/#dom-credentialrequestoptions-password CredentialRequestOptions.password specification>+getPasswordUnsafe :: (MonadDOM m, HasCallStack) => CredentialRequestOptions -> m Bool+getPasswordUnsafe self = liftDOM ((((js_getPassword (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://w3c.github.io/webappsec-credential-management/#dom-credentialrequestoptions-password CredentialRequestOptions.password specification>+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 ()+-- | <https://w3c.github.io/webappsec-credential-management/#dom-credentialrequestoptions-federated CredentialRequestOptions.federated specification>+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+-- | <https://w3c.github.io/webappsec-credential-management/#dom-credentialrequestoptions-federated CredentialRequestOptions.federated specification>+getFederated :: (MonadDOM m) => CredentialRequestOptions -> m (Maybe FederatedCredentialRequestOptions)+getFederated self = liftDOM (((js_getFederated (self)) >>= fromJSValUnchecked))++-- | <https://w3c.github.io/webappsec-credential-management/#dom-credentialrequestoptions-federated CredentialRequestOptions.federated specification>+getFederatedUnsafe :: (MonadDOM m, HasCallStack) => CredentialRequestOptions -> m FederatedCredentialRequestOptions+getFederatedUnsafe self = liftDOM ((((js_getFederated (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://w3c.github.io/webappsec-credential-management/#dom-credentialrequestoptions-federated CredentialRequestOptions.federated specification>+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 ()+-- | <https://w3c-fedid.github.io/digital-credentials/#dom-credentialrequestoptions-digital CredentialRequestOptions.digital specification>+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+-- | <https://w3c-fedid.github.io/digital-credentials/#dom-credentialrequestoptions-digital CredentialRequestOptions.digital specification>+getDigital :: (MonadDOM m) => CredentialRequestOptions -> m (Maybe DigitalCredentialRequestOptions)+getDigital self = liftDOM (((js_getDigital (self)) >>= fromJSValUnchecked))++-- | <https://w3c-fedid.github.io/digital-credentials/#dom-credentialrequestoptions-digital CredentialRequestOptions.digital specification>+getDigitalUnsafe :: (MonadDOM m, HasCallStack) => CredentialRequestOptions -> m DigitalCredentialRequestOptions+getDigitalUnsafe self = liftDOM ((((js_getDigital (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://w3c-fedid.github.io/digital-credentials/#dom-credentialrequestoptions-digital CredentialRequestOptions.digital specification>+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 ()+-- | <https://w3c-fedid.github.io/FedCM/#dom-credentialrequestoptions-identity CredentialRequestOptions.identity specification>+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+-- | <https://w3c-fedid.github.io/FedCM/#dom-credentialrequestoptions-identity CredentialRequestOptions.identity specification>+getIdentity :: (MonadDOM m) => CredentialRequestOptions -> m (Maybe IdentityCredentialRequestOptions)+getIdentity self = liftDOM (((js_getIdentity (self)) >>= fromJSValUnchecked))++-- | <https://w3c-fedid.github.io/FedCM/#dom-credentialrequestoptions-identity CredentialRequestOptions.identity specification>+getIdentityUnsafe :: (MonadDOM m, HasCallStack) => CredentialRequestOptions -> m IdentityCredentialRequestOptions+getIdentityUnsafe self = liftDOM ((((js_getIdentity (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://w3c-fedid.github.io/FedCM/#dom-credentialrequestoptions-identity CredentialRequestOptions.identity specification>+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 ()+-- | <https://wicg.github.io/web-otp/#dom-credentialrequestoptions-otp CredentialRequestOptions.otp specification>+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+-- | <https://wicg.github.io/web-otp/#dom-credentialrequestoptions-otp CredentialRequestOptions.otp specification>+getOtp :: (MonadDOM m) => CredentialRequestOptions -> m (Maybe OTPCredentialRequestOptions)+getOtp self = liftDOM (((js_getOtp (self)) >>= fromJSValUnchecked))++-- | <https://wicg.github.io/web-otp/#dom-credentialrequestoptions-otp CredentialRequestOptions.otp specification>+getOtpUnsafe :: (MonadDOM m, HasCallStack) => CredentialRequestOptions -> m OTPCredentialRequestOptions+getOtpUnsafe self = liftDOM ((((js_getOtp (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://wicg.github.io/web-otp/#dom-credentialrequestoptions-otp CredentialRequestOptions.otp specification>+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 ()+-- | <https://w3c.github.io/webauthn/#dom-credentialrequestoptions-publickey CredentialRequestOptions.publicKey specification>+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+-- | <https://w3c.github.io/webauthn/#dom-credentialrequestoptions-publickey CredentialRequestOptions.publicKey specification>+getPublicKey :: (MonadDOM m) => CredentialRequestOptions -> m (Maybe PublicKeyCredentialRequestOptions)+getPublicKey self = liftDOM (((js_getPublicKey (self)) >>= fromJSValUnchecked))++-- | <https://w3c.github.io/webauthn/#dom-credentialrequestoptions-publickey CredentialRequestOptions.publicKey specification>+getPublicKeyUnsafe :: (MonadDOM m, HasCallStack) => CredentialRequestOptions -> m PublicKeyCredentialRequestOptions+getPublicKeyUnsafe self = liftDOM ((((js_getPublicKey (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://w3c.github.io/webauthn/#dom-credentialrequestoptions-publickey CredentialRequestOptions.publicKey specification>+getPublicKeyUnchecked :: (MonadDOM m) => CredentialRequestOptions -> m PublicKeyCredentialRequestOptions+getPublicKeyUnchecked self = liftDOM ((pFromJSVal <$> (js_getPublicKey (self))))
@@ -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)+-- | <https://developer.mozilla.org/docs/Web/API/CredentialsContainer/create MDN CredentialsContainer.create documentation>+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))++-- | <https://developer.mozilla.org/docs/Web/API/CredentialsContainer/create MDN CredentialsContainer.create documentation>+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)))++-- | <https://developer.mozilla.org/docs/Web/API/CredentialsContainer/create MDN CredentialsContainer.create documentation>+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))++-- | <https://developer.mozilla.org/docs/Web/API/CredentialsContainer/create MDN CredentialsContainer.create documentation>+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)+-- | <https://developer.mozilla.org/docs/Web/API/CredentialsContainer/get MDN CredentialsContainer.get documentation>+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))++-- | <https://developer.mozilla.org/docs/Web/API/CredentialsContainer/get MDN CredentialsContainer.get documentation>+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)))++-- | <https://developer.mozilla.org/docs/Web/API/CredentialsContainer/get MDN CredentialsContainer.get documentation>+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))++-- | <https://developer.mozilla.org/docs/Web/API/CredentialsContainer/get MDN CredentialsContainer.get documentation>+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, ())+-- | <https://developer.mozilla.org/docs/Web/API/CredentialsContainer/preventSilentAccess MDN CredentialsContainer.preventSilentAccess documentation>+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, ())+-- | <https://developer.mozilla.org/docs/Web/API/CredentialsContainer/store MDN CredentialsContainer.store documentation>+store :: (MonadDOM m, IsCredential credential) => CredentialsContainer -> credential -> m ()+store self credential = liftDOM (void (((js_store (self) (Types.toCredential credential)) >>= checkPromiseResult)))
@@ -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+-- | <https://developer.mozilla.org/docs/Web/API/Crypto/getRandomValues MDN Crypto.getRandomValues documentation>+getRandomValues :: (MonadDOM m, IsArrayBufferView array) => Crypto -> array -> m ArrayBufferView+getRandomValues self array = liftDOM ((js_getRandomValues (self) (Types.toArrayBufferView array))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/Crypto.getRandomValues Mozilla Crypto.getRandomValues documentation> -getRandomValues ::- (MonadIO m, IsArrayBufferView array) =>- Crypto -> array -> m ArrayBufferView-getRandomValues self array- = liftIO (js_getRandomValues self (toArrayBufferView array))+-- | <https://developer.mozilla.org/docs/Web/API/Crypto/getRandomValues MDN Crypto.getRandomValues documentation>+getRandomValues_ :: (MonadDOM m, IsArrayBufferView array) => Crypto -> array -> m ()+getRandomValues_ self array = liftDOM (void ((js_getRandomValues (self) (Types.toArrayBufferView array)))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/Crypto.getRandomValues Mozilla Crypto.getRandomValues documentation> -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+-- | <https://developer.mozilla.org/docs/Web/API/Crypto/randomUUID MDN Crypto.randomUUID documentation>+randomUUID :: (MonadDOM m, FromJSString result) => Crypto -> m result+randomUUID self = liftDOM ((fromJSString <$> (js_randomUUID (self)))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/Crypto.subtle Mozilla Crypto.subtle documentation> -getSubtle :: (MonadIO m) => Crypto -> m SubtleCrypto-getSubtle self = liftIO (js_getSubtle self)- -foreign import javascript safe "(($1) => { return $1[\"webkitSubtle\"]; })"- js_getWebkitSubtle :: Crypto -> IO WebKitSubtleCrypto+-- | <https://developer.mozilla.org/docs/Web/API/Crypto/randomUUID MDN Crypto.randomUUID documentation>+randomUUID_ :: (MonadDOM m) => Crypto -> m ()+randomUUID_ self = liftDOM (void ((js_randomUUID (self)))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/Crypto.webkitSubtle Mozilla Crypto.webkitSubtle documentation> -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+-- | <https://developer.mozilla.org/docs/Web/API/Crypto/subtle MDN Crypto.subtle documentation>+getSubtle :: (MonadDOM m) => Crypto -> m SubtleCrypto+getSubtle self = liftDOM ((js_getSubtle (self)))
@@ -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 --- | <https://developer.mozilla.org/en-US/docs/Web/API/CryptoKey.type Mozilla CryptoKey.type documentation> -getType :: (MonadIO m) => CryptoKey -> m KeyType-getType self = liftIO ((js_getType self) >>= fromJSValUnchecked)- -foreign import javascript unsafe "(($1) => { return ($1[\"extractable\"] ? 1 : 0); })"+foreign import javascript unsafe "(($1) => { return $1[\"type\"]; })"+ js_getType :: CryptoKey -> IO JSVal+-- | <https://developer.mozilla.org/docs/Web/API/CryptoKey/type MDN CryptoKey.type documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/CryptoKey/extractable MDN CryptoKey.extractable documentation>+getExtractable :: (MonadDOM m) => CryptoKey -> m Bool+getExtractable self = liftDOM ((js_getExtractable (self))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/CryptoKey.extractable Mozilla CryptoKey.extractable documentation> -getExtractable :: (MonadIO m) => CryptoKey -> m Bool-getExtractable self = liftIO (js_getExtractable self)- foreign import javascript unsafe "(($1) => { return $1[\"algorithm\"]; })" js_getAlgorithm :: CryptoKey -> IO GObject---- | <https://developer.mozilla.org/en-US/docs/Web/API/CryptoKey.algorithm Mozilla CryptoKey.algorithm documentation> -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+-- | <https://developer.mozilla.org/docs/Web/API/CryptoKey/algorithm MDN CryptoKey.algorithm documentation>+getAlgorithm :: (MonadDOM m) => CryptoKey -> m GObject+getAlgorithm self = liftDOM ((js_getAlgorithm (self))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/CryptoKey.usages Mozilla CryptoKey.usages documentation> -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+-- | <https://developer.mozilla.org/docs/Web/API/CryptoKey/usages MDN CryptoKey.usages documentation>+getUsages :: (MonadDOM m) => CryptoKey -> m GObject+getUsages self = liftDOM ((js_getUsages (self)))
@@ -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+-- | <https://w3c.github.io/webcrypto/#dfn-CryptoKeyPair CryptoKeyPair specification>+newCryptoKeyPair :: (MonadDOM m) => m CryptoKeyPair+newCryptoKeyPair = liftDOM ((js_newCryptoKeyPair))++foreign import javascript safe "(($1, $2) => { $1[\"publicKey\"] = $2; })"+ js_setPublicKey :: CryptoKeyPair -> CryptoKey -> IO ()+-- | <https://w3c.github.io/webcrypto/#dfn-CryptoKeyPair-publicKey CryptoKeyPair.publicKey specification>+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+-- | <https://w3c.github.io/webcrypto/#dfn-CryptoKeyPair-publicKey CryptoKeyPair.publicKey specification>+getPublicKey :: (MonadDOM m) => CryptoKeyPair -> m (Maybe CryptoKey)+getPublicKey self = liftDOM (((js_getPublicKey (self)) >>= fromJSValUnchecked))++-- | <https://w3c.github.io/webcrypto/#dfn-CryptoKeyPair-publicKey CryptoKeyPair.publicKey specification>+getPublicKeyUnsafe :: (MonadDOM m, HasCallStack) => CryptoKeyPair -> m CryptoKey+getPublicKeyUnsafe self = liftDOM ((((js_getPublicKey (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://w3c.github.io/webcrypto/#dfn-CryptoKeyPair-publicKey CryptoKeyPair.publicKey specification>+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 ()+-- | <https://w3c.github.io/webcrypto/#dfn-CryptoKeyPair-privateKey CryptoKeyPair.privateKey specification>+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+-- | <https://w3c.github.io/webcrypto/#dfn-CryptoKeyPair-privateKey CryptoKeyPair.privateKey specification>+getPrivateKey :: (MonadDOM m) => CryptoKeyPair -> m (Maybe CryptoKey)+getPrivateKey self = liftDOM (((js_getPrivateKey (self)) >>= fromJSValUnchecked))++-- | <https://w3c.github.io/webcrypto/#dfn-CryptoKeyPair-privateKey CryptoKeyPair.privateKey specification>+getPrivateKeyUnsafe :: (MonadDOM m, HasCallStack) => CryptoKeyPair -> m CryptoKey+getPrivateKeyUnsafe self = liftDOM ((((js_getPrivateKey (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://w3c.github.io/webcrypto/#dfn-CryptoKeyPair-privateKey CryptoKeyPair.privateKey specification>+getPrivateKeyUnchecked :: (MonadDOM m) => CryptoKeyPair -> m CryptoKey+getPrivateKeyUnchecked self = liftDOM ((pFromJSVal <$> (js_getPrivateKey (self))))
@@ -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+-- | <https://w3c.github.io/webauthn/#dictdef-currentuserdetailsoptions CurrentUserDetailsOptions specification>+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 ()+-- | <https://w3c.github.io/webauthn/#dom-currentuserdetailsoptions-rpid CurrentUserDetailsOptions.rpId specification>+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+-- | <https://w3c.github.io/webauthn/#dom-currentuserdetailsoptions-rpid CurrentUserDetailsOptions.rpId specification>+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 ()+-- | <https://w3c.github.io/webauthn/#dom-currentuserdetailsoptions-userid CurrentUserDetailsOptions.userId specification>+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+-- | <https://w3c.github.io/webauthn/#dom-currentuserdetailsoptions-userid CurrentUserDetailsOptions.userId specification>+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 ()+-- | <https://w3c.github.io/webauthn/#dom-currentuserdetailsoptions-name CurrentUserDetailsOptions.name specification>+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+-- | <https://w3c.github.io/webauthn/#dom-currentuserdetailsoptions-name CurrentUserDetailsOptions.name specification>+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 ()+-- | <https://w3c.github.io/webauthn/#dom-currentuserdetailsoptions-displayname CurrentUserDetailsOptions.displayName specification>+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+-- | <https://w3c.github.io/webauthn/#dom-currentuserdetailsoptions-displayname CurrentUserDetailsOptions.displayName specification>+getDisplayName :: (MonadDOM m, FromJSString result) => CurrentUserDetailsOptions -> m result+getDisplayName self = liftDOM ((fromJSString <$> (js_getDisplayName (self))))
@@ -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)
@@ -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 () --- | <https://developer.mozilla.org/en-US/docs/Web/API/CustomElementRegistry.define Mozilla CustomElementRegistry.define documentation> -define ::- (MonadIO m, ToJSString name, IsFunction constructor) =>- CustomElementRegistry -> name -> constructor -> m ()-define self name constructor- = liftIO- (js_define self (toJSString name) (toFunction constructor))- -foreign import javascript unsafe "(($1, $2) => { return $1[\"get\"]($2); })" js_get ::- CustomElementRegistry -> JSString -> IO JSVal+foreign import javascript safe "(() => { return new globalThis[\"CustomElementRegistry\"](); })"+ js_newCustomElementRegistry :: IO CustomElementRegistry+-- | <https://developer.mozilla.org/docs/Web/API/CustomElementRegistry/CustomElementRegistry MDN CustomElementRegistry. documentation>+newCustomElementRegistry :: (MonadDOM m) => m CustomElementRegistry+newCustomElementRegistry = liftDOM ((js_newCustomElementRegistry)) --- | <https://developer.mozilla.org/en-US/docs/Web/API/CustomElementRegistry.get Mozilla CustomElementRegistry.get documentation> -get ::- (MonadIO m, ToJSString name) =>- CustomElementRegistry -> name -> m JSVal-get self name = liftIO (js_get self (toJSString name))+foreign import javascript safe "(($1, $2, $3) => { return $1[\"define\"]($2, $3); })"+ js_define :: CustomElementRegistry -> JSString -> JSVal -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/CustomElementRegistry/define MDN CustomElementRegistry.define documentation>+define :: (MonadDOM m, ToJSString name) => CustomElementRegistry -> name -> CustomElementConstructor -> m ()+define self name constructor = liftDOM (void (((toJSVal constructor) >>= \a3' -> js_define (self) (toJSString name) a3'))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/CustomElementRegistry.get Mozilla CustomElementRegistry.get documentation> -get_ ::- (MonadIO m, ToJSString name) =>- CustomElementRegistry -> name -> m ()-get_ self name = liftIO (void (js_get self (toJSString name)))- -foreign import javascript interruptible- "(($1, $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 ()+-- | <https://developer.mozilla.org/docs/Web/API/CustomElementRegistry/define MDN CustomElementRegistry.define documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/CustomElementRegistry/get MDN CustomElementRegistry.get documentation>+get :: (MonadDOM m, ToJSString name) => CustomElementRegistry -> name -> m CustomElementConstructorOrUndefined+get self name = liftDOM ((js_get (self) (toJSString name)))++-- | <https://developer.mozilla.org/docs/Web/API/CustomElementRegistry/get MDN CustomElementRegistry.get documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/CustomElementRegistry/getName MDN CustomElementRegistry.getName documentation>+getName :: (MonadDOM m, FromJSString result) => CustomElementRegistry -> CustomElementConstructor -> m (Maybe result)+getName self constructor = liftDOM (((fromMaybeJSString . Nullable) <$> ((toJSVal constructor) >>= \a2' -> js_getName (self) a2')))++-- | <https://developer.mozilla.org/docs/Web/API/CustomElementRegistry/getName MDN CustomElementRegistry.getName documentation>+getName_ :: (MonadDOM m) => CustomElementRegistry -> CustomElementConstructor -> m ()+getName_ self constructor = liftDOM (void (((toJSVal constructor) >>= \a2' -> js_getName (self) a2')))++-- | <https://developer.mozilla.org/docs/Web/API/CustomElementRegistry/getName MDN CustomElementRegistry.getName documentation>+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))++-- | <https://developer.mozilla.org/docs/Web/API/CustomElementRegistry/getName MDN CustomElementRegistry.getName documentation>+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 ()+-- | <https://developer.mozilla.org/docs/Web/API/CustomElementRegistry/initialize MDN CustomElementRegistry.initialize documentation>+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 ()+-- | <https://developer.mozilla.org/docs/Web/API/CustomElementRegistry/upgrade MDN CustomElementRegistry.upgrade documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/CustomElementRegistry/whenDefined MDN CustomElementRegistry.whenDefined documentation>+whenDefined :: (MonadDOM m, ToJSString name) => CustomElementRegistry -> name -> m JSVal+whenDefined self name = liftDOM ((js_whenDefined (self) (toJSString name))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/CustomElementRegistry.whenDefined Mozilla CustomElementRegistry.whenDefined documentation> -whenDefined ::- (MonadIO m, ToJSString name) =>- CustomElementRegistry -> name -> m ()-whenDefined self name- = liftIO- ((js_whenDefined self (toJSString name)) >>=- maybeThrowPromiseRejected)+-- | <https://developer.mozilla.org/docs/Web/API/CustomElementRegistry/whenDefined MDN CustomElementRegistry.whenDefined documentation>+whenDefined_ :: (MonadDOM m, ToJSString name) => CustomElementRegistry -> name -> m ()+whenDefined_ self name = liftDOM (void ((js_whenDefined (self) (toJSString name))))
@@ -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 --- | <https://developer.mozilla.org/en-US/docs/Web/API/CustomEvent Mozilla CustomEvent documentation> -newCustomEvent ::- (MonadIO m, ToJSString type') =>- type' -> Maybe CustomEventInit -> m CustomEvent-newCustomEvent type' eventInitDict- = liftIO- (js_newCustomEvent (toJSString type')- (maybeToOptional eventInitDict))- -foreign import javascript unsafe- "(($1, $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+-- | <https://developer.mozilla.org/docs/Web/API/CustomEvent/CustomEvent MDN CustomEvent. documentation>+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')) --- | <https://developer.mozilla.org/en-US/docs/Web/API/CustomEvent.initCustomEvent Mozilla CustomEvent.initCustomEvent documentation> -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 ()+-- | <https://developer.mozilla.org/docs/Web/API/CustomEvent/initCustomEvent MDN CustomEvent.initCustomEvent documentation>+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)))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/CustomEvent.detail Mozilla CustomEvent.detail documentation> -getDetail :: (MonadIO m) => CustomEvent -> m JSVal-getDetail self = liftIO (js_getDetail self)+foreign import javascript unsafe "(($1) => { return $1[\"detail\"]; })"+ js_getDetail :: CustomEvent -> IO JSVal+-- | <https://developer.mozilla.org/docs/Web/API/CustomEvent/detail MDN CustomEvent.detail documentation>+getDetail :: (MonadDOM m) => CustomEvent -> m JSVal+getDetail self = liftDOM ((js_getDetail (self)))
@@ -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+-- | <https://dom.spec.whatwg.org/#dictdef-customeventinit CustomEventInit specification>+newCustomEventInit :: (MonadDOM m) => m CustomEventInit+newCustomEventInit = liftDOM ((js_newCustomEventInit))++foreign import javascript safe "(($1, $2) => { $1[\"detail\"] = $2; })"+ js_setDetail :: CustomEventInit -> JSVal -> IO ()+-- | <https://dom.spec.whatwg.org/#dom-customeventinit-detail CustomEventInit.detail specification>+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+-- | <https://dom.spec.whatwg.org/#dom-customeventinit-detail CustomEventInit.detail specification>+getDetail :: (MonadDOM m) => CustomEventInit -> m JSVal+getDetail self = liftDOM ((js_getDetail (self)))
@@ -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+
@@ -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---- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMError.name Mozilla DOMError.name documentation> -getName ::- (MonadIO m, IsDOMError self, FromJSString result) =>- self -> m result-getName self- = liftIO (fromJSString <$> (js_getName (toDOMError self)))- -foreign import javascript unsafe "(($1) => { return $1[\"message\"]; })" js_getMessage ::- DOMError -> IO JSString---- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMError.message Mozilla DOMError.message documentation> -getMessage ::- (MonadIO m, IsDOMError self, FromJSString result) =>- self -> m result-getMessage self- = liftIO (fromJSString <$> (js_getMessage (toDOMError self)))
@@ -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 --- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMException Mozilla DOMException documentation> -newDOMException ::- (MonadIO m, ToJSString message, ToJSString name) =>- Maybe message -> Maybe name -> m DOMException-newDOMException message name- = liftIO- (js_newDOMException (toOptionalJSString message)- (toOptionalJSString name))- -foreign import javascript unsafe "(($1) => { 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+-- | <https://developer.mozilla.org/docs/Web/API/DOMException/DOMException MDN DOMException. documentation>+newDOMException :: (MonadDOM m, ToJSString message, ToJSString name) => Maybe message -> Maybe name -> m DOMException+newDOMException message name = liftDOM ((js_newDOMException (toOptionalJSString message) (toOptionalJSString name))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMException.toString Mozilla DOMException.toString documentation> -toString ::- (MonadIO m, FromJSString result) => DOMException -> m result-toString self = liftIO (fromJSString <$> (js_toString self))+foreign import javascript unsafe "(($1) => { return $1[\"name\"]; })"+ js_getName :: DOMException -> IO JSString+-- | <https://developer.mozilla.org/docs/Web/API/DOMException/name MDN DOMException.name documentation>+getName :: (MonadDOM m, IsDOMException self, FromJSString result) => self -> m result+getName self = liftDOM ((fromJSString <$> (js_getName ((Types.toDOMException self))))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMException.toString Mozilla DOMException.toString documentation> -toString_ :: (MonadIO m) => DOMException -> m ()-toString_ self = liftIO (void (js_toString self))+foreign import javascript unsafe "(($1) => { return $1[\"message\"]; })"+ js_getMessage :: DOMException -> IO JSString+-- | <https://developer.mozilla.org/docs/Web/API/DOMException/message MDN DOMException.message documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/DOMException/code MDN DOMException.code documentation>+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 --- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMException.code Mozilla DOMException.code documentation> -getCode :: (MonadIO m) => DOMException -> m Word-getCode self = liftIO (js_getCode self)- -foreign import javascript unsafe "(($1) => { return $1[\"name\"]; })" js_getName ::- DOMException -> IO JSString+pattern TIMEOUT_ERR = 23 --- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMException.name Mozilla DOMException.name documentation> -getName ::- (MonadIO m, FromJSString result) => DOMException -> m result-getName self = liftIO (fromJSString <$> (js_getName self))- -foreign import javascript unsafe "(($1) => { return $1[\"message\"]; })" js_getMessage ::- DOMException -> IO JSString+pattern INVALID_NODE_TYPE_ERR = 24 --- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMException.message Mozilla DOMException.message documentation> -getMessage ::- (MonadIO m, FromJSString result) => DOMException -> m result-getMessage self = liftIO (fromJSString <$> (js_getMessage self))+pattern DATA_CLONE_ERR = 25
@@ -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 --- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMImplementation.createDocumentType Mozilla DOMImplementation.createDocumentType documentation> -createDocumentType ::- (MonadIO m, ToJSString qualifiedName, ToJSString publicId,- ToJSString systemId) =>- DOMImplementation ->- qualifiedName -> publicId -> systemId -> m DocumentType-createDocumentType self qualifiedName publicId systemId- = liftIO- (js_createDocumentType self (toJSString qualifiedName)- (toJSString publicId)- (toJSString systemId))---- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMImplementation.createDocumentType Mozilla DOMImplementation.createDocumentType documentation> -createDocumentType_ ::- (MonadIO m, ToJSString qualifiedName, ToJSString publicId,- ToJSString systemId) =>- DOMImplementation -> 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+-- | <https://developer.mozilla.org/docs/Web/API/DOMImplementation/createDocument MDN DOMImplementation.createDocument documentation>+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')) --- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMImplementation.createDocument Mozilla DOMImplementation.createDocument documentation> -createDocument ::- (MonadIO m, ToJSString namespaceURI, ToJSString qualifiedName) =>- DOMImplementation ->- Maybe namespaceURI ->- qualifiedName -> Maybe DocumentType -> m XMLDocument-createDocument self namespaceURI qualifiedName doctype- = liftIO- (js_createDocument self (toOptionalJSString namespaceURI)- (toJSString qualifiedName)- (maybeToOptional doctype))+-- | <https://developer.mozilla.org/docs/Web/API/DOMImplementation/createDocument MDN DOMImplementation.createDocument documentation>+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'))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMImplementation.createDocument Mozilla DOMImplementation.createDocument documentation> -createDocument_ ::- (MonadIO m, ToJSString namespaceURI, ToJSString qualifiedName) =>- DOMImplementation ->- Maybe namespaceURI -> 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+-- | <https://developer.mozilla.org/docs/Web/API/DOMImplementation/createDocumentType MDN DOMImplementation.createDocumentType documentation>+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))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMImplementation.createHTMLDocument Mozilla DOMImplementation.createHTMLDocument documentation> -createHTMLDocument ::- (MonadIO m, ToJSString title) =>- DOMImplementation -> Maybe title -> m HTMLDocument-createHTMLDocument self title- = liftIO (js_createHTMLDocument self (toOptionalJSString title))+-- | <https://developer.mozilla.org/docs/Web/API/DOMImplementation/createDocumentType MDN DOMImplementation.createDocumentType documentation>+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)))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMImplementation.createHTMLDocument Mozilla DOMImplementation.createHTMLDocument documentation> -createHTMLDocument_ ::- (MonadIO m, ToJSString title) =>- DOMImplementation -> Maybe title -> m ()-createHTMLDocument_ self title- = liftIO- (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+-- | <https://developer.mozilla.org/docs/Web/API/DOMImplementation/createHTMLDocument MDN DOMImplementation.createHTMLDocument documentation>+createHTMLDocument :: (MonadDOM m, ToJSString title) => DOMImplementation -> Maybe title -> m Document+createHTMLDocument self title = liftDOM ((js_createHTMLDocument (self) (toOptionalJSString title))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMImplementation.hasFeature Mozilla DOMImplementation.hasFeature documentation> -hasFeature :: (MonadIO m) => DOMImplementation -> m Bool-hasFeature self = liftIO (js_hasFeature self)+-- | <https://developer.mozilla.org/docs/Web/API/DOMImplementation/createHTMLDocument MDN DOMImplementation.createHTMLDocument documentation>+createHTMLDocument_ :: (MonadDOM m, ToJSString title) => DOMImplementation -> Maybe title -> m ()+createHTMLDocument_ self title = liftDOM (void ((js_createHTMLDocument (self) (toOptionalJSString title)))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMImplementation.hasFeature Mozilla DOMImplementation.hasFeature documentation> -hasFeature_ :: (MonadIO m) => DOMImplementation -> m ()-hasFeature_ self = liftIO (void (js_hasFeature self))+foreign import javascript safe "(($1) => { return $1[\"hasFeature\"](); })"+ js_hasFeature :: DOMImplementation -> IO Bool+-- | <https://developer.mozilla.org/docs/Web/API/DOMImplementation/hasFeature MDN DOMImplementation.hasFeature documentation>+hasFeature :: (MonadDOM m) => DOMImplementation -> m Bool+hasFeature self = liftDOM ((js_hasFeature (self)))++-- | <https://developer.mozilla.org/docs/Web/API/DOMImplementation/hasFeature MDN DOMImplementation.hasFeature documentation>+hasFeature_ :: (MonadDOM m) => DOMImplementation -> m ()+hasFeature_ self = liftDOM (void ((js_hasFeature (self))))
@@ -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+-- | <https://developer.mozilla.org/docs/Web/API/DOMMatrix/DOMMatrix MDN DOMMatrix. documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/DOMMatrix/invertSelf MDN DOMMatrix.invertSelf documentation>+invertSelf :: (MonadDOM m) => DOMMatrix -> m DOMMatrix+invertSelf self = liftDOM ((js_invertSelf (self)))++-- | <https://developer.mozilla.org/docs/Web/API/DOMMatrix/invertSelf MDN DOMMatrix.invertSelf documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/DOMMatrix/multiplySelf MDN DOMMatrix.multiplySelf documentation>+multiplySelf :: (MonadDOM m) => DOMMatrix -> Maybe DOMMatrixInit -> m DOMMatrix+multiplySelf self other = liftDOM (((P.maybe (P.return jsUndefined) toJSVal other) >>= \a2' -> js_multiplySelf (self) a2'))++-- | <https://developer.mozilla.org/docs/Web/API/DOMMatrix/multiplySelf MDN DOMMatrix.multiplySelf documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/DOMMatrix/preMultiplySelf MDN DOMMatrix.preMultiplySelf documentation>+preMultiplySelf :: (MonadDOM m) => DOMMatrix -> Maybe DOMMatrixInit -> m DOMMatrix+preMultiplySelf self other = liftDOM (((P.maybe (P.return jsUndefined) toJSVal other) >>= \a2' -> js_preMultiplySelf (self) a2'))++-- | <https://developer.mozilla.org/docs/Web/API/DOMMatrix/preMultiplySelf MDN DOMMatrix.preMultiplySelf documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/DOMMatrix/rotateAxisAngleSelf MDN DOMMatrix.rotateAxisAngleSelf documentation>+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'))++-- | <https://developer.mozilla.org/docs/Web/API/DOMMatrix/rotateAxisAngleSelf MDN DOMMatrix.rotateAxisAngleSelf documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/DOMMatrix/rotateFromVectorSelf MDN DOMMatrix.rotateFromVectorSelf documentation>+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'))++-- | <https://developer.mozilla.org/docs/Web/API/DOMMatrix/rotateFromVectorSelf MDN DOMMatrix.rotateFromVectorSelf documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/DOMMatrix/rotateSelf MDN DOMMatrix.rotateSelf documentation>+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'))++-- | <https://developer.mozilla.org/docs/Web/API/DOMMatrix/rotateSelf MDN DOMMatrix.rotateSelf documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/DOMMatrix/scale3dSelf MDN DOMMatrix.scale3dSelf documentation>+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'))++-- | <https://developer.mozilla.org/docs/Web/API/DOMMatrix/scale3dSelf MDN DOMMatrix.scale3dSelf documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/DOMMatrix/scaleSelf MDN DOMMatrix.scaleSelf documentation>+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'))++-- | <https://developer.mozilla.org/docs/Web/API/DOMMatrix/scaleSelf MDN DOMMatrix.scaleSelf documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/DOMMatrix/setMatrixValue MDN DOMMatrix.setMatrixValue documentation>+setMatrixValue :: (MonadDOM m, ToJSString transformList) => DOMMatrix -> transformList -> m DOMMatrix+setMatrixValue self transformList = liftDOM ((js_setMatrixValue (self) (toJSString transformList)))++-- | <https://developer.mozilla.org/docs/Web/API/DOMMatrix/setMatrixValue MDN DOMMatrix.setMatrixValue documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/DOMMatrix/skewXSelf MDN DOMMatrix.skewXSelf documentation>+skewXSelf :: (MonadDOM m) => DOMMatrix -> Maybe Double -> m DOMMatrix+skewXSelf self sx = liftDOM (((P.maybe (P.return jsUndefined) toJSVal sx) >>= \a2' -> js_skewXSelf (self) a2'))++-- | <https://developer.mozilla.org/docs/Web/API/DOMMatrix/skewXSelf MDN DOMMatrix.skewXSelf documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/DOMMatrix/skewYSelf MDN DOMMatrix.skewYSelf documentation>+skewYSelf :: (MonadDOM m) => DOMMatrix -> Maybe Double -> m DOMMatrix+skewYSelf self sy = liftDOM (((P.maybe (P.return jsUndefined) toJSVal sy) >>= \a2' -> js_skewYSelf (self) a2'))++-- | <https://developer.mozilla.org/docs/Web/API/DOMMatrix/skewYSelf MDN DOMMatrix.skewYSelf documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/DOMMatrix/translateSelf MDN DOMMatrix.translateSelf documentation>+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'))++-- | <https://developer.mozilla.org/docs/Web/API/DOMMatrix/translateSelf MDN DOMMatrix.translateSelf documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/DOMMatrix/fromFloat32Array_static MDN DOMMatrix.fromFloat32Array documentation>+fromFloat32Array :: (MonadDOM m, IsFloat32Array array32) => array32 -> m DOMMatrix+fromFloat32Array array32 = liftDOM ((js_fromFloat32Array (Types.toFloat32Array array32)))++-- | <https://developer.mozilla.org/docs/Web/API/DOMMatrix/fromFloat32Array_static MDN DOMMatrix.fromFloat32Array documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/DOMMatrix/fromFloat64Array_static MDN DOMMatrix.fromFloat64Array documentation>+fromFloat64Array :: (MonadDOM m, IsFloat64Array array64) => array64 -> m DOMMatrix+fromFloat64Array array64 = liftDOM ((js_fromFloat64Array (Types.toFloat64Array array64)))++-- | <https://developer.mozilla.org/docs/Web/API/DOMMatrix/fromFloat64Array_static MDN DOMMatrix.fromFloat64Array documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/DOMMatrix/fromMatrix_static MDN DOMMatrix.fromMatrix documentation>+fromMatrix :: (MonadDOM m) => Maybe DOMMatrixInit -> m DOMMatrix+fromMatrix other = liftDOM (((P.maybe (P.return jsUndefined) toJSVal other) >>= \a1' -> js_fromMatrix a1'))++-- | <https://developer.mozilla.org/docs/Web/API/DOMMatrix/fromMatrix_static MDN DOMMatrix.fromMatrix documentation>+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 ()+-- | <https://developer.mozilla.org/docs/Web/API/DOMMatrix#instance_properties MDN DOMMatrix.a documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/DOMMatrix#instance_properties MDN DOMMatrix.a documentation>+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 ()+-- | <https://developer.mozilla.org/docs/Web/API/DOMMatrix#instance_properties MDN DOMMatrix.b documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/DOMMatrix#instance_properties MDN DOMMatrix.b documentation>+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 ()+-- | <https://developer.mozilla.org/docs/Web/API/DOMMatrix#instance_properties MDN DOMMatrix.c documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/DOMMatrix#instance_properties MDN DOMMatrix.c documentation>+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 ()+-- | <https://developer.mozilla.org/docs/Web/API/DOMMatrix#instance_properties MDN DOMMatrix.d documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/DOMMatrix#instance_properties MDN DOMMatrix.d documentation>+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 ()+-- | <https://developer.mozilla.org/docs/Web/API/DOMMatrix#instance_properties MDN DOMMatrix.e documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/DOMMatrix#instance_properties MDN DOMMatrix.e documentation>+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 ()+-- | <https://developer.mozilla.org/docs/Web/API/DOMMatrix#instance_properties MDN DOMMatrix.f documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/DOMMatrix#instance_properties MDN DOMMatrix.f documentation>+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 ()+-- | <https://developer.mozilla.org/docs/Web/API/DOMMatrix#instance_properties MDN DOMMatrix.m11 documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/DOMMatrix#instance_properties MDN DOMMatrix.m11 documentation>+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 ()+-- | <https://developer.mozilla.org/docs/Web/API/DOMMatrix#instance_properties MDN DOMMatrix.m12 documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/DOMMatrix#instance_properties MDN DOMMatrix.m12 documentation>+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 ()+-- | <https://developer.mozilla.org/docs/Web/API/DOMMatrix#instance_properties MDN DOMMatrix.m13 documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/DOMMatrix#instance_properties MDN DOMMatrix.m13 documentation>+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 ()+-- | <https://developer.mozilla.org/docs/Web/API/DOMMatrix#instance_properties MDN DOMMatrix.m14 documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/DOMMatrix#instance_properties MDN DOMMatrix.m14 documentation>+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 ()+-- | <https://developer.mozilla.org/docs/Web/API/DOMMatrix#instance_properties MDN DOMMatrix.m21 documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/DOMMatrix#instance_properties MDN DOMMatrix.m21 documentation>+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 ()+-- | <https://developer.mozilla.org/docs/Web/API/DOMMatrix#instance_properties MDN DOMMatrix.m22 documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/DOMMatrix#instance_properties MDN DOMMatrix.m22 documentation>+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 ()+-- | <https://developer.mozilla.org/docs/Web/API/DOMMatrix#instance_properties MDN DOMMatrix.m23 documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/DOMMatrix#instance_properties MDN DOMMatrix.m23 documentation>+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 ()+-- | <https://developer.mozilla.org/docs/Web/API/DOMMatrix#instance_properties MDN DOMMatrix.m24 documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/DOMMatrix#instance_properties MDN DOMMatrix.m24 documentation>+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 ()+-- | <https://developer.mozilla.org/docs/Web/API/DOMMatrix#instance_properties MDN DOMMatrix.m31 documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/DOMMatrix#instance_properties MDN DOMMatrix.m31 documentation>+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 ()+-- | <https://developer.mozilla.org/docs/Web/API/DOMMatrix#instance_properties MDN DOMMatrix.m32 documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/DOMMatrix#instance_properties MDN DOMMatrix.m32 documentation>+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 ()+-- | <https://developer.mozilla.org/docs/Web/API/DOMMatrix#instance_properties MDN DOMMatrix.m33 documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/DOMMatrix#instance_properties MDN DOMMatrix.m33 documentation>+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 ()+-- | <https://developer.mozilla.org/docs/Web/API/DOMMatrix#instance_properties MDN DOMMatrix.m34 documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/DOMMatrix#instance_properties MDN DOMMatrix.m34 documentation>+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 ()+-- | <https://developer.mozilla.org/docs/Web/API/DOMMatrix#instance_properties MDN DOMMatrix.m41 documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/DOMMatrix#instance_properties MDN DOMMatrix.m41 documentation>+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 ()+-- | <https://developer.mozilla.org/docs/Web/API/DOMMatrix#instance_properties MDN DOMMatrix.m42 documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/DOMMatrix#instance_properties MDN DOMMatrix.m42 documentation>+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 ()+-- | <https://developer.mozilla.org/docs/Web/API/DOMMatrix#instance_properties MDN DOMMatrix.m43 documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/DOMMatrix#instance_properties MDN DOMMatrix.m43 documentation>+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 ()+-- | <https://developer.mozilla.org/docs/Web/API/DOMMatrix#instance_properties MDN DOMMatrix.m44 documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/DOMMatrix#instance_properties MDN DOMMatrix.m44 documentation>+getM44 :: (MonadDOM m) => DOMMatrix -> m Double+getM44 self = liftDOM ((js_getM44 (self)))
@@ -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+-- | <https://drafts.csswg.org/geometry-1/#dictdef-dommatrix2dinit DOMMatrix2DInit specification>+newDOMMatrix2DInit :: (MonadDOM m) => m DOMMatrix2DInit+newDOMMatrix2DInit = liftDOM ((js_newDOMMatrix2DInit))++foreign import javascript safe "(($1, $2) => { $1[\"a\"] = $2; })"+ js_setA :: DOMMatrix2DInit -> Double -> IO ()+-- | <https://drafts.csswg.org/geometry-1/#dom-dommatrix2dinit-a DOMMatrix2DInit.a specification>+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+-- | <https://drafts.csswg.org/geometry-1/#dom-dommatrix2dinit-a DOMMatrix2DInit.a specification>+getA :: (MonadDOM m, IsDOMMatrix2DInit self) => self -> m (Maybe Double)+getA self = liftDOM (((js_getA ((Types.toDOMMatrix2DInit self))) >>= fromJSValUnchecked))++-- | <https://drafts.csswg.org/geometry-1/#dom-dommatrix2dinit-a DOMMatrix2DInit.a specification>+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))++-- | <https://drafts.csswg.org/geometry-1/#dom-dommatrix2dinit-a DOMMatrix2DInit.a specification>+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 ()+-- | <https://drafts.csswg.org/geometry-1/#dom-dommatrix2dinit-b DOMMatrix2DInit.b specification>+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+-- | <https://drafts.csswg.org/geometry-1/#dom-dommatrix2dinit-b DOMMatrix2DInit.b specification>+getB :: (MonadDOM m, IsDOMMatrix2DInit self) => self -> m (Maybe Double)+getB self = liftDOM (((js_getB ((Types.toDOMMatrix2DInit self))) >>= fromJSValUnchecked))++-- | <https://drafts.csswg.org/geometry-1/#dom-dommatrix2dinit-b DOMMatrix2DInit.b specification>+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))++-- | <https://drafts.csswg.org/geometry-1/#dom-dommatrix2dinit-b DOMMatrix2DInit.b specification>+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 ()+-- | <https://drafts.csswg.org/geometry-1/#dom-dommatrix2dinit-c DOMMatrix2DInit.c specification>+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+-- | <https://drafts.csswg.org/geometry-1/#dom-dommatrix2dinit-c DOMMatrix2DInit.c specification>+getC :: (MonadDOM m, IsDOMMatrix2DInit self) => self -> m (Maybe Double)+getC self = liftDOM (((js_getC ((Types.toDOMMatrix2DInit self))) >>= fromJSValUnchecked))++-- | <https://drafts.csswg.org/geometry-1/#dom-dommatrix2dinit-c DOMMatrix2DInit.c specification>+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))++-- | <https://drafts.csswg.org/geometry-1/#dom-dommatrix2dinit-c DOMMatrix2DInit.c specification>+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 ()+-- | <https://drafts.csswg.org/geometry-1/#dom-dommatrix2dinit-d DOMMatrix2DInit.d specification>+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+-- | <https://drafts.csswg.org/geometry-1/#dom-dommatrix2dinit-d DOMMatrix2DInit.d specification>+getD :: (MonadDOM m, IsDOMMatrix2DInit self) => self -> m (Maybe Double)+getD self = liftDOM (((js_getD ((Types.toDOMMatrix2DInit self))) >>= fromJSValUnchecked))++-- | <https://drafts.csswg.org/geometry-1/#dom-dommatrix2dinit-d DOMMatrix2DInit.d specification>+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))++-- | <https://drafts.csswg.org/geometry-1/#dom-dommatrix2dinit-d DOMMatrix2DInit.d specification>+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 ()+-- | <https://drafts.csswg.org/geometry-1/#dom-dommatrix2dinit-e DOMMatrix2DInit.e specification>+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+-- | <https://drafts.csswg.org/geometry-1/#dom-dommatrix2dinit-e DOMMatrix2DInit.e specification>+getE :: (MonadDOM m, IsDOMMatrix2DInit self) => self -> m (Maybe Double)+getE self = liftDOM (((js_getE ((Types.toDOMMatrix2DInit self))) >>= fromJSValUnchecked))++-- | <https://drafts.csswg.org/geometry-1/#dom-dommatrix2dinit-e DOMMatrix2DInit.e specification>+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))++-- | <https://drafts.csswg.org/geometry-1/#dom-dommatrix2dinit-e DOMMatrix2DInit.e specification>+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 ()+-- | <https://drafts.csswg.org/geometry-1/#dom-dommatrix2dinit-f DOMMatrix2DInit.f specification>+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+-- | <https://drafts.csswg.org/geometry-1/#dom-dommatrix2dinit-f DOMMatrix2DInit.f specification>+getF :: (MonadDOM m, IsDOMMatrix2DInit self) => self -> m (Maybe Double)+getF self = liftDOM (((js_getF ((Types.toDOMMatrix2DInit self))) >>= fromJSValUnchecked))++-- | <https://drafts.csswg.org/geometry-1/#dom-dommatrix2dinit-f DOMMatrix2DInit.f specification>+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))++-- | <https://drafts.csswg.org/geometry-1/#dom-dommatrix2dinit-f DOMMatrix2DInit.f specification>+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 ()+-- | <https://drafts.csswg.org/geometry-1/#dom-dommatrix2dinit-m11 DOMMatrix2DInit.m11 specification>+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+-- | <https://drafts.csswg.org/geometry-1/#dom-dommatrix2dinit-m11 DOMMatrix2DInit.m11 specification>+getM11 :: (MonadDOM m, IsDOMMatrix2DInit self) => self -> m (Maybe Double)+getM11 self = liftDOM (((js_getM11 ((Types.toDOMMatrix2DInit self))) >>= fromJSValUnchecked))++-- | <https://drafts.csswg.org/geometry-1/#dom-dommatrix2dinit-m11 DOMMatrix2DInit.m11 specification>+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))++-- | <https://drafts.csswg.org/geometry-1/#dom-dommatrix2dinit-m11 DOMMatrix2DInit.m11 specification>+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 ()+-- | <https://drafts.csswg.org/geometry-1/#dom-dommatrix2dinit-m12 DOMMatrix2DInit.m12 specification>+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+-- | <https://drafts.csswg.org/geometry-1/#dom-dommatrix2dinit-m12 DOMMatrix2DInit.m12 specification>+getM12 :: (MonadDOM m, IsDOMMatrix2DInit self) => self -> m (Maybe Double)+getM12 self = liftDOM (((js_getM12 ((Types.toDOMMatrix2DInit self))) >>= fromJSValUnchecked))++-- | <https://drafts.csswg.org/geometry-1/#dom-dommatrix2dinit-m12 DOMMatrix2DInit.m12 specification>+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))++-- | <https://drafts.csswg.org/geometry-1/#dom-dommatrix2dinit-m12 DOMMatrix2DInit.m12 specification>+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 ()+-- | <https://drafts.csswg.org/geometry-1/#dom-dommatrix2dinit-m21 DOMMatrix2DInit.m21 specification>+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+-- | <https://drafts.csswg.org/geometry-1/#dom-dommatrix2dinit-m21 DOMMatrix2DInit.m21 specification>+getM21 :: (MonadDOM m, IsDOMMatrix2DInit self) => self -> m (Maybe Double)+getM21 self = liftDOM (((js_getM21 ((Types.toDOMMatrix2DInit self))) >>= fromJSValUnchecked))++-- | <https://drafts.csswg.org/geometry-1/#dom-dommatrix2dinit-m21 DOMMatrix2DInit.m21 specification>+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))++-- | <https://drafts.csswg.org/geometry-1/#dom-dommatrix2dinit-m21 DOMMatrix2DInit.m21 specification>+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 ()+-- | <https://drafts.csswg.org/geometry-1/#dom-dommatrix2dinit-m22 DOMMatrix2DInit.m22 specification>+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+-- | <https://drafts.csswg.org/geometry-1/#dom-dommatrix2dinit-m22 DOMMatrix2DInit.m22 specification>+getM22 :: (MonadDOM m, IsDOMMatrix2DInit self) => self -> m (Maybe Double)+getM22 self = liftDOM (((js_getM22 ((Types.toDOMMatrix2DInit self))) >>= fromJSValUnchecked))++-- | <https://drafts.csswg.org/geometry-1/#dom-dommatrix2dinit-m22 DOMMatrix2DInit.m22 specification>+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))++-- | <https://drafts.csswg.org/geometry-1/#dom-dommatrix2dinit-m22 DOMMatrix2DInit.m22 specification>+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 ()+-- | <https://drafts.csswg.org/geometry-1/#dom-dommatrix2dinit-m41 DOMMatrix2DInit.m41 specification>+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+-- | <https://drafts.csswg.org/geometry-1/#dom-dommatrix2dinit-m41 DOMMatrix2DInit.m41 specification>+getM41 :: (MonadDOM m, IsDOMMatrix2DInit self) => self -> m (Maybe Double)+getM41 self = liftDOM (((js_getM41 ((Types.toDOMMatrix2DInit self))) >>= fromJSValUnchecked))++-- | <https://drafts.csswg.org/geometry-1/#dom-dommatrix2dinit-m41 DOMMatrix2DInit.m41 specification>+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))++-- | <https://drafts.csswg.org/geometry-1/#dom-dommatrix2dinit-m41 DOMMatrix2DInit.m41 specification>+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 ()+-- | <https://drafts.csswg.org/geometry-1/#dom-dommatrix2dinit-m42 DOMMatrix2DInit.m42 specification>+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+-- | <https://drafts.csswg.org/geometry-1/#dom-dommatrix2dinit-m42 DOMMatrix2DInit.m42 specification>+getM42 :: (MonadDOM m, IsDOMMatrix2DInit self) => self -> m (Maybe Double)+getM42 self = liftDOM (((js_getM42 ((Types.toDOMMatrix2DInit self))) >>= fromJSValUnchecked))++-- | <https://drafts.csswg.org/geometry-1/#dom-dommatrix2dinit-m42 DOMMatrix2DInit.m42 specification>+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))++-- | <https://drafts.csswg.org/geometry-1/#dom-dommatrix2dinit-m42 DOMMatrix2DInit.m42 specification>+getM42Unchecked :: (MonadDOM m, IsDOMMatrix2DInit self) => self -> m Double+getM42Unchecked self = liftDOM ((pFromJSVal <$> (js_getM42 ((Types.toDOMMatrix2DInit self)))))
@@ -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+-- | <https://drafts.csswg.org/geometry-1/#dictdef-dommatrixinit DOMMatrixInit specification>+newDOMMatrixInit :: (MonadDOM m) => m DOMMatrixInit+newDOMMatrixInit = liftDOM ((js_newDOMMatrixInit))++foreign import javascript safe "(($1, $2) => { $1[\"m13\"] = $2; })"+ js_setM13 :: DOMMatrixInit -> Double -> IO ()+-- | <https://drafts.csswg.org/geometry-1/#dom-dommatrixinit-m13 DOMMatrixInit.m13 specification>+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+-- | <https://drafts.csswg.org/geometry-1/#dom-dommatrixinit-m13 DOMMatrixInit.m13 specification>+getM13 :: (MonadDOM m) => DOMMatrixInit -> m (Maybe Double)+getM13 self = liftDOM (((js_getM13 (self)) >>= fromJSValUnchecked))++-- | <https://drafts.csswg.org/geometry-1/#dom-dommatrixinit-m13 DOMMatrixInit.m13 specification>+getM13Unsafe :: (MonadDOM m, HasCallStack) => DOMMatrixInit -> m Double+getM13Unsafe self = liftDOM ((((js_getM13 (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://drafts.csswg.org/geometry-1/#dom-dommatrixinit-m13 DOMMatrixInit.m13 specification>+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 ()+-- | <https://drafts.csswg.org/geometry-1/#dom-dommatrixinit-m14 DOMMatrixInit.m14 specification>+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+-- | <https://drafts.csswg.org/geometry-1/#dom-dommatrixinit-m14 DOMMatrixInit.m14 specification>+getM14 :: (MonadDOM m) => DOMMatrixInit -> m (Maybe Double)+getM14 self = liftDOM (((js_getM14 (self)) >>= fromJSValUnchecked))++-- | <https://drafts.csswg.org/geometry-1/#dom-dommatrixinit-m14 DOMMatrixInit.m14 specification>+getM14Unsafe :: (MonadDOM m, HasCallStack) => DOMMatrixInit -> m Double+getM14Unsafe self = liftDOM ((((js_getM14 (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://drafts.csswg.org/geometry-1/#dom-dommatrixinit-m14 DOMMatrixInit.m14 specification>+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 ()+-- | <https://drafts.csswg.org/geometry-1/#dom-dommatrixinit-m23 DOMMatrixInit.m23 specification>+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+-- | <https://drafts.csswg.org/geometry-1/#dom-dommatrixinit-m23 DOMMatrixInit.m23 specification>+getM23 :: (MonadDOM m) => DOMMatrixInit -> m (Maybe Double)+getM23 self = liftDOM (((js_getM23 (self)) >>= fromJSValUnchecked))++-- | <https://drafts.csswg.org/geometry-1/#dom-dommatrixinit-m23 DOMMatrixInit.m23 specification>+getM23Unsafe :: (MonadDOM m, HasCallStack) => DOMMatrixInit -> m Double+getM23Unsafe self = liftDOM ((((js_getM23 (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://drafts.csswg.org/geometry-1/#dom-dommatrixinit-m23 DOMMatrixInit.m23 specification>+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 ()+-- | <https://drafts.csswg.org/geometry-1/#dom-dommatrixinit-m24 DOMMatrixInit.m24 specification>+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+-- | <https://drafts.csswg.org/geometry-1/#dom-dommatrixinit-m24 DOMMatrixInit.m24 specification>+getM24 :: (MonadDOM m) => DOMMatrixInit -> m (Maybe Double)+getM24 self = liftDOM (((js_getM24 (self)) >>= fromJSValUnchecked))++-- | <https://drafts.csswg.org/geometry-1/#dom-dommatrixinit-m24 DOMMatrixInit.m24 specification>+getM24Unsafe :: (MonadDOM m, HasCallStack) => DOMMatrixInit -> m Double+getM24Unsafe self = liftDOM ((((js_getM24 (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://drafts.csswg.org/geometry-1/#dom-dommatrixinit-m24 DOMMatrixInit.m24 specification>+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 ()+-- | <https://drafts.csswg.org/geometry-1/#dom-dommatrixinit-m31 DOMMatrixInit.m31 specification>+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+-- | <https://drafts.csswg.org/geometry-1/#dom-dommatrixinit-m31 DOMMatrixInit.m31 specification>+getM31 :: (MonadDOM m) => DOMMatrixInit -> m (Maybe Double)+getM31 self = liftDOM (((js_getM31 (self)) >>= fromJSValUnchecked))++-- | <https://drafts.csswg.org/geometry-1/#dom-dommatrixinit-m31 DOMMatrixInit.m31 specification>+getM31Unsafe :: (MonadDOM m, HasCallStack) => DOMMatrixInit -> m Double+getM31Unsafe self = liftDOM ((((js_getM31 (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://drafts.csswg.org/geometry-1/#dom-dommatrixinit-m31 DOMMatrixInit.m31 specification>+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 ()+-- | <https://drafts.csswg.org/geometry-1/#dom-dommatrixinit-m32 DOMMatrixInit.m32 specification>+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+-- | <https://drafts.csswg.org/geometry-1/#dom-dommatrixinit-m32 DOMMatrixInit.m32 specification>+getM32 :: (MonadDOM m) => DOMMatrixInit -> m (Maybe Double)+getM32 self = liftDOM (((js_getM32 (self)) >>= fromJSValUnchecked))++-- | <https://drafts.csswg.org/geometry-1/#dom-dommatrixinit-m32 DOMMatrixInit.m32 specification>+getM32Unsafe :: (MonadDOM m, HasCallStack) => DOMMatrixInit -> m Double+getM32Unsafe self = liftDOM ((((js_getM32 (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://drafts.csswg.org/geometry-1/#dom-dommatrixinit-m32 DOMMatrixInit.m32 specification>+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 ()+-- | <https://drafts.csswg.org/geometry-1/#dom-dommatrixinit-m33 DOMMatrixInit.m33 specification>+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+-- | <https://drafts.csswg.org/geometry-1/#dom-dommatrixinit-m33 DOMMatrixInit.m33 specification>+getM33 :: (MonadDOM m) => DOMMatrixInit -> m (Maybe Double)+getM33 self = liftDOM (((js_getM33 (self)) >>= fromJSValUnchecked))++-- | <https://drafts.csswg.org/geometry-1/#dom-dommatrixinit-m33 DOMMatrixInit.m33 specification>+getM33Unsafe :: (MonadDOM m, HasCallStack) => DOMMatrixInit -> m Double+getM33Unsafe self = liftDOM ((((js_getM33 (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://drafts.csswg.org/geometry-1/#dom-dommatrixinit-m33 DOMMatrixInit.m33 specification>+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 ()+-- | <https://drafts.csswg.org/geometry-1/#dom-dommatrixinit-m34 DOMMatrixInit.m34 specification>+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+-- | <https://drafts.csswg.org/geometry-1/#dom-dommatrixinit-m34 DOMMatrixInit.m34 specification>+getM34 :: (MonadDOM m) => DOMMatrixInit -> m (Maybe Double)+getM34 self = liftDOM (((js_getM34 (self)) >>= fromJSValUnchecked))++-- | <https://drafts.csswg.org/geometry-1/#dom-dommatrixinit-m34 DOMMatrixInit.m34 specification>+getM34Unsafe :: (MonadDOM m, HasCallStack) => DOMMatrixInit -> m Double+getM34Unsafe self = liftDOM ((((js_getM34 (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://drafts.csswg.org/geometry-1/#dom-dommatrixinit-m34 DOMMatrixInit.m34 specification>+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 ()+-- | <https://drafts.csswg.org/geometry-1/#dom-dommatrixinit-m43 DOMMatrixInit.m43 specification>+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+-- | <https://drafts.csswg.org/geometry-1/#dom-dommatrixinit-m43 DOMMatrixInit.m43 specification>+getM43 :: (MonadDOM m) => DOMMatrixInit -> m (Maybe Double)+getM43 self = liftDOM (((js_getM43 (self)) >>= fromJSValUnchecked))++-- | <https://drafts.csswg.org/geometry-1/#dom-dommatrixinit-m43 DOMMatrixInit.m43 specification>+getM43Unsafe :: (MonadDOM m, HasCallStack) => DOMMatrixInit -> m Double+getM43Unsafe self = liftDOM ((((js_getM43 (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://drafts.csswg.org/geometry-1/#dom-dommatrixinit-m43 DOMMatrixInit.m43 specification>+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 ()+-- | <https://drafts.csswg.org/geometry-1/#dom-dommatrixinit-m44 DOMMatrixInit.m44 specification>+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+-- | <https://drafts.csswg.org/geometry-1/#dom-dommatrixinit-m44 DOMMatrixInit.m44 specification>+getM44 :: (MonadDOM m) => DOMMatrixInit -> m (Maybe Double)+getM44 self = liftDOM (((js_getM44 (self)) >>= fromJSValUnchecked))++-- | <https://drafts.csswg.org/geometry-1/#dom-dommatrixinit-m44 DOMMatrixInit.m44 specification>+getM44Unsafe :: (MonadDOM m, HasCallStack) => DOMMatrixInit -> m Double+getM44Unsafe self = liftDOM ((((js_getM44 (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://drafts.csswg.org/geometry-1/#dom-dommatrixinit-m44 DOMMatrixInit.m44 specification>+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 ()+-- | <https://drafts.csswg.org/geometry-1/#dom-dommatrixinit-is2d DOMMatrixInit.is2D specification>+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+-- | <https://drafts.csswg.org/geometry-1/#dom-dommatrixinit-is2d DOMMatrixInit.is2D specification>+getIs2D :: (MonadDOM m) => DOMMatrixInit -> m (Maybe Bool)+getIs2D self = liftDOM (((js_getIs2D (self)) >>= fromJSValUnchecked))++-- | <https://drafts.csswg.org/geometry-1/#dom-dommatrixinit-is2d DOMMatrixInit.is2D specification>+getIs2DUnsafe :: (MonadDOM m, HasCallStack) => DOMMatrixInit -> m Bool+getIs2DUnsafe self = liftDOM ((((js_getIs2D (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://drafts.csswg.org/geometry-1/#dom-dommatrixinit-is2d DOMMatrixInit.is2D specification>+getIs2DUnchecked :: (MonadDOM m) => DOMMatrixInit -> m Bool+getIs2DUnchecked self = liftDOM ((pFromJSVal <$> (js_getIs2D (self))))
@@ -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+-- | <https://developer.mozilla.org/docs/Web/API/DOMMatrixReadOnly/DOMMatrixReadOnly MDN DOMMatrixReadOnly. documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/DOMMatrixReadOnly/flipX MDN DOMMatrixReadOnly.flipX documentation>+flipX :: (MonadDOM m, IsDOMMatrixReadOnly self) => self -> m DOMMatrix+flipX self = liftDOM ((js_flipX ((Types.toDOMMatrixReadOnly self))))++-- | <https://developer.mozilla.org/docs/Web/API/DOMMatrixReadOnly/flipX MDN DOMMatrixReadOnly.flipX documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/DOMMatrixReadOnly/flipY MDN DOMMatrixReadOnly.flipY documentation>+flipY :: (MonadDOM m, IsDOMMatrixReadOnly self) => self -> m DOMMatrix+flipY self = liftDOM ((js_flipY ((Types.toDOMMatrixReadOnly self))))++-- | <https://developer.mozilla.org/docs/Web/API/DOMMatrixReadOnly/flipY MDN DOMMatrixReadOnly.flipY documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/DOMMatrixReadOnly/inverse MDN DOMMatrixReadOnly.inverse documentation>+inverse :: (MonadDOM m, IsDOMMatrixReadOnly self) => self -> m DOMMatrix+inverse self = liftDOM ((js_inverse ((Types.toDOMMatrixReadOnly self))))++-- | <https://developer.mozilla.org/docs/Web/API/DOMMatrixReadOnly/inverse MDN DOMMatrixReadOnly.inverse documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/DOMMatrixReadOnly/multiply MDN DOMMatrixReadOnly.multiply documentation>+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'))++-- | <https://developer.mozilla.org/docs/Web/API/DOMMatrixReadOnly/multiply MDN DOMMatrixReadOnly.multiply documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/DOMMatrixReadOnly/rotate MDN DOMMatrixReadOnly.rotate documentation>+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'))++-- | <https://developer.mozilla.org/docs/Web/API/DOMMatrixReadOnly/rotate MDN DOMMatrixReadOnly.rotate documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/DOMMatrixReadOnly/rotateAxisAngle MDN DOMMatrixReadOnly.rotateAxisAngle documentation>+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'))++-- | <https://developer.mozilla.org/docs/Web/API/DOMMatrixReadOnly/rotateAxisAngle MDN DOMMatrixReadOnly.rotateAxisAngle documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/DOMMatrixReadOnly/rotateFromVector MDN DOMMatrixReadOnly.rotateFromVector documentation>+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'))++-- | <https://developer.mozilla.org/docs/Web/API/DOMMatrixReadOnly/rotateFromVector MDN DOMMatrixReadOnly.rotateFromVector documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/DOMMatrixReadOnly/scale MDN DOMMatrixReadOnly.scale documentation>+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'))++-- | <https://developer.mozilla.org/docs/Web/API/DOMMatrixReadOnly/scale MDN DOMMatrixReadOnly.scale documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/DOMMatrixReadOnly/scale3d MDN DOMMatrixReadOnly.scale3d documentation>+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'))++-- | <https://developer.mozilla.org/docs/Web/API/DOMMatrixReadOnly/scale3d MDN DOMMatrixReadOnly.scale3d documentation>+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+-- | <https://drafts.csswg.org/geometry-1/#dom-dommatrixreadonly-scalenonuniform DOMMatrixReadOnly.scaleNonUniform specification>+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'))++-- | <https://drafts.csswg.org/geometry-1/#dom-dommatrixreadonly-scalenonuniform DOMMatrixReadOnly.scaleNonUniform specification>+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+-- | <https://developer.mozilla.org/docs/Web/API/DOMMatrixReadOnly/skewX MDN DOMMatrixReadOnly.skewX documentation>+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'))++-- | <https://developer.mozilla.org/docs/Web/API/DOMMatrixReadOnly/skewX MDN DOMMatrixReadOnly.skewX documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/DOMMatrixReadOnly/skewY MDN DOMMatrixReadOnly.skewY documentation>+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'))++-- | <https://developer.mozilla.org/docs/Web/API/DOMMatrixReadOnly/skewY MDN DOMMatrixReadOnly.skewY documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/DOMMatrixReadOnly/toFloat32Array MDN DOMMatrixReadOnly.toFloat32Array documentation>+toFloat32Array :: (MonadDOM m, IsDOMMatrixReadOnly self) => self -> m Float32Array+toFloat32Array self = liftDOM ((js_toFloat32Array ((Types.toDOMMatrixReadOnly self))))++-- | <https://developer.mozilla.org/docs/Web/API/DOMMatrixReadOnly/toFloat32Array MDN DOMMatrixReadOnly.toFloat32Array documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/DOMMatrixReadOnly/toFloat64Array MDN DOMMatrixReadOnly.toFloat64Array documentation>+toFloat64Array :: (MonadDOM m, IsDOMMatrixReadOnly self) => self -> m Float64Array+toFloat64Array self = liftDOM ((js_toFloat64Array ((Types.toDOMMatrixReadOnly self))))++-- | <https://developer.mozilla.org/docs/Web/API/DOMMatrixReadOnly/toFloat64Array MDN DOMMatrixReadOnly.toFloat64Array documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/DOMMatrixReadOnly/toJSON MDN DOMMatrixReadOnly.toJSON documentation>+toJSON :: (MonadDOM m, IsDOMMatrixReadOnly self) => self -> m GObject+toJSON self = liftDOM ((js_toJSON ((Types.toDOMMatrixReadOnly self))))++-- | <https://developer.mozilla.org/docs/Web/API/DOMMatrixReadOnly/toJSON MDN DOMMatrixReadOnly.toJSON documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/DOMMatrixReadOnly/transformPoint MDN DOMMatrixReadOnly.transformPoint documentation>+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'))++-- | <https://developer.mozilla.org/docs/Web/API/DOMMatrixReadOnly/transformPoint MDN DOMMatrixReadOnly.transformPoint documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/DOMMatrixReadOnly/translate MDN DOMMatrixReadOnly.translate documentation>+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'))++-- | <https://developer.mozilla.org/docs/Web/API/DOMMatrixReadOnly/translate MDN DOMMatrixReadOnly.translate documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/DOMMatrixReadOnly/fromFloat32Array_static MDN DOMMatrixReadOnly.fromFloat32Array documentation>+fromFloat32Array :: (MonadDOM m, IsFloat32Array array32) => array32 -> m DOMMatrixReadOnly+fromFloat32Array array32 = liftDOM ((js_fromFloat32Array (Types.toFloat32Array array32)))++-- | <https://developer.mozilla.org/docs/Web/API/DOMMatrixReadOnly/fromFloat32Array_static MDN DOMMatrixReadOnly.fromFloat32Array documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/DOMMatrixReadOnly/fromFloat64Array_static MDN DOMMatrixReadOnly.fromFloat64Array documentation>+fromFloat64Array :: (MonadDOM m, IsFloat64Array array64) => array64 -> m DOMMatrixReadOnly+fromFloat64Array array64 = liftDOM ((js_fromFloat64Array (Types.toFloat64Array array64)))++-- | <https://developer.mozilla.org/docs/Web/API/DOMMatrixReadOnly/fromFloat64Array_static MDN DOMMatrixReadOnly.fromFloat64Array documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/DOMMatrixReadOnly/fromMatrix_static MDN DOMMatrixReadOnly.fromMatrix documentation>+fromMatrix :: (MonadDOM m) => Maybe DOMMatrixInit -> m DOMMatrixReadOnly+fromMatrix other = liftDOM (((P.maybe (P.return jsUndefined) toJSVal other) >>= \a1' -> js_fromMatrix a1'))++-- | <https://developer.mozilla.org/docs/Web/API/DOMMatrixReadOnly/fromMatrix_static MDN DOMMatrixReadOnly.fromMatrix documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/DOMMatrixReadOnly#instance_properties MDN DOMMatrixReadOnly.a documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/DOMMatrixReadOnly#instance_properties MDN DOMMatrixReadOnly.b documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/DOMMatrixReadOnly#instance_properties MDN DOMMatrixReadOnly.c documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/DOMMatrixReadOnly#instance_properties MDN DOMMatrixReadOnly.d documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/DOMMatrixReadOnly#instance_properties MDN DOMMatrixReadOnly.e documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/DOMMatrixReadOnly#instance_properties MDN DOMMatrixReadOnly.f documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/DOMMatrixReadOnly#instance_properties MDN DOMMatrixReadOnly.m11 documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/DOMMatrixReadOnly#instance_properties MDN DOMMatrixReadOnly.m12 documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/DOMMatrixReadOnly#instance_properties MDN DOMMatrixReadOnly.m13 documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/DOMMatrixReadOnly#instance_properties MDN DOMMatrixReadOnly.m14 documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/DOMMatrixReadOnly#instance_properties MDN DOMMatrixReadOnly.m21 documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/DOMMatrixReadOnly#instance_properties MDN DOMMatrixReadOnly.m22 documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/DOMMatrixReadOnly#instance_properties MDN DOMMatrixReadOnly.m23 documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/DOMMatrixReadOnly#instance_properties MDN DOMMatrixReadOnly.m24 documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/DOMMatrixReadOnly#instance_properties MDN DOMMatrixReadOnly.m31 documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/DOMMatrixReadOnly#instance_properties MDN DOMMatrixReadOnly.m32 documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/DOMMatrixReadOnly#instance_properties MDN DOMMatrixReadOnly.m33 documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/DOMMatrixReadOnly#instance_properties MDN DOMMatrixReadOnly.m34 documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/DOMMatrixReadOnly#instance_properties MDN DOMMatrixReadOnly.m41 documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/DOMMatrixReadOnly#instance_properties MDN DOMMatrixReadOnly.m42 documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/DOMMatrixReadOnly#instance_properties MDN DOMMatrixReadOnly.m43 documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/DOMMatrixReadOnly#instance_properties MDN DOMMatrixReadOnly.m44 documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/DOMMatrixReadOnly/is2D MDN DOMMatrixReadOnly.is2D documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/DOMMatrixReadOnly/isIdentity MDN DOMMatrixReadOnly.isIdentity documentation>+getIsIdentity :: (MonadDOM m, IsDOMMatrixReadOnly self) => self -> m Bool+getIsIdentity self = liftDOM ((js_getIsIdentity ((Types.toDOMMatrixReadOnly self))))
@@ -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)---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitNamedFlowCollection.item Mozilla WebKitNamedFlowCollection.item documentation> -item ::- (MonadIO m) =>- DOMNamedFlowCollection -> Word -> m (Maybe WebKitNamedFlow)-item self index = liftIO (nullableToMaybe <$> (js_item self index))---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitNamedFlowCollection.item Mozilla WebKitNamedFlowCollection.item documentation> -item_ :: (MonadIO m) => DOMNamedFlowCollection -> Word -> m ()-item_ self index = liftIO (void (js_item self index))---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitNamedFlowCollection.item Mozilla WebKitNamedFlowCollection.item documentation> -itemUnsafe ::- (MonadIO m, HasCallStack) =>- DOMNamedFlowCollection -> Word -> m WebKitNamedFlow-itemUnsafe self index- = liftIO- ((nullableToMaybe <$> (js_item self index)) >>=- maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitNamedFlowCollection.item Mozilla WebKitNamedFlowCollection.item documentation> -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)---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitNamedFlowCollection.namedItem Mozilla WebKitNamedFlowCollection.namedItem documentation> -namedItem ::- (MonadIO m, ToJSString name) =>- DOMNamedFlowCollection -> name -> m (Maybe WebKitNamedFlow)-namedItem self name- = liftIO- (nullableToMaybe <$> (js_namedItem self (toJSString name)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitNamedFlowCollection.namedItem Mozilla WebKitNamedFlowCollection.namedItem documentation> -namedItem_ ::- (MonadIO m, ToJSString name) =>- DOMNamedFlowCollection -> name -> m ()-namedItem_ self name- = liftIO (void (js_namedItem self (toJSString name)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitNamedFlowCollection.namedItem Mozilla WebKitNamedFlowCollection.namedItem documentation> -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)---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitNamedFlowCollection.namedItem Mozilla WebKitNamedFlowCollection.namedItem documentation> -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---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitNamedFlowCollection.length Mozilla WebKitNamedFlowCollection.length documentation> -getLength :: (MonadIO m) => DOMNamedFlowCollection -> m Word-getLength self = liftIO (js_getLength self)
@@ -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+-- | <https://developer.mozilla.org/docs/Web/API/DOMParser/DOMParser MDN DOMParser. documentation>+newDOMParser :: (MonadDOM m) => m DOMParser+newDOMParser = liftDOM ((js_newDOMParser)) --- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMParser Mozilla DOMParser documentation> -newDOMParser :: (MonadIO m) => m DOMParser-newDOMParser = liftIO (js_newDOMParser)- foreign import javascript safe "(($1, $2, $3) => { return $1[\"parseFromString\"]($2, $3); })"- js_parseFromString ::- DOMParser -> JSString -> JSString -> IO Document---- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMParser.parseFromString Mozilla DOMParser.parseFromString documentation> -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+-- | <https://developer.mozilla.org/docs/Web/API/DOMParser/parseFromString MDN DOMParser.parseFromString documentation>+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')) --- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMParser.parseFromString Mozilla DOMParser.parseFromString documentation> -parseFromString_ ::- (MonadIO m, ToJSString string, ToJSString contentType) =>- DOMParser -> string -> contentType -> m ()-parseFromString_ self string contentType- = liftIO- (void- (js_parseFromString self (toJSString string)- (toJSString contentType)))+-- | <https://developer.mozilla.org/docs/Web/API/DOMParser/parseFromString MDN DOMParser.parseFromString documentation>+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')))
@@ -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 --- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMPoint Mozilla DOMPoint documentation> -newDOMPoint :: (MonadIO m) => DOMPointInit -> m DOMPoint-newDOMPoint point = liftIO (js_newDOMPoint point)- -foreign import javascript unsafe- "(($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+-- | <https://developer.mozilla.org/docs/Web/API/DOMPoint/DOMPoint MDN DOMPoint. documentation>+newDOMPoint :: (MonadDOM m) => Maybe Double -> m DOMPoint+newDOMPoint x = liftDOM (((P.maybe (P.return jsUndefined) toJSVal x) >>= \a1' -> js_newDOMPoint a1')) --- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMPoint Mozilla DOMPoint documentation> -newDOMPoint' ::- (MonadIO m) =>- Maybe Double ->- Maybe Double -> Maybe Double -> Maybe Double -> m DOMPoint-newDOMPoint' x y z w- = liftIO- (js_newDOMPoint' (maybeToOptional x) (maybeToOptional y)- (maybeToOptional z)- (maybeToOptional w))- -foreign import javascript unsafe- "(($1) => { 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+-- | <https://developer.mozilla.org/docs/Web/API/DOMPoint/DOMPoint MDN DOMPoint. documentation>+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')) --- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMPoint.fromPoint Mozilla DOMPoint.fromPoint documentation> -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+-- | <https://developer.mozilla.org/docs/Web/API/DOMPoint/fromPoint_static MDN DOMPoint.fromPoint documentation>+fromPoint :: (MonadDOM m) => Maybe DOMPointInit -> m DOMPoint+fromPoint other = liftDOM (((P.maybe (P.return jsUndefined) toJSVal other) >>= \a1' -> js_fromPoint a1')) --- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMPoint.fromPoint Mozilla DOMPoint.fromPoint documentation> -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 ()+-- | <https://developer.mozilla.org/docs/Web/API/DOMPoint/fromPoint_static MDN DOMPoint.fromPoint documentation>+fromPoint_ :: (MonadDOM m) => Maybe DOMPointInit -> m ()+fromPoint_ other = liftDOM (void (((P.maybe (P.return jsUndefined) toJSVal other) >>= \a1' -> js_fromPoint a1'))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMPoint.x Mozilla DOMPoint.x documentation> -setX :: (MonadIO m) => DOMPoint -> Double -> m ()-setX self val = liftIO (js_setX self val)- -foreign import javascript unsafe "(($1) => { return $1[\"x\"]; })" js_getX ::- DOMPoint -> IO Double+foreign import javascript safe "(($1, $2) => { $1[\"x\"] = $2; })"+ js_setX :: DOMPoint -> Double -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/DOMPoint/x MDN DOMPoint.x documentation>+setX :: (MonadDOM m) => DOMPoint -> Double -> m ()+setX self val = liftDOM (void ((js_setX (self) (val)))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMPoint.x Mozilla DOMPoint.x documentation> -getX :: (MonadIO m) => DOMPoint -> m Double-getX self = liftIO (js_getX self)- -foreign import javascript unsafe "(($1, $2) => { $1[\"y\"] = $2; })" js_setY ::- DOMPoint -> Double -> IO ()+foreign import javascript unsafe "(($1) => { return $1[\"x\"]; })"+ js_getX :: DOMPoint -> IO Double+-- | <https://developer.mozilla.org/docs/Web/API/DOMPoint/x MDN DOMPoint.x documentation>+getX :: (MonadDOM m) => DOMPoint -> m Double+getX self = liftDOM ((js_getX (self))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMPoint.y Mozilla DOMPoint.y documentation> -setY :: (MonadIO m) => DOMPoint -> Double -> m ()-setY self val = liftIO (js_setY self val)- -foreign import javascript unsafe "(($1) => { return $1[\"y\"]; })" js_getY ::- DOMPoint -> IO Double+foreign import javascript safe "(($1, $2) => { $1[\"y\"] = $2; })"+ js_setY :: DOMPoint -> Double -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/DOMPoint/y MDN DOMPoint.y documentation>+setY :: (MonadDOM m) => DOMPoint -> Double -> m ()+setY self val = liftDOM (void ((js_setY (self) (val)))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMPoint.y Mozilla DOMPoint.y documentation> -getY :: (MonadIO m) => DOMPoint -> m Double-getY self = liftIO (js_getY self)- -foreign import javascript unsafe "(($1, $2) => { $1[\"z\"] = $2; })" js_setZ ::- DOMPoint -> Double -> IO ()+foreign import javascript unsafe "(($1) => { return $1[\"y\"]; })"+ js_getY :: DOMPoint -> IO Double+-- | <https://developer.mozilla.org/docs/Web/API/DOMPoint/y MDN DOMPoint.y documentation>+getY :: (MonadDOM m) => DOMPoint -> m Double+getY self = liftDOM ((js_getY (self))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMPoint.z Mozilla DOMPoint.z documentation> -setZ :: (MonadIO m) => DOMPoint -> Double -> m ()-setZ self val = liftIO (js_setZ self val)- -foreign import javascript unsafe "(($1) => { return $1[\"z\"]; })" js_getZ ::- DOMPoint -> IO Double+foreign import javascript safe "(($1, $2) => { $1[\"z\"] = $2; })"+ js_setZ :: DOMPoint -> Double -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/DOMPoint/z MDN DOMPoint.z documentation>+setZ :: (MonadDOM m) => DOMPoint -> Double -> m ()+setZ self val = liftDOM (void ((js_setZ (self) (val)))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMPoint.z Mozilla DOMPoint.z documentation> -getZ :: (MonadIO m) => DOMPoint -> m Double-getZ self = liftIO (js_getZ self)- -foreign import javascript unsafe "(($1, $2) => { $1[\"w\"] = $2; })" js_setW ::- DOMPoint -> Double -> IO ()+foreign import javascript unsafe "(($1) => { return $1[\"z\"]; })"+ js_getZ :: DOMPoint -> IO Double+-- | <https://developer.mozilla.org/docs/Web/API/DOMPoint/z MDN DOMPoint.z documentation>+getZ :: (MonadDOM m) => DOMPoint -> m Double+getZ self = liftDOM ((js_getZ (self))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMPoint.w Mozilla DOMPoint.w documentation> -setW :: (MonadIO m) => DOMPoint -> Double -> m ()-setW self val = liftIO (js_setW self val)- -foreign import javascript unsafe "(($1) => { return $1[\"w\"]; })" js_getW ::- DOMPoint -> IO Double+foreign import javascript safe "(($1, $2) => { $1[\"w\"] = $2; })"+ js_setW :: DOMPoint -> Double -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/DOMPoint/w MDN DOMPoint.w documentation>+setW :: (MonadDOM m) => DOMPoint -> Double -> m ()+setW self val = liftDOM (void ((js_setW (self) (val)))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMPoint.w Mozilla DOMPoint.w documentation> -getW :: (MonadIO m) => DOMPoint -> m Double-getW self = liftIO (js_getW self)+foreign import javascript unsafe "(($1) => { return $1[\"w\"]; })"+ js_getW :: DOMPoint -> IO Double+-- | <https://developer.mozilla.org/docs/Web/API/DOMPoint/w MDN DOMPoint.w documentation>+getW :: (MonadDOM m) => DOMPoint -> m Double+getW self = liftDOM ((js_getW (self)))
@@ -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+-- | <https://drafts.csswg.org/geometry-1/#dictdef-dompointinit DOMPointInit specification>+newDOMPointInit :: (MonadDOM m) => m DOMPointInit+newDOMPointInit = liftDOM ((js_newDOMPointInit))++foreign import javascript safe "(($1, $2) => { $1[\"x\"] = $2; })"+ js_setX :: DOMPointInit -> Double -> IO ()+-- | <https://drafts.csswg.org/geometry-1/#dom-dompointinit-x DOMPointInit.x specification>+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+-- | <https://drafts.csswg.org/geometry-1/#dom-dompointinit-x DOMPointInit.x specification>+getX :: (MonadDOM m) => DOMPointInit -> m (Maybe Double)+getX self = liftDOM (((js_getX (self)) >>= fromJSValUnchecked))++-- | <https://drafts.csswg.org/geometry-1/#dom-dompointinit-x DOMPointInit.x specification>+getXUnsafe :: (MonadDOM m, HasCallStack) => DOMPointInit -> m Double+getXUnsafe self = liftDOM ((((js_getX (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://drafts.csswg.org/geometry-1/#dom-dompointinit-x DOMPointInit.x specification>+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 ()+-- | <https://drafts.csswg.org/geometry-1/#dom-dompointinit-y DOMPointInit.y specification>+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+-- | <https://drafts.csswg.org/geometry-1/#dom-dompointinit-y DOMPointInit.y specification>+getY :: (MonadDOM m) => DOMPointInit -> m (Maybe Double)+getY self = liftDOM (((js_getY (self)) >>= fromJSValUnchecked))++-- | <https://drafts.csswg.org/geometry-1/#dom-dompointinit-y DOMPointInit.y specification>+getYUnsafe :: (MonadDOM m, HasCallStack) => DOMPointInit -> m Double+getYUnsafe self = liftDOM ((((js_getY (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://drafts.csswg.org/geometry-1/#dom-dompointinit-y DOMPointInit.y specification>+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 ()+-- | <https://drafts.csswg.org/geometry-1/#dom-dompointinit-z DOMPointInit.z specification>+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+-- | <https://drafts.csswg.org/geometry-1/#dom-dompointinit-z DOMPointInit.z specification>+getZ :: (MonadDOM m) => DOMPointInit -> m (Maybe Double)+getZ self = liftDOM (((js_getZ (self)) >>= fromJSValUnchecked))++-- | <https://drafts.csswg.org/geometry-1/#dom-dompointinit-z DOMPointInit.z specification>+getZUnsafe :: (MonadDOM m, HasCallStack) => DOMPointInit -> m Double+getZUnsafe self = liftDOM ((((js_getZ (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://drafts.csswg.org/geometry-1/#dom-dompointinit-z DOMPointInit.z specification>+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 ()+-- | <https://drafts.csswg.org/geometry-1/#dom-dompointinit-w DOMPointInit.w specification>+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+-- | <https://drafts.csswg.org/geometry-1/#dom-dompointinit-w DOMPointInit.w specification>+getW :: (MonadDOM m) => DOMPointInit -> m (Maybe Double)+getW self = liftDOM (((js_getW (self)) >>= fromJSValUnchecked))++-- | <https://drafts.csswg.org/geometry-1/#dom-dompointinit-w DOMPointInit.w specification>+getWUnsafe :: (MonadDOM m, HasCallStack) => DOMPointInit -> m Double+getWUnsafe self = liftDOM ((((js_getW (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://drafts.csswg.org/geometry-1/#dom-dompointinit-w DOMPointInit.w specification>+getWUnchecked :: (MonadDOM m) => DOMPointInit -> m Double+getWUnchecked self = liftDOM ((pFromJSVal <$> (js_getW (self))))
@@ -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 --- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMPointReadOnly Mozilla DOMPointReadOnly documentation> -newDOMPointReadOnly ::- (MonadIO m) => DOMPointInit -> m DOMPointReadOnly-newDOMPointReadOnly point = liftIO (js_newDOMPointReadOnly point)- -foreign import javascript unsafe- "(($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+-- | <https://developer.mozilla.org/docs/Web/API/DOMPointReadOnly/DOMPointReadOnly MDN DOMPointReadOnly. documentation>+newDOMPointReadOnly :: (MonadDOM m) => Maybe Double -> m DOMPointReadOnly+newDOMPointReadOnly x = liftDOM (((P.maybe (P.return jsUndefined) toJSVal x) >>= \a1' -> js_newDOMPointReadOnly a1')) --- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMPointReadOnly Mozilla DOMPointReadOnly documentation> -newDOMPointReadOnly' ::- (MonadIO m) =>- Maybe Double ->- Maybe Double -> Maybe Double -> Maybe Double -> m DOMPointReadOnly-newDOMPointReadOnly' x y z w- = liftIO- (js_newDOMPointReadOnly' (maybeToOptional x) (maybeToOptional y)- (maybeToOptional z)- (maybeToOptional w))- -foreign import javascript unsafe- "(($1) => { 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+-- | <https://developer.mozilla.org/docs/Web/API/DOMPointReadOnly/DOMPointReadOnly MDN DOMPointReadOnly. documentation>+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')) --- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMPointReadOnly.fromPoint Mozilla DOMPointReadOnly.fromPoint documentation> -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+-- | <https://developer.mozilla.org/docs/Web/API/DOMPointReadOnly/matrixTransform MDN DOMPointReadOnly.matrixTransform documentation>+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')) --- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMPointReadOnly.fromPoint Mozilla DOMPointReadOnly.fromPoint documentation> -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+-- | <https://developer.mozilla.org/docs/Web/API/DOMPointReadOnly/matrixTransform MDN DOMPointReadOnly.matrixTransform documentation>+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'))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMPointReadOnly.x Mozilla DOMPointReadOnly.x documentation> -getX :: (MonadIO m, IsDOMPointReadOnly self) => self -> m Double-getX self = liftIO (js_getX (toDOMPointReadOnly self))- -foreign import javascript unsafe "(($1) => { return $1[\"y\"]; })" js_getY ::- DOMPointReadOnly -> IO Double+foreign import javascript safe "(($1) => { return $1[\"toJSON\"](); })"+ js_toJSON :: DOMPointReadOnly -> IO GObject+-- | <https://developer.mozilla.org/docs/Web/API/DOMPointReadOnly/toJSON MDN DOMPointReadOnly.toJSON documentation>+toJSON :: (MonadDOM m, IsDOMPointReadOnly self) => self -> m GObject+toJSON self = liftDOM ((js_toJSON ((Types.toDOMPointReadOnly self)))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMPointReadOnly.y Mozilla DOMPointReadOnly.y documentation> -getY :: (MonadIO m, IsDOMPointReadOnly self) => self -> m Double-getY self = liftIO (js_getY (toDOMPointReadOnly self))- -foreign import javascript unsafe "(($1) => { return $1[\"z\"]; })" js_getZ ::- DOMPointReadOnly -> IO Double+-- | <https://developer.mozilla.org/docs/Web/API/DOMPointReadOnly/toJSON MDN DOMPointReadOnly.toJSON documentation>+toJSON_ :: (MonadDOM m, IsDOMPointReadOnly self) => self -> m ()+toJSON_ self = liftDOM (void ((js_toJSON ((Types.toDOMPointReadOnly self))))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMPointReadOnly.z Mozilla DOMPointReadOnly.z documentation> -getZ :: (MonadIO m, IsDOMPointReadOnly self) => self -> m Double-getZ self = liftIO (js_getZ (toDOMPointReadOnly self))- -foreign import javascript unsafe "(($1) => { return $1[\"w\"]; })" js_getW ::- DOMPointReadOnly -> IO Double+foreign import javascript safe "(($1) => { return globalThis[\"DOMPointReadOnly\"][\"fromPoint\"]($1); })"+ js_fromPoint :: JSVal -> IO DOMPointReadOnly+-- | <https://developer.mozilla.org/docs/Web/API/DOMPointReadOnly/fromPoint_static MDN DOMPointReadOnly.fromPoint documentation>+fromPoint :: (MonadDOM m) => Maybe DOMPointInit -> m DOMPointReadOnly+fromPoint other = liftDOM (((P.maybe (P.return jsUndefined) toJSVal other) >>= \a1' -> js_fromPoint a1')) --- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMPointReadOnly.w Mozilla DOMPointReadOnly.w documentation> -getW :: (MonadIO m, IsDOMPointReadOnly self) => self -> m Double-getW self = liftIO (js_getW (toDOMPointReadOnly self))+-- | <https://developer.mozilla.org/docs/Web/API/DOMPointReadOnly/fromPoint_static MDN DOMPointReadOnly.fromPoint documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/DOMPointReadOnly/x MDN DOMPointReadOnly.x documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/DOMPointReadOnly/y MDN DOMPointReadOnly.y documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/DOMPointReadOnly/z MDN DOMPointReadOnly.z documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/DOMPointReadOnly/w MDN DOMPointReadOnly.w documentation>+getW :: (MonadDOM m, IsDOMPointReadOnly self) => self -> m Double+getW self = liftDOM ((js_getW ((Types.toDOMPointReadOnly self))))
@@ -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+-- | <https://developer.mozilla.org/docs/Web/API/DOMQuad/DOMQuad MDN DOMQuad. documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/DOMQuad/getBounds MDN DOMQuad.getBounds documentation>+getBounds :: (MonadDOM m) => DOMQuad -> m DOMRect+getBounds self = liftDOM ((js_getBounds (self)))++-- | <https://developer.mozilla.org/docs/Web/API/DOMQuad/getBounds MDN DOMQuad.getBounds documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/DOMQuad/toJSON MDN DOMQuad.toJSON documentation>+toJSON :: (MonadDOM m) => DOMQuad -> m GObject+toJSON self = liftDOM ((js_toJSON (self)))++-- | <https://developer.mozilla.org/docs/Web/API/DOMQuad/toJSON MDN DOMQuad.toJSON documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/DOMQuad/fromQuad_static MDN DOMQuad.fromQuad documentation>+fromQuad :: (MonadDOM m) => Maybe DOMQuadInit -> m DOMQuad+fromQuad other = liftDOM (((P.maybe (P.return jsUndefined) toJSVal other) >>= \a1' -> js_fromQuad a1'))++-- | <https://developer.mozilla.org/docs/Web/API/DOMQuad/fromQuad_static MDN DOMQuad.fromQuad documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/DOMQuad/fromRect_static MDN DOMQuad.fromRect documentation>+fromRect :: (MonadDOM m) => Maybe DOMRectInit -> m DOMQuad+fromRect other = liftDOM (((P.maybe (P.return jsUndefined) toJSVal other) >>= \a1' -> js_fromRect a1'))++-- | <https://developer.mozilla.org/docs/Web/API/DOMQuad/fromRect_static MDN DOMQuad.fromRect documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/DOMQuad/p1 MDN DOMQuad.p1 documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/DOMQuad/p2 MDN DOMQuad.p2 documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/DOMQuad/p3 MDN DOMQuad.p3 documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/DOMQuad/p4 MDN DOMQuad.p4 documentation>+getP4 :: (MonadDOM m) => DOMQuad -> m DOMPoint+getP4 self = liftDOM ((js_getP4 (self)))
@@ -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+-- | <https://drafts.csswg.org/geometry-1/#dictdef-domquadinit DOMQuadInit specification>+newDOMQuadInit :: (MonadDOM m) => m DOMQuadInit+newDOMQuadInit = liftDOM ((js_newDOMQuadInit))++foreign import javascript safe "(($1, $2) => { $1[\"p1\"] = $2; })"+ js_setP1 :: DOMQuadInit -> DOMPointInit -> IO ()+-- | <https://drafts.csswg.org/geometry-1/#dom-domquadinit-p1 DOMQuadInit.p1 specification>+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+-- | <https://drafts.csswg.org/geometry-1/#dom-domquadinit-p1 DOMQuadInit.p1 specification>+getP1 :: (MonadDOM m) => DOMQuadInit -> m (Maybe DOMPointInit)+getP1 self = liftDOM (((js_getP1 (self)) >>= fromJSValUnchecked))++-- | <https://drafts.csswg.org/geometry-1/#dom-domquadinit-p1 DOMQuadInit.p1 specification>+getP1Unsafe :: (MonadDOM m, HasCallStack) => DOMQuadInit -> m DOMPointInit+getP1Unsafe self = liftDOM ((((js_getP1 (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://drafts.csswg.org/geometry-1/#dom-domquadinit-p1 DOMQuadInit.p1 specification>+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 ()+-- | <https://drafts.csswg.org/geometry-1/#dom-domquadinit-p2 DOMQuadInit.p2 specification>+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+-- | <https://drafts.csswg.org/geometry-1/#dom-domquadinit-p2 DOMQuadInit.p2 specification>+getP2 :: (MonadDOM m) => DOMQuadInit -> m (Maybe DOMPointInit)+getP2 self = liftDOM (((js_getP2 (self)) >>= fromJSValUnchecked))++-- | <https://drafts.csswg.org/geometry-1/#dom-domquadinit-p2 DOMQuadInit.p2 specification>+getP2Unsafe :: (MonadDOM m, HasCallStack) => DOMQuadInit -> m DOMPointInit+getP2Unsafe self = liftDOM ((((js_getP2 (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://drafts.csswg.org/geometry-1/#dom-domquadinit-p2 DOMQuadInit.p2 specification>+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 ()+-- | <https://drafts.csswg.org/geometry-1/#dom-domquadinit-p3 DOMQuadInit.p3 specification>+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+-- | <https://drafts.csswg.org/geometry-1/#dom-domquadinit-p3 DOMQuadInit.p3 specification>+getP3 :: (MonadDOM m) => DOMQuadInit -> m (Maybe DOMPointInit)+getP3 self = liftDOM (((js_getP3 (self)) >>= fromJSValUnchecked))++-- | <https://drafts.csswg.org/geometry-1/#dom-domquadinit-p3 DOMQuadInit.p3 specification>+getP3Unsafe :: (MonadDOM m, HasCallStack) => DOMQuadInit -> m DOMPointInit+getP3Unsafe self = liftDOM ((((js_getP3 (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://drafts.csswg.org/geometry-1/#dom-domquadinit-p3 DOMQuadInit.p3 specification>+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 ()+-- | <https://drafts.csswg.org/geometry-1/#dom-domquadinit-p4 DOMQuadInit.p4 specification>+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+-- | <https://drafts.csswg.org/geometry-1/#dom-domquadinit-p4 DOMQuadInit.p4 specification>+getP4 :: (MonadDOM m) => DOMQuadInit -> m (Maybe DOMPointInit)+getP4 self = liftDOM (((js_getP4 (self)) >>= fromJSValUnchecked))++-- | <https://drafts.csswg.org/geometry-1/#dom-domquadinit-p4 DOMQuadInit.p4 specification>+getP4Unsafe :: (MonadDOM m, HasCallStack) => DOMQuadInit -> m DOMPointInit+getP4Unsafe self = liftDOM ((((js_getP4 (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://drafts.csswg.org/geometry-1/#dom-domquadinit-p4 DOMQuadInit.p4 specification>+getP4Unchecked :: (MonadDOM m) => DOMQuadInit -> m DOMPointInit+getP4Unchecked self = liftDOM ((pFromJSVal <$> (js_getP4 (self))))
@@ -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 --- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMRect Mozilla DOMRect documentation> -newDOMRect ::- (MonadIO m) =>- Maybe Double ->- Maybe Double -> Maybe Double -> Maybe Double -> m DOMRect-newDOMRect x y width height- = liftIO- (js_newDOMRect (maybeToOptional x) (maybeToOptional y)- (maybeToOptional width)- (maybeToOptional height))- -foreign import javascript unsafe- "(($1) => { 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+-- | <https://developer.mozilla.org/docs/Web/API/DOMRect/DOMRect MDN DOMRect. documentation>+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')) --- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMRect.fromRect Mozilla DOMRect.fromRect documentation> -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+-- | <https://developer.mozilla.org/docs/Web/API/DOMRect/fromRect_static MDN DOMRect.fromRect documentation>+fromRect :: (MonadDOM m) => Maybe DOMRectInit -> m DOMRect+fromRect other = liftDOM (((P.maybe (P.return jsUndefined) toJSVal other) >>= \a1' -> js_fromRect a1')) --- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMRect.fromRect Mozilla DOMRect.fromRect documentation> -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 ()+-- | <https://developer.mozilla.org/docs/Web/API/DOMRect/fromRect_static MDN DOMRect.fromRect documentation>+fromRect_ :: (MonadDOM m) => Maybe DOMRectInit -> m ()+fromRect_ other = liftDOM (void (((P.maybe (P.return jsUndefined) toJSVal other) >>= \a1' -> js_fromRect a1'))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMRect.x Mozilla DOMRect.x documentation> -setX :: (MonadIO m) => DOMRect -> Double -> m ()-setX self val = liftIO (js_setX self val)- -foreign import javascript unsafe "(($1) => { return $1[\"x\"]; })" js_getX ::- DOMRect -> IO Double+foreign import javascript safe "(($1, $2) => { $1[\"x\"] = $2; })"+ js_setX :: DOMRect -> Double -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/DOMRect/x MDN DOMRect.x documentation>+setX :: (MonadDOM m) => DOMRect -> Double -> m ()+setX self val = liftDOM (void ((js_setX (self) (val)))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMRect.x Mozilla DOMRect.x documentation> -getX :: (MonadIO m) => DOMRect -> m Double-getX self = liftIO (js_getX self)- -foreign import javascript unsafe "(($1, $2) => { $1[\"y\"] = $2; })" js_setY ::- DOMRect -> Double -> IO ()+foreign import javascript unsafe "(($1) => { return $1[\"x\"]; })"+ js_getX :: DOMRect -> IO Double+-- | <https://developer.mozilla.org/docs/Web/API/DOMRect/x MDN DOMRect.x documentation>+getX :: (MonadDOM m) => DOMRect -> m Double+getX self = liftDOM ((js_getX (self))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMRect.y Mozilla DOMRect.y documentation> -setY :: (MonadIO m) => DOMRect -> Double -> m ()-setY self val = liftIO (js_setY self val)- -foreign import javascript unsafe "(($1) => { return $1[\"y\"]; })" js_getY ::- DOMRect -> IO Double+foreign import javascript safe "(($1, $2) => { $1[\"y\"] = $2; })"+ js_setY :: DOMRect -> Double -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/DOMRect/y MDN DOMRect.y documentation>+setY :: (MonadDOM m) => DOMRect -> Double -> m ()+setY self val = liftDOM (void ((js_setY (self) (val)))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMRect.y Mozilla DOMRect.y documentation> -getY :: (MonadIO m) => DOMRect -> m Double-getY self = liftIO (js_getY self)- -foreign import javascript unsafe "(($1, $2) => { $1[\"width\"] = $2; })" js_setWidth- :: DOMRect -> Double -> IO ()+foreign import javascript unsafe "(($1) => { return $1[\"y\"]; })"+ js_getY :: DOMRect -> IO Double+-- | <https://developer.mozilla.org/docs/Web/API/DOMRect/y MDN DOMRect.y documentation>+getY :: (MonadDOM m) => DOMRect -> m Double+getY self = liftDOM ((js_getY (self))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMRect.width Mozilla DOMRect.width documentation> -setWidth :: (MonadIO m) => DOMRect -> Double -> m ()-setWidth self val = liftIO (js_setWidth self val)- -foreign import javascript unsafe "(($1) => { return $1[\"width\"]; })" js_getWidth ::- DOMRect -> IO Double+foreign import javascript safe "(($1, $2) => { $1[\"width\"] = $2; })"+ js_setWidth :: DOMRect -> Double -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/DOMRect/width MDN DOMRect.width documentation>+setWidth :: (MonadDOM m) => DOMRect -> Double -> m ()+setWidth self val = liftDOM (void ((js_setWidth (self) (val)))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMRect.width Mozilla DOMRect.width documentation> -getWidth :: (MonadIO m) => DOMRect -> m Double-getWidth self = liftIO (js_getWidth self)- -foreign import javascript unsafe "(($1, $2) => { $1[\"height\"] = $2; })"- js_setHeight :: DOMRect -> Double -> IO ()+foreign import javascript unsafe "(($1) => { return $1[\"width\"]; })"+ js_getWidth :: DOMRect -> IO Double+-- | <https://developer.mozilla.org/docs/Web/API/DOMRect/width MDN DOMRect.width documentation>+getWidth :: (MonadDOM m) => DOMRect -> m Double+getWidth self = liftDOM ((js_getWidth (self))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMRect.height Mozilla DOMRect.height documentation> -setHeight :: (MonadIO m) => DOMRect -> Double -> m ()-setHeight self val = liftIO (js_setHeight self val)- -foreign import javascript unsafe "(($1) => { return $1[\"height\"]; })" js_getHeight ::- DOMRect -> IO Double+foreign import javascript safe "(($1, $2) => { $1[\"height\"] = $2; })"+ js_setHeight :: DOMRect -> Double -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/DOMRect/height MDN DOMRect.height documentation>+setHeight :: (MonadDOM m) => DOMRect -> Double -> m ()+setHeight self val = liftDOM (void ((js_setHeight (self) (val)))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMRect.height Mozilla DOMRect.height documentation> -getHeight :: (MonadIO m) => DOMRect -> m Double-getHeight self = liftIO (js_getHeight self)+foreign import javascript unsafe "(($1) => { return $1[\"height\"]; })"+ js_getHeight :: DOMRect -> IO Double+-- | <https://developer.mozilla.org/docs/Web/API/DOMRect/height MDN DOMRect.height documentation>+getHeight :: (MonadDOM m) => DOMRect -> m Double+getHeight self = liftDOM ((js_getHeight (self)))
@@ -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+-- | <https://drafts.csswg.org/geometry-1/#dictdef-domrectinit DOMRectInit specification>+newDOMRectInit :: (MonadDOM m) => m DOMRectInit+newDOMRectInit = liftDOM ((js_newDOMRectInit))++foreign import javascript safe "(($1, $2) => { $1[\"x\"] = $2; })"+ js_setX :: DOMRectInit -> Double -> IO ()+-- | <https://drafts.csswg.org/geometry-1/#dom-domrectinit-x DOMRectInit.x specification>+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+-- | <https://drafts.csswg.org/geometry-1/#dom-domrectinit-x DOMRectInit.x specification>+getX :: (MonadDOM m) => DOMRectInit -> m (Maybe Double)+getX self = liftDOM (((js_getX (self)) >>= fromJSValUnchecked))++-- | <https://drafts.csswg.org/geometry-1/#dom-domrectinit-x DOMRectInit.x specification>+getXUnsafe :: (MonadDOM m, HasCallStack) => DOMRectInit -> m Double+getXUnsafe self = liftDOM ((((js_getX (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://drafts.csswg.org/geometry-1/#dom-domrectinit-x DOMRectInit.x specification>+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 ()+-- | <https://drafts.csswg.org/geometry-1/#dom-domrectinit-y DOMRectInit.y specification>+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+-- | <https://drafts.csswg.org/geometry-1/#dom-domrectinit-y DOMRectInit.y specification>+getY :: (MonadDOM m) => DOMRectInit -> m (Maybe Double)+getY self = liftDOM (((js_getY (self)) >>= fromJSValUnchecked))++-- | <https://drafts.csswg.org/geometry-1/#dom-domrectinit-y DOMRectInit.y specification>+getYUnsafe :: (MonadDOM m, HasCallStack) => DOMRectInit -> m Double+getYUnsafe self = liftDOM ((((js_getY (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://drafts.csswg.org/geometry-1/#dom-domrectinit-y DOMRectInit.y specification>+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 ()+-- | <https://drafts.csswg.org/geometry-1/#dom-domrectinit-width DOMRectInit.width specification>+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+-- | <https://drafts.csswg.org/geometry-1/#dom-domrectinit-width DOMRectInit.width specification>+getWidth :: (MonadDOM m) => DOMRectInit -> m (Maybe Double)+getWidth self = liftDOM (((js_getWidth (self)) >>= fromJSValUnchecked))++-- | <https://drafts.csswg.org/geometry-1/#dom-domrectinit-width DOMRectInit.width specification>+getWidthUnsafe :: (MonadDOM m, HasCallStack) => DOMRectInit -> m Double+getWidthUnsafe self = liftDOM ((((js_getWidth (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://drafts.csswg.org/geometry-1/#dom-domrectinit-width DOMRectInit.width specification>+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 ()+-- | <https://drafts.csswg.org/geometry-1/#dom-domrectinit-height DOMRectInit.height specification>+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+-- | <https://drafts.csswg.org/geometry-1/#dom-domrectinit-height DOMRectInit.height specification>+getHeight :: (MonadDOM m) => DOMRectInit -> m (Maybe Double)+getHeight self = liftDOM (((js_getHeight (self)) >>= fromJSValUnchecked))++-- | <https://drafts.csswg.org/geometry-1/#dom-domrectinit-height DOMRectInit.height specification>+getHeightUnsafe :: (MonadDOM m, HasCallStack) => DOMRectInit -> m Double+getHeightUnsafe self = liftDOM ((((js_getHeight (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://drafts.csswg.org/geometry-1/#dom-domrectinit-height DOMRectInit.height specification>+getHeightUnchecked :: (MonadDOM m) => DOMRectInit -> m Double+getHeightUnchecked self = liftDOM ((pFromJSVal <$> (js_getHeight (self))))
@@ -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+-- | <https://developer.mozilla.org/docs/Web/API/DOMRectList/item MDN DOMRectList.item documentation>+item :: (MonadDOM m) => DOMRectList -> Word -> m (Maybe DOMRect)+item self index = liftDOM (((js_item (self) (index)) >>= fromJSValUnchecked))++-- | <https://developer.mozilla.org/docs/Web/API/DOMRectList/item MDN DOMRectList.item documentation>+item_ :: (MonadDOM m) => DOMRectList -> Word -> m ()+item_ self index = liftDOM (void ((js_item (self) (index))))++-- | <https://developer.mozilla.org/docs/Web/API/DOMRectList/item MDN DOMRectList.item documentation>+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))++-- | <https://developer.mozilla.org/docs/Web/API/DOMRectList/item MDN DOMRectList.item documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/DOMRectList/length MDN DOMRectList.length documentation>+getLength :: (MonadDOM m) => DOMRectList -> m Word+getLength self = liftDOM ((js_getLength (self)))
@@ -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 --- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMRectReadOnly Mozilla DOMRectReadOnly documentation> -newDOMRectReadOnly ::- (MonadIO m) =>- Maybe Double ->- Maybe Double -> Maybe Double -> Maybe Double -> m DOMRectReadOnly-newDOMRectReadOnly x y width height- = liftIO- (js_newDOMRectReadOnly (maybeToOptional x) (maybeToOptional y)- (maybeToOptional width)- (maybeToOptional height))- -foreign import javascript unsafe- "(($1) => { 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+-- | <https://developer.mozilla.org/docs/Web/API/DOMRectReadOnly/DOMRectReadOnly MDN DOMRectReadOnly. documentation>+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')) --- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMRectReadOnly.fromRect Mozilla DOMRectReadOnly.fromRect documentation> -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+-- | <https://developer.mozilla.org/docs/Web/API/DOMRectReadOnly/toJSON MDN DOMRectReadOnly.toJSON documentation>+toJSON :: (MonadDOM m, IsDOMRectReadOnly self) => self -> m GObject+toJSON self = liftDOM ((js_toJSON ((Types.toDOMRectReadOnly self)))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMRectReadOnly.fromRect Mozilla DOMRectReadOnly.fromRect documentation> -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+-- | <https://developer.mozilla.org/docs/Web/API/DOMRectReadOnly/toJSON MDN DOMRectReadOnly.toJSON documentation>+toJSON_ :: (MonadDOM m, IsDOMRectReadOnly self) => self -> m ()+toJSON_ self = liftDOM (void ((js_toJSON ((Types.toDOMRectReadOnly self))))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMRectReadOnly.x Mozilla DOMRectReadOnly.x documentation> -getX :: (MonadIO m, IsDOMRectReadOnly self) => self -> m Double-getX self = liftIO (js_getX (toDOMRectReadOnly self))- -foreign import javascript unsafe "(($1) => { return $1[\"y\"]; })" js_getY ::- DOMRectReadOnly -> IO Double+foreign import javascript safe "(($1) => { return globalThis[\"DOMRectReadOnly\"][\"fromRect\"]($1); })"+ js_fromRect :: JSVal -> IO DOMRectReadOnly+-- | <https://developer.mozilla.org/docs/Web/API/DOMRectReadOnly/fromRect_static MDN DOMRectReadOnly.fromRect documentation>+fromRect :: (MonadDOM m) => Maybe DOMRectInit -> m DOMRectReadOnly+fromRect other = liftDOM (((P.maybe (P.return jsUndefined) toJSVal other) >>= \a1' -> js_fromRect a1')) --- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMRectReadOnly.y Mozilla DOMRectReadOnly.y documentation> -getY :: (MonadIO m, IsDOMRectReadOnly self) => self -> m Double-getY self = liftIO (js_getY (toDOMRectReadOnly self))- -foreign import javascript unsafe "(($1) => { return $1[\"width\"]; })" js_getWidth ::- DOMRectReadOnly -> IO Double+-- | <https://developer.mozilla.org/docs/Web/API/DOMRectReadOnly/fromRect_static MDN DOMRectReadOnly.fromRect documentation>+fromRect_ :: (MonadDOM m) => Maybe DOMRectInit -> m ()+fromRect_ other = liftDOM (void (((P.maybe (P.return jsUndefined) toJSVal other) >>= \a1' -> js_fromRect a1'))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMRectReadOnly.width Mozilla DOMRectReadOnly.width documentation> -getWidth :: (MonadIO m, IsDOMRectReadOnly self) => self -> m Double-getWidth self = liftIO (js_getWidth (toDOMRectReadOnly self))- -foreign import javascript unsafe "(($1) => { return $1[\"height\"]; })" js_getHeight ::- DOMRectReadOnly -> IO Double+foreign import javascript unsafe "(($1) => { return $1[\"x\"]; })"+ js_getX :: DOMRectReadOnly -> IO Double+-- | <https://developer.mozilla.org/docs/Web/API/DOMRectReadOnly/x MDN DOMRectReadOnly.x documentation>+getX :: (MonadDOM m, IsDOMRectReadOnly self) => self -> m Double+getX self = liftDOM ((js_getX ((Types.toDOMRectReadOnly self)))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMRectReadOnly.height Mozilla DOMRectReadOnly.height documentation> -getHeight ::- (MonadIO m, IsDOMRectReadOnly self) => self -> m Double-getHeight self = liftIO (js_getHeight (toDOMRectReadOnly self))- -foreign import javascript unsafe "(($1) => { return $1[\"top\"]; })" js_getTop ::- DOMRectReadOnly -> IO Double+foreign import javascript unsafe "(($1) => { return $1[\"y\"]; })"+ js_getY :: DOMRectReadOnly -> IO Double+-- | <https://developer.mozilla.org/docs/Web/API/DOMRectReadOnly/y MDN DOMRectReadOnly.y documentation>+getY :: (MonadDOM m, IsDOMRectReadOnly self) => self -> m Double+getY self = liftDOM ((js_getY ((Types.toDOMRectReadOnly self)))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMRectReadOnly.top Mozilla DOMRectReadOnly.top documentation> -getTop :: (MonadIO m, IsDOMRectReadOnly self) => self -> m Double-getTop self = liftIO (js_getTop (toDOMRectReadOnly self))- -foreign import javascript unsafe "(($1) => { return $1[\"right\"]; })" js_getRight ::- DOMRectReadOnly -> IO Double+foreign import javascript unsafe "(($1) => { return $1[\"width\"]; })"+ js_getWidth :: DOMRectReadOnly -> IO Double+-- | <https://developer.mozilla.org/docs/Web/API/DOMRectReadOnly/width MDN DOMRectReadOnly.width documentation>+getWidth :: (MonadDOM m, IsDOMRectReadOnly self) => self -> m Double+getWidth self = liftDOM ((js_getWidth ((Types.toDOMRectReadOnly self)))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMRectReadOnly.right Mozilla DOMRectReadOnly.right documentation> -getRight :: (MonadIO m, IsDOMRectReadOnly self) => self -> m Double-getRight self = liftIO (js_getRight (toDOMRectReadOnly self))- -foreign import javascript unsafe "(($1) => { return $1[\"bottom\"]; })" js_getBottom ::- DOMRectReadOnly -> IO Double+foreign import javascript unsafe "(($1) => { return $1[\"height\"]; })"+ js_getHeight :: DOMRectReadOnly -> IO Double+-- | <https://developer.mozilla.org/docs/Web/API/DOMRectReadOnly/height MDN DOMRectReadOnly.height documentation>+getHeight :: (MonadDOM m, IsDOMRectReadOnly self) => self -> m Double+getHeight self = liftDOM ((js_getHeight ((Types.toDOMRectReadOnly self)))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMRectReadOnly.bottom Mozilla DOMRectReadOnly.bottom documentation> -getBottom ::- (MonadIO m, IsDOMRectReadOnly self) => self -> m Double-getBottom self = liftIO (js_getBottom (toDOMRectReadOnly self))- -foreign import javascript unsafe "(($1) => { return $1[\"left\"]; })" js_getLeft ::- DOMRectReadOnly -> IO Double+foreign import javascript unsafe "(($1) => { return $1[\"top\"]; })"+ js_getTop :: DOMRectReadOnly -> IO Double+-- | <https://developer.mozilla.org/docs/Web/API/DOMRectReadOnly/top MDN DOMRectReadOnly.top documentation>+getTop :: (MonadDOM m, IsDOMRectReadOnly self) => self -> m Double+getTop self = liftDOM ((js_getTop ((Types.toDOMRectReadOnly self)))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMRectReadOnly.left Mozilla DOMRectReadOnly.left documentation> -getLeft :: (MonadIO m, IsDOMRectReadOnly self) => self -> m Double-getLeft self = liftIO (js_getLeft (toDOMRectReadOnly self))+foreign import javascript unsafe "(($1) => { return $1[\"right\"]; })"+ js_getRight :: DOMRectReadOnly -> IO Double+-- | <https://developer.mozilla.org/docs/Web/API/DOMRectReadOnly/right MDN DOMRectReadOnly.right documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/DOMRectReadOnly/bottom MDN DOMRectReadOnly.bottom documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/DOMRectReadOnly/left MDN DOMRectReadOnly.left documentation>+getLeft :: (MonadDOM m, IsDOMRectReadOnly self) => self -> m Double+getLeft self = liftDOM ((js_getLeft ((Types.toDOMRectReadOnly self))))
@@ -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) --- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMStringList.item Mozilla DOMStringList.item documentation> -item ::- (MonadIO m, FromJSString result) =>- DOMStringList -> Word -> m (Maybe result)-item self index- = liftIO (fromMaybeJSString <$> (js_item self index))+foreign import javascript safe "(($1, $2) => { return $1[\"contains\"]($2); })"+ js_contains :: DOMStringList -> JSString -> IO Bool+-- | <https://developer.mozilla.org/docs/Web/API/DOMStringList/contains MDN DOMStringList.contains documentation>+contains :: (MonadDOM m, ToJSString string) => DOMStringList -> string -> m Bool+contains self string = liftDOM ((js_contains (self) (toJSString string))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMStringList.item Mozilla DOMStringList.item documentation> -item_ :: (MonadIO m) => DOMStringList -> Word -> m ()-item_ self index = liftIO (void (js_item self index))+-- | <https://developer.mozilla.org/docs/Web/API/DOMStringList/contains MDN DOMStringList.contains documentation>+contains_ :: (MonadDOM m, ToJSString string) => DOMStringList -> string -> m ()+contains_ self string = liftDOM (void ((js_contains (self) (toJSString string)))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMStringList.item Mozilla DOMStringList.item documentation> -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+-- | <https://developer.mozilla.org/docs/Web/API/DOMStringList/item MDN DOMStringList.item documentation>+item :: (MonadDOM m, FromJSString result) => DOMStringList -> Word -> m (Maybe result)+item self index = liftDOM (((fromMaybeJSString . Nullable) <$> (js_item (self) (index)))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMStringList.item Mozilla DOMStringList.item documentation> -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+-- | <https://developer.mozilla.org/docs/Web/API/DOMStringList/item MDN DOMStringList.item documentation>+item_ :: (MonadDOM m) => DOMStringList -> Word -> m ()+item_ self index = liftDOM (void ((js_item (self) (index)))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMStringList.contains Mozilla DOMStringList.contains documentation> -contains ::- (MonadIO m, ToJSString string) => DOMStringList -> string -> m Bool-contains self string- = liftIO (js_contains self (toJSString string))+-- | <https://developer.mozilla.org/docs/Web/API/DOMStringList/item MDN DOMStringList.item documentation>+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)) --- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMStringList.contains Mozilla DOMStringList.contains documentation> -contains_ ::- (MonadIO m, ToJSString string) => DOMStringList -> string -> m ()-contains_ self string- = liftIO (void (js_contains self (toJSString string)))- -foreign import javascript unsafe "(($1) => { return $1[\"length\"]; })" js_getLength ::- DOMStringList -> IO Word+-- | <https://developer.mozilla.org/docs/Web/API/DOMStringList/item MDN DOMStringList.item documentation>+itemUnchecked :: (MonadDOM m, FromJSString result) => DOMStringList -> Word -> m result+itemUnchecked self index = liftDOM ((pFromJSVal <$> (js_item (self) (index)))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMStringList.length Mozilla DOMStringList.length documentation> -getLength :: (MonadIO m) => DOMStringList -> m Word-getLength self = liftIO (js_getLength self)+foreign import javascript unsafe "(($1) => { return $1[\"length\"]; })"+ js_getLength :: DOMStringList -> IO Word+-- | <https://developer.mozilla.org/docs/Web/API/DOMStringList/length MDN DOMStringList.length documentation>+getLength :: (MonadDOM m) => DOMStringList -> m Word+getLength self = liftDOM ((js_getLength (self)))
@@ -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 --- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMStringMap.get Mozilla DOMStringMap.get documentation> -get ::- (MonadIO m, ToJSString name, FromJSString result) =>- DOMStringMap -> name -> m result-get self name- = liftIO (fromJSString <$> (js_get self (toJSString name)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMStringMap.get Mozilla DOMStringMap.get documentation> -get_ ::- (MonadIO m, ToJSString name) => DOMStringMap -> name -> m ()-get_ self name = liftIO (void (js_get self (toJSString name)))
@@ -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) --- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMTokenList.item Mozilla DOMTokenList.item documentation> -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 ()+-- | <https://developer.mozilla.org/docs/Web/API/DOMTokenList/add MDN DOMTokenList.add documentation>+add :: (MonadDOM m, ToJSString tokens) => DOMTokenList -> [tokens] -> m ()+add self tokens = liftDOM (void (((toJSVal tokens) >>= \a2' -> js_add (self) a2'))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMTokenList.item Mozilla DOMTokenList.item documentation> -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+-- | <https://developer.mozilla.org/docs/Web/API/DOMTokenList/contains MDN DOMTokenList.contains documentation>+contains :: (MonadDOM m, ToJSString token) => DOMTokenList -> token -> m Bool+contains self token = liftDOM ((js_contains (self) (toJSString token))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMTokenList.item Mozilla DOMTokenList.item documentation> -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)+-- | <https://developer.mozilla.org/docs/Web/API/DOMTokenList/contains MDN DOMTokenList.contains documentation>+contains_ :: (MonadDOM m, ToJSString token) => DOMTokenList -> token -> m ()+contains_ self token = liftDOM (void ((js_contains (self) (toJSString token)))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMTokenList.item Mozilla DOMTokenList.item documentation> -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+-- | <https://developer.mozilla.org/docs/Web/API/DOMTokenList/item MDN DOMTokenList.item documentation>+item :: (MonadDOM m, FromJSString result) => DOMTokenList -> Word -> m (Maybe result)+item self index = liftDOM (((fromMaybeJSString . Nullable) <$> (js_item (self) (index)))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMTokenList.contains Mozilla DOMTokenList.contains documentation> -contains ::- (MonadIO m, ToJSString token) => DOMTokenList -> token -> m Bool-contains self token = liftIO (js_contains self (toJSString token))+-- | <https://developer.mozilla.org/docs/Web/API/DOMTokenList/item MDN DOMTokenList.item documentation>+item_ :: (MonadDOM m) => DOMTokenList -> Word -> m ()+item_ self index = liftDOM (void ((js_item (self) (index)))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMTokenList.contains Mozilla DOMTokenList.contains documentation> -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 ()+-- | <https://developer.mozilla.org/docs/Web/API/DOMTokenList/item MDN DOMTokenList.item documentation>+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)) --- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMTokenList.add Mozilla DOMTokenList.add documentation> -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 ()+-- | <https://developer.mozilla.org/docs/Web/API/DOMTokenList/item MDN DOMTokenList.item documentation>+itemUnchecked :: (MonadDOM m, FromJSString result) => DOMTokenList -> Word -> m result+itemUnchecked self index = liftDOM ((pFromJSVal <$> (js_item (self) (index)))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMTokenList.remove Mozilla DOMTokenList.remove documentation> -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 ()+-- | <https://developer.mozilla.org/docs/Web/API/DOMTokenList/remove MDN DOMTokenList.remove documentation>+remove :: (MonadDOM m, ToJSString tokens) => DOMTokenList -> [tokens] -> m ()+remove self tokens = liftDOM (void (((toJSVal tokens) >>= \a2' -> js_remove (self) a2'))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMTokenList.toggle Mozilla DOMTokenList.toggle documentation> -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+-- | <https://developer.mozilla.org/docs/Web/API/DOMTokenList/replace MDN DOMTokenList.replace documentation>+replace :: (MonadDOM m, ToJSString token, ToJSString newToken) => DOMTokenList -> token -> newToken -> m Bool+replace self token newToken = liftDOM ((js_replace (self) (toJSString token) (toJSString newToken))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMTokenList.toggle Mozilla DOMTokenList.toggle documentation> -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 ()+-- | <https://developer.mozilla.org/docs/Web/API/DOMTokenList/replace MDN DOMTokenList.replace documentation>+replace_ :: (MonadDOM m, ToJSString token, ToJSString newToken) => DOMTokenList -> token -> newToken -> m ()+replace_ self token newToken = liftDOM (void ((js_replace (self) (toJSString token) (toJSString newToken)))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMTokenList.replace Mozilla DOMTokenList.replace documentation> -replace ::- (MonadIO m, ToJSString token, ToJSString newToken) =>- DOMTokenList -> token -> newToken -> m ()-replace self token newToken- = liftIO (js_replace self (toJSString token) (toJSString newToken))- -foreign import javascript 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+-- | <https://developer.mozilla.org/docs/Web/API/DOMTokenList/supports MDN DOMTokenList.supports documentation>+supports :: (MonadDOM m, ToJSString token) => DOMTokenList -> token -> m Bool+supports self token = liftDOM ((js_supports (self) (toJSString token))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMTokenList.supports Mozilla DOMTokenList.supports documentation> -supports ::- (MonadIO m, ToJSString token) => DOMTokenList -> token -> m Bool-supports self token = liftIO (js_supports self (toJSString token))+-- | <https://developer.mozilla.org/docs/Web/API/DOMTokenList/supports MDN DOMTokenList.supports documentation>+supports_ :: (MonadDOM m, ToJSString token) => DOMTokenList -> token -> m ()+supports_ self token = liftDOM (void ((js_supports (self) (toJSString token)))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMTokenList.supports Mozilla DOMTokenList.supports documentation> -supports_ ::- (MonadIO m, ToJSString token) => DOMTokenList -> token -> m ()-supports_ self token- = liftIO (void (js_supports self (toJSString token)))- -foreign import javascript unsafe "(($1) => { 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+-- | <https://developer.mozilla.org/docs/Web/API/DOMTokenList/toggle MDN DOMTokenList.toggle documentation>+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')) --- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMTokenList.length Mozilla DOMTokenList.length documentation> -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 ()+-- | <https://developer.mozilla.org/docs/Web/API/DOMTokenList/toggle MDN DOMTokenList.toggle documentation>+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'))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMTokenList.value Mozilla DOMTokenList.value documentation> -setValue ::- (MonadIO m, ToJSString val) => DOMTokenList -> val -> m ()-setValue self val = liftIO (js_setValue self (toJSString val))- -foreign import javascript unsafe "(($1) => { return $1[\"value\"]; })" js_getValue ::- DOMTokenList -> IO JSString+foreign import javascript unsafe "(($1) => { return $1[\"length\"]; })"+ js_getLength :: DOMTokenList -> IO Word+-- | <https://developer.mozilla.org/docs/Web/API/DOMTokenList/length MDN DOMTokenList.length documentation>+getLength :: (MonadDOM m) => DOMTokenList -> m Word+getLength self = liftDOM ((js_getLength (self))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMTokenList.value Mozilla DOMTokenList.value documentation> -getValue ::- (MonadIO m, FromJSString result) => DOMTokenList -> m result-getValue self = liftIO (fromJSString <$> (js_getValue self))+foreign import javascript safe "(($1, $2) => { $1[\"value\"] = $2; })"+ js_setValue :: DOMTokenList -> JSString -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/DOMTokenList/value MDN DOMTokenList.value documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/DOMTokenList/value MDN DOMTokenList.value documentation>+getValue :: (MonadDOM m, FromJSString result) => DOMTokenList -> m result+getValue self = liftDOM ((fromJSString <$> (js_getValue (self))))
@@ -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 --- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitDataCue Mozilla WebKitDataCue documentation> -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---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitDataCue Mozilla WebKitDataCue documentation> -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 ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitDataCue.data Mozilla WebKitDataCue.data documentation> -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+-- | <https://developer.mozilla.org/docs/Web/API/DataCue/DataCue MDN DataCue. documentation>+newDataCue :: (MonadDOM m) => Double -> Double -> JSVal -> m DataCue+newDataCue startTime endTime value = liftDOM ((js_newDataCue (startTime) (endTime) (value))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitDataCue.data Mozilla WebKitDataCue.data documentation> -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+-- | <https://developer.mozilla.org/docs/Web/API/DataCue/DataCue MDN DataCue. documentation>+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'))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitDataCue.value Mozilla WebKitDataCue.value documentation> -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 ()+-- | <https://developer.mozilla.org/docs/Web/API/DataCue/value MDN DataCue.value documentation>+setValue :: (MonadDOM m) => DataCue -> JSVal -> m ()+setValue self val = liftDOM (void ((js_setValue (self) (val)))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitDataCue.value Mozilla WebKitDataCue.value documentation> -getValue :: (MonadIO m) => DataCue -> m JSVal-getValue self = liftIO (js_getValue self)- -foreign import javascript unsafe "(($1) => { return $1[\"type\"]; })" js_getType ::- DataCue -> IO JSString+foreign import javascript unsafe "(($1) => { return $1[\"value\"]; })"+ js_getValue :: DataCue -> IO JSVal+-- | <https://developer.mozilla.org/docs/Web/API/DataCue/value MDN DataCue.value documentation>+getValue :: (MonadDOM m) => DataCue -> m JSVal+getValue self = liftDOM ((js_getValue (self))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitDataCue.type Mozilla WebKitDataCue.type documentation> -getType :: (MonadIO m, FromJSString result) => DataCue -> m result-getType self = liftIO (fromJSString <$> (js_getType self))+foreign import javascript unsafe "(($1) => { return $1[\"type\"]; })"+ js_getType :: DataCue -> IO JSString+-- | <https://developer.mozilla.org/docs/Web/API/DataCue/type MDN DataCue.type documentation>+getType :: (MonadDOM m, FromJSString result) => DataCue -> m result+getType self = liftDOM ((fromJSString <$> (js_getType (self))))
@@ -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 () --- | <https://developer.mozilla.org/en-US/docs/Web/API/DataTransfer.setDragImage Mozilla DataTransfer.setDragImage documentation> -setDragImage ::- (MonadIO m, IsElement image) =>- DataTransfer -> Maybe image -> Int -> Int -> m ()-setDragImage self image x y- = liftIO- (js_setDragImage self (maybeToOptional (fmap toElement image)) x y)- -foreign import javascript unsafe "(($1, $2) => { return $1[\"getData\"]($2); })" js_getData- :: DataTransfer -> JSString -> IO JSString+foreign import javascript safe "(() => { return new globalThis[\"DataTransfer\"](); })"+ js_newDataTransfer :: IO DataTransfer+-- | <https://developer.mozilla.org/docs/Web/API/DataTransfer/DataTransfer MDN DataTransfer. documentation>+newDataTransfer :: (MonadDOM m) => m DataTransfer+newDataTransfer = liftDOM ((js_newDataTransfer)) --- | <https://developer.mozilla.org/en-US/docs/Web/API/DataTransfer.getData Mozilla DataTransfer.getData documentation> -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 ()+-- | <https://developer.mozilla.org/docs/Web/API/DataTransfer/clearData MDN DataTransfer.clearData documentation>+clearData :: (MonadDOM m, ToJSString format) => DataTransfer -> Maybe format -> m ()+clearData self format = liftDOM (void ((js_clearData (self) (toOptionalJSString format)))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/DataTransfer.getData Mozilla DataTransfer.getData documentation> -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+-- | <https://developer.mozilla.org/docs/Web/API/DataTransfer/getData MDN DataTransfer.getData documentation>+getData :: (MonadDOM m, ToJSString format, FromJSString result) => DataTransfer -> format -> m result+getData self format = liftDOM ((fromJSString <$> (js_getData (self) (toJSString format))))++-- | <https://developer.mozilla.org/docs/Web/API/DataTransfer/getData MDN DataTransfer.getData documentation>+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 ()+-- | <https://developer.mozilla.org/docs/Web/API/DataTransfer/setData MDN DataTransfer.setData documentation>+setData :: (MonadDOM m, ToJSString format, ToJSString data') => DataTransfer -> format -> data' -> m ()+setData self format data' = liftDOM (void ((js_setData (self) (toJSString format) (toJSString data')))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/DataTransfer.setData Mozilla DataTransfer.setData documentation> -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 ()+-- | <https://developer.mozilla.org/docs/Web/API/DataTransfer/setDragImage MDN DataTransfer.setDragImage documentation>+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)))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/DataTransfer.clearData Mozilla DataTransfer.clearData documentation> -clearData ::- (MonadIO m, ToJSString format) =>- DataTransfer -> Maybe format -> m ()-clearData self format- = liftIO (js_clearData self (toOptionalJSString format))- -foreign import javascript unsafe "(($1, $2) => { $1[\"dropEffect\"] = $2; })"+foreign import javascript safe "(($1, $2) => { $1[\"dropEffect\"] = $2; })" js_setDropEffect :: DataTransfer -> JSString -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/DataTransfer/dropEffect MDN DataTransfer.dropEffect documentation>+setDropEffect :: (MonadDOM m, ToJSString val) => DataTransfer -> val -> m ()+setDropEffect self val = liftDOM (void ((js_setDropEffect (self) (toJSString val)))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/DataTransfer.dropEffect Mozilla DataTransfer.dropEffect documentation> -setDropEffect ::- (MonadIO m, ToJSString val) => DataTransfer -> val -> m ()-setDropEffect self val- = liftIO (js_setDropEffect self (toJSString val))- foreign import javascript unsafe "(($1) => { return $1[\"dropEffect\"]; })" js_getDropEffect :: DataTransfer -> IO JSString+-- | <https://developer.mozilla.org/docs/Web/API/DataTransfer/dropEffect MDN DataTransfer.dropEffect documentation>+getDropEffect :: (MonadDOM m, FromJSString result) => DataTransfer -> m result+getDropEffect self = liftDOM ((fromJSString <$> (js_getDropEffect (self)))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/DataTransfer.dropEffect Mozilla DataTransfer.dropEffect documentation> -getDropEffect ::- (MonadIO m, FromJSString result) => DataTransfer -> m result-getDropEffect self- = liftIO (fromJSString <$> (js_getDropEffect self))- -foreign import javascript unsafe "(($1, $2) => { $1[\"effectAllowed\"] = $2; })"+foreign import javascript safe "(($1, $2) => { $1[\"effectAllowed\"] = $2; })" js_setEffectAllowed :: DataTransfer -> JSString -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/DataTransfer/effectAllowed MDN DataTransfer.effectAllowed documentation>+setEffectAllowed :: (MonadDOM m, ToJSString val) => DataTransfer -> val -> m ()+setEffectAllowed self val = liftDOM (void ((js_setEffectAllowed (self) (toJSString val)))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/DataTransfer.effectAllowed Mozilla DataTransfer.effectAllowed documentation> -setEffectAllowed ::- (MonadIO m, ToJSString val) => DataTransfer -> val -> m ()-setEffectAllowed self val- = liftIO (js_setEffectAllowed self (toJSString val))- foreign import javascript unsafe "(($1) => { return $1[\"effectAllowed\"]; })" js_getEffectAllowed :: DataTransfer -> IO JSString---- | <https://developer.mozilla.org/en-US/docs/Web/API/DataTransfer.effectAllowed Mozilla DataTransfer.effectAllowed documentation> -getEffectAllowed ::- (MonadIO m, FromJSString result) => DataTransfer -> m result-getEffectAllowed self- = liftIO (fromJSString <$> (js_getEffectAllowed self))- -foreign import javascript unsafe "(($1) => { return $1[\"items\"]; })" js_getItems ::- DataTransfer -> IO DataTransferItemList+-- | <https://developer.mozilla.org/docs/Web/API/DataTransfer/effectAllowed MDN DataTransfer.effectAllowed documentation>+getEffectAllowed :: (MonadDOM m, FromJSString result) => DataTransfer -> m result+getEffectAllowed self = liftDOM ((fromJSString <$> (js_getEffectAllowed (self)))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/DataTransfer.items Mozilla DataTransfer.items documentation> -getItems :: (MonadIO m) => DataTransfer -> m DataTransferItemList-getItems self = liftIO (js_getItems self)- -foreign import javascript unsafe "(($1) => { return $1[\"types\"]; })" js_getTypes ::- DataTransfer -> IO JSVal+foreign import javascript unsafe "(($1) => { return $1[\"items\"]; })"+ js_getItems :: DataTransfer -> IO DataTransferItemList+-- | <https://developer.mozilla.org/docs/Web/API/DataTransfer/items MDN DataTransfer.items documentation>+getItems :: (MonadDOM m) => DataTransfer -> m DataTransferItemList+getItems self = liftDOM ((js_getItems (self))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/DataTransfer.types Mozilla DataTransfer.types documentation> -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+-- | <https://developer.mozilla.org/docs/Web/API/DataTransfer/types MDN DataTransfer.types documentation>+getTypes :: (MonadDOM m, FromJSString result) => DataTransfer -> m [result]+getTypes self = liftDOM (((js_getTypes (self)) >>= fromJSValUnchecked)) --- | <https://developer.mozilla.org/en-US/docs/Web/API/DataTransfer.files Mozilla DataTransfer.files documentation> -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+-- | <https://developer.mozilla.org/docs/Web/API/DataTransfer/files MDN DataTransfer.files documentation>+getFiles :: (MonadDOM m) => DataTransfer -> m FileList+getFiles self = liftDOM ((js_getFiles (self)))
@@ -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 () --- | <https://developer.mozilla.org/en-US/docs/Web/API/DataTransferItem.getAsString Mozilla DataTransferItem.getAsString documentation> -getAsString ::- (MonadIO m, ToJSString callback) =>- DataTransferItem -> Maybe (StringCallback callback) -> m ()-getAsString self callback- = liftIO (js_getAsString self (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+-- | <https://developer.mozilla.org/docs/Web/API/DataTransferItem/getAsFile MDN DataTransferItem.getAsFile documentation>+getAsFile :: (MonadDOM m) => DataTransferItem -> m (Maybe File)+getAsFile self = liftDOM (((js_getAsFile (self)) >>= fromJSValUnchecked)) --- | <https://developer.mozilla.org/en-US/docs/Web/API/DataTransferItem.getAsFile Mozilla DataTransferItem.getAsFile documentation> -getAsFile :: (MonadIO m) => DataTransferItem -> m (Maybe Blob)-getAsFile self = liftIO (nullableToMaybe <$> (js_getAsFile self))+-- | <https://developer.mozilla.org/docs/Web/API/DataTransferItem/getAsFile MDN DataTransferItem.getAsFile documentation>+getAsFile_ :: (MonadDOM m) => DataTransferItem -> m ()+getAsFile_ self = liftDOM (void ((js_getAsFile (self)))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/DataTransferItem.getAsFile Mozilla DataTransferItem.getAsFile documentation> -getAsFile_ :: (MonadIO m) => DataTransferItem -> m ()-getAsFile_ self = liftIO (void (js_getAsFile self))+-- | <https://developer.mozilla.org/docs/Web/API/DataTransferItem/getAsFile MDN DataTransferItem.getAsFile documentation>+getAsFileUnsafe :: (MonadDOM m, HasCallStack) => DataTransferItem -> m File+getAsFileUnsafe self = liftDOM ((((js_getAsFile (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) --- | <https://developer.mozilla.org/en-US/docs/Web/API/DataTransferItem.getAsFile Mozilla DataTransferItem.getAsFile documentation> -getAsFileUnsafe ::- (MonadIO m, HasCallStack) => DataTransferItem -> m Blob-getAsFileUnsafe self- = liftIO- ((nullableToMaybe <$> (js_getAsFile self)) >>=- maybe (Prelude.error "Nothing to return") return)+-- | <https://developer.mozilla.org/docs/Web/API/DataTransferItem/getAsFile MDN DataTransferItem.getAsFile documentation>+getAsFileUnchecked :: (MonadDOM m) => DataTransferItem -> m File+getAsFileUnchecked self = liftDOM ((pFromJSVal <$> (js_getAsFile (self)))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/DataTransferItem.getAsFile Mozilla DataTransferItem.getAsFile documentation> -getAsFileUnchecked :: (MonadIO m) => DataTransferItem -> m Blob-getAsFileUnchecked self- = liftIO (fromJust . nullableToMaybe <$> (js_getAsFile self))- -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 ()+-- | <https://developer.mozilla.org/docs/Web/API/DataTransferItem/getAsString MDN DataTransferItem.getAsString documentation>+getAsString :: (MonadDOM m) => DataTransferItem -> Maybe FunctionStringCallback -> m ()+getAsString self callback' = liftDOM (void (((toJSVal callback') >>= \a2' -> js_getAsString (self) a2'))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/DataTransferItem.kind Mozilla DataTransferItem.kind documentation> -getKind ::- (MonadIO m, FromJSString result) => DataTransferItem -> m result-getKind self = liftIO (fromJSString <$> (js_getKind self))- -foreign import javascript unsafe "(($1) => { return $1[\"type\"]; })" js_getType ::- DataTransferItem -> IO JSString+foreign import javascript safe "(($1) => { return $1[\"webkitGetAsEntry\"](); })"+ js_webkitGetAsEntry :: DataTransferItem -> IO JSVal+-- | <https://developer.mozilla.org/docs/Web/API/DataTransferItem/webkitGetAsEntry MDN DataTransferItem.webkitGetAsEntry documentation>+webkitGetAsEntry :: (MonadDOM m) => DataTransferItem -> m (Maybe FileSystemEntry)+webkitGetAsEntry self = liftDOM (((js_webkitGetAsEntry (self)) >>= fromJSValUnchecked)) --- | <https://developer.mozilla.org/en-US/docs/Web/API/DataTransferItem.type Mozilla DataTransferItem.type documentation> -getType ::- (MonadIO m, FromJSString result) => DataTransferItem -> m result-getType self = liftIO (fromJSString <$> (js_getType self))+-- | <https://developer.mozilla.org/docs/Web/API/DataTransferItem/webkitGetAsEntry MDN DataTransferItem.webkitGetAsEntry documentation>+webkitGetAsEntry_ :: (MonadDOM m) => DataTransferItem -> m ()+webkitGetAsEntry_ self = liftDOM (void ((js_webkitGetAsEntry (self))))++-- | <https://developer.mozilla.org/docs/Web/API/DataTransferItem/webkitGetAsEntry MDN DataTransferItem.webkitGetAsEntry documentation>+webkitGetAsEntryUnsafe :: (MonadDOM m, HasCallStack) => DataTransferItem -> m FileSystemEntry+webkitGetAsEntryUnsafe self = liftDOM ((((js_webkitGetAsEntry (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://developer.mozilla.org/docs/Web/API/DataTransferItem/webkitGetAsEntry MDN DataTransferItem.webkitGetAsEntry documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/DataTransferItem/kind MDN DataTransferItem.kind documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/DataTransferItem/type MDN DataTransferItem.type documentation>+getType :: (MonadDOM m, FromJSString result) => DataTransferItem -> m result+getType self = liftDOM ((fromJSString <$> (js_getType (self))))
@@ -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 --- | <https://developer.mozilla.org/en-US/docs/Web/API/DataTransferItemList.item Mozilla DataTransferItemList.item documentation> -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+-- | <https://developer.mozilla.org/docs/Web/API/DataTransferItemList/add MDN DataTransferItemList.add documentation>+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)) --- | <https://developer.mozilla.org/en-US/docs/Web/API/DataTransferItemList.item Mozilla DataTransferItemList.item documentation> -item_ :: (MonadIO m) => DataTransferItemList -> Word -> m ()-item_ self index = liftIO (void (js_item self index))- -foreign import javascript unsafe "(($1) => { return $1[\"clear\"](); })" js_clear ::- DataTransferItemList -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/DataTransferItemList/add MDN DataTransferItemList.add documentation>+add_ :: (MonadDOM m, ToJSString data', ToJSString type') => DataTransferItemList -> data' -> type' -> m ()+add_ self data' type' = liftDOM (void ((js_add (self) (toJSString data') (toJSString type')))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/DataTransferItemList.clear Mozilla DataTransferItemList.clear documentation> -clear :: (MonadIO m) => DataTransferItemList -> m ()-clear self = liftIO (js_clear self)- -foreign import javascript unsafe "(($1, $2) => { return $1[\"add\"]($2); })" js_addFile ::- DataTransferItemList -> Optional File -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/DataTransferItemList/add MDN DataTransferItemList.add documentation>+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)) --- | <https://developer.mozilla.org/en-US/docs/Web/API/DataTransferItemList.add Mozilla DataTransferItemList.add documentation> -addFile ::- (MonadIO m) => DataTransferItemList -> Maybe File -> m ()-addFile self file = liftIO (js_addFile self (maybeToOptional file))- -foreign import javascript safe "(($1, $2, $3) => { return $1[\"add\"]($2, $3); })" js_add ::- DataTransferItemList ->- Optional JSString -> Optional JSString -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/DataTransferItemList/add MDN DataTransferItemList.add documentation>+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')))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/DataTransferItemList.add Mozilla DataTransferItemList.add documentation> -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+-- | <https://developer.mozilla.org/docs/Web/API/DataTransferItemList/add MDN DataTransferItemList.add documentation>+addFile :: (MonadDOM m) => DataTransferItemList -> File -> m (Maybe DataTransferItem)+addFile self data' = liftDOM (((js_addFile (self) (data')) >>= fromJSValUnchecked)) --- | <https://developer.mozilla.org/en-US/docs/Web/API/DataTransferItemList.length Mozilla DataTransferItemList.length documentation> -getLength :: (MonadIO m) => DataTransferItemList -> m Int-getLength self = liftIO (js_getLength self)+-- | <https://developer.mozilla.org/docs/Web/API/DataTransferItemList/add MDN DataTransferItemList.add documentation>+addFile_ :: (MonadDOM m) => DataTransferItemList -> File -> m ()+addFile_ self data' = liftDOM (void ((js_addFile (self) (data'))))++-- | <https://developer.mozilla.org/docs/Web/API/DataTransferItemList/add MDN DataTransferItemList.add documentation>+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))++-- | <https://developer.mozilla.org/docs/Web/API/DataTransferItemList/add MDN DataTransferItemList.add documentation>+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 ()+-- | <https://developer.mozilla.org/docs/Web/API/DataTransferItemList/clear MDN DataTransferItemList.clear documentation>+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 ()+-- | <https://developer.mozilla.org/docs/Web/API/DataTransferItemList/remove MDN DataTransferItemList.remove documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/DataTransferItemList/length MDN DataTransferItemList.length documentation>+getLength :: (MonadDOM m) => DataTransferItemList -> m Word+getLength self = liftDOM ((js_getLength (self)))
@@ -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 ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/Database.changeVersion Mozilla Database.changeVersion documentation> -changeVersion ::- (MonadIO m, ToJSString oldVersion, ToJSString newVersion) =>- Database ->- oldVersion ->- newVersion ->- Maybe SQLTransactionCallback ->- Maybe SQLTransactionErrorCallback -> Maybe VoidCallback -> m ()-changeVersion self oldVersion newVersion callback errorCallback- successCallback- = liftIO- (js_changeVersion self (toJSString oldVersion)- (toJSString newVersion)- (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 ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/Database.transaction Mozilla Database.transaction documentation> -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 ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/Database.readTransaction Mozilla Database.readTransaction documentation> -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---- | <https://developer.mozilla.org/en-US/docs/Web/API/Database.version Mozilla Database.version documentation> -getVersion ::- (MonadIO m, FromJSString result) => Database -> m result-getVersion self = liftIO (fromJSString <$> (js_getVersion self))
@@ -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---- | <https://developer.mozilla.org/en-US/docs/Web/API/DatabaseCallback Mozilla DatabaseCallback documentation> -newDatabaseCallback ::- (MonadIO m) => (Database -> IO ()) -> m DatabaseCallback-newDatabaseCallback callback- = liftIO- (DatabaseCallback <$>- syncCallback1 ThrowWouldBlock- (\ database ->- fromJSValUnchecked database >>= \ database' -> callback database'))---- | <https://developer.mozilla.org/en-US/docs/Web/API/DatabaseCallback Mozilla DatabaseCallback documentation> -newDatabaseCallbackSync ::- (MonadIO m) => (Database -> IO ()) -> m DatabaseCallback-newDatabaseCallbackSync callback- = liftIO- (DatabaseCallback <$>- syncCallback1 ContinueAsync- (\ database ->- fromJSValUnchecked database >>= \ database' -> callback database'))---- | <https://developer.mozilla.org/en-US/docs/Web/API/DatabaseCallback Mozilla DatabaseCallback documentation> -newDatabaseCallbackAsync ::- (MonadIO m) => (Database -> IO ()) -> m DatabaseCallback-newDatabaseCallbackAsync callback- = liftIO- (DatabaseCallback <$>- asyncCallback1- (\ database ->- fromJSValUnchecked database >>= \ database' -> callback database'))
@@ -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'))
@@ -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'))
@@ -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+-- | <https://developer.mozilla.org/docs/Web/API/DecompressionStream/DecompressionStream MDN DecompressionStream. documentation>+newDecompressionStream :: (MonadDOM m) => CompressionFormat -> m DecompressionStream+newDecompressionStream format = liftDOM (((toJSVal format) >>= \a1' -> js_newDecompressionStream a1'))
@@ -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 ()+-- | <https://developer.mozilla.org/docs/Web/API/DedicatedWorkerGlobalScope/close MDN DedicatedWorkerGlobalScope.close documentation>+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 ()+-- | <https://developer.mozilla.org/docs/Web/API/DedicatedWorkerGlobalScope/postMessage MDN DedicatedWorkerGlobalScope.postMessage documentation>+postMessage :: (MonadDOM m) => DedicatedWorkerGlobalScope -> JSVal -> [GObject] -> m ()+postMessage self message transfer = liftDOM (void (((toJSVal transfer) >>= \a3' -> js_postMessage (self) (message) a3'))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/DedicatedWorkerGlobalScope.postMessage Mozilla DedicatedWorkerGlobalScope.postMessage documentation> -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 ()+-- | <https://developer.mozilla.org/docs/Web/API/DedicatedWorkerGlobalScope/postMessage MDN DedicatedWorkerGlobalScope.postMessage documentation>+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'))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/DedicatedWorkerGlobalScope.onmessage Mozilla DedicatedWorkerGlobalScope.onmessage documentation> -message :: EventName DedicatedWorkerGlobalScope MessageEvent-message = unsafeEventNameAsync (toJSString "message")+foreign import javascript unsafe "(($1) => { return $1[\"name\"]; })"+ js_getName :: DedicatedWorkerGlobalScope -> IO JSString+-- | <https://developer.mozilla.org/docs/Web/API/DedicatedWorkerGlobalScope/name MDN DedicatedWorkerGlobalScope.name documentation>+getName :: (MonadDOM m, FromJSString result) => DedicatedWorkerGlobalScope -> m result+getName self = liftDOM ((fromJSString <$> (js_getName (self))))++-- | <https://w3c.github.io/webrtc-encoded-transform/#dom-dedicatedworkerglobalscope-onrtctransform rtctransform event>+rtctransform :: EventName DedicatedWorkerGlobalScope RTCTransformEvent+rtctransform = unsafeEventName (toJSString "rtctransform")
@@ -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+-- | <https://developer.mozilla.org/docs/Web/API/DelayNode/DelayNode MDN DelayNode. documentation>+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---- | <https://developer.mozilla.org/en-US/docs/Web/API/DelayNode.delayTime Mozilla DelayNode.delayTime documentation> -getDelayTime :: (MonadIO m) => DelayNode -> m AudioParam-getDelayTime self = liftIO (js_getDelayTime self)+-- | <https://developer.mozilla.org/docs/Web/API/DelayNode/delayTime MDN DelayNode.delayTime documentation>+getDelayTime :: (MonadDOM m) => DelayNode -> m AudioParam+getDelayTime self = liftDOM ((js_getDelayTime (self)))
@@ -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+-- | <https://webaudio.github.io/web-audio-api/#DelayOptions DelayOptions specification>+newDelayOptions :: (MonadDOM m) => m DelayOptions+newDelayOptions = liftDOM ((js_newDelayOptions))++foreign import javascript safe "(($1, $2) => { $1[\"maxDelayTime\"] = $2; })"+ js_setMaxDelayTime :: DelayOptions -> Double -> IO ()+-- | <https://webaudio.github.io/web-audio-api/#dom-delayoptions-maxdelaytime DelayOptions.maxDelayTime specification>+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+-- | <https://webaudio.github.io/web-audio-api/#dom-delayoptions-maxdelaytime DelayOptions.maxDelayTime specification>+getMaxDelayTime :: (MonadDOM m) => DelayOptions -> m (Maybe Double)+getMaxDelayTime self = liftDOM (((js_getMaxDelayTime (self)) >>= fromJSValUnchecked))++-- | <https://webaudio.github.io/web-audio-api/#dom-delayoptions-maxdelaytime DelayOptions.maxDelayTime specification>+getMaxDelayTimeUnsafe :: (MonadDOM m, HasCallStack) => DelayOptions -> m Double+getMaxDelayTimeUnsafe self = liftDOM ((((js_getMaxDelayTime (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://webaudio.github.io/web-audio-api/#dom-delayoptions-maxdelaytime DelayOptions.maxDelayTime specification>+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 ()+-- | <https://webaudio.github.io/web-audio-api/#dom-delayoptions-delaytime DelayOptions.delayTime specification>+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+-- | <https://webaudio.github.io/web-audio-api/#dom-delayoptions-delaytime DelayOptions.delayTime specification>+getDelayTime :: (MonadDOM m) => DelayOptions -> m (Maybe Double)+getDelayTime self = liftDOM (((js_getDelayTime (self)) >>= fromJSValUnchecked))++-- | <https://webaudio.github.io/web-audio-api/#dom-delayoptions-delaytime DelayOptions.delayTime specification>+getDelayTimeUnsafe :: (MonadDOM m, HasCallStack) => DelayOptions -> m Double+getDelayTimeUnsafe self = liftDOM ((((js_getDelayTime (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://webaudio.github.io/web-audio-api/#dom-delayoptions-delaytime DelayOptions.delayTime specification>+getDelayTimeUnchecked :: (MonadDOM m) => DelayOptions -> m Double+getDelayTimeUnchecked self = liftDOM ((pFromJSVal <$> (js_getDelayTime (self))))
@@ -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+
@@ -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 () --- | <https://developer.mozilla.org/en-US/docs/Web/API/DeviceMotionEvent.initDeviceMotionEvent Mozilla DeviceMotionEvent.initDeviceMotionEvent documentation> -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+-- | <https://developer.mozilla.org/docs/Web/API/DeviceMotionEvent/DeviceMotionEvent MDN DeviceMotionEvent. documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/DeviceMotionEvent/acceleration MDN DeviceMotionEvent.acceleration documentation>+getAcceleration :: (MonadDOM m) => DeviceMotionEvent -> m (Maybe DeviceMotionEventAcceleration)+getAcceleration self = liftDOM (((js_getAcceleration (self)) >>= fromJSValUnchecked)) --- | <https://developer.mozilla.org/en-US/docs/Web/API/DeviceMotionEvent.acceleration Mozilla DeviceMotionEvent.acceleration documentation> -getAcceleration ::- (MonadIO m) => DeviceMotionEvent -> m (Maybe Acceleration)-getAcceleration self- = liftIO (nullableToMaybe <$> (js_getAcceleration self))+-- | <https://developer.mozilla.org/docs/Web/API/DeviceMotionEvent/acceleration MDN DeviceMotionEvent.acceleration documentation>+getAccelerationUnsafe :: (MonadDOM m, HasCallStack) => DeviceMotionEvent -> m DeviceMotionEventAcceleration+getAccelerationUnsafe self = liftDOM ((((js_getAcceleration (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) --- | <https://developer.mozilla.org/en-US/docs/Web/API/DeviceMotionEvent.acceleration Mozilla DeviceMotionEvent.acceleration documentation> -getAccelerationUnsafe ::- (MonadIO m, HasCallStack) => DeviceMotionEvent -> m Acceleration-getAccelerationUnsafe self- = liftIO- ((nullableToMaybe <$> (js_getAcceleration self)) >>=- maybe (Prelude.error "Nothing to return") return)+-- | <https://developer.mozilla.org/docs/Web/API/DeviceMotionEvent/acceleration MDN DeviceMotionEvent.acceleration documentation>+getAccelerationUnchecked :: (MonadDOM m) => DeviceMotionEvent -> m DeviceMotionEventAcceleration+getAccelerationUnchecked self = liftDOM ((pFromJSVal <$> (js_getAcceleration (self)))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/DeviceMotionEvent.acceleration Mozilla DeviceMotionEvent.acceleration documentation> -getAccelerationUnchecked ::- (MonadIO m) => DeviceMotionEvent -> m Acceleration-getAccelerationUnchecked self- = liftIO (fromJust . nullableToMaybe <$> (js_getAcceleration self))- -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+-- | <https://developer.mozilla.org/docs/Web/API/DeviceMotionEvent/accelerationIncludingGravity MDN DeviceMotionEvent.accelerationIncludingGravity documentation>+getAccelerationIncludingGravity :: (MonadDOM m) => DeviceMotionEvent -> m (Maybe DeviceMotionEventAcceleration)+getAccelerationIncludingGravity self = liftDOM (((js_getAccelerationIncludingGravity (self)) >>= fromJSValUnchecked)) --- | <https://developer.mozilla.org/en-US/docs/Web/API/DeviceMotionEvent.accelerationIncludingGravity Mozilla DeviceMotionEvent.accelerationIncludingGravity documentation> -getAccelerationIncludingGravity ::- (MonadIO m) => DeviceMotionEvent -> m (Maybe Acceleration)-getAccelerationIncludingGravity self- = liftIO- (nullableToMaybe <$> (js_getAccelerationIncludingGravity self))+-- | <https://developer.mozilla.org/docs/Web/API/DeviceMotionEvent/accelerationIncludingGravity MDN DeviceMotionEvent.accelerationIncludingGravity documentation>+getAccelerationIncludingGravityUnsafe :: (MonadDOM m, HasCallStack) => DeviceMotionEvent -> m DeviceMotionEventAcceleration+getAccelerationIncludingGravityUnsafe self = liftDOM ((((js_getAccelerationIncludingGravity (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) --- | <https://developer.mozilla.org/en-US/docs/Web/API/DeviceMotionEvent.accelerationIncludingGravity Mozilla DeviceMotionEvent.accelerationIncludingGravity documentation> -getAccelerationIncludingGravityUnsafe ::- (MonadIO m, HasCallStack) =>- DeviceMotionEvent -> m Acceleration-getAccelerationIncludingGravityUnsafe self- = liftIO- ((nullableToMaybe <$> (js_getAccelerationIncludingGravity self))- >>= maybe (Prelude.error "Nothing to return") return)+-- | <https://developer.mozilla.org/docs/Web/API/DeviceMotionEvent/accelerationIncludingGravity MDN DeviceMotionEvent.accelerationIncludingGravity documentation>+getAccelerationIncludingGravityUnchecked :: (MonadDOM m) => DeviceMotionEvent -> m DeviceMotionEventAcceleration+getAccelerationIncludingGravityUnchecked self = liftDOM ((pFromJSVal <$> (js_getAccelerationIncludingGravity (self)))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/DeviceMotionEvent.accelerationIncludingGravity Mozilla DeviceMotionEvent.accelerationIncludingGravity documentation> -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)---- | <https://developer.mozilla.org/en-US/docs/Web/API/DeviceMotionEvent.rotationRate Mozilla DeviceMotionEvent.rotationRate documentation> -getRotationRate ::- (MonadIO m) => DeviceMotionEvent -> m (Maybe RotationRate)-getRotationRate self- = liftIO (nullableToMaybe <$> (js_getRotationRate self))---- | <https://developer.mozilla.org/en-US/docs/Web/API/DeviceMotionEvent.rotationRate Mozilla DeviceMotionEvent.rotationRate documentation> -getRotationRateUnsafe ::- (MonadIO m, HasCallStack) => DeviceMotionEvent -> m RotationRate-getRotationRateUnsafe self- = liftIO- ((nullableToMaybe <$> (js_getRotationRate self)) >>=- maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/DeviceMotionEvent.rotationRate Mozilla DeviceMotionEvent.rotationRate documentation> -getRotationRateUnchecked ::- (MonadIO m) => DeviceMotionEvent -> m RotationRate-getRotationRateUnchecked self- = liftIO (fromJust . nullableToMaybe <$> (js_getRotationRate self))- -foreign import javascript unsafe "(($1) => { return $1[\"interval\"]; })" js_getInterval- :: DeviceMotionEvent -> IO (Nullable Double)+ js_getRotationRate :: DeviceMotionEvent -> IO JSVal+-- | <https://developer.mozilla.org/docs/Web/API/DeviceMotionEvent/rotationRate MDN DeviceMotionEvent.rotationRate documentation>+getRotationRate :: (MonadDOM m) => DeviceMotionEvent -> m (Maybe DeviceMotionEventRotationRate)+getRotationRate self = liftDOM (((js_getRotationRate (self)) >>= fromJSValUnchecked)) --- | <https://developer.mozilla.org/en-US/docs/Web/API/DeviceMotionEvent.interval Mozilla DeviceMotionEvent.interval documentation> -getInterval :: (MonadIO m) => DeviceMotionEvent -> m (Maybe Double)-getInterval self- = liftIO (nullableToMaybe <$> (js_getInterval self))+-- | <https://developer.mozilla.org/docs/Web/API/DeviceMotionEvent/rotationRate MDN DeviceMotionEvent.rotationRate documentation>+getRotationRateUnsafe :: (MonadDOM m, HasCallStack) => DeviceMotionEvent -> m DeviceMotionEventRotationRate+getRotationRateUnsafe self = liftDOM ((((js_getRotationRate (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) --- | <https://developer.mozilla.org/en-US/docs/Web/API/DeviceMotionEvent.interval Mozilla DeviceMotionEvent.interval documentation> -getIntervalUnsafe ::- (MonadIO m, HasCallStack) => DeviceMotionEvent -> m Double-getIntervalUnsafe self- = liftIO- ((nullableToMaybe <$> (js_getInterval self)) >>=- maybe (Prelude.error "Nothing to return") return)+-- | <https://developer.mozilla.org/docs/Web/API/DeviceMotionEvent/rotationRate MDN DeviceMotionEvent.rotationRate documentation>+getRotationRateUnchecked :: (MonadDOM m) => DeviceMotionEvent -> m DeviceMotionEventRotationRate+getRotationRateUnchecked self = liftDOM ((pFromJSVal <$> (js_getRotationRate (self)))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/DeviceMotionEvent.interval Mozilla DeviceMotionEvent.interval documentation> -getIntervalUnchecked ::- (MonadIO m) => DeviceMotionEvent -> m Double-getIntervalUnchecked self- = liftIO (fromJust . nullableToMaybe <$> (js_getInterval self))+foreign import javascript unsafe "(($1) => { return $1[\"interval\"]; })"+ js_getInterval :: DeviceMotionEvent -> IO Double+-- | <https://developer.mozilla.org/docs/Web/API/DeviceMotionEvent/interval MDN DeviceMotionEvent.interval documentation>+getInterval :: (MonadDOM m) => DeviceMotionEvent -> m Double+getInterval self = liftDOM ((js_getInterval (self)))
@@ -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+-- | <https://developer.mozilla.org/docs/Web/API/DeviceMotionEventAcceleration/x MDN DeviceMotionEventAcceleration.x documentation>+getX :: (MonadDOM m) => DeviceMotionEventAcceleration -> m (Maybe Double)+getX self = liftDOM (((js_getX (self)) >>= fromJSValUnchecked))++-- | <https://developer.mozilla.org/docs/Web/API/DeviceMotionEventAcceleration/x MDN DeviceMotionEventAcceleration.x documentation>+getXUnsafe :: (MonadDOM m, HasCallStack) => DeviceMotionEventAcceleration -> m Double+getXUnsafe self = liftDOM ((((js_getX (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://developer.mozilla.org/docs/Web/API/DeviceMotionEventAcceleration/x MDN DeviceMotionEventAcceleration.x documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/DeviceMotionEventAcceleration/y MDN DeviceMotionEventAcceleration.y documentation>+getY :: (MonadDOM m) => DeviceMotionEventAcceleration -> m (Maybe Double)+getY self = liftDOM (((js_getY (self)) >>= fromJSValUnchecked))++-- | <https://developer.mozilla.org/docs/Web/API/DeviceMotionEventAcceleration/y MDN DeviceMotionEventAcceleration.y documentation>+getYUnsafe :: (MonadDOM m, HasCallStack) => DeviceMotionEventAcceleration -> m Double+getYUnsafe self = liftDOM ((((js_getY (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://developer.mozilla.org/docs/Web/API/DeviceMotionEventAcceleration/y MDN DeviceMotionEventAcceleration.y documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/DeviceMotionEventAcceleration/z MDN DeviceMotionEventAcceleration.z documentation>+getZ :: (MonadDOM m) => DeviceMotionEventAcceleration -> m (Maybe Double)+getZ self = liftDOM (((js_getZ (self)) >>= fromJSValUnchecked))++-- | <https://developer.mozilla.org/docs/Web/API/DeviceMotionEventAcceleration/z MDN DeviceMotionEventAcceleration.z documentation>+getZUnsafe :: (MonadDOM m, HasCallStack) => DeviceMotionEventAcceleration -> m Double+getZUnsafe self = liftDOM ((((js_getZ (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://developer.mozilla.org/docs/Web/API/DeviceMotionEventAcceleration/z MDN DeviceMotionEventAcceleration.z documentation>+getZUnchecked :: (MonadDOM m) => DeviceMotionEventAcceleration -> m Double+getZUnchecked self = liftDOM ((pFromJSVal <$> (js_getZ (self))))
@@ -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+-- | <https://w3c.github.io/deviceorientation/#dictdef-devicemotioneventaccelerationinit DeviceMotionEventAccelerationInit specification>+newDeviceMotionEventAccelerationInit :: (MonadDOM m) => m DeviceMotionEventAccelerationInit+newDeviceMotionEventAccelerationInit = liftDOM ((js_newDeviceMotionEventAccelerationInit))++foreign import javascript safe "(($1, $2) => { $1[\"x\"] = $2; })"+ js_setX :: DeviceMotionEventAccelerationInit -> JSVal -> IO ()+-- | <https://w3c.github.io/deviceorientation/#dom-devicemotioneventaccelerationinit-x DeviceMotionEventAccelerationInit.x specification>+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+-- | <https://w3c.github.io/deviceorientation/#dom-devicemotioneventaccelerationinit-x DeviceMotionEventAccelerationInit.x specification>+getX :: (MonadDOM m) => DeviceMotionEventAccelerationInit -> m (Maybe Double)+getX self = liftDOM (((js_getX (self)) >>= fromJSValUnchecked))++-- | <https://w3c.github.io/deviceorientation/#dom-devicemotioneventaccelerationinit-x DeviceMotionEventAccelerationInit.x specification>+getXUnsafe :: (MonadDOM m, HasCallStack) => DeviceMotionEventAccelerationInit -> m Double+getXUnsafe self = liftDOM ((((js_getX (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://w3c.github.io/deviceorientation/#dom-devicemotioneventaccelerationinit-x DeviceMotionEventAccelerationInit.x specification>+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 ()+-- | <https://w3c.github.io/deviceorientation/#dom-devicemotioneventaccelerationinit-y DeviceMotionEventAccelerationInit.y specification>+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+-- | <https://w3c.github.io/deviceorientation/#dom-devicemotioneventaccelerationinit-y DeviceMotionEventAccelerationInit.y specification>+getY :: (MonadDOM m) => DeviceMotionEventAccelerationInit -> m (Maybe Double)+getY self = liftDOM (((js_getY (self)) >>= fromJSValUnchecked))++-- | <https://w3c.github.io/deviceorientation/#dom-devicemotioneventaccelerationinit-y DeviceMotionEventAccelerationInit.y specification>+getYUnsafe :: (MonadDOM m, HasCallStack) => DeviceMotionEventAccelerationInit -> m Double+getYUnsafe self = liftDOM ((((js_getY (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://w3c.github.io/deviceorientation/#dom-devicemotioneventaccelerationinit-y DeviceMotionEventAccelerationInit.y specification>+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 ()+-- | <https://w3c.github.io/deviceorientation/#dom-devicemotioneventaccelerationinit-z DeviceMotionEventAccelerationInit.z specification>+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+-- | <https://w3c.github.io/deviceorientation/#dom-devicemotioneventaccelerationinit-z DeviceMotionEventAccelerationInit.z specification>+getZ :: (MonadDOM m) => DeviceMotionEventAccelerationInit -> m (Maybe Double)+getZ self = liftDOM (((js_getZ (self)) >>= fromJSValUnchecked))++-- | <https://w3c.github.io/deviceorientation/#dom-devicemotioneventaccelerationinit-z DeviceMotionEventAccelerationInit.z specification>+getZUnsafe :: (MonadDOM m, HasCallStack) => DeviceMotionEventAccelerationInit -> m Double+getZUnsafe self = liftDOM ((((js_getZ (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://w3c.github.io/deviceorientation/#dom-devicemotioneventaccelerationinit-z DeviceMotionEventAccelerationInit.z specification>+getZUnchecked :: (MonadDOM m) => DeviceMotionEventAccelerationInit -> m Double+getZUnchecked self = liftDOM ((pFromJSVal <$> (js_getZ (self))))
@@ -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+-- | <https://w3c.github.io/deviceorientation/#dictdef-devicemotioneventinit DeviceMotionEventInit specification>+newDeviceMotionEventInit :: (MonadDOM m) => m DeviceMotionEventInit+newDeviceMotionEventInit = liftDOM ((js_newDeviceMotionEventInit))++foreign import javascript safe "(($1, $2) => { $1[\"acceleration\"] = $2; })"+ js_setAcceleration :: DeviceMotionEventInit -> DeviceMotionEventAccelerationInit -> IO ()+-- | <https://w3c.github.io/deviceorientation/#dom-devicemotioneventinit-acceleration DeviceMotionEventInit.acceleration specification>+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+-- | <https://w3c.github.io/deviceorientation/#dom-devicemotioneventinit-acceleration DeviceMotionEventInit.acceleration specification>+getAcceleration :: (MonadDOM m) => DeviceMotionEventInit -> m (Maybe DeviceMotionEventAccelerationInit)+getAcceleration self = liftDOM (((js_getAcceleration (self)) >>= fromJSValUnchecked))++-- | <https://w3c.github.io/deviceorientation/#dom-devicemotioneventinit-acceleration DeviceMotionEventInit.acceleration specification>+getAccelerationUnsafe :: (MonadDOM m, HasCallStack) => DeviceMotionEventInit -> m DeviceMotionEventAccelerationInit+getAccelerationUnsafe self = liftDOM ((((js_getAcceleration (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://w3c.github.io/deviceorientation/#dom-devicemotioneventinit-acceleration DeviceMotionEventInit.acceleration specification>+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 ()+-- | <https://w3c.github.io/deviceorientation/#dom-devicemotioneventinit-accelerationincludinggravity DeviceMotionEventInit.accelerationIncludingGravity specification>+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+-- | <https://w3c.github.io/deviceorientation/#dom-devicemotioneventinit-accelerationincludinggravity DeviceMotionEventInit.accelerationIncludingGravity specification>+getAccelerationIncludingGravity :: (MonadDOM m) => DeviceMotionEventInit -> m (Maybe DeviceMotionEventAccelerationInit)+getAccelerationIncludingGravity self = liftDOM (((js_getAccelerationIncludingGravity (self)) >>= fromJSValUnchecked))++-- | <https://w3c.github.io/deviceorientation/#dom-devicemotioneventinit-accelerationincludinggravity DeviceMotionEventInit.accelerationIncludingGravity specification>+getAccelerationIncludingGravityUnsafe :: (MonadDOM m, HasCallStack) => DeviceMotionEventInit -> m DeviceMotionEventAccelerationInit+getAccelerationIncludingGravityUnsafe self = liftDOM ((((js_getAccelerationIncludingGravity (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://w3c.github.io/deviceorientation/#dom-devicemotioneventinit-accelerationincludinggravity DeviceMotionEventInit.accelerationIncludingGravity specification>+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 ()+-- | <https://w3c.github.io/deviceorientation/#dom-devicemotioneventinit-rotationrate DeviceMotionEventInit.rotationRate specification>+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+-- | <https://w3c.github.io/deviceorientation/#dom-devicemotioneventinit-rotationrate DeviceMotionEventInit.rotationRate specification>+getRotationRate :: (MonadDOM m) => DeviceMotionEventInit -> m (Maybe DeviceMotionEventRotationRateInit)+getRotationRate self = liftDOM (((js_getRotationRate (self)) >>= fromJSValUnchecked))++-- | <https://w3c.github.io/deviceorientation/#dom-devicemotioneventinit-rotationrate DeviceMotionEventInit.rotationRate specification>+getRotationRateUnsafe :: (MonadDOM m, HasCallStack) => DeviceMotionEventInit -> m DeviceMotionEventRotationRateInit+getRotationRateUnsafe self = liftDOM ((((js_getRotationRate (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://w3c.github.io/deviceorientation/#dom-devicemotioneventinit-rotationrate DeviceMotionEventInit.rotationRate specification>+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 ()+-- | <https://w3c.github.io/deviceorientation/#dom-devicemotioneventinit-interval DeviceMotionEventInit.interval specification>+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+-- | <https://w3c.github.io/deviceorientation/#dom-devicemotioneventinit-interval DeviceMotionEventInit.interval specification>+getInterval :: (MonadDOM m) => DeviceMotionEventInit -> m (Maybe Double)+getInterval self = liftDOM (((js_getInterval (self)) >>= fromJSValUnchecked))++-- | <https://w3c.github.io/deviceorientation/#dom-devicemotioneventinit-interval DeviceMotionEventInit.interval specification>+getIntervalUnsafe :: (MonadDOM m, HasCallStack) => DeviceMotionEventInit -> m Double+getIntervalUnsafe self = liftDOM ((((js_getInterval (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://w3c.github.io/deviceorientation/#dom-devicemotioneventinit-interval DeviceMotionEventInit.interval specification>+getIntervalUnchecked :: (MonadDOM m) => DeviceMotionEventInit -> m Double+getIntervalUnchecked self = liftDOM ((pFromJSVal <$> (js_getInterval (self))))
@@ -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+-- | <https://developer.mozilla.org/docs/Web/API/DeviceMotionEventRotationRate/alpha MDN DeviceMotionEventRotationRate.alpha documentation>+getAlpha :: (MonadDOM m) => DeviceMotionEventRotationRate -> m (Maybe Double)+getAlpha self = liftDOM (((js_getAlpha (self)) >>= fromJSValUnchecked))++-- | <https://developer.mozilla.org/docs/Web/API/DeviceMotionEventRotationRate/alpha MDN DeviceMotionEventRotationRate.alpha documentation>+getAlphaUnsafe :: (MonadDOM m, HasCallStack) => DeviceMotionEventRotationRate -> m Double+getAlphaUnsafe self = liftDOM ((((js_getAlpha (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://developer.mozilla.org/docs/Web/API/DeviceMotionEventRotationRate/alpha MDN DeviceMotionEventRotationRate.alpha documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/DeviceMotionEventRotationRate/beta MDN DeviceMotionEventRotationRate.beta documentation>+getBeta :: (MonadDOM m) => DeviceMotionEventRotationRate -> m (Maybe Double)+getBeta self = liftDOM (((js_getBeta (self)) >>= fromJSValUnchecked))++-- | <https://developer.mozilla.org/docs/Web/API/DeviceMotionEventRotationRate/beta MDN DeviceMotionEventRotationRate.beta documentation>+getBetaUnsafe :: (MonadDOM m, HasCallStack) => DeviceMotionEventRotationRate -> m Double+getBetaUnsafe self = liftDOM ((((js_getBeta (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://developer.mozilla.org/docs/Web/API/DeviceMotionEventRotationRate/beta MDN DeviceMotionEventRotationRate.beta documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/DeviceMotionEventRotationRate/gamma MDN DeviceMotionEventRotationRate.gamma documentation>+getGamma :: (MonadDOM m) => DeviceMotionEventRotationRate -> m (Maybe Double)+getGamma self = liftDOM (((js_getGamma (self)) >>= fromJSValUnchecked))++-- | <https://developer.mozilla.org/docs/Web/API/DeviceMotionEventRotationRate/gamma MDN DeviceMotionEventRotationRate.gamma documentation>+getGammaUnsafe :: (MonadDOM m, HasCallStack) => DeviceMotionEventRotationRate -> m Double+getGammaUnsafe self = liftDOM ((((js_getGamma (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://developer.mozilla.org/docs/Web/API/DeviceMotionEventRotationRate/gamma MDN DeviceMotionEventRotationRate.gamma documentation>+getGammaUnchecked :: (MonadDOM m) => DeviceMotionEventRotationRate -> m Double+getGammaUnchecked self = liftDOM ((pFromJSVal <$> (js_getGamma (self))))
@@ -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+-- | <https://w3c.github.io/deviceorientation/#dictdef-devicemotioneventrotationrateinit DeviceMotionEventRotationRateInit specification>+newDeviceMotionEventRotationRateInit :: (MonadDOM m) => m DeviceMotionEventRotationRateInit+newDeviceMotionEventRotationRateInit = liftDOM ((js_newDeviceMotionEventRotationRateInit))++foreign import javascript safe "(($1, $2) => { $1[\"alpha\"] = $2; })"+ js_setAlpha :: DeviceMotionEventRotationRateInit -> JSVal -> IO ()+-- | <https://w3c.github.io/deviceorientation/#dom-devicemotioneventrotationrateinit-alpha DeviceMotionEventRotationRateInit.alpha specification>+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+-- | <https://w3c.github.io/deviceorientation/#dom-devicemotioneventrotationrateinit-alpha DeviceMotionEventRotationRateInit.alpha specification>+getAlpha :: (MonadDOM m) => DeviceMotionEventRotationRateInit -> m (Maybe Double)+getAlpha self = liftDOM (((js_getAlpha (self)) >>= fromJSValUnchecked))++-- | <https://w3c.github.io/deviceorientation/#dom-devicemotioneventrotationrateinit-alpha DeviceMotionEventRotationRateInit.alpha specification>+getAlphaUnsafe :: (MonadDOM m, HasCallStack) => DeviceMotionEventRotationRateInit -> m Double+getAlphaUnsafe self = liftDOM ((((js_getAlpha (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://w3c.github.io/deviceorientation/#dom-devicemotioneventrotationrateinit-alpha DeviceMotionEventRotationRateInit.alpha specification>+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 ()+-- | <https://w3c.github.io/deviceorientation/#dom-devicemotioneventrotationrateinit-beta DeviceMotionEventRotationRateInit.beta specification>+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+-- | <https://w3c.github.io/deviceorientation/#dom-devicemotioneventrotationrateinit-beta DeviceMotionEventRotationRateInit.beta specification>+getBeta :: (MonadDOM m) => DeviceMotionEventRotationRateInit -> m (Maybe Double)+getBeta self = liftDOM (((js_getBeta (self)) >>= fromJSValUnchecked))++-- | <https://w3c.github.io/deviceorientation/#dom-devicemotioneventrotationrateinit-beta DeviceMotionEventRotationRateInit.beta specification>+getBetaUnsafe :: (MonadDOM m, HasCallStack) => DeviceMotionEventRotationRateInit -> m Double+getBetaUnsafe self = liftDOM ((((js_getBeta (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://w3c.github.io/deviceorientation/#dom-devicemotioneventrotationrateinit-beta DeviceMotionEventRotationRateInit.beta specification>+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 ()+-- | <https://w3c.github.io/deviceorientation/#dom-devicemotioneventrotationrateinit-gamma DeviceMotionEventRotationRateInit.gamma specification>+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+-- | <https://w3c.github.io/deviceorientation/#dom-devicemotioneventrotationrateinit-gamma DeviceMotionEventRotationRateInit.gamma specification>+getGamma :: (MonadDOM m) => DeviceMotionEventRotationRateInit -> m (Maybe Double)+getGamma self = liftDOM (((js_getGamma (self)) >>= fromJSValUnchecked))++-- | <https://w3c.github.io/deviceorientation/#dom-devicemotioneventrotationrateinit-gamma DeviceMotionEventRotationRateInit.gamma specification>+getGammaUnsafe :: (MonadDOM m, HasCallStack) => DeviceMotionEventRotationRateInit -> m Double+getGammaUnsafe self = liftDOM ((((js_getGamma (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://w3c.github.io/deviceorientation/#dom-devicemotioneventrotationrateinit-gamma DeviceMotionEventRotationRateInit.gamma specification>+getGammaUnchecked :: (MonadDOM m) => DeviceMotionEventRotationRateInit -> m Double+getGammaUnchecked self = liftDOM ((pFromJSVal <$> (js_getGamma (self))))
@@ -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 () --- | <https://developer.mozilla.org/en-US/docs/Web/API/DeviceOrientationEvent.initDeviceOrientationEvent Mozilla DeviceOrientationEvent.initDeviceOrientationEvent documentation> -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)---- | <https://developer.mozilla.org/en-US/docs/Web/API/DeviceOrientationEvent.alpha Mozilla DeviceOrientationEvent.alpha documentation> -getAlpha ::- (MonadIO m) => DeviceOrientationEvent -> m (Maybe Double)-getAlpha self = liftIO (nullableToMaybe <$> (js_getAlpha self))---- | <https://developer.mozilla.org/en-US/docs/Web/API/DeviceOrientationEvent.alpha Mozilla DeviceOrientationEvent.alpha documentation> -getAlphaUnsafe ::- (MonadIO m, HasCallStack) => DeviceOrientationEvent -> m Double-getAlphaUnsafe self- = liftIO- ((nullableToMaybe <$> (js_getAlpha self)) >>=- maybe (Prelude.error "Nothing to return") return)+foreign import javascript safe "(($1, $2) => { return new globalThis[\"DeviceOrientationEvent\"]($1, $2); })"+ js_newDeviceOrientationEvent :: JSString -> JSVal -> IO DeviceOrientationEvent+-- | <https://developer.mozilla.org/docs/Web/API/DeviceOrientationEvent/DeviceOrientationEvent MDN DeviceOrientationEvent. documentation>+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')) --- | <https://developer.mozilla.org/en-US/docs/Web/API/DeviceOrientationEvent.alpha Mozilla DeviceOrientationEvent.alpha documentation> -getAlphaUnchecked ::- (MonadIO m) => DeviceOrientationEvent -> m Double-getAlphaUnchecked self- = liftIO (fromJust . nullableToMaybe <$> (js_getAlpha self))- -foreign import javascript unsafe "(($1) => { return $1[\"beta\"]; })" js_getBeta ::- DeviceOrientationEvent -> IO (Nullable Double)+foreign import javascript unsafe "(($1) => { return $1[\"alpha\"]; })"+ js_getAlpha :: DeviceOrientationEvent -> IO JSVal+-- | <https://developer.mozilla.org/docs/Web/API/DeviceOrientationEvent/alpha MDN DeviceOrientationEvent.alpha documentation>+getAlpha :: (MonadDOM m) => DeviceOrientationEvent -> m (Maybe Double)+getAlpha self = liftDOM (((js_getAlpha (self)) >>= fromJSValUnchecked)) --- | <https://developer.mozilla.org/en-US/docs/Web/API/DeviceOrientationEvent.beta Mozilla DeviceOrientationEvent.beta documentation> -getBeta ::- (MonadIO m) => DeviceOrientationEvent -> m (Maybe Double)-getBeta self = liftIO (nullableToMaybe <$> (js_getBeta self))+-- | <https://developer.mozilla.org/docs/Web/API/DeviceOrientationEvent/alpha MDN DeviceOrientationEvent.alpha documentation>+getAlphaUnsafe :: (MonadDOM m, HasCallStack) => DeviceOrientationEvent -> m Double+getAlphaUnsafe self = liftDOM ((((js_getAlpha (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) --- | <https://developer.mozilla.org/en-US/docs/Web/API/DeviceOrientationEvent.beta Mozilla DeviceOrientationEvent.beta documentation> -getBetaUnsafe ::- (MonadIO m, HasCallStack) => DeviceOrientationEvent -> m Double-getBetaUnsafe self- = liftIO- ((nullableToMaybe <$> (js_getBeta self)) >>=- maybe (Prelude.error "Nothing to return") return)+-- | <https://developer.mozilla.org/docs/Web/API/DeviceOrientationEvent/alpha MDN DeviceOrientationEvent.alpha documentation>+getAlphaUnchecked :: (MonadDOM m) => DeviceOrientationEvent -> m Double+getAlphaUnchecked self = liftDOM ((pFromJSVal <$> (js_getAlpha (self)))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/DeviceOrientationEvent.beta Mozilla DeviceOrientationEvent.beta documentation> -getBetaUnchecked ::- (MonadIO m) => DeviceOrientationEvent -> m Double-getBetaUnchecked self- = liftIO (fromJust . nullableToMaybe <$> (js_getBeta self))- -foreign import javascript unsafe "(($1) => { return $1[\"gamma\"]; })" js_getGamma ::- DeviceOrientationEvent -> IO (Nullable Double)+foreign import javascript unsafe "(($1) => { return $1[\"beta\"]; })"+ js_getBeta :: DeviceOrientationEvent -> IO JSVal+-- | <https://developer.mozilla.org/docs/Web/API/DeviceOrientationEvent/beta MDN DeviceOrientationEvent.beta documentation>+getBeta :: (MonadDOM m) => DeviceOrientationEvent -> m (Maybe Double)+getBeta self = liftDOM (((js_getBeta (self)) >>= fromJSValUnchecked)) --- | <https://developer.mozilla.org/en-US/docs/Web/API/DeviceOrientationEvent.gamma Mozilla DeviceOrientationEvent.gamma documentation> -getGamma ::- (MonadIO m) => DeviceOrientationEvent -> m (Maybe Double)-getGamma self = liftIO (nullableToMaybe <$> (js_getGamma self))+-- | <https://developer.mozilla.org/docs/Web/API/DeviceOrientationEvent/beta MDN DeviceOrientationEvent.beta documentation>+getBetaUnsafe :: (MonadDOM m, HasCallStack) => DeviceOrientationEvent -> m Double+getBetaUnsafe self = liftDOM ((((js_getBeta (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) --- | <https://developer.mozilla.org/en-US/docs/Web/API/DeviceOrientationEvent.gamma Mozilla DeviceOrientationEvent.gamma documentation> -getGammaUnsafe ::- (MonadIO m, HasCallStack) => DeviceOrientationEvent -> m Double-getGammaUnsafe self- = liftIO- ((nullableToMaybe <$> (js_getGamma self)) >>=- maybe (Prelude.error "Nothing to return") return)+-- | <https://developer.mozilla.org/docs/Web/API/DeviceOrientationEvent/beta MDN DeviceOrientationEvent.beta documentation>+getBetaUnchecked :: (MonadDOM m) => DeviceOrientationEvent -> m Double+getBetaUnchecked self = liftDOM ((pFromJSVal <$> (js_getBeta (self)))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/DeviceOrientationEvent.gamma Mozilla DeviceOrientationEvent.gamma documentation> -getGammaUnchecked ::- (MonadIO m) => DeviceOrientationEvent -> m Double-getGammaUnchecked self- = liftIO (fromJust . nullableToMaybe <$> (js_getGamma self))- -foreign import javascript unsafe "(($1) => { return $1[\"absolute\"]; })" js_getAbsolute- :: DeviceOrientationEvent -> IO (Nullable Bool)+foreign import javascript unsafe "(($1) => { return $1[\"gamma\"]; })"+ js_getGamma :: DeviceOrientationEvent -> IO JSVal+-- | <https://developer.mozilla.org/docs/Web/API/DeviceOrientationEvent/gamma MDN DeviceOrientationEvent.gamma documentation>+getGamma :: (MonadDOM m) => DeviceOrientationEvent -> m (Maybe Double)+getGamma self = liftDOM (((js_getGamma (self)) >>= fromJSValUnchecked)) --- | <https://developer.mozilla.org/en-US/docs/Web/API/DeviceOrientationEvent.absolute Mozilla DeviceOrientationEvent.absolute documentation> -getAbsolute ::- (MonadIO m) => DeviceOrientationEvent -> m (Maybe Bool)-getAbsolute self- = liftIO (nullableToMaybe <$> (js_getAbsolute self))+-- | <https://developer.mozilla.org/docs/Web/API/DeviceOrientationEvent/gamma MDN DeviceOrientationEvent.gamma documentation>+getGammaUnsafe :: (MonadDOM m, HasCallStack) => DeviceOrientationEvent -> m Double+getGammaUnsafe self = liftDOM ((((js_getGamma (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) --- | <https://developer.mozilla.org/en-US/docs/Web/API/DeviceOrientationEvent.absolute Mozilla DeviceOrientationEvent.absolute documentation> -getAbsoluteUnsafe ::- (MonadIO m, HasCallStack) => DeviceOrientationEvent -> m Bool-getAbsoluteUnsafe self- = liftIO- ((nullableToMaybe <$> (js_getAbsolute self)) >>=- maybe (Prelude.error "Nothing to return") return)+-- | <https://developer.mozilla.org/docs/Web/API/DeviceOrientationEvent/gamma MDN DeviceOrientationEvent.gamma documentation>+getGammaUnchecked :: (MonadDOM m) => DeviceOrientationEvent -> m Double+getGammaUnchecked self = liftDOM ((pFromJSVal <$> (js_getGamma (self)))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/DeviceOrientationEvent.absolute Mozilla DeviceOrientationEvent.absolute documentation> -getAbsoluteUnchecked ::- (MonadIO m) => DeviceOrientationEvent -> m Bool-getAbsoluteUnchecked self- = liftIO (fromJust . nullableToMaybe <$> (js_getAbsolute self))+foreign import javascript unsafe "(($1) => { return $1[\"absolute\"]; })"+ js_getAbsolute :: DeviceOrientationEvent -> IO Bool+-- | <https://developer.mozilla.org/docs/Web/API/DeviceOrientationEvent/absolute MDN DeviceOrientationEvent.absolute documentation>+getAbsolute :: (MonadDOM m) => DeviceOrientationEvent -> m Bool+getAbsolute self = liftDOM ((js_getAbsolute (self)))
@@ -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+-- | <https://w3c.github.io/deviceorientation/#dictdef-deviceorientationeventinit DeviceOrientationEventInit specification>+newDeviceOrientationEventInit :: (MonadDOM m) => m DeviceOrientationEventInit+newDeviceOrientationEventInit = liftDOM ((js_newDeviceOrientationEventInit))++foreign import javascript safe "(($1, $2) => { $1[\"alpha\"] = $2; })"+ js_setAlpha :: DeviceOrientationEventInit -> JSVal -> IO ()+-- | <https://w3c.github.io/deviceorientation/#dom-deviceorientationeventinit-alpha DeviceOrientationEventInit.alpha specification>+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+-- | <https://w3c.github.io/deviceorientation/#dom-deviceorientationeventinit-alpha DeviceOrientationEventInit.alpha specification>+getAlpha :: (MonadDOM m) => DeviceOrientationEventInit -> m (Maybe Double)+getAlpha self = liftDOM (((js_getAlpha (self)) >>= fromJSValUnchecked))++-- | <https://w3c.github.io/deviceorientation/#dom-deviceorientationeventinit-alpha DeviceOrientationEventInit.alpha specification>+getAlphaUnsafe :: (MonadDOM m, HasCallStack) => DeviceOrientationEventInit -> m Double+getAlphaUnsafe self = liftDOM ((((js_getAlpha (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://w3c.github.io/deviceorientation/#dom-deviceorientationeventinit-alpha DeviceOrientationEventInit.alpha specification>+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 ()+-- | <https://w3c.github.io/deviceorientation/#dom-deviceorientationeventinit-beta DeviceOrientationEventInit.beta specification>+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+-- | <https://w3c.github.io/deviceorientation/#dom-deviceorientationeventinit-beta DeviceOrientationEventInit.beta specification>+getBeta :: (MonadDOM m) => DeviceOrientationEventInit -> m (Maybe Double)+getBeta self = liftDOM (((js_getBeta (self)) >>= fromJSValUnchecked))++-- | <https://w3c.github.io/deviceorientation/#dom-deviceorientationeventinit-beta DeviceOrientationEventInit.beta specification>+getBetaUnsafe :: (MonadDOM m, HasCallStack) => DeviceOrientationEventInit -> m Double+getBetaUnsafe self = liftDOM ((((js_getBeta (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://w3c.github.io/deviceorientation/#dom-deviceorientationeventinit-beta DeviceOrientationEventInit.beta specification>+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 ()+-- | <https://w3c.github.io/deviceorientation/#dom-deviceorientationeventinit-gamma DeviceOrientationEventInit.gamma specification>+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+-- | <https://w3c.github.io/deviceorientation/#dom-deviceorientationeventinit-gamma DeviceOrientationEventInit.gamma specification>+getGamma :: (MonadDOM m) => DeviceOrientationEventInit -> m (Maybe Double)+getGamma self = liftDOM (((js_getGamma (self)) >>= fromJSValUnchecked))++-- | <https://w3c.github.io/deviceorientation/#dom-deviceorientationeventinit-gamma DeviceOrientationEventInit.gamma specification>+getGammaUnsafe :: (MonadDOM m, HasCallStack) => DeviceOrientationEventInit -> m Double+getGammaUnsafe self = liftDOM ((((js_getGamma (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://w3c.github.io/deviceorientation/#dom-deviceorientationeventinit-gamma DeviceOrientationEventInit.gamma specification>+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 ()+-- | <https://w3c.github.io/deviceorientation/#dom-deviceorientationeventinit-absolute DeviceOrientationEventInit.absolute specification>+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+-- | <https://w3c.github.io/deviceorientation/#dom-deviceorientationeventinit-absolute DeviceOrientationEventInit.absolute specification>+getAbsolute :: (MonadDOM m) => DeviceOrientationEventInit -> m (Maybe Bool)+getAbsolute self = liftDOM (((js_getAbsolute (self)) >>= fromJSValUnchecked))++-- | <https://w3c.github.io/deviceorientation/#dom-deviceorientationeventinit-absolute DeviceOrientationEventInit.absolute specification>+getAbsoluteUnsafe :: (MonadDOM m, HasCallStack) => DeviceOrientationEventInit -> m Bool+getAbsoluteUnsafe self = liftDOM ((((js_getAbsolute (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://w3c.github.io/deviceorientation/#dom-deviceorientationeventinit-absolute DeviceOrientationEventInit.absolute specification>+getAbsoluteUnchecked :: (MonadDOM m) => DeviceOrientationEventInit -> m Bool+getAbsoluteUnchecked self = liftDOM ((pFromJSVal <$> (js_getAbsolute (self))))
@@ -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---- | <https://developer.mozilla.org/en-US/docs/Web/API/DeviceProximityEvent Mozilla DeviceProximityEvent documentation> -newDeviceProximityEvent ::- (MonadIO m, ToJSString type') =>- type' -> Maybe DeviceProximityEventInit -> m DeviceProximityEvent-newDeviceProximityEvent type' eventInitDict- = liftIO- (js_newDeviceProximityEvent (toJSString type')- (maybeToOptional eventInitDict))- -foreign import javascript unsafe "(($1) => { return $1[\"value\"]; })" js_getValue ::- DeviceProximityEvent -> IO Double---- | <https://developer.mozilla.org/en-US/docs/Web/API/DeviceProximityEvent.value Mozilla DeviceProximityEvent.value documentation> -getValue :: (MonadIO m) => DeviceProximityEvent -> m Double-getValue self = liftIO (js_getValue self)- -foreign import javascript unsafe "(($1) => { return $1[\"min\"]; })" js_getMin ::- DeviceProximityEvent -> IO Double---- | <https://developer.mozilla.org/en-US/docs/Web/API/DeviceProximityEvent.min Mozilla DeviceProximityEvent.min documentation> -getMin :: (MonadIO m) => DeviceProximityEvent -> m Double-getMin self = liftIO (js_getMin self)- -foreign import javascript unsafe "(($1) => { return $1[\"max\"]; })" js_getMax ::- DeviceProximityEvent -> IO Double---- | <https://developer.mozilla.org/en-US/docs/Web/API/DeviceProximityEvent.max Mozilla DeviceProximityEvent.max documentation> -getMax :: (MonadIO m) => DeviceProximityEvent -> m Double-getMax self = liftIO (js_getMax self)
@@ -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+-- | <https://w3c-fedid.github.io/digital-credentials/#dom-digitalcredential-useragentallowsprotocol DigitalCredential.userAgentAllowsProtocol specification>+userAgentAllowsProtocol :: (MonadDOM m, ToJSString protocol) => protocol -> m Bool+userAgentAllowsProtocol protocol = liftDOM ((js_userAgentAllowsProtocol (toJSString protocol)))++-- | <https://w3c-fedid.github.io/digital-credentials/#dom-digitalcredential-useragentallowsprotocol DigitalCredential.userAgentAllowsProtocol specification>+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+-- | <https://w3c-fedid.github.io/digital-credentials/#dom-digitalcredential-protocol DigitalCredential.protocol specification>+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+-- | <https://w3c-fedid.github.io/digital-credentials/#dom-digitalcredential-data DigitalCredential.data specification>+getData :: (MonadDOM m) => DigitalCredential -> m GObject+getData self = liftDOM ((js_getData (self)))
@@ -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+-- | <https://w3c-fedid.github.io/digital-credentials/#dom-digitalcredentialcreaterequest DigitalCredentialCreateRequest specification>+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 ()+-- | <https://w3c-fedid.github.io/digital-credentials/#dom-digitalcredentialcreaterequest-protocol DigitalCredentialCreateRequest.protocol specification>+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+-- | <https://w3c-fedid.github.io/digital-credentials/#dom-digitalcredentialcreaterequest-protocol DigitalCredentialCreateRequest.protocol specification>+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 ()+-- | <https://w3c-fedid.github.io/digital-credentials/#dom-digitalcredentialcreaterequest-data DigitalCredentialCreateRequest.data specification>+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+-- | <https://w3c-fedid.github.io/digital-credentials/#dom-digitalcredentialcreaterequest-data DigitalCredentialCreateRequest.data specification>+getData :: (MonadDOM m) => DigitalCredentialCreateRequest -> m GObject+getData self = liftDOM ((js_getData (self)))
@@ -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+-- | <https://w3c-fedid.github.io/digital-credentials/#dom-digitalcredentialcreationoptions DigitalCredentialCreationOptions specification>+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 ()+-- | <https://w3c-fedid.github.io/digital-credentials/#dom-digitalcredentialcreationoptions-requests DigitalCredentialCreationOptions.requests specification>+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+-- | <https://w3c-fedid.github.io/digital-credentials/#dom-digitalcredentialcreationoptions-requests DigitalCredentialCreationOptions.requests specification>+getRequests :: (MonadDOM m) => DigitalCredentialCreationOptions -> m [DigitalCredentialCreateRequest]+getRequests self = liftDOM (((js_getRequests (self)) >>= fromJSValUnchecked))
@@ -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+-- | <https://w3c-fedid.github.io/digital-credentials/#dom-digitalcredentialgetrequest DigitalCredentialGetRequest specification>+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 ()+-- | <https://w3c-fedid.github.io/digital-credentials/#dom-digitalcredentialgetrequest-protocol DigitalCredentialGetRequest.protocol specification>+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+-- | <https://w3c-fedid.github.io/digital-credentials/#dom-digitalcredentialgetrequest-protocol DigitalCredentialGetRequest.protocol specification>+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 ()+-- | <https://w3c-fedid.github.io/digital-credentials/#dom-digitalcredentialgetrequest-data DigitalCredentialGetRequest.data specification>+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+-- | <https://w3c-fedid.github.io/digital-credentials/#dom-digitalcredentialgetrequest-data DigitalCredentialGetRequest.data specification>+getData :: (MonadDOM m) => DigitalCredentialGetRequest -> m GObject+getData self = liftDOM ((js_getData (self)))
@@ -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+-- | <https://w3c-fedid.github.io/digital-credentials/#dom-digitalcredentialrequestoptions DigitalCredentialRequestOptions specification>+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 ()+-- | <https://w3c-fedid.github.io/digital-credentials/#dom-digitalcredentialrequestoptions-requests DigitalCredentialRequestOptions.requests specification>+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+-- | <https://w3c-fedid.github.io/digital-credentials/#dom-digitalcredentialrequestoptions-requests DigitalCredentialRequestOptions.requests specification>+getRequests :: (MonadDOM m) => DigitalCredentialRequestOptions -> m [DigitalCredentialGetRequest]+getRequests self = liftDOM (((js_getRequests (self)) >>= fromJSValUnchecked))
@@ -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+-- | <https://w3c.github.io/mediacapture-screen-share/#dom-displaymediastreamoptions DisplayMediaStreamOptions specification>+newDisplayMediaStreamOptions :: (MonadDOM m) => m DisplayMediaStreamOptions+newDisplayMediaStreamOptions = liftDOM ((js_newDisplayMediaStreamOptions))++foreign import javascript safe "(($1, $2) => { $1[\"video\"] = $2; })"+ js_setVideo :: DisplayMediaStreamOptions -> BoolOrMediaTrackConstraints -> IO ()+-- | <https://w3c.github.io/mediacapture-screen-share/#dom-displaymediastreamoptions-video DisplayMediaStreamOptions.video specification>+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+-- | <https://w3c.github.io/mediacapture-screen-share/#dom-displaymediastreamoptions-video DisplayMediaStreamOptions.video specification>+getVideo :: (MonadDOM m) => DisplayMediaStreamOptions -> m (Maybe BoolOrMediaTrackConstraints)+getVideo self = liftDOM (((js_getVideo (self)) >>= fromJSValUnchecked))++-- | <https://w3c.github.io/mediacapture-screen-share/#dom-displaymediastreamoptions-video DisplayMediaStreamOptions.video specification>+getVideoUnsafe :: (MonadDOM m, HasCallStack) => DisplayMediaStreamOptions -> m BoolOrMediaTrackConstraints+getVideoUnsafe self = liftDOM ((((js_getVideo (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://w3c.github.io/mediacapture-screen-share/#dom-displaymediastreamoptions-video DisplayMediaStreamOptions.video specification>+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 ()+-- | <https://w3c.github.io/mediacapture-screen-share/#dom-displaymediastreamoptions-audio DisplayMediaStreamOptions.audio specification>+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+-- | <https://w3c.github.io/mediacapture-screen-share/#dom-displaymediastreamoptions-audio DisplayMediaStreamOptions.audio specification>+getAudio :: (MonadDOM m) => DisplayMediaStreamOptions -> m (Maybe BoolOrMediaTrackConstraints)+getAudio self = liftDOM (((js_getAudio (self)) >>= fromJSValUnchecked))++-- | <https://w3c.github.io/mediacapture-screen-share/#dom-displaymediastreamoptions-audio DisplayMediaStreamOptions.audio specification>+getAudioUnsafe :: (MonadDOM m, HasCallStack) => DisplayMediaStreamOptions -> m BoolOrMediaTrackConstraints+getAudioUnsafe self = liftDOM ((((js_getAudio (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://w3c.github.io/mediacapture-screen-share/#dom-displaymediastreamoptions-audio DisplayMediaStreamOptions.audio specification>+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 ()+-- | <https://w3c.github.io/mediacapture-screen-share/#dom-displaymediastreamoptions-controller DisplayMediaStreamOptions.controller specification>+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+-- | <https://w3c.github.io/mediacapture-screen-share/#dom-displaymediastreamoptions-controller DisplayMediaStreamOptions.controller specification>+getController :: (MonadDOM m) => DisplayMediaStreamOptions -> m (Maybe CaptureController)+getController self = liftDOM (((js_getController (self)) >>= fromJSValUnchecked))++-- | <https://w3c.github.io/mediacapture-screen-share/#dom-displaymediastreamoptions-controller DisplayMediaStreamOptions.controller specification>+getControllerUnsafe :: (MonadDOM m, HasCallStack) => DisplayMediaStreamOptions -> m CaptureController+getControllerUnsafe self = liftDOM ((((js_getController (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://w3c.github.io/mediacapture-screen-share/#dom-displaymediastreamoptions-controller DisplayMediaStreamOptions.controller specification>+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 ()+-- | <https://w3c.github.io/mediacapture-screen-share/#dom-displaymediastreamoptions-selfbrowsersurface DisplayMediaStreamOptions.selfBrowserSurface specification>+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+-- | <https://w3c.github.io/mediacapture-screen-share/#dom-displaymediastreamoptions-selfbrowsersurface DisplayMediaStreamOptions.selfBrowserSurface specification>+getSelfBrowserSurface :: (MonadDOM m) => DisplayMediaStreamOptions -> m (Maybe SelfCapturePreferenceEnum)+getSelfBrowserSurface self = liftDOM (((js_getSelfBrowserSurface (self)) >>= fromJSValUnchecked))++-- | <https://w3c.github.io/mediacapture-screen-share/#dom-displaymediastreamoptions-selfbrowsersurface DisplayMediaStreamOptions.selfBrowserSurface specification>+getSelfBrowserSurfaceUnsafe :: (MonadDOM m, HasCallStack) => DisplayMediaStreamOptions -> m SelfCapturePreferenceEnum+getSelfBrowserSurfaceUnsafe self = liftDOM ((((js_getSelfBrowserSurface (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://w3c.github.io/mediacapture-screen-share/#dom-displaymediastreamoptions-selfbrowsersurface DisplayMediaStreamOptions.selfBrowserSurface specification>+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 ()+-- | <https://w3c.github.io/mediacapture-screen-share/#dom-displaymediastreamoptions-systemaudio DisplayMediaStreamOptions.systemAudio specification>+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+-- | <https://w3c.github.io/mediacapture-screen-share/#dom-displaymediastreamoptions-systemaudio DisplayMediaStreamOptions.systemAudio specification>+getSystemAudio :: (MonadDOM m) => DisplayMediaStreamOptions -> m (Maybe SystemAudioPreferenceEnum)+getSystemAudio self = liftDOM (((js_getSystemAudio (self)) >>= fromJSValUnchecked))++-- | <https://w3c.github.io/mediacapture-screen-share/#dom-displaymediastreamoptions-systemaudio DisplayMediaStreamOptions.systemAudio specification>+getSystemAudioUnsafe :: (MonadDOM m, HasCallStack) => DisplayMediaStreamOptions -> m SystemAudioPreferenceEnum+getSystemAudioUnsafe self = liftDOM ((((js_getSystemAudio (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://w3c.github.io/mediacapture-screen-share/#dom-displaymediastreamoptions-systemaudio DisplayMediaStreamOptions.systemAudio specification>+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 ()+-- | <https://w3c.github.io/mediacapture-screen-share/#dom-displaymediastreamoptions-windowaudio DisplayMediaStreamOptions.windowAudio specification>+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+-- | <https://w3c.github.io/mediacapture-screen-share/#dom-displaymediastreamoptions-windowaudio DisplayMediaStreamOptions.windowAudio specification>+getWindowAudio :: (MonadDOM m) => DisplayMediaStreamOptions -> m (Maybe WindowAudioPreferenceEnum)+getWindowAudio self = liftDOM (((js_getWindowAudio (self)) >>= fromJSValUnchecked))++-- | <https://w3c.github.io/mediacapture-screen-share/#dom-displaymediastreamoptions-windowaudio DisplayMediaStreamOptions.windowAudio specification>+getWindowAudioUnsafe :: (MonadDOM m, HasCallStack) => DisplayMediaStreamOptions -> m WindowAudioPreferenceEnum+getWindowAudioUnsafe self = liftDOM ((((js_getWindowAudio (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://w3c.github.io/mediacapture-screen-share/#dom-displaymediastreamoptions-windowaudio DisplayMediaStreamOptions.windowAudio specification>+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 ()+-- | <https://w3c.github.io/mediacapture-screen-share/#dom-displaymediastreamoptions-surfaceswitching DisplayMediaStreamOptions.surfaceSwitching specification>+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+-- | <https://w3c.github.io/mediacapture-screen-share/#dom-displaymediastreamoptions-surfaceswitching DisplayMediaStreamOptions.surfaceSwitching specification>+getSurfaceSwitching :: (MonadDOM m) => DisplayMediaStreamOptions -> m (Maybe SurfaceSwitchingPreferenceEnum)+getSurfaceSwitching self = liftDOM (((js_getSurfaceSwitching (self)) >>= fromJSValUnchecked))++-- | <https://w3c.github.io/mediacapture-screen-share/#dom-displaymediastreamoptions-surfaceswitching DisplayMediaStreamOptions.surfaceSwitching specification>+getSurfaceSwitchingUnsafe :: (MonadDOM m, HasCallStack) => DisplayMediaStreamOptions -> m SurfaceSwitchingPreferenceEnum+getSurfaceSwitchingUnsafe self = liftDOM ((((js_getSurfaceSwitching (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://w3c.github.io/mediacapture-screen-share/#dom-displaymediastreamoptions-surfaceswitching DisplayMediaStreamOptions.surfaceSwitching specification>+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 ()+-- | <https://w3c.github.io/mediacapture-screen-share/#dom-displaymediastreamoptions-monitortypesurfaces DisplayMediaStreamOptions.monitorTypeSurfaces specification>+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+-- | <https://w3c.github.io/mediacapture-screen-share/#dom-displaymediastreamoptions-monitortypesurfaces DisplayMediaStreamOptions.monitorTypeSurfaces specification>+getMonitorTypeSurfaces :: (MonadDOM m) => DisplayMediaStreamOptions -> m (Maybe MonitorTypeSurfacesEnum)+getMonitorTypeSurfaces self = liftDOM (((js_getMonitorTypeSurfaces (self)) >>= fromJSValUnchecked))++-- | <https://w3c.github.io/mediacapture-screen-share/#dom-displaymediastreamoptions-monitortypesurfaces DisplayMediaStreamOptions.monitorTypeSurfaces specification>+getMonitorTypeSurfacesUnsafe :: (MonadDOM m, HasCallStack) => DisplayMediaStreamOptions -> m MonitorTypeSurfacesEnum+getMonitorTypeSurfacesUnsafe self = liftDOM ((((js_getMonitorTypeSurfaces (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://w3c.github.io/mediacapture-screen-share/#dom-displaymediastreamoptions-monitortypesurfaces DisplayMediaStreamOptions.monitorTypeSurfaces specification>+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 ()+-- | <https://w3c.github.io/mediacapture-screen-share/#dom-displaymediastreamoptions-audioselection DisplayMediaStreamOptions.audioSelection specification>+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+-- | <https://w3c.github.io/mediacapture-screen-share/#dom-displaymediastreamoptions-audioselection DisplayMediaStreamOptions.audioSelection specification>+getAudioSelection :: (MonadDOM m) => DisplayMediaStreamOptions -> m (Maybe AudioSelectionPreferenceEnum)+getAudioSelection self = liftDOM (((js_getAudioSelection (self)) >>= fromJSValUnchecked))++-- | <https://w3c.github.io/mediacapture-screen-share/#dom-displaymediastreamoptions-audioselection DisplayMediaStreamOptions.audioSelection specification>+getAudioSelectionUnsafe :: (MonadDOM m, HasCallStack) => DisplayMediaStreamOptions -> m AudioSelectionPreferenceEnum+getAudioSelectionUnsafe self = liftDOM ((((js_getAudioSelection (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://w3c.github.io/mediacapture-screen-share/#dom-displaymediastreamoptions-audioselection DisplayMediaStreamOptions.audioSelection specification>+getAudioSelectionUnchecked :: (MonadDOM m) => DisplayMediaStreamOptions -> m AudioSelectionPreferenceEnum+getAudioSelectionUnchecked self = liftDOM ((pFromJSVal <$> (js_getAudioSelection (self))))
@@ -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---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.getAnimations Mozilla Document.getAnimations documentation> -getAnimations ::- (MonadIO m, IsDocument self) => self -> m [Animation]-getAnimations self- = liftIO- ((js_getAnimations (toDocument self)) >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.getAnimations Mozilla Document.getAnimations documentation> -getAnimations_ :: (MonadIO m, IsDocument self) => self -> m ()-getAnimations_ self- = liftIO (void (js_getAnimations (toDocument self)))- -foreign import javascript unsafe "(() => { return new window[\"Document\"](); })"- js_newDocument :: IO Document---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document Mozilla Document documentation> -newDocument :: (MonadIO m) => m Document-newDocument = liftIO (js_newDocument)- -foreign import javascript unsafe "(($1, $2) => { return $1[\"getElementsByTagName\"]($2); })"- js_getElementsByTagName ::- Document -> JSString -> IO HTMLCollection---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.getElementsByTagName Mozilla Document.getElementsByTagName documentation> -getElementsByTagName ::- (MonadIO m, IsDocument self, ToJSString qualifiedName) =>- self -> qualifiedName -> m HTMLCollection-getElementsByTagName self qualifiedName- = liftIO- (js_getElementsByTagName (toDocument self)- (toJSString qualifiedName))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.getElementsByTagName Mozilla Document.getElementsByTagName documentation> -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---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.getElementsByTagNameNS Mozilla Document.getElementsByTagNameNS documentation> -getElementsByTagNameNS ::- (MonadIO m, IsDocument self, ToJSString namespaceURI,- ToJSString localName) =>- self -> Maybe namespaceURI -> localName -> m HTMLCollection-getElementsByTagNameNS self namespaceURI localName- = liftIO- (js_getElementsByTagNameNS (toDocument self)- (toOptionalJSString namespaceURI)- (toJSString localName))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.getElementsByTagNameNS Mozilla Document.getElementsByTagNameNS documentation> -getElementsByTagNameNS_ ::- (MonadIO m, IsDocument self, ToJSString namespaceURI,- ToJSString localName) =>- self -> Maybe namespaceURI -> localName -> m ()-getElementsByTagNameNS_ self namespaceURI localName- = liftIO- (void- (js_getElementsByTagNameNS (toDocument self)- (toOptionalJSString namespaceURI)- (toJSString localName)))- -foreign import javascript unsafe- "(($1, $2) => { return $1[\"getElementsByClassName\"]($2); })" js_getElementsByClassName ::- Document -> JSString -> IO HTMLCollection---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.getElementsByClassName Mozilla Document.getElementsByClassName documentation> -getElementsByClassName ::- (MonadIO m, IsDocument self, ToJSString classNames) =>- self -> classNames -> m HTMLCollection-getElementsByClassName self classNames- = liftIO- (js_getElementsByClassName (toDocument self)- (toJSString classNames))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.getElementsByClassName Mozilla Document.getElementsByClassName documentation> -getElementsByClassName_ ::- (MonadIO m, IsDocument self, ToJSString classNames) =>- self -> classNames -> m ()-getElementsByClassName_ self classNames- = liftIO- (void- (js_getElementsByClassName (toDocument self)- (toJSString classNames)))- -foreign import javascript safe "(($1, $2) => { return $1[\"createElement\"]($2); })"- js_createElement :: Document -> JSString -> IO Element---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.createElement Mozilla Document.createElement documentation> -createElement ::- (MonadIO m, IsDocument self, ToJSString localName) =>- self -> localName -> m Element-createElement self localName- = liftIO- (js_createElement (toDocument self) (toJSString localName))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.createElement Mozilla Document.createElement documentation> -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---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.createElementNS Mozilla Document.createElementNS documentation> -createElementNS ::- (MonadIO m, IsDocument self, ToJSString namespaceURI,- ToJSString qualifiedName) =>- self -> Maybe namespaceURI -> qualifiedName -> m Element-createElementNS self namespaceURI qualifiedName- = liftIO- (js_createElementNS (toDocument self)- (toOptionalJSString namespaceURI)- (toJSString qualifiedName))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.createElementNS Mozilla Document.createElementNS documentation> -createElementNS_ ::- (MonadIO m, IsDocument self, ToJSString namespaceURI,- ToJSString qualifiedName) =>- self -> Maybe namespaceURI -> qualifiedName -> m ()-createElementNS_ self namespaceURI qualifiedName- = liftIO- (void- (js_createElementNS (toDocument self)- (toOptionalJSString namespaceURI)- (toJSString qualifiedName)))- -foreign import javascript unsafe "(($1) => { return $1[\"createDocumentFragment\"](); })"- js_createDocumentFragment :: Document -> IO DocumentFragment---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.createDocumentFragment Mozilla Document.createDocumentFragment documentation> -createDocumentFragment ::- (MonadIO m, IsDocument self) => self -> m DocumentFragment-createDocumentFragment self- = liftIO (js_createDocumentFragment (toDocument self))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.createDocumentFragment Mozilla Document.createDocumentFragment documentation> -createDocumentFragment_ ::- (MonadIO m, IsDocument self) => self -> m ()-createDocumentFragment_ self- = liftIO (void (js_createDocumentFragment (toDocument self)))- -foreign import javascript unsafe "(($1, $2) => { return $1[\"createTextNode\"]($2); })"- js_createTextNode :: Document -> JSString -> IO Text---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.createTextNode Mozilla Document.createTextNode documentation> -createTextNode ::- (MonadIO m, IsDocument self, ToJSString data') =>- self -> data' -> m Text-createTextNode self data'- = liftIO (js_createTextNode (toDocument self) (toJSString data'))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.createTextNode Mozilla Document.createTextNode documentation> -createTextNode_ ::- (MonadIO m, IsDocument self, ToJSString data') =>- self -> data' -> m ()-createTextNode_ self data'- = liftIO- (void (js_createTextNode (toDocument self) (toJSString data')))- -foreign import javascript safe "(($1, $2) => { return $1[\"createCDATASection\"]($2); })"- js_createCDATASection :: Document -> JSString -> IO CDATASection---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.createCDATASection Mozilla Document.createCDATASection documentation> -createCDATASection ::- (MonadIO m, IsDocument self, ToJSString data') =>- self -> data' -> m CDATASection-createCDATASection self data'- = liftIO- (js_createCDATASection (toDocument self) (toJSString data'))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.createCDATASection Mozilla Document.createCDATASection documentation> -createCDATASection_ ::- (MonadIO m, IsDocument self, ToJSString data') =>- self -> data' -> m ()-createCDATASection_ self data'- = liftIO- (void (js_createCDATASection (toDocument self) (toJSString data')))- -foreign import javascript unsafe "(($1, $2) => { return $1[\"createComment\"]($2); })"- js_createComment :: Document -> JSString -> IO Comment---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.createComment Mozilla Document.createComment documentation> -createComment ::- (MonadIO m, IsDocument self, ToJSString data') =>- self -> data' -> m Comment-createComment self data'- = liftIO (js_createComment (toDocument self) (toJSString data'))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.createComment Mozilla Document.createComment documentation> -createComment_ ::- (MonadIO m, IsDocument self, ToJSString data') =>- self -> data' -> m ()-createComment_ self data'- = liftIO- (void (js_createComment (toDocument self) (toJSString data')))- -foreign import javascript safe- "(($1, $2, $3) => { return $1[\"createProcessingInstruction\"]($2,\n$3); })"- js_createProcessingInstruction ::- Document -> JSString -> JSString -> IO ProcessingInstruction---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.createProcessingInstruction Mozilla Document.createProcessingInstruction documentation> -createProcessingInstruction ::- (MonadIO m, IsDocument self, ToJSString target,- ToJSString data') =>- self -> target -> data' -> m ProcessingInstruction-createProcessingInstruction self target data'- = liftIO- (js_createProcessingInstruction (toDocument self)- (toJSString target)- (toJSString data'))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.createProcessingInstruction Mozilla Document.createProcessingInstruction documentation> -createProcessingInstruction_ ::- (MonadIO m, IsDocument self, ToJSString target,- ToJSString data') =>- self -> target -> data' -> m ()-createProcessingInstruction_ self target data'- = liftIO- (void- (js_createProcessingInstruction (toDocument self)- (toJSString target)- (toJSString data')))- -foreign import javascript safe "(($1, $2, $3) => { return $1[\"importNode\"]($2, $3); })"- js_importNode :: Document -> Node -> Bool -> IO Node---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.importNode Mozilla Document.importNode documentation> -importNode ::- (MonadIO m, IsDocument self, IsNode node) =>- self -> node -> Bool -> m Node-importNode self node deep- = liftIO (js_importNode (toDocument self) (toNode node) deep)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.importNode Mozilla Document.importNode documentation> -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---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.adoptNode Mozilla Document.adoptNode documentation> -adoptNode ::- (MonadIO m, IsDocument self, IsNode node) => self -> node -> m Node-adoptNode self node- = liftIO (js_adoptNode (toDocument self) (toNode node))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.adoptNode Mozilla Document.adoptNode documentation> -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---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.createAttribute Mozilla Document.createAttribute documentation> -createAttribute ::- (MonadIO m, IsDocument self, ToJSString localName) =>- self -> localName -> m Attr-createAttribute self localName- = liftIO- (js_createAttribute (toDocument self) (toJSString localName))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.createAttribute Mozilla Document.createAttribute documentation> -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---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.createAttributeNS Mozilla Document.createAttributeNS documentation> -createAttributeNS ::- (MonadIO m, IsDocument self, ToJSString namespaceURI,- ToJSString qualifiedName) =>- self -> Maybe namespaceURI -> qualifiedName -> m Attr-createAttributeNS self namespaceURI qualifiedName- = liftIO- (js_createAttributeNS (toDocument self)- (toOptionalJSString namespaceURI)- (toJSString qualifiedName))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.createAttributeNS Mozilla Document.createAttributeNS documentation> -createAttributeNS_ ::- (MonadIO m, IsDocument self, ToJSString namespaceURI,- ToJSString qualifiedName) =>- self -> Maybe namespaceURI -> qualifiedName -> m ()-createAttributeNS_ self namespaceURI qualifiedName- = liftIO- (void- (js_createAttributeNS (toDocument self)- (toOptionalJSString namespaceURI)- (toJSString qualifiedName)))- -foreign import javascript safe "(($1, $2) => { return $1[\"createEvent\"]($2); })"- js_createEvent :: Document -> JSString -> IO Event---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.createEvent Mozilla Document.createEvent documentation> -createEvent ::- (MonadIO m, IsDocument self, ToJSString type') =>- self -> type' -> m Event-createEvent self type'- = liftIO (js_createEvent (toDocument self) (toJSString type'))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.createEvent Mozilla Document.createEvent documentation> -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---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.createRange Mozilla Document.createRange documentation> -createRange :: (MonadIO m, IsDocument self) => self -> m Range-createRange self = liftIO (js_createRange (toDocument self))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.createRange Mozilla Document.createRange documentation> -createRange_ :: (MonadIO m, IsDocument self) => self -> m ()-createRange_ self- = liftIO (void (js_createRange (toDocument self)))- -foreign import javascript unsafe- "(($1, $2, $3, $4) => { return $1[\"createNodeIterator\"]($2, $3,\n$4); })" js_createNodeIterator ::- Document ->- Node -> Optional Word -> Optional NodeFilter -> IO NodeIterator---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.createNodeIterator Mozilla Document.createNodeIterator documentation> -createNodeIterator ::- (MonadIO m, IsDocument self, IsNode root) =>- self -> root -> Maybe Word -> Maybe NodeFilter -> m NodeIterator-createNodeIterator self root whatToShow filter- = liftIO- (js_createNodeIterator (toDocument self) (toNode root)- (maybeToOptional whatToShow)- (maybeToOptional filter))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.createNodeIterator Mozilla Document.createNodeIterator documentation> -createNodeIterator_ ::- (MonadIO m, IsDocument self, IsNode root) =>- self -> root -> Maybe Word -> Maybe NodeFilter -> m ()-createNodeIterator_ self root whatToShow filter- = liftIO- (void- (js_createNodeIterator (toDocument self) (toNode root)- (maybeToOptional whatToShow)- (maybeToOptional filter)))- -foreign import javascript unsafe- "(($1, $2, $3, $4) => { return $1[\"createTreeWalker\"]($2, $3,\n$4); })" js_createTreeWalker ::- Document ->- Node -> Optional Word -> Optional NodeFilter -> IO TreeWalker---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.createTreeWalker Mozilla Document.createTreeWalker documentation> -createTreeWalker ::- (MonadIO m, IsDocument self, IsNode root) =>- self -> root -> Maybe Word -> Maybe NodeFilter -> m TreeWalker-createTreeWalker self root whatToShow filter- = liftIO- (js_createTreeWalker (toDocument self) (toNode root)- (maybeToOptional whatToShow)- (maybeToOptional filter))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.createTreeWalker Mozilla Document.createTreeWalker documentation> -createTreeWalker_ ::- (MonadIO m, IsDocument self, IsNode root) =>- self -> root -> Maybe Word -> Maybe NodeFilter -> m ()-createTreeWalker_ self root whatToShow filter- = liftIO- (void- (js_createTreeWalker (toDocument self) (toNode root)- (maybeToOptional whatToShow)- (maybeToOptional filter)))- -foreign import javascript unsafe "(($1, $2) => { return $1[\"getElementsByName\"]($2); })"- js_getElementsByName :: Document -> JSString -> IO NodeList---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.getElementsByName Mozilla Document.getElementsByName documentation> -getElementsByName ::- (MonadIO m, IsDocument self, ToJSString elementName) =>- self -> elementName -> m NodeList-getElementsByName self elementName- = liftIO- (js_getElementsByName (toDocument self) (toJSString elementName))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.getElementsByName Mozilla Document.getElementsByName documentation> -getElementsByName_ ::- (MonadIO m, IsDocument self, ToJSString elementName) =>- self -> elementName -> m ()-getElementsByName_ self elementName- = liftIO- (void- (js_getElementsByName (toDocument self) (toJSString elementName)))- -foreign import javascript unsafe "(($1) => { return ($1[\"hasFocus\"]() ? 1 : 0); })"- js_hasFocus :: Document -> IO Bool---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.hasFocus Mozilla Document.hasFocus documentation> -hasFocus :: (MonadIO m, IsDocument self) => self -> m Bool-hasFocus self = liftIO (js_hasFocus (toDocument self))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.hasFocus Mozilla Document.hasFocus documentation> -hasFocus_ :: (MonadIO m, IsDocument self) => self -> m ()-hasFocus_ self = liftIO (void (js_hasFocus (toDocument self)))- -foreign import javascript unsafe- "(($1, $2, $3, $4) => { return ($1[\"execCommand\"]($2, $3,\n$4) ? 1 : 0); })" js_execCommand ::- Document -> JSString -> Bool -> Optional JSString -> IO Bool---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.execCommand Mozilla Document.execCommand documentation> -execCommand ::- (MonadIO m, IsDocument self, ToJSString 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))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.execCommand Mozilla Document.execCommand documentation> -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---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.queryCommandEnabled Mozilla Document.queryCommandEnabled documentation> -queryCommandEnabled ::- (MonadIO m, IsDocument self, ToJSString commandId) =>- self -> commandId -> m Bool-queryCommandEnabled self commandId- = liftIO- (js_queryCommandEnabled (toDocument self) (toJSString commandId))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.queryCommandEnabled Mozilla Document.queryCommandEnabled documentation> -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---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.queryCommandIndeterm Mozilla Document.queryCommandIndeterm documentation> -queryCommandIndeterm ::- (MonadIO m, IsDocument self, ToJSString commandId) =>- self -> commandId -> m Bool-queryCommandIndeterm self commandId- = liftIO- (js_queryCommandIndeterm (toDocument self) (toJSString commandId))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.queryCommandIndeterm Mozilla Document.queryCommandIndeterm documentation> -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---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.queryCommandState Mozilla Document.queryCommandState documentation> -queryCommandState ::- (MonadIO m, IsDocument self, ToJSString commandId) =>- self -> commandId -> m Bool-queryCommandState self commandId- = liftIO- (js_queryCommandState (toDocument self) (toJSString commandId))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.queryCommandState Mozilla Document.queryCommandState documentation> -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---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.queryCommandSupported Mozilla Document.queryCommandSupported documentation> -queryCommandSupported ::- (MonadIO m, IsDocument self, ToJSString commandId) =>- self -> commandId -> m Bool-queryCommandSupported self commandId- = liftIO- (js_queryCommandSupported (toDocument self) (toJSString commandId))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.queryCommandSupported Mozilla Document.queryCommandSupported documentation> -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---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.queryCommandValue Mozilla Document.queryCommandValue documentation> -queryCommandValue ::- (MonadIO m, IsDocument self, ToJSString commandId,- FromJSString result) =>- self -> commandId -> m result-queryCommandValue self commandId- = liftIO- (fromJSString <$>- (js_queryCommandValue (toDocument self) (toJSString commandId)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.queryCommandValue Mozilla Document.queryCommandValue documentation> -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)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.getSelection Mozilla Document.getSelection documentation> -getSelection ::- (MonadIO m, IsDocument self) => self -> m (Maybe Selection)-getSelection self- = liftIO (nullableToMaybe <$> (js_getSelection (toDocument self)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.getSelection Mozilla Document.getSelection documentation> -getSelection_ :: (MonadIO m, IsDocument self) => self -> m ()-getSelection_ self- = liftIO (void (js_getSelection (toDocument self)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.getSelection Mozilla Document.getSelection documentation> -getSelectionUnsafe ::- (MonadIO m, IsDocument self, HasCallStack) => self -> m Selection-getSelectionUnsafe self- = liftIO- ((nullableToMaybe <$> (js_getSelection (toDocument self))) >>=- maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.getSelection Mozilla Document.getSelection documentation> -getSelectionUnchecked ::- (MonadIO m, IsDocument self) => self -> m Selection-getSelectionUnchecked self- = liftIO- (fromJust . nullableToMaybe <$>- (js_getSelection (toDocument self)))- -foreign import javascript safe "(($1, $2, $3) => { return $1[\"createExpression\"]($2, $3); })"- js_createExpression ::- Document ->- Optional JSString -> Optional XPathNSResolver -> IO XPathExpression---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.createExpression Mozilla Document.createExpression documentation> -createExpression ::- (MonadIO m, IsDocument self, ToJSString expression) =>- self ->- Maybe expression -> Maybe XPathNSResolver -> m XPathExpression-createExpression self expression resolver- = liftIO- (js_createExpression (toDocument self)- (toOptionalJSString expression)- (maybeToOptional resolver))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.createExpression Mozilla Document.createExpression documentation> -createExpression_ ::- (MonadIO m, IsDocument self, ToJSString expression) =>- self -> Maybe expression -> Maybe XPathNSResolver -> m ()-createExpression_ self expression resolver- = liftIO- (void- (js_createExpression (toDocument self)- (toOptionalJSString expression)- (maybeToOptional resolver)))- -foreign import javascript unsafe "(($1, $2) => { return $1[\"createNSResolver\"]($2); })"- js_createNSResolver ::- Document -> Optional Node -> IO XPathNSResolver---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.createNSResolver Mozilla Document.createNSResolver documentation> -createNSResolver ::- (MonadIO m, IsDocument self, IsNode nodeResolver) =>- self -> Maybe nodeResolver -> m XPathNSResolver-createNSResolver self nodeResolver- = liftIO- (js_createNSResolver (toDocument self)- (maybeToOptional (fmap toNode nodeResolver)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.createNSResolver Mozilla Document.createNSResolver documentation> -createNSResolver_ ::- (MonadIO m, IsDocument self, IsNode nodeResolver) =>- self -> Maybe nodeResolver -> m ()-createNSResolver_ self nodeResolver- = liftIO- (void- (js_createNSResolver (toDocument self)- (maybeToOptional (fmap toNode nodeResolver))))- -foreign import javascript 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---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.evaluate Mozilla Document.evaluate documentation> -evaluate ::- (MonadIO m, IsDocument self, ToJSString expression,- IsNode contextNode) =>- self ->- Maybe expression ->- Maybe contextNode ->- Maybe XPathNSResolver ->- Maybe Word -> Maybe XPathResult -> m XPathResult-evaluate self expression contextNode resolver type' inResult- = liftIO- (js_evaluate (toDocument self) (toOptionalJSString expression)- (maybeToOptional (fmap toNode contextNode))- (maybeToOptional resolver)- (maybeToOptional type')- (maybeToOptional inResult))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.evaluate Mozilla Document.evaluate documentation> -evaluate_ ::- (MonadIO m, IsDocument self, ToJSString expression,- IsNode contextNode) =>- self ->- Maybe expression ->- Maybe contextNode ->- Maybe XPathNSResolver -> Maybe Word -> Maybe XPathResult -> m ()-evaluate_ self expression contextNode resolver type' inResult- = liftIO- (void- (js_evaluate (toDocument self) (toOptionalJSString expression)- (maybeToOptional (fmap toNode contextNode))- (maybeToOptional resolver)- (maybeToOptional type')- (maybeToOptional inResult)))- -foreign import javascript unsafe "(($1) => { return $1[\"webkitExitFullscreen\"](); })"- js_webkitExitFullscreen :: Document -> IO ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.webkitExitFullscreen Mozilla Document.webkitExitFullscreen documentation> -webkitExitFullscreen ::- (MonadIO m, IsDocument self) => self -> m ()-webkitExitFullscreen self- = liftIO (js_webkitExitFullscreen (toDocument self))- -foreign import javascript unsafe "(($1) => { return $1[\"webkitCancelFullScreen\"](); })"- js_webkitCancelFullScreen :: Document -> IO ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.webkitCancelFullScreen Mozilla Document.webkitCancelFullScreen documentation> -webkitCancelFullScreen ::- (MonadIO m, IsDocument self) => self -> m ()-webkitCancelFullScreen self- = liftIO (js_webkitCancelFullScreen (toDocument self))- -foreign import javascript unsafe "(($1) => { return $1[\"exitPointerLock\"](); })"- js_exitPointerLock :: Document -> IO ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.exitPointerLock Mozilla Document.exitPointerLock documentation> -exitPointerLock :: (MonadIO m, IsDocument self) => self -> m ()-exitPointerLock self- = liftIO (js_exitPointerLock (toDocument self))- -foreign import javascript unsafe "(($1, $2, $3) => { return $1[\"getOverrideStyle\"]($2, $3); })"- js_getOverrideStyle ::- Document ->- Optional Element -> Optional JSString -> IO CSSStyleDeclaration---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.getOverrideStyle Mozilla Document.getOverrideStyle documentation> -getOverrideStyle ::- (MonadIO m, IsDocument self, IsElement element,- ToJSString pseudoElement) =>- self ->- Maybe element -> Maybe pseudoElement -> m CSSStyleDeclaration-getOverrideStyle self element pseudoElement- = liftIO- (js_getOverrideStyle (toDocument self)- (maybeToOptional (fmap toElement element))- (toOptionalJSString pseudoElement))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.getOverrideStyle Mozilla Document.getOverrideStyle documentation> -getOverrideStyle_ ::- (MonadIO m, IsDocument self, IsElement element,- ToJSString pseudoElement) =>- self -> Maybe element -> Maybe pseudoElement -> m ()-getOverrideStyle_ self element pseudoElement- = liftIO- (void- (js_getOverrideStyle (toDocument self)- (maybeToOptional (fmap toElement element))- (toOptionalJSString pseudoElement)))- -foreign import javascript unsafe- "(($1, $2, $3) => { return $1[\"caretRangeFromPoint\"]($2,\n$3); })" js_caretRangeFromPoint ::- Document -> Optional Int -> Optional Int -> IO Range---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.caretRangeFromPoint Mozilla Document.caretRangeFromPoint documentation> -caretRangeFromPoint ::- (MonadIO m, IsDocument self) =>- self -> Maybe Int -> Maybe Int -> m Range-caretRangeFromPoint self x y- = liftIO- (js_caretRangeFromPoint (toDocument self) (maybeToOptional x)- (maybeToOptional y))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.caretRangeFromPoint Mozilla Document.caretRangeFromPoint documentation> -caretRangeFromPoint_ ::- (MonadIO m, IsDocument self) =>- self -> Maybe Int -> Maybe Int -> m ()-caretRangeFromPoint_ self x y- = liftIO- (void- (js_caretRangeFromPoint (toDocument self) (maybeToOptional x)- (maybeToOptional y)))- -foreign import javascript unsafe- "(($1, $2, $3, $4, $5) => { return $1[\"getCSSCanvasContext\"]($2,\n$3, $4, $5); })"- js_getCSSCanvasContext ::- Document ->- JSString -> JSString -> Int -> Int -> IO RenderingContext---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.getCSSCanvasContext Mozilla Document.getCSSCanvasContext documentation> -getCSSCanvasContext ::- (MonadIO m, IsDocument self, ToJSString contextId,- ToJSString name) =>- self -> contextId -> name -> Int -> Int -> m RenderingContext-getCSSCanvasContext self contextId name width height- = liftIO- (js_getCSSCanvasContext (toDocument self) (toJSString contextId)- (toJSString name)- width- height)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.getCSSCanvasContext Mozilla Document.getCSSCanvasContext documentation> -getCSSCanvasContext_ ::- (MonadIO m, IsDocument self, ToJSString contextId,- ToJSString name) =>- self -> contextId -> name -> Int -> Int -> m ()-getCSSCanvasContext_ self contextId name width height- = liftIO- (void- (js_getCSSCanvasContext (toDocument self) (toJSString contextId)- (toJSString name)- width- height))- -foreign import javascript unsafe "(($1) => { return $1[\"webkitGetNamedFlows\"](); })"- js_webkitGetNamedFlows :: Document -> IO DOMNamedFlowCollection---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.webkitGetNamedFlows Mozilla Document.webkitGetNamedFlows documentation> -webkitGetNamedFlows ::- (MonadIO m, IsDocument self) => self -> m DOMNamedFlowCollection-webkitGetNamedFlows self- = liftIO (js_webkitGetNamedFlows (toDocument self))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.webkitGetNamedFlows Mozilla Document.webkitGetNamedFlows documentation> -webkitGetNamedFlows_ ::- (MonadIO m, IsDocument self) => self -> m ()-webkitGetNamedFlows_ self- = liftIO (void (js_webkitGetNamedFlows (toDocument self)))- -foreign import javascript unsafe- "(($1, $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---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.createTouch Mozilla Document.createTouch documentation> -createTouch ::- (MonadIO m, IsDocument self, IsEventTarget target) =>- self ->- Maybe Window ->- Maybe target ->- Maybe Int ->- Maybe Int ->- Maybe Int ->- Maybe Int ->- Maybe Int ->- Maybe Int -> Maybe Int -> Maybe Float -> Maybe Float -> m Touch-createTouch self window target identifier pageX pageY screenX- screenY webkitRadiusX webkitRadiusY webkitRotationAngle webkitForce- = liftIO- (js_createTouch (toDocument self) (maybeToOptional window)- (maybeToOptional (fmap toEventTarget target))- (maybeToOptional identifier)- (maybeToOptional pageX)- (maybeToOptional pageY)- (maybeToOptional screenX)- (maybeToOptional screenY)- (maybeToOptional webkitRadiusX)- (maybeToOptional webkitRadiusY)- (maybeToOptional webkitRotationAngle)- (maybeToOptional webkitForce))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.createTouch Mozilla Document.createTouch documentation> -createTouch_ ::- (MonadIO m, IsDocument self, IsEventTarget target) =>- self ->- Maybe Window ->- Maybe target ->- Maybe Int ->- Maybe Int ->- Maybe Int ->- Maybe Int ->- Maybe Int ->- Maybe Int -> Maybe Int -> Maybe Float -> Maybe Float -> m ()-createTouch_ self window target identifier pageX pageY screenX- screenY webkitRadiusX webkitRadiusY webkitRotationAngle webkitForce- = liftIO- (void- (js_createTouch (toDocument self) (maybeToOptional window)- (maybeToOptional (fmap toEventTarget target))- (maybeToOptional identifier)- (maybeToOptional pageX)- (maybeToOptional pageY)- (maybeToOptional screenX)- (maybeToOptional screenY)- (maybeToOptional webkitRadiusX)- (maybeToOptional webkitRadiusY)- (maybeToOptional webkitRotationAngle)- (maybeToOptional webkitForce)))- -foreign import javascript unsafe "(($1, $2) => { return $1[\"createTouchList\"]($2); })"- js_createTouchList :: Document -> JSVal -> IO TouchList---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.createTouchList Mozilla Document.createTouchList documentation> -createTouchList ::- (MonadIO m, IsDocument self) => self -> [Touch] -> m TouchList-createTouchList self touches- = liftIO- (toJSVal touches >>=- \ touches' -> js_createTouchList (toDocument self) touches')---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.createTouchList Mozilla Document.createTouchList documentation> -createTouchList_ ::- (MonadIO m, IsDocument self) => self -> [Touch] -> m ()-createTouchList_ self touches- = liftIO- (void- (toJSVal touches >>=- \ touches' -> js_createTouchList (toDocument self) touches'))- -foreign import javascript unsafe "(($1) => { return $1[\"timeline\"]; })" js_getTimeline- :: Document -> IO DocumentTimeline---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.timeline Mozilla Document.timeline documentation> -getTimeline ::- (MonadIO m, IsDocument self) => self -> m DocumentTimeline-getTimeline self = liftIO (js_getTimeline (toDocument self))- -foreign import javascript unsafe "(($1) => { return $1[\"implementation\"]; })"- js_getImplementation :: Document -> IO DOMImplementation---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.implementation Mozilla Document.implementation documentation> -getImplementation ::- (MonadIO m, IsDocument self) => self -> m DOMImplementation-getImplementation self- = liftIO (js_getImplementation (toDocument self))- -foreign import javascript unsafe "(($1) => { return $1[\"URL\"]; })" js_getURL ::- Document -> IO JSString---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.URL Mozilla Document.URL documentation> -getURL ::- (MonadIO m, IsDocument self, FromJSString result) =>- self -> m result-getURL self- = liftIO (fromJSString <$> (js_getURL (toDocument self)))- -foreign import javascript unsafe "(($1) => { return $1[\"documentURI\"]; })"- js_getDocumentURI :: Document -> IO JSString---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.documentURI Mozilla Document.documentURI documentation> -getDocumentURI ::- (MonadIO m, IsDocument self, FromJSString result) =>- self -> m result-getDocumentURI self- = liftIO (fromJSString <$> (js_getDocumentURI (toDocument self)))- -foreign import javascript unsafe "(($1) => { return $1[\"origin\"]; })" js_getOrigin ::- Document -> IO JSString---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.origin Mozilla Document.origin documentation> -getOrigin ::- (MonadIO m, IsDocument self, FromJSString result) =>- self -> m result-getOrigin self- = liftIO (fromJSString <$> (js_getOrigin (toDocument self)))- -foreign import javascript unsafe "(($1) => { return $1[\"compatMode\"]; })"- js_getCompatMode :: Document -> IO JSString---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.compatMode Mozilla Document.compatMode documentation> -getCompatMode ::- (MonadIO m, IsDocument self, FromJSString result) =>- self -> m result-getCompatMode self- = liftIO (fromJSString <$> (js_getCompatMode (toDocument self)))- -foreign import javascript unsafe "(($1) => { return $1[\"characterSet\"]; })"- js_getCharacterSet :: Document -> IO JSString---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.characterSet Mozilla Document.characterSet documentation> -getCharacterSet ::- (MonadIO m, IsDocument self, FromJSString result) =>- self -> m result-getCharacterSet self- = liftIO (fromJSString <$> (js_getCharacterSet (toDocument self)))- -foreign import javascript unsafe "(($1) => { return $1[\"charset\"]; })" js_getCharset ::- Document -> IO JSString---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.charset Mozilla Document.charset documentation> -getCharset ::- (MonadIO m, IsDocument self, FromJSString result) =>- self -> m result-getCharset self- = liftIO (fromJSString <$> (js_getCharset (toDocument self)))- -foreign import javascript unsafe "(($1) => { return $1[\"inputEncoding\"]; })"- js_getInputEncoding :: Document -> IO JSString---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.inputEncoding Mozilla Document.inputEncoding documentation> -getInputEncoding ::- (MonadIO m, IsDocument self, FromJSString result) =>- self -> m result-getInputEncoding self- = liftIO (fromJSString <$> (js_getInputEncoding (toDocument self)))- -foreign import javascript unsafe "(($1) => { return $1[\"contentType\"]; })"- js_getContentType :: Document -> IO JSString---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.contentType Mozilla Document.contentType documentation> -getContentType ::- (MonadIO m, IsDocument self, FromJSString result) =>- self -> m result-getContentType self- = liftIO (fromJSString <$> (js_getContentType (toDocument self)))- -foreign import javascript unsafe "(($1) => { return $1[\"doctype\"]; })" js_getDoctype ::- Document -> IO (Nullable DocumentType)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.doctype Mozilla Document.doctype documentation> -getDoctype ::- (MonadIO m, IsDocument self) => self -> m (Maybe DocumentType)-getDoctype self- = liftIO (nullableToMaybe <$> (js_getDoctype (toDocument self)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.doctype Mozilla Document.doctype documentation> -getDoctypeUnsafe ::- (MonadIO m, IsDocument self, HasCallStack) =>- self -> m DocumentType-getDoctypeUnsafe self- = liftIO- ((nullableToMaybe <$> (js_getDoctype (toDocument self))) >>=- maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.doctype Mozilla Document.doctype documentation> -getDoctypeUnchecked ::- (MonadIO m, IsDocument self) => self -> m DocumentType-getDoctypeUnchecked self- = liftIO- (fromJust . nullableToMaybe <$> (js_getDoctype (toDocument self)))- -foreign import javascript unsafe "(($1) => { return $1[\"documentElement\"]; })"- js_getDocumentElement :: Document -> IO (Nullable Element)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.documentElement Mozilla Document.documentElement documentation> -getDocumentElement ::- (MonadIO m, IsDocument self) => self -> m (Maybe Element)-getDocumentElement self- = liftIO- (nullableToMaybe <$> (js_getDocumentElement (toDocument self)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.documentElement Mozilla Document.documentElement documentation> -getDocumentElementUnsafe ::- (MonadIO m, IsDocument self, HasCallStack) => self -> m Element-getDocumentElementUnsafe self- = liftIO- ((nullableToMaybe <$> (js_getDocumentElement (toDocument self)))- >>= maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.documentElement Mozilla Document.documentElement documentation> -getDocumentElementUnchecked ::- (MonadIO m, IsDocument self) => self -> m Element-getDocumentElementUnchecked self- = liftIO- (fromJust . nullableToMaybe <$>- (js_getDocumentElement (toDocument self)))- -foreign import javascript unsafe "(($1) => { return $1[\"location\"]; })" js_getLocation- :: Document -> IO (Nullable Location)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.location Mozilla Document.location documentation> -getLocation ::- (MonadIO m, IsDocument self) => self -> m (Maybe Location)-getLocation self- = liftIO (nullableToMaybe <$> (js_getLocation (toDocument self)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.location Mozilla Document.location documentation> -getLocationUnsafe ::- (MonadIO m, IsDocument self, HasCallStack) => self -> m Location-getLocationUnsafe self- = liftIO- ((nullableToMaybe <$> (js_getLocation (toDocument self))) >>=- maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.location Mozilla Document.location documentation> -getLocationUnchecked ::- (MonadIO m, IsDocument self) => self -> m Location-getLocationUnchecked self- = liftIO- (fromJust . nullableToMaybe <$> (js_getLocation (toDocument self)))- -foreign import javascript safe "(($1, $2) => { $1[\"domain\"] = $2; })" js_setDomain- :: Document -> JSString -> IO ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.domain Mozilla Document.domain documentation> -setDomain ::- (MonadIO m, IsDocument self, ToJSString val) => self -> val -> m ()-setDomain self val- = liftIO (js_setDomain (toDocument self) (toJSString val))- -foreign import javascript unsafe "(($1) => { return $1[\"domain\"]; })" js_getDomain ::- Document -> IO JSString---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.domain Mozilla Document.domain documentation> -getDomain ::- (MonadIO m, IsDocument self, FromJSString result) =>- self -> m result-getDomain self- = liftIO (fromJSString <$> (js_getDomain (toDocument self)))- -foreign import javascript unsafe "(($1) => { return $1[\"referrer\"]; })" js_getReferrer- :: Document -> IO JSString---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.referrer Mozilla Document.referrer documentation> -getReferrer ::- (MonadIO m, IsDocument self, FromJSString result) =>- self -> m result-getReferrer self- = liftIO (fromJSString <$> (js_getReferrer (toDocument self)))- -foreign import javascript safe "(($1, $2) => { $1[\"cookie\"] = $2; })" js_setCookie- :: Document -> JSString -> IO ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.cookie Mozilla Document.cookie documentation> -setCookie ::- (MonadIO m, IsDocument self, ToJSString val) => self -> val -> m ()-setCookie self val- = liftIO (js_setCookie (toDocument self) (toJSString val))- -foreign import javascript safe "(($1) => { return $1[\"cookie\"]; })" js_getCookie ::- Document -> IO JSString---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.cookie Mozilla Document.cookie documentation> -getCookie ::- (MonadIO m, IsDocument self, FromJSString result) =>- self -> m result-getCookie self- = liftIO (fromJSString <$> (js_getCookie (toDocument self)))- -foreign import javascript unsafe "(($1) => { return $1[\"lastModified\"]; })"- js_getLastModified :: Document -> IO JSString---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.lastModified Mozilla Document.lastModified documentation> -getLastModified ::- (MonadIO m, IsDocument self, FromJSString result) =>- self -> m result-getLastModified self- = liftIO (fromJSString <$> (js_getLastModified (toDocument self)))- -foreign import javascript unsafe "(($1) => { return $1[\"readyState\"]; })"- js_getReadyState :: Document -> IO JSVal---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.readyState Mozilla Document.readyState documentation> -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 ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.title Mozilla Document.title documentation> -setTitle ::- (MonadIO m, IsDocument self, ToJSString val) => self -> val -> m ()-setTitle self val- = liftIO (js_setTitle (toDocument self) (toJSString val))- -foreign import javascript unsafe "(($1) => { return $1[\"title\"]; })" js_getTitle ::- Document -> IO JSString---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.title Mozilla Document.title documentation> -getTitle ::- (MonadIO m, IsDocument self, FromJSString result) =>- self -> m result-getTitle self- = liftIO (fromJSString <$> (js_getTitle (toDocument self)))- -foreign import javascript unsafe "(($1, $2) => { $1[\"dir\"] = $2; })" js_setDir ::- Document -> JSString -> IO ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.dir Mozilla Document.dir documentation> -setDir ::- (MonadIO m, IsDocument self, ToJSString val) => self -> val -> m ()-setDir self val- = liftIO (js_setDir (toDocument self) (toJSString val))- -foreign import javascript unsafe "(($1) => { return $1[\"dir\"]; })" js_getDir ::- Document -> IO JSString---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.dir Mozilla Document.dir documentation> -getDir ::- (MonadIO m, IsDocument self, FromJSString result) =>- self -> m result-getDir self- = liftIO (fromJSString <$> (js_getDir (toDocument self)))- -foreign import javascript safe "(($1, $2) => { $1[\"body\"] = $2; })" js_setBody ::- Document -> Optional HTMLElement -> IO ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.body Mozilla Document.body documentation> -setBody ::- (MonadIO m, IsDocument self, IsHTMLElement val) =>- self -> Maybe val -> m ()-setBody self val- = liftIO- (js_setBody (toDocument self)- (maybeToOptional (fmap toHTMLElement val)))- -foreign import javascript unsafe "(($1) => { return $1[\"body\"]; })" js_getBody ::- Document -> IO (Nullable HTMLElement)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.body Mozilla Document.body documentation> -getBody ::- (MonadIO m, IsDocument self) => self -> m (Maybe HTMLElement)-getBody self- = liftIO (nullableToMaybe <$> (js_getBody (toDocument self)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.body Mozilla Document.body documentation> -getBodyUnsafe ::- (MonadIO m, IsDocument self, HasCallStack) => self -> m HTMLElement-getBodyUnsafe self- = liftIO- ((nullableToMaybe <$> (js_getBody (toDocument self))) >>=- maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.body Mozilla Document.body documentation> -getBodyUnchecked ::- (MonadIO m, IsDocument self) => self -> m HTMLElement-getBodyUnchecked self- = liftIO- (fromJust . nullableToMaybe <$> (js_getBody (toDocument self)))- -foreign import javascript unsafe "(($1) => { return $1[\"head\"]; })" js_getHead ::- Document -> IO (Nullable HTMLHeadElement)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.head Mozilla Document.head documentation> -getHead ::- (MonadIO m, IsDocument self) => self -> m (Maybe HTMLHeadElement)-getHead self- = liftIO (nullableToMaybe <$> (js_getHead (toDocument self)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.head Mozilla Document.head documentation> -getHeadUnsafe ::- (MonadIO m, IsDocument self, HasCallStack) =>- self -> m HTMLHeadElement-getHeadUnsafe self- = liftIO- ((nullableToMaybe <$> (js_getHead (toDocument self))) >>=- maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.head Mozilla Document.head documentation> -getHeadUnchecked ::- (MonadIO m, IsDocument self) => self -> m HTMLHeadElement-getHeadUnchecked self- = liftIO- (fromJust . nullableToMaybe <$> (js_getHead (toDocument self)))- -foreign import javascript unsafe "(($1) => { return $1[\"images\"]; })" js_getImages ::- Document -> IO HTMLCollection---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.images Mozilla Document.images documentation> -getImages ::- (MonadIO m, IsDocument self) => self -> m HTMLCollection-getImages self = liftIO (js_getImages (toDocument self))- -foreign import javascript unsafe "(($1) => { return $1[\"embeds\"]; })" js_getEmbeds ::- Document -> IO HTMLCollection---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.embeds Mozilla Document.embeds documentation> -getEmbeds ::- (MonadIO m, IsDocument self) => self -> m HTMLCollection-getEmbeds self = liftIO (js_getEmbeds (toDocument self))- -foreign import javascript unsafe "(($1) => { return $1[\"plugins\"]; })" js_getPlugins ::- Document -> IO HTMLCollection---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.plugins Mozilla Document.plugins documentation> -getPlugins ::- (MonadIO m, IsDocument self) => self -> m HTMLCollection-getPlugins self = liftIO (js_getPlugins (toDocument self))- -foreign import javascript unsafe "(($1) => { return $1[\"links\"]; })" js_getLinks ::- Document -> IO HTMLCollection---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.links Mozilla Document.links documentation> -getLinks ::- (MonadIO m, IsDocument self) => self -> m HTMLCollection-getLinks self = liftIO (js_getLinks (toDocument self))- -foreign import javascript unsafe "(($1) => { return $1[\"forms\"]; })" js_getForms ::- Document -> IO HTMLCollection---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.forms Mozilla Document.forms documentation> -getForms ::- (MonadIO m, IsDocument self) => self -> m HTMLCollection-getForms self = liftIO (js_getForms (toDocument self))- -foreign import javascript unsafe "(($1) => { return $1[\"scripts\"]; })" js_getScripts ::- Document -> IO HTMLCollection---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.scripts Mozilla Document.scripts documentation> -getScripts ::- (MonadIO m, IsDocument self) => self -> m HTMLCollection-getScripts self = liftIO (js_getScripts (toDocument self))- -foreign import javascript unsafe "(($1) => { return $1[\"currentScript\"]; })"- js_getCurrentScript :: Document -> IO (Nullable HTMLScriptElement)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.currentScript Mozilla Document.currentScript documentation> -getCurrentScript ::- (MonadIO m, IsDocument self) => self -> m (Maybe HTMLScriptElement)-getCurrentScript self- = liftIO- (nullableToMaybe <$> (js_getCurrentScript (toDocument self)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.currentScript Mozilla Document.currentScript documentation> -getCurrentScriptUnsafe ::- (MonadIO m, IsDocument self, HasCallStack) =>- self -> m HTMLScriptElement-getCurrentScriptUnsafe self- = liftIO- ((nullableToMaybe <$> (js_getCurrentScript (toDocument self))) >>=- maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.currentScript Mozilla Document.currentScript documentation> -getCurrentScriptUnchecked ::- (MonadIO m, IsDocument self) => self -> m HTMLScriptElement-getCurrentScriptUnchecked self- = liftIO- (fromJust . nullableToMaybe <$>- (js_getCurrentScript (toDocument self)))- -foreign import javascript unsafe "(($1) => { return $1[\"defaultView\"]; })"- js_getDefaultView :: Document -> IO (Nullable Window)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.defaultView Mozilla Document.defaultView documentation> -getDefaultView ::- (MonadIO m, IsDocument self) => self -> m (Maybe Window)-getDefaultView self- = liftIO- (nullableToMaybe <$> (js_getDefaultView (toDocument self)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.defaultView Mozilla Document.defaultView documentation> -getDefaultViewUnsafe ::- (MonadIO m, IsDocument self, HasCallStack) => self -> m Window-getDefaultViewUnsafe self- = liftIO- ((nullableToMaybe <$> (js_getDefaultView (toDocument self))) >>=- maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.defaultView Mozilla Document.defaultView documentation> -getDefaultViewUnchecked ::- (MonadIO m, IsDocument self) => self -> m Window-getDefaultViewUnchecked self- = liftIO- (fromJust . nullableToMaybe <$>- (js_getDefaultView (toDocument self)))- -foreign import javascript unsafe "(($1, $2) => { $1[\"designMode\"] = $2; })"- js_setDesignMode :: Document -> JSString -> IO ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.designMode Mozilla Document.designMode documentation> -setDesignMode ::- (MonadIO m, IsDocument self, ToJSString val) => self -> val -> m ()-setDesignMode self val- = liftIO (js_setDesignMode (toDocument self) (toJSString val))- -foreign import javascript unsafe "(($1) => { return $1[\"designMode\"]; })"- js_getDesignMode :: Document -> IO JSString---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.designMode Mozilla Document.designMode documentation> -getDesignMode ::- (MonadIO m, IsDocument self, FromJSString result) =>- self -> m result-getDesignMode self- = liftIO (fromJSString <$> (js_getDesignMode (toDocument self)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.onreadystatechange Mozilla Document.onreadystatechange documentation> -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---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.styleSheets Mozilla Document.styleSheets documentation> -getStyleSheets ::- (MonadIO m, IsDocument self) => self -> m StyleSheetList-getStyleSheets self = liftIO (js_getStyleSheets (toDocument self))- -foreign import javascript unsafe "(($1) => { return $1[\"scrollingElement\"]; })"- js_getScrollingElement :: Document -> IO (Nullable Element)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.scrollingElement Mozilla Document.scrollingElement documentation> -getScrollingElement ::- (MonadIO m, IsDocument self) => self -> m (Maybe Element)-getScrollingElement self- = liftIO- (nullableToMaybe <$> (js_getScrollingElement (toDocument self)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.scrollingElement Mozilla Document.scrollingElement documentation> -getScrollingElementUnsafe ::- (MonadIO m, IsDocument self, HasCallStack) => self -> m Element-getScrollingElementUnsafe self- = liftIO- ((nullableToMaybe <$> (js_getScrollingElement (toDocument self)))- >>= maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.scrollingElement Mozilla Document.scrollingElement documentation> -getScrollingElementUnchecked ::- (MonadIO m, IsDocument self) => self -> m Element-getScrollingElementUnchecked self- = liftIO- (fromJust . nullableToMaybe <$>- (js_getScrollingElement (toDocument self)))- -foreign import javascript unsafe- "(($1) => { return ($1[\"webkitFullscreenEnabled\"] ? 1 : 0); })"- js_getWebkitFullscreenEnabled :: Document -> IO Bool---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.webkitFullscreenEnabled Mozilla Document.webkitFullscreenEnabled documentation> -getWebkitFullscreenEnabled ::- (MonadIO m, IsDocument self) => self -> m Bool-getWebkitFullscreenEnabled self- = liftIO (js_getWebkitFullscreenEnabled (toDocument self))- -foreign import javascript unsafe "(($1) => { return $1[\"webkitFullscreenElement\"]; })"- js_getWebkitFullscreenElement :: Document -> IO (Nullable Element)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.webkitFullscreenElement Mozilla Document.webkitFullscreenElement documentation> -getWebkitFullscreenElement ::- (MonadIO m, IsDocument self) => self -> m (Maybe Element)-getWebkitFullscreenElement self- = liftIO- (nullableToMaybe <$>- (js_getWebkitFullscreenElement (toDocument self)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.webkitFullscreenElement Mozilla Document.webkitFullscreenElement documentation> -getWebkitFullscreenElementUnsafe ::- (MonadIO m, IsDocument self, HasCallStack) => self -> m Element-getWebkitFullscreenElementUnsafe self- = liftIO- ((nullableToMaybe <$>- (js_getWebkitFullscreenElement (toDocument self)))- >>= maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.webkitFullscreenElement Mozilla Document.webkitFullscreenElement documentation> -getWebkitFullscreenElementUnchecked ::- (MonadIO m, IsDocument self) => self -> m Element-getWebkitFullscreenElementUnchecked self- = liftIO- (fromJust . nullableToMaybe <$>- (js_getWebkitFullscreenElement (toDocument self)))- -foreign import javascript unsafe- "(($1) => { return ($1[\"webkitIsFullScreen\"] ? 1 : 0); })" js_getWebkitIsFullScreen ::- Document -> IO Bool---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.webkitIsFullScreen Mozilla Document.webkitIsFullScreen documentation> -getWebkitIsFullScreen ::- (MonadIO m, IsDocument self) => self -> m Bool-getWebkitIsFullScreen self- = liftIO (js_getWebkitIsFullScreen (toDocument self))- -foreign import javascript unsafe- "(($1) => { return ($1[\"webkitFullScreenKeyboardInputAllowed\"] ? 1 : 0); })"- js_getWebkitFullScreenKeyboardInputAllowed :: Document -> IO Bool---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.webkitFullScreenKeyboardInputAllowed Mozilla Document.webkitFullScreenKeyboardInputAllowed documentation> -getWebkitFullScreenKeyboardInputAllowed ::- (MonadIO m, IsDocument self) => self -> m Bool-getWebkitFullScreenKeyboardInputAllowed self- = liftIO- (js_getWebkitFullScreenKeyboardInputAllowed (toDocument self))- -foreign import javascript unsafe- "(($1) => { return $1[\"webkitCurrentFullScreenElement\"]; })"- js_getWebkitCurrentFullScreenElement :: Document -> IO Element---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.webkitCurrentFullScreenElement Mozilla Document.webkitCurrentFullScreenElement documentation> -getWebkitCurrentFullScreenElement ::- (MonadIO m, IsDocument self) => self -> m Element-getWebkitCurrentFullScreenElement self- = liftIO (js_getWebkitCurrentFullScreenElement (toDocument self))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.onwebkitfullscreenchange Mozilla Document.onwebkitfullscreenchange documentation> -webKitFullscreenChange ::- (IsDocument self, IsEventTarget self) => EventName self Event-webKitFullscreenChange- = unsafeEventName (toJSString "webkitfullscreenchange")---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.onwebkitfullscreenerror Mozilla Document.onwebkitfullscreenerror documentation> -webKitFullscreenError ::- (IsDocument self, IsEventTarget self) => EventName self Event-webKitFullscreenError- = unsafeEventName (toJSString "webkitfullscreenerror")---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.onpointerlockchange Mozilla Document.onpointerlockchange documentation> -pointerlockchange ::- (IsDocument self, IsEventTarget self) => EventName self Event-pointerlockchange- = unsafeEventName (toJSString "pointerlockchange")---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.onpointerlockerror Mozilla Document.onpointerlockerror documentation> -pointerlockerror ::- (IsDocument self, IsEventTarget self) => EventName self Event-pointerlockerror = unsafeEventName (toJSString "pointerlockerror")- -foreign import javascript unsafe "(($1) => { return $1[\"fonts\"]; })" js_getFonts ::- Document -> IO FontFaceSet---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.fonts Mozilla Document.fonts documentation> -getFonts :: (MonadIO m, IsDocument self) => self -> m FontFaceSet-getFonts self = liftIO (js_getFonts (toDocument self))- -foreign import javascript unsafe "(($1) => { return ($1[\"hidden\"] ? 1 : 0); })"- js_getHidden :: Document -> IO Bool---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.hidden Mozilla Document.hidden documentation> -getHidden :: (MonadIO m, IsDocument self) => self -> m Bool-getHidden self = liftIO (js_getHidden (toDocument self))- -foreign import javascript unsafe "(($1) => { return $1[\"visibilityState\"]; })"- js_getVisibilityState :: Document -> IO JSVal---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.visibilityState Mozilla Document.visibilityState documentation> -getVisibilityState ::- (MonadIO m, IsDocument self) => self -> m VisibilityState-getVisibilityState self- = liftIO- ((js_getVisibilityState (toDocument self)) >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.onvisibilitychange Mozilla Document.onvisibilitychange documentation> -visibilitychange ::- (IsDocument self, IsEventTarget self) => EventName self Event-visibilitychange = unsafeEventName (toJSString "visibilitychange")- -foreign import javascript unsafe "(($1) => { return $1[\"applets\"]; })" js_getApplets ::- Document -> IO HTMLCollection---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.applets Mozilla Document.applets documentation> -getApplets ::- (MonadIO m, IsDocument self) => self -> m HTMLCollection-getApplets self = liftIO (js_getApplets (toDocument self))- -foreign import javascript unsafe "(($1) => { return $1[\"anchors\"]; })" js_getAnchors ::- Document -> IO HTMLCollection---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.anchors Mozilla Document.anchors documentation> -getAnchors ::- (MonadIO m, IsDocument self) => self -> m HTMLCollection-getAnchors self = liftIO (js_getAnchors (toDocument self))- -foreign import javascript unsafe "(($1) => { return $1[\"preferredStylesheetSet\"]; })"- js_getPreferredStylesheetSet :: Document -> IO (Nullable JSString)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.preferredStylesheetSet Mozilla Document.preferredStylesheetSet documentation> -getPreferredStylesheetSet ::- (MonadIO m, IsDocument self, FromJSString result) =>- self -> m (Maybe result)-getPreferredStylesheetSet self- = liftIO- (fromMaybeJSString <$>- (js_getPreferredStylesheetSet (toDocument self)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.preferredStylesheetSet Mozilla Document.preferredStylesheetSet documentation> -getPreferredStylesheetSetUnsafe ::- (MonadIO m, IsDocument self, HasCallStack, FromJSString result) =>- self -> m result-getPreferredStylesheetSetUnsafe self- = liftIO- ((fromMaybeJSString <$>- (js_getPreferredStylesheetSet (toDocument self)))- >>= maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.preferredStylesheetSet Mozilla Document.preferredStylesheetSet documentation> -getPreferredStylesheetSetUnchecked ::- (MonadIO m, IsDocument self, FromJSString result) =>- self -> m result-getPreferredStylesheetSetUnchecked self- = liftIO- (fromJust . fromMaybeJSString <$>- (js_getPreferredStylesheetSet (toDocument self)))- -foreign import javascript unsafe- "(($1, $2) => { $1[\"selectedStylesheetSet\"] = $2; })" js_setSelectedStylesheetSet- :: Document -> Optional JSString -> IO ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.selectedStylesheetSet Mozilla Document.selectedStylesheetSet documentation> -setSelectedStylesheetSet ::- (MonadIO m, IsDocument self, ToJSString val) =>- self -> Maybe val -> m ()-setSelectedStylesheetSet self val- = liftIO- (js_setSelectedStylesheetSet (toDocument self)- (toOptionalJSString val))- -foreign import javascript unsafe "(($1) => { return $1[\"selectedStylesheetSet\"]; })"- js_getSelectedStylesheetSet :: Document -> IO (Nullable JSString)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.selectedStylesheetSet Mozilla Document.selectedStylesheetSet documentation> -getSelectedStylesheetSet ::- (MonadIO m, IsDocument self, FromJSString result) =>- self -> m (Maybe result)-getSelectedStylesheetSet self- = liftIO- (fromMaybeJSString <$>- (js_getSelectedStylesheetSet (toDocument self)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.selectedStylesheetSet Mozilla Document.selectedStylesheetSet documentation> -getSelectedStylesheetSetUnsafe ::- (MonadIO m, IsDocument self, HasCallStack, FromJSString result) =>- self -> m result-getSelectedStylesheetSetUnsafe self- = liftIO- ((fromMaybeJSString <$>- (js_getSelectedStylesheetSet (toDocument self)))- >>= maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.selectedStylesheetSet Mozilla Document.selectedStylesheetSet documentation> -getSelectedStylesheetSetUnchecked ::- (MonadIO m, IsDocument self, FromJSString result) =>- self -> m result-getSelectedStylesheetSetUnchecked self- = liftIO- (fromJust . fromMaybeJSString <$>- (js_getSelectedStylesheetSet (toDocument self)))- -foreign import javascript unsafe "(($1) => { return $1[\"xmlEncoding\"]; })"- js_getXmlEncoding :: Document -> IO (Nullable JSString)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.xmlEncoding Mozilla Document.xmlEncoding documentation> -getXmlEncoding ::- (MonadIO m, IsDocument self, FromJSString result) =>- self -> m (Maybe result)-getXmlEncoding self- = liftIO- (fromMaybeJSString <$> (js_getXmlEncoding (toDocument self)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.xmlEncoding Mozilla Document.xmlEncoding documentation> -getXmlEncodingUnsafe ::- (MonadIO m, IsDocument self, HasCallStack, FromJSString result) =>- self -> m result-getXmlEncodingUnsafe self- = liftIO- ((fromMaybeJSString <$> (js_getXmlEncoding (toDocument self))) >>=- maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.xmlEncoding Mozilla Document.xmlEncoding documentation> -getXmlEncodingUnchecked ::- (MonadIO m, IsDocument self, FromJSString result) =>- self -> m result-getXmlEncodingUnchecked self- = liftIO- (fromJust . fromMaybeJSString <$>- (js_getXmlEncoding (toDocument self)))- -foreign import javascript safe "(($1, $2) => { $1[\"xmlVersion\"] = $2; })"- js_setXmlVersion :: Document -> Optional JSString -> IO ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.xmlVersion Mozilla Document.xmlVersion documentation> -setXmlVersion ::- (MonadIO m, IsDocument self, ToJSString val) =>- self -> Maybe val -> m ()-setXmlVersion self val- = liftIO- (js_setXmlVersion (toDocument self) (toOptionalJSString val))- -foreign import javascript unsafe "(($1) => { return $1[\"xmlVersion\"]; })"- js_getXmlVersion :: Document -> IO (Nullable JSString)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.xmlVersion Mozilla Document.xmlVersion documentation> -getXmlVersion ::- (MonadIO m, IsDocument self, FromJSString result) =>- self -> m (Maybe result)-getXmlVersion self- = liftIO- (fromMaybeJSString <$> (js_getXmlVersion (toDocument self)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.xmlVersion Mozilla Document.xmlVersion documentation> -getXmlVersionUnsafe ::- (MonadIO m, IsDocument self, HasCallStack, FromJSString result) =>- self -> m result-getXmlVersionUnsafe self- = liftIO- ((fromMaybeJSString <$> (js_getXmlVersion (toDocument self))) >>=- maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.xmlVersion Mozilla Document.xmlVersion documentation> -getXmlVersionUnchecked ::- (MonadIO m, IsDocument self, FromJSString result) =>- self -> m result-getXmlVersionUnchecked self- = liftIO- (fromJust . fromMaybeJSString <$>- (js_getXmlVersion (toDocument self)))- -foreign import javascript unsafe "(($1, $2) => { $1[\"xmlStandalone\"] = $2; })"- js_setXmlStandalone :: Document -> Bool -> IO ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.xmlStandalone Mozilla Document.xmlStandalone documentation> -setXmlStandalone ::- (MonadIO m, IsDocument self) => self -> Bool -> m ()-setXmlStandalone self val- = liftIO (js_setXmlStandalone (toDocument self) val)- -foreign import javascript unsafe "(($1) => { return ($1[\"xmlStandalone\"] ? 1 : 0); })"- js_getXmlStandalone :: Document -> IO Bool---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.xmlStandalone Mozilla Document.xmlStandalone documentation> -getXmlStandalone :: (MonadIO m, IsDocument self) => self -> m Bool-getXmlStandalone self- = liftIO (js_getXmlStandalone (toDocument self))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.onselectstart Mozilla Document.onselectstart documentation> -selectStart ::- (IsDocument self, IsEventTarget self) => EventName self Event-selectStart = unsafeEventName (toJSString "selectstart")---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.onselectionchange Mozilla Document.onselectionchange documentation> -selectionchange ::- (IsDocument self, IsEventTarget self) =>- EventName self onselectionchange-selectionchange = unsafeEventName (toJSString "selectionchange")- -foreign import javascript unsafe "(($1) => { return $1[\"rootElement\"]; })"- js_getRootElement :: Document -> IO (Nullable SVGSVGElement)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.rootElement Mozilla Document.rootElement documentation> -getRootElement ::- (MonadIO m, IsDocument self) => self -> m (Maybe SVGSVGElement)-getRootElement self- = liftIO- (nullableToMaybe <$> (js_getRootElement (toDocument self)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.rootElement Mozilla Document.rootElement documentation> -getRootElementUnsafe ::- (MonadIO m, IsDocument self, HasCallStack) =>- self -> m SVGSVGElement-getRootElementUnsafe self- = liftIO- ((nullableToMaybe <$> (js_getRootElement (toDocument self))) >>=- maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.rootElement Mozilla Document.rootElement documentation> -getRootElementUnchecked ::- (MonadIO m, IsDocument self) => self -> m SVGSVGElement-getRootElementUnchecked self- = liftIO- (fromJust . nullableToMaybe <$>- (js_getRootElement (toDocument self)))+{-# 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+-- | <https://developer.mozilla.org/docs/Web/API/Document/Document MDN Document. documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/Document/adoptNode MDN Document.adoptNode documentation>+adoptNode :: (MonadDOM m, IsDocument self, IsNode node) => self -> node -> m Node+adoptNode self node = liftDOM ((js_adoptNode ((Types.toDocument self)) (Types.toNode node)))++-- | <https://developer.mozilla.org/docs/Web/API/Document/adoptNode MDN Document.adoptNode documentation>+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 ()+-- | <https://html.spec.whatwg.org/multipage/obsolete.html#dom-document-captureevents Document.captureEvents specification>+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+-- | <https://developer.mozilla.org/docs/Web/API/Document/caretPositionFromPoint MDN Document.caretPositionFromPoint documentation>+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))++-- | <https://developer.mozilla.org/docs/Web/API/Document/caretPositionFromPoint MDN Document.caretPositionFromPoint documentation>+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')))++-- | <https://developer.mozilla.org/docs/Web/API/Document/caretPositionFromPoint MDN Document.caretPositionFromPoint documentation>+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))++-- | <https://developer.mozilla.org/docs/Web/API/Document/caretPositionFromPoint MDN Document.caretPositionFromPoint documentation>+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 ()+-- | <https://developer.mozilla.org/docs/Web/API/Document/clear MDN Document.clear documentation>+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 ()+-- | <https://developer.mozilla.org/docs/Web/API/Document/close MDN Document.close documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/Document/createAttribute MDN Document.createAttribute documentation>+createAttribute :: (MonadDOM m, IsDocument self, ToJSString localName) => self -> localName -> m Attr+createAttribute self localName = liftDOM ((js_createAttribute ((Types.toDocument self)) (toJSString localName)))++-- | <https://developer.mozilla.org/docs/Web/API/Document/createAttribute MDN Document.createAttribute documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/Document/createAttributeNS MDN Document.createAttributeNS documentation>+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)))++-- | <https://developer.mozilla.org/docs/Web/API/Document/createAttributeNS MDN Document.createAttributeNS documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/Document/createCDATASection MDN Document.createCDATASection documentation>+createCDATASection :: (MonadDOM m, IsDocument self, ToJSString data') => self -> data' -> m CDATASection+createCDATASection self data' = liftDOM ((js_createCDATASection ((Types.toDocument self)) (toJSString data')))++-- | <https://developer.mozilla.org/docs/Web/API/Document/createCDATASection MDN Document.createCDATASection documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/Document/createComment MDN Document.createComment documentation>+createComment :: (MonadDOM m, IsDocument self, ToJSString data') => self -> data' -> m Comment+createComment self data' = liftDOM ((js_createComment ((Types.toDocument self)) (toJSString data')))++-- | <https://developer.mozilla.org/docs/Web/API/Document/createComment MDN Document.createComment documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/Document/createDocumentFragment MDN Document.createDocumentFragment documentation>+createDocumentFragment :: (MonadDOM m, IsDocument self) => self -> m DocumentFragment+createDocumentFragment self = liftDOM ((js_createDocumentFragment ((Types.toDocument self))))++-- | <https://developer.mozilla.org/docs/Web/API/Document/createDocumentFragment MDN Document.createDocumentFragment documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/Document/createElement MDN Document.createElement documentation>+createElement :: (MonadDOM m, IsDocument self, ToJSString localName) => self -> localName -> m Element+createElement self localName = liftDOM ((js_createElement ((Types.toDocument self)) (toJSString localName)))++-- | <https://developer.mozilla.org/docs/Web/API/Document/createElement MDN Document.createElement documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/Document/createElement MDN Document.createElement documentation>+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'))++-- | <https://developer.mozilla.org/docs/Web/API/Document/createElement MDN Document.createElement documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/Document/createElementNS MDN Document.createElementNS documentation>+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)))++-- | <https://developer.mozilla.org/docs/Web/API/Document/createElementNS MDN Document.createElementNS documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/Document/createElementNS MDN Document.createElementNS documentation>+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'))++-- | <https://developer.mozilla.org/docs/Web/API/Document/createElementNS MDN Document.createElementNS documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/Document/createEvent MDN Document.createEvent documentation>+createEvent :: (MonadDOM m, IsDocument self, ToJSString interface) => self -> interface -> m Event+createEvent self interface = liftDOM ((js_createEvent ((Types.toDocument self)) (toJSString interface)))++-- | <https://developer.mozilla.org/docs/Web/API/Document/createEvent MDN Document.createEvent documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/Document/createNodeIterator MDN Document.createNodeIterator documentation>+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'))++-- | <https://developer.mozilla.org/docs/Web/API/Document/createNodeIterator MDN Document.createNodeIterator documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/Document/createProcessingInstruction MDN Document.createProcessingInstruction documentation>+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')))++-- | <https://developer.mozilla.org/docs/Web/API/Document/createProcessingInstruction MDN Document.createProcessingInstruction documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/Document/createRange MDN Document.createRange documentation>+createRange :: (MonadDOM m, IsDocument self) => self -> m Range+createRange self = liftDOM ((js_createRange ((Types.toDocument self))))++-- | <https://developer.mozilla.org/docs/Web/API/Document/createRange MDN Document.createRange documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/Document/createTextNode MDN Document.createTextNode documentation>+createTextNode :: (MonadDOM m, IsDocument self, ToJSString data') => self -> data' -> m Text+createTextNode self data' = liftDOM ((js_createTextNode ((Types.toDocument self)) (toJSString data')))++-- | <https://developer.mozilla.org/docs/Web/API/Document/createTextNode MDN Document.createTextNode documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/Document/createTreeWalker MDN Document.createTreeWalker documentation>+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'))++-- | <https://developer.mozilla.org/docs/Web/API/Document/createTreeWalker MDN Document.createTreeWalker documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/Document/elementFromPoint MDN Document.elementFromPoint documentation>+elementFromPoint :: (MonadDOM m, IsDocument self) => self -> Double -> Double -> m (Maybe Element)+elementFromPoint self x y = liftDOM (((js_elementFromPoint ((Types.toDocument self)) (x) (y)) >>= fromJSValUnchecked))++-- | <https://developer.mozilla.org/docs/Web/API/Document/elementFromPoint MDN Document.elementFromPoint documentation>+elementFromPoint_ :: (MonadDOM m, IsDocument self) => self -> Double -> Double -> m ()+elementFromPoint_ self x y = liftDOM (void ((js_elementFromPoint ((Types.toDocument self)) (x) (y))))++-- | <https://developer.mozilla.org/docs/Web/API/Document/elementFromPoint MDN Document.elementFromPoint documentation>+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))++-- | <https://developer.mozilla.org/docs/Web/API/Document/elementFromPoint MDN Document.elementFromPoint documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/Document/elementsFromPoint MDN Document.elementsFromPoint documentation>+elementsFromPoint :: (MonadDOM m, IsDocument self) => self -> Double -> Double -> m [Element]+elementsFromPoint self x y = liftDOM (((js_elementsFromPoint ((Types.toDocument self)) (x) (y)) >>= fromJSValUnchecked))++-- | <https://developer.mozilla.org/docs/Web/API/Document/elementsFromPoint MDN Document.elementsFromPoint documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/Document/execCommand MDN Document.execCommand documentation>+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)))++-- | <https://developer.mozilla.org/docs/Web/API/Document/execCommand MDN Document.execCommand documentation>+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, ())+-- | <https://developer.mozilla.org/docs/Web/API/Document/exitFullscreen MDN Document.exitFullscreen documentation>+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, ())+-- | <https://developer.mozilla.org/docs/Web/API/Document/exitPictureInPicture MDN Document.exitPictureInPicture documentation>+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 ()+-- | <https://developer.mozilla.org/docs/Web/API/Document/exitPointerLock MDN Document.exitPointerLock documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/Document/getElementsByClassName MDN Document.getElementsByClassName documentation>+getElementsByClassName :: (MonadDOM m, IsDocument self, ToJSString classNames) => self -> classNames -> m HTMLCollection+getElementsByClassName self classNames = liftDOM ((js_getElementsByClassName ((Types.toDocument self)) (toJSString classNames)))++-- | <https://developer.mozilla.org/docs/Web/API/Document/getElementsByClassName MDN Document.getElementsByClassName documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/Document/getElementsByName MDN Document.getElementsByName documentation>+getElementsByName :: (MonadDOM m, IsDocument self, ToJSString elementName) => self -> elementName -> m NodeList+getElementsByName self elementName = liftDOM ((js_getElementsByName ((Types.toDocument self)) (toJSString elementName)))++-- | <https://developer.mozilla.org/docs/Web/API/Document/getElementsByName MDN Document.getElementsByName documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/Document/getElementsByTagName MDN Document.getElementsByTagName documentation>+getElementsByTagName :: (MonadDOM m, IsDocument self, ToJSString qualifiedName) => self -> qualifiedName -> m HTMLCollection+getElementsByTagName self qualifiedName = liftDOM ((js_getElementsByTagName ((Types.toDocument self)) (toJSString qualifiedName)))++-- | <https://developer.mozilla.org/docs/Web/API/Document/getElementsByTagName MDN Document.getElementsByTagName documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/Document/getElementsByTagNameNS MDN Document.getElementsByTagNameNS documentation>+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)))++-- | <https://developer.mozilla.org/docs/Web/API/Document/getElementsByTagNameNS MDN Document.getElementsByTagNameNS documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/Document/getSelection MDN Document.getSelection documentation>+getSelection :: (MonadDOM m, IsDocument self) => self -> m (Maybe Selection)+getSelection self = liftDOM (((js_getSelection ((Types.toDocument self))) >>= fromJSValUnchecked))++-- | <https://developer.mozilla.org/docs/Web/API/Document/getSelection MDN Document.getSelection documentation>+getSelection_ :: (MonadDOM m, IsDocument self) => self -> m ()+getSelection_ self = liftDOM (void ((js_getSelection ((Types.toDocument self)))))++-- | <https://developer.mozilla.org/docs/Web/API/Document/getSelection MDN Document.getSelection documentation>+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))++-- | <https://developer.mozilla.org/docs/Web/API/Document/getSelection MDN Document.getSelection documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/Document/hasFocus MDN Document.hasFocus documentation>+hasFocus :: (MonadDOM m, IsDocument self) => self -> m Bool+hasFocus self = liftDOM ((js_hasFocus ((Types.toDocument self))))++-- | <https://developer.mozilla.org/docs/Web/API/Document/hasFocus MDN Document.hasFocus documentation>+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)+-- | <https://developer.mozilla.org/docs/Web/API/Document/hasStorageAccess MDN Document.hasStorageAccess documentation>+hasStorageAccess :: (MonadDOM m, IsDocument self) => self -> m Bool+hasStorageAccess self = liftDOM (((js_hasStorageAccess ((Types.toDocument self))) >>= checkPromiseResult))++-- | <https://developer.mozilla.org/docs/Web/API/Document/hasStorageAccess MDN Document.hasStorageAccess documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/Document/importNode MDN Document.importNode documentation>+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'))++-- | <https://developer.mozilla.org/docs/Web/API/Document/importNode MDN Document.importNode documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/Document/open MDN Document.open documentation>+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)))++-- | <https://developer.mozilla.org/docs/Web/API/Document/open MDN Document.open documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/Document/open MDN Document.open documentation>+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))++-- | <https://developer.mozilla.org/docs/Web/API/Document/open MDN Document.open documentation>+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))))++-- | <https://developer.mozilla.org/docs/Web/API/Document/open MDN Document.open documentation>+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))++-- | <https://developer.mozilla.org/docs/Web/API/Document/open MDN Document.open documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/Document/queryCommandEnabled MDN Document.queryCommandEnabled documentation>+queryCommandEnabled :: (MonadDOM m, IsDocument self, ToJSString commandId) => self -> commandId -> m Bool+queryCommandEnabled self commandId = liftDOM ((js_queryCommandEnabled ((Types.toDocument self)) (toJSString commandId)))++-- | <https://developer.mozilla.org/docs/Web/API/Document/queryCommandEnabled MDN Document.queryCommandEnabled documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/Document/queryCommandState MDN Document.queryCommandState documentation>+queryCommandState :: (MonadDOM m, IsDocument self, ToJSString commandId) => self -> commandId -> m Bool+queryCommandState self commandId = liftDOM ((js_queryCommandState ((Types.toDocument self)) (toJSString commandId)))++-- | <https://developer.mozilla.org/docs/Web/API/Document/queryCommandState MDN Document.queryCommandState documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/Document/queryCommandSupported MDN Document.queryCommandSupported documentation>+queryCommandSupported :: (MonadDOM m, IsDocument self, ToJSString commandId) => self -> commandId -> m Bool+queryCommandSupported self commandId = liftDOM ((js_queryCommandSupported ((Types.toDocument self)) (toJSString commandId)))++-- | <https://developer.mozilla.org/docs/Web/API/Document/queryCommandSupported MDN Document.queryCommandSupported documentation>+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 ()+-- | <https://html.spec.whatwg.org/multipage/obsolete.html#dom-document-releaseevents Document.releaseEvents specification>+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, ())+-- | <https://developer.mozilla.org/docs/Web/API/Document/requestStorageAccess MDN Document.requestStorageAccess documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/Document/startViewTransition MDN Document.startViewTransition documentation>+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'))++-- | <https://developer.mozilla.org/docs/Web/API/Document/startViewTransition MDN Document.startViewTransition documentation>+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 ()+-- | <https://developer.mozilla.org/docs/Web/API/Document/write MDN Document.write documentation>+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 ()+-- | <https://developer.mozilla.org/docs/Web/API/Document/writeln MDN Document.writeln documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/Document/parseHTML_static MDN Document.parseHTML documentation>+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'))++-- | <https://developer.mozilla.org/docs/Web/API/Document/parseHTML_static MDN Document.parseHTML documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/Document/parseHTMLUnsafe_static MDN Document.parseHTMLUnsafe documentation>+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'))++-- | <https://developer.mozilla.org/docs/Web/API/Document/parseHTMLUnsafe_static MDN Document.parseHTMLUnsafe documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/Document/implementation MDN Document.implementation documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/Document/URL MDN Document.URL documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/Document/documentURI MDN Document.documentURI documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/Document/compatMode MDN Document.compatMode documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/Document/characterSet MDN Document.characterSet documentation>+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+-- | <https://dom.spec.whatwg.org/#dom-document-charset Document.charset specification>+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+-- | <https://dom.spec.whatwg.org/#dom-document-inputencoding Document.inputEncoding specification>+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+-- | <https://developer.mozilla.org/docs/Web/API/Document/contentType MDN Document.contentType documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/Document/doctype MDN Document.doctype documentation>+getDoctype :: (MonadDOM m, IsDocument self) => self -> m (Maybe DocumentType)+getDoctype self = liftDOM (((js_getDoctype ((Types.toDocument self))) >>= fromJSValUnchecked))++-- | <https://developer.mozilla.org/docs/Web/API/Document/doctype MDN Document.doctype documentation>+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))++-- | <https://developer.mozilla.org/docs/Web/API/Document/doctype MDN Document.doctype documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/Document/documentElement MDN Document.documentElement documentation>+getDocumentElement :: (MonadDOM m, IsDocument self) => self -> m (Maybe Element)+getDocumentElement self = liftDOM (((js_getDocumentElement ((Types.toDocument self))) >>= fromJSValUnchecked))++-- | <https://developer.mozilla.org/docs/Web/API/Document/documentElement MDN Document.documentElement documentation>+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))++-- | <https://developer.mozilla.org/docs/Web/API/Document/documentElement MDN Document.documentElement documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/Document/rootElement MDN Document.rootElement documentation>+getRootElement :: (MonadDOM m, IsDocument self) => self -> m (Maybe SVGSVGElement)+getRootElement self = liftDOM (((js_getRootElement ((Types.toDocument self))) >>= fromJSValUnchecked))++-- | <https://developer.mozilla.org/docs/Web/API/Document/rootElement MDN Document.rootElement documentation>+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))++-- | <https://developer.mozilla.org/docs/Web/API/Document/rootElement MDN Document.rootElement documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/Document/activeViewTransition MDN Document.activeViewTransition documentation>+getActiveViewTransition :: (MonadDOM m, IsDocument self) => self -> m (Maybe ViewTransition)+getActiveViewTransition self = liftDOM (((js_getActiveViewTransition ((Types.toDocument self))) >>= fromJSValUnchecked))++-- | <https://developer.mozilla.org/docs/Web/API/Document/activeViewTransition MDN Document.activeViewTransition documentation>+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))++-- | <https://developer.mozilla.org/docs/Web/API/Document/activeViewTransition MDN Document.activeViewTransition documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/Document/scrollingElement MDN Document.scrollingElement documentation>+getScrollingElement :: (MonadDOM m, IsDocument self) => self -> m (Maybe Element)+getScrollingElement self = liftDOM (((js_getScrollingElement ((Types.toDocument self))) >>= fromJSValUnchecked))++-- | <https://developer.mozilla.org/docs/Web/API/Document/scrollingElement MDN Document.scrollingElement documentation>+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))++-- | <https://developer.mozilla.org/docs/Web/API/Document/scrollingElement MDN Document.scrollingElement documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/Document/fullscreenEnabled MDN Document.fullscreenEnabled documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/Document/fullscreen MDN Document.fullscreen documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/Document/location MDN Document.location documentation>+getLocation :: (MonadDOM m, IsDocument self) => self -> m (Maybe Location)+getLocation self = liftDOM (((js_getLocation ((Types.toDocument self))) >>= fromJSValUnchecked))++-- | <https://developer.mozilla.org/docs/Web/API/Document/location MDN Document.location documentation>+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))++-- | <https://developer.mozilla.org/docs/Web/API/Document/location MDN Document.location documentation>+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 ()+-- | <https://developer.mozilla.org/docs/Web/API/Document/domain MDN Document.domain documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/Document/domain MDN Document.domain documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/Document/referrer MDN Document.referrer documentation>+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 ()+-- | <https://developer.mozilla.org/docs/Web/API/Document/cookie MDN Document.cookie documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/Document/cookie MDN Document.cookie documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/Document/lastModified MDN Document.lastModified documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/Document/readyState MDN Document.readyState documentation>+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 ()+-- | <https://developer.mozilla.org/docs/Web/API/Document/title MDN Document.title documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/Document/title MDN Document.title documentation>+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 ()+-- | <https://developer.mozilla.org/docs/Web/API/Document/dir MDN Document.dir documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/Document/dir MDN Document.dir documentation>+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 ()+-- | <https://developer.mozilla.org/docs/Web/API/Document/body MDN Document.body documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/Document/body MDN Document.body documentation>+getBody :: (MonadDOM m, IsDocument self) => self -> m (Maybe HTMLElement)+getBody self = liftDOM (((js_getBody ((Types.toDocument self))) >>= fromJSValUnchecked))++-- | <https://developer.mozilla.org/docs/Web/API/Document/body MDN Document.body documentation>+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))++-- | <https://developer.mozilla.org/docs/Web/API/Document/body MDN Document.body documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/Document/head MDN Document.head documentation>+getHead :: (MonadDOM m, IsDocument self) => self -> m (Maybe HTMLHeadElement)+getHead self = liftDOM (((js_getHead ((Types.toDocument self))) >>= fromJSValUnchecked))++-- | <https://developer.mozilla.org/docs/Web/API/Document/head MDN Document.head documentation>+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))++-- | <https://developer.mozilla.org/docs/Web/API/Document/head MDN Document.head documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/Document/images MDN Document.images documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/Document/embeds MDN Document.embeds documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/Document/plugins MDN Document.plugins documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/Document/links MDN Document.links documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/Document/forms MDN Document.forms documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/Document/scripts MDN Document.scripts documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/Document/currentScript MDN Document.currentScript documentation>+getCurrentScript :: (MonadDOM m, IsDocument self) => self -> m (Maybe HTMLOrSVGScriptElement)+getCurrentScript self = liftDOM (((js_getCurrentScript ((Types.toDocument self))) >>= fromJSValUnchecked))++-- | <https://developer.mozilla.org/docs/Web/API/Document/currentScript MDN Document.currentScript documentation>+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))++-- | <https://developer.mozilla.org/docs/Web/API/Document/currentScript MDN Document.currentScript documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/Document/defaultView MDN Document.defaultView documentation>+getDefaultView :: (MonadDOM m, IsDocument self) => self -> m (Maybe Window)+getDefaultView self = liftDOM (((js_getDefaultView ((Types.toDocument self))) >>= fromJSValUnchecked))++-- | <https://developer.mozilla.org/docs/Web/API/Document/defaultView MDN Document.defaultView documentation>+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))++-- | <https://developer.mozilla.org/docs/Web/API/Document/defaultView MDN Document.defaultView documentation>+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 ()+-- | <https://developer.mozilla.org/docs/Web/API/Document/designMode MDN Document.designMode documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/Document/designMode MDN Document.designMode documentation>+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+-- | <https://developer.mozilla.org/docs/Web/API/Document/hidden MDN Document.hidden documentation>+getHidden :: (MonadDOM m, IsDocument self) => self -> m Bool+getHidden self = liftDOM ((js_getHidden ((Types.toDocument self))))++foreign import javascript unsafe "(($1) => { return $1[\"visibilityState\"]; })"+ js_getVisibilityState :: Document -> IO JSVal+-- | <https://developer.mozilla.org/docs/Web/API/Document/visibilityState MDN Document.visibilityState documentation>+getVisibilityState :: (MonadDOM m, IsDocument self) => self -> m DocumentVisibilityState+getVisibilityState self = liftDOM (((js_getVisibilityState ((Types.toDocument self))) >>= fromJSValUnchecked))++foreign import javascript safe "(($1, $2) => { $1[\"fgColor\"] = $2; })"+ js_setFgColor :: Document -> JSString -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/Document/fgColor MDN Document.fgColor documentation>+setFgColor :: (MonadDOM m, IsDocument self, ToJSString val) => self -> val -> m ()+setFgColor self val = liftDOM (void ((js_setFgColor ((Types.toDocument self)) (toJSString val))))++foreign import javascript unsafe "(($1) => { return $1[\"fgColor\"]; })"+ js_getFgColor :: Document -> IO JSString+-- | <https://developer.mozilla.org/docs/Web/API/Document/fgColor MDN Document.fgColor documentation>+getFgColor :: (MonadDOM m, IsDocument self, FromJSString result) => self -> m result+getFgColor self = liftDOM ((fromJSString <$> (js_getFgColor ((Types.toDocument self)))))++foreign import javascript safe "(($1, $2) => { $1[\"linkColor\"] = $2; })"+ js_setLinkColor :: Document -> JSString -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/Document/linkColor MDN Document.linkColor documentation>+setLinkColor :: (MonadDOM m, IsDocument self, ToJSString val) => self -> val -> m ()+setLinkColor self val = liftDOM (void ((js_setLinkColor ((Types.toDocument self)) (toJSString val))))++foreign import javascript unsafe "(($1) => { return $1[\"linkColor\"]; })"+ js_getLinkColor :: Document -> IO JSString+-- | <https://developer.mozilla.org/docs/Web/API/Document/linkColor MDN Document.linkColor documentation>+getLinkColor :: (MonadDOM m, IsDocument self, FromJSString result) => self -> m result+getLinkColor self = liftDOM ((fromJSString <$> (js_getLinkColor ((Types.toDocument self)))))++foreign import javascript safe "(($1, $2) => { $1[\"vlinkColor\"] = $2; })"+ js_setVlinkColor :: Document -> JSString -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/Document/vlinkColor MDN Document.vlinkColor documentation>+setVlinkColor :: (MonadDOM m, IsDocument self, ToJSString val) => self -> val -> m ()+setVlinkColor self val = liftDOM (void ((js_setVlinkColor ((Types.toDocument self)) (toJSString val))))++foreign import javascript unsafe "(($1) => { return $1[\"vlinkColor\"]; })"+ js_getVlinkColor :: Document -> IO JSString+-- | <https://developer.mozilla.org/docs/Web/API/Document/vlinkColor MDN Document.vlinkColor documentation>+getVlinkColor :: (MonadDOM m, IsDocument self, FromJSString result) => self -> m result+getVlinkColor self = liftDOM ((fromJSString <$> (js_getVlinkColor ((Types.toDocument self)))))++foreign import javascript safe "(($1, $2) => { $1[\"alinkColor\"] = $2; })"+ js_setAlinkColor :: Document -> JSString -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/Document/alinkColor MDN Document.alinkColor documentation>+setAlinkColor :: (MonadDOM m, IsDocument self, ToJSString val) => self -> val -> m ()+setAlinkColor self val = liftDOM (void ((js_setAlinkColor ((Types.toDocument self)) (toJSString val))))++foreign import javascript unsafe "(($1) => { return $1[\"alinkColor\"]; })"+ js_getAlinkColor :: Document -> IO JSString+-- | <https://developer.mozilla.org/docs/Web/API/Document/alinkColor MDN Document.alinkColor documentation>+getAlinkColor :: (MonadDOM m, IsDocument self, FromJSString result) => self -> m result+getAlinkColor self = liftDOM ((fromJSString <$> (js_getAlinkColor ((Types.toDocument self)))))++foreign import javascript safe "(($1, $2) => { $1[\"bgColor\"] = $2; })"+ js_setBgColor :: Document -> JSString -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/Document/bgColor MDN Document.bgColor documentation>+setBgColor :: (MonadDOM m, IsDocument self, ToJSString val) => self -> val -> m ()+setBgColor self val = liftDOM (void ((js_setBgColor ((Types.toDocument self)) (toJSString val))))++foreign import javascript unsafe "(($1) => { return $1[\"bgColor\"]; })"+ js_getBgColor :: Document -> IO JSString+-- | <https://developer.mozilla.org/docs/Web/API/Document/bgColor MDN Document.bgColor documentation>+getBgColor :: (MonadDOM m, IsDocument self, FromJSString result) => self -> m result+getBgColor self = liftDOM ((fromJSString <$> (js_getBgColor ((Types.toDocument self)))))++foreign import javascript unsafe "(($1) => { return $1[\"anchors\"]; })"+ js_getAnchors :: Document -> IO HTMLCollection+-- | <https://developer.mozilla.org/docs/Web/API/Document/anchors MDN Document.anchors documentation>+getAnchors :: (MonadDOM m, IsDocument self) => self -> m HTMLCollection+getAnchors self = liftDOM ((js_getAnchors ((Types.toDocument self))))++foreign import javascript unsafe "(($1) => { return $1[\"applets\"]; })"+ js_getApplets :: Document -> IO HTMLCollection+-- | <https://developer.mozilla.org/docs/Web/API/Document/applets MDN Document.applets documentation>+getApplets :: (MonadDOM m, IsDocument self) => self -> m HTMLCollection+getApplets self = liftDOM ((js_getApplets ((Types.toDocument self))))++foreign import javascript unsafe "(($1) => { return $1[\"all\"]; })"+ js_getAll :: Document -> IO HTMLAllCollection+-- | <https://developer.mozilla.org/docs/Web/API/Document/all MDN Document.all documentation>+getAll :: (MonadDOM m, IsDocument self) => self -> m HTMLAllCollection+getAll self = liftDOM ((js_getAll ((Types.toDocument self))))++foreign import javascript unsafe "(($1) => { return $1[\"pictureInPictureEnabled\"]; })"+ js_getPictureInPictureEnabled :: Document -> IO Bool+-- | <https://developer.mozilla.org/docs/Web/API/Document/pictureInPictureEnabled MDN Document.pictureInPictureEnabled documentation>+getPictureInPictureEnabled :: (MonadDOM m, IsDocument self) => self -> m Bool+getPictureInPictureEnabled self = liftDOM ((js_getPictureInPictureEnabled ((Types.toDocument self))))++foreign import javascript unsafe "(($1) => { return $1[\"fragmentDirective\"]; })"+ js_getFragmentDirective :: Document -> IO FragmentDirective+-- | <https://developer.mozilla.org/docs/Web/API/Document/fragmentDirective MDN Document.fragmentDirective documentation>+getFragmentDirective :: (MonadDOM m, IsDocument self) => self -> m FragmentDirective+getFragmentDirective self = liftDOM ((js_getFragmentDirective ((Types.toDocument self))))++foreign import javascript unsafe "(($1) => { return $1[\"timeline\"]; })"+ js_getTimeline :: Document -> IO DocumentTimeline+-- | <https://developer.mozilla.org/docs/Web/API/Document/timeline MDN Document.timeline documentation>+getTimeline :: (MonadDOM m, IsDocument self) => self -> m DocumentTimeline+getTimeline self = liftDOM ((js_getTimeline ((Types.toDocument self))))++-- | <https://fullscreen.spec.whatwg.org/#handler-document-onfullscreenchange fullscreenchange event>+fullscreenchange :: (IsDocument self, IsEventTarget self) => EventName self Event+fullscreenchange = unsafeEventName (toJSString "fullscreenchange")++-- | <https://fullscreen.spec.whatwg.org/#handler-document-onfullscreenerror fullscreenerror event>+fullscreenerror :: (IsDocument self, IsEventTarget self) => EventName self Event+fullscreenerror = unsafeEventName (toJSString "fullscreenerror")++-- | <https://html.spec.whatwg.org/multipage/webappapis.html#handler-onreadystatechange readystatechange event>+readyStateChange :: (IsDocument self, IsEventTarget self) => EventName self Event+readyStateChange = unsafeEventNameAsync (toJSString "readystatechange")++-- | <https://html.spec.whatwg.org/multipage/webappapis.html#handler-onvisibilitychange visibilitychange event>+visibilitychange :: (IsDocument self, IsEventTarget self) => EventName self Event+visibilitychange = unsafeEventName (toJSString "visibilitychange")++-- | <https://w3c.github.io/pointerlock/#dom-document-onpointerlockchange pointerlockchange event>+pointerlockchange :: (IsDocument self, IsEventTarget self) => EventName self Event+pointerlockchange = unsafeEventName (toJSString "pointerlockchange")++-- | <https://w3c.github.io/pointerlock/#dom-document-onpointerlockerror pointerlockerror event>+pointerlockerror :: (IsDocument self, IsEventTarget self) => EventName self Event+pointerlockerror = unsafeEventName (toJSString "pointerlockerror")++autofill :: (IsDocument self, IsEventTarget self) => EventName self AutofillEvent+autofill = unsafeEventName (toJSString "autofill")++-- | <https://html.spec.whatwg.org/multipage/indices.html#event-domcontentloaded DOMContentLoaded event>+domContentLoaded :: (IsDocument self, IsEventTarget self) => EventName self Event+domContentLoaded = unsafeEventName (toJSString "DOMContentLoaded")++-- | <https://html.spec.whatwg.org/multipage/indices.html#event-unload unload event>+unload :: (IsDocument self, IsEventTarget self) => EventName self Event+unload = unsafeEventName (toJSString "unload")
@@ -1,72 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-{-# LANGUAGE ForeignFunctionInterface #-}-{-# LANGUAGE JavaScriptFFI #-}--- For HasCallStack compatibility-{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}-module GHCJS.DOM.JSFFI.Generated.DocumentAndElementEventHandlers- (copy, cut, paste, beforeCopy, beforeCut, beforeinput, beforePaste,- DocumentAndElementEventHandlers(..),- gTypeDocumentAndElementEventHandlers,- IsDocumentAndElementEventHandlers,- toDocumentAndElementEventHandlers)- where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, 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---- | <https://developer.mozilla.org/en-US/docs/Web/API/DocumentAndElementEventHandlers.oncopy Mozilla DocumentAndElementEventHandlers.oncopy documentation> -copy ::- (IsDocumentAndElementEventHandlers self, IsEventTarget self) =>- EventName self ClipboardEvent-copy = unsafeEventName (toJSString "copy")---- | <https://developer.mozilla.org/en-US/docs/Web/API/DocumentAndElementEventHandlers.oncut Mozilla DocumentAndElementEventHandlers.oncut documentation> -cut ::- (IsDocumentAndElementEventHandlers self, IsEventTarget self) =>- EventName self ClipboardEvent-cut = unsafeEventName (toJSString "cut")---- | <https://developer.mozilla.org/en-US/docs/Web/API/DocumentAndElementEventHandlers.onpaste Mozilla DocumentAndElementEventHandlers.onpaste documentation> -paste ::- (IsDocumentAndElementEventHandlers self, IsEventTarget self) =>- EventName self ClipboardEvent-paste = unsafeEventName (toJSString "paste")---- | <https://developer.mozilla.org/en-US/docs/Web/API/DocumentAndElementEventHandlers.onbeforecopy Mozilla DocumentAndElementEventHandlers.onbeforecopy documentation> -beforeCopy ::- (IsDocumentAndElementEventHandlers self, IsEventTarget self) =>- EventName self ClipboardEvent-beforeCopy = unsafeEventName (toJSString "beforecopy")---- | <https://developer.mozilla.org/en-US/docs/Web/API/DocumentAndElementEventHandlers.onbeforecut Mozilla DocumentAndElementEventHandlers.onbeforecut documentation> -beforeCut ::- (IsDocumentAndElementEventHandlers self, IsEventTarget self) =>- EventName self ClipboardEvent-beforeCut = unsafeEventName (toJSString "beforecut")---- | <https://developer.mozilla.org/en-US/docs/Web/API/DocumentAndElementEventHandlers.onbeforeinput Mozilla DocumentAndElementEventHandlers.onbeforeinput documentation> -beforeinput ::- (IsDocumentAndElementEventHandlers self, IsEventTarget self) =>- EventName self onbeforeinput-beforeinput = unsafeEventName (toJSString "beforeinput")---- | <https://developer.mozilla.org/en-US/docs/Web/API/DocumentAndElementEventHandlers.onbeforepaste Mozilla DocumentAndElementEventHandlers.onbeforepaste documentation> -beforePaste ::- (IsDocumentAndElementEventHandlers self, IsEventTarget self) =>- EventName self ClipboardEvent-beforePaste = unsafeEventName (toJSString "beforepaste")
@@ -1,35 +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.DocumentFragment- (js_newDocumentFragment, newDocumentFragment, DocumentFragment(..),- gTypeDocumentFragment, IsDocumentFragment, toDocumentFragment)+ (js_newDocumentFragment, newDocumentFragment, DocumentFragment(..), gTypeDocumentFragment, IsDocumentFragment, toDocumentFragment) where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)-import qualified Prelude (error)-import Data.Typeable (Typeable)-import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull, 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[\"DocumentFragment\"](); })" js_newDocumentFragment ::- IO DocumentFragment --- | <https://developer.mozilla.org/en-US/docs/Web/API/DocumentFragment Mozilla DocumentFragment documentation> -newDocumentFragment :: (MonadIO m) => m DocumentFragment-newDocumentFragment = liftIO (js_newDocumentFragment)+foreign import javascript safe "(() => { return new globalThis[\"DocumentFragment\"](); })"+ js_newDocumentFragment :: IO DocumentFragment+-- | <https://developer.mozilla.org/docs/Web/API/DocumentFragment/DocumentFragment MDN DocumentFragment. documentation>+newDocumentFragment :: (MonadDOM m) => m DocumentFragment+newDocumentFragment = liftDOM ((js_newDocumentFragment))
@@ -1,135 +1,115 @@ {-# 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.DocumentOrShadowRoot- (js_elementFromPoint, elementFromPoint, elementFromPoint_,- elementFromPointUnsafe, elementFromPointUnchecked,- js_getActiveElement, getActiveElement, getActiveElementUnsafe,- getActiveElementUnchecked, js_getPointerLockElement,- getPointerLockElement, getPointerLockElementUnsafe,- getPointerLockElementUnchecked, DocumentOrShadowRoot(..),- gTypeDocumentOrShadowRoot, IsDocumentOrShadowRoot,- toDocumentOrShadowRoot)+ (js_getAnimations, js_getCustomElementRegistry, js_getStyleSheets, js_setAdoptedStyleSheets, js_getAdoptedStyleSheets, js_getFullscreenElement, js_getActiveElement, js_getPictureInPictureElement, js_getPointerLockElement, getAnimations, getAnimations_, getCustomElementRegistry, getCustomElementRegistryUnsafe, getCustomElementRegistryUnchecked, getStyleSheets, setAdoptedStyleSheets, getAdoptedStyleSheets, getFullscreenElement, getFullscreenElementUnsafe, getFullscreenElementUnchecked, getActiveElement, getActiveElementUnsafe, getActiveElementUnchecked, getPictureInPictureElement, getPictureInPictureElementUnsafe, getPictureInPictureElementUnchecked, getPointerLockElement, getPointerLockElementUnsafe, getPointerLockElementUnchecked, DocumentOrShadowRoot(..), gTypeDocumentOrShadowRoot, IsDocumentOrShadowRoot, toDocumentOrShadowRoot) where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)-import qualified Prelude (error)-import Data.Typeable (Typeable)-import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull, jsUndefined)-import 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[\"elementFromPoint\"]($2, $3); })"- js_elementFromPoint ::- DocumentOrShadowRoot -> Double -> Double -> IO (Nullable Element) --- | <https://developer.mozilla.org/en-US/docs/Web/API/DocumentOrShadowRoot.elementFromPoint Mozilla DocumentOrShadowRoot.elementFromPoint documentation> -elementFromPoint ::- (MonadIO m, IsDocumentOrShadowRoot self) =>- self -> Double -> Double -> m (Maybe Element)-elementFromPoint self x y- = liftIO- (nullableToMaybe <$>- (js_elementFromPoint (toDocumentOrShadowRoot self) x y))+foreign import javascript safe "(($1) => { return $1[\"getAnimations\"](); })"+ js_getAnimations :: DocumentOrShadowRoot -> IO JSVal+-- | <https://developer.mozilla.org/docs/Web/API/Document/getAnimations MDN DocumentOrShadowRoot.getAnimations documentation>+getAnimations :: (MonadDOM m, IsDocumentOrShadowRoot self) => self -> m [Animation]+getAnimations self = liftDOM (((js_getAnimations ((Types.toDocumentOrShadowRoot self))) >>= fromJSValUnchecked)) --- | <https://developer.mozilla.org/en-US/docs/Web/API/DocumentOrShadowRoot.elementFromPoint Mozilla DocumentOrShadowRoot.elementFromPoint documentation> -elementFromPoint_ ::- (MonadIO m, IsDocumentOrShadowRoot self) =>- self -> Double -> Double -> m ()-elementFromPoint_ self x y- = liftIO- (void (js_elementFromPoint (toDocumentOrShadowRoot self) x y))+-- | <https://developer.mozilla.org/docs/Web/API/Document/getAnimations MDN DocumentOrShadowRoot.getAnimations documentation>+getAnimations_ :: (MonadDOM m, IsDocumentOrShadowRoot self) => self -> m ()+getAnimations_ self = liftDOM (void ((js_getAnimations ((Types.toDocumentOrShadowRoot self))))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/DocumentOrShadowRoot.elementFromPoint Mozilla DocumentOrShadowRoot.elementFromPoint documentation> -elementFromPointUnsafe ::- (MonadIO m, IsDocumentOrShadowRoot self, HasCallStack) =>- self -> Double -> Double -> m Element-elementFromPointUnsafe self x y- = liftIO- ((nullableToMaybe <$>- (js_elementFromPoint (toDocumentOrShadowRoot self) x y))- >>= maybe (Prelude.error "Nothing to return") return)+foreign import javascript unsafe "(($1) => { return $1[\"customElementRegistry\"]; })"+ js_getCustomElementRegistry :: DocumentOrShadowRoot -> IO JSVal+-- | <https://developer.mozilla.org/docs/Web/API/Document/customElementRegistry MDN DocumentOrShadowRoot.customElementRegistry documentation>+getCustomElementRegistry :: (MonadDOM m, IsDocumentOrShadowRoot self) => self -> m (Maybe CustomElementRegistry)+getCustomElementRegistry self = liftDOM (((js_getCustomElementRegistry ((Types.toDocumentOrShadowRoot self))) >>= fromJSValUnchecked)) --- | <https://developer.mozilla.org/en-US/docs/Web/API/DocumentOrShadowRoot.elementFromPoint Mozilla DocumentOrShadowRoot.elementFromPoint documentation> -elementFromPointUnchecked ::- (MonadIO m, IsDocumentOrShadowRoot self) =>- self -> Double -> Double -> m Element-elementFromPointUnchecked self x y- = liftIO- (fromJust . nullableToMaybe <$>- (js_elementFromPoint (toDocumentOrShadowRoot self) x y))- +-- | <https://developer.mozilla.org/docs/Web/API/Document/customElementRegistry MDN DocumentOrShadowRoot.customElementRegistry documentation>+getCustomElementRegistryUnsafe :: (MonadDOM m, IsDocumentOrShadowRoot self, HasCallStack) => self -> m CustomElementRegistry+getCustomElementRegistryUnsafe self = liftDOM ((((js_getCustomElementRegistry ((Types.toDocumentOrShadowRoot self))) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://developer.mozilla.org/docs/Web/API/Document/customElementRegistry MDN DocumentOrShadowRoot.customElementRegistry documentation>+getCustomElementRegistryUnchecked :: (MonadDOM m, IsDocumentOrShadowRoot self) => self -> m CustomElementRegistry+getCustomElementRegistryUnchecked self = liftDOM ((pFromJSVal <$> (js_getCustomElementRegistry ((Types.toDocumentOrShadowRoot self)))))++foreign import javascript unsafe "(($1) => { return $1[\"styleSheets\"]; })"+ js_getStyleSheets :: DocumentOrShadowRoot -> IO StyleSheetList+-- | <https://developer.mozilla.org/docs/Web/API/Document/styleSheets MDN DocumentOrShadowRoot.styleSheets documentation>+getStyleSheets :: (MonadDOM m, IsDocumentOrShadowRoot self) => self -> m StyleSheetList+getStyleSheets self = liftDOM ((js_getStyleSheets ((Types.toDocumentOrShadowRoot self))))++foreign import javascript safe "(($1, $2) => { $1[\"adoptedStyleSheets\"] = $2; })"+ js_setAdoptedStyleSheets :: DocumentOrShadowRoot -> JSVal -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/Document/adoptedStyleSheets MDN DocumentOrShadowRoot.adoptedStyleSheets documentation>+setAdoptedStyleSheets :: (MonadDOM m, IsDocumentOrShadowRoot self) => self -> [CSSStyleSheet] -> m ()+setAdoptedStyleSheets self val = liftDOM (void (((toJSVal val) >>= \a2' -> js_setAdoptedStyleSheets ((Types.toDocumentOrShadowRoot self)) a2')))++foreign import javascript unsafe "(($1) => { return $1[\"adoptedStyleSheets\"]; })"+ js_getAdoptedStyleSheets :: DocumentOrShadowRoot -> IO JSVal+-- | <https://developer.mozilla.org/docs/Web/API/Document/adoptedStyleSheets MDN DocumentOrShadowRoot.adoptedStyleSheets documentation>+getAdoptedStyleSheets :: (MonadDOM m, IsDocumentOrShadowRoot self) => self -> m [CSSStyleSheet]+getAdoptedStyleSheets self = liftDOM (((js_getAdoptedStyleSheets ((Types.toDocumentOrShadowRoot self))) >>= fromJSValUnchecked))++foreign import javascript unsafe "(($1) => { return $1[\"fullscreenElement\"]; })"+ js_getFullscreenElement :: DocumentOrShadowRoot -> IO JSVal+-- | <https://developer.mozilla.org/docs/Web/API/Document/fullscreenElement MDN DocumentOrShadowRoot.fullscreenElement documentation>+getFullscreenElement :: (MonadDOM m, IsDocumentOrShadowRoot self) => self -> m (Maybe Element)+getFullscreenElement self = liftDOM (((js_getFullscreenElement ((Types.toDocumentOrShadowRoot self))) >>= fromJSValUnchecked))++-- | <https://developer.mozilla.org/docs/Web/API/Document/fullscreenElement MDN DocumentOrShadowRoot.fullscreenElement documentation>+getFullscreenElementUnsafe :: (MonadDOM m, IsDocumentOrShadowRoot self, HasCallStack) => self -> m Element+getFullscreenElementUnsafe self = liftDOM ((((js_getFullscreenElement ((Types.toDocumentOrShadowRoot self))) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://developer.mozilla.org/docs/Web/API/Document/fullscreenElement MDN DocumentOrShadowRoot.fullscreenElement documentation>+getFullscreenElementUnchecked :: (MonadDOM m, IsDocumentOrShadowRoot self) => self -> m Element+getFullscreenElementUnchecked self = liftDOM ((pFromJSVal <$> (js_getFullscreenElement ((Types.toDocumentOrShadowRoot self)))))+ foreign import javascript unsafe "(($1) => { return $1[\"activeElement\"]; })"- js_getActiveElement ::- DocumentOrShadowRoot -> IO (Nullable Element)+ js_getActiveElement :: DocumentOrShadowRoot -> IO JSVal+-- | <https://developer.mozilla.org/docs/Web/API/Document/activeElement MDN DocumentOrShadowRoot.activeElement documentation>+getActiveElement :: (MonadDOM m, IsDocumentOrShadowRoot self) => self -> m (Maybe Element)+getActiveElement self = liftDOM (((js_getActiveElement ((Types.toDocumentOrShadowRoot self))) >>= fromJSValUnchecked)) --- | <https://developer.mozilla.org/en-US/docs/Web/API/DocumentOrShadowRoot.activeElement Mozilla DocumentOrShadowRoot.activeElement documentation> -getActiveElement ::- (MonadIO m, IsDocumentOrShadowRoot self) =>- self -> m (Maybe Element)-getActiveElement self- = liftIO- (nullableToMaybe <$>- (js_getActiveElement (toDocumentOrShadowRoot self)))+-- | <https://developer.mozilla.org/docs/Web/API/Document/activeElement MDN DocumentOrShadowRoot.activeElement documentation>+getActiveElementUnsafe :: (MonadDOM m, IsDocumentOrShadowRoot self, HasCallStack) => self -> m Element+getActiveElementUnsafe self = liftDOM ((((js_getActiveElement ((Types.toDocumentOrShadowRoot self))) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) --- | <https://developer.mozilla.org/en-US/docs/Web/API/DocumentOrShadowRoot.activeElement Mozilla DocumentOrShadowRoot.activeElement documentation> -getActiveElementUnsafe ::- (MonadIO m, IsDocumentOrShadowRoot self, HasCallStack) =>- self -> m Element-getActiveElementUnsafe self- = liftIO- ((nullableToMaybe <$>- (js_getActiveElement (toDocumentOrShadowRoot self)))- >>= maybe (Prelude.error "Nothing to return") return)+-- | <https://developer.mozilla.org/docs/Web/API/Document/activeElement MDN DocumentOrShadowRoot.activeElement documentation>+getActiveElementUnchecked :: (MonadDOM m, IsDocumentOrShadowRoot self) => self -> m Element+getActiveElementUnchecked self = liftDOM ((pFromJSVal <$> (js_getActiveElement ((Types.toDocumentOrShadowRoot self))))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/DocumentOrShadowRoot.activeElement Mozilla DocumentOrShadowRoot.activeElement documentation> -getActiveElementUnchecked ::- (MonadIO m, IsDocumentOrShadowRoot self) => self -> m Element-getActiveElementUnchecked self- = liftIO- (fromJust . nullableToMaybe <$>- (js_getActiveElement (toDocumentOrShadowRoot self)))- -foreign import javascript unsafe "(($1) => { return $1[\"pointerLockElement\"]; })"- js_getPointerLockElement ::- DocumentOrShadowRoot -> IO (Nullable Element)+foreign import javascript unsafe "(($1) => { return $1[\"pictureInPictureElement\"]; })"+ js_getPictureInPictureElement :: DocumentOrShadowRoot -> IO JSVal+-- | <https://developer.mozilla.org/docs/Web/API/Document/pictureInPictureElement MDN DocumentOrShadowRoot.pictureInPictureElement documentation>+getPictureInPictureElement :: (MonadDOM m, IsDocumentOrShadowRoot self) => self -> m (Maybe Element)+getPictureInPictureElement self = liftDOM (((js_getPictureInPictureElement ((Types.toDocumentOrShadowRoot self))) >>= fromJSValUnchecked)) --- | <https://developer.mozilla.org/en-US/docs/Web/API/DocumentOrShadowRoot.pointerLockElement Mozilla DocumentOrShadowRoot.pointerLockElement documentation> -getPointerLockElement ::- (MonadIO m, IsDocumentOrShadowRoot self) =>- self -> m (Maybe Element)-getPointerLockElement self- = liftIO- (nullableToMaybe <$>- (js_getPointerLockElement (toDocumentOrShadowRoot self)))+-- | <https://developer.mozilla.org/docs/Web/API/Document/pictureInPictureElement MDN DocumentOrShadowRoot.pictureInPictureElement documentation>+getPictureInPictureElementUnsafe :: (MonadDOM m, IsDocumentOrShadowRoot self, HasCallStack) => self -> m Element+getPictureInPictureElementUnsafe self = liftDOM ((((js_getPictureInPictureElement ((Types.toDocumentOrShadowRoot self))) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) --- | <https://developer.mozilla.org/en-US/docs/Web/API/DocumentOrShadowRoot.pointerLockElement Mozilla DocumentOrShadowRoot.pointerLockElement documentation> -getPointerLockElementUnsafe ::- (MonadIO m, IsDocumentOrShadowRoot self, HasCallStack) =>- self -> m Element-getPointerLockElementUnsafe self- = liftIO- ((nullableToMaybe <$>- (js_getPointerLockElement (toDocumentOrShadowRoot self)))- >>= maybe (Prelude.error "Nothing to return") return)+-- | <https://developer.mozilla.org/docs/Web/API/Document/pictureInPictureElement MDN DocumentOrShadowRoot.pictureInPictureElement documentation>+getPictureInPictureElementUnchecked :: (MonadDOM m, IsDocumentOrShadowRoot self) => self -> m Element+getPictureInPictureElementUnchecked self = liftDOM ((pFromJSVal <$> (js_getPictureInPictureElement ((Types.toDocumentOrShadowRoot self))))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/DocumentOrShadowRoot.pointerLockElement Mozilla DocumentOrShadowRoot.pointerLockElement documentation> -getPointerLockElementUnchecked ::- (MonadIO m, IsDocumentOrShadowRoot self) => self -> m Element-getPointerLockElementUnchecked self- = liftIO- (fromJust . nullableToMaybe <$>- (js_getPointerLockElement (toDocumentOrShadowRoot self)))+foreign import javascript unsafe "(($1) => { return $1[\"pointerLockElement\"]; })"+ js_getPointerLockElement :: DocumentOrShadowRoot -> IO JSVal+-- | <https://developer.mozilla.org/docs/Web/API/Document/pointerLockElement MDN DocumentOrShadowRoot.pointerLockElement documentation>+getPointerLockElement :: (MonadDOM m, IsDocumentOrShadowRoot self) => self -> m (Maybe Element)+getPointerLockElement self = liftDOM (((js_getPointerLockElement ((Types.toDocumentOrShadowRoot self))) >>= fromJSValUnchecked))++-- | <https://developer.mozilla.org/docs/Web/API/Document/pointerLockElement MDN DocumentOrShadowRoot.pointerLockElement documentation>+getPointerLockElementUnsafe :: (MonadDOM m, IsDocumentOrShadowRoot self, HasCallStack) => self -> m Element+getPointerLockElementUnsafe self = liftDOM ((((js_getPointerLockElement ((Types.toDocumentOrShadowRoot self))) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://developer.mozilla.org/docs/Web/API/Document/pointerLockElement MDN DocumentOrShadowRoot.pointerLockElement documentation>+getPointerLockElementUnchecked :: (MonadDOM m, IsDocumentOrShadowRoot self) => self -> m Element+getPointerLockElementUnchecked self = liftDOM ((pFromJSVal <$> (js_getPointerLockElement ((Types.toDocumentOrShadowRoot self)))))
@@ -0,0 +1,37 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from document-picture-in-picture (webref). Do not edit.+module GHCJS.DOM.JSFFI.Generated.DocumentPictureInPicture+ (js_requestWindow, js_getWindow, requestWindow, requestWindow_, getWindow, enter, DocumentPictureInPicture(..), gTypeDocumentPictureInPicture)+ 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[\"requestWindow\"]($2).then(function(s) { $c(null, s);}, function(e) { $c(e, null);}); })"+ js_requestWindow :: DocumentPictureInPicture -> JSVal -> IO (JSVal, Window)+-- | <https://developer.mozilla.org/docs/Web/API/DocumentPictureInPicture/requestWindow MDN DocumentPictureInPicture.requestWindow documentation>+requestWindow :: (MonadDOM m) => DocumentPictureInPicture -> Maybe DocumentPictureInPictureOptions -> m Window+requestWindow self options = liftDOM ((((P.maybe (P.return jsUndefined) toJSVal options) >>= \a2' -> js_requestWindow (self) a2') >>= checkPromiseResult))++-- | <https://developer.mozilla.org/docs/Web/API/DocumentPictureInPicture/requestWindow MDN DocumentPictureInPicture.requestWindow documentation>+requestWindow_ :: (MonadDOM m) => DocumentPictureInPicture -> Maybe DocumentPictureInPictureOptions -> m ()+requestWindow_ self options = liftDOM (void ((((P.maybe (P.return jsUndefined) toJSVal options) >>= \a2' -> js_requestWindow (self) a2') >>= checkPromiseResult)))++foreign import javascript unsafe "(($1) => { return $1[\"window\"]; })"+ js_getWindow :: DocumentPictureInPicture -> IO Window+-- | <https://developer.mozilla.org/docs/Web/API/DocumentPictureInPicture/window MDN DocumentPictureInPicture.window documentation>+getWindow :: (MonadDOM m) => DocumentPictureInPicture -> m Window+getWindow self = liftDOM ((js_getWindow (self)))++-- | <https://wicg.github.io/document-picture-in-picture/#dom-documentpictureinpicture-onenter enter event>+enter :: EventName DocumentPictureInPicture DocumentPictureInPictureEvent+enter = unsafeEventName (toJSString "enter")
@@ -0,0 +1,29 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from document-picture-in-picture (webref). Do not edit.+module GHCJS.DOM.JSFFI.Generated.DocumentPictureInPictureEvent+ (js_newDocumentPictureInPictureEvent, js_getWindow, newDocumentPictureInPictureEvent, getWindow, DocumentPictureInPictureEvent(..), gTypeDocumentPictureInPictureEvent)+ 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[\"DocumentPictureInPictureEvent\"]($1, $2); })"+ js_newDocumentPictureInPictureEvent :: JSString -> DocumentPictureInPictureEventInit -> IO DocumentPictureInPictureEvent+-- | <https://developer.mozilla.org/docs/Web/API/DocumentPictureInPictureEvent/DocumentPictureInPictureEvent MDN DocumentPictureInPictureEvent. documentation>+newDocumentPictureInPictureEvent :: (MonadDOM m, ToJSString type') => type' -> DocumentPictureInPictureEventInit -> m DocumentPictureInPictureEvent+newDocumentPictureInPictureEvent type' eventInitDict = liftDOM ((js_newDocumentPictureInPictureEvent (toJSString type') (eventInitDict)))++foreign import javascript unsafe "(($1) => { return $1[\"window\"]; })"+ js_getWindow :: DocumentPictureInPictureEvent -> IO Window+-- | <https://developer.mozilla.org/docs/Web/API/DocumentPictureInPictureEvent/window MDN DocumentPictureInPictureEvent.window documentation>+getWindow :: (MonadDOM m) => DocumentPictureInPictureEvent -> m Window+getWindow self = liftDOM ((js_getWindow (self)))
@@ -0,0 +1,35 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from document-picture-in-picture (webref). Do not edit.+module GHCJS.DOM.JSFFI.Generated.DocumentPictureInPictureEventInit+ (js_newDocumentPictureInPictureEventInit, js_setWindow, js_getWindow, newDocumentPictureInPictureEventInit, setWindow, getWindow, DocumentPictureInPictureEventInit(..), gTypeDocumentPictureInPictureEventInit)+ 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 ({\"window\": $1}); })"+ js_newDocumentPictureInPictureEventInit :: Window -> IO DocumentPictureInPictureEventInit+-- | <https://wicg.github.io/document-picture-in-picture/#dictdef-documentpictureinpictureeventinit DocumentPictureInPictureEventInit specification>+newDocumentPictureInPictureEventInit :: (MonadDOM m) => Window -> m DocumentPictureInPictureEventInit+newDocumentPictureInPictureEventInit window = liftDOM ((js_newDocumentPictureInPictureEventInit (window)))++foreign import javascript safe "(($1, $2) => { $1[\"window\"] = $2; })"+ js_setWindow :: DocumentPictureInPictureEventInit -> Window -> IO ()+-- | <https://wicg.github.io/document-picture-in-picture/#dom-documentpictureinpictureeventinit-window DocumentPictureInPictureEventInit.window specification>+setWindow :: (MonadDOM m) => DocumentPictureInPictureEventInit -> Window -> m ()+setWindow self val = liftDOM (void ((js_setWindow (self) (val))))++foreign import javascript unsafe "(($1) => { return $1[\"window\"]; })"+ js_getWindow :: DocumentPictureInPictureEventInit -> IO Window+-- | <https://wicg.github.io/document-picture-in-picture/#dom-documentpictureinpictureeventinit-window DocumentPictureInPictureEventInit.window specification>+getWindow :: (MonadDOM m) => DocumentPictureInPictureEventInit -> m Window+getWindow self = liftDOM ((js_getWindow (self)))
@@ -0,0 +1,103 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from document-picture-in-picture (webref). Do not edit.+module GHCJS.DOM.JSFFI.Generated.DocumentPictureInPictureOptions+ (js_newDocumentPictureInPictureOptions, js_setWidth, js_getWidth, js_setHeight, js_getHeight, js_setDisallowReturnToOpener, js_getDisallowReturnToOpener, js_setPreferInitialWindowPlacement, js_getPreferInitialWindowPlacement, newDocumentPictureInPictureOptions, setWidth, getWidth, getWidthUnsafe, getWidthUnchecked, setHeight, getHeight, getHeightUnsafe, getHeightUnchecked, setDisallowReturnToOpener, getDisallowReturnToOpener, getDisallowReturnToOpenerUnsafe, getDisallowReturnToOpenerUnchecked, setPreferInitialWindowPlacement, getPreferInitialWindowPlacement, getPreferInitialWindowPlacementUnsafe, getPreferInitialWindowPlacementUnchecked, DocumentPictureInPictureOptions(..), gTypeDocumentPictureInPictureOptions)+ 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_newDocumentPictureInPictureOptions :: IO DocumentPictureInPictureOptions+-- | <https://wicg.github.io/document-picture-in-picture/#dictdef-documentpictureinpictureoptions DocumentPictureInPictureOptions specification>+newDocumentPictureInPictureOptions :: (MonadDOM m) => m DocumentPictureInPictureOptions+newDocumentPictureInPictureOptions = liftDOM ((js_newDocumentPictureInPictureOptions))++foreign import javascript safe "(($1, $2) => { $1[\"width\"] = $2; })"+ js_setWidth :: DocumentPictureInPictureOptions -> JSVal -> IO ()+-- | <https://wicg.github.io/document-picture-in-picture/#dom-documentpictureinpictureoptions-width DocumentPictureInPictureOptions.width specification>+setWidth :: (MonadDOM m) => DocumentPictureInPictureOptions -> Word53 -> m ()+setWidth self val = liftDOM (void (((toJSVal val) >>= \a2' -> js_setWidth (self) a2')))++foreign import javascript unsafe "(($1) => { return $1[\"width\"]; })"+ js_getWidth :: DocumentPictureInPictureOptions -> IO JSVal+-- | <https://wicg.github.io/document-picture-in-picture/#dom-documentpictureinpictureoptions-width DocumentPictureInPictureOptions.width specification>+getWidth :: (MonadDOM m) => DocumentPictureInPictureOptions -> m (Maybe Word53)+getWidth self = liftDOM (((js_getWidth (self)) >>= fromJSValUnchecked))++-- | <https://wicg.github.io/document-picture-in-picture/#dom-documentpictureinpictureoptions-width DocumentPictureInPictureOptions.width specification>+getWidthUnsafe :: (MonadDOM m, HasCallStack) => DocumentPictureInPictureOptions -> m Word53+getWidthUnsafe self = liftDOM ((((js_getWidth (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://wicg.github.io/document-picture-in-picture/#dom-documentpictureinpictureoptions-width DocumentPictureInPictureOptions.width specification>+getWidthUnchecked :: (MonadDOM m) => DocumentPictureInPictureOptions -> m Word53+getWidthUnchecked self = liftDOM ((pFromJSVal <$> (js_getWidth (self))))++foreign import javascript safe "(($1, $2) => { $1[\"height\"] = $2; })"+ js_setHeight :: DocumentPictureInPictureOptions -> JSVal -> IO ()+-- | <https://wicg.github.io/document-picture-in-picture/#dom-documentpictureinpictureoptions-height DocumentPictureInPictureOptions.height specification>+setHeight :: (MonadDOM m) => DocumentPictureInPictureOptions -> Word53 -> m ()+setHeight self val = liftDOM (void (((toJSVal val) >>= \a2' -> js_setHeight (self) a2')))++foreign import javascript unsafe "(($1) => { return $1[\"height\"]; })"+ js_getHeight :: DocumentPictureInPictureOptions -> IO JSVal+-- | <https://wicg.github.io/document-picture-in-picture/#dom-documentpictureinpictureoptions-height DocumentPictureInPictureOptions.height specification>+getHeight :: (MonadDOM m) => DocumentPictureInPictureOptions -> m (Maybe Word53)+getHeight self = liftDOM (((js_getHeight (self)) >>= fromJSValUnchecked))++-- | <https://wicg.github.io/document-picture-in-picture/#dom-documentpictureinpictureoptions-height DocumentPictureInPictureOptions.height specification>+getHeightUnsafe :: (MonadDOM m, HasCallStack) => DocumentPictureInPictureOptions -> m Word53+getHeightUnsafe self = liftDOM ((((js_getHeight (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://wicg.github.io/document-picture-in-picture/#dom-documentpictureinpictureoptions-height DocumentPictureInPictureOptions.height specification>+getHeightUnchecked :: (MonadDOM m) => DocumentPictureInPictureOptions -> m Word53+getHeightUnchecked self = liftDOM ((pFromJSVal <$> (js_getHeight (self))))++foreign import javascript safe "(($1, $2) => { $1[\"disallowReturnToOpener\"] = $2; })"+ js_setDisallowReturnToOpener :: DocumentPictureInPictureOptions -> Bool -> IO ()+-- | <https://wicg.github.io/document-picture-in-picture/#dom-documentpictureinpictureoptions-disallowreturntoopener DocumentPictureInPictureOptions.disallowReturnToOpener specification>+setDisallowReturnToOpener :: (MonadDOM m) => DocumentPictureInPictureOptions -> Bool -> m ()+setDisallowReturnToOpener self val = liftDOM (void ((js_setDisallowReturnToOpener (self) (val))))++foreign import javascript unsafe "(($1) => { return $1[\"disallowReturnToOpener\"]; })"+ js_getDisallowReturnToOpener :: DocumentPictureInPictureOptions -> IO JSVal+-- | <https://wicg.github.io/document-picture-in-picture/#dom-documentpictureinpictureoptions-disallowreturntoopener DocumentPictureInPictureOptions.disallowReturnToOpener specification>+getDisallowReturnToOpener :: (MonadDOM m) => DocumentPictureInPictureOptions -> m (Maybe Bool)+getDisallowReturnToOpener self = liftDOM (((js_getDisallowReturnToOpener (self)) >>= fromJSValUnchecked))++-- | <https://wicg.github.io/document-picture-in-picture/#dom-documentpictureinpictureoptions-disallowreturntoopener DocumentPictureInPictureOptions.disallowReturnToOpener specification>+getDisallowReturnToOpenerUnsafe :: (MonadDOM m, HasCallStack) => DocumentPictureInPictureOptions -> m Bool+getDisallowReturnToOpenerUnsafe self = liftDOM ((((js_getDisallowReturnToOpener (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://wicg.github.io/document-picture-in-picture/#dom-documentpictureinpictureoptions-disallowreturntoopener DocumentPictureInPictureOptions.disallowReturnToOpener specification>+getDisallowReturnToOpenerUnchecked :: (MonadDOM m) => DocumentPictureInPictureOptions -> m Bool+getDisallowReturnToOpenerUnchecked self = liftDOM ((pFromJSVal <$> (js_getDisallowReturnToOpener (self))))++foreign import javascript safe "(($1, $2) => { $1[\"preferInitialWindowPlacement\"] = $2; })"+ js_setPreferInitialWindowPlacement :: DocumentPictureInPictureOptions -> Bool -> IO ()+-- | <https://wicg.github.io/document-picture-in-picture/#dom-documentpictureinpictureoptions-preferinitialwindowplacement DocumentPictureInPictureOptions.preferInitialWindowPlacement specification>+setPreferInitialWindowPlacement :: (MonadDOM m) => DocumentPictureInPictureOptions -> Bool -> m ()+setPreferInitialWindowPlacement self val = liftDOM (void ((js_setPreferInitialWindowPlacement (self) (val))))++foreign import javascript unsafe "(($1) => { return $1[\"preferInitialWindowPlacement\"]; })"+ js_getPreferInitialWindowPlacement :: DocumentPictureInPictureOptions -> IO JSVal+-- | <https://wicg.github.io/document-picture-in-picture/#dom-documentpictureinpictureoptions-preferinitialwindowplacement DocumentPictureInPictureOptions.preferInitialWindowPlacement specification>+getPreferInitialWindowPlacement :: (MonadDOM m) => DocumentPictureInPictureOptions -> m (Maybe Bool)+getPreferInitialWindowPlacement self = liftDOM (((js_getPreferInitialWindowPlacement (self)) >>= fromJSValUnchecked))++-- | <https://wicg.github.io/document-picture-in-picture/#dom-documentpictureinpictureoptions-preferinitialwindowplacement DocumentPictureInPictureOptions.preferInitialWindowPlacement specification>+getPreferInitialWindowPlacementUnsafe :: (MonadDOM m, HasCallStack) => DocumentPictureInPictureOptions -> m Bool+getPreferInitialWindowPlacementUnsafe self = liftDOM ((((js_getPreferInitialWindowPlacement (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://wicg.github.io/document-picture-in-picture/#dom-documentpictureinpictureoptions-preferinitialwindowplacement DocumentPictureInPictureOptions.preferInitialWindowPlacement specification>+getPreferInitialWindowPlacementUnchecked :: (MonadDOM m) => DocumentPictureInPictureOptions -> m Bool+getPreferInitialWindowPlacementUnchecked self = liftDOM ((pFromJSVal <$> (js_getPreferInitialWindowPlacement (self))))
@@ -1,36 +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 web-animations-1 (webref). Do not edit. module GHCJS.DOM.JSFFI.Generated.DocumentTimeline- (js_newDocumentTimeline, newDocumentTimeline, DocumentTimeline(..),- gTypeDocumentTimeline)+ (js_newDocumentTimeline, newDocumentTimeline, DocumentTimeline(..), gTypeDocumentTimeline) where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)-import qualified Prelude (error)-import Data.Typeable (Typeable)-import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull, jsUndefined)-import 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[\"DocumentTimeline\"]($1); })" js_newDocumentTimeline ::- Double -> IO DocumentTimeline --- | <https://developer.mozilla.org/en-US/docs/Web/API/DocumentTimeline Mozilla DocumentTimeline documentation> -newDocumentTimeline :: (MonadIO m) => Double -> m DocumentTimeline-newDocumentTimeline originTime- = liftIO (js_newDocumentTimeline originTime)+foreign import javascript safe "(($1) => { return new globalThis[\"DocumentTimeline\"]($1); })"+ js_newDocumentTimeline :: JSVal -> IO DocumentTimeline+-- | <https://developer.mozilla.org/docs/Web/API/DocumentTimeline/DocumentTimeline MDN DocumentTimeline. documentation>+newDocumentTimeline :: (MonadDOM m) => Maybe DocumentTimelineOptions -> m DocumentTimeline+newDocumentTimeline options = liftDOM (((P.maybe (P.return jsUndefined) toJSVal options) >>= \a1' -> js_newDocumentTimeline a1'))
@@ -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.DocumentTimelineOptions+ (js_newDocumentTimelineOptions, js_setOriginTime, js_getOriginTime, newDocumentTimelineOptions, setOriginTime, getOriginTime, getOriginTimeUnsafe, getOriginTimeUnchecked, DocumentTimelineOptions(..), gTypeDocumentTimelineOptions)+ 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_newDocumentTimelineOptions :: IO DocumentTimelineOptions+-- | <https://drafts.csswg.org/web-animations-1/#dictdef-documenttimelineoptions DocumentTimelineOptions specification>+newDocumentTimelineOptions :: (MonadDOM m) => m DocumentTimelineOptions+newDocumentTimelineOptions = liftDOM ((js_newDocumentTimelineOptions))++foreign import javascript safe "(($1, $2) => { $1[\"originTime\"] = $2; })"+ js_setOriginTime :: DocumentTimelineOptions -> Double -> IO ()+-- | <https://drafts.csswg.org/web-animations-1/#dom-documenttimelineoptions-origintime DocumentTimelineOptions.originTime specification>+setOriginTime :: (MonadDOM m) => DocumentTimelineOptions -> Double -> m ()+setOriginTime self val = liftDOM (void ((js_setOriginTime (self) (val))))++foreign import javascript unsafe "(($1) => { return $1[\"originTime\"]; })"+ js_getOriginTime :: DocumentTimelineOptions -> IO JSVal+-- | <https://drafts.csswg.org/web-animations-1/#dom-documenttimelineoptions-origintime DocumentTimelineOptions.originTime specification>+getOriginTime :: (MonadDOM m) => DocumentTimelineOptions -> m (Maybe Double)+getOriginTime self = liftDOM (((js_getOriginTime (self)) >>= fromJSValUnchecked))++-- | <https://drafts.csswg.org/web-animations-1/#dom-documenttimelineoptions-origintime DocumentTimelineOptions.originTime specification>+getOriginTimeUnsafe :: (MonadDOM m, HasCallStack) => DocumentTimelineOptions -> m Double+getOriginTimeUnsafe self = liftDOM ((((js_getOriginTime (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://drafts.csswg.org/web-animations-1/#dom-documenttimelineoptions-origintime DocumentTimelineOptions.originTime specification>+getOriginTimeUnchecked :: (MonadDOM m) => DocumentTimelineOptions -> m Double+getOriginTimeUnchecked self = liftDOM ((pFromJSVal <$> (js_getOriginTime (self))))
@@ -1,51 +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.DocumentType- (js_getName, getName, js_getPublicId, getPublicId, js_getSystemId,- getSystemId, DocumentType(..), gTypeDocumentType)+ (js_getName, js_getPublicId, js_getSystemId, getName, getPublicId, getSystemId, DocumentType(..), gTypeDocumentType) where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)-import qualified Prelude (error)-import Data.Typeable (Typeable)-import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull, 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[\"name\"]; })" js_getName ::- DocumentType -> IO JSString --- | <https://developer.mozilla.org/en-US/docs/Web/API/DocumentType.name Mozilla DocumentType.name documentation> -getName ::- (MonadIO m, FromJSString result) => DocumentType -> m result-getName self = liftIO (fromJSString <$> (js_getName self))- -foreign import javascript unsafe "(($1) => { return $1[\"publicId\"]; })" js_getPublicId- :: DocumentType -> IO JSString+foreign import javascript unsafe "(($1) => { return $1[\"name\"]; })"+ js_getName :: DocumentType -> IO JSString+-- | <https://developer.mozilla.org/docs/Web/API/DocumentType/name MDN DocumentType.name documentation>+getName :: (MonadDOM m, FromJSString result) => DocumentType -> m result+getName self = liftDOM ((fromJSString <$> (js_getName (self)))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/DocumentType.publicId Mozilla DocumentType.publicId documentation> -getPublicId ::- (MonadIO m, FromJSString result) => DocumentType -> m result-getPublicId self = liftIO (fromJSString <$> (js_getPublicId self))- -foreign import javascript unsafe "(($1) => { return $1[\"systemId\"]; })" js_getSystemId- :: DocumentType -> IO JSString+foreign import javascript unsafe "(($1) => { return $1[\"publicId\"]; })"+ js_getPublicId :: DocumentType -> IO JSString+-- | <https://developer.mozilla.org/docs/Web/API/DocumentType/publicId MDN DocumentType.publicId documentation>+getPublicId :: (MonadDOM m, FromJSString result) => DocumentType -> m result+getPublicId self = liftDOM ((fromJSString <$> (js_getPublicId (self)))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/DocumentType.systemId Mozilla DocumentType.systemId documentation> -getSystemId ::- (MonadIO m, FromJSString result) => DocumentType -> m result-getSystemId self = liftIO (fromJSString <$> (js_getSystemId self))+foreign import javascript unsafe "(($1) => { return $1[\"systemId\"]; })"+ js_getSystemId :: DocumentType -> IO JSString+-- | <https://developer.mozilla.org/docs/Web/API/DocumentType/systemId MDN DocumentType.systemId documentation>+getSystemId :: (MonadDOM m, FromJSString result) => DocumentType -> m result+getSystemId self = liftDOM ((fromJSString <$> (js_getSystemId (self))))
@@ -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.DoubleRange+ (js_newDoubleRange, js_setMax, js_getMax, js_setMin, js_getMin, newDoubleRange, setMax, getMax, getMaxUnsafe, getMaxUnchecked, setMin, getMin, getMinUnsafe, getMinUnchecked, DoubleRange(..), gTypeDoubleRange, IsDoubleRange, toDoubleRange)+ 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_newDoubleRange :: IO DoubleRange+-- | <https://w3c.github.io/mediacapture-main/#dom-doublerange DoubleRange specification>+newDoubleRange :: (MonadDOM m) => m DoubleRange+newDoubleRange = liftDOM ((js_newDoubleRange))++foreign import javascript safe "(($1, $2) => { $1[\"max\"] = $2; })"+ js_setMax :: DoubleRange -> Double -> IO ()+-- | <https://w3c.github.io/mediacapture-main/#dom-doublerange-max DoubleRange.max specification>+setMax :: (MonadDOM m, IsDoubleRange self) => self -> Double -> m ()+setMax self val = liftDOM (void ((js_setMax ((Types.toDoubleRange self)) (val))))++foreign import javascript unsafe "(($1) => { return $1[\"max\"]; })"+ js_getMax :: DoubleRange -> IO JSVal+-- | <https://w3c.github.io/mediacapture-main/#dom-doublerange-max DoubleRange.max specification>+getMax :: (MonadDOM m, IsDoubleRange self) => self -> m (Maybe Double)+getMax self = liftDOM (((js_getMax ((Types.toDoubleRange self))) >>= fromJSValUnchecked))++-- | <https://w3c.github.io/mediacapture-main/#dom-doublerange-max DoubleRange.max specification>+getMaxUnsafe :: (MonadDOM m, IsDoubleRange self, HasCallStack) => self -> m Double+getMaxUnsafe self = liftDOM ((((js_getMax ((Types.toDoubleRange self))) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://w3c.github.io/mediacapture-main/#dom-doublerange-max DoubleRange.max specification>+getMaxUnchecked :: (MonadDOM m, IsDoubleRange self) => self -> m Double+getMaxUnchecked self = liftDOM ((pFromJSVal <$> (js_getMax ((Types.toDoubleRange self)))))++foreign import javascript safe "(($1, $2) => { $1[\"min\"] = $2; })"+ js_setMin :: DoubleRange -> Double -> IO ()+-- | <https://w3c.github.io/mediacapture-main/#dom-doublerange-min DoubleRange.min specification>+setMin :: (MonadDOM m, IsDoubleRange self) => self -> Double -> m ()+setMin self val = liftDOM (void ((js_setMin ((Types.toDoubleRange self)) (val))))++foreign import javascript unsafe "(($1) => { return $1[\"min\"]; })"+ js_getMin :: DoubleRange -> IO JSVal+-- | <https://w3c.github.io/mediacapture-main/#dom-doublerange-min DoubleRange.min specification>+getMin :: (MonadDOM m, IsDoubleRange self) => self -> m (Maybe Double)+getMin self = liftDOM (((js_getMin ((Types.toDoubleRange self))) >>= fromJSValUnchecked))++-- | <https://w3c.github.io/mediacapture-main/#dom-doublerange-min DoubleRange.min specification>+getMinUnsafe :: (MonadDOM m, IsDoubleRange self, HasCallStack) => self -> m Double+getMinUnsafe self = liftDOM ((((js_getMin ((Types.toDoubleRange self))) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://w3c.github.io/mediacapture-main/#dom-doublerange-min DoubleRange.min specification>+getMinUnchecked :: (MonadDOM m, IsDoubleRange self) => self -> m Double+getMinUnchecked self = liftDOM ((pFromJSVal <$> (js_getMin ((Types.toDoubleRange self)))))
@@ -0,0 +1,37 @@+{-# 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.DragEvent+ (js_newDragEvent, js_getDataTransfer, newDragEvent, getDataTransfer, getDataTransferUnsafe, getDataTransferUnchecked, DragEvent(..), gTypeDragEvent)+ 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[\"DragEvent\"]($1, $2); })"+ js_newDragEvent :: JSString -> JSVal -> IO DragEvent+-- | <https://developer.mozilla.org/docs/Web/API/DragEvent/DragEvent MDN DragEvent. documentation>+newDragEvent :: (MonadDOM m, ToJSString type') => type' -> Maybe DragEventInit -> m DragEvent+newDragEvent type' eventInitDict = liftDOM (((P.maybe (P.return jsUndefined) toJSVal eventInitDict) >>= \a2' -> js_newDragEvent (toJSString type') a2'))++foreign import javascript unsafe "(($1) => { return $1[\"dataTransfer\"]; })"+ js_getDataTransfer :: DragEvent -> IO JSVal+-- | <https://developer.mozilla.org/docs/Web/API/DragEvent/dataTransfer MDN DragEvent.dataTransfer documentation>+getDataTransfer :: (MonadDOM m) => DragEvent -> m (Maybe DataTransfer)+getDataTransfer self = liftDOM (((js_getDataTransfer (self)) >>= fromJSValUnchecked))++-- | <https://developer.mozilla.org/docs/Web/API/DragEvent/dataTransfer MDN DragEvent.dataTransfer documentation>+getDataTransferUnsafe :: (MonadDOM m, HasCallStack) => DragEvent -> m DataTransfer+getDataTransferUnsafe self = liftDOM ((((js_getDataTransfer (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://developer.mozilla.org/docs/Web/API/DragEvent/dataTransfer MDN DragEvent.dataTransfer documentation>+getDataTransferUnchecked :: (MonadDOM m) => DragEvent -> m DataTransfer+getDataTransferUnchecked self = liftDOM ((pFromJSVal <$> (js_getDataTransfer (self))))
@@ -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.DragEventInit+ (js_newDragEventInit, js_setDataTransfer, js_getDataTransfer, newDragEventInit, setDataTransfer, getDataTransfer, getDataTransferUnsafe, getDataTransferUnchecked, DragEventInit(..), gTypeDragEventInit)+ 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_newDragEventInit :: IO DragEventInit+-- | <https://html.spec.whatwg.org/multipage/dnd.html#drageventinit DragEventInit specification>+newDragEventInit :: (MonadDOM m) => m DragEventInit+newDragEventInit = liftDOM ((js_newDragEventInit))++foreign import javascript safe "(($1, $2) => { $1[\"dataTransfer\"] = $2; })"+ js_setDataTransfer :: DragEventInit -> JSVal -> IO ()+setDataTransfer :: (MonadDOM m) => DragEventInit -> Maybe DataTransfer -> m ()+setDataTransfer self val = liftDOM (void (((toJSVal val) >>= \a2' -> js_setDataTransfer (self) a2')))++foreign import javascript unsafe "(($1) => { return $1[\"dataTransfer\"]; })"+ js_getDataTransfer :: DragEventInit -> IO JSVal+getDataTransfer :: (MonadDOM m) => DragEventInit -> m (Maybe DataTransfer)+getDataTransfer self = liftDOM (((js_getDataTransfer (self)) >>= fromJSValUnchecked))++getDataTransferUnsafe :: (MonadDOM m, HasCallStack) => DragEventInit -> m DataTransfer+getDataTransferUnsafe self = liftDOM ((((js_getDataTransfer (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++getDataTransferUnchecked :: (MonadDOM m) => DragEventInit -> m DataTransfer+getDataTransferUnchecked self = liftDOM ((pFromJSVal <$> (js_getDataTransfer (self))))
@@ -1,73 +1,59 @@ {-# 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.DynamicsCompressorNode- (js_getThreshold, getThreshold, js_getKnee, getKnee, js_getRatio,- getRatio, js_getReduction, getReduction, js_getAttack, getAttack,- js_getRelease, getRelease, DynamicsCompressorNode(..),- gTypeDynamicsCompressorNode)+ (js_newDynamicsCompressorNode, js_getThreshold, js_getKnee, js_getRatio, js_getReduction, js_getAttack, js_getRelease, newDynamicsCompressorNode, getThreshold, getKnee, getRatio, getReduction, getAttack, getRelease, DynamicsCompressorNode(..), gTypeDynamicsCompressorNode) where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)-import qualified Prelude (error)-import Data.Typeable (Typeable)-import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull, 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[\"DynamicsCompressorNode\"]($1, $2); })"+ js_newDynamicsCompressorNode :: BaseAudioContext -> JSVal -> IO DynamicsCompressorNode+-- | <https://developer.mozilla.org/docs/Web/API/DynamicsCompressorNode/DynamicsCompressorNode MDN DynamicsCompressorNode. documentation>+newDynamicsCompressorNode :: (MonadDOM m, IsBaseAudioContext context) => context -> Maybe DynamicsCompressorOptions -> m DynamicsCompressorNode+newDynamicsCompressorNode context options = liftDOM (((P.maybe (P.return jsUndefined) toJSVal options) >>= \a2' -> js_newDynamicsCompressorNode (Types.toBaseAudioContext context) a2'))+ foreign import javascript unsafe "(($1) => { return $1[\"threshold\"]; })" js_getThreshold :: DynamicsCompressorNode -> IO AudioParam+-- | <https://developer.mozilla.org/docs/Web/API/DynamicsCompressorNode/threshold MDN DynamicsCompressorNode.threshold documentation>+getThreshold :: (MonadDOM m) => DynamicsCompressorNode -> m AudioParam+getThreshold self = liftDOM ((js_getThreshold (self))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/DynamicsCompressorNode.threshold Mozilla DynamicsCompressorNode.threshold documentation> -getThreshold ::- (MonadIO m) => DynamicsCompressorNode -> m AudioParam-getThreshold self = liftIO (js_getThreshold self)- -foreign import javascript unsafe "(($1) => { return $1[\"knee\"]; })" js_getKnee ::- DynamicsCompressorNode -> IO AudioParam+foreign import javascript unsafe "(($1) => { return $1[\"knee\"]; })"+ js_getKnee :: DynamicsCompressorNode -> IO AudioParam+-- | <https://developer.mozilla.org/docs/Web/API/DynamicsCompressorNode/knee MDN DynamicsCompressorNode.knee documentation>+getKnee :: (MonadDOM m) => DynamicsCompressorNode -> m AudioParam+getKnee self = liftDOM ((js_getKnee (self))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/DynamicsCompressorNode.knee Mozilla DynamicsCompressorNode.knee documentation> -getKnee :: (MonadIO m) => DynamicsCompressorNode -> m AudioParam-getKnee self = liftIO (js_getKnee self)- -foreign import javascript unsafe "(($1) => { return $1[\"ratio\"]; })" js_getRatio ::- DynamicsCompressorNode -> IO AudioParam+foreign import javascript unsafe "(($1) => { return $1[\"ratio\"]; })"+ js_getRatio :: DynamicsCompressorNode -> IO AudioParam+-- | <https://developer.mozilla.org/docs/Web/API/DynamicsCompressorNode/ratio MDN DynamicsCompressorNode.ratio documentation>+getRatio :: (MonadDOM m) => DynamicsCompressorNode -> m AudioParam+getRatio self = liftDOM ((js_getRatio (self))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/DynamicsCompressorNode.ratio Mozilla DynamicsCompressorNode.ratio documentation> -getRatio :: (MonadIO m) => DynamicsCompressorNode -> m AudioParam-getRatio self = liftIO (js_getRatio self)- foreign import javascript unsafe "(($1) => { return $1[\"reduction\"]; })"- js_getReduction :: DynamicsCompressorNode -> IO AudioParam---- | <https://developer.mozilla.org/en-US/docs/Web/API/DynamicsCompressorNode.reduction Mozilla DynamicsCompressorNode.reduction documentation> -getReduction ::- (MonadIO m) => DynamicsCompressorNode -> m AudioParam-getReduction self = liftIO (js_getReduction self)- -foreign import javascript unsafe "(($1) => { return $1[\"attack\"]; })" js_getAttack ::- DynamicsCompressorNode -> IO AudioParam+ js_getReduction :: DynamicsCompressorNode -> IO Float+-- | <https://developer.mozilla.org/docs/Web/API/DynamicsCompressorNode/reduction MDN DynamicsCompressorNode.reduction documentation>+getReduction :: (MonadDOM m) => DynamicsCompressorNode -> m Float+getReduction self = liftDOM ((js_getReduction (self))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/DynamicsCompressorNode.attack Mozilla DynamicsCompressorNode.attack documentation> -getAttack :: (MonadIO m) => DynamicsCompressorNode -> m AudioParam-getAttack self = liftIO (js_getAttack self)- -foreign import javascript unsafe "(($1) => { return $1[\"release\"]; })" js_getRelease ::- DynamicsCompressorNode -> IO AudioParam+foreign import javascript unsafe "(($1) => { return $1[\"attack\"]; })"+ js_getAttack :: DynamicsCompressorNode -> IO AudioParam+-- | <https://developer.mozilla.org/docs/Web/API/DynamicsCompressorNode/attack MDN DynamicsCompressorNode.attack documentation>+getAttack :: (MonadDOM m) => DynamicsCompressorNode -> m AudioParam+getAttack self = liftDOM ((js_getAttack (self))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/DynamicsCompressorNode.release Mozilla DynamicsCompressorNode.release documentation> -getRelease :: (MonadIO m) => DynamicsCompressorNode -> m AudioParam-getRelease self = liftIO (js_getRelease self)+foreign import javascript unsafe "(($1) => { return $1[\"release\"]; })"+ js_getRelease :: DynamicsCompressorNode -> IO AudioParam+-- | <https://developer.mozilla.org/docs/Web/API/DynamicsCompressorNode/release MDN DynamicsCompressorNode.release documentation>+getRelease :: (MonadDOM m) => DynamicsCompressorNode -> m AudioParam+getRelease self = liftDOM ((js_getRelease (self)))
@@ -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.DynamicsCompressorOptions+ (js_newDynamicsCompressorOptions, js_setAttack, js_getAttack, js_setKnee, js_getKnee, js_setRatio, js_getRatio, js_setRelease, js_getRelease, js_setThreshold, js_getThreshold, newDynamicsCompressorOptions, setAttack, getAttack, getAttackUnsafe, getAttackUnchecked, setKnee, getKnee, getKneeUnsafe, getKneeUnchecked, setRatio, getRatio, getRatioUnsafe, getRatioUnchecked, setRelease, getRelease, getReleaseUnsafe, getReleaseUnchecked, setThreshold, getThreshold, getThresholdUnsafe, getThresholdUnchecked, DynamicsCompressorOptions(..), gTypeDynamicsCompressorOptions)+ 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_newDynamicsCompressorOptions :: IO DynamicsCompressorOptions+-- | <https://webaudio.github.io/web-audio-api/#DynamicsCompressorOptions DynamicsCompressorOptions specification>+newDynamicsCompressorOptions :: (MonadDOM m) => m DynamicsCompressorOptions+newDynamicsCompressorOptions = liftDOM ((js_newDynamicsCompressorOptions))++foreign import javascript safe "(($1, $2) => { $1[\"attack\"] = $2; })"+ js_setAttack :: DynamicsCompressorOptions -> Float -> IO ()+-- | <https://webaudio.github.io/web-audio-api/#dom-dynamicscompressoroptions-attack DynamicsCompressorOptions.attack specification>+setAttack :: (MonadDOM m) => DynamicsCompressorOptions -> Float -> m ()+setAttack self val = liftDOM (void ((js_setAttack (self) (val))))++foreign import javascript unsafe "(($1) => { return $1[\"attack\"]; })"+ js_getAttack :: DynamicsCompressorOptions -> IO JSVal+-- | <https://webaudio.github.io/web-audio-api/#dom-dynamicscompressoroptions-attack DynamicsCompressorOptions.attack specification>+getAttack :: (MonadDOM m) => DynamicsCompressorOptions -> m (Maybe Float)+getAttack self = liftDOM (((js_getAttack (self)) >>= fromJSValUnchecked))++-- | <https://webaudio.github.io/web-audio-api/#dom-dynamicscompressoroptions-attack DynamicsCompressorOptions.attack specification>+getAttackUnsafe :: (MonadDOM m, HasCallStack) => DynamicsCompressorOptions -> m Float+getAttackUnsafe self = liftDOM ((((js_getAttack (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://webaudio.github.io/web-audio-api/#dom-dynamicscompressoroptions-attack DynamicsCompressorOptions.attack specification>+getAttackUnchecked :: (MonadDOM m) => DynamicsCompressorOptions -> m Float+getAttackUnchecked self = liftDOM ((pFromJSVal <$> (js_getAttack (self))))++foreign import javascript safe "(($1, $2) => { $1[\"knee\"] = $2; })"+ js_setKnee :: DynamicsCompressorOptions -> Float -> IO ()+-- | <https://webaudio.github.io/web-audio-api/#dom-dynamicscompressoroptions-knee DynamicsCompressorOptions.knee specification>+setKnee :: (MonadDOM m) => DynamicsCompressorOptions -> Float -> m ()+setKnee self val = liftDOM (void ((js_setKnee (self) (val))))++foreign import javascript unsafe "(($1) => { return $1[\"knee\"]; })"+ js_getKnee :: DynamicsCompressorOptions -> IO JSVal+-- | <https://webaudio.github.io/web-audio-api/#dom-dynamicscompressoroptions-knee DynamicsCompressorOptions.knee specification>+getKnee :: (MonadDOM m) => DynamicsCompressorOptions -> m (Maybe Float)+getKnee self = liftDOM (((js_getKnee (self)) >>= fromJSValUnchecked))++-- | <https://webaudio.github.io/web-audio-api/#dom-dynamicscompressoroptions-knee DynamicsCompressorOptions.knee specification>+getKneeUnsafe :: (MonadDOM m, HasCallStack) => DynamicsCompressorOptions -> m Float+getKneeUnsafe self = liftDOM ((((js_getKnee (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://webaudio.github.io/web-audio-api/#dom-dynamicscompressoroptions-knee DynamicsCompressorOptions.knee specification>+getKneeUnchecked :: (MonadDOM m) => DynamicsCompressorOptions -> m Float+getKneeUnchecked self = liftDOM ((pFromJSVal <$> (js_getKnee (self))))++foreign import javascript safe "(($1, $2) => { $1[\"ratio\"] = $2; })"+ js_setRatio :: DynamicsCompressorOptions -> Float -> IO ()+-- | <https://webaudio.github.io/web-audio-api/#dom-dynamicscompressoroptions-ratio DynamicsCompressorOptions.ratio specification>+setRatio :: (MonadDOM m) => DynamicsCompressorOptions -> Float -> m ()+setRatio self val = liftDOM (void ((js_setRatio (self) (val))))++foreign import javascript unsafe "(($1) => { return $1[\"ratio\"]; })"+ js_getRatio :: DynamicsCompressorOptions -> IO JSVal+-- | <https://webaudio.github.io/web-audio-api/#dom-dynamicscompressoroptions-ratio DynamicsCompressorOptions.ratio specification>+getRatio :: (MonadDOM m) => DynamicsCompressorOptions -> m (Maybe Float)+getRatio self = liftDOM (((js_getRatio (self)) >>= fromJSValUnchecked))++-- | <https://webaudio.github.io/web-audio-api/#dom-dynamicscompressoroptions-ratio DynamicsCompressorOptions.ratio specification>+getRatioUnsafe :: (MonadDOM m, HasCallStack) => DynamicsCompressorOptions -> m Float+getRatioUnsafe self = liftDOM ((((js_getRatio (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://webaudio.github.io/web-audio-api/#dom-dynamicscompressoroptions-ratio DynamicsCompressorOptions.ratio specification>+getRatioUnchecked :: (MonadDOM m) => DynamicsCompressorOptions -> m Float+getRatioUnchecked self = liftDOM ((pFromJSVal <$> (js_getRatio (self))))++foreign import javascript safe "(($1, $2) => { $1[\"release\"] = $2; })"+ js_setRelease :: DynamicsCompressorOptions -> Float -> IO ()+-- | <https://webaudio.github.io/web-audio-api/#dom-dynamicscompressoroptions-release DynamicsCompressorOptions.release specification>+setRelease :: (MonadDOM m) => DynamicsCompressorOptions -> Float -> m ()+setRelease self val = liftDOM (void ((js_setRelease (self) (val))))++foreign import javascript unsafe "(($1) => { return $1[\"release\"]; })"+ js_getRelease :: DynamicsCompressorOptions -> IO JSVal+-- | <https://webaudio.github.io/web-audio-api/#dom-dynamicscompressoroptions-release DynamicsCompressorOptions.release specification>+getRelease :: (MonadDOM m) => DynamicsCompressorOptions -> m (Maybe Float)+getRelease self = liftDOM (((js_getRelease (self)) >>= fromJSValUnchecked))++-- | <https://webaudio.github.io/web-audio-api/#dom-dynamicscompressoroptions-release DynamicsCompressorOptions.release specification>+getReleaseUnsafe :: (MonadDOM m, HasCallStack) => DynamicsCompressorOptions -> m Float+getReleaseUnsafe self = liftDOM ((((js_getRelease (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://webaudio.github.io/web-audio-api/#dom-dynamicscompressoroptions-release DynamicsCompressorOptions.release specification>+getReleaseUnchecked :: (MonadDOM m) => DynamicsCompressorOptions -> m Float+getReleaseUnchecked self = liftDOM ((pFromJSVal <$> (js_getRelease (self))))++foreign import javascript safe "(($1, $2) => { $1[\"threshold\"] = $2; })"+ js_setThreshold :: DynamicsCompressorOptions -> Float -> IO ()+-- | <https://webaudio.github.io/web-audio-api/#dom-dynamicscompressoroptions-threshold DynamicsCompressorOptions.threshold specification>+setThreshold :: (MonadDOM m) => DynamicsCompressorOptions -> Float -> m ()+setThreshold self val = liftDOM (void ((js_setThreshold (self) (val))))++foreign import javascript unsafe "(($1) => { return $1[\"threshold\"]; })"+ js_getThreshold :: DynamicsCompressorOptions -> IO JSVal+-- | <https://webaudio.github.io/web-audio-api/#dom-dynamicscompressoroptions-threshold DynamicsCompressorOptions.threshold specification>+getThreshold :: (MonadDOM m) => DynamicsCompressorOptions -> m (Maybe Float)+getThreshold self = liftDOM (((js_getThreshold (self)) >>= fromJSValUnchecked))++-- | <https://webaudio.github.io/web-audio-api/#dom-dynamicscompressoroptions-threshold DynamicsCompressorOptions.threshold specification>+getThresholdUnsafe :: (MonadDOM m, HasCallStack) => DynamicsCompressorOptions -> m Float+getThresholdUnsafe self = liftDOM ((((js_getThreshold (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://webaudio.github.io/web-audio-api/#dom-dynamicscompressoroptions-threshold DynamicsCompressorOptions.threshold specification>+getThresholdUnchecked :: (MonadDOM m) => DynamicsCompressorOptions -> m Float+getThresholdUnchecked self = liftDOM ((pFromJSVal <$> (js_getThreshold (self))))
@@ -1,29 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-{-# LANGUAGE ForeignFunctionInterface #-}-{-# LANGUAGE JavaScriptFFI #-}--- For HasCallStack compatibility-{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}-module GHCJS.DOM.JSFFI.Generated.EXTBlendMinMax- (pattern MIN_EXT, pattern MAX_EXT, EXTBlendMinMax(..),- gTypeEXTBlendMinMax)- where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, 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 MIN_EXT = 32775-pattern MAX_EXT = 32776
@@ -1,30 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-{-# LANGUAGE ForeignFunctionInterface #-}-{-# LANGUAGE JavaScriptFFI #-}--- For HasCallStack compatibility-{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}-module GHCJS.DOM.JSFFI.Generated.EXTTextureFilterAnisotropic- (pattern TEXTURE_MAX_ANISOTROPY_EXT,- pattern MAX_TEXTURE_MAX_ANISOTROPY_EXT,- EXTTextureFilterAnisotropic(..), gTypeEXTTextureFilterAnisotropic)- where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, 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 TEXTURE_MAX_ANISOTROPY_EXT = 34046-pattern MAX_TEXTURE_MAX_ANISOTROPY_EXT = 34047
@@ -0,0 +1,21 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from EXT_blend_minmax (webref). Do not edit.+module GHCJS.DOM.JSFFI.Generated.EXT_blend_minmax+ (pattern MIN_EXT, pattern MAX_EXT, EXT_blend_minmax(..), gTypeEXT_blend_minmax)+ 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++pattern MIN_EXT = 0x8007++pattern MAX_EXT = 0x8008
@@ -0,0 +1,34 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from EXT_clip_control (webref). Do not edit.+module GHCJS.DOM.JSFFI.Generated.EXT_clip_control+ (js_clipControlEXT, clipControlEXT, pattern LOWER_LEFT_EXT, pattern UPPER_LEFT_EXT, pattern NEGATIVE_ONE_TO_ONE_EXT, pattern ZERO_TO_ONE_EXT, pattern CLIP_ORIGIN_EXT, pattern CLIP_DEPTH_MODE_EXT, EXT_clip_control(..), gTypeEXT_clip_control)+ 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[\"clipControlEXT\"]($2, $3); })"+ js_clipControlEXT :: EXT_clip_control -> Word -> Word -> IO ()+clipControlEXT :: (MonadDOM m) => EXT_clip_control -> Word -> Word -> m ()+clipControlEXT self origin depth = liftDOM (void ((js_clipControlEXT (self) (origin) (depth))))++pattern LOWER_LEFT_EXT = 0x8CA1++pattern UPPER_LEFT_EXT = 0x8CA2++pattern NEGATIVE_ONE_TO_ONE_EXT = 0x935E++pattern ZERO_TO_ONE_EXT = 0x935F++pattern CLIP_ORIGIN_EXT = 0x935C++pattern CLIP_DEPTH_MODE_EXT = 0x935D
@@ -0,0 +1,18 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from EXT_color_buffer_float (webref). Do not edit.+module GHCJS.DOM.JSFFI.Generated.EXT_color_buffer_float+ (EXT_color_buffer_float(..), gTypeEXT_color_buffer_float)+ 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+
@@ -0,0 +1,25 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from EXT_color_buffer_half_float (webref). Do not edit.+module GHCJS.DOM.JSFFI.Generated.EXT_color_buffer_half_float+ (pattern RGBA16F_EXT, pattern RGB16F_EXT, pattern FRAMEBUFFER_ATTACHMENT_COMPONENT_TYPE_EXT, pattern UNSIGNED_NORMALIZED_EXT, EXT_color_buffer_half_float(..), gTypeEXT_color_buffer_half_float)+ 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++pattern RGBA16F_EXT = 0x881A++pattern RGB16F_EXT = 0x881B++pattern FRAMEBUFFER_ATTACHMENT_COMPONENT_TYPE_EXT = 0x8211++pattern UNSIGNED_NORMALIZED_EXT = 0x8C17
@@ -0,0 +1,18 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from EXT_float_blend (webref). Do not edit.+module GHCJS.DOM.JSFFI.Generated.EXT_float_blend+ (EXT_float_blend(..), gTypeEXT_float_blend)+ 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+
@@ -0,0 +1,18 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from EXT_frag_depth (webref). Do not edit.+module GHCJS.DOM.JSFFI.Generated.EXT_frag_depth+ (EXT_frag_depth(..), gTypeEXT_frag_depth)+ 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+
@@ -0,0 +1,24 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from EXT_polygon_offset_clamp (webref). Do not edit.+module GHCJS.DOM.JSFFI.Generated.EXT_polygon_offset_clamp+ (js_polygonOffsetClampEXT, polygonOffsetClampEXT, pattern POLYGON_OFFSET_CLAMP_EXT, EXT_polygon_offset_clamp(..), gTypeEXT_polygon_offset_clamp)+ 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[\"polygonOffsetClampEXT\"]($2, $3, $4); })"+ js_polygonOffsetClampEXT :: EXT_polygon_offset_clamp -> Float -> Float -> Float -> IO ()+polygonOffsetClampEXT :: (MonadDOM m) => EXT_polygon_offset_clamp -> Float -> Float -> Float -> m ()+polygonOffsetClampEXT self factor units clamp = liftDOM (void ((js_polygonOffsetClampEXT (self) (factor) (units) (clamp))))++pattern POLYGON_OFFSET_CLAMP_EXT = 0x8E1B
@@ -0,0 +1,25 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from EXT_sRGB (webref). Do not edit.+module GHCJS.DOM.JSFFI.Generated.EXT_sRGB+ (pattern SRGB_EXT, pattern SRGB_ALPHA_EXT, pattern SRGB8_ALPHA8_EXT, pattern FRAMEBUFFER_ATTACHMENT_COLOR_ENCODING_EXT, EXT_sRGB(..), gTypeEXT_sRGB)+ 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++pattern SRGB_EXT = 0x8C40++pattern SRGB_ALPHA_EXT = 0x8C42++pattern SRGB8_ALPHA8_EXT = 0x8C43++pattern FRAMEBUFFER_ATTACHMENT_COLOR_ENCODING_EXT = 0x8210
@@ -0,0 +1,18 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from EXT_shader_texture_lod (webref). Do not edit.+module GHCJS.DOM.JSFFI.Generated.EXT_shader_texture_lod+ (EXT_shader_texture_lod(..), gTypeEXT_shader_texture_lod)+ 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+
@@ -0,0 +1,25 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from EXT_texture_compression_bptc (webref). Do not edit.+module GHCJS.DOM.JSFFI.Generated.EXT_texture_compression_bptc+ (pattern COMPRESSED_RGBA_BPTC_UNORM_EXT, pattern COMPRESSED_SRGB_ALPHA_BPTC_UNORM_EXT, pattern COMPRESSED_RGB_BPTC_SIGNED_FLOAT_EXT, pattern COMPRESSED_RGB_BPTC_UNSIGNED_FLOAT_EXT, EXT_texture_compression_bptc(..), gTypeEXT_texture_compression_bptc)+ 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++pattern COMPRESSED_RGBA_BPTC_UNORM_EXT = 0x8E8C++pattern COMPRESSED_SRGB_ALPHA_BPTC_UNORM_EXT = 0x8E8D++pattern COMPRESSED_RGB_BPTC_SIGNED_FLOAT_EXT = 0x8E8E++pattern COMPRESSED_RGB_BPTC_UNSIGNED_FLOAT_EXT = 0x8E8F
@@ -0,0 +1,25 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from EXT_texture_compression_rgtc (webref). Do not edit.+module GHCJS.DOM.JSFFI.Generated.EXT_texture_compression_rgtc+ (pattern COMPRESSED_RED_RGTC1_EXT, pattern COMPRESSED_SIGNED_RED_RGTC1_EXT, pattern COMPRESSED_RED_GREEN_RGTC2_EXT, pattern COMPRESSED_SIGNED_RED_GREEN_RGTC2_EXT, EXT_texture_compression_rgtc(..), gTypeEXT_texture_compression_rgtc)+ 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++pattern COMPRESSED_RED_RGTC1_EXT = 0x8DBB++pattern COMPRESSED_SIGNED_RED_RGTC1_EXT = 0x8DBC++pattern COMPRESSED_RED_GREEN_RGTC2_EXT = 0x8DBD++pattern COMPRESSED_SIGNED_RED_GREEN_RGTC2_EXT = 0x8DBE
@@ -0,0 +1,21 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from EXT_texture_filter_anisotropic (webref). Do not edit.+module GHCJS.DOM.JSFFI.Generated.EXT_texture_filter_anisotropic+ (pattern TEXTURE_MAX_ANISOTROPY_EXT, pattern MAX_TEXTURE_MAX_ANISOTROPY_EXT, EXT_texture_filter_anisotropic(..), gTypeEXT_texture_filter_anisotropic)+ 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++pattern TEXTURE_MAX_ANISOTROPY_EXT = 0x84FE++pattern MAX_TEXTURE_MAX_ANISOTROPY_EXT = 0x84FF
@@ -0,0 +1,19 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from EXT_texture_mirror_clamp_to_edge (webref). Do not edit.+module GHCJS.DOM.JSFFI.Generated.EXT_texture_mirror_clamp_to_edge+ (pattern MIRROR_CLAMP_TO_EDGE_EXT, EXT_texture_mirror_clamp_to_edge(..), gTypeEXT_texture_mirror_clamp_to_edge)+ 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++pattern MIRROR_CLAMP_TO_EDGE_EXT = 0x8743
@@ -0,0 +1,33 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from EXT_texture_norm16 (webref). Do not edit.+module GHCJS.DOM.JSFFI.Generated.EXT_texture_norm16+ (pattern R16_EXT, pattern RG16_EXT, pattern RGB16_EXT, pattern RGBA16_EXT, pattern R16_SNORM_EXT, pattern RG16_SNORM_EXT, pattern RGB16_SNORM_EXT, pattern RGBA16_SNORM_EXT, EXT_texture_norm16(..), gTypeEXT_texture_norm16)+ 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++pattern R16_EXT = 0x822A++pattern RG16_EXT = 0x822C++pattern RGB16_EXT = 0x8054++pattern RGBA16_EXT = 0x805B++pattern R16_SNORM_EXT = 0x8F98++pattern RG16_SNORM_EXT = 0x8F99++pattern RGB16_SNORM_EXT = 0x8F9A++pattern RGBA16_SNORM_EXT = 0x8F9B
@@ -1,33 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-{-# LANGUAGE ForeignFunctionInterface #-}-{-# LANGUAGE JavaScriptFFI #-}--- For HasCallStack compatibility-{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}-module GHCJS.DOM.JSFFI.Generated.EXTsRGB- (pattern SRGB_EXT, pattern SRGB_ALPHA_EXT,- pattern SRGB8_ALPHA8_EXT,- pattern FRAMEBUFFER_ATTACHMENT_COLOR_ENCODING_EXT, EXTsRGB(..),- gTypeEXTsRGB)- where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, 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 SRGB_EXT = 35904-pattern SRGB_ALPHA_EXT = 35906-pattern SRGB8_ALPHA8_EXT = 35907-pattern FRAMEBUFFER_ATTACHMENT_COLOR_ENCODING_EXT = 33296
@@ -0,0 +1,203 @@+{-# 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.EffectTiming+ (js_newEffectTiming, js_setFill, js_getFill, js_setIterationStart, js_getIterationStart, js_setIterations, js_getIterations, js_setDirection, js_getDirection, js_setEasing, js_getEasing, js_setDelay, js_getDelay, js_setEndDelay, js_getEndDelay, js_setPlaybackRate, js_getPlaybackRate, js_setDuration, js_getDuration, newEffectTiming, setFill, getFill, getFillUnsafe, getFillUnchecked, setIterationStart, getIterationStart, getIterationStartUnsafe, getIterationStartUnchecked, setIterations, getIterations, getIterationsUnsafe, getIterationsUnchecked, setDirection, getDirection, getDirectionUnsafe, getDirectionUnchecked, setEasing, getEasing, getEasingUnsafe, getEasingUnchecked, setDelay, getDelay, getDelayUnsafe, getDelayUnchecked, setEndDelay, getEndDelay, getEndDelayUnsafe, getEndDelayUnchecked, setPlaybackRate, getPlaybackRate, getPlaybackRateUnsafe, getPlaybackRateUnchecked, setDuration, getDuration, getDurationUnsafe, getDurationUnchecked, EffectTiming(..), gTypeEffectTiming, IsEffectTiming, toEffectTiming)+ 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_newEffectTiming :: IO EffectTiming+-- | <https://drafts.csswg.org/web-animations-1/#dictdef-effecttiming EffectTiming specification>+newEffectTiming :: (MonadDOM m) => m EffectTiming+newEffectTiming = liftDOM ((js_newEffectTiming))++foreign import javascript safe "(($1, $2) => { $1[\"fill\"] = $2; })"+ js_setFill :: EffectTiming -> JSVal -> IO ()+-- | <https://drafts.csswg.org/web-animations-1/#dom-effecttiming-fill EffectTiming.fill specification>+setFill :: (MonadDOM m, IsEffectTiming self) => self -> FillMode -> m ()+setFill self val = liftDOM (void (((toJSVal val) >>= \a2' -> js_setFill ((Types.toEffectTiming self)) a2')))++foreign import javascript unsafe "(($1) => { return $1[\"fill\"]; })"+ js_getFill :: EffectTiming -> IO JSVal+-- | <https://drafts.csswg.org/web-animations-1/#dom-effecttiming-fill EffectTiming.fill specification>+getFill :: (MonadDOM m, IsEffectTiming self) => self -> m (Maybe FillMode)+getFill self = liftDOM (((js_getFill ((Types.toEffectTiming self))) >>= fromJSValUnchecked))++-- | <https://drafts.csswg.org/web-animations-1/#dom-effecttiming-fill EffectTiming.fill specification>+getFillUnsafe :: (MonadDOM m, IsEffectTiming self, HasCallStack) => self -> m FillMode+getFillUnsafe self = liftDOM ((((js_getFill ((Types.toEffectTiming self))) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://drafts.csswg.org/web-animations-1/#dom-effecttiming-fill EffectTiming.fill specification>+getFillUnchecked :: (MonadDOM m, IsEffectTiming self) => self -> m FillMode+getFillUnchecked self = liftDOM ((pFromJSVal <$> (js_getFill ((Types.toEffectTiming self)))))++foreign import javascript safe "(($1, $2) => { $1[\"iterationStart\"] = $2; })"+ js_setIterationStart :: EffectTiming -> Double -> IO ()+-- | <https://drafts.csswg.org/web-animations-1/#dom-effecttiming-iterationstart EffectTiming.iterationStart specification>+setIterationStart :: (MonadDOM m, IsEffectTiming self) => self -> Double -> m ()+setIterationStart self val = liftDOM (void ((js_setIterationStart ((Types.toEffectTiming self)) (val))))++foreign import javascript unsafe "(($1) => { return $1[\"iterationStart\"]; })"+ js_getIterationStart :: EffectTiming -> IO JSVal+-- | <https://drafts.csswg.org/web-animations-1/#dom-effecttiming-iterationstart EffectTiming.iterationStart specification>+getIterationStart :: (MonadDOM m, IsEffectTiming self) => self -> m (Maybe Double)+getIterationStart self = liftDOM (((js_getIterationStart ((Types.toEffectTiming self))) >>= fromJSValUnchecked))++-- | <https://drafts.csswg.org/web-animations-1/#dom-effecttiming-iterationstart EffectTiming.iterationStart specification>+getIterationStartUnsafe :: (MonadDOM m, IsEffectTiming self, HasCallStack) => self -> m Double+getIterationStartUnsafe self = liftDOM ((((js_getIterationStart ((Types.toEffectTiming self))) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://drafts.csswg.org/web-animations-1/#dom-effecttiming-iterationstart EffectTiming.iterationStart specification>+getIterationStartUnchecked :: (MonadDOM m, IsEffectTiming self) => self -> m Double+getIterationStartUnchecked self = liftDOM ((pFromJSVal <$> (js_getIterationStart ((Types.toEffectTiming self)))))++foreign import javascript safe "(($1, $2) => { $1[\"iterations\"] = $2; })"+ js_setIterations :: EffectTiming -> Double -> IO ()+-- | <https://drafts.csswg.org/web-animations-1/#dom-effecttiming-iterations EffectTiming.iterations specification>+setIterations :: (MonadDOM m, IsEffectTiming self) => self -> Double -> m ()+setIterations self val = liftDOM (void ((js_setIterations ((Types.toEffectTiming self)) (val))))++foreign import javascript unsafe "(($1) => { return $1[\"iterations\"]; })"+ js_getIterations :: EffectTiming -> IO JSVal+-- | <https://drafts.csswg.org/web-animations-1/#dom-effecttiming-iterations EffectTiming.iterations specification>+getIterations :: (MonadDOM m, IsEffectTiming self) => self -> m (Maybe Double)+getIterations self = liftDOM (((js_getIterations ((Types.toEffectTiming self))) >>= fromJSValUnchecked))++-- | <https://drafts.csswg.org/web-animations-1/#dom-effecttiming-iterations EffectTiming.iterations specification>+getIterationsUnsafe :: (MonadDOM m, IsEffectTiming self, HasCallStack) => self -> m Double+getIterationsUnsafe self = liftDOM ((((js_getIterations ((Types.toEffectTiming self))) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://drafts.csswg.org/web-animations-1/#dom-effecttiming-iterations EffectTiming.iterations specification>+getIterationsUnchecked :: (MonadDOM m, IsEffectTiming self) => self -> m Double+getIterationsUnchecked self = liftDOM ((pFromJSVal <$> (js_getIterations ((Types.toEffectTiming self)))))++foreign import javascript safe "(($1, $2) => { $1[\"direction\"] = $2; })"+ js_setDirection :: EffectTiming -> JSVal -> IO ()+-- | <https://drafts.csswg.org/web-animations-1/#dom-effecttiming-direction EffectTiming.direction specification>+setDirection :: (MonadDOM m, IsEffectTiming self) => self -> PlaybackDirection -> m ()+setDirection self val = liftDOM (void (((toJSVal val) >>= \a2' -> js_setDirection ((Types.toEffectTiming self)) a2')))++foreign import javascript unsafe "(($1) => { return $1[\"direction\"]; })"+ js_getDirection :: EffectTiming -> IO JSVal+-- | <https://drafts.csswg.org/web-animations-1/#dom-effecttiming-direction EffectTiming.direction specification>+getDirection :: (MonadDOM m, IsEffectTiming self) => self -> m (Maybe PlaybackDirection)+getDirection self = liftDOM (((js_getDirection ((Types.toEffectTiming self))) >>= fromJSValUnchecked))++-- | <https://drafts.csswg.org/web-animations-1/#dom-effecttiming-direction EffectTiming.direction specification>+getDirectionUnsafe :: (MonadDOM m, IsEffectTiming self, HasCallStack) => self -> m PlaybackDirection+getDirectionUnsafe self = liftDOM ((((js_getDirection ((Types.toEffectTiming self))) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://drafts.csswg.org/web-animations-1/#dom-effecttiming-direction EffectTiming.direction specification>+getDirectionUnchecked :: (MonadDOM m, IsEffectTiming self) => self -> m PlaybackDirection+getDirectionUnchecked self = liftDOM ((pFromJSVal <$> (js_getDirection ((Types.toEffectTiming self)))))++foreign import javascript safe "(($1, $2) => { $1[\"easing\"] = $2; })"+ js_setEasing :: EffectTiming -> JSString -> IO ()+-- | <https://drafts.csswg.org/web-animations-1/#dom-effecttiming-easing EffectTiming.easing specification>+setEasing :: (MonadDOM m, IsEffectTiming self, ToJSString val) => self -> val -> m ()+setEasing self val = liftDOM (void ((js_setEasing ((Types.toEffectTiming self)) (toJSString val))))++foreign import javascript unsafe "(($1) => { return $1[\"easing\"]; })"+ js_getEasing :: EffectTiming -> IO JSVal+-- | <https://drafts.csswg.org/web-animations-1/#dom-effecttiming-easing EffectTiming.easing specification>+getEasing :: (MonadDOM m, IsEffectTiming self, FromJSString result) => self -> m (Maybe result)+getEasing self = liftDOM (((fromMaybeJSString . Nullable) <$> (js_getEasing ((Types.toEffectTiming self)))))++-- | <https://drafts.csswg.org/web-animations-1/#dom-effecttiming-easing EffectTiming.easing specification>+getEasingUnsafe :: (MonadDOM m, IsEffectTiming self, HasCallStack, FromJSString result) => self -> m result+getEasingUnsafe self = liftDOM ((((fromMaybeJSString . Nullable) <$> (js_getEasing ((Types.toEffectTiming self)))) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://drafts.csswg.org/web-animations-1/#dom-effecttiming-easing EffectTiming.easing specification>+getEasingUnchecked :: (MonadDOM m, IsEffectTiming self, FromJSString result) => self -> m result+getEasingUnchecked self = liftDOM ((pFromJSVal <$> (js_getEasing ((Types.toEffectTiming self)))))++foreign import javascript safe "(($1, $2) => { $1[\"delay\"] = $2; })"+ js_setDelay :: EffectTiming -> Double -> IO ()+-- | <https://drafts.csswg.org/web-animations-2/#dom-effecttiming-delay EffectTiming.delay specification>+setDelay :: (MonadDOM m, IsEffectTiming self) => self -> Double -> m ()+setDelay self val = liftDOM (void ((js_setDelay ((Types.toEffectTiming self)) (val))))++foreign import javascript unsafe "(($1) => { return $1[\"delay\"]; })"+ js_getDelay :: EffectTiming -> IO JSVal+-- | <https://drafts.csswg.org/web-animations-2/#dom-effecttiming-delay EffectTiming.delay specification>+getDelay :: (MonadDOM m, IsEffectTiming self) => self -> m (Maybe Double)+getDelay self = liftDOM (((js_getDelay ((Types.toEffectTiming self))) >>= fromJSValUnchecked))++-- | <https://drafts.csswg.org/web-animations-2/#dom-effecttiming-delay EffectTiming.delay specification>+getDelayUnsafe :: (MonadDOM m, IsEffectTiming self, HasCallStack) => self -> m Double+getDelayUnsafe self = liftDOM ((((js_getDelay ((Types.toEffectTiming self))) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://drafts.csswg.org/web-animations-2/#dom-effecttiming-delay EffectTiming.delay specification>+getDelayUnchecked :: (MonadDOM m, IsEffectTiming self) => self -> m Double+getDelayUnchecked self = liftDOM ((pFromJSVal <$> (js_getDelay ((Types.toEffectTiming self)))))++foreign import javascript safe "(($1, $2) => { $1[\"endDelay\"] = $2; })"+ js_setEndDelay :: EffectTiming -> Double -> IO ()+-- | <https://drafts.csswg.org/web-animations-2/#dom-effecttiming-enddelay EffectTiming.endDelay specification>+setEndDelay :: (MonadDOM m, IsEffectTiming self) => self -> Double -> m ()+setEndDelay self val = liftDOM (void ((js_setEndDelay ((Types.toEffectTiming self)) (val))))++foreign import javascript unsafe "(($1) => { return $1[\"endDelay\"]; })"+ js_getEndDelay :: EffectTiming -> IO JSVal+-- | <https://drafts.csswg.org/web-animations-2/#dom-effecttiming-enddelay EffectTiming.endDelay specification>+getEndDelay :: (MonadDOM m, IsEffectTiming self) => self -> m (Maybe Double)+getEndDelay self = liftDOM (((js_getEndDelay ((Types.toEffectTiming self))) >>= fromJSValUnchecked))++-- | <https://drafts.csswg.org/web-animations-2/#dom-effecttiming-enddelay EffectTiming.endDelay specification>+getEndDelayUnsafe :: (MonadDOM m, IsEffectTiming self, HasCallStack) => self -> m Double+getEndDelayUnsafe self = liftDOM ((((js_getEndDelay ((Types.toEffectTiming self))) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://drafts.csswg.org/web-animations-2/#dom-effecttiming-enddelay EffectTiming.endDelay specification>+getEndDelayUnchecked :: (MonadDOM m, IsEffectTiming self) => self -> m Double+getEndDelayUnchecked self = liftDOM ((pFromJSVal <$> (js_getEndDelay ((Types.toEffectTiming self)))))++foreign import javascript safe "(($1, $2) => { $1[\"playbackRate\"] = $2; })"+ js_setPlaybackRate :: EffectTiming -> Double -> IO ()+-- | <https://drafts.csswg.org/web-animations-2/#dom-effecttiming-playbackrate EffectTiming.playbackRate specification>+setPlaybackRate :: (MonadDOM m, IsEffectTiming self) => self -> Double -> m ()+setPlaybackRate self val = liftDOM (void ((js_setPlaybackRate ((Types.toEffectTiming self)) (val))))++foreign import javascript unsafe "(($1) => { return $1[\"playbackRate\"]; })"+ js_getPlaybackRate :: EffectTiming -> IO JSVal+-- | <https://drafts.csswg.org/web-animations-2/#dom-effecttiming-playbackrate EffectTiming.playbackRate specification>+getPlaybackRate :: (MonadDOM m, IsEffectTiming self) => self -> m (Maybe Double)+getPlaybackRate self = liftDOM (((js_getPlaybackRate ((Types.toEffectTiming self))) >>= fromJSValUnchecked))++-- | <https://drafts.csswg.org/web-animations-2/#dom-effecttiming-playbackrate EffectTiming.playbackRate specification>+getPlaybackRateUnsafe :: (MonadDOM m, IsEffectTiming self, HasCallStack) => self -> m Double+getPlaybackRateUnsafe self = liftDOM ((((js_getPlaybackRate ((Types.toEffectTiming self))) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://drafts.csswg.org/web-animations-2/#dom-effecttiming-playbackrate EffectTiming.playbackRate specification>+getPlaybackRateUnchecked :: (MonadDOM m, IsEffectTiming self) => self -> m Double+getPlaybackRateUnchecked self = liftDOM ((pFromJSVal <$> (js_getPlaybackRate ((Types.toEffectTiming self)))))++foreign import javascript safe "(($1, $2) => { $1[\"duration\"] = $2; })"+ js_setDuration :: EffectTiming -> DoubleOrCSSNumericValueOrString -> IO ()+-- | <https://drafts.csswg.org/web-animations-2/#dom-effecttiming-duration EffectTiming.duration specification>+setDuration :: (MonadDOM m, IsEffectTiming self, IsDoubleOrCSSNumericValueOrString val) => self -> val -> m ()+setDuration self val = liftDOM (void ((js_setDuration ((Types.toEffectTiming self)) (Types.toDoubleOrCSSNumericValueOrString val))))++foreign import javascript unsafe "(($1) => { return $1[\"duration\"]; })"+ js_getDuration :: EffectTiming -> IO JSVal+-- | <https://drafts.csswg.org/web-animations-2/#dom-effecttiming-duration EffectTiming.duration specification>+getDuration :: (MonadDOM m, IsEffectTiming self) => self -> m (Maybe DoubleOrCSSNumericValueOrString)+getDuration self = liftDOM (((js_getDuration ((Types.toEffectTiming self))) >>= fromJSValUnchecked))++-- | <https://drafts.csswg.org/web-animations-2/#dom-effecttiming-duration EffectTiming.duration specification>+getDurationUnsafe :: (MonadDOM m, IsEffectTiming self, HasCallStack) => self -> m DoubleOrCSSNumericValueOrString+getDurationUnsafe self = liftDOM ((((js_getDuration ((Types.toEffectTiming self))) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://drafts.csswg.org/web-animations-2/#dom-effecttiming-duration EffectTiming.duration specification>+getDurationUnchecked :: (MonadDOM m, IsEffectTiming self) => self -> m DoubleOrCSSNumericValueOrString+getDurationUnchecked self = liftDOM ((pFromJSVal <$> (js_getDuration ((Types.toEffectTiming self)))))
@@ -1,1275 +1,749 @@ {-# LANGUAGE PatternSynonyms #-}-{-# LANGUAGE ForeignFunctionInterface #-}-{-# LANGUAGE JavaScriptFFI #-}--- For HasCallStack compatibility-{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}-module GHCJS.DOM.JSFFI.Generated.Element- (js_hasAttributes, hasAttributes, hasAttributes_,- js_getAttributeNames, getAttributeNames, getAttributeNames_,- js_getAttribute, getAttribute, getAttribute_, getAttributeUnsafe,- getAttributeUnchecked, js_getAttributeNS, getAttributeNS,- getAttributeNS_, getAttributeNSUnsafe, getAttributeNSUnchecked,- js_setAttribute, setAttribute, js_setAttributeNS, setAttributeNS,- js_removeAttribute, removeAttribute, js_removeAttributeNS,- removeAttributeNS, js_hasAttribute, hasAttribute, hasAttribute_,- js_hasAttributeNS, hasAttributeNS, hasAttributeNS_,- js_getAttributeNode, getAttributeNode, getAttributeNode_,- getAttributeNodeUnsafe, getAttributeNodeUnchecked,- js_getAttributeNodeNS, getAttributeNodeNS, getAttributeNodeNS_,- getAttributeNodeNSUnsafe, getAttributeNodeNSUnchecked,- js_setAttributeNode, setAttributeNode, setAttributeNode_,- setAttributeNodeUnsafe, setAttributeNodeUnchecked,- js_setAttributeNodeNS, setAttributeNodeNS, setAttributeNodeNS_,- setAttributeNodeNSUnsafe, setAttributeNodeNSUnchecked,- js_removeAttributeNode, removeAttributeNode, removeAttributeNode_,- js_attachShadow, attachShadow, attachShadow_, js_closest, closest,- closest_, closestUnsafe, closestUnchecked, js_matches, matches,- matches_, js_webkitMatchesSelector, webkitMatchesSelector,- webkitMatchesSelector_, js_getElementsByTagName,- getElementsByTagName, getElementsByTagName_,- js_getElementsByTagNameNS, getElementsByTagNameNS,- getElementsByTagNameNS_, js_getElementsByClassName,- getElementsByClassName, getElementsByClassName_,- js_insertAdjacentElement, insertAdjacentElement,- insertAdjacentElement_, insertAdjacentElementUnsafe,- insertAdjacentElementUnchecked, js_insertAdjacentText,- insertAdjacentText, js_getClientRects, getClientRects,- getClientRects_, js_getBoundingClientRect, getBoundingClientRect,- getBoundingClientRect_, js_scrollIntoView, scrollIntoView,- js_scrollOpt, scrollOpt, js_scroll, scroll, js_scrollToOpt,- scrollToOpt, js_scrollTo, scrollTo, js_scrollByOpt, scrollByOpt,- js_scrollBy, scrollBy, js_insertAdjacentHTML, insertAdjacentHTML,- js_webkitRequestFullScreen, webkitRequestFullScreen,- js_webkitRequestFullscreen, webkitRequestFullscreen,- js_requestPointerLock, requestPointerLock,- js_webkitGetRegionFlowRanges, webkitGetRegionFlowRanges,- webkitGetRegionFlowRanges_, js_scrollIntoViewIfNeeded,- scrollIntoViewIfNeeded, js_getNamespaceURI, getNamespaceURI,- getNamespaceURIUnsafe, getNamespaceURIUnchecked, js_getPrefix,- getPrefix, getPrefixUnsafe, getPrefixUnchecked, js_getLocalName,- getLocalName, js_getTagName, getTagName, js_setId, setId, js_getId,- getId, js_setClassName, setClassName, js_getClassName,- getClassName, js_getClassList, getClassList, js_setSlot, setSlot,- js_getSlot, getSlot, js_getAttributes, getAttributes,- js_getShadowRoot, getShadowRoot, getShadowRootUnsafe,- getShadowRootUnchecked, js_setScrollTop, setScrollTop,- js_getScrollTop, getScrollTop, js_setScrollLeft, setScrollLeft,- js_getScrollLeft, getScrollLeft, js_getScrollWidth, getScrollWidth,- js_getScrollHeight, getScrollHeight, js_getClientTop, getClientTop,- js_getClientLeft, getClientLeft, js_getClientWidth, getClientWidth,- js_getClientHeight, getClientHeight, js_setInnerHTML, setInnerHTML,- js_getInnerHTML, getInnerHTML, js_setOuterHTML, setOuterHTML,- js_getOuterHTML, getOuterHTML, js_getWebkitRegionOverset,- getWebkitRegionOverset, selectStart, gestureChange, gestureEnd,- gestureStart, webKitAnimationEnd, webKitAnimationIteration,- webKitAnimationStart, webKitTransitionEnd, webKitFullscreenChange,- webKitFullscreenError, focusin, focusout, beforeload,- webKitNeedKey, webKitPresentationModeChanged,- webKitCurrentPlaybackTargetIsWirelessChanged,- webKitPlaybackTargetAvailabilityChanged, Element(..), gTypeElement,- IsElement, toElement)- where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)-import qualified Prelude (error)-import Data.Typeable (Typeable)-import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull, jsUndefined)-import 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[\"hasAttributes\"]() ? 1 : 0); })" js_hasAttributes ::- Element -> IO Bool---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.hasAttributes Mozilla Element.hasAttributes documentation> -hasAttributes :: (MonadIO m, IsElement self) => self -> m Bool-hasAttributes self = liftIO (js_hasAttributes (toElement self))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.hasAttributes Mozilla Element.hasAttributes documentation> -hasAttributes_ :: (MonadIO m, IsElement self) => self -> m ()-hasAttributes_ self- = liftIO (void (js_hasAttributes (toElement self)))- -foreign import javascript unsafe "(($1) => { return $1[\"getAttributeNames\"](); })"- js_getAttributeNames :: Element -> IO JSVal---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.getAttributeNames Mozilla Element.getAttributeNames documentation> -getAttributeNames ::- (MonadIO m, IsElement self, FromJSString result) =>- self -> m [result]-getAttributeNames self- = liftIO- ((js_getAttributeNames (toElement self)) >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.getAttributeNames Mozilla Element.getAttributeNames documentation> -getAttributeNames_ :: (MonadIO m, IsElement self) => self -> m ()-getAttributeNames_ self- = liftIO (void (js_getAttributeNames (toElement self)))- -foreign import javascript unsafe "(($1, $2) => { return $1[\"getAttribute\"]($2); })"- js_getAttribute :: Element -> JSString -> IO (Nullable JSString)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.getAttribute Mozilla Element.getAttribute documentation> -getAttribute ::- (MonadIO m, IsElement self, ToJSString qualifiedName,- FromJSString result) =>- self -> qualifiedName -> m (Maybe result)-getAttribute self qualifiedName- = liftIO- (fromMaybeJSString <$>- (js_getAttribute (toElement self) (toJSString qualifiedName)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.getAttribute Mozilla Element.getAttribute documentation> -getAttribute_ ::- (MonadIO m, IsElement self, ToJSString qualifiedName) =>- self -> qualifiedName -> m ()-getAttribute_ self qualifiedName- = liftIO- (void- (js_getAttribute (toElement self) (toJSString qualifiedName)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.getAttribute Mozilla Element.getAttribute documentation> -getAttributeUnsafe ::- (MonadIO m, IsElement self, ToJSString qualifiedName, HasCallStack,- FromJSString result) =>- self -> qualifiedName -> m result-getAttributeUnsafe self qualifiedName- = liftIO- ((fromMaybeJSString <$>- (js_getAttribute (toElement self) (toJSString qualifiedName)))- >>= maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.getAttribute Mozilla Element.getAttribute documentation> -getAttributeUnchecked ::- (MonadIO m, IsElement self, ToJSString qualifiedName,- FromJSString result) =>- self -> qualifiedName -> m result-getAttributeUnchecked self qualifiedName- = liftIO- (fromJust . fromMaybeJSString <$>- (js_getAttribute (toElement self) (toJSString qualifiedName)))- -foreign import javascript unsafe "(($1, $2, $3) => { return $1[\"getAttributeNS\"]($2, $3); })"- js_getAttributeNS ::- Element -> Optional JSString -> JSString -> IO (Nullable JSString)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.getAttributeNS Mozilla Element.getAttributeNS documentation> -getAttributeNS ::- (MonadIO m, IsElement self, ToJSString namespaceURI,- ToJSString localName, FromJSString result) =>- self -> Maybe namespaceURI -> localName -> m (Maybe result)-getAttributeNS self namespaceURI localName- = liftIO- (fromMaybeJSString <$>- (js_getAttributeNS (toElement self)- (toOptionalJSString namespaceURI)- (toJSString localName)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.getAttributeNS Mozilla Element.getAttributeNS documentation> -getAttributeNS_ ::- (MonadIO m, IsElement self, ToJSString namespaceURI,- ToJSString localName) =>- self -> Maybe namespaceURI -> localName -> m ()-getAttributeNS_ self namespaceURI localName- = liftIO- (void- (js_getAttributeNS (toElement self)- (toOptionalJSString namespaceURI)- (toJSString localName)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.getAttributeNS Mozilla Element.getAttributeNS documentation> -getAttributeNSUnsafe ::- (MonadIO m, IsElement self, ToJSString namespaceURI,- ToJSString localName, HasCallStack, FromJSString result) =>- self -> Maybe namespaceURI -> localName -> m result-getAttributeNSUnsafe self namespaceURI localName- = liftIO- ((fromMaybeJSString <$>- (js_getAttributeNS (toElement self)- (toOptionalJSString namespaceURI)- (toJSString localName)))- >>= maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.getAttributeNS Mozilla Element.getAttributeNS documentation> -getAttributeNSUnchecked ::- (MonadIO m, IsElement self, ToJSString namespaceURI,- ToJSString localName, FromJSString result) =>- self -> Maybe namespaceURI -> localName -> m result-getAttributeNSUnchecked self namespaceURI localName- = liftIO- (fromJust . fromMaybeJSString <$>- (js_getAttributeNS (toElement self)- (toOptionalJSString namespaceURI)- (toJSString localName)))- -foreign import javascript safe "(($1, $2, $3) => { return $1[\"setAttribute\"]($2, $3); })"- js_setAttribute :: Element -> JSString -> JSString -> IO ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.setAttribute Mozilla Element.setAttribute documentation> -setAttribute ::- (MonadIO m, IsElement self, ToJSString qualifiedName,- ToJSString value) =>- self -> qualifiedName -> value -> m ()-setAttribute self qualifiedName value- = liftIO- (js_setAttribute (toElement self) (toJSString qualifiedName)- (toJSString value))- -foreign import javascript safe "(($1, $2, $3, $4) => { return $1[\"setAttributeNS\"]($2, $3, $4); })"- js_setAttributeNS ::- Element -> Optional JSString -> JSString -> JSString -> IO ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.setAttributeNS Mozilla Element.setAttributeNS documentation> -setAttributeNS ::- (MonadIO m, IsElement self, ToJSString namespaceURI,- ToJSString qualifiedName, ToJSString value) =>- self -> Maybe namespaceURI -> qualifiedName -> value -> m ()-setAttributeNS self namespaceURI qualifiedName value- = liftIO- (js_setAttributeNS (toElement self)- (toOptionalJSString namespaceURI)- (toJSString qualifiedName)- (toJSString value))- -foreign import javascript unsafe "(($1, $2) => { return $1[\"removeAttribute\"]($2); })"- js_removeAttribute :: Element -> JSString -> IO ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.removeAttribute Mozilla Element.removeAttribute documentation> -removeAttribute ::- (MonadIO m, IsElement self, ToJSString qualifiedName) =>- self -> qualifiedName -> m ()-removeAttribute self qualifiedName- = liftIO- (js_removeAttribute (toElement self) (toJSString qualifiedName))- -foreign import javascript unsafe- "(($1, $2, $3) => { return $1[\"removeAttributeNS\"]($2, $3); })" js_removeAttributeNS ::- Element -> Optional JSString -> JSString -> IO ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.removeAttributeNS Mozilla Element.removeAttributeNS documentation> -removeAttributeNS ::- (MonadIO m, IsElement self, ToJSString namespaceURI,- ToJSString localName) =>- self -> Maybe namespaceURI -> localName -> m ()-removeAttributeNS self namespaceURI localName- = liftIO- (js_removeAttributeNS (toElement self)- (toOptionalJSString namespaceURI)- (toJSString localName))- -foreign import javascript unsafe- "(($1, $2) => { return ($1[\"hasAttribute\"]($2) ? 1 : 0); })" js_hasAttribute ::- Element -> JSString -> IO Bool---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.hasAttribute Mozilla Element.hasAttribute documentation> -hasAttribute ::- (MonadIO m, IsElement self, ToJSString qualifiedName) =>- self -> qualifiedName -> m Bool-hasAttribute self qualifiedName- = liftIO- (js_hasAttribute (toElement self) (toJSString qualifiedName))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.hasAttribute Mozilla Element.hasAttribute documentation> -hasAttribute_ ::- (MonadIO m, IsElement self, ToJSString qualifiedName) =>- self -> qualifiedName -> m ()-hasAttribute_ self qualifiedName- = liftIO- (void- (js_hasAttribute (toElement self) (toJSString qualifiedName)))- -foreign import javascript unsafe- "(($1, $2, $3) => { return ($1[\"hasAttributeNS\"]($2,\n$3) ? 1 : 0); })" js_hasAttributeNS ::- Element -> Optional JSString -> JSString -> IO Bool---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.hasAttributeNS Mozilla Element.hasAttributeNS documentation> -hasAttributeNS ::- (MonadIO m, IsElement self, ToJSString namespaceURI,- ToJSString localName) =>- self -> Maybe namespaceURI -> localName -> m Bool-hasAttributeNS self namespaceURI localName- = liftIO- (js_hasAttributeNS (toElement self)- (toOptionalJSString namespaceURI)- (toJSString localName))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.hasAttributeNS Mozilla Element.hasAttributeNS documentation> -hasAttributeNS_ ::- (MonadIO m, IsElement self, ToJSString namespaceURI,- ToJSString localName) =>- self -> Maybe namespaceURI -> localName -> m ()-hasAttributeNS_ self namespaceURI localName- = liftIO- (void- (js_hasAttributeNS (toElement self)- (toOptionalJSString namespaceURI)- (toJSString localName)))- -foreign import javascript unsafe "(($1, $2) => { return $1[\"getAttributeNode\"]($2); })"- js_getAttributeNode :: Element -> JSString -> IO (Nullable Attr)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.getAttributeNode Mozilla Element.getAttributeNode documentation> -getAttributeNode ::- (MonadIO m, IsElement self, ToJSString qualifiedName) =>- self -> qualifiedName -> m (Maybe Attr)-getAttributeNode self qualifiedName- = liftIO- (nullableToMaybe <$>- (js_getAttributeNode (toElement self) (toJSString qualifiedName)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.getAttributeNode Mozilla Element.getAttributeNode documentation> -getAttributeNode_ ::- (MonadIO m, IsElement self, ToJSString qualifiedName) =>- self -> qualifiedName -> m ()-getAttributeNode_ self qualifiedName- = liftIO- (void- (js_getAttributeNode (toElement self) (toJSString qualifiedName)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.getAttributeNode Mozilla Element.getAttributeNode documentation> -getAttributeNodeUnsafe ::- (MonadIO m, IsElement self, ToJSString qualifiedName,- HasCallStack) =>- self -> qualifiedName -> m Attr-getAttributeNodeUnsafe self qualifiedName- = liftIO- ((nullableToMaybe <$>- (js_getAttributeNode (toElement self) (toJSString qualifiedName)))- >>= maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.getAttributeNode Mozilla Element.getAttributeNode documentation> -getAttributeNodeUnchecked ::- (MonadIO m, IsElement self, ToJSString qualifiedName) =>- self -> qualifiedName -> m Attr-getAttributeNodeUnchecked self qualifiedName- = liftIO- (fromJust . nullableToMaybe <$>- (js_getAttributeNode (toElement self) (toJSString qualifiedName)))- -foreign import javascript unsafe- "(($1, $2, $3) => { return $1[\"getAttributeNodeNS\"]($2, $3); })" js_getAttributeNodeNS ::- Element -> Optional JSString -> JSString -> IO (Nullable Attr)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.getAttributeNodeNS Mozilla Element.getAttributeNodeNS documentation> -getAttributeNodeNS ::- (MonadIO m, IsElement self, ToJSString namespaceURI,- ToJSString localName) =>- self -> Maybe namespaceURI -> localName -> m (Maybe Attr)-getAttributeNodeNS self namespaceURI localName- = liftIO- (nullableToMaybe <$>- (js_getAttributeNodeNS (toElement self)- (toOptionalJSString namespaceURI)- (toJSString localName)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.getAttributeNodeNS Mozilla Element.getAttributeNodeNS documentation> -getAttributeNodeNS_ ::- (MonadIO m, IsElement self, ToJSString namespaceURI,- ToJSString localName) =>- self -> Maybe namespaceURI -> localName -> m ()-getAttributeNodeNS_ self namespaceURI localName- = liftIO- (void- (js_getAttributeNodeNS (toElement self)- (toOptionalJSString namespaceURI)- (toJSString localName)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.getAttributeNodeNS Mozilla Element.getAttributeNodeNS documentation> -getAttributeNodeNSUnsafe ::- (MonadIO m, IsElement self, ToJSString namespaceURI,- ToJSString localName, HasCallStack) =>- self -> Maybe namespaceURI -> localName -> m Attr-getAttributeNodeNSUnsafe self namespaceURI localName- = liftIO- ((nullableToMaybe <$>- (js_getAttributeNodeNS (toElement self)- (toOptionalJSString namespaceURI)- (toJSString localName)))- >>= maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.getAttributeNodeNS Mozilla Element.getAttributeNodeNS documentation> -getAttributeNodeNSUnchecked ::- (MonadIO m, IsElement self, ToJSString namespaceURI,- ToJSString localName) =>- self -> Maybe namespaceURI -> localName -> m Attr-getAttributeNodeNSUnchecked self namespaceURI localName- = liftIO- (fromJust . nullableToMaybe <$>- (js_getAttributeNodeNS (toElement self)- (toOptionalJSString namespaceURI)- (toJSString localName)))- -foreign import javascript safe "(($1, $2) => { return $1[\"setAttributeNode\"]($2); })"- js_setAttributeNode :: Element -> Attr -> IO (Nullable Attr)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.setAttributeNode Mozilla Element.setAttributeNode documentation> -setAttributeNode ::- (MonadIO m, IsElement self) => self -> Attr -> m (Maybe Attr)-setAttributeNode self attr- = liftIO- (nullableToMaybe <$> (js_setAttributeNode (toElement self) attr))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.setAttributeNode Mozilla Element.setAttributeNode documentation> -setAttributeNode_ ::- (MonadIO m, IsElement self) => self -> Attr -> m ()-setAttributeNode_ self attr- = liftIO (void (js_setAttributeNode (toElement self) attr))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.setAttributeNode Mozilla Element.setAttributeNode documentation> -setAttributeNodeUnsafe ::- (MonadIO m, IsElement self, HasCallStack) => self -> Attr -> m Attr-setAttributeNodeUnsafe self attr- = liftIO- ((nullableToMaybe <$> (js_setAttributeNode (toElement self) attr))- >>= maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.setAttributeNode Mozilla Element.setAttributeNode documentation> -setAttributeNodeUnchecked ::- (MonadIO m, IsElement self) => self -> Attr -> m Attr-setAttributeNodeUnchecked self attr- = liftIO- (fromJust . nullableToMaybe <$>- (js_setAttributeNode (toElement self) attr))- -foreign import javascript safe "(($1, $2) => { return $1[\"setAttributeNodeNS\"]($2); })"- js_setAttributeNodeNS :: Element -> Attr -> IO (Nullable Attr)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.setAttributeNodeNS Mozilla Element.setAttributeNodeNS documentation> -setAttributeNodeNS ::- (MonadIO m, IsElement self) => self -> Attr -> m (Maybe Attr)-setAttributeNodeNS self attr- = liftIO- (nullableToMaybe <$> (js_setAttributeNodeNS (toElement self) attr))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.setAttributeNodeNS Mozilla Element.setAttributeNodeNS documentation> -setAttributeNodeNS_ ::- (MonadIO m, IsElement self) => self -> Attr -> m ()-setAttributeNodeNS_ self attr- = liftIO (void (js_setAttributeNodeNS (toElement self) attr))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.setAttributeNodeNS Mozilla Element.setAttributeNodeNS documentation> -setAttributeNodeNSUnsafe ::- (MonadIO m, IsElement self, HasCallStack) => self -> Attr -> m Attr-setAttributeNodeNSUnsafe self attr- = liftIO- ((nullableToMaybe <$>- (js_setAttributeNodeNS (toElement self) attr))- >>= maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.setAttributeNodeNS Mozilla Element.setAttributeNodeNS documentation> -setAttributeNodeNSUnchecked ::- (MonadIO m, IsElement self) => self -> Attr -> m Attr-setAttributeNodeNSUnchecked self attr- = liftIO- (fromJust . nullableToMaybe <$>- (js_setAttributeNodeNS (toElement self) attr))- -foreign import javascript safe "(($1, $2) => { return $1[\"removeAttributeNode\"]($2); })"- js_removeAttributeNode :: Element -> Attr -> IO Attr---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.removeAttributeNode Mozilla Element.removeAttributeNode documentation> -removeAttributeNode ::- (MonadIO m, IsElement self) => self -> Attr -> m Attr-removeAttributeNode self attr- = liftIO (js_removeAttributeNode (toElement self) attr)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.removeAttributeNode Mozilla Element.removeAttributeNode documentation> -removeAttributeNode_ ::- (MonadIO m, IsElement self) => self -> Attr -> m ()-removeAttributeNode_ self attr- = liftIO (void (js_removeAttributeNode (toElement self) attr))- -foreign import javascript safe "(($1, $2) => { return $1[\"attachShadow\"]($2); })"- js_attachShadow :: Element -> ShadowRootInit -> IO ShadowRoot---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.attachShadow Mozilla Element.attachShadow documentation> -attachShadow ::- (MonadIO m, IsElement self) =>- self -> ShadowRootInit -> m ShadowRoot-attachShadow self init- = liftIO (js_attachShadow (toElement self) init)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.attachShadow Mozilla Element.attachShadow documentation> -attachShadow_ ::- (MonadIO m, IsElement self) => self -> ShadowRootInit -> m ()-attachShadow_ self init- = liftIO (void (js_attachShadow (toElement self) init))- -foreign import javascript safe "(($1, $2) => { return $1[\"closest\"]($2); })" js_closest ::- Element -> JSString -> IO (Nullable Element)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.closest Mozilla Element.closest documentation> -closest ::- (MonadIO m, IsElement self, ToJSString selectors) =>- self -> selectors -> m (Maybe Element)-closest self selectors- = liftIO- (nullableToMaybe <$>- (js_closest (toElement self) (toJSString selectors)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.closest Mozilla Element.closest documentation> -closest_ ::- (MonadIO m, IsElement self, ToJSString selectors) =>- self -> selectors -> m ()-closest_ self selectors- = liftIO- (void (js_closest (toElement self) (toJSString selectors)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.closest Mozilla Element.closest documentation> -closestUnsafe ::- (MonadIO m, IsElement self, ToJSString selectors, HasCallStack) =>- self -> selectors -> m Element-closestUnsafe self selectors- = liftIO- ((nullableToMaybe <$>- (js_closest (toElement self) (toJSString selectors)))- >>= maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.closest Mozilla Element.closest documentation> -closestUnchecked ::- (MonadIO m, IsElement self, ToJSString selectors) =>- self -> selectors -> m Element-closestUnchecked self selectors- = liftIO- (fromJust . nullableToMaybe <$>- (js_closest (toElement self) (toJSString selectors)))- -foreign import javascript safe "(($1, $2) => { return ($1[\"matches\"]($2) ? 1 : 0); })"- js_matches :: Element -> JSString -> IO Bool---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.matches Mozilla Element.matches documentation> -matches ::- (MonadIO m, IsElement self, ToJSString selectors) =>- self -> selectors -> m Bool-matches self selectors- = liftIO (js_matches (toElement self) (toJSString selectors))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.matches Mozilla Element.matches documentation> -matches_ ::- (MonadIO m, IsElement self, ToJSString selectors) =>- self -> selectors -> m ()-matches_ self selectors- = liftIO- (void (js_matches (toElement self) (toJSString selectors)))- -foreign import javascript safe- "(($1, $2) => { return ($1[\"webkitMatchesSelector\"]($2) ? 1 : 0); })"- js_webkitMatchesSelector :: Element -> JSString -> IO Bool---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.webkitMatchesSelector Mozilla Element.webkitMatchesSelector documentation> -webkitMatchesSelector ::- (MonadIO m, IsElement self, ToJSString selectors) =>- self -> selectors -> m Bool-webkitMatchesSelector self selectors- = liftIO- (js_webkitMatchesSelector (toElement self) (toJSString selectors))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.webkitMatchesSelector Mozilla Element.webkitMatchesSelector documentation> -webkitMatchesSelector_ ::- (MonadIO m, IsElement self, ToJSString selectors) =>- self -> selectors -> m ()-webkitMatchesSelector_ self selectors- = liftIO- (void- (js_webkitMatchesSelector (toElement self) (toJSString selectors)))- -foreign import javascript unsafe "(($1, $2) => { return $1[\"getElementsByTagName\"]($2); })"- js_getElementsByTagName :: Element -> JSString -> IO HTMLCollection---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.getElementsByTagName Mozilla Element.getElementsByTagName documentation> -getElementsByTagName ::- (MonadIO m, IsElement self, ToJSString qualifiedName) =>- self -> qualifiedName -> m HTMLCollection-getElementsByTagName self qualifiedName- = liftIO- (js_getElementsByTagName (toElement self)- (toJSString qualifiedName))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.getElementsByTagName Mozilla Element.getElementsByTagName documentation> -getElementsByTagName_ ::- (MonadIO m, IsElement self, ToJSString qualifiedName) =>- self -> qualifiedName -> m ()-getElementsByTagName_ self qualifiedName- = liftIO- (void- (js_getElementsByTagName (toElement self)- (toJSString qualifiedName)))- -foreign import javascript unsafe- "(($1, $2, $3) => { return $1[\"getElementsByTagNameNS\"]($2,\n$3); })" js_getElementsByTagNameNS- :: Element -> Optional JSString -> JSString -> IO HTMLCollection---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.getElementsByTagNameNS Mozilla Element.getElementsByTagNameNS documentation> -getElementsByTagNameNS ::- (MonadIO m, IsElement self, ToJSString namespaceURI,- ToJSString localName) =>- self -> Maybe namespaceURI -> localName -> m HTMLCollection-getElementsByTagNameNS self namespaceURI localName- = liftIO- (js_getElementsByTagNameNS (toElement self)- (toOptionalJSString namespaceURI)- (toJSString localName))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.getElementsByTagNameNS Mozilla Element.getElementsByTagNameNS documentation> -getElementsByTagNameNS_ ::- (MonadIO m, IsElement self, ToJSString namespaceURI,- ToJSString localName) =>- self -> Maybe namespaceURI -> localName -> m ()-getElementsByTagNameNS_ self namespaceURI localName- = liftIO- (void- (js_getElementsByTagNameNS (toElement self)- (toOptionalJSString namespaceURI)- (toJSString localName)))- -foreign import javascript unsafe- "(($1, $2) => { return $1[\"getElementsByClassName\"]($2); })" js_getElementsByClassName ::- Element -> JSString -> IO HTMLCollection---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.getElementsByClassName Mozilla Element.getElementsByClassName documentation> -getElementsByClassName ::- (MonadIO m, IsElement self, ToJSString name) =>- self -> name -> m HTMLCollection-getElementsByClassName self name- = liftIO- (js_getElementsByClassName (toElement self) (toJSString name))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.getElementsByClassName Mozilla Element.getElementsByClassName documentation> -getElementsByClassName_ ::- (MonadIO m, IsElement self, ToJSString name) =>- self -> name -> m ()-getElementsByClassName_ self name- = liftIO- (void- (js_getElementsByClassName (toElement self) (toJSString name)))- -foreign import javascript safe- "(($1, $2, $3) => { return $1[\"insertAdjacentElement\"]($2,\n$3); })" js_insertAdjacentElement- :: Element -> JSString -> Element -> IO (Nullable Element)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.insertAdjacentElement Mozilla Element.insertAdjacentElement documentation> -insertAdjacentElement ::- (MonadIO m, IsElement self, ToJSString where',- IsElement element) =>- self -> where' -> element -> m (Maybe Element)-insertAdjacentElement self where' element- = liftIO- (nullableToMaybe <$>- (js_insertAdjacentElement (toElement self) (toJSString where')- (toElement element)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.insertAdjacentElement Mozilla Element.insertAdjacentElement documentation> -insertAdjacentElement_ ::- (MonadIO m, IsElement self, ToJSString where',- IsElement element) =>- self -> where' -> element -> m ()-insertAdjacentElement_ self where' element- = liftIO- (void- (js_insertAdjacentElement (toElement self) (toJSString where')- (toElement element)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.insertAdjacentElement Mozilla Element.insertAdjacentElement documentation> -insertAdjacentElementUnsafe ::- (MonadIO m, IsElement self, ToJSString where', IsElement element,- HasCallStack) =>- self -> where' -> element -> m Element-insertAdjacentElementUnsafe self where' element- = liftIO- ((nullableToMaybe <$>- (js_insertAdjacentElement (toElement self) (toJSString where')- (toElement element)))- >>= maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.insertAdjacentElement Mozilla Element.insertAdjacentElement documentation> -insertAdjacentElementUnchecked ::- (MonadIO m, IsElement self, ToJSString where',- IsElement element) =>- self -> where' -> element -> m Element-insertAdjacentElementUnchecked self where' element- = liftIO- (fromJust . nullableToMaybe <$>- (js_insertAdjacentElement (toElement self) (toJSString where')- (toElement element)))- -foreign import javascript safe "(($1, $2, $3) => { return $1[\"insertAdjacentText\"]($2, $3); })"- js_insertAdjacentText :: Element -> JSString -> JSString -> IO ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.insertAdjacentText Mozilla Element.insertAdjacentText documentation> -insertAdjacentText ::- (MonadIO m, IsElement self, ToJSString where', ToJSString data') =>- self -> where' -> data' -> m ()-insertAdjacentText self where' data'- = liftIO- (js_insertAdjacentText (toElement self) (toJSString where')- (toJSString data'))- -foreign import javascript unsafe "(($1) => { return $1[\"getClientRects\"](); })"- js_getClientRects :: Element -> IO JSVal---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.getClientRects Mozilla Element.getClientRects documentation> -getClientRects ::- (MonadIO m, IsElement self) => self -> m [DOMRect]-getClientRects self- = liftIO- ((js_getClientRects (toElement self)) >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.getClientRects Mozilla Element.getClientRects documentation> -getClientRects_ :: (MonadIO m, IsElement self) => self -> m ()-getClientRects_ self- = liftIO (void (js_getClientRects (toElement self)))- -foreign import javascript unsafe "(($1) => { return $1[\"getBoundingClientRect\"](); })"- js_getBoundingClientRect :: Element -> IO DOMRect---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.getBoundingClientRect Mozilla Element.getBoundingClientRect documentation> -getBoundingClientRect ::- (MonadIO m, IsElement self) => self -> m DOMRect-getBoundingClientRect self- = liftIO (js_getBoundingClientRect (toElement self))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.getBoundingClientRect Mozilla Element.getBoundingClientRect documentation> -getBoundingClientRect_ ::- (MonadIO m, IsElement self) => self -> m ()-getBoundingClientRect_ self- = liftIO (void (js_getBoundingClientRect (toElement self)))- -foreign import javascript unsafe "(($1, $2) => { return $1[\"scrollIntoView\"]($2); })"- js_scrollIntoView :: Element -> Bool -> IO ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.scrollIntoView Mozilla Element.scrollIntoView documentation> -scrollIntoView ::- (MonadIO m, IsElement self) => self -> Bool -> m ()-scrollIntoView self alignWithTop- = liftIO (js_scrollIntoView (toElement self) alignWithTop)- -foreign import javascript unsafe "(($1, $2) => { return $1[\"scroll\"]($2); })" js_scrollOpt- :: Element -> Optional ScrollToOptions -> IO ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.scroll Mozilla Element.scroll documentation> -scrollOpt ::- (MonadIO m, IsElement self) =>- self -> Maybe ScrollToOptions -> m ()-scrollOpt self options- = liftIO (js_scrollOpt (toElement self) (maybeToOptional options))- -foreign import javascript unsafe "(($1, $2, $3) => { return $1[\"scroll\"]($2, $3); })" js_scroll- :: Element -> Double -> Double -> IO ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.scroll Mozilla Element.scroll documentation> -scroll ::- (MonadIO m, IsElement self) => self -> Double -> Double -> m ()-scroll self x y = liftIO (js_scroll (toElement self) x y)- -foreign import javascript unsafe "(($1, $2) => { return $1[\"scrollTo\"]($2); })"- js_scrollToOpt :: Element -> Optional ScrollToOptions -> IO ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.scrollTo Mozilla Element.scrollTo documentation> -scrollToOpt ::- (MonadIO m, IsElement self) =>- self -> Maybe ScrollToOptions -> m ()-scrollToOpt self options- = liftIO- (js_scrollToOpt (toElement self) (maybeToOptional options))- -foreign import javascript unsafe "(($1, $2, $3) => { return $1[\"scrollTo\"]($2, $3); })"- js_scrollTo :: Element -> Double -> Double -> IO ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.scrollTo Mozilla Element.scrollTo documentation> -scrollTo ::- (MonadIO m, IsElement self) => self -> Double -> Double -> m ()-scrollTo self x y = liftIO (js_scrollTo (toElement self) x y)- -foreign import javascript unsafe "(($1, $2) => { return $1[\"scrollBy\"]($2); })"- js_scrollByOpt :: Element -> Optional ScrollToOptions -> IO ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.scrollBy Mozilla Element.scrollBy documentation> -scrollByOpt ::- (MonadIO m, IsElement self) =>- self -> Maybe ScrollToOptions -> m ()-scrollByOpt self option- = liftIO (js_scrollByOpt (toElement self) (maybeToOptional option))- -foreign import javascript unsafe "(($1, $2, $3) => { return $1[\"scrollBy\"]($2, $3); })"- js_scrollBy :: Element -> Double -> Double -> IO ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.scrollBy Mozilla Element.scrollBy documentation> -scrollBy ::- (MonadIO m, IsElement self) => self -> Double -> Double -> m ()-scrollBy self x y = liftIO (js_scrollBy (toElement self) x y)- -foreign import javascript safe "(($1, $2, $3) => { return $1[\"insertAdjacentHTML\"]($2, $3); })"- js_insertAdjacentHTML :: Element -> JSString -> JSString -> IO ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.insertAdjacentHTML Mozilla Element.insertAdjacentHTML documentation> -insertAdjacentHTML ::- (MonadIO m, IsElement self, ToJSString position,- ToJSString text) =>- self -> position -> text -> m ()-insertAdjacentHTML self position text- = liftIO- (js_insertAdjacentHTML (toElement self) (toJSString position)- (toJSString text))- -foreign import javascript unsafe- "(($1) => { return $1[\"webkitRequestFullScreen\"](); })" js_webkitRequestFullScreen ::- Element -> IO ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.webkitRequestFullScreen Mozilla Element.webkitRequestFullScreen documentation> -webkitRequestFullScreen ::- (MonadIO m, IsElement self) => self -> m ()-webkitRequestFullScreen self- = liftIO (js_webkitRequestFullScreen (toElement self))- -foreign import javascript unsafe- "(($1) => { return $1[\"webkitRequestFullscreen\"](); })" js_webkitRequestFullscreen ::- Element -> IO ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.webkitRequestFullscreen Mozilla Element.webkitRequestFullscreen documentation> -webkitRequestFullscreen ::- (MonadIO m, IsElement self) => self -> m ()-webkitRequestFullscreen self- = liftIO (js_webkitRequestFullscreen (toElement self))- -foreign import javascript unsafe "(($1) => { return $1[\"requestPointerLock\"](); })"- js_requestPointerLock :: Element -> IO ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.requestPointerLock Mozilla Element.requestPointerLock documentation> -requestPointerLock :: (MonadIO m, IsElement self) => self -> m ()-requestPointerLock self- = liftIO (js_requestPointerLock (toElement self))- -foreign import javascript unsafe- "(($1) => { return $1[\"webkitGetRegionFlowRanges\"](); })" js_webkitGetRegionFlowRanges- :: Element -> IO JSVal---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.webkitGetRegionFlowRanges Mozilla Element.webkitGetRegionFlowRanges documentation> -webkitGetRegionFlowRanges ::- (MonadIO m, IsElement self) => self -> m (Maybe [Range])-webkitGetRegionFlowRanges self- = liftIO- ((js_webkitGetRegionFlowRanges (toElement self)) >>=- fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.webkitGetRegionFlowRanges Mozilla Element.webkitGetRegionFlowRanges documentation> -webkitGetRegionFlowRanges_ ::- (MonadIO m, IsElement self) => self -> m ()-webkitGetRegionFlowRanges_ self- = liftIO (void (js_webkitGetRegionFlowRanges (toElement self)))- -foreign import javascript unsafe- "(($1, $2) => { return $1[\"scrollIntoViewIfNeeded\"]($2); })" js_scrollIntoViewIfNeeded ::- Element -> Bool -> IO ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.scrollIntoViewIfNeeded Mozilla Element.scrollIntoViewIfNeeded documentation> -scrollIntoViewIfNeeded ::- (MonadIO m, IsElement self) => self -> Bool -> m ()-scrollIntoViewIfNeeded self centerIfNeeded- = liftIO- (js_scrollIntoViewIfNeeded (toElement self) centerIfNeeded)- -foreign import javascript unsafe "(($1) => { return $1[\"namespaceURI\"]; })"- js_getNamespaceURI :: Element -> IO (Nullable JSString)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.namespaceURI Mozilla Element.namespaceURI documentation> -getNamespaceURI ::- (MonadIO m, IsElement self, FromJSString result) =>- self -> m (Maybe result)-getNamespaceURI self- = liftIO- (fromMaybeJSString <$> (js_getNamespaceURI (toElement self)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.namespaceURI Mozilla Element.namespaceURI documentation> -getNamespaceURIUnsafe ::- (MonadIO m, IsElement self, HasCallStack, FromJSString result) =>- self -> m result-getNamespaceURIUnsafe self- = liftIO- ((fromMaybeJSString <$> (js_getNamespaceURI (toElement self))) >>=- maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.namespaceURI Mozilla Element.namespaceURI documentation> -getNamespaceURIUnchecked ::- (MonadIO m, IsElement self, FromJSString result) =>- self -> m result-getNamespaceURIUnchecked self- = liftIO- (fromJust . fromMaybeJSString <$>- (js_getNamespaceURI (toElement self)))- -foreign import javascript unsafe "(($1) => { return $1[\"prefix\"]; })" js_getPrefix ::- Element -> IO (Nullable JSString)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.prefix Mozilla Element.prefix documentation> -getPrefix ::- (MonadIO m, IsElement self, FromJSString result) =>- self -> m (Maybe result)-getPrefix self- = liftIO (fromMaybeJSString <$> (js_getPrefix (toElement self)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.prefix Mozilla Element.prefix documentation> -getPrefixUnsafe ::- (MonadIO m, IsElement self, HasCallStack, FromJSString result) =>- self -> m result-getPrefixUnsafe self- = liftIO- ((fromMaybeJSString <$> (js_getPrefix (toElement self))) >>=- maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.prefix Mozilla Element.prefix documentation> -getPrefixUnchecked ::- (MonadIO m, IsElement self, FromJSString result) =>- self -> m result-getPrefixUnchecked self- = liftIO- (fromJust . fromMaybeJSString <$> (js_getPrefix (toElement self)))- -foreign import javascript unsafe "(($1) => { return $1[\"localName\"]; })"- js_getLocalName :: Element -> IO JSString---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.localName Mozilla Element.localName documentation> -getLocalName ::- (MonadIO m, IsElement self, FromJSString result) =>- self -> m result-getLocalName self- = liftIO (fromJSString <$> (js_getLocalName (toElement self)))- -foreign import javascript unsafe "(($1) => { return $1[\"tagName\"]; })" js_getTagName ::- Element -> IO JSString---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.tagName Mozilla Element.tagName documentation> -getTagName ::- (MonadIO m, IsElement self, FromJSString result) =>- self -> m result-getTagName self- = liftIO (fromJSString <$> (js_getTagName (toElement self)))- -foreign import javascript unsafe "(($1, $2) => { $1[\"id\"] = $2; })" js_setId ::- Element -> JSString -> IO ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.id Mozilla Element.id documentation> -setId ::- (MonadIO m, IsElement self, ToJSString val) => self -> val -> m ()-setId self val- = liftIO (js_setId (toElement self) (toJSString val))- -foreign import javascript unsafe "(($1) => { return $1[\"id\"]; })" js_getId ::- Element -> IO JSString---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.id Mozilla Element.id documentation> -getId ::- (MonadIO m, IsElement self, FromJSString result) =>- self -> m result-getId self = liftIO (fromJSString <$> (js_getId (toElement self)))- -foreign import javascript unsafe "(($1, $2) => { $1[\"className\"] = $2; })"- js_setClassName :: Element -> JSString -> IO ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.className Mozilla Element.className documentation> -setClassName ::- (MonadIO m, IsElement self, ToJSString val) => self -> val -> m ()-setClassName self val- = liftIO (js_setClassName (toElement self) (toJSString val))- -foreign import javascript unsafe "(($1) => { return $1[\"className\"]; })"- js_getClassName :: Element -> IO JSString---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.className Mozilla Element.className documentation> -getClassName ::- (MonadIO m, IsElement self, FromJSString result) =>- self -> m result-getClassName self- = liftIO (fromJSString <$> (js_getClassName (toElement self)))- -foreign import javascript unsafe "(($1) => { return $1[\"classList\"]; })"- js_getClassList :: Element -> IO DOMTokenList---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.classList Mozilla Element.classList documentation> -getClassList ::- (MonadIO m, IsElement self) => self -> m DOMTokenList-getClassList self = liftIO (js_getClassList (toElement self))- -foreign import javascript unsafe "(($1, $2) => { $1[\"slot\"] = $2; })" js_setSlot ::- Element -> JSString -> IO ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.slot Mozilla Element.slot documentation> -setSlot ::- (MonadIO m, IsElement self, ToJSString val) => self -> val -> m ()-setSlot self val- = liftIO (js_setSlot (toElement self) (toJSString val))- -foreign import javascript unsafe "(($1) => { return $1[\"slot\"]; })" js_getSlot ::- Element -> IO JSString---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.slot Mozilla Element.slot documentation> -getSlot ::- (MonadIO m, IsElement self, FromJSString result) =>- self -> m result-getSlot self- = liftIO (fromJSString <$> (js_getSlot (toElement self)))- -foreign import javascript unsafe "(($1) => { return $1[\"attributes\"]; })"- js_getAttributes :: Element -> IO NamedNodeMap---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.attributes Mozilla Element.attributes documentation> -getAttributes ::- (MonadIO m, IsElement self) => self -> m NamedNodeMap-getAttributes self = liftIO (js_getAttributes (toElement self))- -foreign import javascript unsafe "(($1) => { return $1[\"shadowRoot\"]; })"- js_getShadowRoot :: Element -> IO (Nullable ShadowRoot)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.shadowRoot Mozilla Element.shadowRoot documentation> -getShadowRoot ::- (MonadIO m, IsElement self) => self -> m (Maybe ShadowRoot)-getShadowRoot self- = liftIO (nullableToMaybe <$> (js_getShadowRoot (toElement self)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.shadowRoot Mozilla Element.shadowRoot documentation> -getShadowRootUnsafe ::- (MonadIO m, IsElement self, HasCallStack) => self -> m ShadowRoot-getShadowRootUnsafe self- = liftIO- ((nullableToMaybe <$> (js_getShadowRoot (toElement self))) >>=- maybe (Prelude.error "Nothing to return") return)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.shadowRoot Mozilla Element.shadowRoot documentation> -getShadowRootUnchecked ::- (MonadIO m, IsElement self) => self -> m ShadowRoot-getShadowRootUnchecked self- = liftIO- (fromJust . nullableToMaybe <$>- (js_getShadowRoot (toElement self)))- -foreign import javascript unsafe "(($1, $2) => { $1[\"scrollTop\"] = $2; })"- js_setScrollTop :: Element -> Int -> IO ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.scrollTop Mozilla Element.scrollTop documentation> -setScrollTop :: (MonadIO m, IsElement self) => self -> Int -> m ()-setScrollTop self val- = liftIO (js_setScrollTop (toElement self) val)- -foreign import javascript unsafe "(($1) => { return $1[\"scrollTop\"]; })"- js_getScrollTop :: Element -> IO Int---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.scrollTop Mozilla Element.scrollTop documentation> -getScrollTop :: (MonadIO m, IsElement self) => self -> m Int-getScrollTop self = liftIO (js_getScrollTop (toElement self))- -foreign import javascript unsafe "(($1, $2) => { $1[\"scrollLeft\"] = $2; })"- js_setScrollLeft :: Element -> Int -> IO ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.scrollLeft Mozilla Element.scrollLeft documentation> -setScrollLeft :: (MonadIO m, IsElement self) => self -> Int -> m ()-setScrollLeft self val- = liftIO (js_setScrollLeft (toElement self) val)- -foreign import javascript unsafe "(($1) => { return $1[\"scrollLeft\"]; })"- js_getScrollLeft :: Element -> IO Int---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.scrollLeft Mozilla Element.scrollLeft documentation> -getScrollLeft :: (MonadIO m, IsElement self) => self -> m Int-getScrollLeft self = liftIO (js_getScrollLeft (toElement self))- -foreign import javascript unsafe "(($1) => { return $1[\"scrollWidth\"]; })"- js_getScrollWidth :: Element -> IO Int---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.scrollWidth Mozilla Element.scrollWidth documentation> -getScrollWidth :: (MonadIO m, IsElement self) => self -> m Int-getScrollWidth self = liftIO (js_getScrollWidth (toElement self))- -foreign import javascript unsafe "(($1) => { return $1[\"scrollHeight\"]; })"- js_getScrollHeight :: Element -> IO Int---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.scrollHeight Mozilla Element.scrollHeight documentation> -getScrollHeight :: (MonadIO m, IsElement self) => self -> m Int-getScrollHeight self = liftIO (js_getScrollHeight (toElement self))- -foreign import javascript unsafe "(($1) => { return $1[\"clientTop\"]; })"- js_getClientTop :: Element -> IO Double---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.clientTop Mozilla Element.clientTop documentation> -getClientTop :: (MonadIO m, IsElement self) => self -> m Double-getClientTop self = liftIO (js_getClientTop (toElement self))- -foreign import javascript unsafe "(($1) => { return $1[\"clientLeft\"]; })"- js_getClientLeft :: Element -> IO Double---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.clientLeft Mozilla Element.clientLeft documentation> -getClientLeft :: (MonadIO m, IsElement self) => self -> m Double-getClientLeft self = liftIO (js_getClientLeft (toElement self))- -foreign import javascript unsafe "(($1) => { return $1[\"clientWidth\"]; })"- js_getClientWidth :: Element -> IO Double---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.clientWidth Mozilla Element.clientWidth documentation> -getClientWidth :: (MonadIO m, IsElement self) => self -> m Double-getClientWidth self = liftIO (js_getClientWidth (toElement self))- -foreign import javascript unsafe "(($1) => { return $1[\"clientHeight\"]; })"- js_getClientHeight :: Element -> IO Double---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.clientHeight Mozilla Element.clientHeight documentation> -getClientHeight :: (MonadIO m, IsElement self) => self -> m Double-getClientHeight self = liftIO (js_getClientHeight (toElement self))- -foreign import javascript safe "(($1, $2) => { $1[\"innerHTML\"] = $2; })"- js_setInnerHTML :: Element -> JSString -> IO ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.innerHTML Mozilla Element.innerHTML documentation> -setInnerHTML ::- (MonadIO m, IsElement self, ToJSString val) => self -> val -> m ()-setInnerHTML self val- = liftIO (js_setInnerHTML (toElement self) (toJSString val))- -foreign import javascript unsafe "(($1) => { return $1[\"innerHTML\"]; })"- js_getInnerHTML :: Element -> IO JSString---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.innerHTML Mozilla Element.innerHTML documentation> -getInnerHTML ::- (MonadIO m, IsElement self, FromJSString result) =>- self -> m result-getInnerHTML self- = liftIO (fromJSString <$> (js_getInnerHTML (toElement self)))- -foreign import javascript safe "(($1, $2) => { $1[\"outerHTML\"] = $2; })"- js_setOuterHTML :: Element -> JSString -> IO ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.outerHTML Mozilla Element.outerHTML documentation> -setOuterHTML ::- (MonadIO m, IsElement self, ToJSString val) => self -> val -> m ()-setOuterHTML self val- = liftIO (js_setOuterHTML (toElement self) (toJSString val))- -foreign import javascript unsafe "(($1) => { return $1[\"outerHTML\"]; })"- js_getOuterHTML :: Element -> IO JSString---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.outerHTML Mozilla Element.outerHTML documentation> -getOuterHTML ::- (MonadIO m, IsElement self, FromJSString result) =>- self -> m result-getOuterHTML self- = liftIO (fromJSString <$> (js_getOuterHTML (toElement self)))- -foreign import javascript unsafe "(($1) => { return $1[\"webkitRegionOverset\"]; })"- js_getWebkitRegionOverset :: Element -> IO JSString---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.webkitRegionOverset Mozilla Element.webkitRegionOverset documentation> -getWebkitRegionOverset ::- (MonadIO m, IsElement self, FromJSString result) =>- self -> m result-getWebkitRegionOverset self- = liftIO- (fromJSString <$> (js_getWebkitRegionOverset (toElement self)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.onselectstart Mozilla Element.onselectstart documentation> -selectStart ::- (IsElement self, IsEventTarget self) => EventName self Event-selectStart = unsafeEventName (toJSString "selectstart")---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.ongesturechange Mozilla Element.ongesturechange documentation> -gestureChange ::- (IsElement self, IsEventTarget self) => EventName self UIEvent-gestureChange = unsafeEventName (toJSString "gesturechange")---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.ongestureend Mozilla Element.ongestureend documentation> -gestureEnd ::- (IsElement self, IsEventTarget self) => EventName self UIEvent-gestureEnd = unsafeEventName (toJSString "gestureend")---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.ongesturestart Mozilla Element.ongesturestart documentation> -gestureStart ::- (IsElement self, IsEventTarget self) => EventName self UIEvent-gestureStart = unsafeEventName (toJSString "gesturestart")---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.onwebkitanimationend Mozilla Element.onwebkitanimationend documentation> -webKitAnimationEnd ::- (IsElement self, IsEventTarget self) =>- EventName self AnimationEvent-webKitAnimationEnd- = unsafeEventName (toJSString "webkitanimationend")---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.onwebkitanimationiteration Mozilla Element.onwebkitanimationiteration documentation> -webKitAnimationIteration ::- (IsElement self, IsEventTarget self) =>- EventName self AnimationEvent-webKitAnimationIteration- = unsafeEventName (toJSString "webkitanimationiteration")---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.onwebkitanimationstart Mozilla Element.onwebkitanimationstart documentation> -webKitAnimationStart ::- (IsElement self, IsEventTarget self) =>- EventName self AnimationEvent-webKitAnimationStart- = unsafeEventName (toJSString "webkitanimationstart")---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.onwebkittransitionend Mozilla Element.onwebkittransitionend documentation> -webKitTransitionEnd ::- (IsElement self, IsEventTarget self) =>- EventName self TransitionEvent-webKitTransitionEnd- = unsafeEventName (toJSString "webkittransitionend")---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.onwebkitfullscreenchange Mozilla Element.onwebkitfullscreenchange documentation> -webKitFullscreenChange ::- (IsElement self, IsEventTarget self) => EventName self Event-webKitFullscreenChange- = unsafeEventName (toJSString "webkitfullscreenchange")---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.onwebkitfullscreenerror Mozilla Element.onwebkitfullscreenerror documentation> -webKitFullscreenError ::- (IsElement self, IsEventTarget self) => EventName self Event-webKitFullscreenError- = unsafeEventName (toJSString "webkitfullscreenerror")---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.onfocusin Mozilla Element.onfocusin documentation> -focusin ::- (IsElement self, IsEventTarget self) => EventName self onfocusin-focusin = unsafeEventName (toJSString "focusin")---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.onfocusout Mozilla Element.onfocusout documentation> -focusout ::- (IsElement self, IsEventTarget self) => EventName self onfocusout-focusout = unsafeEventName (toJSString "focusout")---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.onbeforeload Mozilla Element.onbeforeload documentation> -beforeload ::- (IsElement self, IsEventTarget self) => EventName self onbeforeload-beforeload = unsafeEventName (toJSString "beforeload")---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.onwebkitneedkey Mozilla Element.onwebkitneedkey documentation> -webKitNeedKey ::- (IsElement self, IsEventTarget self) => EventName self Event-webKitNeedKey = unsafeEventName (toJSString "webkitneedkey")---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.onwebkitpresentationmodechanged Mozilla Element.onwebkitpresentationmodechanged documentation> -webKitPresentationModeChanged ::- (IsElement self, IsEventTarget self) => EventName self Event-webKitPresentationModeChanged- = unsafeEventName (toJSString "webkitpresentationmodechanged")---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.onwebkitcurrentplaybacktargetiswirelesschanged Mozilla Element.onwebkitcurrentplaybacktargetiswirelesschanged documentation> -webKitCurrentPlaybackTargetIsWirelessChanged ::- (IsElement self, IsEventTarget self) =>- EventName self Event-webKitCurrentPlaybackTargetIsWirelessChanged- = unsafeEventName- (toJSString "webkitcurrentplaybacktargetiswirelesschanged")---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.onwebkitplaybacktargetavailabilitychanged Mozilla Element.onwebkitplaybacktargetavailabilitychanged documentation> -webKitPlaybackTargetAvailabilityChanged ::- (IsElement self, IsEventTarget self) => EventName self Event-webKitPlaybackTargetAvailabilityChanged- = unsafeEventName- (toJSString "webkitplaybacktargetavailabilitychanged")+{-# 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.Element+ (js_attachShadow, js_checkVisibility, js_closest, js_computedStyleMap, js_getAttribute, js_getAttributeNS, js_getAttributeNames, js_getAttributeNode, js_getAttributeNodeNS, js_getBoundingClientRect, js_getClientRects, js_getElementsByClassName, js_getElementsByTagName, js_getElementsByTagNameNS, js_getHTML, js_hasAttribute, js_hasAttributeNS, js_hasAttributes, js_hasPointerCapture, js_insertAdjacentElement, js_insertAdjacentHTML, js_insertAdjacentText, js_matches, js_releasePointerCapture, js_removeAttribute, js_removeAttributeNS, js_removeAttributeNode, js_requestFullscreen, js_requestPointerLock, js_requestPointerLock', js_scrollOpt, js_scroll, js_scrollByOpt, js_scrollBy, js_scrollIntoView, js_scrollToOpt, js_scrollTo, js_setAttribute, js_setAttributeNS, js_setAttributeNode, js_setAttributeNodeNS, js_setHTML, js_setHTMLUnsafe, js_setPointerCapture, js_toggleAttribute, js_webkitMatchesSelector, js_getNamespaceURI, js_getPrefix, js_getLocalName, js_getTagName, js_setId, js_getId, js_setClassName, js_getClassName, js_getClassList, js_setSlot, js_getSlot, js_getAttributes, js_getShadowRoot, js_getCustomElementRegistry, js_getPart, js_setScrollTop, js_getScrollTop, js_setScrollLeft, js_getScrollLeft, js_getScrollWidth, js_getScrollHeight, js_getClientTop, js_getClientLeft, js_getClientWidth, js_getClientHeight, js_getCurrentCSSZoom, js_setInnerHTML, js_getInnerHTML, js_setOuterHTML, js_getOuterHTML, attachShadow, attachShadow_, checkVisibility, checkVisibility_, closest, closest_, closestUnsafe, closestUnchecked, computedStyleMap, computedStyleMap_, getAttribute, getAttribute_, getAttributeUnsafe, getAttributeUnchecked, getAttributeNS, getAttributeNS_, getAttributeNSUnsafe, getAttributeNSUnchecked, getAttributeNames, getAttributeNames_, getAttributeNode, getAttributeNode_, getAttributeNodeUnsafe, getAttributeNodeUnchecked, getAttributeNodeNS, getAttributeNodeNS_, getAttributeNodeNSUnsafe, getAttributeNodeNSUnchecked, getBoundingClientRect, getBoundingClientRect_, getClientRects, getClientRects_, getElementsByClassName, getElementsByClassName_, getElementsByTagName, getElementsByTagName_, getElementsByTagNameNS, getElementsByTagNameNS_, getHTML, getHTML_, hasAttribute, hasAttribute_, hasAttributeNS, hasAttributeNS_, hasAttributes, hasAttributes_, hasPointerCapture, hasPointerCapture_, insertAdjacentElement, insertAdjacentElement_, insertAdjacentElementUnsafe, insertAdjacentElementUnchecked, insertAdjacentHTML, insertAdjacentText, matches, matches_, releasePointerCapture, removeAttribute, removeAttributeNS, removeAttributeNode, removeAttributeNode_, requestFullscreen, requestPointerLock, requestPointerLock', scrollOpt, scrollOpt_, scroll, scroll_, scrollByOpt, scrollByOpt_, scrollBy, scrollBy_, scrollIntoView, scrollIntoView_, scrollToOpt, scrollToOpt_, scrollTo, scrollTo_, setAttribute, setAttributeNS, setAttributeNode, setAttributeNode_, setAttributeNodeUnsafe, setAttributeNodeUnchecked, setAttributeNodeNS, setAttributeNodeNS_, setAttributeNodeNSUnsafe, setAttributeNodeNSUnchecked, setHTML, setHTMLUnsafe, setPointerCapture, toggleAttribute, toggleAttribute_, webkitMatchesSelector, webkitMatchesSelector_, getNamespaceURI, getNamespaceURIUnsafe, getNamespaceURIUnchecked, getPrefix, getPrefixUnsafe, getPrefixUnchecked, getLocalName, getTagName, setId, getId, setClassName, getClassName, getClassList, setSlot, getSlot, getAttributes, getShadowRoot, getShadowRootUnsafe, getShadowRootUnchecked, getCustomElementRegistry, getCustomElementRegistryUnsafe, getCustomElementRegistryUnchecked, getPart, setScrollTop, getScrollTop, setScrollLeft, getScrollLeft, getScrollWidth, getScrollHeight, getClientTop, getClientLeft, getClientWidth, getClientHeight, getCurrentCSSZoom, setInnerHTML, getInnerHTML, setOuterHTML, getOuterHTML, fullscreenchange, fullscreenerror, compositionend, compositionstart, compositionupdate, contentvisibilityautostatechange, domActivate, domFocusIn, domFocusOut, focusin, focusout, textInput, Element(..), gTypeElement, IsElement, toElement)+ 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[\"attachShadow\"]($2); })"+ js_attachShadow :: Element -> ShadowRootInit -> IO ShadowRoot+-- | <https://developer.mozilla.org/docs/Web/API/Element/attachShadow MDN Element.attachShadow documentation>+attachShadow :: (MonadDOM m, IsElement self) => self -> ShadowRootInit -> m ShadowRoot+attachShadow self init = liftDOM ((js_attachShadow ((Types.toElement self)) (init)))++-- | <https://developer.mozilla.org/docs/Web/API/Element/attachShadow MDN Element.attachShadow documentation>+attachShadow_ :: (MonadDOM m, IsElement self) => self -> ShadowRootInit -> m ()+attachShadow_ self init = liftDOM (void ((js_attachShadow ((Types.toElement self)) (init))))++foreign import javascript safe "(($1, $2) => { return $1[\"checkVisibility\"]($2); })"+ js_checkVisibility :: Element -> JSVal -> IO Bool+-- | <https://developer.mozilla.org/docs/Web/API/Element/checkVisibility MDN Element.checkVisibility documentation>+checkVisibility :: (MonadDOM m, IsElement self) => self -> Maybe CheckVisibilityOptions -> m Bool+checkVisibility self options = liftDOM (((P.maybe (P.return jsUndefined) toJSVal options) >>= \a2' -> js_checkVisibility ((Types.toElement self)) a2'))++-- | <https://developer.mozilla.org/docs/Web/API/Element/checkVisibility MDN Element.checkVisibility documentation>+checkVisibility_ :: (MonadDOM m, IsElement self) => self -> Maybe CheckVisibilityOptions -> m ()+checkVisibility_ self options = liftDOM (void (((P.maybe (P.return jsUndefined) toJSVal options) >>= \a2' -> js_checkVisibility ((Types.toElement self)) a2')))++foreign import javascript safe "(($1, $2) => { return $1[\"closest\"]($2); })"+ js_closest :: Element -> JSString -> IO JSVal+-- | <https://developer.mozilla.org/docs/Web/API/Element/closest MDN Element.closest documentation>+closest :: (MonadDOM m, IsElement self, ToJSString selectors) => self -> selectors -> m (Maybe Element)+closest self selectors = liftDOM (((js_closest ((Types.toElement self)) (toJSString selectors)) >>= fromJSValUnchecked))++-- | <https://developer.mozilla.org/docs/Web/API/Element/closest MDN Element.closest documentation>+closest_ :: (MonadDOM m, IsElement self, ToJSString selectors) => self -> selectors -> m ()+closest_ self selectors = liftDOM (void ((js_closest ((Types.toElement self)) (toJSString selectors))))++-- | <https://developer.mozilla.org/docs/Web/API/Element/closest MDN Element.closest documentation>+closestUnsafe :: (MonadDOM m, IsElement self, ToJSString selectors, HasCallStack) => self -> selectors -> m Element+closestUnsafe self selectors = liftDOM ((((js_closest ((Types.toElement self)) (toJSString selectors)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://developer.mozilla.org/docs/Web/API/Element/closest MDN Element.closest documentation>+closestUnchecked :: (MonadDOM m, IsElement self, ToJSString selectors) => self -> selectors -> m Element+closestUnchecked self selectors = liftDOM ((pFromJSVal <$> (js_closest ((Types.toElement self)) (toJSString selectors))))++foreign import javascript safe "(($1) => { return $1[\"computedStyleMap\"](); })"+ js_computedStyleMap :: Element -> IO StylePropertyMapReadOnly+-- | <https://developer.mozilla.org/docs/Web/API/Element/computedStyleMap MDN Element.computedStyleMap documentation>+computedStyleMap :: (MonadDOM m, IsElement self) => self -> m StylePropertyMapReadOnly+computedStyleMap self = liftDOM ((js_computedStyleMap ((Types.toElement self))))++-- | <https://developer.mozilla.org/docs/Web/API/Element/computedStyleMap MDN Element.computedStyleMap documentation>+computedStyleMap_ :: (MonadDOM m, IsElement self) => self -> m ()+computedStyleMap_ self = liftDOM (void ((js_computedStyleMap ((Types.toElement self)))))++foreign import javascript safe "(($1, $2) => { return $1[\"getAttribute\"]($2); })"+ js_getAttribute :: Element -> JSString -> IO JSVal+-- | <https://developer.mozilla.org/docs/Web/API/Element/getAttribute MDN Element.getAttribute documentation>+getAttribute :: (MonadDOM m, IsElement self, ToJSString qualifiedName, FromJSString result) => self -> qualifiedName -> m (Maybe result)+getAttribute self qualifiedName = liftDOM (((fromMaybeJSString . Nullable) <$> (js_getAttribute ((Types.toElement self)) (toJSString qualifiedName))))++-- | <https://developer.mozilla.org/docs/Web/API/Element/getAttribute MDN Element.getAttribute documentation>+getAttribute_ :: (MonadDOM m, IsElement self, ToJSString qualifiedName) => self -> qualifiedName -> m ()+getAttribute_ self qualifiedName = liftDOM (void ((js_getAttribute ((Types.toElement self)) (toJSString qualifiedName))))++-- | <https://developer.mozilla.org/docs/Web/API/Element/getAttribute MDN Element.getAttribute documentation>+getAttributeUnsafe :: (MonadDOM m, IsElement self, ToJSString qualifiedName, HasCallStack, FromJSString result) => self -> qualifiedName -> m result+getAttributeUnsafe self qualifiedName = liftDOM ((((fromMaybeJSString . Nullable) <$> (js_getAttribute ((Types.toElement self)) (toJSString qualifiedName))) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://developer.mozilla.org/docs/Web/API/Element/getAttribute MDN Element.getAttribute documentation>+getAttributeUnchecked :: (MonadDOM m, IsElement self, ToJSString qualifiedName, FromJSString result) => self -> qualifiedName -> m result+getAttributeUnchecked self qualifiedName = liftDOM ((pFromJSVal <$> (js_getAttribute ((Types.toElement self)) (toJSString qualifiedName))))++foreign import javascript safe "(($1, $2, $3) => { return $1[\"getAttributeNS\"]($2, $3); })"+ js_getAttributeNS :: Element -> (Nullable JSString) -> JSString -> IO JSVal+-- | <https://developer.mozilla.org/docs/Web/API/Element/getAttributeNS MDN Element.getAttributeNS documentation>+getAttributeNS :: (MonadDOM m, IsElement self, ToJSString namespace, ToJSString localName, FromJSString result) => self -> Maybe namespace -> localName -> m (Maybe result)+getAttributeNS self namespace localName = liftDOM (((fromMaybeJSString . Nullable) <$> (js_getAttributeNS ((Types.toElement self)) (toMaybeJSString namespace) (toJSString localName))))++-- | <https://developer.mozilla.org/docs/Web/API/Element/getAttributeNS MDN Element.getAttributeNS documentation>+getAttributeNS_ :: (MonadDOM m, IsElement self, ToJSString namespace, ToJSString localName) => self -> Maybe namespace -> localName -> m ()+getAttributeNS_ self namespace localName = liftDOM (void ((js_getAttributeNS ((Types.toElement self)) (toMaybeJSString namespace) (toJSString localName))))++-- | <https://developer.mozilla.org/docs/Web/API/Element/getAttributeNS MDN Element.getAttributeNS documentation>+getAttributeNSUnsafe :: (MonadDOM m, IsElement self, ToJSString namespace, ToJSString localName, HasCallStack, FromJSString result) => self -> Maybe namespace -> localName -> m result+getAttributeNSUnsafe self namespace localName = liftDOM ((((fromMaybeJSString . Nullable) <$> (js_getAttributeNS ((Types.toElement self)) (toMaybeJSString namespace) (toJSString localName))) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://developer.mozilla.org/docs/Web/API/Element/getAttributeNS MDN Element.getAttributeNS documentation>+getAttributeNSUnchecked :: (MonadDOM m, IsElement self, ToJSString namespace, ToJSString localName, FromJSString result) => self -> Maybe namespace -> localName -> m result+getAttributeNSUnchecked self namespace localName = liftDOM ((pFromJSVal <$> (js_getAttributeNS ((Types.toElement self)) (toMaybeJSString namespace) (toJSString localName))))++foreign import javascript safe "(($1) => { return $1[\"getAttributeNames\"](); })"+ js_getAttributeNames :: Element -> IO JSVal+-- | <https://developer.mozilla.org/docs/Web/API/Element/getAttributeNames MDN Element.getAttributeNames documentation>+getAttributeNames :: (MonadDOM m, IsElement self, FromJSString result) => self -> m [result]+getAttributeNames self = liftDOM (((js_getAttributeNames ((Types.toElement self))) >>= fromJSValUnchecked))++-- | <https://developer.mozilla.org/docs/Web/API/Element/getAttributeNames MDN Element.getAttributeNames documentation>+getAttributeNames_ :: (MonadDOM m, IsElement self) => self -> m ()+getAttributeNames_ self = liftDOM (void ((js_getAttributeNames ((Types.toElement self)))))++foreign import javascript safe "(($1, $2) => { return $1[\"getAttributeNode\"]($2); })"+ js_getAttributeNode :: Element -> JSString -> IO JSVal+-- | <https://developer.mozilla.org/docs/Web/API/Element/getAttributeNode MDN Element.getAttributeNode documentation>+getAttributeNode :: (MonadDOM m, IsElement self, ToJSString qualifiedName) => self -> qualifiedName -> m (Maybe Attr)+getAttributeNode self qualifiedName = liftDOM (((js_getAttributeNode ((Types.toElement self)) (toJSString qualifiedName)) >>= fromJSValUnchecked))++-- | <https://developer.mozilla.org/docs/Web/API/Element/getAttributeNode MDN Element.getAttributeNode documentation>+getAttributeNode_ :: (MonadDOM m, IsElement self, ToJSString qualifiedName) => self -> qualifiedName -> m ()+getAttributeNode_ self qualifiedName = liftDOM (void ((js_getAttributeNode ((Types.toElement self)) (toJSString qualifiedName))))++-- | <https://developer.mozilla.org/docs/Web/API/Element/getAttributeNode MDN Element.getAttributeNode documentation>+getAttributeNodeUnsafe :: (MonadDOM m, IsElement self, ToJSString qualifiedName, HasCallStack) => self -> qualifiedName -> m Attr+getAttributeNodeUnsafe self qualifiedName = liftDOM ((((js_getAttributeNode ((Types.toElement self)) (toJSString qualifiedName)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://developer.mozilla.org/docs/Web/API/Element/getAttributeNode MDN Element.getAttributeNode documentation>+getAttributeNodeUnchecked :: (MonadDOM m, IsElement self, ToJSString qualifiedName) => self -> qualifiedName -> m Attr+getAttributeNodeUnchecked self qualifiedName = liftDOM ((pFromJSVal <$> (js_getAttributeNode ((Types.toElement self)) (toJSString qualifiedName))))++foreign import javascript safe "(($1, $2, $3) => { return $1[\"getAttributeNodeNS\"]($2, $3); })"+ js_getAttributeNodeNS :: Element -> (Nullable JSString) -> JSString -> IO JSVal+-- | <https://developer.mozilla.org/docs/Web/API/Element/getAttributeNodeNS MDN Element.getAttributeNodeNS documentation>+getAttributeNodeNS :: (MonadDOM m, IsElement self, ToJSString namespace, ToJSString localName) => self -> Maybe namespace -> localName -> m (Maybe Attr)+getAttributeNodeNS self namespace localName = liftDOM (((js_getAttributeNodeNS ((Types.toElement self)) (toMaybeJSString namespace) (toJSString localName)) >>= fromJSValUnchecked))++-- | <https://developer.mozilla.org/docs/Web/API/Element/getAttributeNodeNS MDN Element.getAttributeNodeNS documentation>+getAttributeNodeNS_ :: (MonadDOM m, IsElement self, ToJSString namespace, ToJSString localName) => self -> Maybe namespace -> localName -> m ()+getAttributeNodeNS_ self namespace localName = liftDOM (void ((js_getAttributeNodeNS ((Types.toElement self)) (toMaybeJSString namespace) (toJSString localName))))++-- | <https://developer.mozilla.org/docs/Web/API/Element/getAttributeNodeNS MDN Element.getAttributeNodeNS documentation>+getAttributeNodeNSUnsafe :: (MonadDOM m, IsElement self, ToJSString namespace, ToJSString localName, HasCallStack) => self -> Maybe namespace -> localName -> m Attr+getAttributeNodeNSUnsafe self namespace localName = liftDOM ((((js_getAttributeNodeNS ((Types.toElement self)) (toMaybeJSString namespace) (toJSString localName)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://developer.mozilla.org/docs/Web/API/Element/getAttributeNodeNS MDN Element.getAttributeNodeNS documentation>+getAttributeNodeNSUnchecked :: (MonadDOM m, IsElement self, ToJSString namespace, ToJSString localName) => self -> Maybe namespace -> localName -> m Attr+getAttributeNodeNSUnchecked self namespace localName = liftDOM ((pFromJSVal <$> (js_getAttributeNodeNS ((Types.toElement self)) (toMaybeJSString namespace) (toJSString localName))))++foreign import javascript safe "(($1) => { return $1[\"getBoundingClientRect\"](); })"+ js_getBoundingClientRect :: Element -> IO DOMRect+-- | <https://developer.mozilla.org/docs/Web/API/Element/getBoundingClientRect MDN Element.getBoundingClientRect documentation>+getBoundingClientRect :: (MonadDOM m, IsElement self) => self -> m DOMRect+getBoundingClientRect self = liftDOM ((js_getBoundingClientRect ((Types.toElement self))))++-- | <https://developer.mozilla.org/docs/Web/API/Element/getBoundingClientRect MDN Element.getBoundingClientRect documentation>+getBoundingClientRect_ :: (MonadDOM m, IsElement self) => self -> m ()+getBoundingClientRect_ self = liftDOM (void ((js_getBoundingClientRect ((Types.toElement self)))))++foreign import javascript safe "(($1) => { return $1[\"getClientRects\"](); })"+ js_getClientRects :: Element -> IO DOMRectList+-- | <https://developer.mozilla.org/docs/Web/API/Element/getClientRects MDN Element.getClientRects documentation>+getClientRects :: (MonadDOM m, IsElement self) => self -> m DOMRectList+getClientRects self = liftDOM ((js_getClientRects ((Types.toElement self))))++-- | <https://developer.mozilla.org/docs/Web/API/Element/getClientRects MDN Element.getClientRects documentation>+getClientRects_ :: (MonadDOM m, IsElement self) => self -> m ()+getClientRects_ self = liftDOM (void ((js_getClientRects ((Types.toElement self)))))++foreign import javascript safe "(($1, $2) => { return $1[\"getElementsByClassName\"]($2); })"+ js_getElementsByClassName :: Element -> JSString -> IO HTMLCollection+-- | <https://developer.mozilla.org/docs/Web/API/Element/getElementsByClassName MDN Element.getElementsByClassName documentation>+getElementsByClassName :: (MonadDOM m, IsElement self, ToJSString classNames) => self -> classNames -> m HTMLCollection+getElementsByClassName self classNames = liftDOM ((js_getElementsByClassName ((Types.toElement self)) (toJSString classNames)))++-- | <https://developer.mozilla.org/docs/Web/API/Element/getElementsByClassName MDN Element.getElementsByClassName documentation>+getElementsByClassName_ :: (MonadDOM m, IsElement self, ToJSString classNames) => self -> classNames -> m ()+getElementsByClassName_ self classNames = liftDOM (void ((js_getElementsByClassName ((Types.toElement self)) (toJSString classNames))))++foreign import javascript safe "(($1, $2) => { return $1[\"getElementsByTagName\"]($2); })"+ js_getElementsByTagName :: Element -> JSString -> IO HTMLCollection+-- | <https://developer.mozilla.org/docs/Web/API/Element/getElementsByTagName MDN Element.getElementsByTagName documentation>+getElementsByTagName :: (MonadDOM m, IsElement self, ToJSString qualifiedName) => self -> qualifiedName -> m HTMLCollection+getElementsByTagName self qualifiedName = liftDOM ((js_getElementsByTagName ((Types.toElement self)) (toJSString qualifiedName)))++-- | <https://developer.mozilla.org/docs/Web/API/Element/getElementsByTagName MDN Element.getElementsByTagName documentation>+getElementsByTagName_ :: (MonadDOM m, IsElement self, ToJSString qualifiedName) => self -> qualifiedName -> m ()+getElementsByTagName_ self qualifiedName = liftDOM (void ((js_getElementsByTagName ((Types.toElement self)) (toJSString qualifiedName))))++foreign import javascript safe "(($1, $2, $3) => { return $1[\"getElementsByTagNameNS\"]($2, $3); })"+ js_getElementsByTagNameNS :: Element -> (Nullable JSString) -> JSString -> IO HTMLCollection+-- | <https://developer.mozilla.org/docs/Web/API/Element/getElementsByTagNameNS MDN Element.getElementsByTagNameNS documentation>+getElementsByTagNameNS :: (MonadDOM m, IsElement self, ToJSString namespace, ToJSString localName) => self -> Maybe namespace -> localName -> m HTMLCollection+getElementsByTagNameNS self namespace localName = liftDOM ((js_getElementsByTagNameNS ((Types.toElement self)) (toMaybeJSString namespace) (toJSString localName)))++-- | <https://developer.mozilla.org/docs/Web/API/Element/getElementsByTagNameNS MDN Element.getElementsByTagNameNS documentation>+getElementsByTagNameNS_ :: (MonadDOM m, IsElement self, ToJSString namespace, ToJSString localName) => self -> Maybe namespace -> localName -> m ()+getElementsByTagNameNS_ self namespace localName = liftDOM (void ((js_getElementsByTagNameNS ((Types.toElement self)) (toMaybeJSString namespace) (toJSString localName))))++foreign import javascript safe "(($1, $2) => { return $1[\"getHTML\"]($2); })"+ js_getHTML :: Element -> JSVal -> IO JSString+-- | <https://developer.mozilla.org/docs/Web/API/Element/getHTML MDN Element.getHTML documentation>+getHTML :: (MonadDOM m, IsElement self, FromJSString result) => self -> Maybe GetHTMLOptions -> m result+getHTML self options = liftDOM ((fromJSString <$> ((P.maybe (P.return jsUndefined) toJSVal options) >>= \a2' -> js_getHTML ((Types.toElement self)) a2')))++-- | <https://developer.mozilla.org/docs/Web/API/Element/getHTML MDN Element.getHTML documentation>+getHTML_ :: (MonadDOM m, IsElement self) => self -> Maybe GetHTMLOptions -> m ()+getHTML_ self options = liftDOM (void (((P.maybe (P.return jsUndefined) toJSVal options) >>= \a2' -> js_getHTML ((Types.toElement self)) a2')))++foreign import javascript safe "(($1, $2) => { return $1[\"hasAttribute\"]($2); })"+ js_hasAttribute :: Element -> JSString -> IO Bool+-- | <https://developer.mozilla.org/docs/Web/API/Element/hasAttribute MDN Element.hasAttribute documentation>+hasAttribute :: (MonadDOM m, IsElement self, ToJSString qualifiedName) => self -> qualifiedName -> m Bool+hasAttribute self qualifiedName = liftDOM ((js_hasAttribute ((Types.toElement self)) (toJSString qualifiedName)))++-- | <https://developer.mozilla.org/docs/Web/API/Element/hasAttribute MDN Element.hasAttribute documentation>+hasAttribute_ :: (MonadDOM m, IsElement self, ToJSString qualifiedName) => self -> qualifiedName -> m ()+hasAttribute_ self qualifiedName = liftDOM (void ((js_hasAttribute ((Types.toElement self)) (toJSString qualifiedName))))++foreign import javascript safe "(($1, $2, $3) => { return $1[\"hasAttributeNS\"]($2, $3); })"+ js_hasAttributeNS :: Element -> (Nullable JSString) -> JSString -> IO Bool+-- | <https://developer.mozilla.org/docs/Web/API/Element/hasAttributeNS MDN Element.hasAttributeNS documentation>+hasAttributeNS :: (MonadDOM m, IsElement self, ToJSString namespace, ToJSString localName) => self -> Maybe namespace -> localName -> m Bool+hasAttributeNS self namespace localName = liftDOM ((js_hasAttributeNS ((Types.toElement self)) (toMaybeJSString namespace) (toJSString localName)))++-- | <https://developer.mozilla.org/docs/Web/API/Element/hasAttributeNS MDN Element.hasAttributeNS documentation>+hasAttributeNS_ :: (MonadDOM m, IsElement self, ToJSString namespace, ToJSString localName) => self -> Maybe namespace -> localName -> m ()+hasAttributeNS_ self namespace localName = liftDOM (void ((js_hasAttributeNS ((Types.toElement self)) (toMaybeJSString namespace) (toJSString localName))))++foreign import javascript safe "(($1) => { return $1[\"hasAttributes\"](); })"+ js_hasAttributes :: Element -> IO Bool+-- | <https://developer.mozilla.org/docs/Web/API/Element/hasAttributes MDN Element.hasAttributes documentation>+hasAttributes :: (MonadDOM m, IsElement self) => self -> m Bool+hasAttributes self = liftDOM ((js_hasAttributes ((Types.toElement self))))++-- | <https://developer.mozilla.org/docs/Web/API/Element/hasAttributes MDN Element.hasAttributes documentation>+hasAttributes_ :: (MonadDOM m, IsElement self) => self -> m ()+hasAttributes_ self = liftDOM (void ((js_hasAttributes ((Types.toElement self)))))++foreign import javascript safe "(($1, $2) => { return $1[\"hasPointerCapture\"]($2); })"+ js_hasPointerCapture :: Element -> Int -> IO Bool+-- | <https://developer.mozilla.org/docs/Web/API/Element/hasPointerCapture MDN Element.hasPointerCapture documentation>+hasPointerCapture :: (MonadDOM m, IsElement self) => self -> Int -> m Bool+hasPointerCapture self pointerId = liftDOM ((js_hasPointerCapture ((Types.toElement self)) (pointerId)))++-- | <https://developer.mozilla.org/docs/Web/API/Element/hasPointerCapture MDN Element.hasPointerCapture documentation>+hasPointerCapture_ :: (MonadDOM m, IsElement self) => self -> Int -> m ()+hasPointerCapture_ self pointerId = liftDOM (void ((js_hasPointerCapture ((Types.toElement self)) (pointerId))))++foreign import javascript safe "(($1, $2, $3) => { return $1[\"insertAdjacentElement\"]($2, $3); })"+ js_insertAdjacentElement :: Element -> JSString -> Element -> IO JSVal+-- | <https://developer.mozilla.org/docs/Web/API/Element/insertAdjacentElement MDN Element.insertAdjacentElement documentation>+insertAdjacentElement :: (MonadDOM m, IsElement self, ToJSString where', IsElement element) => self -> where' -> element -> m (Maybe Element)+insertAdjacentElement self where' element = liftDOM (((js_insertAdjacentElement ((Types.toElement self)) (toJSString where') (Types.toElement element)) >>= fromJSValUnchecked))++-- | <https://developer.mozilla.org/docs/Web/API/Element/insertAdjacentElement MDN Element.insertAdjacentElement documentation>+insertAdjacentElement_ :: (MonadDOM m, IsElement self, ToJSString where', IsElement element) => self -> where' -> element -> m ()+insertAdjacentElement_ self where' element = liftDOM (void ((js_insertAdjacentElement ((Types.toElement self)) (toJSString where') (Types.toElement element))))++-- | <https://developer.mozilla.org/docs/Web/API/Element/insertAdjacentElement MDN Element.insertAdjacentElement documentation>+insertAdjacentElementUnsafe :: (MonadDOM m, IsElement self, ToJSString where', IsElement element, HasCallStack) => self -> where' -> element -> m Element+insertAdjacentElementUnsafe self where' element = liftDOM ((((js_insertAdjacentElement ((Types.toElement self)) (toJSString where') (Types.toElement element)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://developer.mozilla.org/docs/Web/API/Element/insertAdjacentElement MDN Element.insertAdjacentElement documentation>+insertAdjacentElementUnchecked :: (MonadDOM m, IsElement self, ToJSString where', IsElement element) => self -> where' -> element -> m Element+insertAdjacentElementUnchecked self where' element = liftDOM ((pFromJSVal <$> (js_insertAdjacentElement ((Types.toElement self)) (toJSString where') (Types.toElement element))))++foreign import javascript safe "(($1, $2, $3) => { return $1[\"insertAdjacentHTML\"]($2, $3); })"+ js_insertAdjacentHTML :: Element -> JSString -> TrustedHTMLOrString -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/Element/insertAdjacentHTML MDN Element.insertAdjacentHTML documentation>+insertAdjacentHTML :: (MonadDOM m, IsElement self, ToJSString position, IsTrustedHTMLOrString string) => self -> position -> string -> m ()+insertAdjacentHTML self position string = liftDOM (void ((js_insertAdjacentHTML ((Types.toElement self)) (toJSString position) (Types.toTrustedHTMLOrString string))))++foreign import javascript safe "(($1, $2, $3) => { return $1[\"insertAdjacentText\"]($2, $3); })"+ js_insertAdjacentText :: Element -> JSString -> JSString -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/Element/insertAdjacentText MDN Element.insertAdjacentText documentation>+insertAdjacentText :: (MonadDOM m, IsElement self, ToJSString where', ToJSString data') => self -> where' -> data' -> m ()+insertAdjacentText self where' data' = liftDOM (void ((js_insertAdjacentText ((Types.toElement self)) (toJSString where') (toJSString data'))))++foreign import javascript safe "(($1, $2) => { return $1[\"matches\"]($2); })"+ js_matches :: Element -> JSString -> IO Bool+-- | <https://developer.mozilla.org/docs/Web/API/Element/matches MDN Element.matches documentation>+matches :: (MonadDOM m, IsElement self, ToJSString selectors) => self -> selectors -> m Bool+matches self selectors = liftDOM ((js_matches ((Types.toElement self)) (toJSString selectors)))++-- | <https://developer.mozilla.org/docs/Web/API/Element/matches MDN Element.matches documentation>+matches_ :: (MonadDOM m, IsElement self, ToJSString selectors) => self -> selectors -> m ()+matches_ self selectors = liftDOM (void ((js_matches ((Types.toElement self)) (toJSString selectors))))++foreign import javascript safe "(($1, $2) => { return $1[\"releasePointerCapture\"]($2); })"+ js_releasePointerCapture :: Element -> Int -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/Element/releasePointerCapture MDN Element.releasePointerCapture documentation>+releasePointerCapture :: (MonadDOM m, IsElement self) => self -> Int -> m ()+releasePointerCapture self pointerId = liftDOM (void ((js_releasePointerCapture ((Types.toElement self)) (pointerId))))++foreign import javascript safe "(($1, $2) => { return $1[\"removeAttribute\"]($2); })"+ js_removeAttribute :: Element -> JSString -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/Element/removeAttribute MDN Element.removeAttribute documentation>+removeAttribute :: (MonadDOM m, IsElement self, ToJSString qualifiedName) => self -> qualifiedName -> m ()+removeAttribute self qualifiedName = liftDOM (void ((js_removeAttribute ((Types.toElement self)) (toJSString qualifiedName))))++foreign import javascript safe "(($1, $2, $3) => { return $1[\"removeAttributeNS\"]($2, $3); })"+ js_removeAttributeNS :: Element -> (Nullable JSString) -> JSString -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/Element/removeAttributeNS MDN Element.removeAttributeNS documentation>+removeAttributeNS :: (MonadDOM m, IsElement self, ToJSString namespace, ToJSString localName) => self -> Maybe namespace -> localName -> m ()+removeAttributeNS self namespace localName = liftDOM (void ((js_removeAttributeNS ((Types.toElement self)) (toMaybeJSString namespace) (toJSString localName))))++foreign import javascript safe "(($1, $2) => { return $1[\"removeAttributeNode\"]($2); })"+ js_removeAttributeNode :: Element -> Attr -> IO Attr+-- | <https://developer.mozilla.org/docs/Web/API/Element/removeAttributeNode MDN Element.removeAttributeNode documentation>+removeAttributeNode :: (MonadDOM m, IsElement self) => self -> Attr -> m Attr+removeAttributeNode self attr = liftDOM ((js_removeAttributeNode ((Types.toElement self)) (attr)))++-- | <https://developer.mozilla.org/docs/Web/API/Element/removeAttributeNode MDN Element.removeAttributeNode documentation>+removeAttributeNode_ :: (MonadDOM m, IsElement self) => self -> Attr -> m ()+removeAttributeNode_ self attr = liftDOM (void ((js_removeAttributeNode ((Types.toElement self)) (attr))))++foreign import javascript interruptible "(($1, $2, $c) => { return $1[\"requestFullscreen\"]($2).then(function(s) { $c(null, s);}, function(e) { $c(e, null);}); })"+ js_requestFullscreen :: Element -> JSVal -> IO (JSVal, ())+-- | <https://developer.mozilla.org/docs/Web/API/Element/requestFullscreen MDN Element.requestFullscreen documentation>+requestFullscreen :: (MonadDOM m, IsElement self) => self -> Maybe FullscreenOptions -> m ()+requestFullscreen self options = liftDOM (void ((((P.maybe (P.return jsUndefined) toJSVal options) >>= \a2' -> js_requestFullscreen ((Types.toElement self)) a2') >>= checkPromiseResult)))++foreign import javascript interruptible "(($1, $c) => { return $1[\"requestPointerLock\"]().then(function(s) { $c(null, s);}, function(e) { $c(e, null);}); })"+ js_requestPointerLock :: Element -> IO (JSVal, ())+-- | <https://developer.mozilla.org/docs/Web/API/Element/requestPointerLock MDN Element.requestPointerLock documentation>+requestPointerLock :: (MonadDOM m, IsElement self) => self -> m ()+requestPointerLock self = liftDOM (void (((js_requestPointerLock ((Types.toElement self))) >>= checkPromiseResult)))++foreign import javascript interruptible "(($1, $2, $c) => { return $1[\"requestPointerLock\"]($2).then(function(s) { $c(null, s);}, function(e) { $c(e, null);}); })"+ js_requestPointerLock' :: Element -> JSVal -> IO (JSVal, ())+-- | <https://developer.mozilla.org/docs/Web/API/Element/requestPointerLock MDN Element.requestPointerLock documentation>+requestPointerLock' :: (MonadDOM m, IsElement self) => self -> Maybe PointerLockOptions -> m ()+requestPointerLock' self options = liftDOM (void ((((P.maybe (P.return jsUndefined) toJSVal options) >>= \a2' -> js_requestPointerLock' ((Types.toElement self)) a2') >>= checkPromiseResult)))++foreign import javascript interruptible "(($1, $2, $c) => { return $1[\"scroll\"]($2).then(function(s) { $c(null, s);}, function(e) { $c(e, null);}); })"+ js_scrollOpt :: Element -> JSVal -> IO (JSVal, ScrollResult)+-- | <https://developer.mozilla.org/docs/Web/API/Element/scroll MDN Element.scroll documentation>+scrollOpt :: (MonadDOM m, IsElement self) => self -> Maybe ScrollToOptions -> m ScrollResult+scrollOpt self options = liftDOM ((((P.maybe (P.return jsUndefined) toJSVal options) >>= \a2' -> js_scrollOpt ((Types.toElement self)) a2') >>= checkPromiseResult))++-- | <https://developer.mozilla.org/docs/Web/API/Element/scroll MDN Element.scroll documentation>+scrollOpt_ :: (MonadDOM m, IsElement self) => self -> Maybe ScrollToOptions -> m ()+scrollOpt_ self options = liftDOM (void ((((P.maybe (P.return jsUndefined) toJSVal options) >>= \a2' -> js_scrollOpt ((Types.toElement self)) a2') >>= checkPromiseResult)))++foreign import javascript interruptible "(($1, $2, $3, $c) => { return $1[\"scroll\"]($2, $3).then(function(s) { $c(null, s);}, function(e) { $c(e, null);}); })"+ js_scroll :: Element -> Double -> Double -> IO (JSVal, ScrollResult)+-- | <https://developer.mozilla.org/docs/Web/API/Element/scroll MDN Element.scroll documentation>+scroll :: (MonadDOM m, IsElement self) => self -> Double -> Double -> m ScrollResult+scroll self x y = liftDOM (((js_scroll ((Types.toElement self)) (x) (y)) >>= checkPromiseResult))++-- | <https://developer.mozilla.org/docs/Web/API/Element/scroll MDN Element.scroll documentation>+scroll_ :: (MonadDOM m, IsElement self) => self -> Double -> Double -> m ()+scroll_ self x y = liftDOM (void (((js_scroll ((Types.toElement self)) (x) (y)) >>= checkPromiseResult)))++foreign import javascript interruptible "(($1, $2, $c) => { return $1[\"scrollBy\"]($2).then(function(s) { $c(null, s);}, function(e) { $c(e, null);}); })"+ js_scrollByOpt :: Element -> JSVal -> IO (JSVal, ScrollResult)+-- | <https://developer.mozilla.org/docs/Web/API/Element/scrollBy MDN Element.scrollBy documentation>+scrollByOpt :: (MonadDOM m, IsElement self) => self -> Maybe ScrollToOptions -> m ScrollResult+scrollByOpt self options = liftDOM ((((P.maybe (P.return jsUndefined) toJSVal options) >>= \a2' -> js_scrollByOpt ((Types.toElement self)) a2') >>= checkPromiseResult))++-- | <https://developer.mozilla.org/docs/Web/API/Element/scrollBy MDN Element.scrollBy documentation>+scrollByOpt_ :: (MonadDOM m, IsElement self) => self -> Maybe ScrollToOptions -> m ()+scrollByOpt_ self options = liftDOM (void ((((P.maybe (P.return jsUndefined) toJSVal options) >>= \a2' -> js_scrollByOpt ((Types.toElement self)) a2') >>= checkPromiseResult)))++foreign import javascript interruptible "(($1, $2, $3, $c) => { return $1[\"scrollBy\"]($2, $3).then(function(s) { $c(null, s);}, function(e) { $c(e, null);}); })"+ js_scrollBy :: Element -> Double -> Double -> IO (JSVal, ScrollResult)+-- | <https://developer.mozilla.org/docs/Web/API/Element/scrollBy MDN Element.scrollBy documentation>+scrollBy :: (MonadDOM m, IsElement self) => self -> Double -> Double -> m ScrollResult+scrollBy self x y = liftDOM (((js_scrollBy ((Types.toElement self)) (x) (y)) >>= checkPromiseResult))++-- | <https://developer.mozilla.org/docs/Web/API/Element/scrollBy MDN Element.scrollBy documentation>+scrollBy_ :: (MonadDOM m, IsElement self) => self -> Double -> Double -> m ()+scrollBy_ self x y = liftDOM (void (((js_scrollBy ((Types.toElement self)) (x) (y)) >>= checkPromiseResult)))++foreign import javascript interruptible "(($1, $2, $c) => { return $1[\"scrollIntoView\"]($2).then(function(s) { $c(null, s);}, function(e) { $c(e, null);}); })"+ js_scrollIntoView :: Element -> JSVal -> IO (JSVal, ScrollResult)+-- | <https://developer.mozilla.org/docs/Web/API/Element/scrollIntoView MDN Element.scrollIntoView documentation>+scrollIntoView :: (MonadDOM m, IsElement self, IsBoolOrScrollIntoViewOptions arg) => self -> Maybe arg -> m ScrollResult+scrollIntoView self arg = liftDOM ((((P.maybe (P.return jsUndefined) toJSVal arg) >>= \a2' -> js_scrollIntoView ((Types.toElement self)) a2') >>= checkPromiseResult))++-- | <https://developer.mozilla.org/docs/Web/API/Element/scrollIntoView MDN Element.scrollIntoView documentation>+scrollIntoView_ :: (MonadDOM m, IsElement self, IsBoolOrScrollIntoViewOptions arg) => self -> Maybe arg -> m ()+scrollIntoView_ self arg = liftDOM (void ((((P.maybe (P.return jsUndefined) toJSVal arg) >>= \a2' -> js_scrollIntoView ((Types.toElement self)) a2') >>= checkPromiseResult)))++foreign import javascript interruptible "(($1, $2, $c) => { return $1[\"scrollTo\"]($2).then(function(s) { $c(null, s);}, function(e) { $c(e, null);}); })"+ js_scrollToOpt :: Element -> JSVal -> IO (JSVal, ScrollResult)+-- | <https://developer.mozilla.org/docs/Web/API/Element/scrollTo MDN Element.scrollTo documentation>+scrollToOpt :: (MonadDOM m, IsElement self) => self -> Maybe ScrollToOptions -> m ScrollResult+scrollToOpt self options = liftDOM ((((P.maybe (P.return jsUndefined) toJSVal options) >>= \a2' -> js_scrollToOpt ((Types.toElement self)) a2') >>= checkPromiseResult))++-- | <https://developer.mozilla.org/docs/Web/API/Element/scrollTo MDN Element.scrollTo documentation>+scrollToOpt_ :: (MonadDOM m, IsElement self) => self -> Maybe ScrollToOptions -> m ()+scrollToOpt_ self options = liftDOM (void ((((P.maybe (P.return jsUndefined) toJSVal options) >>= \a2' -> js_scrollToOpt ((Types.toElement self)) a2') >>= checkPromiseResult)))++foreign import javascript interruptible "(($1, $2, $3, $c) => { return $1[\"scrollTo\"]($2, $3).then(function(s) { $c(null, s);}, function(e) { $c(e, null);}); })"+ js_scrollTo :: Element -> Double -> Double -> IO (JSVal, ScrollResult)+-- | <https://developer.mozilla.org/docs/Web/API/Element/scrollTo MDN Element.scrollTo documentation>+scrollTo :: (MonadDOM m, IsElement self) => self -> Double -> Double -> m ScrollResult+scrollTo self x y = liftDOM (((js_scrollTo ((Types.toElement self)) (x) (y)) >>= checkPromiseResult))++-- | <https://developer.mozilla.org/docs/Web/API/Element/scrollTo MDN Element.scrollTo documentation>+scrollTo_ :: (MonadDOM m, IsElement self) => self -> Double -> Double -> m ()+scrollTo_ self x y = liftDOM (void (((js_scrollTo ((Types.toElement self)) (x) (y)) >>= checkPromiseResult)))++foreign import javascript safe "(($1, $2, $3) => { return $1[\"setAttribute\"]($2, $3); })"+ js_setAttribute :: Element -> JSString -> TrustedTypeOrString -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/Element/setAttribute MDN Element.setAttribute documentation>+setAttribute :: (MonadDOM m, IsElement self, ToJSString qualifiedName, IsTrustedTypeOrString value) => self -> qualifiedName -> value -> m ()+setAttribute self qualifiedName value = liftDOM (void ((js_setAttribute ((Types.toElement self)) (toJSString qualifiedName) (Types.toTrustedTypeOrString value))))++foreign import javascript safe "(($1, $2, $3, $4) => { return $1[\"setAttributeNS\"]($2, $3, $4); })"+ js_setAttributeNS :: Element -> (Nullable JSString) -> JSString -> TrustedTypeOrString -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/Element/setAttributeNS MDN Element.setAttributeNS documentation>+setAttributeNS :: (MonadDOM m, IsElement self, ToJSString namespace, ToJSString qualifiedName, IsTrustedTypeOrString value) => self -> Maybe namespace -> qualifiedName -> value -> m ()+setAttributeNS self namespace qualifiedName value = liftDOM (void ((js_setAttributeNS ((Types.toElement self)) (toMaybeJSString namespace) (toJSString qualifiedName) (Types.toTrustedTypeOrString value))))++foreign import javascript safe "(($1, $2) => { return $1[\"setAttributeNode\"]($2); })"+ js_setAttributeNode :: Element -> Attr -> IO JSVal+-- | <https://developer.mozilla.org/docs/Web/API/Element/setAttributeNode MDN Element.setAttributeNode documentation>+setAttributeNode :: (MonadDOM m, IsElement self) => self -> Attr -> m (Maybe Attr)+setAttributeNode self attr = liftDOM (((js_setAttributeNode ((Types.toElement self)) (attr)) >>= fromJSValUnchecked))++-- | <https://developer.mozilla.org/docs/Web/API/Element/setAttributeNode MDN Element.setAttributeNode documentation>+setAttributeNode_ :: (MonadDOM m, IsElement self) => self -> Attr -> m ()+setAttributeNode_ self attr = liftDOM (void ((js_setAttributeNode ((Types.toElement self)) (attr))))++-- | <https://developer.mozilla.org/docs/Web/API/Element/setAttributeNode MDN Element.setAttributeNode documentation>+setAttributeNodeUnsafe :: (MonadDOM m, IsElement self, HasCallStack) => self -> Attr -> m Attr+setAttributeNodeUnsafe self attr = liftDOM ((((js_setAttributeNode ((Types.toElement self)) (attr)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://developer.mozilla.org/docs/Web/API/Element/setAttributeNode MDN Element.setAttributeNode documentation>+setAttributeNodeUnchecked :: (MonadDOM m, IsElement self) => self -> Attr -> m Attr+setAttributeNodeUnchecked self attr = liftDOM ((pFromJSVal <$> (js_setAttributeNode ((Types.toElement self)) (attr))))++foreign import javascript safe "(($1, $2) => { return $1[\"setAttributeNodeNS\"]($2); })"+ js_setAttributeNodeNS :: Element -> Attr -> IO JSVal+-- | <https://developer.mozilla.org/docs/Web/API/Element/setAttributeNodeNS MDN Element.setAttributeNodeNS documentation>+setAttributeNodeNS :: (MonadDOM m, IsElement self) => self -> Attr -> m (Maybe Attr)+setAttributeNodeNS self attr = liftDOM (((js_setAttributeNodeNS ((Types.toElement self)) (attr)) >>= fromJSValUnchecked))++-- | <https://developer.mozilla.org/docs/Web/API/Element/setAttributeNodeNS MDN Element.setAttributeNodeNS documentation>+setAttributeNodeNS_ :: (MonadDOM m, IsElement self) => self -> Attr -> m ()+setAttributeNodeNS_ self attr = liftDOM (void ((js_setAttributeNodeNS ((Types.toElement self)) (attr))))++-- | <https://developer.mozilla.org/docs/Web/API/Element/setAttributeNodeNS MDN Element.setAttributeNodeNS documentation>+setAttributeNodeNSUnsafe :: (MonadDOM m, IsElement self, HasCallStack) => self -> Attr -> m Attr+setAttributeNodeNSUnsafe self attr = liftDOM ((((js_setAttributeNodeNS ((Types.toElement self)) (attr)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://developer.mozilla.org/docs/Web/API/Element/setAttributeNodeNS MDN Element.setAttributeNodeNS documentation>+setAttributeNodeNSUnchecked :: (MonadDOM m, IsElement self) => self -> Attr -> m Attr+setAttributeNodeNSUnchecked self attr = liftDOM ((pFromJSVal <$> (js_setAttributeNodeNS ((Types.toElement self)) (attr))))++foreign import javascript safe "(($1, $2, $3) => { return $1[\"setHTML\"]($2, $3); })"+ js_setHTML :: Element -> JSString -> JSVal -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/Element/setHTML MDN Element.setHTML documentation>+setHTML :: (MonadDOM m, IsElement self, ToJSString html) => self -> html -> Maybe SetHTMLOptions -> m ()+setHTML self html options = liftDOM (void (((P.maybe (P.return jsUndefined) toJSVal options) >>= \a3' -> js_setHTML ((Types.toElement self)) (toJSString html) a3')))++foreign import javascript safe "(($1, $2, $3) => { return $1[\"setHTMLUnsafe\"]($2, $3); })"+ js_setHTMLUnsafe :: Element -> TrustedHTMLOrString -> JSVal -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/Element/setHTMLUnsafe MDN Element.setHTMLUnsafe documentation>+setHTMLUnsafe :: (MonadDOM m, IsElement self, IsTrustedHTMLOrString html, IsSetHTMLUnsafeOptionsOrTrustedHTMLParserOptions options) => self -> html -> Maybe options -> m ()+setHTMLUnsafe self html options = liftDOM (void (((P.maybe (P.return jsUndefined) toJSVal options) >>= \a3' -> js_setHTMLUnsafe ((Types.toElement self)) (Types.toTrustedHTMLOrString html) a3')))++foreign import javascript safe "(($1, $2) => { return $1[\"setPointerCapture\"]($2); })"+ js_setPointerCapture :: Element -> Int -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/Element/setPointerCapture MDN Element.setPointerCapture documentation>+setPointerCapture :: (MonadDOM m, IsElement self) => self -> Int -> m ()+setPointerCapture self pointerId = liftDOM (void ((js_setPointerCapture ((Types.toElement self)) (pointerId))))++foreign import javascript safe "(($1, $2, $3) => { return $1[\"toggleAttribute\"]($2, $3); })"+ js_toggleAttribute :: Element -> JSString -> JSVal -> IO Bool+-- | <https://developer.mozilla.org/docs/Web/API/Element/toggleAttribute MDN Element.toggleAttribute documentation>+toggleAttribute :: (MonadDOM m, IsElement self, ToJSString qualifiedName) => self -> qualifiedName -> Maybe Bool -> m Bool+toggleAttribute self qualifiedName force = liftDOM (((P.maybe (P.return jsUndefined) toJSVal force) >>= \a3' -> js_toggleAttribute ((Types.toElement self)) (toJSString qualifiedName) a3'))++-- | <https://developer.mozilla.org/docs/Web/API/Element/toggleAttribute MDN Element.toggleAttribute documentation>+toggleAttribute_ :: (MonadDOM m, IsElement self, ToJSString qualifiedName) => self -> qualifiedName -> Maybe Bool -> m ()+toggleAttribute_ self qualifiedName force = liftDOM (void (((P.maybe (P.return jsUndefined) toJSVal force) >>= \a3' -> js_toggleAttribute ((Types.toElement self)) (toJSString qualifiedName) a3')))++foreign import javascript safe "(($1, $2) => { return $1[\"webkitMatchesSelector\"]($2); })"+ js_webkitMatchesSelector :: Element -> JSString -> IO Bool+-- | <https://dom.spec.whatwg.org/#dom-element-webkitmatchesselector Element.webkitMatchesSelector specification>+webkitMatchesSelector :: (MonadDOM m, IsElement self, ToJSString selectors) => self -> selectors -> m Bool+webkitMatchesSelector self selectors = liftDOM ((js_webkitMatchesSelector ((Types.toElement self)) (toJSString selectors)))++-- | <https://dom.spec.whatwg.org/#dom-element-webkitmatchesselector Element.webkitMatchesSelector specification>+webkitMatchesSelector_ :: (MonadDOM m, IsElement self, ToJSString selectors) => self -> selectors -> m ()+webkitMatchesSelector_ self selectors = liftDOM (void ((js_webkitMatchesSelector ((Types.toElement self)) (toJSString selectors))))++foreign import javascript unsafe "(($1) => { return $1[\"namespaceURI\"]; })"+ js_getNamespaceURI :: Element -> IO JSVal+-- | <https://developer.mozilla.org/docs/Web/API/Element/namespaceURI MDN Element.namespaceURI documentation>+getNamespaceURI :: (MonadDOM m, IsElement self, FromJSString result) => self -> m (Maybe result)+getNamespaceURI self = liftDOM (((fromMaybeJSString . Nullable) <$> (js_getNamespaceURI ((Types.toElement self)))))++-- | <https://developer.mozilla.org/docs/Web/API/Element/namespaceURI MDN Element.namespaceURI documentation>+getNamespaceURIUnsafe :: (MonadDOM m, IsElement self, HasCallStack, FromJSString result) => self -> m result+getNamespaceURIUnsafe self = liftDOM ((((fromMaybeJSString . Nullable) <$> (js_getNamespaceURI ((Types.toElement self)))) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://developer.mozilla.org/docs/Web/API/Element/namespaceURI MDN Element.namespaceURI documentation>+getNamespaceURIUnchecked :: (MonadDOM m, IsElement self, FromJSString result) => self -> m result+getNamespaceURIUnchecked self = liftDOM ((pFromJSVal <$> (js_getNamespaceURI ((Types.toElement self)))))++foreign import javascript unsafe "(($1) => { return $1[\"prefix\"]; })"+ js_getPrefix :: Element -> IO JSVal+-- | <https://developer.mozilla.org/docs/Web/API/Element/prefix MDN Element.prefix documentation>+getPrefix :: (MonadDOM m, IsElement self, FromJSString result) => self -> m (Maybe result)+getPrefix self = liftDOM (((fromMaybeJSString . Nullable) <$> (js_getPrefix ((Types.toElement self)))))++-- | <https://developer.mozilla.org/docs/Web/API/Element/prefix MDN Element.prefix documentation>+getPrefixUnsafe :: (MonadDOM m, IsElement self, HasCallStack, FromJSString result) => self -> m result+getPrefixUnsafe self = liftDOM ((((fromMaybeJSString . Nullable) <$> (js_getPrefix ((Types.toElement self)))) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://developer.mozilla.org/docs/Web/API/Element/prefix MDN Element.prefix documentation>+getPrefixUnchecked :: (MonadDOM m, IsElement self, FromJSString result) => self -> m result+getPrefixUnchecked self = liftDOM ((pFromJSVal <$> (js_getPrefix ((Types.toElement self)))))++foreign import javascript unsafe "(($1) => { return $1[\"localName\"]; })"+ js_getLocalName :: Element -> IO JSString+-- | <https://developer.mozilla.org/docs/Web/API/Element/localName MDN Element.localName documentation>+getLocalName :: (MonadDOM m, IsElement self, FromJSString result) => self -> m result+getLocalName self = liftDOM ((fromJSString <$> (js_getLocalName ((Types.toElement self)))))++foreign import javascript unsafe "(($1) => { return $1[\"tagName\"]; })"+ js_getTagName :: Element -> IO JSString+-- | <https://developer.mozilla.org/docs/Web/API/Element/tagName MDN Element.tagName documentation>+getTagName :: (MonadDOM m, IsElement self, FromJSString result) => self -> m result+getTagName self = liftDOM ((fromJSString <$> (js_getTagName ((Types.toElement self)))))++foreign import javascript safe "(($1, $2) => { $1[\"id\"] = $2; })"+ js_setId :: Element -> JSString -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/Element/id MDN Element.id documentation>+setId :: (MonadDOM m, IsElement self, ToJSString val) => self -> val -> m ()+setId self val = liftDOM (void ((js_setId ((Types.toElement self)) (toJSString val))))++foreign import javascript unsafe "(($1) => { return $1[\"id\"]; })"+ js_getId :: Element -> IO JSString+-- | <https://developer.mozilla.org/docs/Web/API/Element/id MDN Element.id documentation>+getId :: (MonadDOM m, IsElement self, FromJSString result) => self -> m result+getId self = liftDOM ((fromJSString <$> (js_getId ((Types.toElement self)))))++foreign import javascript safe "(($1, $2) => { $1[\"className\"] = $2; })"+ js_setClassName :: Element -> JSString -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/Element/className MDN Element.className documentation>+setClassName :: (MonadDOM m, IsElement self, ToJSString val) => self -> val -> m ()+setClassName self val = liftDOM (void ((js_setClassName ((Types.toElement self)) (toJSString val))))++foreign import javascript unsafe "(($1) => { return $1[\"className\"]; })"+ js_getClassName :: Element -> IO JSString+-- | <https://developer.mozilla.org/docs/Web/API/Element/className MDN Element.className documentation>+getClassName :: (MonadDOM m, IsElement self, FromJSString result) => self -> m result+getClassName self = liftDOM ((fromJSString <$> (js_getClassName ((Types.toElement self)))))++foreign import javascript unsafe "(($1) => { return $1[\"classList\"]; })"+ js_getClassList :: Element -> IO DOMTokenList+-- | <https://developer.mozilla.org/docs/Web/API/Element/classList MDN Element.classList documentation>+getClassList :: (MonadDOM m, IsElement self) => self -> m DOMTokenList+getClassList self = liftDOM ((js_getClassList ((Types.toElement self))))++foreign import javascript safe "(($1, $2) => { $1[\"slot\"] = $2; })"+ js_setSlot :: Element -> JSString -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/Element/slot MDN Element.slot documentation>+setSlot :: (MonadDOM m, IsElement self, ToJSString val) => self -> val -> m ()+setSlot self val = liftDOM (void ((js_setSlot ((Types.toElement self)) (toJSString val))))++foreign import javascript unsafe "(($1) => { return $1[\"slot\"]; })"+ js_getSlot :: Element -> IO JSString+-- | <https://developer.mozilla.org/docs/Web/API/Element/slot MDN Element.slot documentation>+getSlot :: (MonadDOM m, IsElement self, FromJSString result) => self -> m result+getSlot self = liftDOM ((fromJSString <$> (js_getSlot ((Types.toElement self)))))++foreign import javascript unsafe "(($1) => { return $1[\"attributes\"]; })"+ js_getAttributes :: Element -> IO NamedNodeMap+-- | <https://developer.mozilla.org/docs/Web/API/Element/attributes MDN Element.attributes documentation>+getAttributes :: (MonadDOM m, IsElement self) => self -> m NamedNodeMap+getAttributes self = liftDOM ((js_getAttributes ((Types.toElement self))))++foreign import javascript unsafe "(($1) => { return $1[\"shadowRoot\"]; })"+ js_getShadowRoot :: Element -> IO JSVal+-- | <https://developer.mozilla.org/docs/Web/API/Element/shadowRoot MDN Element.shadowRoot documentation>+getShadowRoot :: (MonadDOM m, IsElement self) => self -> m (Maybe ShadowRoot)+getShadowRoot self = liftDOM (((js_getShadowRoot ((Types.toElement self))) >>= fromJSValUnchecked))++-- | <https://developer.mozilla.org/docs/Web/API/Element/shadowRoot MDN Element.shadowRoot documentation>+getShadowRootUnsafe :: (MonadDOM m, IsElement self, HasCallStack) => self -> m ShadowRoot+getShadowRootUnsafe self = liftDOM ((((js_getShadowRoot ((Types.toElement self))) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://developer.mozilla.org/docs/Web/API/Element/shadowRoot MDN Element.shadowRoot documentation>+getShadowRootUnchecked :: (MonadDOM m, IsElement self) => self -> m ShadowRoot+getShadowRootUnchecked self = liftDOM ((pFromJSVal <$> (js_getShadowRoot ((Types.toElement self)))))++foreign import javascript unsafe "(($1) => { return $1[\"customElementRegistry\"]; })"+ js_getCustomElementRegistry :: Element -> IO JSVal+-- | <https://developer.mozilla.org/docs/Web/API/Element/customElementRegistry MDN Element.customElementRegistry documentation>+getCustomElementRegistry :: (MonadDOM m, IsElement self) => self -> m (Maybe CustomElementRegistry)+getCustomElementRegistry self = liftDOM (((js_getCustomElementRegistry ((Types.toElement self))) >>= fromJSValUnchecked))++-- | <https://developer.mozilla.org/docs/Web/API/Element/customElementRegistry MDN Element.customElementRegistry documentation>+getCustomElementRegistryUnsafe :: (MonadDOM m, IsElement self, HasCallStack) => self -> m CustomElementRegistry+getCustomElementRegistryUnsafe self = liftDOM ((((js_getCustomElementRegistry ((Types.toElement self))) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://developer.mozilla.org/docs/Web/API/Element/customElementRegistry MDN Element.customElementRegistry documentation>+getCustomElementRegistryUnchecked :: (MonadDOM m, IsElement self) => self -> m CustomElementRegistry+getCustomElementRegistryUnchecked self = liftDOM ((pFromJSVal <$> (js_getCustomElementRegistry ((Types.toElement self)))))++foreign import javascript unsafe "(($1) => { return $1[\"part\"]; })"+ js_getPart :: Element -> IO DOMTokenList+-- | <https://developer.mozilla.org/docs/Web/API/Element/part MDN Element.part documentation>+getPart :: (MonadDOM m, IsElement self) => self -> m DOMTokenList+getPart self = liftDOM ((js_getPart ((Types.toElement self))))++foreign import javascript safe "(($1, $2) => { $1[\"scrollTop\"] = $2; })"+ js_setScrollTop :: Element -> Double -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/Element/scrollTop MDN Element.scrollTop documentation>+setScrollTop :: (MonadDOM m, IsElement self) => self -> Double -> m ()+setScrollTop self val = liftDOM (void ((js_setScrollTop ((Types.toElement self)) (val))))++foreign import javascript unsafe "(($1) => { return $1[\"scrollTop\"]; })"+ js_getScrollTop :: Element -> IO Double+-- | <https://developer.mozilla.org/docs/Web/API/Element/scrollTop MDN Element.scrollTop documentation>+getScrollTop :: (MonadDOM m, IsElement self) => self -> m Double+getScrollTop self = liftDOM ((js_getScrollTop ((Types.toElement self))))++foreign import javascript safe "(($1, $2) => { $1[\"scrollLeft\"] = $2; })"+ js_setScrollLeft :: Element -> Double -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/Element/scrollLeft MDN Element.scrollLeft documentation>+setScrollLeft :: (MonadDOM m, IsElement self) => self -> Double -> m ()+setScrollLeft self val = liftDOM (void ((js_setScrollLeft ((Types.toElement self)) (val))))++foreign import javascript unsafe "(($1) => { return $1[\"scrollLeft\"]; })"+ js_getScrollLeft :: Element -> IO Double+-- | <https://developer.mozilla.org/docs/Web/API/Element/scrollLeft MDN Element.scrollLeft documentation>+getScrollLeft :: (MonadDOM m, IsElement self) => self -> m Double+getScrollLeft self = liftDOM ((js_getScrollLeft ((Types.toElement self))))++foreign import javascript unsafe "(($1) => { return $1[\"scrollWidth\"]; })"+ js_getScrollWidth :: Element -> IO Int+-- | <https://developer.mozilla.org/docs/Web/API/Element/scrollWidth MDN Element.scrollWidth documentation>+getScrollWidth :: (MonadDOM m, IsElement self) => self -> m Int+getScrollWidth self = liftDOM ((js_getScrollWidth ((Types.toElement self))))++foreign import javascript unsafe "(($1) => { return $1[\"scrollHeight\"]; })"+ js_getScrollHeight :: Element -> IO Int+-- | <https://developer.mozilla.org/docs/Web/API/Element/scrollHeight MDN Element.scrollHeight documentation>+getScrollHeight :: (MonadDOM m, IsElement self) => self -> m Int+getScrollHeight self = liftDOM ((js_getScrollHeight ((Types.toElement self))))++foreign import javascript unsafe "(($1) => { return $1[\"clientTop\"]; })"+ js_getClientTop :: Element -> IO Int+-- | <https://developer.mozilla.org/docs/Web/API/Element/clientTop MDN Element.clientTop documentation>+getClientTop :: (MonadDOM m, IsElement self) => self -> m Int+getClientTop self = liftDOM ((js_getClientTop ((Types.toElement self))))++foreign import javascript unsafe "(($1) => { return $1[\"clientLeft\"]; })"+ js_getClientLeft :: Element -> IO Int+-- | <https://developer.mozilla.org/docs/Web/API/Element/clientLeft MDN Element.clientLeft documentation>+getClientLeft :: (MonadDOM m, IsElement self) => self -> m Int+getClientLeft self = liftDOM ((js_getClientLeft ((Types.toElement self))))++foreign import javascript unsafe "(($1) => { return $1[\"clientWidth\"]; })"+ js_getClientWidth :: Element -> IO Int+-- | <https://developer.mozilla.org/docs/Web/API/Element/clientWidth MDN Element.clientWidth documentation>+getClientWidth :: (MonadDOM m, IsElement self) => self -> m Int+getClientWidth self = liftDOM ((js_getClientWidth ((Types.toElement self))))++foreign import javascript unsafe "(($1) => { return $1[\"clientHeight\"]; })"+ js_getClientHeight :: Element -> IO Int+-- | <https://developer.mozilla.org/docs/Web/API/Element/clientHeight MDN Element.clientHeight documentation>+getClientHeight :: (MonadDOM m, IsElement self) => self -> m Int+getClientHeight self = liftDOM ((js_getClientHeight ((Types.toElement self))))++foreign import javascript unsafe "(($1) => { return $1[\"currentCSSZoom\"]; })"+ js_getCurrentCSSZoom :: Element -> IO Double+-- | <https://developer.mozilla.org/docs/Web/API/Element/currentCSSZoom MDN Element.currentCSSZoom documentation>+getCurrentCSSZoom :: (MonadDOM m, IsElement self) => self -> m Double+getCurrentCSSZoom self = liftDOM ((js_getCurrentCSSZoom ((Types.toElement self))))++foreign import javascript safe "(($1, $2) => { $1[\"innerHTML\"] = $2; })"+ js_setInnerHTML :: Element -> TrustedHTMLOrString -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/Element/innerHTML MDN Element.innerHTML documentation>+setInnerHTML :: (MonadDOM m, IsElement self, IsTrustedHTMLOrString val) => self -> val -> m ()+setInnerHTML self val = liftDOM (void ((js_setInnerHTML ((Types.toElement self)) (Types.toTrustedHTMLOrString val))))++foreign import javascript unsafe "(($1) => { return $1[\"innerHTML\"]; })"+ js_getInnerHTML :: Element -> IO TrustedHTMLOrString+-- | <https://developer.mozilla.org/docs/Web/API/Element/innerHTML MDN Element.innerHTML documentation>+getInnerHTML :: (MonadDOM m, IsElement self) => self -> m TrustedHTMLOrString+getInnerHTML self = liftDOM ((js_getInnerHTML ((Types.toElement self))))++foreign import javascript safe "(($1, $2) => { $1[\"outerHTML\"] = $2; })"+ js_setOuterHTML :: Element -> TrustedHTMLOrString -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/Element/outerHTML MDN Element.outerHTML documentation>+setOuterHTML :: (MonadDOM m, IsElement self, IsTrustedHTMLOrString val) => self -> val -> m ()+setOuterHTML self val = liftDOM (void ((js_setOuterHTML ((Types.toElement self)) (Types.toTrustedHTMLOrString val))))++foreign import javascript unsafe "(($1) => { return $1[\"outerHTML\"]; })"+ js_getOuterHTML :: Element -> IO TrustedHTMLOrString+-- | <https://developer.mozilla.org/docs/Web/API/Element/outerHTML MDN Element.outerHTML documentation>+getOuterHTML :: (MonadDOM m, IsElement self) => self -> m TrustedHTMLOrString+getOuterHTML self = liftDOM ((js_getOuterHTML ((Types.toElement self))))++-- | <https://fullscreen.spec.whatwg.org/#handler-document-onfullscreenchange fullscreenchange event>+fullscreenchange :: (IsElement self, IsEventTarget self) => EventName self Event+fullscreenchange = unsafeEventName (toJSString "fullscreenchange")++-- | <https://fullscreen.spec.whatwg.org/#handler-document-onfullscreenerror fullscreenerror event>+fullscreenerror :: (IsElement self, IsEventTarget self) => EventName self Event+fullscreenerror = unsafeEventName (toJSString "fullscreenerror")++-- | <https://w3c.github.io/uievents/#compositionend compositionend event>+compositionend :: (IsElement self, IsEventTarget self) => EventName self CompositionEvent+compositionend = unsafeEventName (toJSString "compositionend")++-- | <https://w3c.github.io/uievents/#compositionstart compositionstart event>+compositionstart :: (IsElement self, IsEventTarget self) => EventName self CompositionEvent+compositionstart = unsafeEventName (toJSString "compositionstart")++-- | <https://w3c.github.io/uievents/#compositionupdate compositionupdate event>+compositionupdate :: (IsElement self, IsEventTarget self) => EventName self CompositionEvent+compositionupdate = unsafeEventName (toJSString "compositionupdate")++-- | <https://drafts.csswg.org/css-contain-2/#eventdef-element-contentvisibilityautostatechange contentvisibilityautostatechange event>+contentvisibilityautostatechange :: (IsElement self, IsEventTarget self) => EventName self ContentVisibilityAutoStateChangeEvent+contentvisibilityautostatechange = unsafeEventName (toJSString "contentvisibilityautostatechange")++-- | <https://w3c.github.io/uievents/#domactivate DOMActivate event>+domActivate :: (IsElement self, IsEventTarget self) => EventName self UIEvent+domActivate = unsafeEventName (toJSString "DOMActivate")++-- | <https://w3c.github.io/uievents/#domfocusin DOMFocusIn event>+domFocusIn :: (IsElement self, IsEventTarget self) => EventName self FocusEvent+domFocusIn = unsafeEventName (toJSString "DOMFocusIn")++-- | <https://w3c.github.io/uievents/#domfocusout DOMFocusOut event>+domFocusOut :: (IsElement self, IsEventTarget self) => EventName self FocusEvent+domFocusOut = unsafeEventName (toJSString "DOMFocusOut")++-- | <https://w3c.github.io/uievents/#focusin focusin event>+focusin :: (IsElement self, IsEventTarget self) => EventName self FocusEvent+focusin = unsafeEventName (toJSString "focusin")++-- | <https://w3c.github.io/uievents/#focusout focusout event>+focusout :: (IsElement self, IsEventTarget self) => EventName self FocusEvent+focusout = unsafeEventName (toJSString "focusout")++-- | <https://w3c.github.io/uievents/#textinput textInput event>+textInput :: (IsElement self, IsEventTarget self) => EventName self TextEvent+textInput = unsafeEventName (toJSString "textInput")
@@ -1,37 +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.ElementCSSInlineStyle- (js_getStyle, getStyle, ElementCSSInlineStyle(..),- gTypeElementCSSInlineStyle, IsElementCSSInlineStyle,- toElementCSSInlineStyle)+ (js_getStyle, js_getAttributeStyleMap, getStyle, getAttributeStyleMap, ElementCSSInlineStyle(..), gTypeElementCSSInlineStyle, IsElementCSSInlineStyle, toElementCSSInlineStyle) where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, 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 ::- ElementCSSInlineStyle -> IO CSSStyleDeclaration --- | <https://developer.mozilla.org/en-US/docs/Web/API/ElementCSSInlineStyle.style Mozilla ElementCSSInlineStyle.style documentation> -getStyle ::- (MonadIO m, IsElementCSSInlineStyle self) =>- self -> m CSSStyleDeclaration-getStyle self = liftIO (js_getStyle (toElementCSSInlineStyle self))+foreign import javascript unsafe "(($1) => { return $1[\"style\"]; })"+ js_getStyle :: ElementCSSInlineStyle -> IO CSSStyleProperties+-- | <https://developer.mozilla.org/docs/Web/API/HTMLElement/style MDN ElementCSSInlineStyle.style documentation>+getStyle :: (MonadDOM m, IsElementCSSInlineStyle self) => self -> m CSSStyleProperties+getStyle self = liftDOM ((js_getStyle ((Types.toElementCSSInlineStyle self))))++foreign import javascript unsafe "(($1) => { return $1[\"attributeStyleMap\"]; })"+ js_getAttributeStyleMap :: ElementCSSInlineStyle -> IO StylePropertyMap+-- | <https://developer.mozilla.org/docs/Web/API/HTMLElement/attributeStyleMap MDN ElementCSSInlineStyle.attributeStyleMap documentation>+getAttributeStyleMap :: (MonadDOM m, IsElementCSSInlineStyle self) => self -> m StylePropertyMap+getAttributeStyleMap self = liftDOM ((js_getAttributeStyleMap ((Types.toElementCSSInlineStyle self))))
@@ -0,0 +1,59 @@+{-# 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.ElementContentEditable+ (js_setContentEditable, js_getContentEditable, js_setEnterKeyHint, js_getEnterKeyHint, js_getIsContentEditable, js_setInputMode, js_getInputMode, setContentEditable, getContentEditable, setEnterKeyHint, getEnterKeyHint, getIsContentEditable, setInputMode, getInputMode, ElementContentEditable(..), gTypeElementContentEditable, IsElementContentEditable, toElementContentEditable)+ 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[\"contentEditable\"] = $2; })"+ js_setContentEditable :: ElementContentEditable -> JSString -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/HTMLElement/contentEditable MDN ElementContentEditable.contentEditable documentation>+setContentEditable :: (MonadDOM m, IsElementContentEditable self, ToJSString val) => self -> val -> m ()+setContentEditable self val = liftDOM (void ((js_setContentEditable ((Types.toElementContentEditable self)) (toJSString val))))++foreign import javascript unsafe "(($1) => { return $1[\"contentEditable\"]; })"+ js_getContentEditable :: ElementContentEditable -> IO JSString+-- | <https://developer.mozilla.org/docs/Web/API/HTMLElement/contentEditable MDN ElementContentEditable.contentEditable documentation>+getContentEditable :: (MonadDOM m, IsElementContentEditable self, FromJSString result) => self -> m result+getContentEditable self = liftDOM ((fromJSString <$> (js_getContentEditable ((Types.toElementContentEditable self)))))++foreign import javascript safe "(($1, $2) => { $1[\"enterKeyHint\"] = $2; })"+ js_setEnterKeyHint :: ElementContentEditable -> JSString -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/HTMLElement/enterKeyHint MDN ElementContentEditable.enterKeyHint documentation>+setEnterKeyHint :: (MonadDOM m, IsElementContentEditable self, ToJSString val) => self -> val -> m ()+setEnterKeyHint self val = liftDOM (void ((js_setEnterKeyHint ((Types.toElementContentEditable self)) (toJSString val))))++foreign import javascript unsafe "(($1) => { return $1[\"enterKeyHint\"]; })"+ js_getEnterKeyHint :: ElementContentEditable -> IO JSString+-- | <https://developer.mozilla.org/docs/Web/API/HTMLElement/enterKeyHint MDN ElementContentEditable.enterKeyHint documentation>+getEnterKeyHint :: (MonadDOM m, IsElementContentEditable self, FromJSString result) => self -> m result+getEnterKeyHint self = liftDOM ((fromJSString <$> (js_getEnterKeyHint ((Types.toElementContentEditable self)))))++foreign import javascript unsafe "(($1) => { return $1[\"isContentEditable\"]; })"+ js_getIsContentEditable :: ElementContentEditable -> IO Bool+-- | <https://developer.mozilla.org/docs/Web/API/HTMLElement/isContentEditable MDN ElementContentEditable.isContentEditable documentation>+getIsContentEditable :: (MonadDOM m, IsElementContentEditable self) => self -> m Bool+getIsContentEditable self = liftDOM ((js_getIsContentEditable ((Types.toElementContentEditable self))))++foreign import javascript safe "(($1, $2) => { $1[\"inputMode\"] = $2; })"+ js_setInputMode :: ElementContentEditable -> JSString -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/HTMLElement/inputMode MDN ElementContentEditable.inputMode documentation>+setInputMode :: (MonadDOM m, IsElementContentEditable self, ToJSString val) => self -> val -> m ()+setInputMode self val = liftDOM (void ((js_setInputMode ((Types.toElementContentEditable self)) (toJSString val))))++foreign import javascript unsafe "(($1) => { return $1[\"inputMode\"]; })"+ js_getInputMode :: ElementContentEditable -> IO JSString+-- | <https://developer.mozilla.org/docs/Web/API/HTMLElement/inputMode MDN ElementContentEditable.inputMode documentation>+getInputMode :: (MonadDOM m, IsElementContentEditable self, FromJSString result) => self -> m result+getInputMode self = liftDOM ((fromJSString <$> (js_getInputMode ((Types.toElementContentEditable self)))))
@@ -0,0 +1,63 @@+{-# 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.ElementCreationOptions+ (js_newElementCreationOptions, js_setCustomElementRegistry, js_getCustomElementRegistry, js_setIs, js_getIs, newElementCreationOptions, setCustomElementRegistry, getCustomElementRegistry, getCustomElementRegistryUnsafe, getCustomElementRegistryUnchecked, setIs, getIs, getIsUnsafe, getIsUnchecked, ElementCreationOptions(..), gTypeElementCreationOptions)+ 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_newElementCreationOptions :: IO ElementCreationOptions+-- | <https://dom.spec.whatwg.org/#dictdef-elementcreationoptions ElementCreationOptions specification>+newElementCreationOptions :: (MonadDOM m) => m ElementCreationOptions+newElementCreationOptions = liftDOM ((js_newElementCreationOptions))++foreign import javascript safe "(($1, $2) => { $1[\"customElementRegistry\"] = $2; })"+ js_setCustomElementRegistry :: ElementCreationOptions -> JSVal -> IO ()+-- | <https://dom.spec.whatwg.org/#dom-elementcreationoptions-customelementregistry ElementCreationOptions.customElementRegistry specification>+setCustomElementRegistry :: (MonadDOM m) => ElementCreationOptions -> Maybe CustomElementRegistry -> m ()+setCustomElementRegistry self val = liftDOM (void (((toJSVal val) >>= \a2' -> js_setCustomElementRegistry (self) a2')))++foreign import javascript unsafe "(($1) => { return $1[\"customElementRegistry\"]; })"+ js_getCustomElementRegistry :: ElementCreationOptions -> IO JSVal+-- | <https://dom.spec.whatwg.org/#dom-elementcreationoptions-customelementregistry ElementCreationOptions.customElementRegistry specification>+getCustomElementRegistry :: (MonadDOM m) => ElementCreationOptions -> m (Maybe CustomElementRegistry)+getCustomElementRegistry self = liftDOM (((js_getCustomElementRegistry (self)) >>= fromJSValUnchecked))++-- | <https://dom.spec.whatwg.org/#dom-elementcreationoptions-customelementregistry ElementCreationOptions.customElementRegistry specification>+getCustomElementRegistryUnsafe :: (MonadDOM m, HasCallStack) => ElementCreationOptions -> m CustomElementRegistry+getCustomElementRegistryUnsafe self = liftDOM ((((js_getCustomElementRegistry (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://dom.spec.whatwg.org/#dom-elementcreationoptions-customelementregistry ElementCreationOptions.customElementRegistry specification>+getCustomElementRegistryUnchecked :: (MonadDOM m) => ElementCreationOptions -> m CustomElementRegistry+getCustomElementRegistryUnchecked self = liftDOM ((pFromJSVal <$> (js_getCustomElementRegistry (self))))++foreign import javascript safe "(($1, $2) => { $1[\"is\"] = $2; })"+ js_setIs :: ElementCreationOptions -> JSString -> IO ()+-- | <https://dom.spec.whatwg.org/#dom-elementcreationoptions-is ElementCreationOptions.is specification>+setIs :: (MonadDOM m, ToJSString val) => ElementCreationOptions -> val -> m ()+setIs self val = liftDOM (void ((js_setIs (self) (toJSString val))))++foreign import javascript unsafe "(($1) => { return $1[\"is\"]; })"+ js_getIs :: ElementCreationOptions -> IO JSVal+-- | <https://dom.spec.whatwg.org/#dom-elementcreationoptions-is ElementCreationOptions.is specification>+getIs :: (MonadDOM m, FromJSString result) => ElementCreationOptions -> m (Maybe result)+getIs self = liftDOM (((fromMaybeJSString . Nullable) <$> (js_getIs (self))))++-- | <https://dom.spec.whatwg.org/#dom-elementcreationoptions-is ElementCreationOptions.is specification>+getIsUnsafe :: (MonadDOM m, HasCallStack, FromJSString result) => ElementCreationOptions -> m result+getIsUnsafe self = liftDOM ((((fromMaybeJSString . Nullable) <$> (js_getIs (self))) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://dom.spec.whatwg.org/#dom-elementcreationoptions-is ElementCreationOptions.is specification>+getIsUnchecked :: (MonadDOM m, FromJSString result) => ElementCreationOptions -> m result+getIsUnchecked self = liftDOM ((pFromJSVal <$> (js_getIs (self))))
@@ -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.ElementDefinitionOptions+ (js_newElementDefinitionOptions, js_setExtends, js_getExtends, newElementDefinitionOptions, setExtends, getExtends, getExtendsUnsafe, getExtendsUnchecked, ElementDefinitionOptions(..), gTypeElementDefinitionOptions)+ 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_newElementDefinitionOptions :: IO ElementDefinitionOptions+-- | <https://html.spec.whatwg.org/multipage/custom-elements.html#elementdefinitionoptions ElementDefinitionOptions specification>+newElementDefinitionOptions :: (MonadDOM m) => m ElementDefinitionOptions+newElementDefinitionOptions = liftDOM ((js_newElementDefinitionOptions))++foreign import javascript safe "(($1, $2) => { $1[\"extends\"] = $2; })"+ js_setExtends :: ElementDefinitionOptions -> JSString -> IO ()+-- | <https://html.spec.whatwg.org/multipage/custom-elements.html#dom-elementdefinitionoptions-extends ElementDefinitionOptions.extends specification>+setExtends :: (MonadDOM m, ToJSString val) => ElementDefinitionOptions -> val -> m ()+setExtends self val = liftDOM (void ((js_setExtends (self) (toJSString val))))++foreign import javascript unsafe "(($1) => { return $1[\"extends\"]; })"+ js_getExtends :: ElementDefinitionOptions -> IO JSVal+-- | <https://html.spec.whatwg.org/multipage/custom-elements.html#dom-elementdefinitionoptions-extends ElementDefinitionOptions.extends specification>+getExtends :: (MonadDOM m, FromJSString result) => ElementDefinitionOptions -> m (Maybe result)+getExtends self = liftDOM (((fromMaybeJSString . Nullable) <$> (js_getExtends (self))))++-- | <https://html.spec.whatwg.org/multipage/custom-elements.html#dom-elementdefinitionoptions-extends ElementDefinitionOptions.extends specification>+getExtendsUnsafe :: (MonadDOM m, HasCallStack, FromJSString result) => ElementDefinitionOptions -> m result+getExtendsUnsafe self = liftDOM ((((fromMaybeJSString . Nullable) <$> (js_getExtends (self))) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://html.spec.whatwg.org/multipage/custom-elements.html#dom-elementdefinitionoptions-extends ElementDefinitionOptions.extends specification>+getExtendsUnchecked :: (MonadDOM m, FromJSString result) => ElementDefinitionOptions -> m result+getExtendsUnchecked self = liftDOM ((pFromJSVal <$> (js_getExtends (self))))
@@ -0,0 +1,107 @@+{-# 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.ElementInternals+ (js_checkValidity, js_reportValidity, js_setFormValue, js_setValidity, js_getShadowRoot, js_getForm, js_getWillValidate, js_getValidity, js_getValidationMessage, js_getLabels, js_getStates, checkValidity, checkValidity_, reportValidity, reportValidity_, setFormValue, setValidity, getShadowRoot, getShadowRootUnsafe, getShadowRootUnchecked, getForm, getFormUnsafe, getFormUnchecked, getWillValidate, getValidity, getValidationMessage, getLabels, getStates, ElementInternals(..), gTypeElementInternals)+ 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[\"checkValidity\"](); })"+ js_checkValidity :: ElementInternals -> IO Bool+-- | <https://developer.mozilla.org/docs/Web/API/ElementInternals/checkValidity MDN ElementInternals.checkValidity documentation>+checkValidity :: (MonadDOM m) => ElementInternals -> m Bool+checkValidity self = liftDOM ((js_checkValidity (self)))++-- | <https://developer.mozilla.org/docs/Web/API/ElementInternals/checkValidity MDN ElementInternals.checkValidity documentation>+checkValidity_ :: (MonadDOM m) => ElementInternals -> m ()+checkValidity_ self = liftDOM (void ((js_checkValidity (self))))++foreign import javascript safe "(($1) => { return $1[\"reportValidity\"](); })"+ js_reportValidity :: ElementInternals -> IO Bool+-- | <https://developer.mozilla.org/docs/Web/API/ElementInternals/reportValidity MDN ElementInternals.reportValidity documentation>+reportValidity :: (MonadDOM m) => ElementInternals -> m Bool+reportValidity self = liftDOM ((js_reportValidity (self)))++-- | <https://developer.mozilla.org/docs/Web/API/ElementInternals/reportValidity MDN ElementInternals.reportValidity documentation>+reportValidity_ :: (MonadDOM m) => ElementInternals -> m ()+reportValidity_ self = liftDOM (void ((js_reportValidity (self))))++foreign import javascript safe "(($1, $2, $3) => { return $1[\"setFormValue\"]($2, $3); })"+ js_setFormValue :: ElementInternals -> JSVal -> JSVal -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/ElementInternals/setFormValue MDN ElementInternals.setFormValue documentation>+setFormValue :: (MonadDOM m, IsFileOrStringOrFormData value, IsFileOrStringOrFormData state) => ElementInternals -> Maybe value -> Maybe state -> m ()+setFormValue self value state = liftDOM (void (((toJSVal value) >>= \a2' -> (toJSVal state) >>= \a3' -> js_setFormValue (self) a2' a3')))++foreign import javascript safe "(($1, $2, $3, $4) => { return $1[\"setValidity\"]($2, $3, $4); })"+ js_setValidity :: ElementInternals -> JSVal -> (Optional JSString) -> JSVal -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/ElementInternals/setValidity MDN ElementInternals.setValidity documentation>+setValidity :: (MonadDOM m, ToJSString message, IsHTMLElement anchor) => ElementInternals -> Maybe ValidityStateFlags -> Maybe message -> Maybe anchor -> m ()+setValidity self flags message anchor = liftDOM (void (((P.maybe (P.return jsUndefined) toJSVal flags) >>= \a2' -> (P.maybe (P.return jsUndefined) toJSVal anchor) >>= \a4' -> js_setValidity (self) a2' (toOptionalJSString message) a4')))++foreign import javascript unsafe "(($1) => { return $1[\"shadowRoot\"]; })"+ js_getShadowRoot :: ElementInternals -> IO JSVal+-- | <https://developer.mozilla.org/docs/Web/API/ElementInternals/shadowRoot MDN ElementInternals.shadowRoot documentation>+getShadowRoot :: (MonadDOM m) => ElementInternals -> m (Maybe ShadowRoot)+getShadowRoot self = liftDOM (((js_getShadowRoot (self)) >>= fromJSValUnchecked))++-- | <https://developer.mozilla.org/docs/Web/API/ElementInternals/shadowRoot MDN ElementInternals.shadowRoot documentation>+getShadowRootUnsafe :: (MonadDOM m, HasCallStack) => ElementInternals -> m ShadowRoot+getShadowRootUnsafe self = liftDOM ((((js_getShadowRoot (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://developer.mozilla.org/docs/Web/API/ElementInternals/shadowRoot MDN ElementInternals.shadowRoot documentation>+getShadowRootUnchecked :: (MonadDOM m) => ElementInternals -> m ShadowRoot+getShadowRootUnchecked self = liftDOM ((pFromJSVal <$> (js_getShadowRoot (self))))++foreign import javascript unsafe "(($1) => { return $1[\"form\"]; })"+ js_getForm :: ElementInternals -> IO JSVal+-- | <https://developer.mozilla.org/docs/Web/API/ElementInternals/form MDN ElementInternals.form documentation>+getForm :: (MonadDOM m) => ElementInternals -> m (Maybe HTMLFormElement)+getForm self = liftDOM (((js_getForm (self)) >>= fromJSValUnchecked))++-- | <https://developer.mozilla.org/docs/Web/API/ElementInternals/form MDN ElementInternals.form documentation>+getFormUnsafe :: (MonadDOM m, HasCallStack) => ElementInternals -> m HTMLFormElement+getFormUnsafe self = liftDOM ((((js_getForm (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://developer.mozilla.org/docs/Web/API/ElementInternals/form MDN ElementInternals.form documentation>+getFormUnchecked :: (MonadDOM m) => ElementInternals -> m HTMLFormElement+getFormUnchecked self = liftDOM ((pFromJSVal <$> (js_getForm (self))))++foreign import javascript unsafe "(($1) => { return $1[\"willValidate\"]; })"+ js_getWillValidate :: ElementInternals -> IO Bool+-- | <https://developer.mozilla.org/docs/Web/API/ElementInternals/willValidate MDN ElementInternals.willValidate documentation>+getWillValidate :: (MonadDOM m) => ElementInternals -> m Bool+getWillValidate self = liftDOM ((js_getWillValidate (self)))++foreign import javascript unsafe "(($1) => { return $1[\"validity\"]; })"+ js_getValidity :: ElementInternals -> IO ValidityState+-- | <https://developer.mozilla.org/docs/Web/API/ElementInternals/validity MDN ElementInternals.validity documentation>+getValidity :: (MonadDOM m) => ElementInternals -> m ValidityState+getValidity self = liftDOM ((js_getValidity (self)))++foreign import javascript unsafe "(($1) => { return $1[\"validationMessage\"]; })"+ js_getValidationMessage :: ElementInternals -> IO JSString+-- | <https://developer.mozilla.org/docs/Web/API/ElementInternals/validationMessage MDN ElementInternals.validationMessage documentation>+getValidationMessage :: (MonadDOM m, FromJSString result) => ElementInternals -> m result+getValidationMessage self = liftDOM ((fromJSString <$> (js_getValidationMessage (self))))++foreign import javascript unsafe "(($1) => { return $1[\"labels\"]; })"+ js_getLabels :: ElementInternals -> IO NodeList+-- | <https://developer.mozilla.org/docs/Web/API/ElementInternals/labels MDN ElementInternals.labels documentation>+getLabels :: (MonadDOM m) => ElementInternals -> m NodeList+getLabels self = liftDOM ((js_getLabels (self)))++foreign import javascript unsafe "(($1) => { return $1[\"states\"]; })"+ js_getStates :: ElementInternals -> IO CustomStateSet+-- | <https://developer.mozilla.org/docs/Web/API/ElementInternals/states MDN ElementInternals.states documentation>+getStates :: (MonadDOM m) => ElementInternals -> m CustomStateSet+getStates self = liftDOM ((js_getStates (self)))
@@ -0,0 +1,61 @@+{-# 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.EncodedAudioChunk+ (js_newEncodedAudioChunk, js_copyTo, js_getType, js_getTimestamp, js_getDuration, js_getByteLength, newEncodedAudioChunk, copyTo, getType, getTimestamp, getDuration, getDurationUnsafe, getDurationUnchecked, getByteLength, EncodedAudioChunk(..), gTypeEncodedAudioChunk)+ 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[\"EncodedAudioChunk\"]($1); })"+ js_newEncodedAudioChunk :: EncodedAudioChunkInit -> IO EncodedAudioChunk+-- | <https://developer.mozilla.org/docs/Web/API/EncodedAudioChunk/EncodedAudioChunk MDN EncodedAudioChunk. documentation>+newEncodedAudioChunk :: (MonadDOM m) => EncodedAudioChunkInit -> m EncodedAudioChunk+newEncodedAudioChunk init = liftDOM ((js_newEncodedAudioChunk (init)))++foreign import javascript safe "(($1, $2) => { return $1[\"copyTo\"]($2); })"+ js_copyTo :: EncodedAudioChunk -> AllowSharedBufferSource -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/EncodedAudioChunk/copyTo MDN EncodedAudioChunk.copyTo documentation>+copyTo :: (MonadDOM m, IsAllowSharedBufferSource destination) => EncodedAudioChunk -> destination -> m ()+copyTo self destination = liftDOM (void ((js_copyTo (self) (Types.toAllowSharedBufferSource destination))))++foreign import javascript unsafe "(($1) => { return $1[\"type\"]; })"+ js_getType :: EncodedAudioChunk -> IO JSVal+-- | <https://developer.mozilla.org/docs/Web/API/EncodedAudioChunk/type MDN EncodedAudioChunk.type documentation>+getType :: (MonadDOM m) => EncodedAudioChunk -> m EncodedAudioChunkType+getType self = liftDOM (((js_getType (self)) >>= fromJSValUnchecked))++foreign import javascript unsafe "(($1) => { return $1[\"timestamp\"]; })"+ js_getTimestamp :: EncodedAudioChunk -> IO JSVal+-- | <https://developer.mozilla.org/docs/Web/API/EncodedAudioChunk/timestamp MDN EncodedAudioChunk.timestamp documentation>+getTimestamp :: (MonadDOM m) => EncodedAudioChunk -> m Int53+getTimestamp self = liftDOM (((js_getTimestamp (self)) >>= fromJSValUnchecked))++foreign import javascript unsafe "(($1) => { return $1[\"duration\"]; })"+ js_getDuration :: EncodedAudioChunk -> IO JSVal+-- | <https://developer.mozilla.org/docs/Web/API/EncodedAudioChunk/duration MDN EncodedAudioChunk.duration documentation>+getDuration :: (MonadDOM m) => EncodedAudioChunk -> m (Maybe Word53)+getDuration self = liftDOM (((js_getDuration (self)) >>= fromJSValUnchecked))++-- | <https://developer.mozilla.org/docs/Web/API/EncodedAudioChunk/duration MDN EncodedAudioChunk.duration documentation>+getDurationUnsafe :: (MonadDOM m, HasCallStack) => EncodedAudioChunk -> m Word53+getDurationUnsafe self = liftDOM ((((js_getDuration (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://developer.mozilla.org/docs/Web/API/EncodedAudioChunk/duration MDN EncodedAudioChunk.duration documentation>+getDurationUnchecked :: (MonadDOM m) => EncodedAudioChunk -> m Word53+getDurationUnchecked self = liftDOM ((pFromJSVal <$> (js_getDuration (self))))++foreign import javascript unsafe "(($1) => { return $1[\"byteLength\"]; })"+ js_getByteLength :: EncodedAudioChunk -> IO Word+-- | <https://developer.mozilla.org/docs/Web/API/EncodedAudioChunk/byteLength MDN EncodedAudioChunk.byteLength documentation>+getByteLength :: (MonadDOM m) => EncodedAudioChunk -> m Word+getByteLength self = liftDOM ((js_getByteLength (self)))
@@ -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.EncodedAudioChunkInit+ (js_newEncodedAudioChunkInit, js_setType, js_getType, js_setTimestamp, js_getTimestamp, js_setDuration, js_getDuration, js_setData, js_getData, js_setTransfer, js_getTransfer, newEncodedAudioChunkInit, setType, getType, setTimestamp, getTimestamp, setDuration, getDuration, getDurationUnsafe, getDurationUnchecked, setData, getData, setTransfer, getTransfer, getTransferUnsafe, getTransferUnchecked, EncodedAudioChunkInit(..), gTypeEncodedAudioChunkInit)+ 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 ({\"type\": $1, \"timestamp\": $2, \"data\": $3}); })"+ js_newEncodedAudioChunkInit :: JSVal -> JSVal -> AllowSharedBufferSource -> IO EncodedAudioChunkInit+-- | <https://w3c.github.io/webcodecs/#dictdef-encodedaudiochunkinit EncodedAudioChunkInit specification>+newEncodedAudioChunkInit :: (MonadDOM m, IsAllowSharedBufferSource data') => EncodedAudioChunkType -> Int53 -> data' -> m EncodedAudioChunkInit+newEncodedAudioChunkInit type' timestamp data' = liftDOM (((toJSVal type') >>= \a1' -> (toJSVal timestamp) >>= \a2' -> js_newEncodedAudioChunkInit a1' a2' (Types.toAllowSharedBufferSource data')))++foreign import javascript safe "(($1, $2) => { $1[\"type\"] = $2; })"+ js_setType :: EncodedAudioChunkInit -> JSVal -> IO ()+-- | <https://w3c.github.io/webcodecs/#dom-encodedaudiochunkinit-type EncodedAudioChunkInit.type specification>+setType :: (MonadDOM m) => EncodedAudioChunkInit -> EncodedAudioChunkType -> m ()+setType self val = liftDOM (void (((toJSVal val) >>= \a2' -> js_setType (self) a2')))++foreign import javascript unsafe "(($1) => { return $1[\"type\"]; })"+ js_getType :: EncodedAudioChunkInit -> IO JSVal+-- | <https://w3c.github.io/webcodecs/#dom-encodedaudiochunkinit-type EncodedAudioChunkInit.type specification>+getType :: (MonadDOM m) => EncodedAudioChunkInit -> m EncodedAudioChunkType+getType self = liftDOM (((js_getType (self)) >>= fromJSValUnchecked))++foreign import javascript safe "(($1, $2) => { $1[\"timestamp\"] = $2; })"+ js_setTimestamp :: EncodedAudioChunkInit -> JSVal -> IO ()+-- | <https://w3c.github.io/webcodecs/#dom-encodedaudiochunkinit-timestamp EncodedAudioChunkInit.timestamp specification>+setTimestamp :: (MonadDOM m) => EncodedAudioChunkInit -> Int53 -> m ()+setTimestamp self val = liftDOM (void (((toJSVal val) >>= \a2' -> js_setTimestamp (self) a2')))++foreign import javascript unsafe "(($1) => { return $1[\"timestamp\"]; })"+ js_getTimestamp :: EncodedAudioChunkInit -> IO JSVal+-- | <https://w3c.github.io/webcodecs/#dom-encodedaudiochunkinit-timestamp EncodedAudioChunkInit.timestamp specification>+getTimestamp :: (MonadDOM m) => EncodedAudioChunkInit -> m Int53+getTimestamp self = liftDOM (((js_getTimestamp (self)) >>= fromJSValUnchecked))++foreign import javascript safe "(($1, $2) => { $1[\"duration\"] = $2; })"+ js_setDuration :: EncodedAudioChunkInit -> JSVal -> IO ()+-- | <https://w3c.github.io/webcodecs/#dom-encodedaudiochunkinit-duration EncodedAudioChunkInit.duration specification>+setDuration :: (MonadDOM m) => EncodedAudioChunkInit -> Word53 -> m ()+setDuration self val = liftDOM (void (((toJSVal val) >>= \a2' -> js_setDuration (self) a2')))++foreign import javascript unsafe "(($1) => { return $1[\"duration\"]; })"+ js_getDuration :: EncodedAudioChunkInit -> IO JSVal+-- | <https://w3c.github.io/webcodecs/#dom-encodedaudiochunkinit-duration EncodedAudioChunkInit.duration specification>+getDuration :: (MonadDOM m) => EncodedAudioChunkInit -> m (Maybe Word53)+getDuration self = liftDOM (((js_getDuration (self)) >>= fromJSValUnchecked))++-- | <https://w3c.github.io/webcodecs/#dom-encodedaudiochunkinit-duration EncodedAudioChunkInit.duration specification>+getDurationUnsafe :: (MonadDOM m, HasCallStack) => EncodedAudioChunkInit -> m Word53+getDurationUnsafe self = liftDOM ((((js_getDuration (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://w3c.github.io/webcodecs/#dom-encodedaudiochunkinit-duration EncodedAudioChunkInit.duration specification>+getDurationUnchecked :: (MonadDOM m) => EncodedAudioChunkInit -> m Word53+getDurationUnchecked self = liftDOM ((pFromJSVal <$> (js_getDuration (self))))++foreign import javascript safe "(($1, $2) => { $1[\"data\"] = $2; })"+ js_setData :: EncodedAudioChunkInit -> AllowSharedBufferSource -> IO ()+-- | <https://w3c.github.io/webcodecs/#dom-encodedaudiochunkinit-data EncodedAudioChunkInit.data specification>+setData :: (MonadDOM m, IsAllowSharedBufferSource val) => EncodedAudioChunkInit -> val -> m ()+setData self val = liftDOM (void ((js_setData (self) (Types.toAllowSharedBufferSource val))))++foreign import javascript unsafe "(($1) => { return $1[\"data\"]; })"+ js_getData :: EncodedAudioChunkInit -> IO AllowSharedBufferSource+-- | <https://w3c.github.io/webcodecs/#dom-encodedaudiochunkinit-data EncodedAudioChunkInit.data specification>+getData :: (MonadDOM m) => EncodedAudioChunkInit -> m AllowSharedBufferSource+getData self = liftDOM ((js_getData (self)))++foreign import javascript safe "(($1, $2) => { $1[\"transfer\"] = $2; })"+ js_setTransfer :: EncodedAudioChunkInit -> JSVal -> IO ()+-- | <https://w3c.github.io/webcodecs/#dom-encodedaudiochunkinit-transfer EncodedAudioChunkInit.transfer specification>+setTransfer :: (MonadDOM m, IsArrayBuffer val) => EncodedAudioChunkInit -> [val] -> m ()+setTransfer self val = liftDOM (void (((toJSVal val) >>= \a2' -> js_setTransfer (self) a2')))++foreign import javascript unsafe "(($1) => { return $1[\"transfer\"]; })"+ js_getTransfer :: EncodedAudioChunkInit -> IO JSVal+-- | <https://w3c.github.io/webcodecs/#dom-encodedaudiochunkinit-transfer EncodedAudioChunkInit.transfer specification>+getTransfer :: (MonadDOM m) => EncodedAudioChunkInit -> m (Maybe [ArrayBuffer])+getTransfer self = liftDOM (((js_getTransfer (self)) >>= fromJSValUnchecked))++-- | <https://w3c.github.io/webcodecs/#dom-encodedaudiochunkinit-transfer EncodedAudioChunkInit.transfer specification>+getTransferUnsafe :: (MonadDOM m, HasCallStack) => EncodedAudioChunkInit -> m [ArrayBuffer]+getTransferUnsafe self = liftDOM ((((js_getTransfer (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://w3c.github.io/webcodecs/#dom-encodedaudiochunkinit-transfer EncodedAudioChunkInit.transfer specification>+getTransferUnchecked :: (MonadDOM m) => EncodedAudioChunkInit -> m [ArrayBuffer]+getTransferUnchecked self = liftDOM (((js_getTransfer (self)) >>= fromJSValUnchecked))
@@ -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 (webref). Do not edit.+module GHCJS.DOM.JSFFI.Generated.EncodedAudioChunkMetadata+ (js_newEncodedAudioChunkMetadata, js_setDecoderConfig, js_getDecoderConfig, newEncodedAudioChunkMetadata, setDecoderConfig, getDecoderConfig, getDecoderConfigUnsafe, getDecoderConfigUnchecked, EncodedAudioChunkMetadata(..), gTypeEncodedAudioChunkMetadata)+ 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_newEncodedAudioChunkMetadata :: IO EncodedAudioChunkMetadata+-- | <https://w3c.github.io/webcodecs/#dictdef-encodedaudiochunkmetadata EncodedAudioChunkMetadata specification>+newEncodedAudioChunkMetadata :: (MonadDOM m) => m EncodedAudioChunkMetadata+newEncodedAudioChunkMetadata = liftDOM ((js_newEncodedAudioChunkMetadata))++foreign import javascript safe "(($1, $2) => { $1[\"decoderConfig\"] = $2; })"+ js_setDecoderConfig :: EncodedAudioChunkMetadata -> AudioDecoderConfig -> IO ()+-- | <https://w3c.github.io/webcodecs/#dom-encodedaudiochunkmetadata-decoderconfig EncodedAudioChunkMetadata.decoderConfig specification>+setDecoderConfig :: (MonadDOM m) => EncodedAudioChunkMetadata -> AudioDecoderConfig -> m ()+setDecoderConfig self val = liftDOM (void ((js_setDecoderConfig (self) (val))))++foreign import javascript unsafe "(($1) => { return $1[\"decoderConfig\"]; })"+ js_getDecoderConfig :: EncodedAudioChunkMetadata -> IO JSVal+-- | <https://w3c.github.io/webcodecs/#dom-encodedaudiochunkmetadata-decoderconfig EncodedAudioChunkMetadata.decoderConfig specification>+getDecoderConfig :: (MonadDOM m) => EncodedAudioChunkMetadata -> m (Maybe AudioDecoderConfig)+getDecoderConfig self = liftDOM (((js_getDecoderConfig (self)) >>= fromJSValUnchecked))++-- | <https://w3c.github.io/webcodecs/#dom-encodedaudiochunkmetadata-decoderconfig EncodedAudioChunkMetadata.decoderConfig specification>+getDecoderConfigUnsafe :: (MonadDOM m, HasCallStack) => EncodedAudioChunkMetadata -> m AudioDecoderConfig+getDecoderConfigUnsafe self = liftDOM ((((js_getDecoderConfig (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://w3c.github.io/webcodecs/#dom-encodedaudiochunkmetadata-decoderconfig EncodedAudioChunkMetadata.decoderConfig specification>+getDecoderConfigUnchecked :: (MonadDOM m) => EncodedAudioChunkMetadata -> m AudioDecoderConfig+getDecoderConfigUnchecked self = liftDOM ((pFromJSVal <$> (js_getDecoderConfig (self))))
@@ -0,0 +1,32 @@+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from webcodecs (webref). Do not edit.+module GHCJS.DOM.JSFFI.Generated.EncodedAudioChunkOutputCallback+ (newEncodedAudioChunkOutputCallback, newEncodedAudioChunkOutputCallbackSync, newEncodedAudioChunkOutputCallbackAsync, EncodedAudioChunkOutputCallback)+ 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++newEncodedAudioChunkOutputCallback :: (MonadDOM m) => (EncodedAudioChunk -> EncodedAudioChunkMetadata -> IO ()) -> m EncodedAudioChunkOutputCallback+newEncodedAudioChunkOutputCallback callback = liftDOM ((EncodedAudioChunkOutputCallback . coerce) <$> syncCallback2 ContinueAsync (\ output metadata -> do+ output' <- fromJSValUnchecked output+ metadata' <- fromJSValUnchecked metadata+ callback output' metadata'))++newEncodedAudioChunkOutputCallbackSync :: (MonadDOM m) => (EncodedAudioChunk -> EncodedAudioChunkMetadata -> IO ()) -> m EncodedAudioChunkOutputCallback+newEncodedAudioChunkOutputCallbackSync callback = liftDOM ((EncodedAudioChunkOutputCallback . coerce) <$> syncCallback2 ThrowWouldBlock (\ output metadata -> do+ output' <- fromJSValUnchecked output+ metadata' <- fromJSValUnchecked metadata+ callback output' metadata'))++newEncodedAudioChunkOutputCallbackAsync :: (MonadDOM m) => (EncodedAudioChunk -> EncodedAudioChunkMetadata -> IO ()) -> m EncodedAudioChunkOutputCallback+newEncodedAudioChunkOutputCallbackAsync callback = liftDOM ((EncodedAudioChunkOutputCallback . coerce) <$> asyncCallback2 (\ output metadata -> do+ output' <- fromJSValUnchecked output+ metadata' <- fromJSValUnchecked metadata+ callback output' metadata'))
@@ -0,0 +1,61 @@+{-# 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.EncodedVideoChunk+ (js_newEncodedVideoChunk, js_copyTo, js_getType, js_getTimestamp, js_getDuration, js_getByteLength, newEncodedVideoChunk, copyTo, getType, getTimestamp, getDuration, getDurationUnsafe, getDurationUnchecked, getByteLength, EncodedVideoChunk(..), gTypeEncodedVideoChunk)+ 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[\"EncodedVideoChunk\"]($1); })"+ js_newEncodedVideoChunk :: EncodedVideoChunkInit -> IO EncodedVideoChunk+-- | <https://developer.mozilla.org/docs/Web/API/EncodedVideoChunk/EncodedVideoChunk MDN EncodedVideoChunk. documentation>+newEncodedVideoChunk :: (MonadDOM m) => EncodedVideoChunkInit -> m EncodedVideoChunk+newEncodedVideoChunk init = liftDOM ((js_newEncodedVideoChunk (init)))++foreign import javascript safe "(($1, $2) => { return $1[\"copyTo\"]($2); })"+ js_copyTo :: EncodedVideoChunk -> AllowSharedBufferSource -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/EncodedVideoChunk/copyTo MDN EncodedVideoChunk.copyTo documentation>+copyTo :: (MonadDOM m, IsAllowSharedBufferSource destination) => EncodedVideoChunk -> destination -> m ()+copyTo self destination = liftDOM (void ((js_copyTo (self) (Types.toAllowSharedBufferSource destination))))++foreign import javascript unsafe "(($1) => { return $1[\"type\"]; })"+ js_getType :: EncodedVideoChunk -> IO JSVal+-- | <https://developer.mozilla.org/docs/Web/API/EncodedVideoChunk/type MDN EncodedVideoChunk.type documentation>+getType :: (MonadDOM m) => EncodedVideoChunk -> m EncodedVideoChunkType+getType self = liftDOM (((js_getType (self)) >>= fromJSValUnchecked))++foreign import javascript unsafe "(($1) => { return $1[\"timestamp\"]; })"+ js_getTimestamp :: EncodedVideoChunk -> IO JSVal+-- | <https://developer.mozilla.org/docs/Web/API/EncodedVideoChunk/timestamp MDN EncodedVideoChunk.timestamp documentation>+getTimestamp :: (MonadDOM m) => EncodedVideoChunk -> m Int53+getTimestamp self = liftDOM (((js_getTimestamp (self)) >>= fromJSValUnchecked))++foreign import javascript unsafe "(($1) => { return $1[\"duration\"]; })"+ js_getDuration :: EncodedVideoChunk -> IO JSVal+-- | <https://developer.mozilla.org/docs/Web/API/EncodedVideoChunk/duration MDN EncodedVideoChunk.duration documentation>+getDuration :: (MonadDOM m) => EncodedVideoChunk -> m (Maybe Word53)+getDuration self = liftDOM (((js_getDuration (self)) >>= fromJSValUnchecked))++-- | <https://developer.mozilla.org/docs/Web/API/EncodedVideoChunk/duration MDN EncodedVideoChunk.duration documentation>+getDurationUnsafe :: (MonadDOM m, HasCallStack) => EncodedVideoChunk -> m Word53+getDurationUnsafe self = liftDOM ((((js_getDuration (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://developer.mozilla.org/docs/Web/API/EncodedVideoChunk/duration MDN EncodedVideoChunk.duration documentation>+getDurationUnchecked :: (MonadDOM m) => EncodedVideoChunk -> m Word53+getDurationUnchecked self = liftDOM ((pFromJSVal <$> (js_getDuration (self))))++foreign import javascript unsafe "(($1) => { return $1[\"byteLength\"]; })"+ js_getByteLength :: EncodedVideoChunk -> IO Word+-- | <https://developer.mozilla.org/docs/Web/API/EncodedVideoChunk/byteLength MDN EncodedVideoChunk.byteLength documentation>+getByteLength :: (MonadDOM m) => EncodedVideoChunk -> m Word+getByteLength self = liftDOM ((js_getByteLength (self)))
@@ -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.EncodedVideoChunkInit+ (js_newEncodedVideoChunkInit, js_setType, js_getType, js_setTimestamp, js_getTimestamp, js_setDuration, js_getDuration, js_setData, js_getData, js_setTransfer, js_getTransfer, newEncodedVideoChunkInit, setType, getType, setTimestamp, getTimestamp, setDuration, getDuration, getDurationUnsafe, getDurationUnchecked, setData, getData, setTransfer, getTransfer, getTransferUnsafe, getTransferUnchecked, EncodedVideoChunkInit(..), gTypeEncodedVideoChunkInit)+ 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 ({\"type\": $1, \"timestamp\": $2, \"data\": $3}); })"+ js_newEncodedVideoChunkInit :: JSVal -> JSVal -> AllowSharedBufferSource -> IO EncodedVideoChunkInit+-- | <https://w3c.github.io/webcodecs/#dictdef-encodedvideochunkinit EncodedVideoChunkInit specification>+newEncodedVideoChunkInit :: (MonadDOM m, IsAllowSharedBufferSource data') => EncodedVideoChunkType -> Int53 -> data' -> m EncodedVideoChunkInit+newEncodedVideoChunkInit type' timestamp data' = liftDOM (((toJSVal type') >>= \a1' -> (toJSVal timestamp) >>= \a2' -> js_newEncodedVideoChunkInit a1' a2' (Types.toAllowSharedBufferSource data')))++foreign import javascript safe "(($1, $2) => { $1[\"type\"] = $2; })"+ js_setType :: EncodedVideoChunkInit -> JSVal -> IO ()+-- | <https://w3c.github.io/webcodecs/#dom-encodedvideochunkinit-type EncodedVideoChunkInit.type specification>+setType :: (MonadDOM m) => EncodedVideoChunkInit -> EncodedVideoChunkType -> m ()+setType self val = liftDOM (void (((toJSVal val) >>= \a2' -> js_setType (self) a2')))++foreign import javascript unsafe "(($1) => { return $1[\"type\"]; })"+ js_getType :: EncodedVideoChunkInit -> IO JSVal+-- | <https://w3c.github.io/webcodecs/#dom-encodedvideochunkinit-type EncodedVideoChunkInit.type specification>+getType :: (MonadDOM m) => EncodedVideoChunkInit -> m EncodedVideoChunkType+getType self = liftDOM (((js_getType (self)) >>= fromJSValUnchecked))++foreign import javascript safe "(($1, $2) => { $1[\"timestamp\"] = $2; })"+ js_setTimestamp :: EncodedVideoChunkInit -> JSVal -> IO ()+-- | <https://w3c.github.io/webcodecs/#dom-encodedvideochunkinit-timestamp EncodedVideoChunkInit.timestamp specification>+setTimestamp :: (MonadDOM m) => EncodedVideoChunkInit -> Int53 -> m ()+setTimestamp self val = liftDOM (void (((toJSVal val) >>= \a2' -> js_setTimestamp (self) a2')))++foreign import javascript unsafe "(($1) => { return $1[\"timestamp\"]; })"+ js_getTimestamp :: EncodedVideoChunkInit -> IO JSVal+-- | <https://w3c.github.io/webcodecs/#dom-encodedvideochunkinit-timestamp EncodedVideoChunkInit.timestamp specification>+getTimestamp :: (MonadDOM m) => EncodedVideoChunkInit -> m Int53+getTimestamp self = liftDOM (((js_getTimestamp (self)) >>= fromJSValUnchecked))++foreign import javascript safe "(($1, $2) => { $1[\"duration\"] = $2; })"+ js_setDuration :: EncodedVideoChunkInit -> JSVal -> IO ()+-- | <https://w3c.github.io/webcodecs/#dom-encodedvideochunkinit-duration EncodedVideoChunkInit.duration specification>+setDuration :: (MonadDOM m) => EncodedVideoChunkInit -> Word53 -> m ()+setDuration self val = liftDOM (void (((toJSVal val) >>= \a2' -> js_setDuration (self) a2')))++foreign import javascript unsafe "(($1) => { return $1[\"duration\"]; })"+ js_getDuration :: EncodedVideoChunkInit -> IO JSVal+-- | <https://w3c.github.io/webcodecs/#dom-encodedvideochunkinit-duration EncodedVideoChunkInit.duration specification>+getDuration :: (MonadDOM m) => EncodedVideoChunkInit -> m (Maybe Word53)+getDuration self = liftDOM (((js_getDuration (self)) >>= fromJSValUnchecked))++-- | <https://w3c.github.io/webcodecs/#dom-encodedvideochunkinit-duration EncodedVideoChunkInit.duration specification>+getDurationUnsafe :: (MonadDOM m, HasCallStack) => EncodedVideoChunkInit -> m Word53+getDurationUnsafe self = liftDOM ((((js_getDuration (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://w3c.github.io/webcodecs/#dom-encodedvideochunkinit-duration EncodedVideoChunkInit.duration specification>+getDurationUnchecked :: (MonadDOM m) => EncodedVideoChunkInit -> m Word53+getDurationUnchecked self = liftDOM ((pFromJSVal <$> (js_getDuration (self))))++foreign import javascript safe "(($1, $2) => { $1[\"data\"] = $2; })"+ js_setData :: EncodedVideoChunkInit -> AllowSharedBufferSource -> IO ()+-- | <https://w3c.github.io/webcodecs/#dom-encodedvideochunkinit-data EncodedVideoChunkInit.data specification>+setData :: (MonadDOM m, IsAllowSharedBufferSource val) => EncodedVideoChunkInit -> val -> m ()+setData self val = liftDOM (void ((js_setData (self) (Types.toAllowSharedBufferSource val))))++foreign import javascript unsafe "(($1) => { return $1[\"data\"]; })"+ js_getData :: EncodedVideoChunkInit -> IO AllowSharedBufferSource+-- | <https://w3c.github.io/webcodecs/#dom-encodedvideochunkinit-data EncodedVideoChunkInit.data specification>+getData :: (MonadDOM m) => EncodedVideoChunkInit -> m AllowSharedBufferSource+getData self = liftDOM ((js_getData (self)))++foreign import javascript safe "(($1, $2) => { $1[\"transfer\"] = $2; })"+ js_setTransfer :: EncodedVideoChunkInit -> JSVal -> IO ()+-- | <https://w3c.github.io/webcodecs/#dom-encodedvideochunkinit-transfer EncodedVideoChunkInit.transfer specification>+setTransfer :: (MonadDOM m, IsArrayBuffer val) => EncodedVideoChunkInit -> [val] -> m ()+setTransfer self val = liftDOM (void (((toJSVal val) >>= \a2' -> js_setTransfer (self) a2')))++foreign import javascript unsafe "(($1) => { return $1[\"transfer\"]; })"+ js_getTransfer :: EncodedVideoChunkInit -> IO JSVal+-- | <https://w3c.github.io/webcodecs/#dom-encodedvideochunkinit-transfer EncodedVideoChunkInit.transfer specification>+getTransfer :: (MonadDOM m) => EncodedVideoChunkInit -> m (Maybe [ArrayBuffer])+getTransfer self = liftDOM (((js_getTransfer (self)) >>= fromJSValUnchecked))++-- | <https://w3c.github.io/webcodecs/#dom-encodedvideochunkinit-transfer EncodedVideoChunkInit.transfer specification>+getTransferUnsafe :: (MonadDOM m, HasCallStack) => EncodedVideoChunkInit -> m [ArrayBuffer]+getTransferUnsafe self = liftDOM ((((js_getTransfer (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://w3c.github.io/webcodecs/#dom-encodedvideochunkinit-transfer EncodedVideoChunkInit.transfer specification>+getTransferUnchecked :: (MonadDOM m) => EncodedVideoChunkInit -> m [ArrayBuffer]+getTransferUnchecked self = liftDOM (((js_getTransfer (self)) >>= fromJSValUnchecked))
@@ -0,0 +1,83 @@+{-# 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.EncodedVideoChunkMetadata+ (js_newEncodedVideoChunkMetadata, js_setDecoderConfig, js_getDecoderConfig, js_setSvc, js_getSvc, js_setAlphaSideData, js_getAlphaSideData, newEncodedVideoChunkMetadata, setDecoderConfig, getDecoderConfig, getDecoderConfigUnsafe, getDecoderConfigUnchecked, setSvc, getSvc, getSvcUnsafe, getSvcUnchecked, setAlphaSideData, getAlphaSideData, getAlphaSideDataUnsafe, getAlphaSideDataUnchecked, EncodedVideoChunkMetadata(..), gTypeEncodedVideoChunkMetadata)+ 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_newEncodedVideoChunkMetadata :: IO EncodedVideoChunkMetadata+-- | <https://w3c.github.io/webcodecs/#dictdef-encodedvideochunkmetadata EncodedVideoChunkMetadata specification>+newEncodedVideoChunkMetadata :: (MonadDOM m) => m EncodedVideoChunkMetadata+newEncodedVideoChunkMetadata = liftDOM ((js_newEncodedVideoChunkMetadata))++foreign import javascript safe "(($1, $2) => { $1[\"decoderConfig\"] = $2; })"+ js_setDecoderConfig :: EncodedVideoChunkMetadata -> VideoDecoderConfig -> IO ()+-- | <https://w3c.github.io/webcodecs/#dom-encodedvideochunkmetadata-decoderconfig EncodedVideoChunkMetadata.decoderConfig specification>+setDecoderConfig :: (MonadDOM m) => EncodedVideoChunkMetadata -> VideoDecoderConfig -> m ()+setDecoderConfig self val = liftDOM (void ((js_setDecoderConfig (self) (val))))++foreign import javascript unsafe "(($1) => { return $1[\"decoderConfig\"]; })"+ js_getDecoderConfig :: EncodedVideoChunkMetadata -> IO JSVal+-- | <https://w3c.github.io/webcodecs/#dom-encodedvideochunkmetadata-decoderconfig EncodedVideoChunkMetadata.decoderConfig specification>+getDecoderConfig :: (MonadDOM m) => EncodedVideoChunkMetadata -> m (Maybe VideoDecoderConfig)+getDecoderConfig self = liftDOM (((js_getDecoderConfig (self)) >>= fromJSValUnchecked))++-- | <https://w3c.github.io/webcodecs/#dom-encodedvideochunkmetadata-decoderconfig EncodedVideoChunkMetadata.decoderConfig specification>+getDecoderConfigUnsafe :: (MonadDOM m, HasCallStack) => EncodedVideoChunkMetadata -> m VideoDecoderConfig+getDecoderConfigUnsafe self = liftDOM ((((js_getDecoderConfig (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://w3c.github.io/webcodecs/#dom-encodedvideochunkmetadata-decoderconfig EncodedVideoChunkMetadata.decoderConfig specification>+getDecoderConfigUnchecked :: (MonadDOM m) => EncodedVideoChunkMetadata -> m VideoDecoderConfig+getDecoderConfigUnchecked self = liftDOM ((pFromJSVal <$> (js_getDecoderConfig (self))))++foreign import javascript safe "(($1, $2) => { $1[\"svc\"] = $2; })"+ js_setSvc :: EncodedVideoChunkMetadata -> SvcOutputMetadata -> IO ()+-- | <https://w3c.github.io/webcodecs/#dom-encodedvideochunkmetadata-svc EncodedVideoChunkMetadata.svc specification>+setSvc :: (MonadDOM m) => EncodedVideoChunkMetadata -> SvcOutputMetadata -> m ()+setSvc self val = liftDOM (void ((js_setSvc (self) (val))))++foreign import javascript unsafe "(($1) => { return $1[\"svc\"]; })"+ js_getSvc :: EncodedVideoChunkMetadata -> IO JSVal+-- | <https://w3c.github.io/webcodecs/#dom-encodedvideochunkmetadata-svc EncodedVideoChunkMetadata.svc specification>+getSvc :: (MonadDOM m) => EncodedVideoChunkMetadata -> m (Maybe SvcOutputMetadata)+getSvc self = liftDOM (((js_getSvc (self)) >>= fromJSValUnchecked))++-- | <https://w3c.github.io/webcodecs/#dom-encodedvideochunkmetadata-svc EncodedVideoChunkMetadata.svc specification>+getSvcUnsafe :: (MonadDOM m, HasCallStack) => EncodedVideoChunkMetadata -> m SvcOutputMetadata+getSvcUnsafe self = liftDOM ((((js_getSvc (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://w3c.github.io/webcodecs/#dom-encodedvideochunkmetadata-svc EncodedVideoChunkMetadata.svc specification>+getSvcUnchecked :: (MonadDOM m) => EncodedVideoChunkMetadata -> m SvcOutputMetadata+getSvcUnchecked self = liftDOM ((pFromJSVal <$> (js_getSvc (self))))++foreign import javascript safe "(($1, $2) => { $1[\"alphaSideData\"] = $2; })"+ js_setAlphaSideData :: EncodedVideoChunkMetadata -> BufferSource -> IO ()+-- | <https://w3c.github.io/webcodecs/#dom-encodedvideochunkmetadata-alphasidedata EncodedVideoChunkMetadata.alphaSideData specification>+setAlphaSideData :: (MonadDOM m, IsBufferSource val) => EncodedVideoChunkMetadata -> val -> m ()+setAlphaSideData self val = liftDOM (void ((js_setAlphaSideData (self) (Types.toBufferSource val))))++foreign import javascript unsafe "(($1) => { return $1[\"alphaSideData\"]; })"+ js_getAlphaSideData :: EncodedVideoChunkMetadata -> IO JSVal+-- | <https://w3c.github.io/webcodecs/#dom-encodedvideochunkmetadata-alphasidedata EncodedVideoChunkMetadata.alphaSideData specification>+getAlphaSideData :: (MonadDOM m) => EncodedVideoChunkMetadata -> m (Maybe BufferSource)+getAlphaSideData self = liftDOM (((js_getAlphaSideData (self)) >>= fromJSValUnchecked))++-- | <https://w3c.github.io/webcodecs/#dom-encodedvideochunkmetadata-alphasidedata EncodedVideoChunkMetadata.alphaSideData specification>+getAlphaSideDataUnsafe :: (MonadDOM m, HasCallStack) => EncodedVideoChunkMetadata -> m BufferSource+getAlphaSideDataUnsafe self = liftDOM ((((js_getAlphaSideData (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://w3c.github.io/webcodecs/#dom-encodedvideochunkmetadata-alphasidedata EncodedVideoChunkMetadata.alphaSideData specification>+getAlphaSideDataUnchecked :: (MonadDOM m) => EncodedVideoChunkMetadata -> m BufferSource+getAlphaSideDataUnchecked self = liftDOM ((pFromJSVal <$> (js_getAlphaSideData (self))))
@@ -0,0 +1,32 @@+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from webcodecs (webref). Do not edit.+module GHCJS.DOM.JSFFI.Generated.EncodedVideoChunkOutputCallback+ (newEncodedVideoChunkOutputCallback, newEncodedVideoChunkOutputCallbackSync, newEncodedVideoChunkOutputCallbackAsync, EncodedVideoChunkOutputCallback)+ 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++newEncodedVideoChunkOutputCallback :: (MonadDOM m) => (EncodedVideoChunk -> EncodedVideoChunkMetadata -> IO ()) -> m EncodedVideoChunkOutputCallback+newEncodedVideoChunkOutputCallback callback = liftDOM ((EncodedVideoChunkOutputCallback . coerce) <$> syncCallback2 ContinueAsync (\ chunk metadata -> do+ chunk' <- fromJSValUnchecked chunk+ metadata' <- fromJSValUnchecked metadata+ callback chunk' metadata'))++newEncodedVideoChunkOutputCallbackSync :: (MonadDOM m) => (EncodedVideoChunk -> EncodedVideoChunkMetadata -> IO ()) -> m EncodedVideoChunkOutputCallback+newEncodedVideoChunkOutputCallbackSync callback = liftDOM ((EncodedVideoChunkOutputCallback . coerce) <$> syncCallback2 ThrowWouldBlock (\ chunk metadata -> do+ chunk' <- fromJSValUnchecked chunk+ metadata' <- fromJSValUnchecked metadata+ callback chunk' metadata'))++newEncodedVideoChunkOutputCallbackAsync :: (MonadDOM m) => (EncodedVideoChunk -> EncodedVideoChunkMetadata -> IO ()) -> m EncodedVideoChunkOutputCallback+newEncodedVideoChunkOutputCallbackAsync callback = liftDOM ((EncodedVideoChunkOutputCallback . coerce) <$> asyncCallback2 (\ chunk metadata -> do+ chunk' <- fromJSValUnchecked chunk+ metadata' <- fromJSValUnchecked metadata+ callback chunk' metadata'))
@@ -1,4535 +1,9229 @@-{-# LANGUAGE PatternSynonyms #-}-{-# LANGUAGE ForeignFunctionInterface #-}-{-# LANGUAGE JavaScriptFFI #-}--- For HasCallStack compatibility-{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}-module GHCJS.DOM.JSFFI.Generated.Enums- (KeyType(..), PToJSVal, ToJSVal, PFromJSVal, FromJSVal,- js_KeyTypePublic, js_KeyTypePrivate, js_KeyTypeSecret,- CryptoKeyUsage(..), js_CryptoKeyUsageEncrypt,- js_CryptoKeyUsageDecrypt, js_CryptoKeyUsageSign,- js_CryptoKeyUsageVerify, js_CryptoKeyUsageDeriveKey,- js_CryptoKeyUsageDeriveBits, js_CryptoKeyUsageWrapKey,- js_CryptoKeyUsageUnwrapKey, KeyFormat(..), js_KeyFormatRaw,- js_KeyFormatSpki, js_KeyFormatPkcs8, js_KeyFormatJwk,- FontFaceLoadStatus(..), js_FontFaceLoadStatusUnloaded,- js_FontFaceLoadStatusLoading, js_FontFaceLoadStatusLoaded,- js_FontFaceLoadStatusError, FontFaceSetLoadStatus(..),- js_FontFaceSetLoadStatusLoading, js_FontFaceSetLoadStatusLoaded,- VisibilityState(..), js_VisibilityStateHidden,- js_VisibilityStateVisible, js_VisibilityStatePrerender,- DocumentReadyState(..), js_DocumentReadyStateLoading,- js_DocumentReadyStateInteractive, js_DocumentReadyStateComplete,- ShadowRootMode(..), js_ShadowRootModeUserAgent,- js_ShadowRootModeClosed, js_ShadowRootModeOpen,- BlobLineEndings(..), js_BlobLineEndingsTransparent,- js_BlobLineEndingsNative, ImageSmoothingQuality(..),- js_ImageSmoothingQualityLow, js_ImageSmoothingQualityMedium,- js_ImageSmoothingQualityHigh, CanvasWindingRule(..),- js_CanvasWindingRuleNonzero, js_CanvasWindingRuleEvenodd,- WebGLPowerPreference(..), js_WebGLPowerPreferenceDefault,- js_WebGLPowerPreferenceLowPower,- js_WebGLPowerPreferenceHighPerformance, WebGPUCompareFunction(..),- js_WebGPUCompareFunctionNever, js_WebGPUCompareFunctionLess,- js_WebGPUCompareFunctionEqual, js_WebGPUCompareFunctionLessequal,- js_WebGPUCompareFunctionGreater, js_WebGPUCompareFunctionNotequal,- js_WebGPUCompareFunctionGreaterequal,- js_WebGPUCompareFunctionAlways, WebGPUPixelFormat(..),- js_WebGPUPixelFormatBGRA8Unorm, WebGPULoadAction(..),- js_WebGPULoadActionDontcare, js_WebGPULoadActionLoad,- js_WebGPULoadActionClear, WebGPUStoreAction(..),- js_WebGPUStoreActionDontcare, js_WebGPUStoreActionStore,- js_WebGPUStoreActionMultisampleresolve, WebGPUPrimitiveType(..),- js_WebGPUPrimitiveTypePoint, js_WebGPUPrimitiveTypeLine,- js_WebGPUPrimitiveTypeLinestrip, js_WebGPUPrimitiveTypeTriangle,- js_WebGPUPrimitiveTypeTrianglestrip, WebGPUFunctionType(..),- js_WebGPUFunctionTypeFragment, js_WebGPUFunctionTypeVertex,- WebGPUStencilOperation(..), js_WebGPUStencilOperationKeep,- js_WebGPUStencilOperationZero, js_WebGPUStencilOperationReplace,- js_WebGPUStencilOperationIncrementclamp,- js_WebGPUStencilOperationDecrementclamp,- js_WebGPUStencilOperationInvert,- js_WebGPUStencilOperationIncrementwrap,- js_WebGPUStencilOperationDecrementwrap, WebGPUStatus(..),- js_WebGPUStatusNotenqueued, js_WebGPUStatusEnqueued,- js_WebGPUStatusCommitted, js_WebGPUStatusScheduled,- js_WebGPUStatusCompleted, js_WebGPUStatusError,- WebGPUSamplerAddressMode(..),- js_WebGPUSamplerAddressModeClamptoedge,- js_WebGPUSamplerAddressModeMirrorclamptoedge,- js_WebGPUSamplerAddressModeRepeat,- js_WebGPUSamplerAddressModeMirrorrepeat,- js_WebGPUSamplerAddressModeClamptozero,- WebGPUSamplerMinMagFilter(..), js_WebGPUSamplerMinMagFilterNearest,- js_WebGPUSamplerMinMagFilterLinear, WebGPUSamplerMipFilter(..),- js_WebGPUSamplerMipFilterNotmipmapped,- js_WebGPUSamplerMipFilterNearest, js_WebGPUSamplerMipFilterLinear,- WebGPUCullMode(..), js_WebGPUCullModeNone, js_WebGPUCullModeFront,- js_WebGPUCullModeBack, WebGPUIndexType(..),- js_WebGPUIndexTypeUint16, js_WebGPUIndexTypeUint32,- WebGPUVisibilityResultMode(..),- js_WebGPUVisibilityResultModeDisabled,- js_WebGPUVisibilityResultModeBoolean,- js_WebGPUVisibilityResultModeCounting, WebGPUWinding(..),- js_WebGPUWindingClockwise, js_WebGPUWindingCounterclockwise,- WebGPUDepthClipMode(..), js_WebGPUDepthClipModeClip,- js_WebGPUDepthClipModeClamp, WebGPUTriangleFillMode(..),- js_WebGPUTriangleFillModeFill, js_WebGPUTriangleFillModeLines,- WebGPUCPUCacheMode(..), js_WebGPUCPUCacheModeDefaultcache,- js_WebGPUCPUCacheModeWritecombined, WebGPUStorageMode(..),- js_WebGPUStorageModeShared, js_WebGPUStorageModeManaged,- js_WebGPUStorageModePrivate, WebGPUResourceOptions(..),- js_WebGPUResourceOptionsCpucachemodedefaultcache,- js_WebGPUResourceOptionsCpucachemodewritecombined,- js_WebGPUResourceOptionsStoragemodeshared,- js_WebGPUResourceOptionsStoragemodemanaged,- js_WebGPUResourceOptionsStoragemodeprivate,- js_WebGPUResourceOptionsOptioncpucachemodedefaultcache,- js_WebGPUResourceOptionsOptioncpucachemodewritecombined,- WebGPUTextureUsage(..), js_WebGPUTextureUsageUnknown,- js_WebGPUTextureUsageShaderread, js_WebGPUTextureUsageShaderwrite,- js_WebGPUTextureUsageRendertarget,- js_WebGPUTextureUsagePixelformatview, WebGPUBlendOperation(..),- js_WebGPUBlendOperationAdd, js_WebGPUBlendOperationSubtract,- js_WebGPUBlendOperationReversesubtract, js_WebGPUBlendOperationMin,- js_WebGPUBlendOperationMax, WebGPUBlendFactor(..),- js_WebGPUBlendFactorZero, js_WebGPUBlendFactorOne,- js_WebGPUBlendFactorSourcecolor,- js_WebGPUBlendFactorOneminussourcecolor,- js_WebGPUBlendFactorSourcealpha,- js_WebGPUBlendFactorOneminussourcealpha,- js_WebGPUBlendFactorDestinationcolor,- js_WebGPUBlendFactorOneminusdestinationcolor,- js_WebGPUBlendFactorDestinationalpha,- js_WebGPUBlendFactorOneminusdestinationalpha,- js_WebGPUBlendFactorSourcealphasaturated,- js_WebGPUBlendFactorBlendcolor,- js_WebGPUBlendFactorOneminusblendcolor,- js_WebGPUBlendFactorBlendalpha,- js_WebGPUBlendFactorOneminusblendalpha, WebGPUColorWriteMask(..),- js_WebGPUColorWriteMaskNone, js_WebGPUColorWriteMaskRed,- js_WebGPUColorWriteMaskGreen, js_WebGPUColorWriteMaskBlue,- js_WebGPUColorWriteMaskAlpha, js_WebGPUColorWriteMaskAll,- WebGPUMultisampleDepthResolveFilter(..),- js_WebGPUMultisampleDepthResolveFilterSample0,- js_WebGPUMultisampleDepthResolveFilterMin,- js_WebGPUMultisampleDepthResolveFilterMax, WebGPUFeatureSet(..),- js_WebGPUFeatureSetLevel1, js_WebGPUFeatureSetLevel2,- VideoPresentationMode(..), js_VideoPresentationModeFullscreen,- js_VideoPresentationModePictureInPicture,- js_VideoPresentationModeInline, TextTrackMode(..),- js_TextTrackModeDisabled, js_TextTrackModeHidden,- js_TextTrackModeShowing, TextTrackKind(..),- js_TextTrackKindSubtitles, js_TextTrackKindCaptions,- js_TextTrackKindDescriptions, js_TextTrackKindChapters,- js_TextTrackKindMetadata, js_TextTrackKindForced,- ApplePayErrorCode(..), js_ApplePayErrorCodeUnknown,- js_ApplePayErrorCodeShippingContactInvalid,- js_ApplePayErrorCodeBillingContactInvalid,- js_ApplePayErrorCodeAddressUnservicable,- ApplePayErrorContactField(..),- js_ApplePayErrorContactFieldPhoneNumber,- js_ApplePayErrorContactFieldEmailAddress,- js_ApplePayErrorContactFieldName,- js_ApplePayErrorContactFieldPostalAddress,- js_ApplePayErrorContactFieldAddressLines,- js_ApplePayErrorContactFieldLocality,- js_ApplePayErrorContactFieldPostalCode,- js_ApplePayErrorContactFieldAdministrativeArea,- js_ApplePayErrorContactFieldCountry, ApplePayLineItemType(..),- js_ApplePayLineItemTypePending, js_ApplePayLineItemTypeFinal,- ApplePayPaymentMethodType(..), js_ApplePayPaymentMethodTypeDebit,- js_ApplePayPaymentMethodTypeCredit,- js_ApplePayPaymentMethodTypePrepaid,- js_ApplePayPaymentMethodTypeStore,- ApplePayPaymentPassActivationState(..),- js_ApplePayPaymentPassActivationStateActivated,- js_ApplePayPaymentPassActivationStateRequiresActivation,- js_ApplePayPaymentPassActivationStateActivating,- js_ApplePayPaymentPassActivationStateSuspended,- js_ApplePayPaymentPassActivationStateDeactivated,- ApplePayMerchantCapability(..),- js_ApplePayMerchantCapabilitySupports3DS,- js_ApplePayMerchantCapabilitySupportsEMV,- js_ApplePayMerchantCapabilitySupportsCredit,- js_ApplePayMerchantCapabilitySupportsDebit,- ApplePayContactField(..), js_ApplePayContactFieldEmail,- js_ApplePayContactFieldName, js_ApplePayContactFieldPhone,- js_ApplePayContactFieldPostalAddress, ApplePayShippingType(..),- js_ApplePayShippingTypeShipping, js_ApplePayShippingTypeDelivery,- js_ApplePayShippingTypeStorePickup,- js_ApplePayShippingTypeServicePickup, MediaKeyMessageType(..),- js_MediaKeyMessageTypeLicenseRequest,- js_MediaKeyMessageTypeLicenseRenewal,- js_MediaKeyMessageTypeLicenseRelease,- js_MediaKeyMessageTypeIndividualizationRequest,- MediaKeySessionType(..), js_MediaKeySessionTypeTemporary,- js_MediaKeySessionTypePersistentUsageRecord,- js_MediaKeySessionTypePersistentLicense, MediaKeysRequirement(..),- js_MediaKeysRequirementRequired, js_MediaKeysRequirementOptional,- js_MediaKeysRequirementNotAllowed, MediaKeyStatus(..),- js_MediaKeyStatusUsable, js_MediaKeyStatusExpired,- js_MediaKeyStatusReleased, js_MediaKeyStatusOutputRestricted,- js_MediaKeyStatusOutputDownscaled, js_MediaKeyStatusStatusPending,- js_MediaKeyStatusInternalError, RequestType(..), js_RequestType,- js_RequestTypeAudio, js_RequestTypeFont, js_RequestTypeImage,- js_RequestTypeScript, js_RequestTypeStyle, js_RequestTypeTrack,- js_RequestTypeVideo, RequestDestination(..), js_RequestDestination,- js_RequestDestinationDocument, js_RequestDestinationSharedworker,- js_RequestDestinationSubresource, js_RequestDestinationUnknown,- js_RequestDestinationWorker, RequestMode(..),- js_RequestModeNavigate, js_RequestModeSameOrigin,- js_RequestModeNoCors, js_RequestModeCors, RequestCredentials(..),- js_RequestCredentialsOmit, js_RequestCredentialsSameOrigin,- js_RequestCredentialsInclude, RequestCache(..),- js_RequestCacheDefault, js_RequestCacheNoStore,- js_RequestCacheReload, js_RequestCacheNoCache,- js_RequestCacheForceCache, js_RequestCacheOnlyIfCached,- RequestRedirect(..), js_RequestRedirectFollow,- js_RequestRedirectError, js_RequestRedirectManual,- ReferrerPolicy(..), js_ReferrerPolicy, js_ReferrerPolicyNoReferrer,- js_ReferrerPolicyNoReferrerWhenDowngrade, js_ReferrerPolicyOrigin,- js_ReferrerPolicyOriginWhenCrossOrigin, js_ReferrerPolicyUnsafeUrl,- ResponseType(..), js_ResponseTypeBasic, js_ResponseTypeCors,- js_ResponseTypeDefault, js_ResponseTypeError,- js_ResponseTypeOpaque, js_ResponseTypeOpaqueredirect,- IDBCursorDirection(..), js_IDBCursorDirectionNext,- js_IDBCursorDirectionNextunique, js_IDBCursorDirectionPrev,- js_IDBCursorDirectionPrevunique, IDBRequestReadyState(..),- js_IDBRequestReadyStatePending, js_IDBRequestReadyStateDone,- IDBTransactionMode(..), js_IDBTransactionModeReadonly,- js_IDBTransactionModeReadwrite, js_IDBTransactionModeVersionchange,- DeviceType(..), js_DeviceTypeNone, js_DeviceTypeAirplay,- js_DeviceTypeTvout, MediaSessionKind(..),- js_MediaSessionKindContent, js_MediaSessionKindTransient,- js_MediaSessionKindTransientSolo, js_MediaSessionKindAmbient,- EndOfStreamError(..), js_EndOfStreamErrorNetwork,- js_EndOfStreamErrorDecode, ReadyState(..), js_ReadyStateClosed,- js_ReadyStateOpen, js_ReadyStateEnded, AppendMode(..),- js_AppendModeSegments, js_AppendModeSequence, MediaDeviceKind(..),- js_MediaDeviceKindAudioinput, js_MediaDeviceKindAudiooutput,- js_MediaDeviceKindVideoinput, MediaStreamTrackState(..),- js_MediaStreamTrackStateLive, js_MediaStreamTrackStateEnded,- RTCIceTransportPolicy(..), js_RTCIceTransportPolicyRelay,- js_RTCIceTransportPolicyAll, RTCBundlePolicy(..),- js_RTCBundlePolicyBalanced, js_RTCBundlePolicyMaxCompat,- js_RTCBundlePolicyMaxBundle, RTCDataChannelState(..),- js_RTCDataChannelStateConnecting, js_RTCDataChannelStateOpen,- js_RTCDataChannelStateClosing, js_RTCDataChannelStateClosed,- RTCIceConnectionState(..), js_RTCIceConnectionStateNew,- js_RTCIceConnectionStateChecking,- js_RTCIceConnectionStateConnected,- js_RTCIceConnectionStateCompleted, js_RTCIceConnectionStateFailed,- js_RTCIceConnectionStateDisconnected,- js_RTCIceConnectionStateClosed, RTCIceGatheringState(..),- js_RTCIceGatheringStateNew, js_RTCIceGatheringStateGathering,- js_RTCIceGatheringStateComplete, RTCIceTransportState(..),- js_RTCIceTransportStateNew, js_RTCIceTransportStateChecking,- js_RTCIceTransportStateConnected, js_RTCIceTransportStateCompleted,- js_RTCIceTransportStateFailed, js_RTCIceTransportStateDisconnected,- js_RTCIceTransportStateClosed, RTCPeerConnectionState(..),- js_RTCPeerConnectionStateNew, js_RTCPeerConnectionStateConnecting,- js_RTCPeerConnectionStateConnected,- js_RTCPeerConnectionStateDisconnected,- js_RTCPeerConnectionStateFailed, js_RTCPeerConnectionStateClosed,- RTCDegradationPreference(..),- js_RTCDegradationPreferenceMaintainFramerate,- js_RTCDegradationPreferenceMaintainResolution,- js_RTCDegradationPreferenceBalanced, RTCDtxStatus(..),- js_RTCDtxStatusDisabled, js_RTCDtxStatusEnabled,- RTCPriorityType(..), js_RTCPriorityTypeVeryLow,- js_RTCPriorityTypeLow, js_RTCPriorityTypeMedium,- js_RTCPriorityTypeHigh, RTCRtpTransceiverDirection(..),- js_RTCRtpTransceiverDirectionSendrecv,- js_RTCRtpTransceiverDirectionSendonly,- js_RTCRtpTransceiverDirectionRecvonly,- js_RTCRtpTransceiverDirectionInactive, RTCSdpType(..),- js_RTCSdpTypeOffer, js_RTCSdpTypePranswer, js_RTCSdpTypeAnswer,- js_RTCSdpTypeRollback, RTCSignalingState(..),- js_RTCSignalingStateStable, js_RTCSignalingStateHaveLocalOffer,- js_RTCSignalingStateHaveRemoteOffer,- js_RTCSignalingStateHaveLocalPranswer,- js_RTCSignalingStateHaveRemotePranswer, RTCStatsType(..),- js_RTCStatsTypeCodec, js_RTCStatsTypeInboundRtp,- js_RTCStatsTypeOutboundRtp, js_RTCStatsTypePeerConnection,- js_RTCStatsTypeDataChannel, js_RTCStatsTypeTrack,- js_RTCStatsTypeTransport, js_RTCStatsTypeCandidatePair,- js_RTCStatsTypeLocalCandidate, js_RTCStatsTypeRemoteCandidate,- js_RTCStatsTypeCertificate, NotificationDirection(..),- js_NotificationDirectionAuto, js_NotificationDirectionLtr,- js_NotificationDirectionRtl, AudioContextState(..),- js_AudioContextStateSuspended, js_AudioContextStateRunning,- js_AudioContextStateInterrupted, js_AudioContextStateClosed,- BiquadFilterType(..), js_BiquadFilterTypeLowpass,- js_BiquadFilterTypeHighpass, js_BiquadFilterTypeBandpass,- js_BiquadFilterTypeLowshelf, js_BiquadFilterTypeHighshelf,- js_BiquadFilterTypePeaking, js_BiquadFilterTypeNotch,- js_BiquadFilterTypeAllpass, OscillatorType(..),- js_OscillatorTypeSine, js_OscillatorTypeSquare,- js_OscillatorTypeSawtooth, js_OscillatorTypeTriangle,- js_OscillatorTypeCustom, PanningModelType(..),- js_PanningModelTypeEqualpower, js_PanningModelTypeHRTF,- DistanceModelType(..), js_DistanceModelTypeLinear,- js_DistanceModelTypeInverse, js_DistanceModelTypeExponential,- OverSampleType(..), js_OverSampleTypeNone, js_OverSampleType2x,- js_OverSampleType4x, ScrollRestoration(..),- js_ScrollRestorationAuto, js_ScrollRestorationManual,- XMLHttpRequestResponseType(..), js_XMLHttpRequestResponseType,- js_XMLHttpRequestResponseTypeArraybuffer,- js_XMLHttpRequestResponseTypeBlob,- js_XMLHttpRequestResponseTypeDocument,- js_XMLHttpRequestResponseTypeJson,- js_XMLHttpRequestResponseTypeText)- where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)-import qualified Prelude (error)-import Data.Typeable (Typeable)-import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull, jsUndefined)-import 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 ((<$>))- -data KeyType = KeyTypePublic- | KeyTypePrivate- | KeyTypeSecret- deriving (Show, Read, Eq, Ord, Typeable)- -instance PToJSVal KeyType where- pToJSVal KeyTypePublic = js_KeyTypePublic- pToJSVal KeyTypePrivate = js_KeyTypePrivate- pToJSVal KeyTypeSecret = js_KeyTypeSecret- -instance ToJSVal KeyType where- toJSVal = return . pToJSVal- -instance PFromJSVal KeyType where- pFromJSVal x | x `js_eq` js_KeyTypePublic = KeyTypePublic- pFromJSVal x | x `js_eq` js_KeyTypePrivate = KeyTypePrivate- pFromJSVal x | x `js_eq` js_KeyTypeSecret = KeyTypeSecret- -instance FromJSVal KeyType where- fromJSValUnchecked = return . pFromJSVal- fromJSVal = return . pFromJSVal- -foreign import javascript unsafe "(() => { return \"public\"; })" js_KeyTypePublic ::- JSVal- -foreign import javascript unsafe "(() => { return \"private\"; })" js_KeyTypePrivate ::- JSVal- -foreign import javascript unsafe "(() => { return \"secret\"; })" js_KeyTypeSecret ::- JSVal- -data CryptoKeyUsage = CryptoKeyUsageEncrypt- | CryptoKeyUsageDecrypt- | CryptoKeyUsageSign- | CryptoKeyUsageVerify- | CryptoKeyUsageDeriveKey- | CryptoKeyUsageDeriveBits- | CryptoKeyUsageWrapKey- | CryptoKeyUsageUnwrapKey- deriving (Show, Read, Eq, Ord, Typeable)- -instance PToJSVal CryptoKeyUsage where- pToJSVal CryptoKeyUsageEncrypt = js_CryptoKeyUsageEncrypt- pToJSVal CryptoKeyUsageDecrypt = js_CryptoKeyUsageDecrypt- pToJSVal CryptoKeyUsageSign = js_CryptoKeyUsageSign- pToJSVal CryptoKeyUsageVerify = js_CryptoKeyUsageVerify- pToJSVal CryptoKeyUsageDeriveKey = js_CryptoKeyUsageDeriveKey- pToJSVal CryptoKeyUsageDeriveBits = js_CryptoKeyUsageDeriveBits- pToJSVal CryptoKeyUsageWrapKey = js_CryptoKeyUsageWrapKey- pToJSVal CryptoKeyUsageUnwrapKey = js_CryptoKeyUsageUnwrapKey- -instance ToJSVal CryptoKeyUsage where- toJSVal = return . pToJSVal- -instance PFromJSVal CryptoKeyUsage where- pFromJSVal x- | x `js_eq` js_CryptoKeyUsageEncrypt = CryptoKeyUsageEncrypt- pFromJSVal x- | x `js_eq` js_CryptoKeyUsageDecrypt = CryptoKeyUsageDecrypt- pFromJSVal x | x `js_eq` js_CryptoKeyUsageSign = CryptoKeyUsageSign- pFromJSVal x- | x `js_eq` js_CryptoKeyUsageVerify = CryptoKeyUsageVerify- pFromJSVal x- | x `js_eq` js_CryptoKeyUsageDeriveKey = CryptoKeyUsageDeriveKey- pFromJSVal x- | x `js_eq` js_CryptoKeyUsageDeriveBits = CryptoKeyUsageDeriveBits- pFromJSVal x- | x `js_eq` js_CryptoKeyUsageWrapKey = CryptoKeyUsageWrapKey- pFromJSVal x- | x `js_eq` js_CryptoKeyUsageUnwrapKey = CryptoKeyUsageUnwrapKey- -instance FromJSVal CryptoKeyUsage where- fromJSValUnchecked = return . pFromJSVal- fromJSVal = return . pFromJSVal- -foreign import javascript unsafe "(() => { return \"encrypt\"; })"- js_CryptoKeyUsageEncrypt :: JSVal- -foreign import javascript unsafe "(() => { return \"decrypt\"; })"- js_CryptoKeyUsageDecrypt :: JSVal- -foreign import javascript unsafe "(() => { return \"sign\"; })" js_CryptoKeyUsageSign- :: JSVal- -foreign import javascript unsafe "(() => { return \"verify\"; })"- js_CryptoKeyUsageVerify :: JSVal- -foreign import javascript unsafe "(() => { return \"deriveKey\"; })"- js_CryptoKeyUsageDeriveKey :: JSVal- -foreign import javascript unsafe "(() => { return \"deriveBits\"; })"- js_CryptoKeyUsageDeriveBits :: JSVal- -foreign import javascript unsafe "(() => { return \"wrapKey\"; })"- js_CryptoKeyUsageWrapKey :: JSVal- -foreign import javascript unsafe "(() => { return \"unwrapKey\"; })"- js_CryptoKeyUsageUnwrapKey :: JSVal- -data KeyFormat = KeyFormatRaw- | KeyFormatSpki- | KeyFormatPkcs8- | KeyFormatJwk- deriving (Show, Read, Eq, Ord, Typeable)- -instance PToJSVal KeyFormat where- pToJSVal KeyFormatRaw = js_KeyFormatRaw- pToJSVal KeyFormatSpki = js_KeyFormatSpki- pToJSVal KeyFormatPkcs8 = js_KeyFormatPkcs8- pToJSVal KeyFormatJwk = js_KeyFormatJwk- -instance ToJSVal KeyFormat where- toJSVal = return . pToJSVal- -instance PFromJSVal KeyFormat where- pFromJSVal x | x `js_eq` js_KeyFormatRaw = KeyFormatRaw- pFromJSVal x | x `js_eq` js_KeyFormatSpki = KeyFormatSpki- pFromJSVal x | x `js_eq` js_KeyFormatPkcs8 = KeyFormatPkcs8- pFromJSVal x | x `js_eq` js_KeyFormatJwk = KeyFormatJwk- -instance FromJSVal KeyFormat where- fromJSValUnchecked = return . pFromJSVal- fromJSVal = return . pFromJSVal- -foreign import javascript unsafe "(() => { return \"raw\"; })" js_KeyFormatRaw :: JSVal- -foreign import javascript unsafe "(() => { return \"spki\"; })" js_KeyFormatSpki ::- JSVal- -foreign import javascript unsafe "(() => { return \"pkcs8\"; })" js_KeyFormatPkcs8 ::- JSVal- -foreign import javascript unsafe "(() => { return \"jwk\"; })" js_KeyFormatJwk :: JSVal- -data FontFaceLoadStatus = FontFaceLoadStatusUnloaded- | FontFaceLoadStatusLoading- | FontFaceLoadStatusLoaded- | FontFaceLoadStatusError- deriving (Show, Read, Eq, Ord, Typeable)- -instance PToJSVal FontFaceLoadStatus where- pToJSVal FontFaceLoadStatusUnloaded = js_FontFaceLoadStatusUnloaded- pToJSVal FontFaceLoadStatusLoading = js_FontFaceLoadStatusLoading- pToJSVal FontFaceLoadStatusLoaded = js_FontFaceLoadStatusLoaded- pToJSVal FontFaceLoadStatusError = js_FontFaceLoadStatusError- -instance ToJSVal FontFaceLoadStatus where- toJSVal = return . pToJSVal- -instance PFromJSVal FontFaceLoadStatus where- pFromJSVal x- | x `js_eq` js_FontFaceLoadStatusUnloaded =- FontFaceLoadStatusUnloaded- pFromJSVal x- | x `js_eq` js_FontFaceLoadStatusLoading =- FontFaceLoadStatusLoading- pFromJSVal x- | x `js_eq` js_FontFaceLoadStatusLoaded = FontFaceLoadStatusLoaded- pFromJSVal x- | x `js_eq` js_FontFaceLoadStatusError = FontFaceLoadStatusError- -instance FromJSVal FontFaceLoadStatus where- fromJSValUnchecked = return . pFromJSVal- fromJSVal = return . pFromJSVal- -foreign import javascript unsafe "(() => { return \"unloaded\"; })"- js_FontFaceLoadStatusUnloaded :: JSVal- -foreign import javascript unsafe "(() => { return \"loading\"; })"- js_FontFaceLoadStatusLoading :: JSVal- -foreign import javascript unsafe "(() => { return \"loaded\"; })"- js_FontFaceLoadStatusLoaded :: JSVal- -foreign import javascript unsafe "(() => { return \"error\"; })"- js_FontFaceLoadStatusError :: JSVal- -data FontFaceSetLoadStatus = FontFaceSetLoadStatusLoading- | FontFaceSetLoadStatusLoaded- deriving (Show, Read, Eq, Ord, Typeable)- -instance PToJSVal FontFaceSetLoadStatus where- pToJSVal FontFaceSetLoadStatusLoading- = js_FontFaceSetLoadStatusLoading- pToJSVal FontFaceSetLoadStatusLoaded- = js_FontFaceSetLoadStatusLoaded- -instance ToJSVal FontFaceSetLoadStatus where- toJSVal = return . pToJSVal- -instance PFromJSVal FontFaceSetLoadStatus where- pFromJSVal x- | x `js_eq` js_FontFaceSetLoadStatusLoading =- FontFaceSetLoadStatusLoading- pFromJSVal x- | x `js_eq` js_FontFaceSetLoadStatusLoaded =- FontFaceSetLoadStatusLoaded- -instance FromJSVal FontFaceSetLoadStatus where- fromJSValUnchecked = return . pFromJSVal- fromJSVal = return . pFromJSVal- -foreign import javascript unsafe "(() => { return \"loading\"; })"- js_FontFaceSetLoadStatusLoading :: JSVal- -foreign import javascript unsafe "(() => { return \"loaded\"; })"- js_FontFaceSetLoadStatusLoaded :: JSVal- -data VisibilityState = VisibilityStateHidden- | VisibilityStateVisible- | VisibilityStatePrerender- deriving (Show, Read, Eq, Ord, Typeable)- -instance PToJSVal VisibilityState where- pToJSVal VisibilityStateHidden = js_VisibilityStateHidden- pToJSVal VisibilityStateVisible = js_VisibilityStateVisible- pToJSVal VisibilityStatePrerender = js_VisibilityStatePrerender- -instance ToJSVal VisibilityState where- toJSVal = return . pToJSVal- -instance PFromJSVal VisibilityState where- pFromJSVal x- | x `js_eq` js_VisibilityStateHidden = VisibilityStateHidden- pFromJSVal x- | x `js_eq` js_VisibilityStateVisible = VisibilityStateVisible- pFromJSVal x- | x `js_eq` js_VisibilityStatePrerender = VisibilityStatePrerender- -instance FromJSVal VisibilityState where- fromJSValUnchecked = return . pFromJSVal- fromJSVal = return . pFromJSVal- -foreign import javascript unsafe "(() => { return \"hidden\"; })"- js_VisibilityStateHidden :: JSVal- -foreign import javascript unsafe "(() => { return \"visible\"; })"- js_VisibilityStateVisible :: JSVal- -foreign import javascript unsafe "(() => { return \"prerender\"; })"- js_VisibilityStatePrerender :: JSVal- -data DocumentReadyState = DocumentReadyStateLoading- | DocumentReadyStateInteractive- | DocumentReadyStateComplete- deriving (Show, Read, Eq, Ord, Typeable)- -instance PToJSVal DocumentReadyState where- pToJSVal DocumentReadyStateLoading = js_DocumentReadyStateLoading- pToJSVal DocumentReadyStateInteractive- = js_DocumentReadyStateInteractive- pToJSVal DocumentReadyStateComplete = js_DocumentReadyStateComplete- -instance ToJSVal DocumentReadyState where- toJSVal = return . pToJSVal- -instance PFromJSVal DocumentReadyState where- pFromJSVal x- | x `js_eq` js_DocumentReadyStateLoading =- DocumentReadyStateLoading- pFromJSVal x- | x `js_eq` js_DocumentReadyStateInteractive =- DocumentReadyStateInteractive- pFromJSVal x- | x `js_eq` js_DocumentReadyStateComplete =- DocumentReadyStateComplete- -instance FromJSVal DocumentReadyState where- fromJSValUnchecked = return . pFromJSVal- fromJSVal = return . pFromJSVal- -foreign import javascript unsafe "(() => { return \"loading\"; })"- js_DocumentReadyStateLoading :: JSVal- -foreign import javascript unsafe "(() => { return \"interactive\"; })"- js_DocumentReadyStateInteractive :: JSVal- -foreign import javascript unsafe "(() => { return \"complete\"; })"- js_DocumentReadyStateComplete :: JSVal- -data ShadowRootMode = ShadowRootModeUserAgent- | ShadowRootModeClosed- | ShadowRootModeOpen- deriving (Show, Read, Eq, Ord, Typeable)- -instance PToJSVal ShadowRootMode where- pToJSVal ShadowRootModeUserAgent = js_ShadowRootModeUserAgent- pToJSVal ShadowRootModeClosed = js_ShadowRootModeClosed- pToJSVal ShadowRootModeOpen = js_ShadowRootModeOpen- -instance ToJSVal ShadowRootMode where- toJSVal = return . pToJSVal- -instance PFromJSVal ShadowRootMode where- pFromJSVal x- | x `js_eq` js_ShadowRootModeUserAgent = ShadowRootModeUserAgent- pFromJSVal x- | x `js_eq` js_ShadowRootModeClosed = ShadowRootModeClosed- pFromJSVal x | x `js_eq` js_ShadowRootModeOpen = ShadowRootModeOpen- -instance FromJSVal ShadowRootMode where- fromJSValUnchecked = return . pFromJSVal- fromJSVal = return . pFromJSVal- -foreign import javascript unsafe "(() => { return \"user-agent\"; })"- js_ShadowRootModeUserAgent :: JSVal- -foreign import javascript unsafe "(() => { return \"closed\"; })"- js_ShadowRootModeClosed :: JSVal- -foreign import javascript unsafe "(() => { return \"open\"; })" js_ShadowRootModeOpen- :: JSVal- -data BlobLineEndings = BlobLineEndingsTransparent- | BlobLineEndingsNative- deriving (Show, Read, Eq, Ord, Typeable)- -instance PToJSVal BlobLineEndings where- pToJSVal BlobLineEndingsTransparent = js_BlobLineEndingsTransparent- pToJSVal BlobLineEndingsNative = js_BlobLineEndingsNative- -instance ToJSVal BlobLineEndings where- toJSVal = return . pToJSVal- -instance PFromJSVal BlobLineEndings where- pFromJSVal x- | x `js_eq` js_BlobLineEndingsTransparent =- BlobLineEndingsTransparent- pFromJSVal x- | x `js_eq` js_BlobLineEndingsNative = BlobLineEndingsNative- -instance FromJSVal BlobLineEndings where- fromJSValUnchecked = return . pFromJSVal- fromJSVal = return . pFromJSVal- -foreign import javascript unsafe "(() => { return \"transparent\"; })"- js_BlobLineEndingsTransparent :: JSVal- -foreign import javascript unsafe "(() => { return \"native\"; })"- js_BlobLineEndingsNative :: JSVal- -data ImageSmoothingQuality = ImageSmoothingQualityLow- | ImageSmoothingQualityMedium- | ImageSmoothingQualityHigh- deriving (Show, Read, Eq, Ord, Typeable)- -instance PToJSVal ImageSmoothingQuality where- pToJSVal ImageSmoothingQualityLow = js_ImageSmoothingQualityLow- pToJSVal ImageSmoothingQualityMedium- = js_ImageSmoothingQualityMedium- pToJSVal ImageSmoothingQualityHigh = js_ImageSmoothingQualityHigh- -instance ToJSVal ImageSmoothingQuality where- toJSVal = return . pToJSVal- -instance PFromJSVal ImageSmoothingQuality where- pFromJSVal x- | x `js_eq` js_ImageSmoothingQualityLow = ImageSmoothingQualityLow- pFromJSVal x- | x `js_eq` js_ImageSmoothingQualityMedium =- ImageSmoothingQualityMedium- pFromJSVal x- | x `js_eq` js_ImageSmoothingQualityHigh =- ImageSmoothingQualityHigh- -instance FromJSVal ImageSmoothingQuality where- fromJSValUnchecked = return . pFromJSVal- fromJSVal = return . pFromJSVal- -foreign import javascript unsafe "(() => { return \"low\"; })"- js_ImageSmoothingQualityLow :: JSVal- -foreign import javascript unsafe "(() => { return \"medium\"; })"- js_ImageSmoothingQualityMedium :: JSVal- -foreign import javascript unsafe "(() => { return \"high\"; })"- js_ImageSmoothingQualityHigh :: JSVal- -data CanvasWindingRule = CanvasWindingRuleNonzero- | CanvasWindingRuleEvenodd- deriving (Show, Read, Eq, Ord, Typeable)- -instance PToJSVal CanvasWindingRule where- pToJSVal CanvasWindingRuleNonzero = js_CanvasWindingRuleNonzero- pToJSVal CanvasWindingRuleEvenodd = js_CanvasWindingRuleEvenodd- -instance ToJSVal CanvasWindingRule where- toJSVal = return . pToJSVal- -instance PFromJSVal CanvasWindingRule where- pFromJSVal x- | x `js_eq` js_CanvasWindingRuleNonzero = CanvasWindingRuleNonzero- pFromJSVal x- | x `js_eq` js_CanvasWindingRuleEvenodd = CanvasWindingRuleEvenodd- -instance FromJSVal CanvasWindingRule where- fromJSValUnchecked = return . pFromJSVal- fromJSVal = return . pFromJSVal- -foreign import javascript unsafe "(() => { return \"nonzero\"; })"- js_CanvasWindingRuleNonzero :: JSVal- -foreign import javascript unsafe "(() => { return \"evenodd\"; })"- js_CanvasWindingRuleEvenodd :: JSVal- -data WebGLPowerPreference = WebGLPowerPreferenceDefault- | WebGLPowerPreferenceLowPower- | WebGLPowerPreferenceHighPerformance- deriving (Show, Read, Eq, Ord, Typeable)- -instance PToJSVal WebGLPowerPreference where- pToJSVal WebGLPowerPreferenceDefault- = js_WebGLPowerPreferenceDefault- pToJSVal WebGLPowerPreferenceLowPower- = js_WebGLPowerPreferenceLowPower- pToJSVal WebGLPowerPreferenceHighPerformance- = js_WebGLPowerPreferenceHighPerformance- -instance ToJSVal WebGLPowerPreference where- toJSVal = return . pToJSVal- -instance PFromJSVal WebGLPowerPreference where- pFromJSVal x- | x `js_eq` js_WebGLPowerPreferenceDefault =- WebGLPowerPreferenceDefault- pFromJSVal x- | x `js_eq` js_WebGLPowerPreferenceLowPower =- WebGLPowerPreferenceLowPower- pFromJSVal x- | x `js_eq` js_WebGLPowerPreferenceHighPerformance =- WebGLPowerPreferenceHighPerformance- -instance FromJSVal WebGLPowerPreference where- fromJSValUnchecked = return . pFromJSVal- fromJSVal = return . pFromJSVal- -foreign import javascript unsafe "(() => { return \"default\"; })"- js_WebGLPowerPreferenceDefault :: JSVal- -foreign import javascript unsafe "(() => { return \"low-power\"; })"- js_WebGLPowerPreferenceLowPower :: JSVal- -foreign import javascript unsafe "(() => { return \"high-performance\"; })"- js_WebGLPowerPreferenceHighPerformance :: JSVal- -data WebGPUCompareFunction = WebGPUCompareFunctionNever- | WebGPUCompareFunctionLess- | WebGPUCompareFunctionEqual- | WebGPUCompareFunctionLessequal- | WebGPUCompareFunctionGreater- | WebGPUCompareFunctionNotequal- | WebGPUCompareFunctionGreaterequal- | WebGPUCompareFunctionAlways- deriving (Show, Read, Eq, Ord, Typeable)- -instance PToJSVal WebGPUCompareFunction where- pToJSVal WebGPUCompareFunctionNever = js_WebGPUCompareFunctionNever- pToJSVal WebGPUCompareFunctionLess = js_WebGPUCompareFunctionLess- pToJSVal WebGPUCompareFunctionEqual = js_WebGPUCompareFunctionEqual- pToJSVal WebGPUCompareFunctionLessequal- = js_WebGPUCompareFunctionLessequal- pToJSVal WebGPUCompareFunctionGreater- = js_WebGPUCompareFunctionGreater- pToJSVal WebGPUCompareFunctionNotequal- = js_WebGPUCompareFunctionNotequal- pToJSVal WebGPUCompareFunctionGreaterequal- = js_WebGPUCompareFunctionGreaterequal- pToJSVal WebGPUCompareFunctionAlways- = js_WebGPUCompareFunctionAlways- -instance ToJSVal WebGPUCompareFunction where- toJSVal = return . pToJSVal- -instance PFromJSVal WebGPUCompareFunction where- pFromJSVal x- | x `js_eq` js_WebGPUCompareFunctionNever =- WebGPUCompareFunctionNever- pFromJSVal x- | x `js_eq` js_WebGPUCompareFunctionLess =- WebGPUCompareFunctionLess- pFromJSVal x- | x `js_eq` js_WebGPUCompareFunctionEqual =- WebGPUCompareFunctionEqual- pFromJSVal x- | x `js_eq` js_WebGPUCompareFunctionLessequal =- WebGPUCompareFunctionLessequal- pFromJSVal x- | x `js_eq` js_WebGPUCompareFunctionGreater =- WebGPUCompareFunctionGreater- pFromJSVal x- | x `js_eq` js_WebGPUCompareFunctionNotequal =- WebGPUCompareFunctionNotequal- pFromJSVal x- | x `js_eq` js_WebGPUCompareFunctionGreaterequal =- WebGPUCompareFunctionGreaterequal- pFromJSVal x- | x `js_eq` js_WebGPUCompareFunctionAlways =- WebGPUCompareFunctionAlways- -instance FromJSVal WebGPUCompareFunction where- fromJSValUnchecked = return . pFromJSVal- fromJSVal = return . pFromJSVal- -foreign import javascript unsafe "(() => { return \"never\"; })"- js_WebGPUCompareFunctionNever :: JSVal- -foreign import javascript unsafe "(() => { return \"less\"; })"- js_WebGPUCompareFunctionLess :: JSVal- -foreign import javascript unsafe "(() => { return \"equal\"; })"- js_WebGPUCompareFunctionEqual :: JSVal- -foreign import javascript unsafe "(() => { return \"lessequal\"; })"- js_WebGPUCompareFunctionLessequal :: JSVal- -foreign import javascript unsafe "(() => { return \"greater\"; })"- js_WebGPUCompareFunctionGreater :: JSVal- -foreign import javascript unsafe "(() => { return \"notequal\"; })"- js_WebGPUCompareFunctionNotequal :: JSVal- -foreign import javascript unsafe "(() => { return \"greaterequal\"; })"- js_WebGPUCompareFunctionGreaterequal :: JSVal- -foreign import javascript unsafe "(() => { return \"always\"; })"- js_WebGPUCompareFunctionAlways :: JSVal- -data WebGPUPixelFormat = WebGPUPixelFormatBGRA8Unorm- deriving (Show, Read, Eq, Ord, Typeable)- -instance PToJSVal WebGPUPixelFormat where- pToJSVal WebGPUPixelFormatBGRA8Unorm- = js_WebGPUPixelFormatBGRA8Unorm- -instance ToJSVal WebGPUPixelFormat where- toJSVal = return . pToJSVal- -instance PFromJSVal WebGPUPixelFormat where- pFromJSVal x- | x `js_eq` js_WebGPUPixelFormatBGRA8Unorm =- WebGPUPixelFormatBGRA8Unorm- -instance FromJSVal WebGPUPixelFormat where- fromJSValUnchecked = return . pFromJSVal- fromJSVal = return . pFromJSVal- -foreign import javascript unsafe "(() => { return \"BGRA8Unorm\"; })"- js_WebGPUPixelFormatBGRA8Unorm :: JSVal- -data WebGPULoadAction = WebGPULoadActionDontcare- | WebGPULoadActionLoad- | WebGPULoadActionClear- deriving (Show, Read, Eq, Ord, Typeable)- -instance PToJSVal WebGPULoadAction where- pToJSVal WebGPULoadActionDontcare = js_WebGPULoadActionDontcare- pToJSVal WebGPULoadActionLoad = js_WebGPULoadActionLoad- pToJSVal WebGPULoadActionClear = js_WebGPULoadActionClear- -instance ToJSVal WebGPULoadAction where- toJSVal = return . pToJSVal- -instance PFromJSVal WebGPULoadAction where- pFromJSVal x- | x `js_eq` js_WebGPULoadActionDontcare = WebGPULoadActionDontcare- pFromJSVal x- | x `js_eq` js_WebGPULoadActionLoad = WebGPULoadActionLoad- pFromJSVal x- | x `js_eq` js_WebGPULoadActionClear = WebGPULoadActionClear- -instance FromJSVal WebGPULoadAction where- fromJSValUnchecked = return . pFromJSVal- fromJSVal = return . pFromJSVal- -foreign import javascript unsafe "(() => { return \"dontcare\"; })"- js_WebGPULoadActionDontcare :: JSVal- -foreign import javascript unsafe "(() => { return \"load\"; })" js_WebGPULoadActionLoad- :: JSVal- -foreign import javascript unsafe "(() => { return \"clear\"; })"- js_WebGPULoadActionClear :: JSVal- -data WebGPUStoreAction = WebGPUStoreActionDontcare- | WebGPUStoreActionStore- | WebGPUStoreActionMultisampleresolve- deriving (Show, Read, Eq, Ord, Typeable)- -instance PToJSVal WebGPUStoreAction where- pToJSVal WebGPUStoreActionDontcare = js_WebGPUStoreActionDontcare- pToJSVal WebGPUStoreActionStore = js_WebGPUStoreActionStore- pToJSVal WebGPUStoreActionMultisampleresolve- = js_WebGPUStoreActionMultisampleresolve- -instance ToJSVal WebGPUStoreAction where- toJSVal = return . pToJSVal- -instance PFromJSVal WebGPUStoreAction where- pFromJSVal x- | x `js_eq` js_WebGPUStoreActionDontcare =- WebGPUStoreActionDontcare- pFromJSVal x- | x `js_eq` js_WebGPUStoreActionStore = WebGPUStoreActionStore- pFromJSVal x- | x `js_eq` js_WebGPUStoreActionMultisampleresolve =- WebGPUStoreActionMultisampleresolve- -instance FromJSVal WebGPUStoreAction where- fromJSValUnchecked = return . pFromJSVal- fromJSVal = return . pFromJSVal- -foreign import javascript unsafe "(() => { return \"dontcare\"; })"- js_WebGPUStoreActionDontcare :: JSVal- -foreign import javascript unsafe "(() => { return \"store\"; })"- js_WebGPUStoreActionStore :: JSVal- -foreign import javascript unsafe "(() => { return \"multisampleresolve\"; })"- js_WebGPUStoreActionMultisampleresolve :: JSVal- -data WebGPUPrimitiveType = WebGPUPrimitiveTypePoint- | WebGPUPrimitiveTypeLine- | WebGPUPrimitiveTypeLinestrip- | WebGPUPrimitiveTypeTriangle- | WebGPUPrimitiveTypeTrianglestrip- deriving (Show, Read, Eq, Ord, Typeable)- -instance PToJSVal WebGPUPrimitiveType where- pToJSVal WebGPUPrimitiveTypePoint = js_WebGPUPrimitiveTypePoint- pToJSVal WebGPUPrimitiveTypeLine = js_WebGPUPrimitiveTypeLine- pToJSVal WebGPUPrimitiveTypeLinestrip- = js_WebGPUPrimitiveTypeLinestrip- pToJSVal WebGPUPrimitiveTypeTriangle- = js_WebGPUPrimitiveTypeTriangle- pToJSVal WebGPUPrimitiveTypeTrianglestrip- = js_WebGPUPrimitiveTypeTrianglestrip- -instance ToJSVal WebGPUPrimitiveType where- toJSVal = return . pToJSVal- -instance PFromJSVal WebGPUPrimitiveType where- pFromJSVal x- | x `js_eq` js_WebGPUPrimitiveTypePoint = WebGPUPrimitiveTypePoint- pFromJSVal x- | x `js_eq` js_WebGPUPrimitiveTypeLine = WebGPUPrimitiveTypeLine- pFromJSVal x- | x `js_eq` js_WebGPUPrimitiveTypeLinestrip =- WebGPUPrimitiveTypeLinestrip- pFromJSVal x- | x `js_eq` js_WebGPUPrimitiveTypeTriangle =- WebGPUPrimitiveTypeTriangle- pFromJSVal x- | x `js_eq` js_WebGPUPrimitiveTypeTrianglestrip =- WebGPUPrimitiveTypeTrianglestrip- -instance FromJSVal WebGPUPrimitiveType where- fromJSValUnchecked = return . pFromJSVal- fromJSVal = return . pFromJSVal- -foreign import javascript unsafe "(() => { return \"point\"; })"- js_WebGPUPrimitiveTypePoint :: JSVal- -foreign import javascript unsafe "(() => { return \"line\"; })"- js_WebGPUPrimitiveTypeLine :: JSVal- -foreign import javascript unsafe "(() => { return \"linestrip\"; })"- js_WebGPUPrimitiveTypeLinestrip :: JSVal- -foreign import javascript unsafe "(() => { return \"triangle\"; })"- js_WebGPUPrimitiveTypeTriangle :: JSVal- -foreign import javascript unsafe "(() => { return \"trianglestrip\"; })"- js_WebGPUPrimitiveTypeTrianglestrip :: JSVal- -data WebGPUFunctionType = WebGPUFunctionTypeFragment- | WebGPUFunctionTypeVertex- deriving (Show, Read, Eq, Ord, Typeable)- -instance PToJSVal WebGPUFunctionType where- pToJSVal WebGPUFunctionTypeFragment = js_WebGPUFunctionTypeFragment- pToJSVal WebGPUFunctionTypeVertex = js_WebGPUFunctionTypeVertex- -instance ToJSVal WebGPUFunctionType where- toJSVal = return . pToJSVal- -instance PFromJSVal WebGPUFunctionType where- pFromJSVal x- | x `js_eq` js_WebGPUFunctionTypeFragment =- WebGPUFunctionTypeFragment- pFromJSVal x- | x `js_eq` js_WebGPUFunctionTypeVertex = WebGPUFunctionTypeVertex- -instance FromJSVal WebGPUFunctionType where- fromJSValUnchecked = return . pFromJSVal- fromJSVal = return . pFromJSVal- -foreign import javascript unsafe "(() => { return \"fragment\"; })"- js_WebGPUFunctionTypeFragment :: JSVal- -foreign import javascript unsafe "(() => { return \"vertex\"; })"- js_WebGPUFunctionTypeVertex :: JSVal- -data WebGPUStencilOperation = WebGPUStencilOperationKeep- | WebGPUStencilOperationZero- | WebGPUStencilOperationReplace- | WebGPUStencilOperationIncrementclamp- | WebGPUStencilOperationDecrementclamp- | WebGPUStencilOperationInvert- | WebGPUStencilOperationIncrementwrap- | WebGPUStencilOperationDecrementwrap- deriving (Show, Read, Eq, Ord, Typeable)- -instance PToJSVal WebGPUStencilOperation where- pToJSVal WebGPUStencilOperationKeep = js_WebGPUStencilOperationKeep- pToJSVal WebGPUStencilOperationZero = js_WebGPUStencilOperationZero- pToJSVal WebGPUStencilOperationReplace- = js_WebGPUStencilOperationReplace- pToJSVal WebGPUStencilOperationIncrementclamp- = js_WebGPUStencilOperationIncrementclamp- pToJSVal WebGPUStencilOperationDecrementclamp- = js_WebGPUStencilOperationDecrementclamp- pToJSVal WebGPUStencilOperationInvert- = js_WebGPUStencilOperationInvert- pToJSVal WebGPUStencilOperationIncrementwrap- = js_WebGPUStencilOperationIncrementwrap- pToJSVal WebGPUStencilOperationDecrementwrap- = js_WebGPUStencilOperationDecrementwrap- -instance ToJSVal WebGPUStencilOperation where- toJSVal = return . pToJSVal- -instance PFromJSVal WebGPUStencilOperation where- pFromJSVal x- | x `js_eq` js_WebGPUStencilOperationKeep =- WebGPUStencilOperationKeep- pFromJSVal x- | x `js_eq` js_WebGPUStencilOperationZero =- WebGPUStencilOperationZero- pFromJSVal x- | x `js_eq` js_WebGPUStencilOperationReplace =- WebGPUStencilOperationReplace- pFromJSVal x- | x `js_eq` js_WebGPUStencilOperationIncrementclamp =- WebGPUStencilOperationIncrementclamp- pFromJSVal x- | x `js_eq` js_WebGPUStencilOperationDecrementclamp =- WebGPUStencilOperationDecrementclamp- pFromJSVal x- | x `js_eq` js_WebGPUStencilOperationInvert =- WebGPUStencilOperationInvert- pFromJSVal x- | x `js_eq` js_WebGPUStencilOperationIncrementwrap =- WebGPUStencilOperationIncrementwrap- pFromJSVal x- | x `js_eq` js_WebGPUStencilOperationDecrementwrap =- WebGPUStencilOperationDecrementwrap- -instance FromJSVal WebGPUStencilOperation where- fromJSValUnchecked = return . pFromJSVal- fromJSVal = return . pFromJSVal- -foreign import javascript unsafe "(() => { return \"keep\"; })"- js_WebGPUStencilOperationKeep :: JSVal- -foreign import javascript unsafe "(() => { return \"zero\"; })"- js_WebGPUStencilOperationZero :: JSVal- -foreign import javascript unsafe "(() => { return \"replace\"; })"- js_WebGPUStencilOperationReplace :: JSVal- -foreign import javascript unsafe "(() => { return \"incrementclamp\"; })"- js_WebGPUStencilOperationIncrementclamp :: JSVal- -foreign import javascript unsafe "(() => { return \"decrementclamp\"; })"- js_WebGPUStencilOperationDecrementclamp :: JSVal- -foreign import javascript unsafe "(() => { return \"invert\"; })"- js_WebGPUStencilOperationInvert :: JSVal- -foreign import javascript unsafe "(() => { return \"incrementwrap\"; })"- js_WebGPUStencilOperationIncrementwrap :: JSVal- -foreign import javascript unsafe "(() => { return \"decrementwrap\"; })"- js_WebGPUStencilOperationDecrementwrap :: JSVal- -data WebGPUStatus = WebGPUStatusNotenqueued- | WebGPUStatusEnqueued- | WebGPUStatusCommitted- | WebGPUStatusScheduled- | WebGPUStatusCompleted- | WebGPUStatusError- deriving (Show, Read, Eq, Ord, Typeable)- -instance PToJSVal WebGPUStatus where- pToJSVal WebGPUStatusNotenqueued = js_WebGPUStatusNotenqueued- pToJSVal WebGPUStatusEnqueued = js_WebGPUStatusEnqueued- pToJSVal WebGPUStatusCommitted = js_WebGPUStatusCommitted- pToJSVal WebGPUStatusScheduled = js_WebGPUStatusScheduled- pToJSVal WebGPUStatusCompleted = js_WebGPUStatusCompleted- pToJSVal WebGPUStatusError = js_WebGPUStatusError- -instance ToJSVal WebGPUStatus where- toJSVal = return . pToJSVal- -instance PFromJSVal WebGPUStatus where- pFromJSVal x- | x `js_eq` js_WebGPUStatusNotenqueued = WebGPUStatusNotenqueued- pFromJSVal x- | x `js_eq` js_WebGPUStatusEnqueued = WebGPUStatusEnqueued- pFromJSVal x- | x `js_eq` js_WebGPUStatusCommitted = WebGPUStatusCommitted- pFromJSVal x- | x `js_eq` js_WebGPUStatusScheduled = WebGPUStatusScheduled- pFromJSVal x- | x `js_eq` js_WebGPUStatusCompleted = WebGPUStatusCompleted- pFromJSVal x | x `js_eq` js_WebGPUStatusError = WebGPUStatusError- -instance FromJSVal WebGPUStatus where- fromJSValUnchecked = return . pFromJSVal- fromJSVal = return . pFromJSVal- -foreign import javascript unsafe "(() => { return \"notenqueued\"; })"- js_WebGPUStatusNotenqueued :: JSVal- -foreign import javascript unsafe "(() => { return \"enqueued\"; })"- js_WebGPUStatusEnqueued :: JSVal- -foreign import javascript unsafe "(() => { return \"committed\"; })"- js_WebGPUStatusCommitted :: JSVal- -foreign import javascript unsafe "(() => { return \"scheduled\"; })"- js_WebGPUStatusScheduled :: JSVal- -foreign import javascript unsafe "(() => { return \"completed\"; })"- js_WebGPUStatusCompleted :: JSVal- -foreign import javascript unsafe "(() => { return \"error\"; })" js_WebGPUStatusError- :: JSVal- -data WebGPUSamplerAddressMode = WebGPUSamplerAddressModeClamptoedge- | WebGPUSamplerAddressModeMirrorclamptoedge- | WebGPUSamplerAddressModeRepeat- | WebGPUSamplerAddressModeMirrorrepeat- | WebGPUSamplerAddressModeClamptozero- deriving (Show, Read, Eq, Ord, Typeable)- -instance PToJSVal WebGPUSamplerAddressMode where- pToJSVal WebGPUSamplerAddressModeClamptoedge- = js_WebGPUSamplerAddressModeClamptoedge- pToJSVal WebGPUSamplerAddressModeMirrorclamptoedge- = js_WebGPUSamplerAddressModeMirrorclamptoedge- pToJSVal WebGPUSamplerAddressModeRepeat- = js_WebGPUSamplerAddressModeRepeat- pToJSVal WebGPUSamplerAddressModeMirrorrepeat- = js_WebGPUSamplerAddressModeMirrorrepeat- pToJSVal WebGPUSamplerAddressModeClamptozero- = js_WebGPUSamplerAddressModeClamptozero- -instance ToJSVal WebGPUSamplerAddressMode where- toJSVal = return . pToJSVal- -instance PFromJSVal WebGPUSamplerAddressMode where- pFromJSVal x- | x `js_eq` js_WebGPUSamplerAddressModeClamptoedge =- WebGPUSamplerAddressModeClamptoedge- pFromJSVal x- | x `js_eq` js_WebGPUSamplerAddressModeMirrorclamptoedge =- WebGPUSamplerAddressModeMirrorclamptoedge- pFromJSVal x- | x `js_eq` js_WebGPUSamplerAddressModeRepeat =- WebGPUSamplerAddressModeRepeat- pFromJSVal x- | x `js_eq` js_WebGPUSamplerAddressModeMirrorrepeat =- WebGPUSamplerAddressModeMirrorrepeat- pFromJSVal x- | x `js_eq` js_WebGPUSamplerAddressModeClamptozero =- WebGPUSamplerAddressModeClamptozero- -instance FromJSVal WebGPUSamplerAddressMode where- fromJSValUnchecked = return . pFromJSVal- fromJSVal = return . pFromJSVal- -foreign import javascript unsafe "(() => { return \"clamptoedge\"; })"- js_WebGPUSamplerAddressModeClamptoedge :: JSVal- -foreign import javascript unsafe "(() => { return \"mirrorclamptoedge\"; })"- js_WebGPUSamplerAddressModeMirrorclamptoedge :: JSVal- -foreign import javascript unsafe "(() => { return \"repeat\"; })"- js_WebGPUSamplerAddressModeRepeat :: JSVal- -foreign import javascript unsafe "(() => { return \"mirrorrepeat\"; })"- js_WebGPUSamplerAddressModeMirrorrepeat :: JSVal- -foreign import javascript unsafe "(() => { return \"clamptozero\"; })"- js_WebGPUSamplerAddressModeClamptozero :: JSVal- -data WebGPUSamplerMinMagFilter = WebGPUSamplerMinMagFilterNearest- | WebGPUSamplerMinMagFilterLinear- deriving (Show, Read, Eq, Ord, Typeable)- -instance PToJSVal WebGPUSamplerMinMagFilter where- pToJSVal WebGPUSamplerMinMagFilterNearest- = js_WebGPUSamplerMinMagFilterNearest- pToJSVal WebGPUSamplerMinMagFilterLinear- = js_WebGPUSamplerMinMagFilterLinear- -instance ToJSVal WebGPUSamplerMinMagFilter where- toJSVal = return . pToJSVal- -instance PFromJSVal WebGPUSamplerMinMagFilter where- pFromJSVal x- | x `js_eq` js_WebGPUSamplerMinMagFilterNearest =- WebGPUSamplerMinMagFilterNearest- pFromJSVal x- | x `js_eq` js_WebGPUSamplerMinMagFilterLinear =- WebGPUSamplerMinMagFilterLinear- -instance FromJSVal WebGPUSamplerMinMagFilter where- fromJSValUnchecked = return . pFromJSVal- fromJSVal = return . pFromJSVal- -foreign import javascript unsafe "(() => { return \"nearest\"; })"- js_WebGPUSamplerMinMagFilterNearest :: JSVal- -foreign import javascript unsafe "(() => { return \"linear\"; })"- js_WebGPUSamplerMinMagFilterLinear :: JSVal- -data WebGPUSamplerMipFilter = WebGPUSamplerMipFilterNotmipmapped- | WebGPUSamplerMipFilterNearest- | WebGPUSamplerMipFilterLinear- deriving (Show, Read, Eq, Ord, Typeable)- -instance PToJSVal WebGPUSamplerMipFilter where- pToJSVal WebGPUSamplerMipFilterNotmipmapped- = js_WebGPUSamplerMipFilterNotmipmapped- pToJSVal WebGPUSamplerMipFilterNearest- = js_WebGPUSamplerMipFilterNearest- pToJSVal WebGPUSamplerMipFilterLinear- = js_WebGPUSamplerMipFilterLinear- -instance ToJSVal WebGPUSamplerMipFilter where- toJSVal = return . pToJSVal- -instance PFromJSVal WebGPUSamplerMipFilter where- pFromJSVal x- | x `js_eq` js_WebGPUSamplerMipFilterNotmipmapped =- WebGPUSamplerMipFilterNotmipmapped- pFromJSVal x- | x `js_eq` js_WebGPUSamplerMipFilterNearest =- WebGPUSamplerMipFilterNearest- pFromJSVal x- | x `js_eq` js_WebGPUSamplerMipFilterLinear =- WebGPUSamplerMipFilterLinear- -instance FromJSVal WebGPUSamplerMipFilter where- fromJSValUnchecked = return . pFromJSVal- fromJSVal = return . pFromJSVal- -foreign import javascript unsafe "(() => { return \"notmipmapped\"; })"- js_WebGPUSamplerMipFilterNotmipmapped :: JSVal- -foreign import javascript unsafe "(() => { return \"nearest\"; })"- js_WebGPUSamplerMipFilterNearest :: JSVal- -foreign import javascript unsafe "(() => { return \"linear\"; })"- js_WebGPUSamplerMipFilterLinear :: JSVal- -data WebGPUCullMode = WebGPUCullModeNone- | WebGPUCullModeFront- | WebGPUCullModeBack- deriving (Show, Read, Eq, Ord, Typeable)- -instance PToJSVal WebGPUCullMode where- pToJSVal WebGPUCullModeNone = js_WebGPUCullModeNone- pToJSVal WebGPUCullModeFront = js_WebGPUCullModeFront- pToJSVal WebGPUCullModeBack = js_WebGPUCullModeBack- -instance ToJSVal WebGPUCullMode where- toJSVal = return . pToJSVal- -instance PFromJSVal WebGPUCullMode where- pFromJSVal x | x `js_eq` js_WebGPUCullModeNone = WebGPUCullModeNone- pFromJSVal x- | x `js_eq` js_WebGPUCullModeFront = WebGPUCullModeFront- pFromJSVal x | x `js_eq` js_WebGPUCullModeBack = WebGPUCullModeBack- -instance FromJSVal WebGPUCullMode where- fromJSValUnchecked = return . pFromJSVal- fromJSVal = return . pFromJSVal- -foreign import javascript unsafe "(() => { return \"none\"; })" js_WebGPUCullModeNone- :: JSVal- -foreign import javascript unsafe "(() => { return \"front\"; })" js_WebGPUCullModeFront- :: JSVal- -foreign import javascript unsafe "(() => { return \"back\"; })" js_WebGPUCullModeBack- :: JSVal- -data WebGPUIndexType = WebGPUIndexTypeUint16- | WebGPUIndexTypeUint32- deriving (Show, Read, Eq, Ord, Typeable)- -instance PToJSVal WebGPUIndexType where- pToJSVal WebGPUIndexTypeUint16 = js_WebGPUIndexTypeUint16- pToJSVal WebGPUIndexTypeUint32 = js_WebGPUIndexTypeUint32- -instance ToJSVal WebGPUIndexType where- toJSVal = return . pToJSVal- -instance PFromJSVal WebGPUIndexType where- pFromJSVal x- | x `js_eq` js_WebGPUIndexTypeUint16 = WebGPUIndexTypeUint16- pFromJSVal x- | x `js_eq` js_WebGPUIndexTypeUint32 = WebGPUIndexTypeUint32- -instance FromJSVal WebGPUIndexType where- fromJSValUnchecked = return . pFromJSVal- fromJSVal = return . pFromJSVal- -foreign import javascript unsafe "(() => { return \"uint16\"; })"- js_WebGPUIndexTypeUint16 :: JSVal- -foreign import javascript unsafe "(() => { return \"uint32\"; })"- js_WebGPUIndexTypeUint32 :: JSVal- -data WebGPUVisibilityResultMode = WebGPUVisibilityResultModeDisabled- | WebGPUVisibilityResultModeBoolean- | WebGPUVisibilityResultModeCounting- deriving (Show, Read, Eq, Ord, Typeable)- -instance PToJSVal WebGPUVisibilityResultMode where- pToJSVal WebGPUVisibilityResultModeDisabled- = js_WebGPUVisibilityResultModeDisabled- pToJSVal WebGPUVisibilityResultModeBoolean- = js_WebGPUVisibilityResultModeBoolean- pToJSVal WebGPUVisibilityResultModeCounting- = js_WebGPUVisibilityResultModeCounting- -instance ToJSVal WebGPUVisibilityResultMode where- toJSVal = return . pToJSVal- -instance PFromJSVal WebGPUVisibilityResultMode where- pFromJSVal x- | x `js_eq` js_WebGPUVisibilityResultModeDisabled =- WebGPUVisibilityResultModeDisabled- pFromJSVal x- | x `js_eq` js_WebGPUVisibilityResultModeBoolean =- WebGPUVisibilityResultModeBoolean- pFromJSVal x- | x `js_eq` js_WebGPUVisibilityResultModeCounting =- WebGPUVisibilityResultModeCounting- -instance FromJSVal WebGPUVisibilityResultMode where- fromJSValUnchecked = return . pFromJSVal- fromJSVal = return . pFromJSVal- -foreign import javascript unsafe "(() => { return \"disabled\"; })"- js_WebGPUVisibilityResultModeDisabled :: JSVal- -foreign import javascript unsafe "(() => { return \"boolean\"; })"- js_WebGPUVisibilityResultModeBoolean :: JSVal- -foreign import javascript unsafe "(() => { return \"counting\"; })"- js_WebGPUVisibilityResultModeCounting :: JSVal- -data WebGPUWinding = WebGPUWindingClockwise- | WebGPUWindingCounterclockwise- deriving (Show, Read, Eq, Ord, Typeable)- -instance PToJSVal WebGPUWinding where- pToJSVal WebGPUWindingClockwise = js_WebGPUWindingClockwise- pToJSVal WebGPUWindingCounterclockwise- = js_WebGPUWindingCounterclockwise- -instance ToJSVal WebGPUWinding where- toJSVal = return . pToJSVal- -instance PFromJSVal WebGPUWinding where- pFromJSVal x- | x `js_eq` js_WebGPUWindingClockwise = WebGPUWindingClockwise- pFromJSVal x- | x `js_eq` js_WebGPUWindingCounterclockwise =- WebGPUWindingCounterclockwise- -instance FromJSVal WebGPUWinding where- fromJSValUnchecked = return . pFromJSVal- fromJSVal = return . pFromJSVal- -foreign import javascript unsafe "(() => { return \"clockwise\"; })"- js_WebGPUWindingClockwise :: JSVal- -foreign import javascript unsafe "(() => { return \"counterclockwise\"; })"- js_WebGPUWindingCounterclockwise :: JSVal- -data WebGPUDepthClipMode = WebGPUDepthClipModeClip- | WebGPUDepthClipModeClamp- deriving (Show, Read, Eq, Ord, Typeable)- -instance PToJSVal WebGPUDepthClipMode where- pToJSVal WebGPUDepthClipModeClip = js_WebGPUDepthClipModeClip- pToJSVal WebGPUDepthClipModeClamp = js_WebGPUDepthClipModeClamp- -instance ToJSVal WebGPUDepthClipMode where- toJSVal = return . pToJSVal- -instance PFromJSVal WebGPUDepthClipMode where- pFromJSVal x- | x `js_eq` js_WebGPUDepthClipModeClip = WebGPUDepthClipModeClip- pFromJSVal x- | x `js_eq` js_WebGPUDepthClipModeClamp = WebGPUDepthClipModeClamp- -instance FromJSVal WebGPUDepthClipMode where- fromJSValUnchecked = return . pFromJSVal- fromJSVal = return . pFromJSVal- -foreign import javascript unsafe "(() => { return \"clip\"; })"- js_WebGPUDepthClipModeClip :: JSVal- -foreign import javascript unsafe "(() => { return \"clamp\"; })"- js_WebGPUDepthClipModeClamp :: JSVal- -data WebGPUTriangleFillMode = WebGPUTriangleFillModeFill- | WebGPUTriangleFillModeLines- deriving (Show, Read, Eq, Ord, Typeable)- -instance PToJSVal WebGPUTriangleFillMode where- pToJSVal WebGPUTriangleFillModeFill = js_WebGPUTriangleFillModeFill- pToJSVal WebGPUTriangleFillModeLines- = js_WebGPUTriangleFillModeLines- -instance ToJSVal WebGPUTriangleFillMode where- toJSVal = return . pToJSVal- -instance PFromJSVal WebGPUTriangleFillMode where- pFromJSVal x- | x `js_eq` js_WebGPUTriangleFillModeFill =- WebGPUTriangleFillModeFill- pFromJSVal x- | x `js_eq` js_WebGPUTriangleFillModeLines =- WebGPUTriangleFillModeLines- -instance FromJSVal WebGPUTriangleFillMode where- fromJSValUnchecked = return . pFromJSVal- fromJSVal = return . pFromJSVal- -foreign import javascript unsafe "(() => { return \"fill\"; })"- js_WebGPUTriangleFillModeFill :: JSVal- -foreign import javascript unsafe "(() => { return \"lines\"; })"- js_WebGPUTriangleFillModeLines :: JSVal- -data WebGPUCPUCacheMode = WebGPUCPUCacheModeDefaultcache- | WebGPUCPUCacheModeWritecombined- deriving (Show, Read, Eq, Ord, Typeable)- -instance PToJSVal WebGPUCPUCacheMode where- pToJSVal WebGPUCPUCacheModeDefaultcache- = js_WebGPUCPUCacheModeDefaultcache- pToJSVal WebGPUCPUCacheModeWritecombined- = js_WebGPUCPUCacheModeWritecombined- -instance ToJSVal WebGPUCPUCacheMode where- toJSVal = return . pToJSVal- -instance PFromJSVal WebGPUCPUCacheMode where- pFromJSVal x- | x `js_eq` js_WebGPUCPUCacheModeDefaultcache =- WebGPUCPUCacheModeDefaultcache- pFromJSVal x- | x `js_eq` js_WebGPUCPUCacheModeWritecombined =- WebGPUCPUCacheModeWritecombined- -instance FromJSVal WebGPUCPUCacheMode where- fromJSValUnchecked = return . pFromJSVal- fromJSVal = return . pFromJSVal- -foreign import javascript unsafe "(() => { return \"defaultcache\"; })"- js_WebGPUCPUCacheModeDefaultcache :: JSVal- -foreign import javascript unsafe "(() => { return \"writecombined\"; })"- js_WebGPUCPUCacheModeWritecombined :: JSVal- -data WebGPUStorageMode = WebGPUStorageModeShared- | WebGPUStorageModeManaged- | WebGPUStorageModePrivate- deriving (Show, Read, Eq, Ord, Typeable)- -instance PToJSVal WebGPUStorageMode where- pToJSVal WebGPUStorageModeShared = js_WebGPUStorageModeShared- pToJSVal WebGPUStorageModeManaged = js_WebGPUStorageModeManaged- pToJSVal WebGPUStorageModePrivate = js_WebGPUStorageModePrivate- -instance ToJSVal WebGPUStorageMode where- toJSVal = return . pToJSVal- -instance PFromJSVal WebGPUStorageMode where- pFromJSVal x- | x `js_eq` js_WebGPUStorageModeShared = WebGPUStorageModeShared- pFromJSVal x- | x `js_eq` js_WebGPUStorageModeManaged = WebGPUStorageModeManaged- pFromJSVal x- | x `js_eq` js_WebGPUStorageModePrivate = WebGPUStorageModePrivate- -instance FromJSVal WebGPUStorageMode where- fromJSValUnchecked = return . pFromJSVal- fromJSVal = return . pFromJSVal- -foreign import javascript unsafe "(() => { return \"shared\"; })"- js_WebGPUStorageModeShared :: JSVal- -foreign import javascript unsafe "(() => { return \"managed\"; })"- js_WebGPUStorageModeManaged :: JSVal- -foreign import javascript unsafe "(() => { return \"private\"; })"- js_WebGPUStorageModePrivate :: JSVal- -data WebGPUResourceOptions = WebGPUResourceOptionsCpucachemodedefaultcache- | WebGPUResourceOptionsCpucachemodewritecombined- | WebGPUResourceOptionsStoragemodeshared- | WebGPUResourceOptionsStoragemodemanaged- | WebGPUResourceOptionsStoragemodeprivate- | WebGPUResourceOptionsOptioncpucachemodedefaultcache- | WebGPUResourceOptionsOptioncpucachemodewritecombined- deriving (Show, Read, Eq, Ord, Typeable)- -instance PToJSVal WebGPUResourceOptions where- pToJSVal WebGPUResourceOptionsCpucachemodedefaultcache- = js_WebGPUResourceOptionsCpucachemodedefaultcache- pToJSVal WebGPUResourceOptionsCpucachemodewritecombined- = js_WebGPUResourceOptionsCpucachemodewritecombined- pToJSVal WebGPUResourceOptionsStoragemodeshared- = js_WebGPUResourceOptionsStoragemodeshared- pToJSVal WebGPUResourceOptionsStoragemodemanaged- = js_WebGPUResourceOptionsStoragemodemanaged- pToJSVal WebGPUResourceOptionsStoragemodeprivate- = js_WebGPUResourceOptionsStoragemodeprivate- pToJSVal WebGPUResourceOptionsOptioncpucachemodedefaultcache- = js_WebGPUResourceOptionsOptioncpucachemodedefaultcache- pToJSVal WebGPUResourceOptionsOptioncpucachemodewritecombined- = js_WebGPUResourceOptionsOptioncpucachemodewritecombined- -instance ToJSVal WebGPUResourceOptions where- toJSVal = return . pToJSVal- -instance PFromJSVal WebGPUResourceOptions where- pFromJSVal x- | x `js_eq` js_WebGPUResourceOptionsCpucachemodedefaultcache =- WebGPUResourceOptionsCpucachemodedefaultcache- pFromJSVal x- | x `js_eq` js_WebGPUResourceOptionsCpucachemodewritecombined =- WebGPUResourceOptionsCpucachemodewritecombined- pFromJSVal x- | x `js_eq` js_WebGPUResourceOptionsStoragemodeshared =- WebGPUResourceOptionsStoragemodeshared- pFromJSVal x- | x `js_eq` js_WebGPUResourceOptionsStoragemodemanaged =- WebGPUResourceOptionsStoragemodemanaged- pFromJSVal x- | x `js_eq` js_WebGPUResourceOptionsStoragemodeprivate =- WebGPUResourceOptionsStoragemodeprivate- pFromJSVal x- | x `js_eq` js_WebGPUResourceOptionsOptioncpucachemodedefaultcache- = WebGPUResourceOptionsOptioncpucachemodedefaultcache- pFromJSVal x- | x `js_eq` js_WebGPUResourceOptionsOptioncpucachemodewritecombined- = WebGPUResourceOptionsOptioncpucachemodewritecombined- -instance FromJSVal WebGPUResourceOptions where- fromJSValUnchecked = return . pFromJSVal- fromJSVal = return . pFromJSVal- -foreign import javascript unsafe "(() => { return \"cpucachemodedefaultcache\"; })"- js_WebGPUResourceOptionsCpucachemodedefaultcache :: JSVal- -foreign import javascript unsafe "(() => { return \"cpucachemodewritecombined\"; })"- js_WebGPUResourceOptionsCpucachemodewritecombined :: JSVal- -foreign import javascript unsafe "(() => { return \"storagemodeshared\"; })"- js_WebGPUResourceOptionsStoragemodeshared :: JSVal- -foreign import javascript unsafe "(() => { return \"storagemodemanaged\"; })"- js_WebGPUResourceOptionsStoragemodemanaged :: JSVal- -foreign import javascript unsafe "(() => { return \"storagemodeprivate\"; })"- js_WebGPUResourceOptionsStoragemodeprivate :: JSVal- -foreign import javascript unsafe- "(() => { return \"optioncpucachemodedefaultcache\"; })"- js_WebGPUResourceOptionsOptioncpucachemodedefaultcache :: JSVal- -foreign import javascript unsafe- "(() => { return \"optioncpucachemodewritecombined\"; })"- js_WebGPUResourceOptionsOptioncpucachemodewritecombined :: JSVal- -data WebGPUTextureUsage = WebGPUTextureUsageUnknown- | WebGPUTextureUsageShaderread- | WebGPUTextureUsageShaderwrite- | WebGPUTextureUsageRendertarget- | WebGPUTextureUsagePixelformatview- deriving (Show, Read, Eq, Ord, Typeable)- -instance PToJSVal WebGPUTextureUsage where- pToJSVal WebGPUTextureUsageUnknown = js_WebGPUTextureUsageUnknown- pToJSVal WebGPUTextureUsageShaderread- = js_WebGPUTextureUsageShaderread- pToJSVal WebGPUTextureUsageShaderwrite- = js_WebGPUTextureUsageShaderwrite- pToJSVal WebGPUTextureUsageRendertarget- = js_WebGPUTextureUsageRendertarget- pToJSVal WebGPUTextureUsagePixelformatview- = js_WebGPUTextureUsagePixelformatview- -instance ToJSVal WebGPUTextureUsage where- toJSVal = return . pToJSVal- -instance PFromJSVal WebGPUTextureUsage where- pFromJSVal x- | x `js_eq` js_WebGPUTextureUsageUnknown =- WebGPUTextureUsageUnknown- pFromJSVal x- | x `js_eq` js_WebGPUTextureUsageShaderread =- WebGPUTextureUsageShaderread- pFromJSVal x- | x `js_eq` js_WebGPUTextureUsageShaderwrite =- WebGPUTextureUsageShaderwrite- pFromJSVal x- | x `js_eq` js_WebGPUTextureUsageRendertarget =- WebGPUTextureUsageRendertarget- pFromJSVal x- | x `js_eq` js_WebGPUTextureUsagePixelformatview =- WebGPUTextureUsagePixelformatview- -instance FromJSVal WebGPUTextureUsage where- fromJSValUnchecked = return . pFromJSVal- fromJSVal = return . pFromJSVal- -foreign import javascript unsafe "(() => { return \"unknown\"; })"- js_WebGPUTextureUsageUnknown :: JSVal- -foreign import javascript unsafe "(() => { return \"shaderread\"; })"- js_WebGPUTextureUsageShaderread :: JSVal- -foreign import javascript unsafe "(() => { return \"shaderwrite\"; })"- js_WebGPUTextureUsageShaderwrite :: JSVal- -foreign import javascript unsafe "(() => { return \"rendertarget\"; })"- js_WebGPUTextureUsageRendertarget :: JSVal- -foreign import javascript unsafe "(() => { return \"pixelformatview\"; })"- js_WebGPUTextureUsagePixelformatview :: JSVal- -data WebGPUBlendOperation = WebGPUBlendOperationAdd- | WebGPUBlendOperationSubtract- | WebGPUBlendOperationReversesubtract- | WebGPUBlendOperationMin- | WebGPUBlendOperationMax- deriving (Show, Read, Eq, Ord, Typeable)- -instance PToJSVal WebGPUBlendOperation where- pToJSVal WebGPUBlendOperationAdd = js_WebGPUBlendOperationAdd- pToJSVal WebGPUBlendOperationSubtract- = js_WebGPUBlendOperationSubtract- pToJSVal WebGPUBlendOperationReversesubtract- = js_WebGPUBlendOperationReversesubtract- pToJSVal WebGPUBlendOperationMin = js_WebGPUBlendOperationMin- pToJSVal WebGPUBlendOperationMax = js_WebGPUBlendOperationMax- -instance ToJSVal WebGPUBlendOperation where- toJSVal = return . pToJSVal- -instance PFromJSVal WebGPUBlendOperation where- pFromJSVal x- | x `js_eq` js_WebGPUBlendOperationAdd = WebGPUBlendOperationAdd- pFromJSVal x- | x `js_eq` js_WebGPUBlendOperationSubtract =- WebGPUBlendOperationSubtract- pFromJSVal x- | x `js_eq` js_WebGPUBlendOperationReversesubtract =- WebGPUBlendOperationReversesubtract- pFromJSVal x- | x `js_eq` js_WebGPUBlendOperationMin = WebGPUBlendOperationMin- pFromJSVal x- | x `js_eq` js_WebGPUBlendOperationMax = WebGPUBlendOperationMax- -instance FromJSVal WebGPUBlendOperation where- fromJSValUnchecked = return . pFromJSVal- fromJSVal = return . pFromJSVal- -foreign import javascript unsafe "(() => { return \"add\"; })"- js_WebGPUBlendOperationAdd :: JSVal- -foreign import javascript unsafe "(() => { return \"subtract\"; })"- js_WebGPUBlendOperationSubtract :: JSVal- -foreign import javascript unsafe "(() => { return \"reversesubtract\"; })"- js_WebGPUBlendOperationReversesubtract :: JSVal- -foreign import javascript unsafe "(() => { return \"min\"; })"- js_WebGPUBlendOperationMin :: JSVal- -foreign import javascript unsafe "(() => { return \"max\"; })"- js_WebGPUBlendOperationMax :: JSVal- -data WebGPUBlendFactor = WebGPUBlendFactorZero- | WebGPUBlendFactorOne- | WebGPUBlendFactorSourcecolor- | WebGPUBlendFactorOneminussourcecolor- | WebGPUBlendFactorSourcealpha- | WebGPUBlendFactorOneminussourcealpha- | WebGPUBlendFactorDestinationcolor- | WebGPUBlendFactorOneminusdestinationcolor- | WebGPUBlendFactorDestinationalpha- | WebGPUBlendFactorOneminusdestinationalpha- | WebGPUBlendFactorSourcealphasaturated- | WebGPUBlendFactorBlendcolor- | WebGPUBlendFactorOneminusblendcolor- | WebGPUBlendFactorBlendalpha- | WebGPUBlendFactorOneminusblendalpha- deriving (Show, Read, Eq, Ord, Typeable)- -instance PToJSVal WebGPUBlendFactor where- pToJSVal WebGPUBlendFactorZero = js_WebGPUBlendFactorZero- pToJSVal WebGPUBlendFactorOne = js_WebGPUBlendFactorOne- pToJSVal WebGPUBlendFactorSourcecolor- = js_WebGPUBlendFactorSourcecolor- pToJSVal WebGPUBlendFactorOneminussourcecolor- = js_WebGPUBlendFactorOneminussourcecolor- pToJSVal WebGPUBlendFactorSourcealpha- = js_WebGPUBlendFactorSourcealpha- pToJSVal WebGPUBlendFactorOneminussourcealpha- = js_WebGPUBlendFactorOneminussourcealpha- pToJSVal WebGPUBlendFactorDestinationcolor- = js_WebGPUBlendFactorDestinationcolor- pToJSVal WebGPUBlendFactorOneminusdestinationcolor- = js_WebGPUBlendFactorOneminusdestinationcolor- pToJSVal WebGPUBlendFactorDestinationalpha- = js_WebGPUBlendFactorDestinationalpha- pToJSVal WebGPUBlendFactorOneminusdestinationalpha- = js_WebGPUBlendFactorOneminusdestinationalpha- pToJSVal WebGPUBlendFactorSourcealphasaturated- = js_WebGPUBlendFactorSourcealphasaturated- pToJSVal WebGPUBlendFactorBlendcolor- = js_WebGPUBlendFactorBlendcolor- pToJSVal WebGPUBlendFactorOneminusblendcolor- = js_WebGPUBlendFactorOneminusblendcolor- pToJSVal WebGPUBlendFactorBlendalpha- = js_WebGPUBlendFactorBlendalpha- pToJSVal WebGPUBlendFactorOneminusblendalpha- = js_WebGPUBlendFactorOneminusblendalpha- -instance ToJSVal WebGPUBlendFactor where- toJSVal = return . pToJSVal- -instance PFromJSVal WebGPUBlendFactor where- pFromJSVal x- | x `js_eq` js_WebGPUBlendFactorZero = WebGPUBlendFactorZero- pFromJSVal x- | x `js_eq` js_WebGPUBlendFactorOne = WebGPUBlendFactorOne- pFromJSVal x- | x `js_eq` js_WebGPUBlendFactorSourcecolor =- WebGPUBlendFactorSourcecolor- pFromJSVal x- | x `js_eq` js_WebGPUBlendFactorOneminussourcecolor =- WebGPUBlendFactorOneminussourcecolor- pFromJSVal x- | x `js_eq` js_WebGPUBlendFactorSourcealpha =- WebGPUBlendFactorSourcealpha- pFromJSVal x- | x `js_eq` js_WebGPUBlendFactorOneminussourcealpha =- WebGPUBlendFactorOneminussourcealpha- pFromJSVal x- | x `js_eq` js_WebGPUBlendFactorDestinationcolor =- WebGPUBlendFactorDestinationcolor- pFromJSVal x- | x `js_eq` js_WebGPUBlendFactorOneminusdestinationcolor =- WebGPUBlendFactorOneminusdestinationcolor- pFromJSVal x- | x `js_eq` js_WebGPUBlendFactorDestinationalpha =- WebGPUBlendFactorDestinationalpha- pFromJSVal x- | x `js_eq` js_WebGPUBlendFactorOneminusdestinationalpha =- WebGPUBlendFactorOneminusdestinationalpha- pFromJSVal x- | x `js_eq` js_WebGPUBlendFactorSourcealphasaturated =- WebGPUBlendFactorSourcealphasaturated- pFromJSVal x- | x `js_eq` js_WebGPUBlendFactorBlendcolor =- WebGPUBlendFactorBlendcolor- pFromJSVal x- | x `js_eq` js_WebGPUBlendFactorOneminusblendcolor =- WebGPUBlendFactorOneminusblendcolor- pFromJSVal x- | x `js_eq` js_WebGPUBlendFactorBlendalpha =- WebGPUBlendFactorBlendalpha- pFromJSVal x- | x `js_eq` js_WebGPUBlendFactorOneminusblendalpha =- WebGPUBlendFactorOneminusblendalpha- -instance FromJSVal WebGPUBlendFactor where- fromJSValUnchecked = return . pFromJSVal- fromJSVal = return . pFromJSVal- -foreign import javascript unsafe "(() => { return \"zero\"; })"- js_WebGPUBlendFactorZero :: JSVal- -foreign import javascript unsafe "(() => { return \"one\"; })" js_WebGPUBlendFactorOne- :: JSVal- -foreign import javascript unsafe "(() => { return \"sourcecolor\"; })"- js_WebGPUBlendFactorSourcecolor :: JSVal- -foreign import javascript unsafe "(() => { return \"oneminussourcecolor\"; })"- js_WebGPUBlendFactorOneminussourcecolor :: JSVal- -foreign import javascript unsafe "(() => { return \"sourcealpha\"; })"- js_WebGPUBlendFactorSourcealpha :: JSVal- -foreign import javascript unsafe "(() => { return \"oneminussourcealpha\"; })"- js_WebGPUBlendFactorOneminussourcealpha :: JSVal- -foreign import javascript unsafe "(() => { return \"destinationcolor\"; })"- js_WebGPUBlendFactorDestinationcolor :: JSVal- -foreign import javascript unsafe "(() => { return \"oneminusdestinationcolor\"; })"- js_WebGPUBlendFactorOneminusdestinationcolor :: JSVal- -foreign import javascript unsafe "(() => { return \"destinationalpha\"; })"- js_WebGPUBlendFactorDestinationalpha :: JSVal- -foreign import javascript unsafe "(() => { return \"oneminusdestinationalpha\"; })"- js_WebGPUBlendFactorOneminusdestinationalpha :: JSVal- -foreign import javascript unsafe "(() => { return \"sourcealphasaturated\"; })"- js_WebGPUBlendFactorSourcealphasaturated :: JSVal- -foreign import javascript unsafe "(() => { return \"blendcolor\"; })"- js_WebGPUBlendFactorBlendcolor :: JSVal- -foreign import javascript unsafe "(() => { return \"oneminusblendcolor\"; })"- js_WebGPUBlendFactorOneminusblendcolor :: JSVal- -foreign import javascript unsafe "(() => { return \"blendalpha\"; })"- js_WebGPUBlendFactorBlendalpha :: JSVal- -foreign import javascript unsafe "(() => { return \"oneminusblendalpha\"; })"- js_WebGPUBlendFactorOneminusblendalpha :: JSVal- -data WebGPUColorWriteMask = WebGPUColorWriteMaskNone- | WebGPUColorWriteMaskRed- | WebGPUColorWriteMaskGreen- | WebGPUColorWriteMaskBlue- | WebGPUColorWriteMaskAlpha- | WebGPUColorWriteMaskAll- deriving (Show, Read, Eq, Ord, Typeable)- -instance PToJSVal WebGPUColorWriteMask where- pToJSVal WebGPUColorWriteMaskNone = js_WebGPUColorWriteMaskNone- pToJSVal WebGPUColorWriteMaskRed = js_WebGPUColorWriteMaskRed- pToJSVal WebGPUColorWriteMaskGreen = js_WebGPUColorWriteMaskGreen- pToJSVal WebGPUColorWriteMaskBlue = js_WebGPUColorWriteMaskBlue- pToJSVal WebGPUColorWriteMaskAlpha = js_WebGPUColorWriteMaskAlpha- pToJSVal WebGPUColorWriteMaskAll = js_WebGPUColorWriteMaskAll- -instance ToJSVal WebGPUColorWriteMask where- toJSVal = return . pToJSVal- -instance PFromJSVal WebGPUColorWriteMask where- pFromJSVal x- | x `js_eq` js_WebGPUColorWriteMaskNone = WebGPUColorWriteMaskNone- pFromJSVal x- | x `js_eq` js_WebGPUColorWriteMaskRed = WebGPUColorWriteMaskRed- pFromJSVal x- | x `js_eq` js_WebGPUColorWriteMaskGreen =- WebGPUColorWriteMaskGreen- pFromJSVal x- | x `js_eq` js_WebGPUColorWriteMaskBlue = WebGPUColorWriteMaskBlue- pFromJSVal x- | x `js_eq` js_WebGPUColorWriteMaskAlpha =- WebGPUColorWriteMaskAlpha- pFromJSVal x- | x `js_eq` js_WebGPUColorWriteMaskAll = WebGPUColorWriteMaskAll- -instance FromJSVal WebGPUColorWriteMask where- fromJSValUnchecked = return . pFromJSVal- fromJSVal = return . pFromJSVal- -foreign import javascript unsafe "(() => { return \"none\"; })"- js_WebGPUColorWriteMaskNone :: JSVal- -foreign import javascript unsafe "(() => { return \"red\"; })"- js_WebGPUColorWriteMaskRed :: JSVal- -foreign import javascript unsafe "(() => { return \"green\"; })"- js_WebGPUColorWriteMaskGreen :: JSVal- -foreign import javascript unsafe "(() => { return \"blue\"; })"- js_WebGPUColorWriteMaskBlue :: JSVal- -foreign import javascript unsafe "(() => { return \"alpha\"; })"- js_WebGPUColorWriteMaskAlpha :: JSVal- -foreign import javascript unsafe "(() => { return \"all\"; })"- js_WebGPUColorWriteMaskAll :: JSVal- -data WebGPUMultisampleDepthResolveFilter = WebGPUMultisampleDepthResolveFilterSample0- | WebGPUMultisampleDepthResolveFilterMin- | WebGPUMultisampleDepthResolveFilterMax- deriving (Show, Read, Eq, Ord, Typeable)- -instance PToJSVal WebGPUMultisampleDepthResolveFilter where- pToJSVal WebGPUMultisampleDepthResolveFilterSample0- = js_WebGPUMultisampleDepthResolveFilterSample0- pToJSVal WebGPUMultisampleDepthResolveFilterMin- = js_WebGPUMultisampleDepthResolveFilterMin- pToJSVal WebGPUMultisampleDepthResolveFilterMax- = js_WebGPUMultisampleDepthResolveFilterMax- -instance ToJSVal WebGPUMultisampleDepthResolveFilter where- toJSVal = return . pToJSVal- -instance PFromJSVal WebGPUMultisampleDepthResolveFilter where- pFromJSVal x- | x `js_eq` js_WebGPUMultisampleDepthResolveFilterSample0 =- WebGPUMultisampleDepthResolveFilterSample0- pFromJSVal x- | x `js_eq` js_WebGPUMultisampleDepthResolveFilterMin =- WebGPUMultisampleDepthResolveFilterMin- pFromJSVal x- | x `js_eq` js_WebGPUMultisampleDepthResolveFilterMax =- WebGPUMultisampleDepthResolveFilterMax- -instance FromJSVal WebGPUMultisampleDepthResolveFilter where- fromJSValUnchecked = return . pFromJSVal- fromJSVal = return . pFromJSVal- -foreign import javascript unsafe "(() => { return \"sample0\"; })"- js_WebGPUMultisampleDepthResolveFilterSample0 :: JSVal- -foreign import javascript unsafe "(() => { return \"min\"; })"- js_WebGPUMultisampleDepthResolveFilterMin :: JSVal- -foreign import javascript unsafe "(() => { return \"max\"; })"- js_WebGPUMultisampleDepthResolveFilterMax :: JSVal- -data WebGPUFeatureSet = WebGPUFeatureSetLevel1- | WebGPUFeatureSetLevel2- deriving (Show, Read, Eq, Ord, Typeable)- -instance PToJSVal WebGPUFeatureSet where- pToJSVal WebGPUFeatureSetLevel1 = js_WebGPUFeatureSetLevel1- pToJSVal WebGPUFeatureSetLevel2 = js_WebGPUFeatureSetLevel2- -instance ToJSVal WebGPUFeatureSet where- toJSVal = return . pToJSVal- -instance PFromJSVal WebGPUFeatureSet where- pFromJSVal x- | x `js_eq` js_WebGPUFeatureSetLevel1 = WebGPUFeatureSetLevel1- pFromJSVal x- | x `js_eq` js_WebGPUFeatureSetLevel2 = WebGPUFeatureSetLevel2- -instance FromJSVal WebGPUFeatureSet where- fromJSValUnchecked = return . pFromJSVal- fromJSVal = return . pFromJSVal- -foreign import javascript unsafe "(() => { return \"level1\"; })"- js_WebGPUFeatureSetLevel1 :: JSVal- -foreign import javascript unsafe "(() => { return \"level2\"; })"- js_WebGPUFeatureSetLevel2 :: JSVal- -data VideoPresentationMode = VideoPresentationModeFullscreen- | VideoPresentationModePictureInPicture- | VideoPresentationModeInline- deriving (Show, Read, Eq, Ord, Typeable)- -instance PToJSVal VideoPresentationMode where- pToJSVal VideoPresentationModeFullscreen- = js_VideoPresentationModeFullscreen- pToJSVal VideoPresentationModePictureInPicture- = js_VideoPresentationModePictureInPicture- pToJSVal VideoPresentationModeInline- = js_VideoPresentationModeInline- -instance ToJSVal VideoPresentationMode where- toJSVal = return . pToJSVal- -instance PFromJSVal VideoPresentationMode where- pFromJSVal x- | x `js_eq` js_VideoPresentationModeFullscreen =- VideoPresentationModeFullscreen- pFromJSVal x- | x `js_eq` js_VideoPresentationModePictureInPicture =- VideoPresentationModePictureInPicture- pFromJSVal x- | x `js_eq` js_VideoPresentationModeInline =- VideoPresentationModeInline- -instance FromJSVal VideoPresentationMode where- fromJSValUnchecked = return . pFromJSVal- fromJSVal = return . pFromJSVal- -foreign import javascript unsafe "(() => { return \"fullscreen\"; })"- js_VideoPresentationModeFullscreen :: JSVal- -foreign import javascript unsafe "(() => { return \"picture-in-picture\"; })"- js_VideoPresentationModePictureInPicture :: JSVal- -foreign import javascript unsafe "(() => { return \"inline\"; })"- js_VideoPresentationModeInline :: JSVal- -data TextTrackMode = TextTrackModeDisabled- | TextTrackModeHidden- | TextTrackModeShowing- deriving (Show, Read, Eq, Ord, Typeable)- -instance PToJSVal TextTrackMode where- pToJSVal TextTrackModeDisabled = js_TextTrackModeDisabled- pToJSVal TextTrackModeHidden = js_TextTrackModeHidden- pToJSVal TextTrackModeShowing = js_TextTrackModeShowing- -instance ToJSVal TextTrackMode where- toJSVal = return . pToJSVal- -instance PFromJSVal TextTrackMode where- pFromJSVal x- | x `js_eq` js_TextTrackModeDisabled = TextTrackModeDisabled- pFromJSVal x- | x `js_eq` js_TextTrackModeHidden = TextTrackModeHidden- pFromJSVal x- | x `js_eq` js_TextTrackModeShowing = TextTrackModeShowing- -instance FromJSVal TextTrackMode where- fromJSValUnchecked = return . pFromJSVal- fromJSVal = return . pFromJSVal- -foreign import javascript unsafe "(() => { return \"disabled\"; })"- js_TextTrackModeDisabled :: JSVal- -foreign import javascript unsafe "(() => { return \"hidden\"; })"- js_TextTrackModeHidden :: JSVal- -foreign import javascript unsafe "(() => { return \"showing\"; })"- js_TextTrackModeShowing :: JSVal- -data TextTrackKind = TextTrackKindSubtitles- | TextTrackKindCaptions- | TextTrackKindDescriptions- | TextTrackKindChapters- | TextTrackKindMetadata- | TextTrackKindForced- deriving (Show, Read, Eq, Ord, Typeable)- -instance PToJSVal TextTrackKind where- pToJSVal TextTrackKindSubtitles = js_TextTrackKindSubtitles- pToJSVal TextTrackKindCaptions = js_TextTrackKindCaptions- pToJSVal TextTrackKindDescriptions = js_TextTrackKindDescriptions- pToJSVal TextTrackKindChapters = js_TextTrackKindChapters- pToJSVal TextTrackKindMetadata = js_TextTrackKindMetadata- pToJSVal TextTrackKindForced = js_TextTrackKindForced- -instance ToJSVal TextTrackKind where- toJSVal = return . pToJSVal- -instance PFromJSVal TextTrackKind where- pFromJSVal x- | x `js_eq` js_TextTrackKindSubtitles = TextTrackKindSubtitles- pFromJSVal x- | x `js_eq` js_TextTrackKindCaptions = TextTrackKindCaptions- pFromJSVal x- | x `js_eq` js_TextTrackKindDescriptions =- TextTrackKindDescriptions- pFromJSVal x- | x `js_eq` js_TextTrackKindChapters = TextTrackKindChapters- pFromJSVal x- | x `js_eq` js_TextTrackKindMetadata = TextTrackKindMetadata- pFromJSVal x- | x `js_eq` js_TextTrackKindForced = TextTrackKindForced- -instance FromJSVal TextTrackKind where- fromJSValUnchecked = return . pFromJSVal- fromJSVal = return . pFromJSVal- -foreign import javascript unsafe "(() => { return \"subtitles\"; })"- js_TextTrackKindSubtitles :: JSVal- -foreign import javascript unsafe "(() => { return \"captions\"; })"- js_TextTrackKindCaptions :: JSVal- -foreign import javascript unsafe "(() => { return \"descriptions\"; })"- js_TextTrackKindDescriptions :: JSVal- -foreign import javascript unsafe "(() => { return \"chapters\"; })"- js_TextTrackKindChapters :: JSVal- -foreign import javascript unsafe "(() => { return \"metadata\"; })"- js_TextTrackKindMetadata :: JSVal- -foreign import javascript unsafe "(() => { return \"forced\"; })"- js_TextTrackKindForced :: JSVal- -data ApplePayErrorCode = ApplePayErrorCodeUnknown- | ApplePayErrorCodeShippingContactInvalid- | ApplePayErrorCodeBillingContactInvalid- | ApplePayErrorCodeAddressUnservicable- deriving (Show, Read, Eq, Ord, Typeable)- -instance PToJSVal ApplePayErrorCode where- pToJSVal ApplePayErrorCodeUnknown = js_ApplePayErrorCodeUnknown- pToJSVal ApplePayErrorCodeShippingContactInvalid- = js_ApplePayErrorCodeShippingContactInvalid- pToJSVal ApplePayErrorCodeBillingContactInvalid- = js_ApplePayErrorCodeBillingContactInvalid- pToJSVal ApplePayErrorCodeAddressUnservicable- = js_ApplePayErrorCodeAddressUnservicable- -instance ToJSVal ApplePayErrorCode where- toJSVal = return . pToJSVal- -instance PFromJSVal ApplePayErrorCode where- pFromJSVal x- | x `js_eq` js_ApplePayErrorCodeUnknown = ApplePayErrorCodeUnknown- pFromJSVal x- | x `js_eq` js_ApplePayErrorCodeShippingContactInvalid =- ApplePayErrorCodeShippingContactInvalid- pFromJSVal x- | x `js_eq` js_ApplePayErrorCodeBillingContactInvalid =- ApplePayErrorCodeBillingContactInvalid- pFromJSVal x- | x `js_eq` js_ApplePayErrorCodeAddressUnservicable =- ApplePayErrorCodeAddressUnservicable- -instance FromJSVal ApplePayErrorCode where- fromJSValUnchecked = return . pFromJSVal- fromJSVal = return . pFromJSVal- -foreign import javascript unsafe "(() => { return \"unknown\"; })"- js_ApplePayErrorCodeUnknown :: JSVal- -foreign import javascript unsafe "(() => { return \"shippingContactInvalid\"; })"- js_ApplePayErrorCodeShippingContactInvalid :: JSVal- -foreign import javascript unsafe "(() => { return \"billingContactInvalid\"; })"- js_ApplePayErrorCodeBillingContactInvalid :: JSVal- -foreign import javascript unsafe "(() => { return \"addressUnservicable\"; })"- js_ApplePayErrorCodeAddressUnservicable :: JSVal- -data ApplePayErrorContactField = ApplePayErrorContactFieldPhoneNumber- | ApplePayErrorContactFieldEmailAddress- | ApplePayErrorContactFieldName- | ApplePayErrorContactFieldPostalAddress- | ApplePayErrorContactFieldAddressLines- | ApplePayErrorContactFieldLocality- | ApplePayErrorContactFieldPostalCode- | ApplePayErrorContactFieldAdministrativeArea- | ApplePayErrorContactFieldCountry- deriving (Show, Read, Eq, Ord, Typeable)- -instance PToJSVal ApplePayErrorContactField where- pToJSVal ApplePayErrorContactFieldPhoneNumber- = js_ApplePayErrorContactFieldPhoneNumber- pToJSVal ApplePayErrorContactFieldEmailAddress- = js_ApplePayErrorContactFieldEmailAddress- pToJSVal ApplePayErrorContactFieldName- = js_ApplePayErrorContactFieldName- pToJSVal ApplePayErrorContactFieldPostalAddress- = js_ApplePayErrorContactFieldPostalAddress- pToJSVal ApplePayErrorContactFieldAddressLines- = js_ApplePayErrorContactFieldAddressLines- pToJSVal ApplePayErrorContactFieldLocality- = js_ApplePayErrorContactFieldLocality- pToJSVal ApplePayErrorContactFieldPostalCode- = js_ApplePayErrorContactFieldPostalCode- pToJSVal ApplePayErrorContactFieldAdministrativeArea- = js_ApplePayErrorContactFieldAdministrativeArea- pToJSVal ApplePayErrorContactFieldCountry- = js_ApplePayErrorContactFieldCountry- -instance ToJSVal ApplePayErrorContactField where- toJSVal = return . pToJSVal- -instance PFromJSVal ApplePayErrorContactField where- pFromJSVal x- | x `js_eq` js_ApplePayErrorContactFieldPhoneNumber =- ApplePayErrorContactFieldPhoneNumber- pFromJSVal x- | x `js_eq` js_ApplePayErrorContactFieldEmailAddress =- ApplePayErrorContactFieldEmailAddress- pFromJSVal x- | x `js_eq` js_ApplePayErrorContactFieldName =- ApplePayErrorContactFieldName- pFromJSVal x- | x `js_eq` js_ApplePayErrorContactFieldPostalAddress =- ApplePayErrorContactFieldPostalAddress- pFromJSVal x- | x `js_eq` js_ApplePayErrorContactFieldAddressLines =- ApplePayErrorContactFieldAddressLines- pFromJSVal x- | x `js_eq` js_ApplePayErrorContactFieldLocality =- ApplePayErrorContactFieldLocality- pFromJSVal x- | x `js_eq` js_ApplePayErrorContactFieldPostalCode =- ApplePayErrorContactFieldPostalCode- pFromJSVal x- | x `js_eq` js_ApplePayErrorContactFieldAdministrativeArea =- ApplePayErrorContactFieldAdministrativeArea- pFromJSVal x- | x `js_eq` js_ApplePayErrorContactFieldCountry =- ApplePayErrorContactFieldCountry- -instance FromJSVal ApplePayErrorContactField where- fromJSValUnchecked = return . pFromJSVal- fromJSVal = return . pFromJSVal- -foreign import javascript unsafe "(() => { return \"phoneNumber\"; })"- js_ApplePayErrorContactFieldPhoneNumber :: JSVal- -foreign import javascript unsafe "(() => { return \"emailAddress\"; })"- js_ApplePayErrorContactFieldEmailAddress :: JSVal- -foreign import javascript unsafe "(() => { return \"name\"; })"- js_ApplePayErrorContactFieldName :: JSVal- -foreign import javascript unsafe "(() => { return \"postalAddress\"; })"- js_ApplePayErrorContactFieldPostalAddress :: JSVal- -foreign import javascript unsafe "(() => { return \"addressLines\"; })"- js_ApplePayErrorContactFieldAddressLines :: JSVal- -foreign import javascript unsafe "(() => { return \"locality\"; })"- js_ApplePayErrorContactFieldLocality :: JSVal- -foreign import javascript unsafe "(() => { return \"postalCode\"; })"- js_ApplePayErrorContactFieldPostalCode :: JSVal- -foreign import javascript unsafe "(() => { return \"administrativeArea\"; })"- js_ApplePayErrorContactFieldAdministrativeArea :: JSVal- -foreign import javascript unsafe "(() => { return \"country\"; })"- js_ApplePayErrorContactFieldCountry :: JSVal- -data ApplePayLineItemType = ApplePayLineItemTypePending- | ApplePayLineItemTypeFinal- deriving (Show, Read, Eq, Ord, Typeable)- -instance PToJSVal ApplePayLineItemType where- pToJSVal ApplePayLineItemTypePending- = js_ApplePayLineItemTypePending- pToJSVal ApplePayLineItemTypeFinal = js_ApplePayLineItemTypeFinal- -instance ToJSVal ApplePayLineItemType where- toJSVal = return . pToJSVal- -instance PFromJSVal ApplePayLineItemType where- pFromJSVal x- | x `js_eq` js_ApplePayLineItemTypePending =- ApplePayLineItemTypePending- pFromJSVal x- | x `js_eq` js_ApplePayLineItemTypeFinal =- ApplePayLineItemTypeFinal- -instance FromJSVal ApplePayLineItemType where- fromJSValUnchecked = return . pFromJSVal- fromJSVal = return . pFromJSVal- -foreign import javascript unsafe "(() => { return \"pending\"; })"- js_ApplePayLineItemTypePending :: JSVal- -foreign import javascript unsafe "(() => { return \"final\"; })"- js_ApplePayLineItemTypeFinal :: JSVal- -data ApplePayPaymentMethodType = ApplePayPaymentMethodTypeDebit- | ApplePayPaymentMethodTypeCredit- | ApplePayPaymentMethodTypePrepaid- | ApplePayPaymentMethodTypeStore- deriving (Show, Read, Eq, Ord, Typeable)- -instance PToJSVal ApplePayPaymentMethodType where- pToJSVal ApplePayPaymentMethodTypeDebit- = js_ApplePayPaymentMethodTypeDebit- pToJSVal ApplePayPaymentMethodTypeCredit- = js_ApplePayPaymentMethodTypeCredit- pToJSVal ApplePayPaymentMethodTypePrepaid- = js_ApplePayPaymentMethodTypePrepaid- pToJSVal ApplePayPaymentMethodTypeStore- = js_ApplePayPaymentMethodTypeStore- -instance ToJSVal ApplePayPaymentMethodType where- toJSVal = return . pToJSVal- -instance PFromJSVal ApplePayPaymentMethodType where- pFromJSVal x- | x `js_eq` js_ApplePayPaymentMethodTypeDebit =- ApplePayPaymentMethodTypeDebit- pFromJSVal x- | x `js_eq` js_ApplePayPaymentMethodTypeCredit =- ApplePayPaymentMethodTypeCredit- pFromJSVal x- | x `js_eq` js_ApplePayPaymentMethodTypePrepaid =- ApplePayPaymentMethodTypePrepaid- pFromJSVal x- | x `js_eq` js_ApplePayPaymentMethodTypeStore =- ApplePayPaymentMethodTypeStore- -instance FromJSVal ApplePayPaymentMethodType where- fromJSValUnchecked = return . pFromJSVal- fromJSVal = return . pFromJSVal- -foreign import javascript unsafe "(() => { return \"debit\"; })"- js_ApplePayPaymentMethodTypeDebit :: JSVal- -foreign import javascript unsafe "(() => { return \"credit\"; })"- js_ApplePayPaymentMethodTypeCredit :: JSVal- -foreign import javascript unsafe "(() => { return \"prepaid\"; })"- js_ApplePayPaymentMethodTypePrepaid :: JSVal- -foreign import javascript unsafe "(() => { return \"store\"; })"- js_ApplePayPaymentMethodTypeStore :: JSVal- -data ApplePayPaymentPassActivationState = ApplePayPaymentPassActivationStateActivated- | ApplePayPaymentPassActivationStateRequiresActivation- | ApplePayPaymentPassActivationStateActivating- | ApplePayPaymentPassActivationStateSuspended- | ApplePayPaymentPassActivationStateDeactivated- deriving (Show, Read, Eq, Ord, Typeable)- -instance PToJSVal ApplePayPaymentPassActivationState where- pToJSVal ApplePayPaymentPassActivationStateActivated- = js_ApplePayPaymentPassActivationStateActivated- pToJSVal ApplePayPaymentPassActivationStateRequiresActivation- = js_ApplePayPaymentPassActivationStateRequiresActivation- pToJSVal ApplePayPaymentPassActivationStateActivating- = js_ApplePayPaymentPassActivationStateActivating- pToJSVal ApplePayPaymentPassActivationStateSuspended- = js_ApplePayPaymentPassActivationStateSuspended- pToJSVal ApplePayPaymentPassActivationStateDeactivated- = js_ApplePayPaymentPassActivationStateDeactivated- -instance ToJSVal ApplePayPaymentPassActivationState where- toJSVal = return . pToJSVal- -instance PFromJSVal ApplePayPaymentPassActivationState where- pFromJSVal x- | x `js_eq` js_ApplePayPaymentPassActivationStateActivated =- ApplePayPaymentPassActivationStateActivated- pFromJSVal x- | x `js_eq` js_ApplePayPaymentPassActivationStateRequiresActivation- = ApplePayPaymentPassActivationStateRequiresActivation- pFromJSVal x- | x `js_eq` js_ApplePayPaymentPassActivationStateActivating =- ApplePayPaymentPassActivationStateActivating- pFromJSVal x- | x `js_eq` js_ApplePayPaymentPassActivationStateSuspended =- ApplePayPaymentPassActivationStateSuspended- pFromJSVal x- | x `js_eq` js_ApplePayPaymentPassActivationStateDeactivated =- ApplePayPaymentPassActivationStateDeactivated- -instance FromJSVal ApplePayPaymentPassActivationState where- fromJSValUnchecked = return . pFromJSVal- fromJSVal = return . pFromJSVal- -foreign import javascript unsafe "(() => { return \"activated\"; })"- js_ApplePayPaymentPassActivationStateActivated :: JSVal- -foreign import javascript unsafe "(() => { return \"requiresActivation\"; })"- js_ApplePayPaymentPassActivationStateRequiresActivation :: JSVal- -foreign import javascript unsafe "(() => { return \"activating\"; })"- js_ApplePayPaymentPassActivationStateActivating :: JSVal- -foreign import javascript unsafe "(() => { return \"suspended\"; })"- js_ApplePayPaymentPassActivationStateSuspended :: JSVal- -foreign import javascript unsafe "(() => { return \"deactivated\"; })"- js_ApplePayPaymentPassActivationStateDeactivated :: JSVal- -data ApplePayMerchantCapability = ApplePayMerchantCapabilitySupports3DS- | ApplePayMerchantCapabilitySupportsEMV- | ApplePayMerchantCapabilitySupportsCredit- | ApplePayMerchantCapabilitySupportsDebit- deriving (Show, Read, Eq, Ord, Typeable)- -instance PToJSVal ApplePayMerchantCapability where- pToJSVal ApplePayMerchantCapabilitySupports3DS- = js_ApplePayMerchantCapabilitySupports3DS- pToJSVal ApplePayMerchantCapabilitySupportsEMV- = js_ApplePayMerchantCapabilitySupportsEMV- pToJSVal ApplePayMerchantCapabilitySupportsCredit- = js_ApplePayMerchantCapabilitySupportsCredit- pToJSVal ApplePayMerchantCapabilitySupportsDebit- = js_ApplePayMerchantCapabilitySupportsDebit- -instance ToJSVal ApplePayMerchantCapability where- toJSVal = return . pToJSVal- -instance PFromJSVal ApplePayMerchantCapability where- pFromJSVal x- | x `js_eq` js_ApplePayMerchantCapabilitySupports3DS =- ApplePayMerchantCapabilitySupports3DS- pFromJSVal x- | x `js_eq` js_ApplePayMerchantCapabilitySupportsEMV =- ApplePayMerchantCapabilitySupportsEMV- pFromJSVal x- | x `js_eq` js_ApplePayMerchantCapabilitySupportsCredit =- ApplePayMerchantCapabilitySupportsCredit- pFromJSVal x- | x `js_eq` js_ApplePayMerchantCapabilitySupportsDebit =- ApplePayMerchantCapabilitySupportsDebit- -instance FromJSVal ApplePayMerchantCapability where- fromJSValUnchecked = return . pFromJSVal- fromJSVal = return . pFromJSVal- -foreign import javascript unsafe "(() => { return \"supports3DS\"; })"- js_ApplePayMerchantCapabilitySupports3DS :: JSVal- -foreign import javascript unsafe "(() => { return \"supportsEMV\"; })"- js_ApplePayMerchantCapabilitySupportsEMV :: JSVal- -foreign import javascript unsafe "(() => { return \"supportsCredit\"; })"- js_ApplePayMerchantCapabilitySupportsCredit :: JSVal- -foreign import javascript unsafe "(() => { return \"supportsDebit\"; })"- js_ApplePayMerchantCapabilitySupportsDebit :: JSVal- -data ApplePayContactField = ApplePayContactFieldEmail- | ApplePayContactFieldName- | ApplePayContactFieldPhone- | ApplePayContactFieldPostalAddress- deriving (Show, Read, Eq, Ord, Typeable)- -instance PToJSVal ApplePayContactField where- pToJSVal ApplePayContactFieldEmail = js_ApplePayContactFieldEmail- pToJSVal ApplePayContactFieldName = js_ApplePayContactFieldName- pToJSVal ApplePayContactFieldPhone = js_ApplePayContactFieldPhone- pToJSVal ApplePayContactFieldPostalAddress- = js_ApplePayContactFieldPostalAddress- -instance ToJSVal ApplePayContactField where- toJSVal = return . pToJSVal- -instance PFromJSVal ApplePayContactField where- pFromJSVal x- | x `js_eq` js_ApplePayContactFieldEmail =- ApplePayContactFieldEmail- pFromJSVal x- | x `js_eq` js_ApplePayContactFieldName = ApplePayContactFieldName- pFromJSVal x- | x `js_eq` js_ApplePayContactFieldPhone =- ApplePayContactFieldPhone- pFromJSVal x- | x `js_eq` js_ApplePayContactFieldPostalAddress =- ApplePayContactFieldPostalAddress- -instance FromJSVal ApplePayContactField where- fromJSValUnchecked = return . pFromJSVal- fromJSVal = return . pFromJSVal- -foreign import javascript unsafe "(() => { return \"email\"; })"- js_ApplePayContactFieldEmail :: JSVal- -foreign import javascript unsafe "(() => { return \"name\"; })"- js_ApplePayContactFieldName :: JSVal- -foreign import javascript unsafe "(() => { return \"phone\"; })"- js_ApplePayContactFieldPhone :: JSVal- -foreign import javascript unsafe "(() => { return \"postalAddress\"; })"- js_ApplePayContactFieldPostalAddress :: JSVal- -data ApplePayShippingType = ApplePayShippingTypeShipping- | ApplePayShippingTypeDelivery- | ApplePayShippingTypeStorePickup- | ApplePayShippingTypeServicePickup- deriving (Show, Read, Eq, Ord, Typeable)- -instance PToJSVal ApplePayShippingType where- pToJSVal ApplePayShippingTypeShipping- = js_ApplePayShippingTypeShipping- pToJSVal ApplePayShippingTypeDelivery- = js_ApplePayShippingTypeDelivery- pToJSVal ApplePayShippingTypeStorePickup- = js_ApplePayShippingTypeStorePickup- pToJSVal ApplePayShippingTypeServicePickup- = js_ApplePayShippingTypeServicePickup- -instance ToJSVal ApplePayShippingType where- toJSVal = return . pToJSVal- -instance PFromJSVal ApplePayShippingType where- pFromJSVal x- | x `js_eq` js_ApplePayShippingTypeShipping =- ApplePayShippingTypeShipping- pFromJSVal x- | x `js_eq` js_ApplePayShippingTypeDelivery =- ApplePayShippingTypeDelivery- pFromJSVal x- | x `js_eq` js_ApplePayShippingTypeStorePickup =- ApplePayShippingTypeStorePickup- pFromJSVal x- | x `js_eq` js_ApplePayShippingTypeServicePickup =- ApplePayShippingTypeServicePickup- -instance FromJSVal ApplePayShippingType where- fromJSValUnchecked = return . pFromJSVal- fromJSVal = return . pFromJSVal- -foreign import javascript unsafe "(() => { return \"shipping\"; })"- js_ApplePayShippingTypeShipping :: JSVal- -foreign import javascript unsafe "(() => { return \"delivery\"; })"- js_ApplePayShippingTypeDelivery :: JSVal- -foreign import javascript unsafe "(() => { return \"storePickup\"; })"- js_ApplePayShippingTypeStorePickup :: JSVal- -foreign import javascript unsafe "(() => { return \"servicePickup\"; })"- js_ApplePayShippingTypeServicePickup :: JSVal- -data MediaKeyMessageType = MediaKeyMessageTypeLicenseRequest- | MediaKeyMessageTypeLicenseRenewal- | MediaKeyMessageTypeLicenseRelease- | MediaKeyMessageTypeIndividualizationRequest- deriving (Show, Read, Eq, Ord, Typeable)- -instance PToJSVal MediaKeyMessageType where- pToJSVal MediaKeyMessageTypeLicenseRequest- = js_MediaKeyMessageTypeLicenseRequest- pToJSVal MediaKeyMessageTypeLicenseRenewal- = js_MediaKeyMessageTypeLicenseRenewal- pToJSVal MediaKeyMessageTypeLicenseRelease- = js_MediaKeyMessageTypeLicenseRelease- pToJSVal MediaKeyMessageTypeIndividualizationRequest- = js_MediaKeyMessageTypeIndividualizationRequest- -instance ToJSVal MediaKeyMessageType where- toJSVal = return . pToJSVal- -instance PFromJSVal MediaKeyMessageType where- pFromJSVal x- | x `js_eq` js_MediaKeyMessageTypeLicenseRequest =- MediaKeyMessageTypeLicenseRequest- pFromJSVal x- | x `js_eq` js_MediaKeyMessageTypeLicenseRenewal =- MediaKeyMessageTypeLicenseRenewal- pFromJSVal x- | x `js_eq` js_MediaKeyMessageTypeLicenseRelease =- MediaKeyMessageTypeLicenseRelease- pFromJSVal x- | x `js_eq` js_MediaKeyMessageTypeIndividualizationRequest =- MediaKeyMessageTypeIndividualizationRequest- -instance FromJSVal MediaKeyMessageType where- fromJSValUnchecked = return . pFromJSVal- fromJSVal = return . pFromJSVal- -foreign import javascript unsafe "(() => { return \"license-request\"; })"- js_MediaKeyMessageTypeLicenseRequest :: JSVal- -foreign import javascript unsafe "(() => { return \"license-renewal\"; })"- js_MediaKeyMessageTypeLicenseRenewal :: JSVal- -foreign import javascript unsafe "(() => { return \"license-release\"; })"- js_MediaKeyMessageTypeLicenseRelease :: JSVal- -foreign import javascript unsafe "(() => { return \"individualization-request\"; })"- js_MediaKeyMessageTypeIndividualizationRequest :: JSVal- -data MediaKeySessionType = MediaKeySessionTypeTemporary- | MediaKeySessionTypePersistentUsageRecord- | MediaKeySessionTypePersistentLicense- deriving (Show, Read, Eq, Ord, Typeable)- -instance PToJSVal MediaKeySessionType where- pToJSVal MediaKeySessionTypeTemporary- = js_MediaKeySessionTypeTemporary- pToJSVal MediaKeySessionTypePersistentUsageRecord- = js_MediaKeySessionTypePersistentUsageRecord- pToJSVal MediaKeySessionTypePersistentLicense- = js_MediaKeySessionTypePersistentLicense- -instance ToJSVal MediaKeySessionType where- toJSVal = return . pToJSVal- -instance PFromJSVal MediaKeySessionType where- pFromJSVal x- | x `js_eq` js_MediaKeySessionTypeTemporary =- MediaKeySessionTypeTemporary- pFromJSVal x- | x `js_eq` js_MediaKeySessionTypePersistentUsageRecord =- MediaKeySessionTypePersistentUsageRecord- pFromJSVal x- | x `js_eq` js_MediaKeySessionTypePersistentLicense =- MediaKeySessionTypePersistentLicense- -instance FromJSVal MediaKeySessionType where- fromJSValUnchecked = return . pFromJSVal- fromJSVal = return . pFromJSVal- -foreign import javascript unsafe "(() => { return \"temporary\"; })"- js_MediaKeySessionTypeTemporary :: JSVal- -foreign import javascript unsafe "(() => { return \"persistent-usage-record\"; })"- js_MediaKeySessionTypePersistentUsageRecord :: JSVal- -foreign import javascript unsafe "(() => { return \"persistent-license\"; })"- js_MediaKeySessionTypePersistentLicense :: JSVal- -data MediaKeysRequirement = MediaKeysRequirementRequired- | MediaKeysRequirementOptional- | MediaKeysRequirementNotAllowed- deriving (Show, Read, Eq, Ord, Typeable)- -instance PToJSVal MediaKeysRequirement where- pToJSVal MediaKeysRequirementRequired- = js_MediaKeysRequirementRequired- pToJSVal MediaKeysRequirementOptional- = js_MediaKeysRequirementOptional- pToJSVal MediaKeysRequirementNotAllowed- = js_MediaKeysRequirementNotAllowed- -instance ToJSVal MediaKeysRequirement where- toJSVal = return . pToJSVal- -instance PFromJSVal MediaKeysRequirement where- pFromJSVal x- | x `js_eq` js_MediaKeysRequirementRequired =- MediaKeysRequirementRequired- pFromJSVal x- | x `js_eq` js_MediaKeysRequirementOptional =- MediaKeysRequirementOptional- pFromJSVal x- | x `js_eq` js_MediaKeysRequirementNotAllowed =- MediaKeysRequirementNotAllowed- -instance FromJSVal MediaKeysRequirement where- fromJSValUnchecked = return . pFromJSVal- fromJSVal = return . pFromJSVal- -foreign import javascript unsafe "(() => { return \"required\"; })"- js_MediaKeysRequirementRequired :: JSVal- -foreign import javascript unsafe "(() => { return \"optional\"; })"- js_MediaKeysRequirementOptional :: JSVal- -foreign import javascript unsafe "(() => { return \"not-allowed\"; })"- js_MediaKeysRequirementNotAllowed :: JSVal- -data MediaKeyStatus = MediaKeyStatusUsable- | MediaKeyStatusExpired- | MediaKeyStatusReleased- | MediaKeyStatusOutputRestricted- | MediaKeyStatusOutputDownscaled- | MediaKeyStatusStatusPending- | MediaKeyStatusInternalError- deriving (Show, Read, Eq, Ord, Typeable)- -instance PToJSVal MediaKeyStatus where- pToJSVal MediaKeyStatusUsable = js_MediaKeyStatusUsable- pToJSVal MediaKeyStatusExpired = js_MediaKeyStatusExpired- pToJSVal MediaKeyStatusReleased = js_MediaKeyStatusReleased- pToJSVal MediaKeyStatusOutputRestricted- = js_MediaKeyStatusOutputRestricted- pToJSVal MediaKeyStatusOutputDownscaled- = js_MediaKeyStatusOutputDownscaled- pToJSVal MediaKeyStatusStatusPending- = js_MediaKeyStatusStatusPending- pToJSVal MediaKeyStatusInternalError- = js_MediaKeyStatusInternalError- -instance ToJSVal MediaKeyStatus where- toJSVal = return . pToJSVal- -instance PFromJSVal MediaKeyStatus where- pFromJSVal x- | x `js_eq` js_MediaKeyStatusUsable = MediaKeyStatusUsable- pFromJSVal x- | x `js_eq` js_MediaKeyStatusExpired = MediaKeyStatusExpired- pFromJSVal x- | x `js_eq` js_MediaKeyStatusReleased = MediaKeyStatusReleased- pFromJSVal x- | x `js_eq` js_MediaKeyStatusOutputRestricted =- MediaKeyStatusOutputRestricted- pFromJSVal x- | x `js_eq` js_MediaKeyStatusOutputDownscaled =- MediaKeyStatusOutputDownscaled- pFromJSVal x- | x `js_eq` js_MediaKeyStatusStatusPending =- MediaKeyStatusStatusPending- pFromJSVal x- | x `js_eq` js_MediaKeyStatusInternalError =- MediaKeyStatusInternalError- -instance FromJSVal MediaKeyStatus where- fromJSValUnchecked = return . pFromJSVal- fromJSVal = return . pFromJSVal- -foreign import javascript unsafe "(() => { return \"usable\"; })"- js_MediaKeyStatusUsable :: JSVal- -foreign import javascript unsafe "(() => { return \"expired\"; })"- js_MediaKeyStatusExpired :: JSVal- -foreign import javascript unsafe "(() => { return \"released\"; })"- js_MediaKeyStatusReleased :: JSVal- -foreign import javascript unsafe "(() => { return \"output-restricted\"; })"- js_MediaKeyStatusOutputRestricted :: JSVal- -foreign import javascript unsafe "(() => { return \"output-downscaled\"; })"- js_MediaKeyStatusOutputDownscaled :: JSVal- -foreign import javascript unsafe "(() => { return \"status-pending\"; })"- js_MediaKeyStatusStatusPending :: JSVal- -foreign import javascript unsafe "(() => { return \"internal-error\"; })"- js_MediaKeyStatusInternalError :: JSVal- -data RequestType = RequestType- | RequestTypeAudio- | RequestTypeFont- | RequestTypeImage- | RequestTypeScript- | RequestTypeStyle- | RequestTypeTrack- | RequestTypeVideo- deriving (Show, Read, Eq, Ord, Typeable)- -instance PToJSVal RequestType where- pToJSVal RequestType = js_RequestType- pToJSVal RequestTypeAudio = js_RequestTypeAudio- pToJSVal RequestTypeFont = js_RequestTypeFont- pToJSVal RequestTypeImage = js_RequestTypeImage- pToJSVal RequestTypeScript = js_RequestTypeScript- pToJSVal RequestTypeStyle = js_RequestTypeStyle- pToJSVal RequestTypeTrack = js_RequestTypeTrack- pToJSVal RequestTypeVideo = js_RequestTypeVideo- -instance ToJSVal RequestType where- toJSVal = return . pToJSVal- -instance PFromJSVal RequestType where- pFromJSVal x | x `js_eq` js_RequestType = RequestType- pFromJSVal x | x `js_eq` js_RequestTypeAudio = RequestTypeAudio- pFromJSVal x | x `js_eq` js_RequestTypeFont = RequestTypeFont- pFromJSVal x | x `js_eq` js_RequestTypeImage = RequestTypeImage- pFromJSVal x | x `js_eq` js_RequestTypeScript = RequestTypeScript- pFromJSVal x | x `js_eq` js_RequestTypeStyle = RequestTypeStyle- pFromJSVal x | x `js_eq` js_RequestTypeTrack = RequestTypeTrack- pFromJSVal x | x `js_eq` js_RequestTypeVideo = RequestTypeVideo- -instance FromJSVal RequestType where- fromJSValUnchecked = return . pFromJSVal- fromJSVal = return . pFromJSVal- -foreign import javascript unsafe "(() => { return \"\"; })" js_RequestType :: JSVal- -foreign import javascript unsafe "(() => { return \"audio\"; })" js_RequestTypeAudio ::- JSVal- -foreign import javascript unsafe "(() => { return \"font\"; })" js_RequestTypeFont ::- JSVal- -foreign import javascript unsafe "(() => { return \"image\"; })" js_RequestTypeImage ::- JSVal- -foreign import javascript unsafe "(() => { return \"script\"; })" js_RequestTypeScript- :: JSVal- -foreign import javascript unsafe "(() => { return \"style\"; })" js_RequestTypeStyle ::- JSVal- -foreign import javascript unsafe "(() => { return \"track\"; })" js_RequestTypeTrack ::- JSVal- -foreign import javascript unsafe "(() => { return \"video\"; })" js_RequestTypeVideo ::- JSVal- -data RequestDestination = RequestDestination- | RequestDestinationDocument- | RequestDestinationSharedworker- | RequestDestinationSubresource- | RequestDestinationUnknown- | RequestDestinationWorker- deriving (Show, Read, Eq, Ord, Typeable)- -instance PToJSVal RequestDestination where- pToJSVal RequestDestination = js_RequestDestination- pToJSVal RequestDestinationDocument = js_RequestDestinationDocument- pToJSVal RequestDestinationSharedworker- = js_RequestDestinationSharedworker- pToJSVal RequestDestinationSubresource- = js_RequestDestinationSubresource- pToJSVal RequestDestinationUnknown = js_RequestDestinationUnknown- pToJSVal RequestDestinationWorker = js_RequestDestinationWorker- -instance ToJSVal RequestDestination where- toJSVal = return . pToJSVal- -instance PFromJSVal RequestDestination where- pFromJSVal x | x `js_eq` js_RequestDestination = RequestDestination- pFromJSVal x- | x `js_eq` js_RequestDestinationDocument =- RequestDestinationDocument- pFromJSVal x- | x `js_eq` js_RequestDestinationSharedworker =- RequestDestinationSharedworker- pFromJSVal x- | x `js_eq` js_RequestDestinationSubresource =- RequestDestinationSubresource- pFromJSVal x- | x `js_eq` js_RequestDestinationUnknown =- RequestDestinationUnknown- pFromJSVal x- | x `js_eq` js_RequestDestinationWorker = RequestDestinationWorker- -instance FromJSVal RequestDestination where- fromJSValUnchecked = return . pFromJSVal- fromJSVal = return . pFromJSVal- -foreign import javascript unsafe "(() => { return \"\"; })" js_RequestDestination ::- JSVal- -foreign import javascript unsafe "(() => { return \"document\"; })"- js_RequestDestinationDocument :: JSVal- -foreign import javascript unsafe "(() => { return \"sharedworker\"; })"- js_RequestDestinationSharedworker :: JSVal- -foreign import javascript unsafe "(() => { return \"subresource\"; })"- js_RequestDestinationSubresource :: JSVal- -foreign import javascript unsafe "(() => { return \"unknown\"; })"- js_RequestDestinationUnknown :: JSVal- -foreign import javascript unsafe "(() => { return \"worker\"; })"- js_RequestDestinationWorker :: JSVal- -data RequestMode = RequestModeNavigate- | RequestModeSameOrigin- | RequestModeNoCors- | RequestModeCors- deriving (Show, Read, Eq, Ord, Typeable)- -instance PToJSVal RequestMode where- pToJSVal RequestModeNavigate = js_RequestModeNavigate- pToJSVal RequestModeSameOrigin = js_RequestModeSameOrigin- pToJSVal RequestModeNoCors = js_RequestModeNoCors- pToJSVal RequestModeCors = js_RequestModeCors- -instance ToJSVal RequestMode where- toJSVal = return . pToJSVal- -instance PFromJSVal RequestMode where- pFromJSVal x- | x `js_eq` js_RequestModeNavigate = RequestModeNavigate- pFromJSVal x- | x `js_eq` js_RequestModeSameOrigin = RequestModeSameOrigin- pFromJSVal x | x `js_eq` js_RequestModeNoCors = RequestModeNoCors- pFromJSVal x | x `js_eq` js_RequestModeCors = RequestModeCors- -instance FromJSVal RequestMode where- fromJSValUnchecked = return . pFromJSVal- fromJSVal = return . pFromJSVal- -foreign import javascript unsafe "(() => { return \"navigate\"; })"- js_RequestModeNavigate :: JSVal- -foreign import javascript unsafe "(() => { return \"same-origin\"; })"- js_RequestModeSameOrigin :: JSVal- -foreign import javascript unsafe "(() => { return \"no-cors\"; })" js_RequestModeNoCors- :: JSVal- -foreign import javascript unsafe "(() => { return \"cors\"; })" js_RequestModeCors ::- JSVal- -data RequestCredentials = RequestCredentialsOmit- | RequestCredentialsSameOrigin- | RequestCredentialsInclude- deriving (Show, Read, Eq, Ord, Typeable)- -instance PToJSVal RequestCredentials where- pToJSVal RequestCredentialsOmit = js_RequestCredentialsOmit- pToJSVal RequestCredentialsSameOrigin- = js_RequestCredentialsSameOrigin- pToJSVal RequestCredentialsInclude = js_RequestCredentialsInclude- -instance ToJSVal RequestCredentials where- toJSVal = return . pToJSVal- -instance PFromJSVal RequestCredentials where- pFromJSVal x- | x `js_eq` js_RequestCredentialsOmit = RequestCredentialsOmit- pFromJSVal x- | x `js_eq` js_RequestCredentialsSameOrigin =- RequestCredentialsSameOrigin- pFromJSVal x- | x `js_eq` js_RequestCredentialsInclude =- RequestCredentialsInclude- -instance FromJSVal RequestCredentials where- fromJSValUnchecked = return . pFromJSVal- fromJSVal = return . pFromJSVal- -foreign import javascript unsafe "(() => { return \"omit\"; })"- js_RequestCredentialsOmit :: JSVal- -foreign import javascript unsafe "(() => { return \"same-origin\"; })"- js_RequestCredentialsSameOrigin :: JSVal- -foreign import javascript unsafe "(() => { return \"include\"; })"- js_RequestCredentialsInclude :: JSVal- -data RequestCache = RequestCacheDefault- | RequestCacheNoStore- | RequestCacheReload- | RequestCacheNoCache- | RequestCacheForceCache- | RequestCacheOnlyIfCached- deriving (Show, Read, Eq, Ord, Typeable)- -instance PToJSVal RequestCache where- pToJSVal RequestCacheDefault = js_RequestCacheDefault- pToJSVal RequestCacheNoStore = js_RequestCacheNoStore- pToJSVal RequestCacheReload = js_RequestCacheReload- pToJSVal RequestCacheNoCache = js_RequestCacheNoCache- pToJSVal RequestCacheForceCache = js_RequestCacheForceCache- pToJSVal RequestCacheOnlyIfCached = js_RequestCacheOnlyIfCached- -instance ToJSVal RequestCache where- toJSVal = return . pToJSVal- -instance PFromJSVal RequestCache where- pFromJSVal x- | x `js_eq` js_RequestCacheDefault = RequestCacheDefault- pFromJSVal x- | x `js_eq` js_RequestCacheNoStore = RequestCacheNoStore- pFromJSVal x | x `js_eq` js_RequestCacheReload = RequestCacheReload- pFromJSVal x- | x `js_eq` js_RequestCacheNoCache = RequestCacheNoCache- pFromJSVal x- | x `js_eq` js_RequestCacheForceCache = RequestCacheForceCache- pFromJSVal x- | x `js_eq` js_RequestCacheOnlyIfCached = RequestCacheOnlyIfCached- -instance FromJSVal RequestCache where- fromJSValUnchecked = return . pFromJSVal- fromJSVal = return . pFromJSVal- -foreign import javascript unsafe "(() => { return \"default\"; })"- js_RequestCacheDefault :: JSVal- -foreign import javascript unsafe "(() => { return \"no-store\"; })"- js_RequestCacheNoStore :: JSVal- -foreign import javascript unsafe "(() => { return \"reload\"; })" js_RequestCacheReload- :: JSVal- -foreign import javascript unsafe "(() => { return \"no-cache\"; })"- js_RequestCacheNoCache :: JSVal- -foreign import javascript unsafe "(() => { return \"force-cache\"; })"- js_RequestCacheForceCache :: JSVal- -foreign import javascript unsafe "(() => { return \"only-if-cached\"; })"- js_RequestCacheOnlyIfCached :: JSVal- -data RequestRedirect = RequestRedirectFollow- | RequestRedirectError- | RequestRedirectManual- deriving (Show, Read, Eq, Ord, Typeable)- -instance PToJSVal RequestRedirect where- pToJSVal RequestRedirectFollow = js_RequestRedirectFollow- pToJSVal RequestRedirectError = js_RequestRedirectError- pToJSVal RequestRedirectManual = js_RequestRedirectManual- -instance ToJSVal RequestRedirect where- toJSVal = return . pToJSVal- -instance PFromJSVal RequestRedirect where- pFromJSVal x- | x `js_eq` js_RequestRedirectFollow = RequestRedirectFollow- pFromJSVal x- | x `js_eq` js_RequestRedirectError = RequestRedirectError- pFromJSVal x- | x `js_eq` js_RequestRedirectManual = RequestRedirectManual- -instance FromJSVal RequestRedirect where- fromJSValUnchecked = return . pFromJSVal- fromJSVal = return . pFromJSVal- -foreign import javascript unsafe "(() => { return \"follow\"; })"- js_RequestRedirectFollow :: JSVal- -foreign import javascript unsafe "(() => { return \"error\"; })"- js_RequestRedirectError :: JSVal- -foreign import javascript unsafe "(() => { return \"manual\"; })"- js_RequestRedirectManual :: JSVal- -data ReferrerPolicy = ReferrerPolicy- | ReferrerPolicyNoReferrer- | ReferrerPolicyNoReferrerWhenDowngrade- | ReferrerPolicyOrigin- | ReferrerPolicyOriginWhenCrossOrigin- | ReferrerPolicyUnsafeUrl- deriving (Show, Read, Eq, Ord, Typeable)- -instance PToJSVal ReferrerPolicy where- pToJSVal ReferrerPolicy = js_ReferrerPolicy- pToJSVal ReferrerPolicyNoReferrer = js_ReferrerPolicyNoReferrer- pToJSVal ReferrerPolicyNoReferrerWhenDowngrade- = js_ReferrerPolicyNoReferrerWhenDowngrade- pToJSVal ReferrerPolicyOrigin = js_ReferrerPolicyOrigin- pToJSVal ReferrerPolicyOriginWhenCrossOrigin- = js_ReferrerPolicyOriginWhenCrossOrigin- pToJSVal ReferrerPolicyUnsafeUrl = js_ReferrerPolicyUnsafeUrl- -instance ToJSVal ReferrerPolicy where- toJSVal = return . pToJSVal- -instance PFromJSVal ReferrerPolicy where- pFromJSVal x | x `js_eq` js_ReferrerPolicy = ReferrerPolicy- pFromJSVal x- | x `js_eq` js_ReferrerPolicyNoReferrer = ReferrerPolicyNoReferrer- pFromJSVal x- | x `js_eq` js_ReferrerPolicyNoReferrerWhenDowngrade =- ReferrerPolicyNoReferrerWhenDowngrade- pFromJSVal x- | x `js_eq` js_ReferrerPolicyOrigin = ReferrerPolicyOrigin- pFromJSVal x- | x `js_eq` js_ReferrerPolicyOriginWhenCrossOrigin =- ReferrerPolicyOriginWhenCrossOrigin- pFromJSVal x- | x `js_eq` js_ReferrerPolicyUnsafeUrl = ReferrerPolicyUnsafeUrl- -instance FromJSVal ReferrerPolicy where- fromJSValUnchecked = return . pFromJSVal- fromJSVal = return . pFromJSVal- -foreign import javascript unsafe "(() => { return \"\"; })" js_ReferrerPolicy :: JSVal- -foreign import javascript unsafe "(() => { return \"no-referrer\"; })"- js_ReferrerPolicyNoReferrer :: JSVal- -foreign import javascript unsafe "(() => { return \"no-referrer-when-downgrade\"; })"- js_ReferrerPolicyNoReferrerWhenDowngrade :: JSVal- -foreign import javascript unsafe "(() => { return \"origin\"; })"- js_ReferrerPolicyOrigin :: JSVal- -foreign import javascript unsafe "(() => { return \"origin-when-cross-origin\"; })"- js_ReferrerPolicyOriginWhenCrossOrigin :: JSVal- -foreign import javascript unsafe "(() => { return \"unsafe-url\"; })"- js_ReferrerPolicyUnsafeUrl :: JSVal- -data ResponseType = ResponseTypeBasic- | ResponseTypeCors- | ResponseTypeDefault- | ResponseTypeError- | ResponseTypeOpaque- | ResponseTypeOpaqueredirect- deriving (Show, Read, Eq, Ord, Typeable)- -instance PToJSVal ResponseType where- pToJSVal ResponseTypeBasic = js_ResponseTypeBasic- pToJSVal ResponseTypeCors = js_ResponseTypeCors- pToJSVal ResponseTypeDefault = js_ResponseTypeDefault- pToJSVal ResponseTypeError = js_ResponseTypeError- pToJSVal ResponseTypeOpaque = js_ResponseTypeOpaque- pToJSVal ResponseTypeOpaqueredirect = js_ResponseTypeOpaqueredirect- -instance ToJSVal ResponseType where- toJSVal = return . pToJSVal- -instance PFromJSVal ResponseType where- pFromJSVal x | x `js_eq` js_ResponseTypeBasic = ResponseTypeBasic- pFromJSVal x | x `js_eq` js_ResponseTypeCors = ResponseTypeCors- pFromJSVal x- | x `js_eq` js_ResponseTypeDefault = ResponseTypeDefault- pFromJSVal x | x `js_eq` js_ResponseTypeError = ResponseTypeError- pFromJSVal x | x `js_eq` js_ResponseTypeOpaque = ResponseTypeOpaque- pFromJSVal x- | x `js_eq` js_ResponseTypeOpaqueredirect =- ResponseTypeOpaqueredirect- -instance FromJSVal ResponseType where- fromJSValUnchecked = return . pFromJSVal- fromJSVal = return . pFromJSVal- -foreign import javascript unsafe "(() => { return \"basic\"; })" js_ResponseTypeBasic- :: JSVal- -foreign import javascript unsafe "(() => { return \"cors\"; })" js_ResponseTypeCors ::- JSVal- -foreign import javascript unsafe "(() => { return \"default\"; })"- js_ResponseTypeDefault :: JSVal- -foreign import javascript unsafe "(() => { return \"error\"; })" js_ResponseTypeError- :: JSVal- -foreign import javascript unsafe "(() => { return \"opaque\"; })" js_ResponseTypeOpaque- :: JSVal- -foreign import javascript unsafe "(() => { return \"opaqueredirect\"; })"- js_ResponseTypeOpaqueredirect :: JSVal- -data IDBCursorDirection = IDBCursorDirectionNext- | IDBCursorDirectionNextunique- | IDBCursorDirectionPrev- | IDBCursorDirectionPrevunique- deriving (Show, Read, Eq, Ord, Typeable)- -instance PToJSVal IDBCursorDirection where- pToJSVal IDBCursorDirectionNext = js_IDBCursorDirectionNext- pToJSVal IDBCursorDirectionNextunique- = js_IDBCursorDirectionNextunique- pToJSVal IDBCursorDirectionPrev = js_IDBCursorDirectionPrev- pToJSVal IDBCursorDirectionPrevunique- = js_IDBCursorDirectionPrevunique- -instance ToJSVal IDBCursorDirection where- toJSVal = return . pToJSVal- -instance PFromJSVal IDBCursorDirection where- pFromJSVal x- | x `js_eq` js_IDBCursorDirectionNext = IDBCursorDirectionNext- pFromJSVal x- | x `js_eq` js_IDBCursorDirectionNextunique =- IDBCursorDirectionNextunique- pFromJSVal x- | x `js_eq` js_IDBCursorDirectionPrev = IDBCursorDirectionPrev- pFromJSVal x- | x `js_eq` js_IDBCursorDirectionPrevunique =- IDBCursorDirectionPrevunique- -instance FromJSVal IDBCursorDirection where- fromJSValUnchecked = return . pFromJSVal- fromJSVal = return . pFromJSVal- -foreign import javascript unsafe "(() => { return \"next\"; })"- js_IDBCursorDirectionNext :: JSVal- -foreign import javascript unsafe "(() => { return \"nextunique\"; })"- js_IDBCursorDirectionNextunique :: JSVal- -foreign import javascript unsafe "(() => { return \"prev\"; })"- js_IDBCursorDirectionPrev :: JSVal- -foreign import javascript unsafe "(() => { return \"prevunique\"; })"- js_IDBCursorDirectionPrevunique :: JSVal- -data IDBRequestReadyState = IDBRequestReadyStatePending- | IDBRequestReadyStateDone- deriving (Show, Read, Eq, Ord, Typeable)- -instance PToJSVal IDBRequestReadyState where- pToJSVal IDBRequestReadyStatePending- = js_IDBRequestReadyStatePending- pToJSVal IDBRequestReadyStateDone = js_IDBRequestReadyStateDone- -instance ToJSVal IDBRequestReadyState where- toJSVal = return . pToJSVal- -instance PFromJSVal IDBRequestReadyState where- pFromJSVal x- | x `js_eq` js_IDBRequestReadyStatePending =- IDBRequestReadyStatePending- pFromJSVal x- | x `js_eq` js_IDBRequestReadyStateDone = IDBRequestReadyStateDone- -instance FromJSVal IDBRequestReadyState where- fromJSValUnchecked = return . pFromJSVal- fromJSVal = return . pFromJSVal- -foreign import javascript unsafe "(() => { return \"pending\"; })"- js_IDBRequestReadyStatePending :: JSVal- -foreign import javascript unsafe "(() => { return \"done\"; })"- js_IDBRequestReadyStateDone :: JSVal- -data IDBTransactionMode = IDBTransactionModeReadonly- | IDBTransactionModeReadwrite- | IDBTransactionModeVersionchange- deriving (Show, Read, Eq, Ord, Typeable)- -instance PToJSVal IDBTransactionMode where- pToJSVal IDBTransactionModeReadonly = js_IDBTransactionModeReadonly- pToJSVal IDBTransactionModeReadwrite- = js_IDBTransactionModeReadwrite- pToJSVal IDBTransactionModeVersionchange- = js_IDBTransactionModeVersionchange- -instance ToJSVal IDBTransactionMode where- toJSVal = return . pToJSVal- -instance PFromJSVal IDBTransactionMode where- pFromJSVal x- | x `js_eq` js_IDBTransactionModeReadonly =- IDBTransactionModeReadonly- pFromJSVal x- | x `js_eq` js_IDBTransactionModeReadwrite =- IDBTransactionModeReadwrite- pFromJSVal x- | x `js_eq` js_IDBTransactionModeVersionchange =- IDBTransactionModeVersionchange- -instance FromJSVal IDBTransactionMode where- fromJSValUnchecked = return . pFromJSVal- fromJSVal = return . pFromJSVal- -foreign import javascript unsafe "(() => { return \"readonly\"; })"- js_IDBTransactionModeReadonly :: JSVal- -foreign import javascript unsafe "(() => { return \"readwrite\"; })"- js_IDBTransactionModeReadwrite :: JSVal- -foreign import javascript unsafe "(() => { return \"versionchange\"; })"- js_IDBTransactionModeVersionchange :: JSVal- -data DeviceType = DeviceTypeNone- | DeviceTypeAirplay- | DeviceTypeTvout- deriving (Show, Read, Eq, Ord, Typeable)- -instance PToJSVal DeviceType where- pToJSVal DeviceTypeNone = js_DeviceTypeNone- pToJSVal DeviceTypeAirplay = js_DeviceTypeAirplay- pToJSVal DeviceTypeTvout = js_DeviceTypeTvout- -instance ToJSVal DeviceType where- toJSVal = return . pToJSVal- -instance PFromJSVal DeviceType where- pFromJSVal x | x `js_eq` js_DeviceTypeNone = DeviceTypeNone- pFromJSVal x | x `js_eq` js_DeviceTypeAirplay = DeviceTypeAirplay- pFromJSVal x | x `js_eq` js_DeviceTypeTvout = DeviceTypeTvout- -instance FromJSVal DeviceType where- fromJSValUnchecked = return . pFromJSVal- fromJSVal = return . pFromJSVal- -foreign import javascript unsafe "(() => { return \"none\"; })" js_DeviceTypeNone ::- JSVal- -foreign import javascript unsafe "(() => { return \"airplay\"; })" js_DeviceTypeAirplay- :: JSVal- -foreign import javascript unsafe "(() => { return \"tvout\"; })" js_DeviceTypeTvout ::- JSVal- -data MediaSessionKind = MediaSessionKindContent- | MediaSessionKindTransient- | MediaSessionKindTransientSolo- | MediaSessionKindAmbient- deriving (Show, Read, Eq, Ord, Typeable)- -instance PToJSVal MediaSessionKind where- pToJSVal MediaSessionKindContent = js_MediaSessionKindContent- pToJSVal MediaSessionKindTransient = js_MediaSessionKindTransient- pToJSVal MediaSessionKindTransientSolo- = js_MediaSessionKindTransientSolo- pToJSVal MediaSessionKindAmbient = js_MediaSessionKindAmbient- -instance ToJSVal MediaSessionKind where- toJSVal = return . pToJSVal- -instance PFromJSVal MediaSessionKind where- pFromJSVal x- | x `js_eq` js_MediaSessionKindContent = MediaSessionKindContent- pFromJSVal x- | x `js_eq` js_MediaSessionKindTransient =- MediaSessionKindTransient- pFromJSVal x- | x `js_eq` js_MediaSessionKindTransientSolo =- MediaSessionKindTransientSolo- pFromJSVal x- | x `js_eq` js_MediaSessionKindAmbient = MediaSessionKindAmbient- -instance FromJSVal MediaSessionKind where- fromJSValUnchecked = return . pFromJSVal- fromJSVal = return . pFromJSVal- -foreign import javascript unsafe "(() => { return \"content\"; })"- js_MediaSessionKindContent :: JSVal- -foreign import javascript unsafe "(() => { return \"transient\"; })"- js_MediaSessionKindTransient :: JSVal- -foreign import javascript unsafe "(() => { return \"transient-solo\"; })"- js_MediaSessionKindTransientSolo :: JSVal- -foreign import javascript unsafe "(() => { return \"ambient\"; })"- js_MediaSessionKindAmbient :: JSVal- -data EndOfStreamError = EndOfStreamErrorNetwork- | EndOfStreamErrorDecode- deriving (Show, Read, Eq, Ord, Typeable)- -instance PToJSVal EndOfStreamError where- pToJSVal EndOfStreamErrorNetwork = js_EndOfStreamErrorNetwork- pToJSVal EndOfStreamErrorDecode = js_EndOfStreamErrorDecode- -instance ToJSVal EndOfStreamError where- toJSVal = return . pToJSVal- -instance PFromJSVal EndOfStreamError where- pFromJSVal x- | x `js_eq` js_EndOfStreamErrorNetwork = EndOfStreamErrorNetwork- pFromJSVal x- | x `js_eq` js_EndOfStreamErrorDecode = EndOfStreamErrorDecode- -instance FromJSVal EndOfStreamError where- fromJSValUnchecked = return . pFromJSVal- fromJSVal = return . pFromJSVal- -foreign import javascript unsafe "(() => { return \"network\"; })"- js_EndOfStreamErrorNetwork :: JSVal- -foreign import javascript unsafe "(() => { return \"decode\"; })"- js_EndOfStreamErrorDecode :: JSVal- -data ReadyState = ReadyStateClosed- | ReadyStateOpen- | ReadyStateEnded- deriving (Show, Read, Eq, Ord, Typeable)- -instance PToJSVal ReadyState where- pToJSVal ReadyStateClosed = js_ReadyStateClosed- pToJSVal ReadyStateOpen = js_ReadyStateOpen- pToJSVal ReadyStateEnded = js_ReadyStateEnded- -instance ToJSVal ReadyState where- toJSVal = return . pToJSVal- -instance PFromJSVal ReadyState where- pFromJSVal x | x `js_eq` js_ReadyStateClosed = ReadyStateClosed- pFromJSVal x | x `js_eq` js_ReadyStateOpen = ReadyStateOpen- pFromJSVal x | x `js_eq` js_ReadyStateEnded = ReadyStateEnded- -instance FromJSVal ReadyState where- fromJSValUnchecked = return . pFromJSVal- fromJSVal = return . pFromJSVal- -foreign import javascript unsafe "(() => { return \"closed\"; })" js_ReadyStateClosed- :: JSVal- -foreign import javascript unsafe "(() => { return \"open\"; })" js_ReadyStateOpen ::- JSVal- -foreign import javascript unsafe "(() => { return \"ended\"; })" js_ReadyStateEnded ::- JSVal- -data AppendMode = AppendModeSegments- | AppendModeSequence- deriving (Show, Read, Eq, Ord, Typeable)- -instance PToJSVal AppendMode where- pToJSVal AppendModeSegments = js_AppendModeSegments- pToJSVal AppendModeSequence = js_AppendModeSequence- -instance ToJSVal AppendMode where- toJSVal = return . pToJSVal- -instance PFromJSVal AppendMode where- pFromJSVal x | x `js_eq` js_AppendModeSegments = AppendModeSegments- pFromJSVal x | x `js_eq` js_AppendModeSequence = AppendModeSequence- -instance FromJSVal AppendMode where- fromJSValUnchecked = return . pFromJSVal- fromJSVal = return . pFromJSVal- -foreign import javascript unsafe "(() => { return \"segments\"; })"- js_AppendModeSegments :: JSVal- -foreign import javascript unsafe "(() => { return \"sequence\"; })"- js_AppendModeSequence :: JSVal- -data MediaDeviceKind = MediaDeviceKindAudioinput- | MediaDeviceKindAudiooutput- | MediaDeviceKindVideoinput- deriving (Show, Read, Eq, Ord, Typeable)- -instance PToJSVal MediaDeviceKind where- pToJSVal MediaDeviceKindAudioinput = js_MediaDeviceKindAudioinput- pToJSVal MediaDeviceKindAudiooutput = js_MediaDeviceKindAudiooutput- pToJSVal MediaDeviceKindVideoinput = js_MediaDeviceKindVideoinput- -instance ToJSVal MediaDeviceKind where- toJSVal = return . pToJSVal- -instance PFromJSVal MediaDeviceKind where- pFromJSVal x- | x `js_eq` js_MediaDeviceKindAudioinput =- MediaDeviceKindAudioinput- pFromJSVal x- | x `js_eq` js_MediaDeviceKindAudiooutput =- MediaDeviceKindAudiooutput- pFromJSVal x- | x `js_eq` js_MediaDeviceKindVideoinput =- MediaDeviceKindVideoinput- -instance FromJSVal MediaDeviceKind where- fromJSValUnchecked = return . pFromJSVal- fromJSVal = return . pFromJSVal- -foreign import javascript unsafe "(() => { return \"audioinput\"; })"- js_MediaDeviceKindAudioinput :: JSVal- -foreign import javascript unsafe "(() => { return \"audiooutput\"; })"- js_MediaDeviceKindAudiooutput :: JSVal- -foreign import javascript unsafe "(() => { return \"videoinput\"; })"- js_MediaDeviceKindVideoinput :: JSVal- -data MediaStreamTrackState = MediaStreamTrackStateLive- | MediaStreamTrackStateEnded- deriving (Show, Read, Eq, Ord, Typeable)- -instance PToJSVal MediaStreamTrackState where- pToJSVal MediaStreamTrackStateLive = js_MediaStreamTrackStateLive- pToJSVal MediaStreamTrackStateEnded = js_MediaStreamTrackStateEnded- -instance ToJSVal MediaStreamTrackState where- toJSVal = return . pToJSVal- -instance PFromJSVal MediaStreamTrackState where- pFromJSVal x- | x `js_eq` js_MediaStreamTrackStateLive =- MediaStreamTrackStateLive- pFromJSVal x- | x `js_eq` js_MediaStreamTrackStateEnded =- MediaStreamTrackStateEnded- -instance FromJSVal MediaStreamTrackState where- fromJSValUnchecked = return . pFromJSVal- fromJSVal = return . pFromJSVal- -foreign import javascript unsafe "(() => { return \"live\"; })"- js_MediaStreamTrackStateLive :: JSVal- -foreign import javascript unsafe "(() => { return \"ended\"; })"- js_MediaStreamTrackStateEnded :: JSVal- -data RTCIceTransportPolicy = RTCIceTransportPolicyRelay- | RTCIceTransportPolicyAll- deriving (Show, Read, Eq, Ord, Typeable)- -instance PToJSVal RTCIceTransportPolicy where- pToJSVal RTCIceTransportPolicyRelay = js_RTCIceTransportPolicyRelay- pToJSVal RTCIceTransportPolicyAll = js_RTCIceTransportPolicyAll- -instance ToJSVal RTCIceTransportPolicy where- toJSVal = return . pToJSVal- -instance PFromJSVal RTCIceTransportPolicy where- pFromJSVal x- | x `js_eq` js_RTCIceTransportPolicyRelay =- RTCIceTransportPolicyRelay- pFromJSVal x- | x `js_eq` js_RTCIceTransportPolicyAll = RTCIceTransportPolicyAll- -instance FromJSVal RTCIceTransportPolicy where- fromJSValUnchecked = return . pFromJSVal- fromJSVal = return . pFromJSVal- -foreign import javascript unsafe "(() => { return \"relay\"; })"- js_RTCIceTransportPolicyRelay :: JSVal- -foreign import javascript unsafe "(() => { return \"all\"; })"- js_RTCIceTransportPolicyAll :: JSVal- -data RTCBundlePolicy = RTCBundlePolicyBalanced- | RTCBundlePolicyMaxCompat- | RTCBundlePolicyMaxBundle- deriving (Show, Read, Eq, Ord, Typeable)- -instance PToJSVal RTCBundlePolicy where- pToJSVal RTCBundlePolicyBalanced = js_RTCBundlePolicyBalanced- pToJSVal RTCBundlePolicyMaxCompat = js_RTCBundlePolicyMaxCompat- pToJSVal RTCBundlePolicyMaxBundle = js_RTCBundlePolicyMaxBundle- -instance ToJSVal RTCBundlePolicy where- toJSVal = return . pToJSVal- -instance PFromJSVal RTCBundlePolicy where- pFromJSVal x- | x `js_eq` js_RTCBundlePolicyBalanced = RTCBundlePolicyBalanced- pFromJSVal x- | x `js_eq` js_RTCBundlePolicyMaxCompat = RTCBundlePolicyMaxCompat- pFromJSVal x- | x `js_eq` js_RTCBundlePolicyMaxBundle = RTCBundlePolicyMaxBundle- -instance FromJSVal RTCBundlePolicy where- fromJSValUnchecked = return . pFromJSVal- fromJSVal = return . pFromJSVal- -foreign import javascript unsafe "(() => { return \"balanced\"; })"- js_RTCBundlePolicyBalanced :: JSVal- -foreign import javascript unsafe "(() => { return \"max-compat\"; })"- js_RTCBundlePolicyMaxCompat :: JSVal- -foreign import javascript unsafe "(() => { return \"max-bundle\"; })"- js_RTCBundlePolicyMaxBundle :: JSVal- -data RTCDataChannelState = RTCDataChannelStateConnecting- | RTCDataChannelStateOpen- | RTCDataChannelStateClosing- | RTCDataChannelStateClosed- deriving (Show, Read, Eq, Ord, Typeable)- -instance PToJSVal RTCDataChannelState where- pToJSVal RTCDataChannelStateConnecting- = js_RTCDataChannelStateConnecting- pToJSVal RTCDataChannelStateOpen = js_RTCDataChannelStateOpen- pToJSVal RTCDataChannelStateClosing = js_RTCDataChannelStateClosing- pToJSVal RTCDataChannelStateClosed = js_RTCDataChannelStateClosed- -instance ToJSVal RTCDataChannelState where- toJSVal = return . pToJSVal- -instance PFromJSVal RTCDataChannelState where- pFromJSVal x- | x `js_eq` js_RTCDataChannelStateConnecting =- RTCDataChannelStateConnecting- pFromJSVal x- | x `js_eq` js_RTCDataChannelStateOpen = RTCDataChannelStateOpen- pFromJSVal x- | x `js_eq` js_RTCDataChannelStateClosing =- RTCDataChannelStateClosing- pFromJSVal x- | x `js_eq` js_RTCDataChannelStateClosed =- RTCDataChannelStateClosed- -instance FromJSVal RTCDataChannelState where- fromJSValUnchecked = return . pFromJSVal- fromJSVal = return . pFromJSVal- -foreign import javascript unsafe "(() => { return \"connecting\"; })"- js_RTCDataChannelStateConnecting :: JSVal- -foreign import javascript unsafe "(() => { return \"open\"; })"- js_RTCDataChannelStateOpen :: JSVal- -foreign import javascript unsafe "(() => { return \"closing\"; })"- js_RTCDataChannelStateClosing :: JSVal- -foreign import javascript unsafe "(() => { return \"closed\"; })"- js_RTCDataChannelStateClosed :: JSVal- -data RTCIceConnectionState = RTCIceConnectionStateNew- | RTCIceConnectionStateChecking- | RTCIceConnectionStateConnected- | RTCIceConnectionStateCompleted- | RTCIceConnectionStateFailed- | RTCIceConnectionStateDisconnected- | RTCIceConnectionStateClosed- deriving (Show, Read, Eq, Ord, Typeable)- -instance PToJSVal RTCIceConnectionState where- pToJSVal RTCIceConnectionStateNew = js_RTCIceConnectionStateNew- pToJSVal RTCIceConnectionStateChecking- = js_RTCIceConnectionStateChecking- pToJSVal RTCIceConnectionStateConnected- = js_RTCIceConnectionStateConnected- pToJSVal RTCIceConnectionStateCompleted- = js_RTCIceConnectionStateCompleted- pToJSVal RTCIceConnectionStateFailed- = js_RTCIceConnectionStateFailed- pToJSVal RTCIceConnectionStateDisconnected- = js_RTCIceConnectionStateDisconnected- pToJSVal RTCIceConnectionStateClosed- = js_RTCIceConnectionStateClosed- -instance ToJSVal RTCIceConnectionState where- toJSVal = return . pToJSVal- -instance PFromJSVal RTCIceConnectionState where- pFromJSVal x- | x `js_eq` js_RTCIceConnectionStateNew = RTCIceConnectionStateNew- pFromJSVal x- | x `js_eq` js_RTCIceConnectionStateChecking =- RTCIceConnectionStateChecking- pFromJSVal x- | x `js_eq` js_RTCIceConnectionStateConnected =- RTCIceConnectionStateConnected- pFromJSVal x- | x `js_eq` js_RTCIceConnectionStateCompleted =- RTCIceConnectionStateCompleted- pFromJSVal x- | x `js_eq` js_RTCIceConnectionStateFailed =- RTCIceConnectionStateFailed- pFromJSVal x- | x `js_eq` js_RTCIceConnectionStateDisconnected =- RTCIceConnectionStateDisconnected- pFromJSVal x- | x `js_eq` js_RTCIceConnectionStateClosed =- RTCIceConnectionStateClosed- -instance FromJSVal RTCIceConnectionState where- fromJSValUnchecked = return . pFromJSVal- fromJSVal = return . pFromJSVal- -foreign import javascript unsafe "(() => { return \"new\"; })"- js_RTCIceConnectionStateNew :: JSVal- -foreign import javascript unsafe "(() => { return \"checking\"; })"- js_RTCIceConnectionStateChecking :: JSVal- -foreign import javascript unsafe "(() => { return \"connected\"; })"- js_RTCIceConnectionStateConnected :: JSVal- -foreign import javascript unsafe "(() => { return \"completed\"; })"- js_RTCIceConnectionStateCompleted :: JSVal- -foreign import javascript unsafe "(() => { return \"failed\"; })"- js_RTCIceConnectionStateFailed :: JSVal- -foreign import javascript unsafe "(() => { return \"disconnected\"; })"- js_RTCIceConnectionStateDisconnected :: JSVal- -foreign import javascript unsafe "(() => { return \"closed\"; })"- js_RTCIceConnectionStateClosed :: JSVal- -data RTCIceGatheringState = RTCIceGatheringStateNew- | RTCIceGatheringStateGathering- | RTCIceGatheringStateComplete- deriving (Show, Read, Eq, Ord, Typeable)- -instance PToJSVal RTCIceGatheringState where- pToJSVal RTCIceGatheringStateNew = js_RTCIceGatheringStateNew- pToJSVal RTCIceGatheringStateGathering- = js_RTCIceGatheringStateGathering- pToJSVal RTCIceGatheringStateComplete- = js_RTCIceGatheringStateComplete- -instance ToJSVal RTCIceGatheringState where- toJSVal = return . pToJSVal- -instance PFromJSVal RTCIceGatheringState where- pFromJSVal x- | x `js_eq` js_RTCIceGatheringStateNew = RTCIceGatheringStateNew- pFromJSVal x- | x `js_eq` js_RTCIceGatheringStateGathering =- RTCIceGatheringStateGathering- pFromJSVal x- | x `js_eq` js_RTCIceGatheringStateComplete =- RTCIceGatheringStateComplete- -instance FromJSVal RTCIceGatheringState where- fromJSValUnchecked = return . pFromJSVal- fromJSVal = return . pFromJSVal- -foreign import javascript unsafe "(() => { return \"new\"; })"- js_RTCIceGatheringStateNew :: JSVal- -foreign import javascript unsafe "(() => { return \"gathering\"; })"- js_RTCIceGatheringStateGathering :: JSVal- -foreign import javascript unsafe "(() => { return \"complete\"; })"- js_RTCIceGatheringStateComplete :: JSVal- -data RTCIceTransportState = RTCIceTransportStateNew- | RTCIceTransportStateChecking- | RTCIceTransportStateConnected- | RTCIceTransportStateCompleted- | RTCIceTransportStateFailed- | RTCIceTransportStateDisconnected- | RTCIceTransportStateClosed- deriving (Show, Read, Eq, Ord, Typeable)- -instance PToJSVal RTCIceTransportState where- pToJSVal RTCIceTransportStateNew = js_RTCIceTransportStateNew- pToJSVal RTCIceTransportStateChecking- = js_RTCIceTransportStateChecking- pToJSVal RTCIceTransportStateConnected- = js_RTCIceTransportStateConnected- pToJSVal RTCIceTransportStateCompleted- = js_RTCIceTransportStateCompleted- pToJSVal RTCIceTransportStateFailed = js_RTCIceTransportStateFailed- pToJSVal RTCIceTransportStateDisconnected- = js_RTCIceTransportStateDisconnected- pToJSVal RTCIceTransportStateClosed = js_RTCIceTransportStateClosed- -instance ToJSVal RTCIceTransportState where- toJSVal = return . pToJSVal- -instance PFromJSVal RTCIceTransportState where- pFromJSVal x- | x `js_eq` js_RTCIceTransportStateNew = RTCIceTransportStateNew- pFromJSVal x- | x `js_eq` js_RTCIceTransportStateChecking =- RTCIceTransportStateChecking- pFromJSVal x- | x `js_eq` js_RTCIceTransportStateConnected =- RTCIceTransportStateConnected- pFromJSVal x- | x `js_eq` js_RTCIceTransportStateCompleted =- RTCIceTransportStateCompleted- pFromJSVal x- | x `js_eq` js_RTCIceTransportStateFailed =- RTCIceTransportStateFailed- pFromJSVal x- | x `js_eq` js_RTCIceTransportStateDisconnected =- RTCIceTransportStateDisconnected- pFromJSVal x- | x `js_eq` js_RTCIceTransportStateClosed =- RTCIceTransportStateClosed- -instance FromJSVal RTCIceTransportState where- fromJSValUnchecked = return . pFromJSVal- fromJSVal = return . pFromJSVal- -foreign import javascript unsafe "(() => { return \"new\"; })"- js_RTCIceTransportStateNew :: JSVal- -foreign import javascript unsafe "(() => { return \"checking\"; })"- js_RTCIceTransportStateChecking :: JSVal- -foreign import javascript unsafe "(() => { return \"connected\"; })"- js_RTCIceTransportStateConnected :: JSVal- -foreign import javascript unsafe "(() => { return \"completed\"; })"- js_RTCIceTransportStateCompleted :: JSVal- -foreign import javascript unsafe "(() => { return \"failed\"; })"- js_RTCIceTransportStateFailed :: JSVal- -foreign import javascript unsafe "(() => { return \"disconnected\"; })"- js_RTCIceTransportStateDisconnected :: JSVal- -foreign import javascript unsafe "(() => { return \"closed\"; })"- js_RTCIceTransportStateClosed :: JSVal- -data RTCPeerConnectionState = RTCPeerConnectionStateNew- | RTCPeerConnectionStateConnecting- | RTCPeerConnectionStateConnected- | RTCPeerConnectionStateDisconnected- | RTCPeerConnectionStateFailed- | RTCPeerConnectionStateClosed- deriving (Show, Read, Eq, Ord, Typeable)- -instance PToJSVal RTCPeerConnectionState where- pToJSVal RTCPeerConnectionStateNew = js_RTCPeerConnectionStateNew- pToJSVal RTCPeerConnectionStateConnecting- = js_RTCPeerConnectionStateConnecting- pToJSVal RTCPeerConnectionStateConnected- = js_RTCPeerConnectionStateConnected- pToJSVal RTCPeerConnectionStateDisconnected- = js_RTCPeerConnectionStateDisconnected- pToJSVal RTCPeerConnectionStateFailed- = js_RTCPeerConnectionStateFailed- pToJSVal RTCPeerConnectionStateClosed- = js_RTCPeerConnectionStateClosed- -instance ToJSVal RTCPeerConnectionState where- toJSVal = return . pToJSVal- -instance PFromJSVal RTCPeerConnectionState where- pFromJSVal x- | x `js_eq` js_RTCPeerConnectionStateNew =- RTCPeerConnectionStateNew- pFromJSVal x- | x `js_eq` js_RTCPeerConnectionStateConnecting =- RTCPeerConnectionStateConnecting- pFromJSVal x- | x `js_eq` js_RTCPeerConnectionStateConnected =- RTCPeerConnectionStateConnected- pFromJSVal x- | x `js_eq` js_RTCPeerConnectionStateDisconnected =- RTCPeerConnectionStateDisconnected- pFromJSVal x- | x `js_eq` js_RTCPeerConnectionStateFailed =- RTCPeerConnectionStateFailed- pFromJSVal x- | x `js_eq` js_RTCPeerConnectionStateClosed =- RTCPeerConnectionStateClosed- -instance FromJSVal RTCPeerConnectionState where- fromJSValUnchecked = return . pFromJSVal- fromJSVal = return . pFromJSVal- -foreign import javascript unsafe "(() => { return \"new\"; })"- js_RTCPeerConnectionStateNew :: JSVal- -foreign import javascript unsafe "(() => { return \"connecting\"; })"- js_RTCPeerConnectionStateConnecting :: JSVal- -foreign import javascript unsafe "(() => { return \"connected\"; })"- js_RTCPeerConnectionStateConnected :: JSVal- -foreign import javascript unsafe "(() => { return \"disconnected\"; })"- js_RTCPeerConnectionStateDisconnected :: JSVal- -foreign import javascript unsafe "(() => { return \"failed\"; })"- js_RTCPeerConnectionStateFailed :: JSVal- -foreign import javascript unsafe "(() => { return \"closed\"; })"- js_RTCPeerConnectionStateClosed :: JSVal- -data RTCDegradationPreference = RTCDegradationPreferenceMaintainFramerate- | RTCDegradationPreferenceMaintainResolution- | RTCDegradationPreferenceBalanced- deriving (Show, Read, Eq, Ord, Typeable)- -instance PToJSVal RTCDegradationPreference where- pToJSVal RTCDegradationPreferenceMaintainFramerate- = js_RTCDegradationPreferenceMaintainFramerate- pToJSVal RTCDegradationPreferenceMaintainResolution- = js_RTCDegradationPreferenceMaintainResolution- pToJSVal RTCDegradationPreferenceBalanced- = js_RTCDegradationPreferenceBalanced- -instance ToJSVal RTCDegradationPreference where- toJSVal = return . pToJSVal- -instance PFromJSVal RTCDegradationPreference where- pFromJSVal x- | x `js_eq` js_RTCDegradationPreferenceMaintainFramerate =- RTCDegradationPreferenceMaintainFramerate- pFromJSVal x- | x `js_eq` js_RTCDegradationPreferenceMaintainResolution =- RTCDegradationPreferenceMaintainResolution- pFromJSVal x- | x `js_eq` js_RTCDegradationPreferenceBalanced =- RTCDegradationPreferenceBalanced- -instance FromJSVal RTCDegradationPreference where- fromJSValUnchecked = return . pFromJSVal- fromJSVal = return . pFromJSVal- -foreign import javascript unsafe "(() => { return \"maintain-framerate\"; })"- js_RTCDegradationPreferenceMaintainFramerate :: JSVal- -foreign import javascript unsafe "(() => { return \"maintain-resolution\"; })"- js_RTCDegradationPreferenceMaintainResolution :: JSVal- -foreign import javascript unsafe "(() => { return \"balanced\"; })"- js_RTCDegradationPreferenceBalanced :: JSVal- -data RTCDtxStatus = RTCDtxStatusDisabled- | RTCDtxStatusEnabled- deriving (Show, Read, Eq, Ord, Typeable)- -instance PToJSVal RTCDtxStatus where- pToJSVal RTCDtxStatusDisabled = js_RTCDtxStatusDisabled- pToJSVal RTCDtxStatusEnabled = js_RTCDtxStatusEnabled- -instance ToJSVal RTCDtxStatus where- toJSVal = return . pToJSVal- -instance PFromJSVal RTCDtxStatus where- pFromJSVal x- | x `js_eq` js_RTCDtxStatusDisabled = RTCDtxStatusDisabled- pFromJSVal x- | x `js_eq` js_RTCDtxStatusEnabled = RTCDtxStatusEnabled- -instance FromJSVal RTCDtxStatus where- fromJSValUnchecked = return . pFromJSVal- fromJSVal = return . pFromJSVal- -foreign import javascript unsafe "(() => { return \"disabled\"; })"- js_RTCDtxStatusDisabled :: JSVal- -foreign import javascript unsafe "(() => { return \"enabled\"; })"- js_RTCDtxStatusEnabled :: JSVal- -data RTCPriorityType = RTCPriorityTypeVeryLow- | RTCPriorityTypeLow- | RTCPriorityTypeMedium- | RTCPriorityTypeHigh- deriving (Show, Read, Eq, Ord, Typeable)- -instance PToJSVal RTCPriorityType where- pToJSVal RTCPriorityTypeVeryLow = js_RTCPriorityTypeVeryLow- pToJSVal RTCPriorityTypeLow = js_RTCPriorityTypeLow- pToJSVal RTCPriorityTypeMedium = js_RTCPriorityTypeMedium- pToJSVal RTCPriorityTypeHigh = js_RTCPriorityTypeHigh- -instance ToJSVal RTCPriorityType where- toJSVal = return . pToJSVal- -instance PFromJSVal RTCPriorityType where- pFromJSVal x- | x `js_eq` js_RTCPriorityTypeVeryLow = RTCPriorityTypeVeryLow- pFromJSVal x | x `js_eq` js_RTCPriorityTypeLow = RTCPriorityTypeLow- pFromJSVal x- | x `js_eq` js_RTCPriorityTypeMedium = RTCPriorityTypeMedium- pFromJSVal x- | x `js_eq` js_RTCPriorityTypeHigh = RTCPriorityTypeHigh- -instance FromJSVal RTCPriorityType where- fromJSValUnchecked = return . pFromJSVal- fromJSVal = return . pFromJSVal- -foreign import javascript unsafe "(() => { return \"very-low\"; })"- js_RTCPriorityTypeVeryLow :: JSVal- -foreign import javascript unsafe "(() => { return \"low\"; })" js_RTCPriorityTypeLow ::- JSVal- -foreign import javascript unsafe "(() => { return \"medium\"; })"- js_RTCPriorityTypeMedium :: JSVal- -foreign import javascript unsafe "(() => { return \"high\"; })" js_RTCPriorityTypeHigh- :: JSVal- -data RTCRtpTransceiverDirection = RTCRtpTransceiverDirectionSendrecv- | RTCRtpTransceiverDirectionSendonly- | RTCRtpTransceiverDirectionRecvonly- | RTCRtpTransceiverDirectionInactive- deriving (Show, Read, Eq, Ord, Typeable)- -instance PToJSVal RTCRtpTransceiverDirection where- pToJSVal RTCRtpTransceiverDirectionSendrecv- = js_RTCRtpTransceiverDirectionSendrecv- pToJSVal RTCRtpTransceiverDirectionSendonly- = js_RTCRtpTransceiverDirectionSendonly- pToJSVal RTCRtpTransceiverDirectionRecvonly- = js_RTCRtpTransceiverDirectionRecvonly- pToJSVal RTCRtpTransceiverDirectionInactive- = js_RTCRtpTransceiverDirectionInactive- -instance ToJSVal RTCRtpTransceiverDirection where- toJSVal = return . pToJSVal- -instance PFromJSVal RTCRtpTransceiverDirection where- pFromJSVal x- | x `js_eq` js_RTCRtpTransceiverDirectionSendrecv =- RTCRtpTransceiverDirectionSendrecv- pFromJSVal x- | x `js_eq` js_RTCRtpTransceiverDirectionSendonly =- RTCRtpTransceiverDirectionSendonly- pFromJSVal x- | x `js_eq` js_RTCRtpTransceiverDirectionRecvonly =- RTCRtpTransceiverDirectionRecvonly- pFromJSVal x- | x `js_eq` js_RTCRtpTransceiverDirectionInactive =- RTCRtpTransceiverDirectionInactive- -instance FromJSVal RTCRtpTransceiverDirection where- fromJSValUnchecked = return . pFromJSVal- fromJSVal = return . pFromJSVal- -foreign import javascript unsafe "(() => { return \"sendrecv\"; })"- js_RTCRtpTransceiverDirectionSendrecv :: JSVal- -foreign import javascript unsafe "(() => { return \"sendonly\"; })"- js_RTCRtpTransceiverDirectionSendonly :: JSVal- -foreign import javascript unsafe "(() => { return \"recvonly\"; })"- js_RTCRtpTransceiverDirectionRecvonly :: JSVal- -foreign import javascript unsafe "(() => { return \"inactive\"; })"- js_RTCRtpTransceiverDirectionInactive :: JSVal- -data RTCSdpType = RTCSdpTypeOffer- | RTCSdpTypePranswer- | RTCSdpTypeAnswer- | RTCSdpTypeRollback- deriving (Show, Read, Eq, Ord, Typeable)- -instance PToJSVal RTCSdpType where- pToJSVal RTCSdpTypeOffer = js_RTCSdpTypeOffer- pToJSVal RTCSdpTypePranswer = js_RTCSdpTypePranswer- pToJSVal RTCSdpTypeAnswer = js_RTCSdpTypeAnswer- pToJSVal RTCSdpTypeRollback = js_RTCSdpTypeRollback- -instance ToJSVal RTCSdpType where- toJSVal = return . pToJSVal- -instance PFromJSVal RTCSdpType where- pFromJSVal x | x `js_eq` js_RTCSdpTypeOffer = RTCSdpTypeOffer- pFromJSVal x | x `js_eq` js_RTCSdpTypePranswer = RTCSdpTypePranswer- pFromJSVal x | x `js_eq` js_RTCSdpTypeAnswer = RTCSdpTypeAnswer- pFromJSVal x | x `js_eq` js_RTCSdpTypeRollback = RTCSdpTypeRollback- -instance FromJSVal RTCSdpType where- fromJSValUnchecked = return . pFromJSVal- fromJSVal = return . pFromJSVal- -foreign import javascript unsafe "(() => { return \"offer\"; })" js_RTCSdpTypeOffer ::- JSVal- -foreign import javascript unsafe "(() => { return \"pranswer\"; })"- js_RTCSdpTypePranswer :: JSVal- -foreign import javascript unsafe "(() => { return \"answer\"; })" js_RTCSdpTypeAnswer- :: JSVal- -foreign import javascript unsafe "(() => { return \"rollback\"; })"- js_RTCSdpTypeRollback :: JSVal- -data RTCSignalingState = RTCSignalingStateStable- | RTCSignalingStateHaveLocalOffer- | RTCSignalingStateHaveRemoteOffer- | RTCSignalingStateHaveLocalPranswer- | RTCSignalingStateHaveRemotePranswer- deriving (Show, Read, Eq, Ord, Typeable)- -instance PToJSVal RTCSignalingState where- pToJSVal RTCSignalingStateStable = js_RTCSignalingStateStable- pToJSVal RTCSignalingStateHaveLocalOffer- = js_RTCSignalingStateHaveLocalOffer- pToJSVal RTCSignalingStateHaveRemoteOffer- = js_RTCSignalingStateHaveRemoteOffer- pToJSVal RTCSignalingStateHaveLocalPranswer- = js_RTCSignalingStateHaveLocalPranswer- pToJSVal RTCSignalingStateHaveRemotePranswer- = js_RTCSignalingStateHaveRemotePranswer- -instance ToJSVal RTCSignalingState where- toJSVal = return . pToJSVal- -instance PFromJSVal RTCSignalingState where- pFromJSVal x- | x `js_eq` js_RTCSignalingStateStable = RTCSignalingStateStable- pFromJSVal x- | x `js_eq` js_RTCSignalingStateHaveLocalOffer =- RTCSignalingStateHaveLocalOffer- pFromJSVal x- | x `js_eq` js_RTCSignalingStateHaveRemoteOffer =- RTCSignalingStateHaveRemoteOffer- pFromJSVal x- | x `js_eq` js_RTCSignalingStateHaveLocalPranswer =- RTCSignalingStateHaveLocalPranswer- pFromJSVal x- | x `js_eq` js_RTCSignalingStateHaveRemotePranswer =- RTCSignalingStateHaveRemotePranswer- -instance FromJSVal RTCSignalingState where- fromJSValUnchecked = return . pFromJSVal- fromJSVal = return . pFromJSVal- -foreign import javascript unsafe "(() => { return \"stable\"; })"- js_RTCSignalingStateStable :: JSVal- -foreign import javascript unsafe "(() => { return \"have-local-offer\"; })"- js_RTCSignalingStateHaveLocalOffer :: JSVal- -foreign import javascript unsafe "(() => { return \"have-remote-offer\"; })"- js_RTCSignalingStateHaveRemoteOffer :: JSVal- -foreign import javascript unsafe "(() => { return \"have-local-pranswer\"; })"- js_RTCSignalingStateHaveLocalPranswer :: JSVal- -foreign import javascript unsafe "(() => { return \"have-remote-pranswer\"; })"- js_RTCSignalingStateHaveRemotePranswer :: JSVal- -data RTCStatsType = RTCStatsTypeCodec- | RTCStatsTypeInboundRtp- | RTCStatsTypeOutboundRtp- | RTCStatsTypePeerConnection- | RTCStatsTypeDataChannel- | RTCStatsTypeTrack- | RTCStatsTypeTransport- | RTCStatsTypeCandidatePair- | RTCStatsTypeLocalCandidate- | RTCStatsTypeRemoteCandidate- | RTCStatsTypeCertificate- deriving (Show, Read, Eq, Ord, Typeable)- -instance PToJSVal RTCStatsType where- pToJSVal RTCStatsTypeCodec = js_RTCStatsTypeCodec- pToJSVal RTCStatsTypeInboundRtp = js_RTCStatsTypeInboundRtp- pToJSVal RTCStatsTypeOutboundRtp = js_RTCStatsTypeOutboundRtp- pToJSVal RTCStatsTypePeerConnection = js_RTCStatsTypePeerConnection- pToJSVal RTCStatsTypeDataChannel = js_RTCStatsTypeDataChannel- pToJSVal RTCStatsTypeTrack = js_RTCStatsTypeTrack- pToJSVal RTCStatsTypeTransport = js_RTCStatsTypeTransport- pToJSVal RTCStatsTypeCandidatePair = js_RTCStatsTypeCandidatePair- pToJSVal RTCStatsTypeLocalCandidate = js_RTCStatsTypeLocalCandidate- pToJSVal RTCStatsTypeRemoteCandidate- = js_RTCStatsTypeRemoteCandidate- pToJSVal RTCStatsTypeCertificate = js_RTCStatsTypeCertificate- -instance ToJSVal RTCStatsType where- toJSVal = return . pToJSVal- -instance PFromJSVal RTCStatsType where- pFromJSVal x | x `js_eq` js_RTCStatsTypeCodec = RTCStatsTypeCodec- pFromJSVal x- | x `js_eq` js_RTCStatsTypeInboundRtp = RTCStatsTypeInboundRtp- pFromJSVal x- | x `js_eq` js_RTCStatsTypeOutboundRtp = RTCStatsTypeOutboundRtp- pFromJSVal x- | x `js_eq` js_RTCStatsTypePeerConnection =- RTCStatsTypePeerConnection- pFromJSVal x- | x `js_eq` js_RTCStatsTypeDataChannel = RTCStatsTypeDataChannel- pFromJSVal x | x `js_eq` js_RTCStatsTypeTrack = RTCStatsTypeTrack- pFromJSVal x- | x `js_eq` js_RTCStatsTypeTransport = RTCStatsTypeTransport- pFromJSVal x- | x `js_eq` js_RTCStatsTypeCandidatePair =- RTCStatsTypeCandidatePair- pFromJSVal x- | x `js_eq` js_RTCStatsTypeLocalCandidate =- RTCStatsTypeLocalCandidate- pFromJSVal x- | x `js_eq` js_RTCStatsTypeRemoteCandidate =- RTCStatsTypeRemoteCandidate- pFromJSVal x- | x `js_eq` js_RTCStatsTypeCertificate = RTCStatsTypeCertificate- -instance FromJSVal RTCStatsType where- fromJSValUnchecked = return . pFromJSVal- fromJSVal = return . pFromJSVal- -foreign import javascript unsafe "(() => { return \"codec\"; })" js_RTCStatsTypeCodec- :: JSVal- -foreign import javascript unsafe "(() => { return \"inbound-rtp\"; })"- js_RTCStatsTypeInboundRtp :: JSVal- -foreign import javascript unsafe "(() => { return \"outbound-rtp\"; })"- js_RTCStatsTypeOutboundRtp :: JSVal- -foreign import javascript unsafe "(() => { return \"peer-connection\"; })"- js_RTCStatsTypePeerConnection :: JSVal- -foreign import javascript unsafe "(() => { return \"data-channel\"; })"- js_RTCStatsTypeDataChannel :: JSVal- -foreign import javascript unsafe "(() => { return \"track\"; })" js_RTCStatsTypeTrack- :: JSVal- -foreign import javascript unsafe "(() => { return \"transport\"; })"- js_RTCStatsTypeTransport :: JSVal- -foreign import javascript unsafe "(() => { return \"candidate-pair\"; })"- js_RTCStatsTypeCandidatePair :: JSVal- -foreign import javascript unsafe "(() => { return \"local-candidate\"; })"- js_RTCStatsTypeLocalCandidate :: JSVal- -foreign import javascript unsafe "(() => { return \"remote-candidate\"; })"- js_RTCStatsTypeRemoteCandidate :: JSVal- -foreign import javascript unsafe "(() => { return \"certificate\"; })"- js_RTCStatsTypeCertificate :: JSVal- -data NotificationDirection = NotificationDirectionAuto- | NotificationDirectionLtr- | NotificationDirectionRtl- deriving (Show, Read, Eq, Ord, Typeable)- -instance PToJSVal NotificationDirection where- pToJSVal NotificationDirectionAuto = js_NotificationDirectionAuto- pToJSVal NotificationDirectionLtr = js_NotificationDirectionLtr- pToJSVal NotificationDirectionRtl = js_NotificationDirectionRtl- -instance ToJSVal NotificationDirection where- toJSVal = return . pToJSVal- -instance PFromJSVal NotificationDirection where- pFromJSVal x- | x `js_eq` js_NotificationDirectionAuto =- NotificationDirectionAuto- pFromJSVal x- | x `js_eq` js_NotificationDirectionLtr = NotificationDirectionLtr- pFromJSVal x- | x `js_eq` js_NotificationDirectionRtl = NotificationDirectionRtl- -instance FromJSVal NotificationDirection where- fromJSValUnchecked = return . pFromJSVal- fromJSVal = return . pFromJSVal- -foreign import javascript unsafe "(() => { return \"auto\"; })"- js_NotificationDirectionAuto :: JSVal- -foreign import javascript unsafe "(() => { return \"ltr\"; })"- js_NotificationDirectionLtr :: JSVal- -foreign import javascript unsafe "(() => { return \"rtl\"; })"- js_NotificationDirectionRtl :: JSVal- -data AudioContextState = AudioContextStateSuspended- | AudioContextStateRunning- | AudioContextStateInterrupted- | AudioContextStateClosed- deriving (Show, Read, Eq, Ord, Typeable)- -instance PToJSVal AudioContextState where- pToJSVal AudioContextStateSuspended = js_AudioContextStateSuspended- pToJSVal AudioContextStateRunning = js_AudioContextStateRunning- pToJSVal AudioContextStateInterrupted- = js_AudioContextStateInterrupted- pToJSVal AudioContextStateClosed = js_AudioContextStateClosed- -instance ToJSVal AudioContextState where- toJSVal = return . pToJSVal- -instance PFromJSVal AudioContextState where- pFromJSVal x- | x `js_eq` js_AudioContextStateSuspended =- AudioContextStateSuspended- pFromJSVal x- | x `js_eq` js_AudioContextStateRunning = AudioContextStateRunning- pFromJSVal x- | x `js_eq` js_AudioContextStateInterrupted =- AudioContextStateInterrupted- pFromJSVal x- | x `js_eq` js_AudioContextStateClosed = AudioContextStateClosed- -instance FromJSVal AudioContextState where- fromJSValUnchecked = return . pFromJSVal- fromJSVal = return . pFromJSVal- -foreign import javascript unsafe "(() => { return \"suspended\"; })"- js_AudioContextStateSuspended :: JSVal- -foreign import javascript unsafe "(() => { return \"running\"; })"- js_AudioContextStateRunning :: JSVal- -foreign import javascript unsafe "(() => { return \"interrupted\"; })"- js_AudioContextStateInterrupted :: JSVal- -foreign import javascript unsafe "(() => { return \"closed\"; })"- js_AudioContextStateClosed :: JSVal- -data BiquadFilterType = BiquadFilterTypeLowpass- | BiquadFilterTypeHighpass- | BiquadFilterTypeBandpass- | BiquadFilterTypeLowshelf- | BiquadFilterTypeHighshelf- | BiquadFilterTypePeaking- | BiquadFilterTypeNotch- | BiquadFilterTypeAllpass- deriving (Show, Read, Eq, Ord, Typeable)- -instance PToJSVal BiquadFilterType where- pToJSVal BiquadFilterTypeLowpass = js_BiquadFilterTypeLowpass- pToJSVal BiquadFilterTypeHighpass = js_BiquadFilterTypeHighpass- pToJSVal BiquadFilterTypeBandpass = js_BiquadFilterTypeBandpass- pToJSVal BiquadFilterTypeLowshelf = js_BiquadFilterTypeLowshelf- pToJSVal BiquadFilterTypeHighshelf = js_BiquadFilterTypeHighshelf- pToJSVal BiquadFilterTypePeaking = js_BiquadFilterTypePeaking- pToJSVal BiquadFilterTypeNotch = js_BiquadFilterTypeNotch- pToJSVal BiquadFilterTypeAllpass = js_BiquadFilterTypeAllpass- -instance ToJSVal BiquadFilterType where- toJSVal = return . pToJSVal- -instance PFromJSVal BiquadFilterType where- pFromJSVal x- | x `js_eq` js_BiquadFilterTypeLowpass = BiquadFilterTypeLowpass- pFromJSVal x- | x `js_eq` js_BiquadFilterTypeHighpass = BiquadFilterTypeHighpass- pFromJSVal x- | x `js_eq` js_BiquadFilterTypeBandpass = BiquadFilterTypeBandpass- pFromJSVal x- | x `js_eq` js_BiquadFilterTypeLowshelf = BiquadFilterTypeLowshelf- pFromJSVal x- | x `js_eq` js_BiquadFilterTypeHighshelf =- BiquadFilterTypeHighshelf- pFromJSVal x- | x `js_eq` js_BiquadFilterTypePeaking = BiquadFilterTypePeaking- pFromJSVal x- | x `js_eq` js_BiquadFilterTypeNotch = BiquadFilterTypeNotch- pFromJSVal x- | x `js_eq` js_BiquadFilterTypeAllpass = BiquadFilterTypeAllpass- -instance FromJSVal BiquadFilterType where- fromJSValUnchecked = return . pFromJSVal- fromJSVal = return . pFromJSVal- -foreign import javascript unsafe "(() => { return \"lowpass\"; })"- js_BiquadFilterTypeLowpass :: JSVal- -foreign import javascript unsafe "(() => { return \"highpass\"; })"- js_BiquadFilterTypeHighpass :: JSVal- -foreign import javascript unsafe "(() => { return \"bandpass\"; })"- js_BiquadFilterTypeBandpass :: JSVal- -foreign import javascript unsafe "(() => { return \"lowshelf\"; })"- js_BiquadFilterTypeLowshelf :: JSVal- -foreign import javascript unsafe "(() => { return \"highshelf\"; })"- js_BiquadFilterTypeHighshelf :: JSVal- -foreign import javascript unsafe "(() => { return \"peaking\"; })"- js_BiquadFilterTypePeaking :: JSVal- -foreign import javascript unsafe "(() => { return \"notch\"; })"- js_BiquadFilterTypeNotch :: JSVal- -foreign import javascript unsafe "(() => { return \"allpass\"; })"- js_BiquadFilterTypeAllpass :: JSVal- -data OscillatorType = OscillatorTypeSine- | OscillatorTypeSquare- | OscillatorTypeSawtooth- | OscillatorTypeTriangle- | OscillatorTypeCustom- deriving (Show, Read, Eq, Ord, Typeable)- -instance PToJSVal OscillatorType where- pToJSVal OscillatorTypeSine = js_OscillatorTypeSine- pToJSVal OscillatorTypeSquare = js_OscillatorTypeSquare- pToJSVal OscillatorTypeSawtooth = js_OscillatorTypeSawtooth- pToJSVal OscillatorTypeTriangle = js_OscillatorTypeTriangle- pToJSVal OscillatorTypeCustom = js_OscillatorTypeCustom- -instance ToJSVal OscillatorType where- toJSVal = return . pToJSVal- -instance PFromJSVal OscillatorType where- pFromJSVal x | x `js_eq` js_OscillatorTypeSine = OscillatorTypeSine- pFromJSVal x- | x `js_eq` js_OscillatorTypeSquare = OscillatorTypeSquare- pFromJSVal x- | x `js_eq` js_OscillatorTypeSawtooth = OscillatorTypeSawtooth- pFromJSVal x- | x `js_eq` js_OscillatorTypeTriangle = OscillatorTypeTriangle- pFromJSVal x- | x `js_eq` js_OscillatorTypeCustom = OscillatorTypeCustom- -instance FromJSVal OscillatorType where- fromJSValUnchecked = return . pFromJSVal- fromJSVal = return . pFromJSVal- -foreign import javascript unsafe "(() => { return \"sine\"; })" js_OscillatorTypeSine- :: JSVal- -foreign import javascript unsafe "(() => { return \"square\"; })"- js_OscillatorTypeSquare :: JSVal- -foreign import javascript unsafe "(() => { return \"sawtooth\"; })"- js_OscillatorTypeSawtooth :: JSVal- -foreign import javascript unsafe "(() => { return \"triangle\"; })"- js_OscillatorTypeTriangle :: JSVal- -foreign import javascript unsafe "(() => { return \"custom\"; })"- js_OscillatorTypeCustom :: JSVal- -data PanningModelType = PanningModelTypeEqualpower- | PanningModelTypeHRTF- deriving (Show, Read, Eq, Ord, Typeable)- -instance PToJSVal PanningModelType where- pToJSVal PanningModelTypeEqualpower = js_PanningModelTypeEqualpower- pToJSVal PanningModelTypeHRTF = js_PanningModelTypeHRTF- -instance ToJSVal PanningModelType where- toJSVal = return . pToJSVal- -instance PFromJSVal PanningModelType where- pFromJSVal x- | x `js_eq` js_PanningModelTypeEqualpower =- PanningModelTypeEqualpower- pFromJSVal x- | x `js_eq` js_PanningModelTypeHRTF = PanningModelTypeHRTF- -instance FromJSVal PanningModelType where- fromJSValUnchecked = return . pFromJSVal- fromJSVal = return . pFromJSVal- -foreign import javascript unsafe "(() => { return \"equalpower\"; })"- js_PanningModelTypeEqualpower :: JSVal- -foreign import javascript unsafe "(() => { return \"HRTF\"; })" js_PanningModelTypeHRTF- :: JSVal- -data DistanceModelType = DistanceModelTypeLinear- | DistanceModelTypeInverse- | DistanceModelTypeExponential- deriving (Show, Read, Eq, Ord, Typeable)- -instance PToJSVal DistanceModelType where- pToJSVal DistanceModelTypeLinear = js_DistanceModelTypeLinear- pToJSVal DistanceModelTypeInverse = js_DistanceModelTypeInverse- pToJSVal DistanceModelTypeExponential- = js_DistanceModelTypeExponential- -instance ToJSVal DistanceModelType where- toJSVal = return . pToJSVal- -instance PFromJSVal DistanceModelType where- pFromJSVal x- | x `js_eq` js_DistanceModelTypeLinear = DistanceModelTypeLinear- pFromJSVal x- | x `js_eq` js_DistanceModelTypeInverse = DistanceModelTypeInverse- pFromJSVal x- | x `js_eq` js_DistanceModelTypeExponential =- DistanceModelTypeExponential- -instance FromJSVal DistanceModelType where- fromJSValUnchecked = return . pFromJSVal- fromJSVal = return . pFromJSVal- -foreign import javascript unsafe "(() => { return \"linear\"; })"- js_DistanceModelTypeLinear :: JSVal- -foreign import javascript unsafe "(() => { return \"inverse\"; })"- js_DistanceModelTypeInverse :: JSVal- -foreign import javascript unsafe "(() => { return \"exponential\"; })"- js_DistanceModelTypeExponential :: JSVal- -data OverSampleType = OverSampleTypeNone- | OverSampleType2x- | OverSampleType4x- deriving (Show, Read, Eq, Ord, Typeable)- -instance PToJSVal OverSampleType where- pToJSVal OverSampleTypeNone = js_OverSampleTypeNone- pToJSVal OverSampleType2x = js_OverSampleType2x- pToJSVal OverSampleType4x = js_OverSampleType4x- -instance ToJSVal OverSampleType where- toJSVal = return . pToJSVal- -instance PFromJSVal OverSampleType where- pFromJSVal x | x `js_eq` js_OverSampleTypeNone = OverSampleTypeNone- pFromJSVal x | x `js_eq` js_OverSampleType2x = OverSampleType2x- pFromJSVal x | x `js_eq` js_OverSampleType4x = OverSampleType4x- -instance FromJSVal OverSampleType where- fromJSValUnchecked = return . pFromJSVal- fromJSVal = return . pFromJSVal- -foreign import javascript unsafe "(() => { return \"none\"; })" js_OverSampleTypeNone- :: JSVal- -foreign import javascript unsafe "(() => { return \"2x\"; })" js_OverSampleType2x ::- JSVal- -foreign import javascript unsafe "(() => { return \"4x\"; })" js_OverSampleType4x ::- JSVal- -data ScrollRestoration = ScrollRestorationAuto- | ScrollRestorationManual- deriving (Show, Read, Eq, Ord, Typeable)- -instance PToJSVal ScrollRestoration where- pToJSVal ScrollRestorationAuto = js_ScrollRestorationAuto- pToJSVal ScrollRestorationManual = js_ScrollRestorationManual- -instance ToJSVal ScrollRestoration where- toJSVal = return . pToJSVal- -instance PFromJSVal ScrollRestoration where- pFromJSVal x- | x `js_eq` js_ScrollRestorationAuto = ScrollRestorationAuto- pFromJSVal x- | x `js_eq` js_ScrollRestorationManual = ScrollRestorationManual- -instance FromJSVal ScrollRestoration where- fromJSValUnchecked = return . pFromJSVal- fromJSVal = return . pFromJSVal- -foreign import javascript unsafe "(() => { return \"auto\"; })"- js_ScrollRestorationAuto :: JSVal- -foreign import javascript unsafe "(() => { return \"manual\"; })"- js_ScrollRestorationManual :: JSVal- -data XMLHttpRequestResponseType = XMLHttpRequestResponseType- | XMLHttpRequestResponseTypeArraybuffer- | XMLHttpRequestResponseTypeBlob- | XMLHttpRequestResponseTypeDocument- | XMLHttpRequestResponseTypeJson- | XMLHttpRequestResponseTypeText- deriving (Show, Read, Eq, Ord, Typeable)- -instance PToJSVal XMLHttpRequestResponseType where- pToJSVal XMLHttpRequestResponseType = js_XMLHttpRequestResponseType- pToJSVal XMLHttpRequestResponseTypeArraybuffer- = js_XMLHttpRequestResponseTypeArraybuffer- pToJSVal XMLHttpRequestResponseTypeBlob- = js_XMLHttpRequestResponseTypeBlob- pToJSVal XMLHttpRequestResponseTypeDocument- = js_XMLHttpRequestResponseTypeDocument- pToJSVal XMLHttpRequestResponseTypeJson- = js_XMLHttpRequestResponseTypeJson- pToJSVal XMLHttpRequestResponseTypeText- = js_XMLHttpRequestResponseTypeText- -instance ToJSVal XMLHttpRequestResponseType where- toJSVal = return . pToJSVal- -instance PFromJSVal XMLHttpRequestResponseType where- pFromJSVal x- | x `js_eq` js_XMLHttpRequestResponseType =- XMLHttpRequestResponseType- pFromJSVal x- | x `js_eq` js_XMLHttpRequestResponseTypeArraybuffer =- XMLHttpRequestResponseTypeArraybuffer- pFromJSVal x- | x `js_eq` js_XMLHttpRequestResponseTypeBlob =- XMLHttpRequestResponseTypeBlob- pFromJSVal x- | x `js_eq` js_XMLHttpRequestResponseTypeDocument =- XMLHttpRequestResponseTypeDocument- pFromJSVal x- | x `js_eq` js_XMLHttpRequestResponseTypeJson =- XMLHttpRequestResponseTypeJson- pFromJSVal x- | x `js_eq` js_XMLHttpRequestResponseTypeText =- XMLHttpRequestResponseTypeText- -instance FromJSVal XMLHttpRequestResponseType where- fromJSValUnchecked = return . pFromJSVal- fromJSVal = return . pFromJSVal- -foreign import javascript unsafe "(() => { return \"\"; })"- js_XMLHttpRequestResponseType :: JSVal- -foreign import javascript unsafe "(() => { return \"arraybuffer\"; })"- js_XMLHttpRequestResponseTypeArraybuffer :: JSVal- -foreign import javascript unsafe "(() => { return \"blob\"; })"- js_XMLHttpRequestResponseTypeBlob :: JSVal- -foreign import javascript unsafe "(() => { return \"document\"; })"- js_XMLHttpRequestResponseTypeDocument :: JSVal- -foreign import javascript unsafe "(() => { return \"json\"; })"- js_XMLHttpRequestResponseTypeJson :: JSVal- -foreign import javascript unsafe "(() => { return \"text\"; })"- js_XMLHttpRequestResponseTypeText :: JSVal+{-# LANGUAGE OverloadedStrings #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from webref IDL. Do not edit.+module GHCJS.DOM.JSFFI.Generated.Enums+ (AacBitstreamFormat(..), js_AacBitstreamFormatAac, js_AacBitstreamFormatAdts, AlignSetting(..), js_AlignSettingStart, js_AlignSettingCenter, js_AlignSettingEnd, js_AlignSettingLeft, js_AlignSettingRight, AlphaOption(..), js_AlphaOptionKeep, js_AlphaOptionDiscard, AnimationPlayState(..), js_AnimationPlayStateIdle, js_AnimationPlayStateRunning, js_AnimationPlayStatePaused, js_AnimationPlayStateFinished, AnimationReplaceState(..), js_AnimationReplaceStateActive, js_AnimationReplaceStateRemoved, js_AnimationReplaceStatePersisted, AppendMode(..), js_AppendModeSegments, js_AppendModeSequence, AriaNotifyPriority(..), js_AriaNotifyPriorityNormal, js_AriaNotifyPriorityHigh, AudioContextLatencyCategory(..), js_AudioContextLatencyCategoryBalanced, js_AudioContextLatencyCategoryInteractive, js_AudioContextLatencyCategoryPlayback, AudioContextRenderSizeCategory(..), js_AudioContextRenderSizeCategoryDefault, js_AudioContextRenderSizeCategoryHardware, AudioContextState(..), js_AudioContextStateSuspended, js_AudioContextStateRunning, js_AudioContextStateClosed, js_AudioContextStateInterrupted, AudioSampleFormat(..), js_AudioSampleFormatU8, js_AudioSampleFormatS16, js_AudioSampleFormatS32, js_AudioSampleFormatF32, js_AudioSampleFormatU8Planar, js_AudioSampleFormatS16Planar, js_AudioSampleFormatS32Planar, js_AudioSampleFormatF32Planar, AudioSelectionPreferenceEnum(..), js_AudioSelectionPreferenceEnumPreferred, AudioSinkType(..), js_AudioSinkTypeNone, AutoKeyword(..), js_AutoKeywordAuto, AutomationRate(..), js_AutomationRateARate, js_AutomationRateKRate, AvcBitstreamFormat(..), js_AvcBitstreamFormatAnnexb, js_AvcBitstreamFormatAvc, BinaryType(..), js_BinaryTypeBlob, js_BinaryTypeArraybuffer, BiquadFilterType(..), js_BiquadFilterTypeLowpass, js_BiquadFilterTypeHighpass, js_BiquadFilterTypeBandpass, js_BiquadFilterTypeLowshelf, js_BiquadFilterTypeHighshelf, js_BiquadFilterTypePeaking, js_BiquadFilterTypeNotch, js_BiquadFilterTypeAllpass, BitrateMode(..), js_BitrateModeConstant, js_BitrateModeVariable, CSSMathOperator(..), js_CSSMathOperatorSum, js_CSSMathOperatorProduct, js_CSSMathOperatorNegate, js_CSSMathOperatorInvert, js_CSSMathOperatorMin, js_CSSMathOperatorMax, js_CSSMathOperatorClamp, CSSNumericBaseType(..), js_CSSNumericBaseTypeLength, js_CSSNumericBaseTypeAngle, js_CSSNumericBaseTypeTime, js_CSSNumericBaseTypeFrequency, js_CSSNumericBaseTypeResolution, js_CSSNumericBaseTypeFlex, js_CSSNumericBaseTypePercent, CanPlayTypeResult(..), js_CanPlayTypeResult, js_CanPlayTypeResultMaybe, js_CanPlayTypeResultProbably, CanvasColorType(..), js_CanvasColorTypeUnorm8, js_CanvasColorTypeFloat16, CanvasDirection(..), js_CanvasDirectionLtr, js_CanvasDirectionRtl, js_CanvasDirectionInherit, CanvasFillRule(..), js_CanvasFillRuleNonzero, js_CanvasFillRuleEvenodd, CanvasFontKerning(..), js_CanvasFontKerningAuto, js_CanvasFontKerningNormal, js_CanvasFontKerningNone, CanvasFontStretch(..), js_CanvasFontStretchUltraCondensed, js_CanvasFontStretchExtraCondensed, js_CanvasFontStretchCondensed, js_CanvasFontStretchSemiCondensed, js_CanvasFontStretchNormal, js_CanvasFontStretchSemiExpanded, js_CanvasFontStretchExpanded, js_CanvasFontStretchExtraExpanded, js_CanvasFontStretchUltraExpanded, CanvasFontVariantCaps(..), js_CanvasFontVariantCapsNormal, js_CanvasFontVariantCapsSmallCaps, js_CanvasFontVariantCapsAllSmallCaps, js_CanvasFontVariantCapsPetiteCaps, js_CanvasFontVariantCapsAllPetiteCaps, js_CanvasFontVariantCapsUnicase, js_CanvasFontVariantCapsTitlingCaps, CanvasLineCap(..), js_CanvasLineCapButt, js_CanvasLineCapRound, js_CanvasLineCapSquare, CanvasLineJoin(..), js_CanvasLineJoinRound, js_CanvasLineJoinBevel, js_CanvasLineJoinMiter, CanvasTextAlign(..), js_CanvasTextAlignStart, js_CanvasTextAlignEnd, js_CanvasTextAlignLeft, js_CanvasTextAlignRight, js_CanvasTextAlignCenter, CanvasTextBaseline(..), js_CanvasTextBaselineTop, js_CanvasTextBaselineHanging, js_CanvasTextBaselineMiddle, js_CanvasTextBaselineAlphabetic, js_CanvasTextBaselineIdeographic, js_CanvasTextBaselineBottom, CanvasTextRendering(..), js_CanvasTextRenderingAuto, js_CanvasTextRenderingOptimizeSpeed, js_CanvasTextRenderingOptimizeLegibility, js_CanvasTextRenderingGeometricPrecision, ChannelCountMode(..), js_ChannelCountModeMax, js_ChannelCountModeClampedMax, js_ChannelCountModeExplicit, ChannelInterpretation(..), js_ChannelInterpretationSpeakers, js_ChannelInterpretationDiscrete, ClientType(..), js_ClientTypeWindow, js_ClientTypeWorker, js_ClientTypeSharedworker, js_ClientTypeAll, CodecState(..), js_CodecStateUnconfigured, js_CodecStateConfigured, js_CodecStateClosed, ColorGamut(..), js_ColorGamutSrgb, js_ColorGamutP3, js_ColorGamutRec2020, ColorSpaceConversion(..), js_ColorSpaceConversionNone, js_ColorSpaceConversionDefault, CompositeOperation(..), js_CompositeOperationReplace, js_CompositeOperationAdd, js_CompositeOperationAccumulate, CompressionFormat(..), js_CompressionFormatBrotli, js_CompressionFormatDeflate, js_CompressionFormatDeflateRaw, js_CompressionFormatGzip, CookieSameSite(..), js_CookieSameSiteStrict, js_CookieSameSiteLax, js_CookieSameSiteNone, CredentialMediationRequirement(..), js_CredentialMediationRequirementSilent, js_CredentialMediationRequirementOptional, js_CredentialMediationRequirementConditional, js_CredentialMediationRequirementRequired, DOMParserSupportedType(..), js_DOMParserSupportedTypeTextHtml, js_DOMParserSupportedTypeTextXml, js_DOMParserSupportedTypeApplicationXml, js_DOMParserSupportedTypeApplicationXhtmlXml, js_DOMParserSupportedTypeImageSvgXml, DigitalCredentialIssuanceProtocol(..), js_DigitalCredentialIssuanceProtocolOpenid4vciV1, DigitalCredentialPresentationProtocol(..), js_DigitalCredentialPresentationProtocolOpenid4vpV1Unsigned, js_DigitalCredentialPresentationProtocolOpenid4vpV1Signed, js_DigitalCredentialPresentationProtocolOpenid4vpV1Multisigned, js_DigitalCredentialPresentationProtocolOrgIsoMdoc, DirectionSetting(..), js_DirectionSetting, js_DirectionSettingRl, js_DirectionSettingLr, DistanceModelType(..), js_DistanceModelTypeLinear, js_DistanceModelTypeInverse, js_DistanceModelTypeExponential, DocumentReadyState(..), js_DocumentReadyStateLoading, js_DocumentReadyStateInteractive, js_DocumentReadyStateComplete, DocumentVisibilityState(..), js_DocumentVisibilityStateVisible, js_DocumentVisibilityStateHidden, EncodedAudioChunkType(..), js_EncodedAudioChunkTypeKey, js_EncodedAudioChunkTypeDelta, EncodedVideoChunkType(..), js_EncodedVideoChunkTypeKey, js_EncodedVideoChunkTypeDelta, EndOfStreamError(..), js_EndOfStreamErrorNetwork, js_EndOfStreamErrorDecode, EndingType(..), js_EndingTypeTransparent, js_EndingTypeNative, FileSystemHandleKind(..), js_FileSystemHandleKindFile, js_FileSystemHandleKindDirectory, FillLightMode(..), js_FillLightModeAuto, js_FillLightModeOff, js_FillLightModeFlash, FillMode(..), js_FillModeNone, js_FillModeForwards, js_FillModeBackwards, js_FillModeBoth, js_FillModeAuto, FlowControlType(..), js_FlowControlTypeNone, js_FlowControlTypeHardware, FontFaceLoadStatus(..), js_FontFaceLoadStatusUnloaded, js_FontFaceLoadStatusLoading, js_FontFaceLoadStatusLoaded, js_FontFaceLoadStatusError, FontFaceSetLoadStatus(..), js_FontFaceSetLoadStatusLoading, js_FontFaceSetLoadStatusLoaded, FrameType(..), js_FrameTypeAuxiliary, js_FrameTypeTopLevel, js_FrameTypeNested, js_FrameTypeNone, FullscreenKeyboardLock(..), js_FullscreenKeyboardLockBrowser, js_FullscreenKeyboardLockNone, FullscreenNavigationUI(..), js_FullscreenNavigationUIAuto, js_FullscreenNavigationUIShow, js_FullscreenNavigationUIHide, GPUAddressMode(..), js_GPUAddressModeClampToEdge, js_GPUAddressModeRepeat, js_GPUAddressModeMirrorRepeat, GPUAutoLayoutMode(..), js_GPUAutoLayoutModeAuto, GPUBlendFactor(..), js_GPUBlendFactorZero, js_GPUBlendFactorOne, js_GPUBlendFactorSrc, js_GPUBlendFactorOneMinusSrc, js_GPUBlendFactorSrcAlpha, js_GPUBlendFactorOneMinusSrcAlpha, js_GPUBlendFactorDst, js_GPUBlendFactorOneMinusDst, js_GPUBlendFactorDstAlpha, js_GPUBlendFactorOneMinusDstAlpha, js_GPUBlendFactorSrcAlphaSaturated, js_GPUBlendFactorConstant, js_GPUBlendFactorOneMinusConstant, js_GPUBlendFactorSrc1, js_GPUBlendFactorOneMinusSrc1, js_GPUBlendFactorSrc1Alpha, js_GPUBlendFactorOneMinusSrc1Alpha, GPUBlendOperation(..), js_GPUBlendOperationAdd, js_GPUBlendOperationSubtract, js_GPUBlendOperationReverseSubtract, js_GPUBlendOperationMin, js_GPUBlendOperationMax, GPUBufferBindingType(..), js_GPUBufferBindingTypeUniform, js_GPUBufferBindingTypeStorage, js_GPUBufferBindingTypeReadOnlyStorage, GPUBufferMapState(..), js_GPUBufferMapStateUnmapped, js_GPUBufferMapStatePending, js_GPUBufferMapStateMapped, GPUCanvasAlphaMode(..), js_GPUCanvasAlphaModeOpaque, js_GPUCanvasAlphaModePremultiplied, GPUCanvasToneMappingMode(..), js_GPUCanvasToneMappingModeStandard, js_GPUCanvasToneMappingModeExtended, GPUCompareFunction(..), js_GPUCompareFunctionNever, js_GPUCompareFunctionLess, js_GPUCompareFunctionEqual, js_GPUCompareFunctionLessEqual, js_GPUCompareFunctionGreater, js_GPUCompareFunctionNotEqual, js_GPUCompareFunctionGreaterEqual, js_GPUCompareFunctionAlways, GPUCompilationMessageType(..), js_GPUCompilationMessageTypeError, js_GPUCompilationMessageTypeWarning, js_GPUCompilationMessageTypeInfo, GPUCullMode(..), js_GPUCullModeNone, js_GPUCullModeFront, js_GPUCullModeBack, GPUDeviceLostReason(..), js_GPUDeviceLostReasonUnknown, js_GPUDeviceLostReasonDestroyed, GPUErrorFilter(..), js_GPUErrorFilterValidation, js_GPUErrorFilterOutOfMemory, js_GPUErrorFilterInternal, GPUFeatureName(..), js_GPUFeatureNameCoreFeaturesAndLimits, js_GPUFeatureNameDepthClipControl, js_GPUFeatureNameDepth32floatStencil8, js_GPUFeatureNameTextureCompressionBc, js_GPUFeatureNameTextureCompressionBcSliced3d, js_GPUFeatureNameTextureCompressionEtc2, js_GPUFeatureNameTextureCompressionAstc, js_GPUFeatureNameTextureCompressionAstcSliced3d, js_GPUFeatureNameTimestampQuery, js_GPUFeatureNameIndirectFirstInstance, js_GPUFeatureNameShaderF16, js_GPUFeatureNameRg11b10ufloatRenderable, js_GPUFeatureNameBgra8unormStorage, js_GPUFeatureNameFloat32Filterable, js_GPUFeatureNameFloat32Blendable, js_GPUFeatureNameClipDistances, js_GPUFeatureNameDualSourceBlending, js_GPUFeatureNameSubgroups, js_GPUFeatureNameTextureFormatsTier1, js_GPUFeatureNameTextureFormatsTier2, js_GPUFeatureNamePrimitiveIndex, js_GPUFeatureNameTextureComponentSwizzle, js_GPUFeatureNameSubgroupSizeControl, js_GPUFeatureNameTextureCompressionUnaligned, js_GPUFeatureNameAtomicVec2uMinMax, GPUFilterMode(..), js_GPUFilterModeNearest, js_GPUFilterModeLinear, GPUFrontFace(..), js_GPUFrontFaceCcw, js_GPUFrontFaceCw, GPUIndexFormat(..), js_GPUIndexFormatUint16, js_GPUIndexFormatUint32, GPULoadOp(..), js_GPULoadOpLoad, js_GPULoadOpClear, GPUMipmapFilterMode(..), js_GPUMipmapFilterModeNearest, js_GPUMipmapFilterModeLinear, GPUPipelineErrorReason(..), js_GPUPipelineErrorReasonValidation, js_GPUPipelineErrorReasonInternal, GPUPowerPreference(..), js_GPUPowerPreferenceLowPower, js_GPUPowerPreferenceHighPerformance, GPUPrimitiveTopology(..), js_GPUPrimitiveTopologyPointList, js_GPUPrimitiveTopologyLineList, js_GPUPrimitiveTopologyLineStrip, js_GPUPrimitiveTopologyTriangleList, js_GPUPrimitiveTopologyTriangleStrip, GPUQueryType(..), js_GPUQueryTypeOcclusion, js_GPUQueryTypeTimestamp, GPUSamplerBindingType(..), js_GPUSamplerBindingTypeFiltering, js_GPUSamplerBindingTypeNonFiltering, js_GPUSamplerBindingTypeComparison, GPUStencilOperation(..), js_GPUStencilOperationKeep, js_GPUStencilOperationZero, js_GPUStencilOperationReplace, js_GPUStencilOperationInvert, js_GPUStencilOperationIncrementClamp, js_GPUStencilOperationDecrementClamp, js_GPUStencilOperationIncrementWrap, js_GPUStencilOperationDecrementWrap, GPUStorageTextureAccess(..), js_GPUStorageTextureAccessWriteOnly, js_GPUStorageTextureAccessReadOnly, js_GPUStorageTextureAccessReadWrite, GPUStoreOp(..), js_GPUStoreOpStore, js_GPUStoreOpDiscard, GPUTextureAspect(..), js_GPUTextureAspectAll, js_GPUTextureAspectStencilOnly, js_GPUTextureAspectDepthOnly, GPUTextureDimension(..), js_GPUTextureDimension1d, js_GPUTextureDimension2d, js_GPUTextureDimension3d, GPUTextureFormat(..), js_GPUTextureFormatR8unorm, js_GPUTextureFormatR8snorm, js_GPUTextureFormatR8uint, js_GPUTextureFormatR8sint, js_GPUTextureFormatR16unorm, js_GPUTextureFormatR16snorm, js_GPUTextureFormatR16uint, js_GPUTextureFormatR16sint, js_GPUTextureFormatR16float, js_GPUTextureFormatRg8unorm, js_GPUTextureFormatRg8snorm, js_GPUTextureFormatRg8uint, js_GPUTextureFormatRg8sint, js_GPUTextureFormatR32uint, js_GPUTextureFormatR32sint, js_GPUTextureFormatR32float, js_GPUTextureFormatRg16unorm, js_GPUTextureFormatRg16snorm, js_GPUTextureFormatRg16uint, js_GPUTextureFormatRg16sint, js_GPUTextureFormatRg16float, js_GPUTextureFormatRgba8unorm, js_GPUTextureFormatRgba8unormSrgb, js_GPUTextureFormatRgba8snorm, js_GPUTextureFormatRgba8uint, js_GPUTextureFormatRgba8sint, js_GPUTextureFormatBgra8unorm, js_GPUTextureFormatBgra8unormSrgb, js_GPUTextureFormatRgb9e5ufloat, js_GPUTextureFormatRgb10a2uint, js_GPUTextureFormatRgb10a2unorm, js_GPUTextureFormatRg11b10ufloat, js_GPUTextureFormatRg32uint, js_GPUTextureFormatRg32sint, js_GPUTextureFormatRg32float, js_GPUTextureFormatRgba16unorm, js_GPUTextureFormatRgba16snorm, js_GPUTextureFormatRgba16uint, js_GPUTextureFormatRgba16sint, js_GPUTextureFormatRgba16float, js_GPUTextureFormatRgba32uint, js_GPUTextureFormatRgba32sint, js_GPUTextureFormatRgba32float, js_GPUTextureFormatStencil8, js_GPUTextureFormatDepth16unorm, js_GPUTextureFormatDepth24plus, js_GPUTextureFormatDepth24plusStencil8, js_GPUTextureFormatDepth32float, js_GPUTextureFormatDepth32floatStencil8, js_GPUTextureFormatBc1RgbaUnorm, js_GPUTextureFormatBc1RgbaUnormSrgb, js_GPUTextureFormatBc2RgbaUnorm, js_GPUTextureFormatBc2RgbaUnormSrgb, js_GPUTextureFormatBc3RgbaUnorm, js_GPUTextureFormatBc3RgbaUnormSrgb, js_GPUTextureFormatBc4RUnorm, js_GPUTextureFormatBc4RSnorm, js_GPUTextureFormatBc5RgUnorm, js_GPUTextureFormatBc5RgSnorm, js_GPUTextureFormatBc6hRgbUfloat, js_GPUTextureFormatBc6hRgbFloat, js_GPUTextureFormatBc7RgbaUnorm, js_GPUTextureFormatBc7RgbaUnormSrgb, js_GPUTextureFormatEtc2Rgb8unorm, js_GPUTextureFormatEtc2Rgb8unormSrgb, js_GPUTextureFormatEtc2Rgb8a1unorm, js_GPUTextureFormatEtc2Rgb8a1unormSrgb, js_GPUTextureFormatEtc2Rgba8unorm, js_GPUTextureFormatEtc2Rgba8unormSrgb, js_GPUTextureFormatEacR11unorm, js_GPUTextureFormatEacR11snorm, js_GPUTextureFormatEacRg11unorm, js_GPUTextureFormatEacRg11snorm, js_GPUTextureFormatAstc4x4Unorm, js_GPUTextureFormatAstc4x4UnormSrgb, js_GPUTextureFormatAstc5x4Unorm, js_GPUTextureFormatAstc5x4UnormSrgb, js_GPUTextureFormatAstc5x5Unorm, js_GPUTextureFormatAstc5x5UnormSrgb, js_GPUTextureFormatAstc6x5Unorm, js_GPUTextureFormatAstc6x5UnormSrgb, js_GPUTextureFormatAstc6x6Unorm, js_GPUTextureFormatAstc6x6UnormSrgb, js_GPUTextureFormatAstc8x5Unorm, js_GPUTextureFormatAstc8x5UnormSrgb, js_GPUTextureFormatAstc8x6Unorm, js_GPUTextureFormatAstc8x6UnormSrgb, js_GPUTextureFormatAstc8x8Unorm, js_GPUTextureFormatAstc8x8UnormSrgb, js_GPUTextureFormatAstc10x5Unorm, js_GPUTextureFormatAstc10x5UnormSrgb, js_GPUTextureFormatAstc10x6Unorm, js_GPUTextureFormatAstc10x6UnormSrgb, js_GPUTextureFormatAstc10x8Unorm, js_GPUTextureFormatAstc10x8UnormSrgb, js_GPUTextureFormatAstc10x10Unorm, js_GPUTextureFormatAstc10x10UnormSrgb, js_GPUTextureFormatAstc12x10Unorm, js_GPUTextureFormatAstc12x10UnormSrgb, js_GPUTextureFormatAstc12x12Unorm, js_GPUTextureFormatAstc12x12UnormSrgb, GPUTextureSampleType(..), js_GPUTextureSampleTypeFloat, js_GPUTextureSampleTypeUnfilterableFloat, js_GPUTextureSampleTypeDepth, js_GPUTextureSampleTypeSint, js_GPUTextureSampleTypeUint, GPUTextureViewDimension(..), js_GPUTextureViewDimension1d, js_GPUTextureViewDimension2d, js_GPUTextureViewDimension2dArray, js_GPUTextureViewDimensionCube, js_GPUTextureViewDimensionCubeArray, js_GPUTextureViewDimension3d, GPUVertexFormat(..), js_GPUVertexFormatUint8, js_GPUVertexFormatUint8x2, js_GPUVertexFormatUint8x4, js_GPUVertexFormatSint8, js_GPUVertexFormatSint8x2, js_GPUVertexFormatSint8x4, js_GPUVertexFormatUnorm8, js_GPUVertexFormatUnorm8x2, js_GPUVertexFormatUnorm8x4, js_GPUVertexFormatSnorm8, js_GPUVertexFormatSnorm8x2, js_GPUVertexFormatSnorm8x4, js_GPUVertexFormatUint16, js_GPUVertexFormatUint16x2, js_GPUVertexFormatUint16x4, js_GPUVertexFormatSint16, js_GPUVertexFormatSint16x2, js_GPUVertexFormatSint16x4, js_GPUVertexFormatUnorm16, js_GPUVertexFormatUnorm16x2, js_GPUVertexFormatUnorm16x4, js_GPUVertexFormatSnorm16, js_GPUVertexFormatSnorm16x2, js_GPUVertexFormatSnorm16x4, js_GPUVertexFormatFloat16, js_GPUVertexFormatFloat16x2, js_GPUVertexFormatFloat16x4, js_GPUVertexFormatFloat32, js_GPUVertexFormatFloat32x2, js_GPUVertexFormatFloat32x3, js_GPUVertexFormatFloat32x4, js_GPUVertexFormatUint32, js_GPUVertexFormatUint32x2, js_GPUVertexFormatUint32x3, js_GPUVertexFormatUint32x4, js_GPUVertexFormatSint32, js_GPUVertexFormatSint32x2, js_GPUVertexFormatSint32x3, js_GPUVertexFormatSint32x4, js_GPUVertexFormatUnorm1010102, js_GPUVertexFormatUnorm8x4Bgra, js_GPUVertexFormatSnorm1010102, GPUVertexStepMode(..), js_GPUVertexStepModeVertex, js_GPUVertexStepModeInstance, GamepadHapticEffectType(..), js_GamepadHapticEffectTypeDualRumble, js_GamepadHapticEffectTypeTriggerRumble, GamepadHapticsResult(..), js_GamepadHapticsResultComplete, js_GamepadHapticsResultPreempted, GamepadMappingType(..), js_GamepadMappingType, js_GamepadMappingTypeStandard, js_GamepadMappingTypeXrStandard, GetUserMediaSemantics(..), js_GetUserMediaSemanticsBrowserChooses, js_GetUserMediaSemanticsUserChooses, HardwareAcceleration(..), js_HardwareAccelerationNoPreference, js_HardwareAccelerationPreferHardware, js_HardwareAccelerationPreferSoftware, HdrMetadataType(..), js_HdrMetadataTypeSmpteSt2086, js_HdrMetadataTypeSmpteSt209410, js_HdrMetadataTypeSmpteSt209440, HevcBitstreamFormat(..), js_HevcBitstreamFormatAnnexb, js_HevcBitstreamFormatHevc, HighlightType(..), js_HighlightTypeHighlight, js_HighlightTypeSpellingError, js_HighlightTypeGrammarError, IDBCursorDirection(..), js_IDBCursorDirectionNext, js_IDBCursorDirectionNextunique, js_IDBCursorDirectionPrev, js_IDBCursorDirectionPrevunique, IDBRequestReadyState(..), js_IDBRequestReadyStatePending, js_IDBRequestReadyStateDone, IDBTransactionDurability(..), js_IDBTransactionDurabilityDefault, js_IDBTransactionDurabilityStrict, js_IDBTransactionDurabilityRelaxed, IDBTransactionMode(..), js_IDBTransactionModeReadonly, js_IDBTransactionModeReadwrite, js_IDBTransactionModeVersionchange, IPAddressSpace(..), js_IPAddressSpacePublic, js_IPAddressSpaceLocal, js_IPAddressSpaceLoopback, IdentityCredentialRequestOptionsContext(..), js_IdentityCredentialRequestOptionsContextSignin, js_IdentityCredentialRequestOptionsContextSignup, js_IdentityCredentialRequestOptionsContextUse, js_IdentityCredentialRequestOptionsContextContinue, IdentityCredentialRequestOptionsMode(..), js_IdentityCredentialRequestOptionsModeActive, js_IdentityCredentialRequestOptionsModePassive, ImageDataPixelFormat(..), js_ImageDataPixelFormatRgbaUnorm8, js_ImageDataPixelFormatRgbaFloat16, ImageSmoothingQuality(..), js_ImageSmoothingQualityLow, js_ImageSmoothingQualityMedium, js_ImageSmoothingQualityHigh, IterationCompositeOperation(..), js_IterationCompositeOperationReplace, js_IterationCompositeOperationAccumulate, KeyFormat(..), js_KeyFormatRawPublic, js_KeyFormatRawPrivate, js_KeyFormatRawSeed, js_KeyFormatRawSecret, js_KeyFormatRaw, js_KeyFormatSpki, js_KeyFormatPkcs8, js_KeyFormatJwk, KeyType(..), js_KeyTypePublic, js_KeyTypePrivate, js_KeyTypeSecret, KeyUsage(..), js_KeyUsageEncrypt, js_KeyUsageDecrypt, js_KeyUsageSign, js_KeyUsageVerify, js_KeyUsageDeriveKey, js_KeyUsageDeriveBits, js_KeyUsageWrapKey, js_KeyUsageUnwrapKey, js_KeyUsageEncapsulateKey, js_KeyUsageEncapsulateBits, js_KeyUsageDecapsulateKey, js_KeyUsageDecapsulateBits, LatencyMode(..), js_LatencyModeQuality, js_LatencyModeRealtime, LineAlignSetting(..), js_LineAlignSettingStart, js_LineAlignSettingCenter, js_LineAlignSettingEnd, LockMode(..), js_LockModeShared, js_LockModeExclusive, LoginStatus(..), js_LoginStatusLoggedIn, js_LoginStatusLoggedOut, MIDIPortConnectionState(..), js_MIDIPortConnectionStateOpen, js_MIDIPortConnectionStateClosed, js_MIDIPortConnectionStatePending, MIDIPortDeviceState(..), js_MIDIPortDeviceStateDisconnected, js_MIDIPortDeviceStateConnected, MIDIPortType(..), js_MIDIPortTypeInput, js_MIDIPortTypeOutput, MediaDecodingType(..), js_MediaDecodingTypeFile, js_MediaDecodingTypeMediaSource, js_MediaDecodingTypeWebrtc, MediaDeviceKind(..), js_MediaDeviceKindAudioinput, js_MediaDeviceKindAudiooutput, js_MediaDeviceKindVideoinput, MediaEncodingType(..), js_MediaEncodingTypeRecord, js_MediaEncodingTypeWebrtc, MediaKeyMessageType(..), js_MediaKeyMessageTypeLicenseRequest, js_MediaKeyMessageTypeLicenseRenewal, js_MediaKeyMessageTypeLicenseRelease, js_MediaKeyMessageTypeIndividualizationRequest, MediaKeySessionClosedReason(..), js_MediaKeySessionClosedReasonInternalError, js_MediaKeySessionClosedReasonClosedByApplication, js_MediaKeySessionClosedReasonReleaseAcknowledged, js_MediaKeySessionClosedReasonHardwareContextReset, js_MediaKeySessionClosedReasonResourceEvicted, MediaKeySessionType(..), js_MediaKeySessionTypeTemporary, js_MediaKeySessionTypePersistentLicense, MediaKeyStatus(..), js_MediaKeyStatusUsable, js_MediaKeyStatusExpired, js_MediaKeyStatusReleased, js_MediaKeyStatusOutputRestricted, js_MediaKeyStatusOutputDownscaled, js_MediaKeyStatusUsableInFuture, js_MediaKeyStatusStatusPending, js_MediaKeyStatusInternalError, MediaKeysRequirement(..), js_MediaKeysRequirementRequired, js_MediaKeysRequirementOptional, js_MediaKeysRequirementNotAllowed, MediaSessionAction(..), js_MediaSessionActionPlay, js_MediaSessionActionPause, js_MediaSessionActionSeekbackward, js_MediaSessionActionSeekforward, js_MediaSessionActionPrevioustrack, js_MediaSessionActionNexttrack, js_MediaSessionActionSkipad, js_MediaSessionActionStop, js_MediaSessionActionSeekto, js_MediaSessionActionTogglemicrophone, js_MediaSessionActionTogglecamera, js_MediaSessionActionTogglescreenshare, js_MediaSessionActionHangup, js_MediaSessionActionPreviousslide, js_MediaSessionActionNextslide, js_MediaSessionActionEnterpictureinpicture, js_MediaSessionActionVoiceactivity, MediaSessionEnterPictureInPictureReason(..), js_MediaSessionEnterPictureInPictureReasonOther, js_MediaSessionEnterPictureInPictureReasonUseraction, js_MediaSessionEnterPictureInPictureReasonContentoccluded, MediaSessionPlaybackState(..), js_MediaSessionPlaybackStateNone, js_MediaSessionPlaybackStatePaused, js_MediaSessionPlaybackStatePlaying, MediaStreamTrackState(..), js_MediaStreamTrackStateLive, js_MediaStreamTrackStateEnded, MonitorTypeSurfacesEnum(..), js_MonitorTypeSurfacesEnumInclude, js_MonitorTypeSurfacesEnumExclude, NavigationFocusReset(..), js_NavigationFocusResetAfterTransition, js_NavigationFocusResetManual, NavigationHistoryBehavior(..), js_NavigationHistoryBehaviorAuto, js_NavigationHistoryBehaviorPush, js_NavigationHistoryBehaviorReplace, NavigationScrollBehavior(..), js_NavigationScrollBehaviorAfterTransition, js_NavigationScrollBehaviorManual, NavigationTimingType(..), js_NavigationTimingTypeNavigate, js_NavigationTimingTypeReload, js_NavigationTimingTypeBackForward, NavigationType(..), js_NavigationTypePush, js_NavigationTypeReplace, js_NavigationTypeReload, js_NavigationTypeTraverse, NotificationDirection(..), js_NotificationDirectionAuto, js_NotificationDirectionLtr, js_NotificationDirectionRtl, NotificationPermission(..), js_NotificationPermissionDefault, js_NotificationPermissionDenied, js_NotificationPermissionGranted, OTPCredentialTransportType(..), js_OTPCredentialTransportTypeSms, OffscreenRenderingContextId(..), js_OffscreenRenderingContextId2d, js_OffscreenRenderingContextIdBitmaprenderer, js_OffscreenRenderingContextIdWebgl, js_OffscreenRenderingContextIdWebgl2, js_OffscreenRenderingContextIdWebgpu, OperationType(..), js_OperationTypeTokenRequest, js_OperationTypeSendRedemptionRecord, js_OperationTypeTokenRedemption, OpusApplication(..), js_OpusApplicationVoip, js_OpusApplicationAudio, js_OpusApplicationLowdelay, OpusBitstreamFormat(..), js_OpusBitstreamFormatOpus, js_OpusBitstreamFormatOgg, OpusSignal(..), js_OpusSignalAuto, js_OpusSignalMusic, js_OpusSignalVoice, OrientationLockType(..), js_OrientationLockTypeAny, js_OrientationLockTypeNatural, js_OrientationLockTypeLandscape, js_OrientationLockTypePortrait, js_OrientationLockTypePortraitPrimary, js_OrientationLockTypePortraitSecondary, js_OrientationLockTypeLandscapePrimary, js_OrientationLockTypeLandscapeSecondary, OrientationType(..), js_OrientationTypePortraitPrimary, js_OrientationTypePortraitSecondary, js_OrientationTypeLandscapePrimary, js_OrientationTypeLandscapeSecondary, OscillatorType(..), js_OscillatorTypeSine, js_OscillatorTypeSquare, js_OscillatorTypeSawtooth, js_OscillatorTypeTriangle, js_OscillatorTypeCustom, OverSampleType(..), js_OverSampleTypeNone, js_OverSampleType2x, js_OverSampleType4x, PanningModelType(..), js_PanningModelTypeEqualpower, js_PanningModelTypeHRTF, ParityType(..), js_ParityTypeNone, js_ParityTypeEven, js_ParityTypeOdd, PaymentComplete(..), js_PaymentCompleteFail, js_PaymentCompleteSuccess, js_PaymentCompleteUnknown, PaymentShippingType(..), js_PaymentShippingTypeShipping, js_PaymentShippingTypeDelivery, js_PaymentShippingTypePickup, PermissionState(..), js_PermissionStateGranted, js_PermissionStateDenied, js_PermissionStatePrompt, PlaybackDirection(..), js_PlaybackDirectionNormal, js_PlaybackDirectionReverse, js_PlaybackDirectionAlternate, js_PlaybackDirectionAlternateReverse, PositionAlignSetting(..), js_PositionAlignSettingLineLeft, js_PositionAlignSettingCenter, js_PositionAlignSettingLineRight, js_PositionAlignSettingAuto, PredefinedColorSpace(..), js_PredefinedColorSpaceSrgb, js_PredefinedColorSpaceSrgbLinear, js_PredefinedColorSpaceDisplayP3, js_PredefinedColorSpaceDisplayP3Linear, PresentationStyle(..), js_PresentationStyleUnspecified, js_PresentationStyleInline, js_PresentationStyleAttachment, PushEncryptionKeyName(..), js_PushEncryptionKeyNameP256dh, js_PushEncryptionKeyNameAuth, RTCBundlePolicy(..), js_RTCBundlePolicyBalanced, js_RTCBundlePolicyMaxCompat, js_RTCBundlePolicyMaxBundle, RTCDataChannelState(..), js_RTCDataChannelStateConnecting, js_RTCDataChannelStateOpen, js_RTCDataChannelStateClosing, js_RTCDataChannelStateClosed, RTCDegradationPreference(..), js_RTCDegradationPreferenceMaintainFramerate, js_RTCDegradationPreferenceMaintainResolution, js_RTCDegradationPreferenceBalanced, js_RTCDegradationPreferenceMaintainFramerateAndResolution, RTCDtlsTransportState(..), js_RTCDtlsTransportStateNew, js_RTCDtlsTransportStateConnecting, js_RTCDtlsTransportStateConnected, js_RTCDtlsTransportStateClosed, js_RTCDtlsTransportStateFailed, RTCErrorDetailType(..), js_RTCErrorDetailTypeDataChannelFailure, js_RTCErrorDetailTypeDtlsFailure, js_RTCErrorDetailTypeFingerprintFailure, js_RTCErrorDetailTypeSctpFailure, js_RTCErrorDetailTypeSdpSyntaxError, js_RTCErrorDetailTypeHardwareEncoderNotAvailable, js_RTCErrorDetailTypeHardwareEncoderError, RTCIceCandidateType(..), js_RTCIceCandidateTypeHost, js_RTCIceCandidateTypeSrflx, js_RTCIceCandidateTypePrflx, js_RTCIceCandidateTypeRelay, RTCIceComponent(..), js_RTCIceComponentRtp, js_RTCIceComponentRtcp, RTCIceConnectionState(..), js_RTCIceConnectionStateClosed, js_RTCIceConnectionStateFailed, js_RTCIceConnectionStateDisconnected, js_RTCIceConnectionStateNew, js_RTCIceConnectionStateChecking, js_RTCIceConnectionStateCompleted, js_RTCIceConnectionStateConnected, RTCIceGathererState(..), js_RTCIceGathererStateNew, js_RTCIceGathererStateGathering, js_RTCIceGathererStateComplete, RTCIceGatheringState(..), js_RTCIceGatheringStateNew, js_RTCIceGatheringStateGathering, js_RTCIceGatheringStateComplete, RTCIceProtocol(..), js_RTCIceProtocolUdp, js_RTCIceProtocolTcp, RTCIceRole(..), js_RTCIceRoleUnknown, js_RTCIceRoleControlling, js_RTCIceRoleControlled, RTCIceServerTransportProtocol(..), js_RTCIceServerTransportProtocolUdp, js_RTCIceServerTransportProtocolTcp, js_RTCIceServerTransportProtocolTls, RTCIceTcpCandidateType(..), js_RTCIceTcpCandidateTypeActive, js_RTCIceTcpCandidateTypePassive, js_RTCIceTcpCandidateTypeSo, RTCIceTransportPolicy(..), js_RTCIceTransportPolicyRelay, js_RTCIceTransportPolicyAll, RTCIceTransportState(..), js_RTCIceTransportStateClosed, js_RTCIceTransportStateFailed, js_RTCIceTransportStateDisconnected, js_RTCIceTransportStateNew, js_RTCIceTransportStateChecking, js_RTCIceTransportStateCompleted, js_RTCIceTransportStateConnected, RTCPeerConnectionState(..), js_RTCPeerConnectionStateClosed, js_RTCPeerConnectionStateFailed, js_RTCPeerConnectionStateDisconnected, js_RTCPeerConnectionStateNew, js_RTCPeerConnectionStateConnecting, js_RTCPeerConnectionStateConnected, RTCPriorityType(..), js_RTCPriorityTypeVeryLow, js_RTCPriorityTypeLow, js_RTCPriorityTypeMedium, js_RTCPriorityTypeHigh, RTCRtcpMuxPolicy(..), js_RTCRtcpMuxPolicyRequire, RTCRtpScriptTransformType(..), js_RTCRtpScriptTransformTypeSframe, RTCRtpTransceiverDirection(..), js_RTCRtpTransceiverDirectionSendrecv, js_RTCRtpTransceiverDirectionSendonly, js_RTCRtpTransceiverDirectionRecvonly, js_RTCRtpTransceiverDirectionInactive, js_RTCRtpTransceiverDirectionStopped, RTCSctpTransportState(..), js_RTCSctpTransportStateConnecting, js_RTCSctpTransportStateConnected, js_RTCSctpTransportStateClosed, RTCSdpType(..), js_RTCSdpTypeOffer, js_RTCSdpTypePranswer, js_RTCSdpTypeAnswer, js_RTCSdpTypeRollback, RTCSignalingState(..), js_RTCSignalingStateStable, js_RTCSignalingStateHaveLocalOffer, js_RTCSignalingStateHaveRemoteOffer, js_RTCSignalingStateHaveLocalPranswer, js_RTCSignalingStateHaveRemotePranswer, js_RTCSignalingStateClosed, ReadableStreamReaderMode(..), js_ReadableStreamReaderModeByob, ReadableStreamType(..), js_ReadableStreamTypeBytes, ReadyState(..), js_ReadyStateClosed, js_ReadyStateOpen, js_ReadyStateEnded, RecordingState(..), js_RecordingStateInactive, js_RecordingStateRecording, js_RecordingStatePaused, RedEyeReduction(..), js_RedEyeReductionNever, js_RedEyeReductionAlways, js_RedEyeReductionControllable, ReferrerPolicy(..), js_ReferrerPolicy, js_ReferrerPolicyNoReferrer, js_ReferrerPolicyNoReferrerWhenDowngrade, js_ReferrerPolicySameOrigin, js_ReferrerPolicyOrigin, js_ReferrerPolicyStrictOrigin, js_ReferrerPolicyOriginWhenCrossOrigin, js_ReferrerPolicyStrictOriginWhenCrossOrigin, js_ReferrerPolicyUnsafeUrl, RefreshPolicy(..), js_RefreshPolicyNone, js_RefreshPolicyRefresh, RemotePlaybackState(..), js_RemotePlaybackStateConnecting, js_RemotePlaybackStateConnected, js_RemotePlaybackStateDisconnected, RequestCache(..), js_RequestCacheDefault, js_RequestCacheNoStore, js_RequestCacheReload, js_RequestCacheNoCache, js_RequestCacheForceCache, js_RequestCacheOnlyIfCached, RequestCredentials(..), js_RequestCredentialsOmit, js_RequestCredentialsSameOrigin, js_RequestCredentialsInclude, RequestDestination(..), js_RequestDestination, js_RequestDestinationAudio, js_RequestDestinationAudioworklet, js_RequestDestinationDocument, js_RequestDestinationEmbed, js_RequestDestinationFont, js_RequestDestinationFrame, js_RequestDestinationIframe, js_RequestDestinationImage, js_RequestDestinationJson, js_RequestDestinationManifest, js_RequestDestinationObject, js_RequestDestinationPaintworklet, js_RequestDestinationReport, js_RequestDestinationScript, js_RequestDestinationSharedworker, js_RequestDestinationStyle, js_RequestDestinationText, js_RequestDestinationTrack, js_RequestDestinationVideo, js_RequestDestinationWorker, js_RequestDestinationXslt, RequestDuplex(..), js_RequestDuplexHalf, RequestMode(..), js_RequestModeNavigate, js_RequestModeSameOrigin, js_RequestModeNoCors, js_RequestModeCors, RequestPriority(..), js_RequestPriorityHigh, js_RequestPriorityLow, js_RequestPriorityAuto, RequestRedirect(..), js_RequestRedirectFollow, js_RequestRedirectError, js_RequestRedirectManual, ResizeObserverBoxOptions(..), js_ResizeObserverBoxOptionsBorderBox, js_ResizeObserverBoxOptionsContentBox, js_ResizeObserverBoxOptionsDevicePixelContentBox, ResponseType(..), js_ResponseTypeBasic, js_ResponseTypeCors, js_ResponseTypeDefault, js_ResponseTypeError, js_ResponseTypeOpaque, js_ResponseTypeOpaqueredirect, RouterSourceEnum(..), js_RouterSourceEnumCache, js_RouterSourceEnumFetchEvent, js_RouterSourceEnumNetwork, js_RouterSourceEnumRaceNetworkAndFetchHandler, RunningStatus(..), js_RunningStatusRunning, js_RunningStatusNotRunning, SameSiteCookiesType(..), js_SameSiteCookiesTypeAll, js_SameSiteCookiesTypeNone, SanitizerPresets(..), js_SanitizerPresetsDefault, ScrollAxis(..), js_ScrollAxisBlock, js_ScrollAxisInline, js_ScrollAxisX, js_ScrollAxisY, ScrollBehavior(..), js_ScrollBehaviorAuto, js_ScrollBehaviorInstant, js_ScrollBehaviorSmooth, ScrollIntoViewContainer(..), js_ScrollIntoViewContainerAll, js_ScrollIntoViewContainerNearest, ScrollLogicalPosition(..), js_ScrollLogicalPositionStart, js_ScrollLogicalPositionCenter, js_ScrollLogicalPositionEnd, js_ScrollLogicalPositionNearest, ScrollRestoration(..), js_ScrollRestorationAuto, js_ScrollRestorationManual, ScrollSetting(..), js_ScrollSetting, js_ScrollSettingUp, SecurityPolicyViolationEventDisposition(..), js_SecurityPolicyViolationEventDispositionEnforce, js_SecurityPolicyViolationEventDispositionReport, SegmentType(..), js_SegmentTypeHumanFace, js_SegmentTypeLeftEye, js_SegmentTypeRightEye, js_SegmentTypeEye, js_SegmentTypeMouth, SelectionMode(..), js_SelectionModeSelect, js_SelectionModeStart, js_SelectionModeEnd, js_SelectionModePreserve, SelfCapturePreferenceEnum(..), js_SelfCapturePreferenceEnumInclude, js_SelfCapturePreferenceEnumExclude, ServiceWorkerState(..), js_ServiceWorkerStateParsed, js_ServiceWorkerStateInstalling, js_ServiceWorkerStateInstalled, js_ServiceWorkerStateActivating, js_ServiceWorkerStateActivated, js_ServiceWorkerStateRedundant, ServiceWorkerUpdateViaCache(..), js_ServiceWorkerUpdateViaCacheImports, js_ServiceWorkerUpdateViaCacheAll, js_ServiceWorkerUpdateViaCacheNone, ShadowRootMode(..), js_ShadowRootModeOpen, js_ShadowRootModeClosed, SlotAssignmentMode(..), js_SlotAssignmentModeManual, js_SlotAssignmentModeNamed, SpeechRecognitionAvailabilityStatus(..), js_SpeechRecognitionAvailabilityStatusUnavailable, js_SpeechRecognitionAvailabilityStatusDownloadable, js_SpeechRecognitionAvailabilityStatusDownloading, js_SpeechRecognitionAvailabilityStatusAvailable, SpeechRecognitionErrorCode(..), js_SpeechRecognitionErrorCodeNoSpeech, js_SpeechRecognitionErrorCodeAborted, js_SpeechRecognitionErrorCodeAudioCapture, js_SpeechRecognitionErrorCodeNetwork, js_SpeechRecognitionErrorCodeNotAllowed, js_SpeechRecognitionErrorCodeServiceNotAllowed, js_SpeechRecognitionErrorCodeLanguageNotSupported, js_SpeechRecognitionErrorCodePhrasesNotSupported, SpeechRecognitionQuality(..), js_SpeechRecognitionQualityCommand, js_SpeechRecognitionQualityDictation, js_SpeechRecognitionQualityConversation, SpeechSynthesisErrorCode(..), js_SpeechSynthesisErrorCodeCanceled, js_SpeechSynthesisErrorCodeInterrupted, js_SpeechSynthesisErrorCodeAudioBusy, js_SpeechSynthesisErrorCodeAudioHardware, js_SpeechSynthesisErrorCodeNetwork, js_SpeechSynthesisErrorCodeSynthesisUnavailable, js_SpeechSynthesisErrorCodeSynthesisFailed, js_SpeechSynthesisErrorCodeLanguageUnavailable, js_SpeechSynthesisErrorCodeVoiceUnavailable, js_SpeechSynthesisErrorCodeTextTooLong, js_SpeechSynthesisErrorCodeInvalidArgument, js_SpeechSynthesisErrorCodeNotAllowed, SurfaceSwitchingPreferenceEnum(..), js_SurfaceSwitchingPreferenceEnumInclude, js_SurfaceSwitchingPreferenceEnumExclude, SystemAudioPreferenceEnum(..), js_SystemAudioPreferenceEnumInclude, js_SystemAudioPreferenceEnumExclude, TaskPriority(..), js_TaskPriorityUserBlocking, js_TaskPriorityUserVisible, js_TaskPriorityBackground, TextTrackKind(..), js_TextTrackKindSubtitles, js_TextTrackKindCaptions, js_TextTrackKindDescriptions, js_TextTrackKindChapters, js_TextTrackKindMetadata, TextTrackMode(..), js_TextTrackModeDisabled, js_TextTrackModeHidden, js_TextTrackModeShowing, TokenVersion(..), js_TokenVersion1, TouchType(..), js_TouchTypeDirect, js_TouchTypeStylus, TransferFunction(..), js_TransferFunctionSrgb, js_TransferFunctionPq, js_TransferFunctionHlg, VideoColorPrimaries(..), js_VideoColorPrimariesBt709, js_VideoColorPrimariesBt470bg, js_VideoColorPrimariesSmpte170m, js_VideoColorPrimariesBt2020, js_VideoColorPrimariesSmpte432, VideoEncoderBitrateMode(..), js_VideoEncoderBitrateModeConstant, js_VideoEncoderBitrateModeVariable, js_VideoEncoderBitrateModeQuantizer, VideoMatrixCoefficients(..), js_VideoMatrixCoefficientsRgb, js_VideoMatrixCoefficientsBt709, js_VideoMatrixCoefficientsBt470bg, js_VideoMatrixCoefficientsSmpte170m, js_VideoMatrixCoefficientsBt2020Ncl, VideoPixelFormat(..), js_VideoPixelFormatI420, js_VideoPixelFormatI420P10, js_VideoPixelFormatI420P12, js_VideoPixelFormatI420A, js_VideoPixelFormatI420AP10, js_VideoPixelFormatI420AP12, js_VideoPixelFormatI422, js_VideoPixelFormatI422P10, js_VideoPixelFormatI422P12, js_VideoPixelFormatI422A, js_VideoPixelFormatI422AP10, js_VideoPixelFormatI422AP12, js_VideoPixelFormatI444, js_VideoPixelFormatI444P10, js_VideoPixelFormatI444P12, js_VideoPixelFormatI444A, js_VideoPixelFormatI444AP10, js_VideoPixelFormatI444AP12, js_VideoPixelFormatNV12, js_VideoPixelFormatRGBA, js_VideoPixelFormatRGBX, js_VideoPixelFormatBGRA, js_VideoPixelFormatBGRX, VideoTransferCharacteristics(..), js_VideoTransferCharacteristicsBt709, js_VideoTransferCharacteristicsSmpte170m, js_VideoTransferCharacteristicsIec6196621, js_VideoTransferCharacteristicsLinear, js_VideoTransferCharacteristicsPq, js_VideoTransferCharacteristicsHlg, WakeLockType(..), js_WakeLockTypeScreen, WebGLPowerPreference(..), js_WebGLPowerPreferenceDefault, js_WebGLPowerPreferenceLowPower, js_WebGLPowerPreferenceHighPerformance, WebTransportCongestionControl(..), js_WebTransportCongestionControlDefault, js_WebTransportCongestionControlThroughput, js_WebTransportCongestionControlLowLatency, WebTransportErrorSource(..), js_WebTransportErrorSourceStream, js_WebTransportErrorSourceSession, WebTransportReliabilityMode(..), js_WebTransportReliabilityModePending, js_WebTransportReliabilityModeReliableOnly, js_WebTransportReliabilityModeSupportsUnreliable, WindowAudioPreferenceEnum(..), js_WindowAudioPreferenceEnumSystem, js_WindowAudioPreferenceEnumWindow, js_WindowAudioPreferenceEnumExclude, WorkerType(..), js_WorkerTypeClassic, js_WorkerTypeModule, WriteCommandType(..), js_WriteCommandTypeWrite, js_WriteCommandTypeSeek, js_WriteCommandTypeTruncate, XMLHttpRequestResponseType(..), js_XMLHttpRequestResponseType, js_XMLHttpRequestResponseTypeArraybuffer, js_XMLHttpRequestResponseTypeBlob, js_XMLHttpRequestResponseTypeDocument, js_XMLHttpRequestResponseTypeJson, js_XMLHttpRequestResponseTypeText)+ where+import Prelude ((.), (>>=), (<$>), Show, Read, Eq, Ord, Bounded, Enum, Maybe(..))+import qualified Prelude as P+import Data.Typeable (Typeable)+import GHCJS.Types (JSString)+import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))+import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))++-- | <https://developer.mozilla.org/en-US/docs/Web/API AacBitstreamFormat> (webcodecs-aac-codec-registration)+data AacBitstreamFormat = AacBitstreamFormatAac+ | AacBitstreamFormatAdts+ deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal AacBitstreamFormat where+ pToJSVal x = pToJSVal (case x of+ AacBitstreamFormatAac -> js_AacBitstreamFormatAac+ AacBitstreamFormatAdts -> js_AacBitstreamFormatAdts+ )++instance ToJSVal AacBitstreamFormat where+ toJSVal = P.return . pToJSVal++instance PFromJSVal AacBitstreamFormat where+ pFromJSVal x = P.maybe (P.error "Unexpected AacBitstreamFormat value") P.id (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_AacBitstreamFormatAac, AacBitstreamFormatAac), (js_AacBitstreamFormatAdts, AacBitstreamFormatAdts)]++instance FromJSVal AacBitstreamFormat where+ fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_AacBitstreamFormatAac, AacBitstreamFormatAac), (js_AacBitstreamFormatAdts, AacBitstreamFormatAdts)]+ fromJSValUnchecked = P.return . pFromJSVal++js_AacBitstreamFormatAac :: JSString+js_AacBitstreamFormatAac = "aac"+js_AacBitstreamFormatAdts :: JSString+js_AacBitstreamFormatAdts = "adts"++-- | <https://developer.mozilla.org/en-US/docs/Web/API AlignSetting> (webvtt1)+data AlignSetting = AlignSettingStart+ | AlignSettingCenter+ | AlignSettingEnd+ | AlignSettingLeft+ | AlignSettingRight+ deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal AlignSetting where+ pToJSVal x = pToJSVal (case x of+ AlignSettingStart -> js_AlignSettingStart+ AlignSettingCenter -> js_AlignSettingCenter+ AlignSettingEnd -> js_AlignSettingEnd+ AlignSettingLeft -> js_AlignSettingLeft+ AlignSettingRight -> js_AlignSettingRight+ )++instance ToJSVal AlignSetting where+ toJSVal = P.return . pToJSVal++instance PFromJSVal AlignSetting where+ pFromJSVal x = P.maybe (P.error "Unexpected AlignSetting value") P.id (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_AlignSettingStart, AlignSettingStart), (js_AlignSettingCenter, AlignSettingCenter), (js_AlignSettingEnd, AlignSettingEnd), (js_AlignSettingLeft, AlignSettingLeft), (js_AlignSettingRight, AlignSettingRight)]++instance FromJSVal AlignSetting where+ fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_AlignSettingStart, AlignSettingStart), (js_AlignSettingCenter, AlignSettingCenter), (js_AlignSettingEnd, AlignSettingEnd), (js_AlignSettingLeft, AlignSettingLeft), (js_AlignSettingRight, AlignSettingRight)]+ fromJSValUnchecked = P.return . pFromJSVal++js_AlignSettingStart :: JSString+js_AlignSettingStart = "start"+js_AlignSettingCenter :: JSString+js_AlignSettingCenter = "center"+js_AlignSettingEnd :: JSString+js_AlignSettingEnd = "end"+js_AlignSettingLeft :: JSString+js_AlignSettingLeft = "left"+js_AlignSettingRight :: JSString+js_AlignSettingRight = "right"++-- | <https://developer.mozilla.org/en-US/docs/Web/API AlphaOption> (webcodecs)+data AlphaOption = AlphaOptionKeep+ | AlphaOptionDiscard+ deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal AlphaOption where+ pToJSVal x = pToJSVal (case x of+ AlphaOptionKeep -> js_AlphaOptionKeep+ AlphaOptionDiscard -> js_AlphaOptionDiscard+ )++instance ToJSVal AlphaOption where+ toJSVal = P.return . pToJSVal++instance PFromJSVal AlphaOption where+ pFromJSVal x = P.maybe (P.error "Unexpected AlphaOption value") P.id (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_AlphaOptionKeep, AlphaOptionKeep), (js_AlphaOptionDiscard, AlphaOptionDiscard)]++instance FromJSVal AlphaOption where+ fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_AlphaOptionKeep, AlphaOptionKeep), (js_AlphaOptionDiscard, AlphaOptionDiscard)]+ fromJSValUnchecked = P.return . pFromJSVal++js_AlphaOptionKeep :: JSString+js_AlphaOptionKeep = "keep"+js_AlphaOptionDiscard :: JSString+js_AlphaOptionDiscard = "discard"++-- | <https://developer.mozilla.org/en-US/docs/Web/API AnimationPlayState> (web-animations-1)+data AnimationPlayState = AnimationPlayStateIdle+ | AnimationPlayStateRunning+ | AnimationPlayStatePaused+ | AnimationPlayStateFinished+ deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal AnimationPlayState where+ pToJSVal x = pToJSVal (case x of+ AnimationPlayStateIdle -> js_AnimationPlayStateIdle+ AnimationPlayStateRunning -> js_AnimationPlayStateRunning+ AnimationPlayStatePaused -> js_AnimationPlayStatePaused+ AnimationPlayStateFinished -> js_AnimationPlayStateFinished+ )++instance ToJSVal AnimationPlayState where+ toJSVal = P.return . pToJSVal++instance PFromJSVal AnimationPlayState where+ pFromJSVal x = P.maybe (P.error "Unexpected AnimationPlayState value") P.id (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_AnimationPlayStateIdle, AnimationPlayStateIdle), (js_AnimationPlayStateRunning, AnimationPlayStateRunning), (js_AnimationPlayStatePaused, AnimationPlayStatePaused), (js_AnimationPlayStateFinished, AnimationPlayStateFinished)]++instance FromJSVal AnimationPlayState where+ fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_AnimationPlayStateIdle, AnimationPlayStateIdle), (js_AnimationPlayStateRunning, AnimationPlayStateRunning), (js_AnimationPlayStatePaused, AnimationPlayStatePaused), (js_AnimationPlayStateFinished, AnimationPlayStateFinished)]+ fromJSValUnchecked = P.return . pFromJSVal++js_AnimationPlayStateIdle :: JSString+js_AnimationPlayStateIdle = "idle"+js_AnimationPlayStateRunning :: JSString+js_AnimationPlayStateRunning = "running"+js_AnimationPlayStatePaused :: JSString+js_AnimationPlayStatePaused = "paused"+js_AnimationPlayStateFinished :: JSString+js_AnimationPlayStateFinished = "finished"++-- | <https://developer.mozilla.org/en-US/docs/Web/API AnimationReplaceState> (web-animations-1)+data AnimationReplaceState = AnimationReplaceStateActive+ | AnimationReplaceStateRemoved+ | AnimationReplaceStatePersisted+ deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal AnimationReplaceState where+ pToJSVal x = pToJSVal (case x of+ AnimationReplaceStateActive -> js_AnimationReplaceStateActive+ AnimationReplaceStateRemoved -> js_AnimationReplaceStateRemoved+ AnimationReplaceStatePersisted -> js_AnimationReplaceStatePersisted+ )++instance ToJSVal AnimationReplaceState where+ toJSVal = P.return . pToJSVal++instance PFromJSVal AnimationReplaceState where+ pFromJSVal x = P.maybe (P.error "Unexpected AnimationReplaceState value") P.id (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_AnimationReplaceStateActive, AnimationReplaceStateActive), (js_AnimationReplaceStateRemoved, AnimationReplaceStateRemoved), (js_AnimationReplaceStatePersisted, AnimationReplaceStatePersisted)]++instance FromJSVal AnimationReplaceState where+ fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_AnimationReplaceStateActive, AnimationReplaceStateActive), (js_AnimationReplaceStateRemoved, AnimationReplaceStateRemoved), (js_AnimationReplaceStatePersisted, AnimationReplaceStatePersisted)]+ fromJSValUnchecked = P.return . pFromJSVal++js_AnimationReplaceStateActive :: JSString+js_AnimationReplaceStateActive = "active"+js_AnimationReplaceStateRemoved :: JSString+js_AnimationReplaceStateRemoved = "removed"+js_AnimationReplaceStatePersisted :: JSString+js_AnimationReplaceStatePersisted = "persisted"++-- | <https://developer.mozilla.org/en-US/docs/Web/API AppendMode> (media-source-2)+data AppendMode = AppendModeSegments+ | AppendModeSequence+ deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal AppendMode where+ pToJSVal x = pToJSVal (case x of+ AppendModeSegments -> js_AppendModeSegments+ AppendModeSequence -> js_AppendModeSequence+ )++instance ToJSVal AppendMode where+ toJSVal = P.return . pToJSVal++instance PFromJSVal AppendMode where+ pFromJSVal x = P.maybe (P.error "Unexpected AppendMode value") P.id (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_AppendModeSegments, AppendModeSegments), (js_AppendModeSequence, AppendModeSequence)]++instance FromJSVal AppendMode where+ fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_AppendModeSegments, AppendModeSegments), (js_AppendModeSequence, AppendModeSequence)]+ fromJSValUnchecked = P.return . pFromJSVal++js_AppendModeSegments :: JSString+js_AppendModeSegments = "segments"+js_AppendModeSequence :: JSString+js_AppendModeSequence = "sequence"++-- | <https://developer.mozilla.org/en-US/docs/Web/API AriaNotifyPriority> (wai-aria-1.3)+data AriaNotifyPriority = AriaNotifyPriorityNormal+ | AriaNotifyPriorityHigh+ deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal AriaNotifyPriority where+ pToJSVal x = pToJSVal (case x of+ AriaNotifyPriorityNormal -> js_AriaNotifyPriorityNormal+ AriaNotifyPriorityHigh -> js_AriaNotifyPriorityHigh+ )++instance ToJSVal AriaNotifyPriority where+ toJSVal = P.return . pToJSVal++instance PFromJSVal AriaNotifyPriority where+ pFromJSVal x = P.maybe (P.error "Unexpected AriaNotifyPriority value") P.id (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_AriaNotifyPriorityNormal, AriaNotifyPriorityNormal), (js_AriaNotifyPriorityHigh, AriaNotifyPriorityHigh)]++instance FromJSVal AriaNotifyPriority where+ fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_AriaNotifyPriorityNormal, AriaNotifyPriorityNormal), (js_AriaNotifyPriorityHigh, AriaNotifyPriorityHigh)]+ fromJSValUnchecked = P.return . pFromJSVal++js_AriaNotifyPriorityNormal :: JSString+js_AriaNotifyPriorityNormal = "normal"+js_AriaNotifyPriorityHigh :: JSString+js_AriaNotifyPriorityHigh = "high"++-- | <https://developer.mozilla.org/en-US/docs/Web/API AudioContextLatencyCategory> (webaudio-1.1)+data AudioContextLatencyCategory = AudioContextLatencyCategoryBalanced+ | AudioContextLatencyCategoryInteractive+ | AudioContextLatencyCategoryPlayback+ deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal AudioContextLatencyCategory where+ pToJSVal x = pToJSVal (case x of+ AudioContextLatencyCategoryBalanced -> js_AudioContextLatencyCategoryBalanced+ AudioContextLatencyCategoryInteractive -> js_AudioContextLatencyCategoryInteractive+ AudioContextLatencyCategoryPlayback -> js_AudioContextLatencyCategoryPlayback+ )++instance ToJSVal AudioContextLatencyCategory where+ toJSVal = P.return . pToJSVal++instance PFromJSVal AudioContextLatencyCategory where+ pFromJSVal x = P.maybe (P.error "Unexpected AudioContextLatencyCategory value") P.id (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_AudioContextLatencyCategoryBalanced, AudioContextLatencyCategoryBalanced), (js_AudioContextLatencyCategoryInteractive, AudioContextLatencyCategoryInteractive), (js_AudioContextLatencyCategoryPlayback, AudioContextLatencyCategoryPlayback)]++instance FromJSVal AudioContextLatencyCategory where+ fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_AudioContextLatencyCategoryBalanced, AudioContextLatencyCategoryBalanced), (js_AudioContextLatencyCategoryInteractive, AudioContextLatencyCategoryInteractive), (js_AudioContextLatencyCategoryPlayback, AudioContextLatencyCategoryPlayback)]+ fromJSValUnchecked = P.return . pFromJSVal++js_AudioContextLatencyCategoryBalanced :: JSString+js_AudioContextLatencyCategoryBalanced = "balanced"+js_AudioContextLatencyCategoryInteractive :: JSString+js_AudioContextLatencyCategoryInteractive = "interactive"+js_AudioContextLatencyCategoryPlayback :: JSString+js_AudioContextLatencyCategoryPlayback = "playback"++-- | <https://developer.mozilla.org/en-US/docs/Web/API AudioContextRenderSizeCategory> (webaudio-1.1)+data AudioContextRenderSizeCategory = AudioContextRenderSizeCategoryDefault+ | AudioContextRenderSizeCategoryHardware+ deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal AudioContextRenderSizeCategory where+ pToJSVal x = pToJSVal (case x of+ AudioContextRenderSizeCategoryDefault -> js_AudioContextRenderSizeCategoryDefault+ AudioContextRenderSizeCategoryHardware -> js_AudioContextRenderSizeCategoryHardware+ )++instance ToJSVal AudioContextRenderSizeCategory where+ toJSVal = P.return . pToJSVal++instance PFromJSVal AudioContextRenderSizeCategory where+ pFromJSVal x = P.maybe (P.error "Unexpected AudioContextRenderSizeCategory value") P.id (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_AudioContextRenderSizeCategoryDefault, AudioContextRenderSizeCategoryDefault), (js_AudioContextRenderSizeCategoryHardware, AudioContextRenderSizeCategoryHardware)]++instance FromJSVal AudioContextRenderSizeCategory where+ fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_AudioContextRenderSizeCategoryDefault, AudioContextRenderSizeCategoryDefault), (js_AudioContextRenderSizeCategoryHardware, AudioContextRenderSizeCategoryHardware)]+ fromJSValUnchecked = P.return . pFromJSVal++js_AudioContextRenderSizeCategoryDefault :: JSString+js_AudioContextRenderSizeCategoryDefault = "default"+js_AudioContextRenderSizeCategoryHardware :: JSString+js_AudioContextRenderSizeCategoryHardware = "hardware"++-- | <https://developer.mozilla.org/en-US/docs/Web/API AudioContextState> (webaudio-1.1)+data AudioContextState = AudioContextStateSuspended+ | AudioContextStateRunning+ | AudioContextStateClosed+ | AudioContextStateInterrupted+ deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal AudioContextState where+ pToJSVal x = pToJSVal (case x of+ AudioContextStateSuspended -> js_AudioContextStateSuspended+ AudioContextStateRunning -> js_AudioContextStateRunning+ AudioContextStateClosed -> js_AudioContextStateClosed+ AudioContextStateInterrupted -> js_AudioContextStateInterrupted+ )++instance ToJSVal AudioContextState where+ toJSVal = P.return . pToJSVal++instance PFromJSVal AudioContextState where+ pFromJSVal x = P.maybe (P.error "Unexpected AudioContextState value") P.id (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_AudioContextStateSuspended, AudioContextStateSuspended), (js_AudioContextStateRunning, AudioContextStateRunning), (js_AudioContextStateClosed, AudioContextStateClosed), (js_AudioContextStateInterrupted, AudioContextStateInterrupted)]++instance FromJSVal AudioContextState where+ fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_AudioContextStateSuspended, AudioContextStateSuspended), (js_AudioContextStateRunning, AudioContextStateRunning), (js_AudioContextStateClosed, AudioContextStateClosed), (js_AudioContextStateInterrupted, AudioContextStateInterrupted)]+ fromJSValUnchecked = P.return . pFromJSVal++js_AudioContextStateSuspended :: JSString+js_AudioContextStateSuspended = "suspended"+js_AudioContextStateRunning :: JSString+js_AudioContextStateRunning = "running"+js_AudioContextStateClosed :: JSString+js_AudioContextStateClosed = "closed"+js_AudioContextStateInterrupted :: JSString+js_AudioContextStateInterrupted = "interrupted"++-- | <https://developer.mozilla.org/en-US/docs/Web/API AudioSampleFormat> (webcodecs)+data AudioSampleFormat = AudioSampleFormatU8+ | AudioSampleFormatS16+ | AudioSampleFormatS32+ | AudioSampleFormatF32+ | AudioSampleFormatU8Planar+ | AudioSampleFormatS16Planar+ | AudioSampleFormatS32Planar+ | AudioSampleFormatF32Planar+ deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal AudioSampleFormat where+ pToJSVal x = pToJSVal (case x of+ AudioSampleFormatU8 -> js_AudioSampleFormatU8+ AudioSampleFormatS16 -> js_AudioSampleFormatS16+ AudioSampleFormatS32 -> js_AudioSampleFormatS32+ AudioSampleFormatF32 -> js_AudioSampleFormatF32+ AudioSampleFormatU8Planar -> js_AudioSampleFormatU8Planar+ AudioSampleFormatS16Planar -> js_AudioSampleFormatS16Planar+ AudioSampleFormatS32Planar -> js_AudioSampleFormatS32Planar+ AudioSampleFormatF32Planar -> js_AudioSampleFormatF32Planar+ )++instance ToJSVal AudioSampleFormat where+ toJSVal = P.return . pToJSVal++instance PFromJSVal AudioSampleFormat where+ pFromJSVal x = P.maybe (P.error "Unexpected AudioSampleFormat value") P.id (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_AudioSampleFormatU8, AudioSampleFormatU8), (js_AudioSampleFormatS16, AudioSampleFormatS16), (js_AudioSampleFormatS32, AudioSampleFormatS32), (js_AudioSampleFormatF32, AudioSampleFormatF32), (js_AudioSampleFormatU8Planar, AudioSampleFormatU8Planar), (js_AudioSampleFormatS16Planar, AudioSampleFormatS16Planar), (js_AudioSampleFormatS32Planar, AudioSampleFormatS32Planar), (js_AudioSampleFormatF32Planar, AudioSampleFormatF32Planar)]++instance FromJSVal AudioSampleFormat where+ fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_AudioSampleFormatU8, AudioSampleFormatU8), (js_AudioSampleFormatS16, AudioSampleFormatS16), (js_AudioSampleFormatS32, AudioSampleFormatS32), (js_AudioSampleFormatF32, AudioSampleFormatF32), (js_AudioSampleFormatU8Planar, AudioSampleFormatU8Planar), (js_AudioSampleFormatS16Planar, AudioSampleFormatS16Planar), (js_AudioSampleFormatS32Planar, AudioSampleFormatS32Planar), (js_AudioSampleFormatF32Planar, AudioSampleFormatF32Planar)]+ fromJSValUnchecked = P.return . pFromJSVal++js_AudioSampleFormatU8 :: JSString+js_AudioSampleFormatU8 = "u8"+js_AudioSampleFormatS16 :: JSString+js_AudioSampleFormatS16 = "s16"+js_AudioSampleFormatS32 :: JSString+js_AudioSampleFormatS32 = "s32"+js_AudioSampleFormatF32 :: JSString+js_AudioSampleFormatF32 = "f32"+js_AudioSampleFormatU8Planar :: JSString+js_AudioSampleFormatU8Planar = "u8-planar"+js_AudioSampleFormatS16Planar :: JSString+js_AudioSampleFormatS16Planar = "s16-planar"+js_AudioSampleFormatS32Planar :: JSString+js_AudioSampleFormatS32Planar = "s32-planar"+js_AudioSampleFormatF32Planar :: JSString+js_AudioSampleFormatF32Planar = "f32-planar"++-- | <https://developer.mozilla.org/en-US/docs/Web/API AudioSelectionPreferenceEnum> (screen-capture)+data AudioSelectionPreferenceEnum = AudioSelectionPreferenceEnumPreferred+ deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal AudioSelectionPreferenceEnum where+ pToJSVal x = pToJSVal (case x of+ AudioSelectionPreferenceEnumPreferred -> js_AudioSelectionPreferenceEnumPreferred+ )++instance ToJSVal AudioSelectionPreferenceEnum where+ toJSVal = P.return . pToJSVal++instance PFromJSVal AudioSelectionPreferenceEnum where+ pFromJSVal x = P.maybe (P.error "Unexpected AudioSelectionPreferenceEnum value") P.id (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_AudioSelectionPreferenceEnumPreferred, AudioSelectionPreferenceEnumPreferred)]++instance FromJSVal AudioSelectionPreferenceEnum where+ fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_AudioSelectionPreferenceEnumPreferred, AudioSelectionPreferenceEnumPreferred)]+ fromJSValUnchecked = P.return . pFromJSVal++js_AudioSelectionPreferenceEnumPreferred :: JSString+js_AudioSelectionPreferenceEnumPreferred = "preferred"++-- | <https://developer.mozilla.org/en-US/docs/Web/API AudioSinkType> (webaudio-1.1)+data AudioSinkType = AudioSinkTypeNone+ deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal AudioSinkType where+ pToJSVal x = pToJSVal (case x of+ AudioSinkTypeNone -> js_AudioSinkTypeNone+ )++instance ToJSVal AudioSinkType where+ toJSVal = P.return . pToJSVal++instance PFromJSVal AudioSinkType where+ pFromJSVal x = P.maybe (P.error "Unexpected AudioSinkType value") P.id (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_AudioSinkTypeNone, AudioSinkTypeNone)]++instance FromJSVal AudioSinkType where+ fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_AudioSinkTypeNone, AudioSinkTypeNone)]+ fromJSValUnchecked = P.return . pFromJSVal++js_AudioSinkTypeNone :: JSString+js_AudioSinkTypeNone = "none"++-- | <https://developer.mozilla.org/en-US/docs/Web/API AutoKeyword> (webvtt1)+data AutoKeyword = AutoKeywordAuto+ deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal AutoKeyword where+ pToJSVal x = pToJSVal (case x of+ AutoKeywordAuto -> js_AutoKeywordAuto+ )++instance ToJSVal AutoKeyword where+ toJSVal = P.return . pToJSVal++instance PFromJSVal AutoKeyword where+ pFromJSVal x = P.maybe (P.error "Unexpected AutoKeyword value") P.id (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_AutoKeywordAuto, AutoKeywordAuto)]++instance FromJSVal AutoKeyword where+ fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_AutoKeywordAuto, AutoKeywordAuto)]+ fromJSValUnchecked = P.return . pFromJSVal++js_AutoKeywordAuto :: JSString+js_AutoKeywordAuto = "auto"++-- | <https://developer.mozilla.org/en-US/docs/Web/API AutomationRate> (webaudio-1.1)+data AutomationRate = AutomationRateARate+ | AutomationRateKRate+ deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal AutomationRate where+ pToJSVal x = pToJSVal (case x of+ AutomationRateARate -> js_AutomationRateARate+ AutomationRateKRate -> js_AutomationRateKRate+ )++instance ToJSVal AutomationRate where+ toJSVal = P.return . pToJSVal++instance PFromJSVal AutomationRate where+ pFromJSVal x = P.maybe (P.error "Unexpected AutomationRate value") P.id (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_AutomationRateARate, AutomationRateARate), (js_AutomationRateKRate, AutomationRateKRate)]++instance FromJSVal AutomationRate where+ fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_AutomationRateARate, AutomationRateARate), (js_AutomationRateKRate, AutomationRateKRate)]+ fromJSValUnchecked = P.return . pFromJSVal++js_AutomationRateARate :: JSString+js_AutomationRateARate = "a-rate"+js_AutomationRateKRate :: JSString+js_AutomationRateKRate = "k-rate"++-- | <https://developer.mozilla.org/en-US/docs/Web/API AvcBitstreamFormat> (webcodecs-avc-codec-registration)+data AvcBitstreamFormat = AvcBitstreamFormatAnnexb+ | AvcBitstreamFormatAvc+ deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal AvcBitstreamFormat where+ pToJSVal x = pToJSVal (case x of+ AvcBitstreamFormatAnnexb -> js_AvcBitstreamFormatAnnexb+ AvcBitstreamFormatAvc -> js_AvcBitstreamFormatAvc+ )++instance ToJSVal AvcBitstreamFormat where+ toJSVal = P.return . pToJSVal++instance PFromJSVal AvcBitstreamFormat where+ pFromJSVal x = P.maybe (P.error "Unexpected AvcBitstreamFormat value") P.id (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_AvcBitstreamFormatAnnexb, AvcBitstreamFormatAnnexb), (js_AvcBitstreamFormatAvc, AvcBitstreamFormatAvc)]++instance FromJSVal AvcBitstreamFormat where+ fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_AvcBitstreamFormatAnnexb, AvcBitstreamFormatAnnexb), (js_AvcBitstreamFormatAvc, AvcBitstreamFormatAvc)]+ fromJSValUnchecked = P.return . pFromJSVal++js_AvcBitstreamFormatAnnexb :: JSString+js_AvcBitstreamFormatAnnexb = "annexb"+js_AvcBitstreamFormatAvc :: JSString+js_AvcBitstreamFormatAvc = "avc"++-- | <https://developer.mozilla.org/en-US/docs/Web/API BinaryType> (websockets)+data BinaryType = BinaryTypeBlob+ | BinaryTypeArraybuffer+ deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal BinaryType where+ pToJSVal x = pToJSVal (case x of+ BinaryTypeBlob -> js_BinaryTypeBlob+ BinaryTypeArraybuffer -> js_BinaryTypeArraybuffer+ )++instance ToJSVal BinaryType where+ toJSVal = P.return . pToJSVal++instance PFromJSVal BinaryType where+ pFromJSVal x = P.maybe (P.error "Unexpected BinaryType value") P.id (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_BinaryTypeBlob, BinaryTypeBlob), (js_BinaryTypeArraybuffer, BinaryTypeArraybuffer)]++instance FromJSVal BinaryType where+ fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_BinaryTypeBlob, BinaryTypeBlob), (js_BinaryTypeArraybuffer, BinaryTypeArraybuffer)]+ fromJSValUnchecked = P.return . pFromJSVal++js_BinaryTypeBlob :: JSString+js_BinaryTypeBlob = "blob"+js_BinaryTypeArraybuffer :: JSString+js_BinaryTypeArraybuffer = "arraybuffer"++-- | <https://developer.mozilla.org/en-US/docs/Web/API BiquadFilterType> (webaudio-1.1)+data BiquadFilterType = BiquadFilterTypeLowpass+ | BiquadFilterTypeHighpass+ | BiquadFilterTypeBandpass+ | BiquadFilterTypeLowshelf+ | BiquadFilterTypeHighshelf+ | BiquadFilterTypePeaking+ | BiquadFilterTypeNotch+ | BiquadFilterTypeAllpass+ deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal BiquadFilterType where+ pToJSVal x = pToJSVal (case x of+ BiquadFilterTypeLowpass -> js_BiquadFilterTypeLowpass+ BiquadFilterTypeHighpass -> js_BiquadFilterTypeHighpass+ BiquadFilterTypeBandpass -> js_BiquadFilterTypeBandpass+ BiquadFilterTypeLowshelf -> js_BiquadFilterTypeLowshelf+ BiquadFilterTypeHighshelf -> js_BiquadFilterTypeHighshelf+ BiquadFilterTypePeaking -> js_BiquadFilterTypePeaking+ BiquadFilterTypeNotch -> js_BiquadFilterTypeNotch+ BiquadFilterTypeAllpass -> js_BiquadFilterTypeAllpass+ )++instance ToJSVal BiquadFilterType where+ toJSVal = P.return . pToJSVal++instance PFromJSVal BiquadFilterType where+ pFromJSVal x = P.maybe (P.error "Unexpected BiquadFilterType value") P.id (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_BiquadFilterTypeLowpass, BiquadFilterTypeLowpass), (js_BiquadFilterTypeHighpass, BiquadFilterTypeHighpass), (js_BiquadFilterTypeBandpass, BiquadFilterTypeBandpass), (js_BiquadFilterTypeLowshelf, BiquadFilterTypeLowshelf), (js_BiquadFilterTypeHighshelf, BiquadFilterTypeHighshelf), (js_BiquadFilterTypePeaking, BiquadFilterTypePeaking), (js_BiquadFilterTypeNotch, BiquadFilterTypeNotch), (js_BiquadFilterTypeAllpass, BiquadFilterTypeAllpass)]++instance FromJSVal BiquadFilterType where+ fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_BiquadFilterTypeLowpass, BiquadFilterTypeLowpass), (js_BiquadFilterTypeHighpass, BiquadFilterTypeHighpass), (js_BiquadFilterTypeBandpass, BiquadFilterTypeBandpass), (js_BiquadFilterTypeLowshelf, BiquadFilterTypeLowshelf), (js_BiquadFilterTypeHighshelf, BiquadFilterTypeHighshelf), (js_BiquadFilterTypePeaking, BiquadFilterTypePeaking), (js_BiquadFilterTypeNotch, BiquadFilterTypeNotch), (js_BiquadFilterTypeAllpass, BiquadFilterTypeAllpass)]+ fromJSValUnchecked = P.return . pFromJSVal++js_BiquadFilterTypeLowpass :: JSString+js_BiquadFilterTypeLowpass = "lowpass"+js_BiquadFilterTypeHighpass :: JSString+js_BiquadFilterTypeHighpass = "highpass"+js_BiquadFilterTypeBandpass :: JSString+js_BiquadFilterTypeBandpass = "bandpass"+js_BiquadFilterTypeLowshelf :: JSString+js_BiquadFilterTypeLowshelf = "lowshelf"+js_BiquadFilterTypeHighshelf :: JSString+js_BiquadFilterTypeHighshelf = "highshelf"+js_BiquadFilterTypePeaking :: JSString+js_BiquadFilterTypePeaking = "peaking"+js_BiquadFilterTypeNotch :: JSString+js_BiquadFilterTypeNotch = "notch"+js_BiquadFilterTypeAllpass :: JSString+js_BiquadFilterTypeAllpass = "allpass"++-- | <https://developer.mozilla.org/en-US/docs/Web/API BitrateMode> (mediastream-recording)+data BitrateMode = BitrateModeConstant+ | BitrateModeVariable+ deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal BitrateMode where+ pToJSVal x = pToJSVal (case x of+ BitrateModeConstant -> js_BitrateModeConstant+ BitrateModeVariable -> js_BitrateModeVariable+ )++instance ToJSVal BitrateMode where+ toJSVal = P.return . pToJSVal++instance PFromJSVal BitrateMode where+ pFromJSVal x = P.maybe (P.error "Unexpected BitrateMode value") P.id (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_BitrateModeConstant, BitrateModeConstant), (js_BitrateModeVariable, BitrateModeVariable)]++instance FromJSVal BitrateMode where+ fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_BitrateModeConstant, BitrateModeConstant), (js_BitrateModeVariable, BitrateModeVariable)]+ fromJSValUnchecked = P.return . pFromJSVal++js_BitrateModeConstant :: JSString+js_BitrateModeConstant = "constant"+js_BitrateModeVariable :: JSString+js_BitrateModeVariable = "variable"++-- | <https://developer.mozilla.org/en-US/docs/Web/API CSSMathOperator> (css-typed-om-1)+data CSSMathOperator = CSSMathOperatorSum+ | CSSMathOperatorProduct+ | CSSMathOperatorNegate+ | CSSMathOperatorInvert+ | CSSMathOperatorMin+ | CSSMathOperatorMax+ | CSSMathOperatorClamp+ deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal CSSMathOperator where+ pToJSVal x = pToJSVal (case x of+ CSSMathOperatorSum -> js_CSSMathOperatorSum+ CSSMathOperatorProduct -> js_CSSMathOperatorProduct+ CSSMathOperatorNegate -> js_CSSMathOperatorNegate+ CSSMathOperatorInvert -> js_CSSMathOperatorInvert+ CSSMathOperatorMin -> js_CSSMathOperatorMin+ CSSMathOperatorMax -> js_CSSMathOperatorMax+ CSSMathOperatorClamp -> js_CSSMathOperatorClamp+ )++instance ToJSVal CSSMathOperator where+ toJSVal = P.return . pToJSVal++instance PFromJSVal CSSMathOperator where+ pFromJSVal x = P.maybe (P.error "Unexpected CSSMathOperator value") P.id (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_CSSMathOperatorSum, CSSMathOperatorSum), (js_CSSMathOperatorProduct, CSSMathOperatorProduct), (js_CSSMathOperatorNegate, CSSMathOperatorNegate), (js_CSSMathOperatorInvert, CSSMathOperatorInvert), (js_CSSMathOperatorMin, CSSMathOperatorMin), (js_CSSMathOperatorMax, CSSMathOperatorMax), (js_CSSMathOperatorClamp, CSSMathOperatorClamp)]++instance FromJSVal CSSMathOperator where+ fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_CSSMathOperatorSum, CSSMathOperatorSum), (js_CSSMathOperatorProduct, CSSMathOperatorProduct), (js_CSSMathOperatorNegate, CSSMathOperatorNegate), (js_CSSMathOperatorInvert, CSSMathOperatorInvert), (js_CSSMathOperatorMin, CSSMathOperatorMin), (js_CSSMathOperatorMax, CSSMathOperatorMax), (js_CSSMathOperatorClamp, CSSMathOperatorClamp)]+ fromJSValUnchecked = P.return . pFromJSVal++js_CSSMathOperatorSum :: JSString+js_CSSMathOperatorSum = "sum"+js_CSSMathOperatorProduct :: JSString+js_CSSMathOperatorProduct = "product"+js_CSSMathOperatorNegate :: JSString+js_CSSMathOperatorNegate = "negate"+js_CSSMathOperatorInvert :: JSString+js_CSSMathOperatorInvert = "invert"+js_CSSMathOperatorMin :: JSString+js_CSSMathOperatorMin = "min"+js_CSSMathOperatorMax :: JSString+js_CSSMathOperatorMax = "max"+js_CSSMathOperatorClamp :: JSString+js_CSSMathOperatorClamp = "clamp"++-- | <https://developer.mozilla.org/en-US/docs/Web/API CSSNumericBaseType> (css-typed-om-1)+data CSSNumericBaseType = CSSNumericBaseTypeLength+ | CSSNumericBaseTypeAngle+ | CSSNumericBaseTypeTime+ | CSSNumericBaseTypeFrequency+ | CSSNumericBaseTypeResolution+ | CSSNumericBaseTypeFlex+ | CSSNumericBaseTypePercent+ deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal CSSNumericBaseType where+ pToJSVal x = pToJSVal (case x of+ CSSNumericBaseTypeLength -> js_CSSNumericBaseTypeLength+ CSSNumericBaseTypeAngle -> js_CSSNumericBaseTypeAngle+ CSSNumericBaseTypeTime -> js_CSSNumericBaseTypeTime+ CSSNumericBaseTypeFrequency -> js_CSSNumericBaseTypeFrequency+ CSSNumericBaseTypeResolution -> js_CSSNumericBaseTypeResolution+ CSSNumericBaseTypeFlex -> js_CSSNumericBaseTypeFlex+ CSSNumericBaseTypePercent -> js_CSSNumericBaseTypePercent+ )++instance ToJSVal CSSNumericBaseType where+ toJSVal = P.return . pToJSVal++instance PFromJSVal CSSNumericBaseType where+ pFromJSVal x = P.maybe (P.error "Unexpected CSSNumericBaseType value") P.id (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_CSSNumericBaseTypeLength, CSSNumericBaseTypeLength), (js_CSSNumericBaseTypeAngle, CSSNumericBaseTypeAngle), (js_CSSNumericBaseTypeTime, CSSNumericBaseTypeTime), (js_CSSNumericBaseTypeFrequency, CSSNumericBaseTypeFrequency), (js_CSSNumericBaseTypeResolution, CSSNumericBaseTypeResolution), (js_CSSNumericBaseTypeFlex, CSSNumericBaseTypeFlex), (js_CSSNumericBaseTypePercent, CSSNumericBaseTypePercent)]++instance FromJSVal CSSNumericBaseType where+ fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_CSSNumericBaseTypeLength, CSSNumericBaseTypeLength), (js_CSSNumericBaseTypeAngle, CSSNumericBaseTypeAngle), (js_CSSNumericBaseTypeTime, CSSNumericBaseTypeTime), (js_CSSNumericBaseTypeFrequency, CSSNumericBaseTypeFrequency), (js_CSSNumericBaseTypeResolution, CSSNumericBaseTypeResolution), (js_CSSNumericBaseTypeFlex, CSSNumericBaseTypeFlex), (js_CSSNumericBaseTypePercent, CSSNumericBaseTypePercent)]+ fromJSValUnchecked = P.return . pFromJSVal++js_CSSNumericBaseTypeLength :: JSString+js_CSSNumericBaseTypeLength = "length"+js_CSSNumericBaseTypeAngle :: JSString+js_CSSNumericBaseTypeAngle = "angle"+js_CSSNumericBaseTypeTime :: JSString+js_CSSNumericBaseTypeTime = "time"+js_CSSNumericBaseTypeFrequency :: JSString+js_CSSNumericBaseTypeFrequency = "frequency"+js_CSSNumericBaseTypeResolution :: JSString+js_CSSNumericBaseTypeResolution = "resolution"+js_CSSNumericBaseTypeFlex :: JSString+js_CSSNumericBaseTypeFlex = "flex"+js_CSSNumericBaseTypePercent :: JSString+js_CSSNumericBaseTypePercent = "percent"++-- | <https://developer.mozilla.org/en-US/docs/Web/API CanPlayTypeResult> (html)+data CanPlayTypeResult = CanPlayTypeResult+ | CanPlayTypeResultMaybe+ | CanPlayTypeResultProbably+ deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal CanPlayTypeResult where+ pToJSVal x = pToJSVal (case x of+ CanPlayTypeResult -> js_CanPlayTypeResult+ CanPlayTypeResultMaybe -> js_CanPlayTypeResultMaybe+ CanPlayTypeResultProbably -> js_CanPlayTypeResultProbably+ )++instance ToJSVal CanPlayTypeResult where+ toJSVal = P.return . pToJSVal++instance PFromJSVal CanPlayTypeResult where+ pFromJSVal x = P.maybe (P.error "Unexpected CanPlayTypeResult value") P.id (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_CanPlayTypeResult, CanPlayTypeResult), (js_CanPlayTypeResultMaybe, CanPlayTypeResultMaybe), (js_CanPlayTypeResultProbably, CanPlayTypeResultProbably)]++instance FromJSVal CanPlayTypeResult where+ fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_CanPlayTypeResult, CanPlayTypeResult), (js_CanPlayTypeResultMaybe, CanPlayTypeResultMaybe), (js_CanPlayTypeResultProbably, CanPlayTypeResultProbably)]+ fromJSValUnchecked = P.return . pFromJSVal++js_CanPlayTypeResult :: JSString+js_CanPlayTypeResult = ""+js_CanPlayTypeResultMaybe :: JSString+js_CanPlayTypeResultMaybe = "maybe"+js_CanPlayTypeResultProbably :: JSString+js_CanPlayTypeResultProbably = "probably"++-- | <https://developer.mozilla.org/en-US/docs/Web/API CanvasColorType> (html)+data CanvasColorType = CanvasColorTypeUnorm8+ | CanvasColorTypeFloat16+ deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal CanvasColorType where+ pToJSVal x = pToJSVal (case x of+ CanvasColorTypeUnorm8 -> js_CanvasColorTypeUnorm8+ CanvasColorTypeFloat16 -> js_CanvasColorTypeFloat16+ )++instance ToJSVal CanvasColorType where+ toJSVal = P.return . pToJSVal++instance PFromJSVal CanvasColorType where+ pFromJSVal x = P.maybe (P.error "Unexpected CanvasColorType value") P.id (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_CanvasColorTypeUnorm8, CanvasColorTypeUnorm8), (js_CanvasColorTypeFloat16, CanvasColorTypeFloat16)]++instance FromJSVal CanvasColorType where+ fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_CanvasColorTypeUnorm8, CanvasColorTypeUnorm8), (js_CanvasColorTypeFloat16, CanvasColorTypeFloat16)]+ fromJSValUnchecked = P.return . pFromJSVal++js_CanvasColorTypeUnorm8 :: JSString+js_CanvasColorTypeUnorm8 = "unorm8"+js_CanvasColorTypeFloat16 :: JSString+js_CanvasColorTypeFloat16 = "float16"++-- | <https://developer.mozilla.org/en-US/docs/Web/API CanvasDirection> (html)+data CanvasDirection = CanvasDirectionLtr+ | CanvasDirectionRtl+ | CanvasDirectionInherit+ deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal CanvasDirection where+ pToJSVal x = pToJSVal (case x of+ CanvasDirectionLtr -> js_CanvasDirectionLtr+ CanvasDirectionRtl -> js_CanvasDirectionRtl+ CanvasDirectionInherit -> js_CanvasDirectionInherit+ )++instance ToJSVal CanvasDirection where+ toJSVal = P.return . pToJSVal++instance PFromJSVal CanvasDirection where+ pFromJSVal x = P.maybe (P.error "Unexpected CanvasDirection value") P.id (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_CanvasDirectionLtr, CanvasDirectionLtr), (js_CanvasDirectionRtl, CanvasDirectionRtl), (js_CanvasDirectionInherit, CanvasDirectionInherit)]++instance FromJSVal CanvasDirection where+ fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_CanvasDirectionLtr, CanvasDirectionLtr), (js_CanvasDirectionRtl, CanvasDirectionRtl), (js_CanvasDirectionInherit, CanvasDirectionInherit)]+ fromJSValUnchecked = P.return . pFromJSVal++js_CanvasDirectionLtr :: JSString+js_CanvasDirectionLtr = "ltr"+js_CanvasDirectionRtl :: JSString+js_CanvasDirectionRtl = "rtl"+js_CanvasDirectionInherit :: JSString+js_CanvasDirectionInherit = "inherit"++-- | <https://developer.mozilla.org/en-US/docs/Web/API CanvasFillRule> (html)+data CanvasFillRule = CanvasFillRuleNonzero+ | CanvasFillRuleEvenodd+ deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal CanvasFillRule where+ pToJSVal x = pToJSVal (case x of+ CanvasFillRuleNonzero -> js_CanvasFillRuleNonzero+ CanvasFillRuleEvenodd -> js_CanvasFillRuleEvenodd+ )++instance ToJSVal CanvasFillRule where+ toJSVal = P.return . pToJSVal++instance PFromJSVal CanvasFillRule where+ pFromJSVal x = P.maybe (P.error "Unexpected CanvasFillRule value") P.id (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_CanvasFillRuleNonzero, CanvasFillRuleNonzero), (js_CanvasFillRuleEvenodd, CanvasFillRuleEvenodd)]++instance FromJSVal CanvasFillRule where+ fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_CanvasFillRuleNonzero, CanvasFillRuleNonzero), (js_CanvasFillRuleEvenodd, CanvasFillRuleEvenodd)]+ fromJSValUnchecked = P.return . pFromJSVal++js_CanvasFillRuleNonzero :: JSString+js_CanvasFillRuleNonzero = "nonzero"+js_CanvasFillRuleEvenodd :: JSString+js_CanvasFillRuleEvenodd = "evenodd"++-- | <https://developer.mozilla.org/en-US/docs/Web/API CanvasFontKerning> (html)+data CanvasFontKerning = CanvasFontKerningAuto+ | CanvasFontKerningNormal+ | CanvasFontKerningNone+ deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal CanvasFontKerning where+ pToJSVal x = pToJSVal (case x of+ CanvasFontKerningAuto -> js_CanvasFontKerningAuto+ CanvasFontKerningNormal -> js_CanvasFontKerningNormal+ CanvasFontKerningNone -> js_CanvasFontKerningNone+ )++instance ToJSVal CanvasFontKerning where+ toJSVal = P.return . pToJSVal++instance PFromJSVal CanvasFontKerning where+ pFromJSVal x = P.maybe (P.error "Unexpected CanvasFontKerning value") P.id (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_CanvasFontKerningAuto, CanvasFontKerningAuto), (js_CanvasFontKerningNormal, CanvasFontKerningNormal), (js_CanvasFontKerningNone, CanvasFontKerningNone)]++instance FromJSVal CanvasFontKerning where+ fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_CanvasFontKerningAuto, CanvasFontKerningAuto), (js_CanvasFontKerningNormal, CanvasFontKerningNormal), (js_CanvasFontKerningNone, CanvasFontKerningNone)]+ fromJSValUnchecked = P.return . pFromJSVal++js_CanvasFontKerningAuto :: JSString+js_CanvasFontKerningAuto = "auto"+js_CanvasFontKerningNormal :: JSString+js_CanvasFontKerningNormal = "normal"+js_CanvasFontKerningNone :: JSString+js_CanvasFontKerningNone = "none"++-- | <https://developer.mozilla.org/en-US/docs/Web/API CanvasFontStretch> (html)+data CanvasFontStretch = CanvasFontStretchUltraCondensed+ | CanvasFontStretchExtraCondensed+ | CanvasFontStretchCondensed+ | CanvasFontStretchSemiCondensed+ | CanvasFontStretchNormal+ | CanvasFontStretchSemiExpanded+ | CanvasFontStretchExpanded+ | CanvasFontStretchExtraExpanded+ | CanvasFontStretchUltraExpanded+ deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal CanvasFontStretch where+ pToJSVal x = pToJSVal (case x of+ CanvasFontStretchUltraCondensed -> js_CanvasFontStretchUltraCondensed+ CanvasFontStretchExtraCondensed -> js_CanvasFontStretchExtraCondensed+ CanvasFontStretchCondensed -> js_CanvasFontStretchCondensed+ CanvasFontStretchSemiCondensed -> js_CanvasFontStretchSemiCondensed+ CanvasFontStretchNormal -> js_CanvasFontStretchNormal+ CanvasFontStretchSemiExpanded -> js_CanvasFontStretchSemiExpanded+ CanvasFontStretchExpanded -> js_CanvasFontStretchExpanded+ CanvasFontStretchExtraExpanded -> js_CanvasFontStretchExtraExpanded+ CanvasFontStretchUltraExpanded -> js_CanvasFontStretchUltraExpanded+ )++instance ToJSVal CanvasFontStretch where+ toJSVal = P.return . pToJSVal++instance PFromJSVal CanvasFontStretch where+ pFromJSVal x = P.maybe (P.error "Unexpected CanvasFontStretch value") P.id (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_CanvasFontStretchUltraCondensed, CanvasFontStretchUltraCondensed), (js_CanvasFontStretchExtraCondensed, CanvasFontStretchExtraCondensed), (js_CanvasFontStretchCondensed, CanvasFontStretchCondensed), (js_CanvasFontStretchSemiCondensed, CanvasFontStretchSemiCondensed), (js_CanvasFontStretchNormal, CanvasFontStretchNormal), (js_CanvasFontStretchSemiExpanded, CanvasFontStretchSemiExpanded), (js_CanvasFontStretchExpanded, CanvasFontStretchExpanded), (js_CanvasFontStretchExtraExpanded, CanvasFontStretchExtraExpanded), (js_CanvasFontStretchUltraExpanded, CanvasFontStretchUltraExpanded)]++instance FromJSVal CanvasFontStretch where+ fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_CanvasFontStretchUltraCondensed, CanvasFontStretchUltraCondensed), (js_CanvasFontStretchExtraCondensed, CanvasFontStretchExtraCondensed), (js_CanvasFontStretchCondensed, CanvasFontStretchCondensed), (js_CanvasFontStretchSemiCondensed, CanvasFontStretchSemiCondensed), (js_CanvasFontStretchNormal, CanvasFontStretchNormal), (js_CanvasFontStretchSemiExpanded, CanvasFontStretchSemiExpanded), (js_CanvasFontStretchExpanded, CanvasFontStretchExpanded), (js_CanvasFontStretchExtraExpanded, CanvasFontStretchExtraExpanded), (js_CanvasFontStretchUltraExpanded, CanvasFontStretchUltraExpanded)]+ fromJSValUnchecked = P.return . pFromJSVal++js_CanvasFontStretchUltraCondensed :: JSString+js_CanvasFontStretchUltraCondensed = "ultra-condensed"+js_CanvasFontStretchExtraCondensed :: JSString+js_CanvasFontStretchExtraCondensed = "extra-condensed"+js_CanvasFontStretchCondensed :: JSString+js_CanvasFontStretchCondensed = "condensed"+js_CanvasFontStretchSemiCondensed :: JSString+js_CanvasFontStretchSemiCondensed = "semi-condensed"+js_CanvasFontStretchNormal :: JSString+js_CanvasFontStretchNormal = "normal"+js_CanvasFontStretchSemiExpanded :: JSString+js_CanvasFontStretchSemiExpanded = "semi-expanded"+js_CanvasFontStretchExpanded :: JSString+js_CanvasFontStretchExpanded = "expanded"+js_CanvasFontStretchExtraExpanded :: JSString+js_CanvasFontStretchExtraExpanded = "extra-expanded"+js_CanvasFontStretchUltraExpanded :: JSString+js_CanvasFontStretchUltraExpanded = "ultra-expanded"++-- | <https://developer.mozilla.org/en-US/docs/Web/API CanvasFontVariantCaps> (html)+data CanvasFontVariantCaps = CanvasFontVariantCapsNormal+ | CanvasFontVariantCapsSmallCaps+ | CanvasFontVariantCapsAllSmallCaps+ | CanvasFontVariantCapsPetiteCaps+ | CanvasFontVariantCapsAllPetiteCaps+ | CanvasFontVariantCapsUnicase+ | CanvasFontVariantCapsTitlingCaps+ deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal CanvasFontVariantCaps where+ pToJSVal x = pToJSVal (case x of+ CanvasFontVariantCapsNormal -> js_CanvasFontVariantCapsNormal+ CanvasFontVariantCapsSmallCaps -> js_CanvasFontVariantCapsSmallCaps+ CanvasFontVariantCapsAllSmallCaps -> js_CanvasFontVariantCapsAllSmallCaps+ CanvasFontVariantCapsPetiteCaps -> js_CanvasFontVariantCapsPetiteCaps+ CanvasFontVariantCapsAllPetiteCaps -> js_CanvasFontVariantCapsAllPetiteCaps+ CanvasFontVariantCapsUnicase -> js_CanvasFontVariantCapsUnicase+ CanvasFontVariantCapsTitlingCaps -> js_CanvasFontVariantCapsTitlingCaps+ )++instance ToJSVal CanvasFontVariantCaps where+ toJSVal = P.return . pToJSVal++instance PFromJSVal CanvasFontVariantCaps where+ pFromJSVal x = P.maybe (P.error "Unexpected CanvasFontVariantCaps value") P.id (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_CanvasFontVariantCapsNormal, CanvasFontVariantCapsNormal), (js_CanvasFontVariantCapsSmallCaps, CanvasFontVariantCapsSmallCaps), (js_CanvasFontVariantCapsAllSmallCaps, CanvasFontVariantCapsAllSmallCaps), (js_CanvasFontVariantCapsPetiteCaps, CanvasFontVariantCapsPetiteCaps), (js_CanvasFontVariantCapsAllPetiteCaps, CanvasFontVariantCapsAllPetiteCaps), (js_CanvasFontVariantCapsUnicase, CanvasFontVariantCapsUnicase), (js_CanvasFontVariantCapsTitlingCaps, CanvasFontVariantCapsTitlingCaps)]++instance FromJSVal CanvasFontVariantCaps where+ fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_CanvasFontVariantCapsNormal, CanvasFontVariantCapsNormal), (js_CanvasFontVariantCapsSmallCaps, CanvasFontVariantCapsSmallCaps), (js_CanvasFontVariantCapsAllSmallCaps, CanvasFontVariantCapsAllSmallCaps), (js_CanvasFontVariantCapsPetiteCaps, CanvasFontVariantCapsPetiteCaps), (js_CanvasFontVariantCapsAllPetiteCaps, CanvasFontVariantCapsAllPetiteCaps), (js_CanvasFontVariantCapsUnicase, CanvasFontVariantCapsUnicase), (js_CanvasFontVariantCapsTitlingCaps, CanvasFontVariantCapsTitlingCaps)]+ fromJSValUnchecked = P.return . pFromJSVal++js_CanvasFontVariantCapsNormal :: JSString+js_CanvasFontVariantCapsNormal = "normal"+js_CanvasFontVariantCapsSmallCaps :: JSString+js_CanvasFontVariantCapsSmallCaps = "small-caps"+js_CanvasFontVariantCapsAllSmallCaps :: JSString+js_CanvasFontVariantCapsAllSmallCaps = "all-small-caps"+js_CanvasFontVariantCapsPetiteCaps :: JSString+js_CanvasFontVariantCapsPetiteCaps = "petite-caps"+js_CanvasFontVariantCapsAllPetiteCaps :: JSString+js_CanvasFontVariantCapsAllPetiteCaps = "all-petite-caps"+js_CanvasFontVariantCapsUnicase :: JSString+js_CanvasFontVariantCapsUnicase = "unicase"+js_CanvasFontVariantCapsTitlingCaps :: JSString+js_CanvasFontVariantCapsTitlingCaps = "titling-caps"++-- | <https://developer.mozilla.org/en-US/docs/Web/API CanvasLineCap> (html)+data CanvasLineCap = CanvasLineCapButt+ | CanvasLineCapRound+ | CanvasLineCapSquare+ deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal CanvasLineCap where+ pToJSVal x = pToJSVal (case x of+ CanvasLineCapButt -> js_CanvasLineCapButt+ CanvasLineCapRound -> js_CanvasLineCapRound+ CanvasLineCapSquare -> js_CanvasLineCapSquare+ )++instance ToJSVal CanvasLineCap where+ toJSVal = P.return . pToJSVal++instance PFromJSVal CanvasLineCap where+ pFromJSVal x = P.maybe (P.error "Unexpected CanvasLineCap value") P.id (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_CanvasLineCapButt, CanvasLineCapButt), (js_CanvasLineCapRound, CanvasLineCapRound), (js_CanvasLineCapSquare, CanvasLineCapSquare)]++instance FromJSVal CanvasLineCap where+ fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_CanvasLineCapButt, CanvasLineCapButt), (js_CanvasLineCapRound, CanvasLineCapRound), (js_CanvasLineCapSquare, CanvasLineCapSquare)]+ fromJSValUnchecked = P.return . pFromJSVal++js_CanvasLineCapButt :: JSString+js_CanvasLineCapButt = "butt"+js_CanvasLineCapRound :: JSString+js_CanvasLineCapRound = "round"+js_CanvasLineCapSquare :: JSString+js_CanvasLineCapSquare = "square"++-- | <https://developer.mozilla.org/en-US/docs/Web/API CanvasLineJoin> (html)+data CanvasLineJoin = CanvasLineJoinRound+ | CanvasLineJoinBevel+ | CanvasLineJoinMiter+ deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal CanvasLineJoin where+ pToJSVal x = pToJSVal (case x of+ CanvasLineJoinRound -> js_CanvasLineJoinRound+ CanvasLineJoinBevel -> js_CanvasLineJoinBevel+ CanvasLineJoinMiter -> js_CanvasLineJoinMiter+ )++instance ToJSVal CanvasLineJoin where+ toJSVal = P.return . pToJSVal++instance PFromJSVal CanvasLineJoin where+ pFromJSVal x = P.maybe (P.error "Unexpected CanvasLineJoin value") P.id (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_CanvasLineJoinRound, CanvasLineJoinRound), (js_CanvasLineJoinBevel, CanvasLineJoinBevel), (js_CanvasLineJoinMiter, CanvasLineJoinMiter)]++instance FromJSVal CanvasLineJoin where+ fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_CanvasLineJoinRound, CanvasLineJoinRound), (js_CanvasLineJoinBevel, CanvasLineJoinBevel), (js_CanvasLineJoinMiter, CanvasLineJoinMiter)]+ fromJSValUnchecked = P.return . pFromJSVal++js_CanvasLineJoinRound :: JSString+js_CanvasLineJoinRound = "round"+js_CanvasLineJoinBevel :: JSString+js_CanvasLineJoinBevel = "bevel"+js_CanvasLineJoinMiter :: JSString+js_CanvasLineJoinMiter = "miter"++-- | <https://developer.mozilla.org/en-US/docs/Web/API CanvasTextAlign> (html)+data CanvasTextAlign = CanvasTextAlignStart+ | CanvasTextAlignEnd+ | CanvasTextAlignLeft+ | CanvasTextAlignRight+ | CanvasTextAlignCenter+ deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal CanvasTextAlign where+ pToJSVal x = pToJSVal (case x of+ CanvasTextAlignStart -> js_CanvasTextAlignStart+ CanvasTextAlignEnd -> js_CanvasTextAlignEnd+ CanvasTextAlignLeft -> js_CanvasTextAlignLeft+ CanvasTextAlignRight -> js_CanvasTextAlignRight+ CanvasTextAlignCenter -> js_CanvasTextAlignCenter+ )++instance ToJSVal CanvasTextAlign where+ toJSVal = P.return . pToJSVal++instance PFromJSVal CanvasTextAlign where+ pFromJSVal x = P.maybe (P.error "Unexpected CanvasTextAlign value") P.id (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_CanvasTextAlignStart, CanvasTextAlignStart), (js_CanvasTextAlignEnd, CanvasTextAlignEnd), (js_CanvasTextAlignLeft, CanvasTextAlignLeft), (js_CanvasTextAlignRight, CanvasTextAlignRight), (js_CanvasTextAlignCenter, CanvasTextAlignCenter)]++instance FromJSVal CanvasTextAlign where+ fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_CanvasTextAlignStart, CanvasTextAlignStart), (js_CanvasTextAlignEnd, CanvasTextAlignEnd), (js_CanvasTextAlignLeft, CanvasTextAlignLeft), (js_CanvasTextAlignRight, CanvasTextAlignRight), (js_CanvasTextAlignCenter, CanvasTextAlignCenter)]+ fromJSValUnchecked = P.return . pFromJSVal++js_CanvasTextAlignStart :: JSString+js_CanvasTextAlignStart = "start"+js_CanvasTextAlignEnd :: JSString+js_CanvasTextAlignEnd = "end"+js_CanvasTextAlignLeft :: JSString+js_CanvasTextAlignLeft = "left"+js_CanvasTextAlignRight :: JSString+js_CanvasTextAlignRight = "right"+js_CanvasTextAlignCenter :: JSString+js_CanvasTextAlignCenter = "center"++-- | <https://developer.mozilla.org/en-US/docs/Web/API CanvasTextBaseline> (html)+data CanvasTextBaseline = CanvasTextBaselineTop+ | CanvasTextBaselineHanging+ | CanvasTextBaselineMiddle+ | CanvasTextBaselineAlphabetic+ | CanvasTextBaselineIdeographic+ | CanvasTextBaselineBottom+ deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal CanvasTextBaseline where+ pToJSVal x = pToJSVal (case x of+ CanvasTextBaselineTop -> js_CanvasTextBaselineTop+ CanvasTextBaselineHanging -> js_CanvasTextBaselineHanging+ CanvasTextBaselineMiddle -> js_CanvasTextBaselineMiddle+ CanvasTextBaselineAlphabetic -> js_CanvasTextBaselineAlphabetic+ CanvasTextBaselineIdeographic -> js_CanvasTextBaselineIdeographic+ CanvasTextBaselineBottom -> js_CanvasTextBaselineBottom+ )++instance ToJSVal CanvasTextBaseline where+ toJSVal = P.return . pToJSVal++instance PFromJSVal CanvasTextBaseline where+ pFromJSVal x = P.maybe (P.error "Unexpected CanvasTextBaseline value") P.id (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_CanvasTextBaselineTop, CanvasTextBaselineTop), (js_CanvasTextBaselineHanging, CanvasTextBaselineHanging), (js_CanvasTextBaselineMiddle, CanvasTextBaselineMiddle), (js_CanvasTextBaselineAlphabetic, CanvasTextBaselineAlphabetic), (js_CanvasTextBaselineIdeographic, CanvasTextBaselineIdeographic), (js_CanvasTextBaselineBottom, CanvasTextBaselineBottom)]++instance FromJSVal CanvasTextBaseline where+ fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_CanvasTextBaselineTop, CanvasTextBaselineTop), (js_CanvasTextBaselineHanging, CanvasTextBaselineHanging), (js_CanvasTextBaselineMiddle, CanvasTextBaselineMiddle), (js_CanvasTextBaselineAlphabetic, CanvasTextBaselineAlphabetic), (js_CanvasTextBaselineIdeographic, CanvasTextBaselineIdeographic), (js_CanvasTextBaselineBottom, CanvasTextBaselineBottom)]+ fromJSValUnchecked = P.return . pFromJSVal++js_CanvasTextBaselineTop :: JSString+js_CanvasTextBaselineTop = "top"+js_CanvasTextBaselineHanging :: JSString+js_CanvasTextBaselineHanging = "hanging"+js_CanvasTextBaselineMiddle :: JSString+js_CanvasTextBaselineMiddle = "middle"+js_CanvasTextBaselineAlphabetic :: JSString+js_CanvasTextBaselineAlphabetic = "alphabetic"+js_CanvasTextBaselineIdeographic :: JSString+js_CanvasTextBaselineIdeographic = "ideographic"+js_CanvasTextBaselineBottom :: JSString+js_CanvasTextBaselineBottom = "bottom"++-- | <https://developer.mozilla.org/en-US/docs/Web/API CanvasTextRendering> (html)+data CanvasTextRendering = CanvasTextRenderingAuto+ | CanvasTextRenderingOptimizeSpeed+ | CanvasTextRenderingOptimizeLegibility+ | CanvasTextRenderingGeometricPrecision+ deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal CanvasTextRendering where+ pToJSVal x = pToJSVal (case x of+ CanvasTextRenderingAuto -> js_CanvasTextRenderingAuto+ CanvasTextRenderingOptimizeSpeed -> js_CanvasTextRenderingOptimizeSpeed+ CanvasTextRenderingOptimizeLegibility -> js_CanvasTextRenderingOptimizeLegibility+ CanvasTextRenderingGeometricPrecision -> js_CanvasTextRenderingGeometricPrecision+ )++instance ToJSVal CanvasTextRendering where+ toJSVal = P.return . pToJSVal++instance PFromJSVal CanvasTextRendering where+ pFromJSVal x = P.maybe (P.error "Unexpected CanvasTextRendering value") P.id (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_CanvasTextRenderingAuto, CanvasTextRenderingAuto), (js_CanvasTextRenderingOptimizeSpeed, CanvasTextRenderingOptimizeSpeed), (js_CanvasTextRenderingOptimizeLegibility, CanvasTextRenderingOptimizeLegibility), (js_CanvasTextRenderingGeometricPrecision, CanvasTextRenderingGeometricPrecision)]++instance FromJSVal CanvasTextRendering where+ fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_CanvasTextRenderingAuto, CanvasTextRenderingAuto), (js_CanvasTextRenderingOptimizeSpeed, CanvasTextRenderingOptimizeSpeed), (js_CanvasTextRenderingOptimizeLegibility, CanvasTextRenderingOptimizeLegibility), (js_CanvasTextRenderingGeometricPrecision, CanvasTextRenderingGeometricPrecision)]+ fromJSValUnchecked = P.return . pFromJSVal++js_CanvasTextRenderingAuto :: JSString+js_CanvasTextRenderingAuto = "auto"+js_CanvasTextRenderingOptimizeSpeed :: JSString+js_CanvasTextRenderingOptimizeSpeed = "optimizeSpeed"+js_CanvasTextRenderingOptimizeLegibility :: JSString+js_CanvasTextRenderingOptimizeLegibility = "optimizeLegibility"+js_CanvasTextRenderingGeometricPrecision :: JSString+js_CanvasTextRenderingGeometricPrecision = "geometricPrecision"++-- | <https://developer.mozilla.org/en-US/docs/Web/API ChannelCountMode> (webaudio-1.1)+data ChannelCountMode = ChannelCountModeMax+ | ChannelCountModeClampedMax+ | ChannelCountModeExplicit+ deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal ChannelCountMode where+ pToJSVal x = pToJSVal (case x of+ ChannelCountModeMax -> js_ChannelCountModeMax+ ChannelCountModeClampedMax -> js_ChannelCountModeClampedMax+ ChannelCountModeExplicit -> js_ChannelCountModeExplicit+ )++instance ToJSVal ChannelCountMode where+ toJSVal = P.return . pToJSVal++instance PFromJSVal ChannelCountMode where+ pFromJSVal x = P.maybe (P.error "Unexpected ChannelCountMode value") P.id (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_ChannelCountModeMax, ChannelCountModeMax), (js_ChannelCountModeClampedMax, ChannelCountModeClampedMax), (js_ChannelCountModeExplicit, ChannelCountModeExplicit)]++instance FromJSVal ChannelCountMode where+ fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_ChannelCountModeMax, ChannelCountModeMax), (js_ChannelCountModeClampedMax, ChannelCountModeClampedMax), (js_ChannelCountModeExplicit, ChannelCountModeExplicit)]+ fromJSValUnchecked = P.return . pFromJSVal++js_ChannelCountModeMax :: JSString+js_ChannelCountModeMax = "max"+js_ChannelCountModeClampedMax :: JSString+js_ChannelCountModeClampedMax = "clamped-max"+js_ChannelCountModeExplicit :: JSString+js_ChannelCountModeExplicit = "explicit"++-- | <https://developer.mozilla.org/en-US/docs/Web/API ChannelInterpretation> (webaudio-1.1)+data ChannelInterpretation = ChannelInterpretationSpeakers+ | ChannelInterpretationDiscrete+ deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal ChannelInterpretation where+ pToJSVal x = pToJSVal (case x of+ ChannelInterpretationSpeakers -> js_ChannelInterpretationSpeakers+ ChannelInterpretationDiscrete -> js_ChannelInterpretationDiscrete+ )++instance ToJSVal ChannelInterpretation where+ toJSVal = P.return . pToJSVal++instance PFromJSVal ChannelInterpretation where+ pFromJSVal x = P.maybe (P.error "Unexpected ChannelInterpretation value") P.id (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_ChannelInterpretationSpeakers, ChannelInterpretationSpeakers), (js_ChannelInterpretationDiscrete, ChannelInterpretationDiscrete)]++instance FromJSVal ChannelInterpretation where+ fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_ChannelInterpretationSpeakers, ChannelInterpretationSpeakers), (js_ChannelInterpretationDiscrete, ChannelInterpretationDiscrete)]+ fromJSValUnchecked = P.return . pFromJSVal++js_ChannelInterpretationSpeakers :: JSString+js_ChannelInterpretationSpeakers = "speakers"+js_ChannelInterpretationDiscrete :: JSString+js_ChannelInterpretationDiscrete = "discrete"++-- | <https://developer.mozilla.org/en-US/docs/Web/API ClientType> (service-workers)+data ClientType = ClientTypeWindow+ | ClientTypeWorker+ | ClientTypeSharedworker+ | ClientTypeAll+ deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal ClientType where+ pToJSVal x = pToJSVal (case x of+ ClientTypeWindow -> js_ClientTypeWindow+ ClientTypeWorker -> js_ClientTypeWorker+ ClientTypeSharedworker -> js_ClientTypeSharedworker+ ClientTypeAll -> js_ClientTypeAll+ )++instance ToJSVal ClientType where+ toJSVal = P.return . pToJSVal++instance PFromJSVal ClientType where+ pFromJSVal x = P.maybe (P.error "Unexpected ClientType value") P.id (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_ClientTypeWindow, ClientTypeWindow), (js_ClientTypeWorker, ClientTypeWorker), (js_ClientTypeSharedworker, ClientTypeSharedworker), (js_ClientTypeAll, ClientTypeAll)]++instance FromJSVal ClientType where+ fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_ClientTypeWindow, ClientTypeWindow), (js_ClientTypeWorker, ClientTypeWorker), (js_ClientTypeSharedworker, ClientTypeSharedworker), (js_ClientTypeAll, ClientTypeAll)]+ fromJSValUnchecked = P.return . pFromJSVal++js_ClientTypeWindow :: JSString+js_ClientTypeWindow = "window"+js_ClientTypeWorker :: JSString+js_ClientTypeWorker = "worker"+js_ClientTypeSharedworker :: JSString+js_ClientTypeSharedworker = "sharedworker"+js_ClientTypeAll :: JSString+js_ClientTypeAll = "all"++-- | <https://developer.mozilla.org/en-US/docs/Web/API CodecState> (webcodecs)+data CodecState = CodecStateUnconfigured+ | CodecStateConfigured+ | CodecStateClosed+ deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal CodecState where+ pToJSVal x = pToJSVal (case x of+ CodecStateUnconfigured -> js_CodecStateUnconfigured+ CodecStateConfigured -> js_CodecStateConfigured+ CodecStateClosed -> js_CodecStateClosed+ )++instance ToJSVal CodecState where+ toJSVal = P.return . pToJSVal++instance PFromJSVal CodecState where+ pFromJSVal x = P.maybe (P.error "Unexpected CodecState value") P.id (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_CodecStateUnconfigured, CodecStateUnconfigured), (js_CodecStateConfigured, CodecStateConfigured), (js_CodecStateClosed, CodecStateClosed)]++instance FromJSVal CodecState where+ fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_CodecStateUnconfigured, CodecStateUnconfigured), (js_CodecStateConfigured, CodecStateConfigured), (js_CodecStateClosed, CodecStateClosed)]+ fromJSValUnchecked = P.return . pFromJSVal++js_CodecStateUnconfigured :: JSString+js_CodecStateUnconfigured = "unconfigured"+js_CodecStateConfigured :: JSString+js_CodecStateConfigured = "configured"+js_CodecStateClosed :: JSString+js_CodecStateClosed = "closed"++-- | <https://developer.mozilla.org/en-US/docs/Web/API ColorGamut> (media-capabilities)+data ColorGamut = ColorGamutSrgb+ | ColorGamutP3+ | ColorGamutRec2020+ deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal ColorGamut where+ pToJSVal x = pToJSVal (case x of+ ColorGamutSrgb -> js_ColorGamutSrgb+ ColorGamutP3 -> js_ColorGamutP3+ ColorGamutRec2020 -> js_ColorGamutRec2020+ )++instance ToJSVal ColorGamut where+ toJSVal = P.return . pToJSVal++instance PFromJSVal ColorGamut where+ pFromJSVal x = P.maybe (P.error "Unexpected ColorGamut value") P.id (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_ColorGamutSrgb, ColorGamutSrgb), (js_ColorGamutP3, ColorGamutP3), (js_ColorGamutRec2020, ColorGamutRec2020)]++instance FromJSVal ColorGamut where+ fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_ColorGamutSrgb, ColorGamutSrgb), (js_ColorGamutP3, ColorGamutP3), (js_ColorGamutRec2020, ColorGamutRec2020)]+ fromJSValUnchecked = P.return . pFromJSVal++js_ColorGamutSrgb :: JSString+js_ColorGamutSrgb = "srgb"+js_ColorGamutP3 :: JSString+js_ColorGamutP3 = "p3"+js_ColorGamutRec2020 :: JSString+js_ColorGamutRec2020 = "rec2020"++-- | <https://developer.mozilla.org/en-US/docs/Web/API ColorSpaceConversion> (html)+data ColorSpaceConversion = ColorSpaceConversionNone+ | ColorSpaceConversionDefault+ deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal ColorSpaceConversion where+ pToJSVal x = pToJSVal (case x of+ ColorSpaceConversionNone -> js_ColorSpaceConversionNone+ ColorSpaceConversionDefault -> js_ColorSpaceConversionDefault+ )++instance ToJSVal ColorSpaceConversion where+ toJSVal = P.return . pToJSVal++instance PFromJSVal ColorSpaceConversion where+ pFromJSVal x = P.maybe (P.error "Unexpected ColorSpaceConversion value") P.id (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_ColorSpaceConversionNone, ColorSpaceConversionNone), (js_ColorSpaceConversionDefault, ColorSpaceConversionDefault)]++instance FromJSVal ColorSpaceConversion where+ fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_ColorSpaceConversionNone, ColorSpaceConversionNone), (js_ColorSpaceConversionDefault, ColorSpaceConversionDefault)]+ fromJSValUnchecked = P.return . pFromJSVal++js_ColorSpaceConversionNone :: JSString+js_ColorSpaceConversionNone = "none"+js_ColorSpaceConversionDefault :: JSString+js_ColorSpaceConversionDefault = "default"++-- | <https://developer.mozilla.org/en-US/docs/Web/API CompositeOperation> (web-animations-1)+data CompositeOperation = CompositeOperationReplace+ | CompositeOperationAdd+ | CompositeOperationAccumulate+ deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal CompositeOperation where+ pToJSVal x = pToJSVal (case x of+ CompositeOperationReplace -> js_CompositeOperationReplace+ CompositeOperationAdd -> js_CompositeOperationAdd+ CompositeOperationAccumulate -> js_CompositeOperationAccumulate+ )++instance ToJSVal CompositeOperation where+ toJSVal = P.return . pToJSVal++instance PFromJSVal CompositeOperation where+ pFromJSVal x = P.maybe (P.error "Unexpected CompositeOperation value") P.id (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_CompositeOperationReplace, CompositeOperationReplace), (js_CompositeOperationAdd, CompositeOperationAdd), (js_CompositeOperationAccumulate, CompositeOperationAccumulate)]++instance FromJSVal CompositeOperation where+ fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_CompositeOperationReplace, CompositeOperationReplace), (js_CompositeOperationAdd, CompositeOperationAdd), (js_CompositeOperationAccumulate, CompositeOperationAccumulate)]+ fromJSValUnchecked = P.return . pFromJSVal++js_CompositeOperationReplace :: JSString+js_CompositeOperationReplace = "replace"+js_CompositeOperationAdd :: JSString+js_CompositeOperationAdd = "add"+js_CompositeOperationAccumulate :: JSString+js_CompositeOperationAccumulate = "accumulate"++-- | <https://developer.mozilla.org/en-US/docs/Web/API CompressionFormat> (compression)+data CompressionFormat = CompressionFormatBrotli+ | CompressionFormatDeflate+ | CompressionFormatDeflateRaw+ | CompressionFormatGzip+ deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal CompressionFormat where+ pToJSVal x = pToJSVal (case x of+ CompressionFormatBrotli -> js_CompressionFormatBrotli+ CompressionFormatDeflate -> js_CompressionFormatDeflate+ CompressionFormatDeflateRaw -> js_CompressionFormatDeflateRaw+ CompressionFormatGzip -> js_CompressionFormatGzip+ )++instance ToJSVal CompressionFormat where+ toJSVal = P.return . pToJSVal++instance PFromJSVal CompressionFormat where+ pFromJSVal x = P.maybe (P.error "Unexpected CompressionFormat value") P.id (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_CompressionFormatBrotli, CompressionFormatBrotli), (js_CompressionFormatDeflate, CompressionFormatDeflate), (js_CompressionFormatDeflateRaw, CompressionFormatDeflateRaw), (js_CompressionFormatGzip, CompressionFormatGzip)]++instance FromJSVal CompressionFormat where+ fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_CompressionFormatBrotli, CompressionFormatBrotli), (js_CompressionFormatDeflate, CompressionFormatDeflate), (js_CompressionFormatDeflateRaw, CompressionFormatDeflateRaw), (js_CompressionFormatGzip, CompressionFormatGzip)]+ fromJSValUnchecked = P.return . pFromJSVal++js_CompressionFormatBrotli :: JSString+js_CompressionFormatBrotli = "brotli"+js_CompressionFormatDeflate :: JSString+js_CompressionFormatDeflate = "deflate"+js_CompressionFormatDeflateRaw :: JSString+js_CompressionFormatDeflateRaw = "deflate-raw"+js_CompressionFormatGzip :: JSString+js_CompressionFormatGzip = "gzip"++-- | <https://developer.mozilla.org/en-US/docs/Web/API CookieSameSite> (cookiestore)+data CookieSameSite = CookieSameSiteStrict+ | CookieSameSiteLax+ | CookieSameSiteNone+ deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal CookieSameSite where+ pToJSVal x = pToJSVal (case x of+ CookieSameSiteStrict -> js_CookieSameSiteStrict+ CookieSameSiteLax -> js_CookieSameSiteLax+ CookieSameSiteNone -> js_CookieSameSiteNone+ )++instance ToJSVal CookieSameSite where+ toJSVal = P.return . pToJSVal++instance PFromJSVal CookieSameSite where+ pFromJSVal x = P.maybe (P.error "Unexpected CookieSameSite value") P.id (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_CookieSameSiteStrict, CookieSameSiteStrict), (js_CookieSameSiteLax, CookieSameSiteLax), (js_CookieSameSiteNone, CookieSameSiteNone)]++instance FromJSVal CookieSameSite where+ fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_CookieSameSiteStrict, CookieSameSiteStrict), (js_CookieSameSiteLax, CookieSameSiteLax), (js_CookieSameSiteNone, CookieSameSiteNone)]+ fromJSValUnchecked = P.return . pFromJSVal++js_CookieSameSiteStrict :: JSString+js_CookieSameSiteStrict = "strict"+js_CookieSameSiteLax :: JSString+js_CookieSameSiteLax = "lax"+js_CookieSameSiteNone :: JSString+js_CookieSameSiteNone = "none"++-- | <https://developer.mozilla.org/en-US/docs/Web/API CredentialMediationRequirement> (credential-management-1)+data CredentialMediationRequirement = CredentialMediationRequirementSilent+ | CredentialMediationRequirementOptional+ | CredentialMediationRequirementConditional+ | CredentialMediationRequirementRequired+ deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal CredentialMediationRequirement where+ pToJSVal x = pToJSVal (case x of+ CredentialMediationRequirementSilent -> js_CredentialMediationRequirementSilent+ CredentialMediationRequirementOptional -> js_CredentialMediationRequirementOptional+ CredentialMediationRequirementConditional -> js_CredentialMediationRequirementConditional+ CredentialMediationRequirementRequired -> js_CredentialMediationRequirementRequired+ )++instance ToJSVal CredentialMediationRequirement where+ toJSVal = P.return . pToJSVal++instance PFromJSVal CredentialMediationRequirement where+ pFromJSVal x = P.maybe (P.error "Unexpected CredentialMediationRequirement value") P.id (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_CredentialMediationRequirementSilent, CredentialMediationRequirementSilent), (js_CredentialMediationRequirementOptional, CredentialMediationRequirementOptional), (js_CredentialMediationRequirementConditional, CredentialMediationRequirementConditional), (js_CredentialMediationRequirementRequired, CredentialMediationRequirementRequired)]++instance FromJSVal CredentialMediationRequirement where+ fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_CredentialMediationRequirementSilent, CredentialMediationRequirementSilent), (js_CredentialMediationRequirementOptional, CredentialMediationRequirementOptional), (js_CredentialMediationRequirementConditional, CredentialMediationRequirementConditional), (js_CredentialMediationRequirementRequired, CredentialMediationRequirementRequired)]+ fromJSValUnchecked = P.return . pFromJSVal++js_CredentialMediationRequirementSilent :: JSString+js_CredentialMediationRequirementSilent = "silent"+js_CredentialMediationRequirementOptional :: JSString+js_CredentialMediationRequirementOptional = "optional"+js_CredentialMediationRequirementConditional :: JSString+js_CredentialMediationRequirementConditional = "conditional"+js_CredentialMediationRequirementRequired :: JSString+js_CredentialMediationRequirementRequired = "required"++-- | <https://developer.mozilla.org/en-US/docs/Web/API DOMParserSupportedType> (html)+data DOMParserSupportedType = DOMParserSupportedTypeTextHtml+ | DOMParserSupportedTypeTextXml+ | DOMParserSupportedTypeApplicationXml+ | DOMParserSupportedTypeApplicationXhtmlXml+ | DOMParserSupportedTypeImageSvgXml+ deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal DOMParserSupportedType where+ pToJSVal x = pToJSVal (case x of+ DOMParserSupportedTypeTextHtml -> js_DOMParserSupportedTypeTextHtml+ DOMParserSupportedTypeTextXml -> js_DOMParserSupportedTypeTextXml+ DOMParserSupportedTypeApplicationXml -> js_DOMParserSupportedTypeApplicationXml+ DOMParserSupportedTypeApplicationXhtmlXml -> js_DOMParserSupportedTypeApplicationXhtmlXml+ DOMParserSupportedTypeImageSvgXml -> js_DOMParserSupportedTypeImageSvgXml+ )++instance ToJSVal DOMParserSupportedType where+ toJSVal = P.return . pToJSVal++instance PFromJSVal DOMParserSupportedType where+ pFromJSVal x = P.maybe (P.error "Unexpected DOMParserSupportedType value") P.id (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_DOMParserSupportedTypeTextHtml, DOMParserSupportedTypeTextHtml), (js_DOMParserSupportedTypeTextXml, DOMParserSupportedTypeTextXml), (js_DOMParserSupportedTypeApplicationXml, DOMParserSupportedTypeApplicationXml), (js_DOMParserSupportedTypeApplicationXhtmlXml, DOMParserSupportedTypeApplicationXhtmlXml), (js_DOMParserSupportedTypeImageSvgXml, DOMParserSupportedTypeImageSvgXml)]++instance FromJSVal DOMParserSupportedType where+ fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_DOMParserSupportedTypeTextHtml, DOMParserSupportedTypeTextHtml), (js_DOMParserSupportedTypeTextXml, DOMParserSupportedTypeTextXml), (js_DOMParserSupportedTypeApplicationXml, DOMParserSupportedTypeApplicationXml), (js_DOMParserSupportedTypeApplicationXhtmlXml, DOMParserSupportedTypeApplicationXhtmlXml), (js_DOMParserSupportedTypeImageSvgXml, DOMParserSupportedTypeImageSvgXml)]+ fromJSValUnchecked = P.return . pFromJSVal++js_DOMParserSupportedTypeTextHtml :: JSString+js_DOMParserSupportedTypeTextHtml = "text/html"+js_DOMParserSupportedTypeTextXml :: JSString+js_DOMParserSupportedTypeTextXml = "text/xml"+js_DOMParserSupportedTypeApplicationXml :: JSString+js_DOMParserSupportedTypeApplicationXml = "application/xml"+js_DOMParserSupportedTypeApplicationXhtmlXml :: JSString+js_DOMParserSupportedTypeApplicationXhtmlXml = "application/xhtml+xml"+js_DOMParserSupportedTypeImageSvgXml :: JSString+js_DOMParserSupportedTypeImageSvgXml = "image/svg+xml"++-- | <https://developer.mozilla.org/en-US/docs/Web/API DigitalCredentialIssuanceProtocol> (digital-credentials)+data DigitalCredentialIssuanceProtocol = DigitalCredentialIssuanceProtocolOpenid4vciV1+ deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal DigitalCredentialIssuanceProtocol where+ pToJSVal x = pToJSVal (case x of+ DigitalCredentialIssuanceProtocolOpenid4vciV1 -> js_DigitalCredentialIssuanceProtocolOpenid4vciV1+ )++instance ToJSVal DigitalCredentialIssuanceProtocol where+ toJSVal = P.return . pToJSVal++instance PFromJSVal DigitalCredentialIssuanceProtocol where+ pFromJSVal x = P.maybe (P.error "Unexpected DigitalCredentialIssuanceProtocol value") P.id (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_DigitalCredentialIssuanceProtocolOpenid4vciV1, DigitalCredentialIssuanceProtocolOpenid4vciV1)]++instance FromJSVal DigitalCredentialIssuanceProtocol where+ fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_DigitalCredentialIssuanceProtocolOpenid4vciV1, DigitalCredentialIssuanceProtocolOpenid4vciV1)]+ fromJSValUnchecked = P.return . pFromJSVal++js_DigitalCredentialIssuanceProtocolOpenid4vciV1 :: JSString+js_DigitalCredentialIssuanceProtocolOpenid4vciV1 = "openid4vci-v1"++-- | <https://developer.mozilla.org/en-US/docs/Web/API DigitalCredentialPresentationProtocol> (digital-credentials)+data DigitalCredentialPresentationProtocol = DigitalCredentialPresentationProtocolOpenid4vpV1Unsigned+ | DigitalCredentialPresentationProtocolOpenid4vpV1Signed+ | DigitalCredentialPresentationProtocolOpenid4vpV1Multisigned+ | DigitalCredentialPresentationProtocolOrgIsoMdoc+ deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal DigitalCredentialPresentationProtocol where+ pToJSVal x = pToJSVal (case x of+ DigitalCredentialPresentationProtocolOpenid4vpV1Unsigned -> js_DigitalCredentialPresentationProtocolOpenid4vpV1Unsigned+ DigitalCredentialPresentationProtocolOpenid4vpV1Signed -> js_DigitalCredentialPresentationProtocolOpenid4vpV1Signed+ DigitalCredentialPresentationProtocolOpenid4vpV1Multisigned -> js_DigitalCredentialPresentationProtocolOpenid4vpV1Multisigned+ DigitalCredentialPresentationProtocolOrgIsoMdoc -> js_DigitalCredentialPresentationProtocolOrgIsoMdoc+ )++instance ToJSVal DigitalCredentialPresentationProtocol where+ toJSVal = P.return . pToJSVal++instance PFromJSVal DigitalCredentialPresentationProtocol where+ pFromJSVal x = P.maybe (P.error "Unexpected DigitalCredentialPresentationProtocol value") P.id (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_DigitalCredentialPresentationProtocolOpenid4vpV1Unsigned, DigitalCredentialPresentationProtocolOpenid4vpV1Unsigned), (js_DigitalCredentialPresentationProtocolOpenid4vpV1Signed, DigitalCredentialPresentationProtocolOpenid4vpV1Signed), (js_DigitalCredentialPresentationProtocolOpenid4vpV1Multisigned, DigitalCredentialPresentationProtocolOpenid4vpV1Multisigned), (js_DigitalCredentialPresentationProtocolOrgIsoMdoc, DigitalCredentialPresentationProtocolOrgIsoMdoc)]++instance FromJSVal DigitalCredentialPresentationProtocol where+ fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_DigitalCredentialPresentationProtocolOpenid4vpV1Unsigned, DigitalCredentialPresentationProtocolOpenid4vpV1Unsigned), (js_DigitalCredentialPresentationProtocolOpenid4vpV1Signed, DigitalCredentialPresentationProtocolOpenid4vpV1Signed), (js_DigitalCredentialPresentationProtocolOpenid4vpV1Multisigned, DigitalCredentialPresentationProtocolOpenid4vpV1Multisigned), (js_DigitalCredentialPresentationProtocolOrgIsoMdoc, DigitalCredentialPresentationProtocolOrgIsoMdoc)]+ fromJSValUnchecked = P.return . pFromJSVal++js_DigitalCredentialPresentationProtocolOpenid4vpV1Unsigned :: JSString+js_DigitalCredentialPresentationProtocolOpenid4vpV1Unsigned = "openid4vp-v1-unsigned"+js_DigitalCredentialPresentationProtocolOpenid4vpV1Signed :: JSString+js_DigitalCredentialPresentationProtocolOpenid4vpV1Signed = "openid4vp-v1-signed"+js_DigitalCredentialPresentationProtocolOpenid4vpV1Multisigned :: JSString+js_DigitalCredentialPresentationProtocolOpenid4vpV1Multisigned = "openid4vp-v1-multisigned"+js_DigitalCredentialPresentationProtocolOrgIsoMdoc :: JSString+js_DigitalCredentialPresentationProtocolOrgIsoMdoc = "org-iso-mdoc"++-- | <https://developer.mozilla.org/en-US/docs/Web/API DirectionSetting> (webvtt1)+data DirectionSetting = DirectionSetting+ | DirectionSettingRl+ | DirectionSettingLr+ deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal DirectionSetting where+ pToJSVal x = pToJSVal (case x of+ DirectionSetting -> js_DirectionSetting+ DirectionSettingRl -> js_DirectionSettingRl+ DirectionSettingLr -> js_DirectionSettingLr+ )++instance ToJSVal DirectionSetting where+ toJSVal = P.return . pToJSVal++instance PFromJSVal DirectionSetting where+ pFromJSVal x = P.maybe (P.error "Unexpected DirectionSetting value") P.id (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_DirectionSetting, DirectionSetting), (js_DirectionSettingRl, DirectionSettingRl), (js_DirectionSettingLr, DirectionSettingLr)]++instance FromJSVal DirectionSetting where+ fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_DirectionSetting, DirectionSetting), (js_DirectionSettingRl, DirectionSettingRl), (js_DirectionSettingLr, DirectionSettingLr)]+ fromJSValUnchecked = P.return . pFromJSVal++js_DirectionSetting :: JSString+js_DirectionSetting = ""+js_DirectionSettingRl :: JSString+js_DirectionSettingRl = "rl"+js_DirectionSettingLr :: JSString+js_DirectionSettingLr = "lr"++-- | <https://developer.mozilla.org/en-US/docs/Web/API DistanceModelType> (webaudio-1.1)+data DistanceModelType = DistanceModelTypeLinear+ | DistanceModelTypeInverse+ | DistanceModelTypeExponential+ deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal DistanceModelType where+ pToJSVal x = pToJSVal (case x of+ DistanceModelTypeLinear -> js_DistanceModelTypeLinear+ DistanceModelTypeInverse -> js_DistanceModelTypeInverse+ DistanceModelTypeExponential -> js_DistanceModelTypeExponential+ )++instance ToJSVal DistanceModelType where+ toJSVal = P.return . pToJSVal++instance PFromJSVal DistanceModelType where+ pFromJSVal x = P.maybe (P.error "Unexpected DistanceModelType value") P.id (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_DistanceModelTypeLinear, DistanceModelTypeLinear), (js_DistanceModelTypeInverse, DistanceModelTypeInverse), (js_DistanceModelTypeExponential, DistanceModelTypeExponential)]++instance FromJSVal DistanceModelType where+ fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_DistanceModelTypeLinear, DistanceModelTypeLinear), (js_DistanceModelTypeInverse, DistanceModelTypeInverse), (js_DistanceModelTypeExponential, DistanceModelTypeExponential)]+ fromJSValUnchecked = P.return . pFromJSVal++js_DistanceModelTypeLinear :: JSString+js_DistanceModelTypeLinear = "linear"+js_DistanceModelTypeInverse :: JSString+js_DistanceModelTypeInverse = "inverse"+js_DistanceModelTypeExponential :: JSString+js_DistanceModelTypeExponential = "exponential"++-- | <https://developer.mozilla.org/en-US/docs/Web/API DocumentReadyState> (html)+data DocumentReadyState = DocumentReadyStateLoading+ | DocumentReadyStateInteractive+ | DocumentReadyStateComplete+ deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal DocumentReadyState where+ pToJSVal x = pToJSVal (case x of+ DocumentReadyStateLoading -> js_DocumentReadyStateLoading+ DocumentReadyStateInteractive -> js_DocumentReadyStateInteractive+ DocumentReadyStateComplete -> js_DocumentReadyStateComplete+ )++instance ToJSVal DocumentReadyState where+ toJSVal = P.return . pToJSVal++instance PFromJSVal DocumentReadyState where+ pFromJSVal x = P.maybe (P.error "Unexpected DocumentReadyState value") P.id (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_DocumentReadyStateLoading, DocumentReadyStateLoading), (js_DocumentReadyStateInteractive, DocumentReadyStateInteractive), (js_DocumentReadyStateComplete, DocumentReadyStateComplete)]++instance FromJSVal DocumentReadyState where+ fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_DocumentReadyStateLoading, DocumentReadyStateLoading), (js_DocumentReadyStateInteractive, DocumentReadyStateInteractive), (js_DocumentReadyStateComplete, DocumentReadyStateComplete)]+ fromJSValUnchecked = P.return . pFromJSVal++js_DocumentReadyStateLoading :: JSString+js_DocumentReadyStateLoading = "loading"+js_DocumentReadyStateInteractive :: JSString+js_DocumentReadyStateInteractive = "interactive"+js_DocumentReadyStateComplete :: JSString+js_DocumentReadyStateComplete = "complete"++-- | <https://developer.mozilla.org/en-US/docs/Web/API DocumentVisibilityState> (html)+data DocumentVisibilityState = DocumentVisibilityStateVisible+ | DocumentVisibilityStateHidden+ deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal DocumentVisibilityState where+ pToJSVal x = pToJSVal (case x of+ DocumentVisibilityStateVisible -> js_DocumentVisibilityStateVisible+ DocumentVisibilityStateHidden -> js_DocumentVisibilityStateHidden+ )++instance ToJSVal DocumentVisibilityState where+ toJSVal = P.return . pToJSVal++instance PFromJSVal DocumentVisibilityState where+ pFromJSVal x = P.maybe (P.error "Unexpected DocumentVisibilityState value") P.id (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_DocumentVisibilityStateVisible, DocumentVisibilityStateVisible), (js_DocumentVisibilityStateHidden, DocumentVisibilityStateHidden)]++instance FromJSVal DocumentVisibilityState where+ fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_DocumentVisibilityStateVisible, DocumentVisibilityStateVisible), (js_DocumentVisibilityStateHidden, DocumentVisibilityStateHidden)]+ fromJSValUnchecked = P.return . pFromJSVal++js_DocumentVisibilityStateVisible :: JSString+js_DocumentVisibilityStateVisible = "visible"+js_DocumentVisibilityStateHidden :: JSString+js_DocumentVisibilityStateHidden = "hidden"++-- | <https://developer.mozilla.org/en-US/docs/Web/API EncodedAudioChunkType> (webcodecs)+data EncodedAudioChunkType = EncodedAudioChunkTypeKey+ | EncodedAudioChunkTypeDelta+ deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal EncodedAudioChunkType where+ pToJSVal x = pToJSVal (case x of+ EncodedAudioChunkTypeKey -> js_EncodedAudioChunkTypeKey+ EncodedAudioChunkTypeDelta -> js_EncodedAudioChunkTypeDelta+ )++instance ToJSVal EncodedAudioChunkType where+ toJSVal = P.return . pToJSVal++instance PFromJSVal EncodedAudioChunkType where+ pFromJSVal x = P.maybe (P.error "Unexpected EncodedAudioChunkType value") P.id (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_EncodedAudioChunkTypeKey, EncodedAudioChunkTypeKey), (js_EncodedAudioChunkTypeDelta, EncodedAudioChunkTypeDelta)]++instance FromJSVal EncodedAudioChunkType where+ fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_EncodedAudioChunkTypeKey, EncodedAudioChunkTypeKey), (js_EncodedAudioChunkTypeDelta, EncodedAudioChunkTypeDelta)]+ fromJSValUnchecked = P.return . pFromJSVal++js_EncodedAudioChunkTypeKey :: JSString+js_EncodedAudioChunkTypeKey = "key"+js_EncodedAudioChunkTypeDelta :: JSString+js_EncodedAudioChunkTypeDelta = "delta"++-- | <https://developer.mozilla.org/en-US/docs/Web/API EncodedVideoChunkType> (webcodecs)+data EncodedVideoChunkType = EncodedVideoChunkTypeKey+ | EncodedVideoChunkTypeDelta+ deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal EncodedVideoChunkType where+ pToJSVal x = pToJSVal (case x of+ EncodedVideoChunkTypeKey -> js_EncodedVideoChunkTypeKey+ EncodedVideoChunkTypeDelta -> js_EncodedVideoChunkTypeDelta+ )++instance ToJSVal EncodedVideoChunkType where+ toJSVal = P.return . pToJSVal++instance PFromJSVal EncodedVideoChunkType where+ pFromJSVal x = P.maybe (P.error "Unexpected EncodedVideoChunkType value") P.id (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_EncodedVideoChunkTypeKey, EncodedVideoChunkTypeKey), (js_EncodedVideoChunkTypeDelta, EncodedVideoChunkTypeDelta)]++instance FromJSVal EncodedVideoChunkType where+ fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_EncodedVideoChunkTypeKey, EncodedVideoChunkTypeKey), (js_EncodedVideoChunkTypeDelta, EncodedVideoChunkTypeDelta)]+ fromJSValUnchecked = P.return . pFromJSVal++js_EncodedVideoChunkTypeKey :: JSString+js_EncodedVideoChunkTypeKey = "key"+js_EncodedVideoChunkTypeDelta :: JSString+js_EncodedVideoChunkTypeDelta = "delta"++-- | <https://developer.mozilla.org/en-US/docs/Web/API EndOfStreamError> (media-source-2)+data EndOfStreamError = EndOfStreamErrorNetwork+ | EndOfStreamErrorDecode+ deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal EndOfStreamError where+ pToJSVal x = pToJSVal (case x of+ EndOfStreamErrorNetwork -> js_EndOfStreamErrorNetwork+ EndOfStreamErrorDecode -> js_EndOfStreamErrorDecode+ )++instance ToJSVal EndOfStreamError where+ toJSVal = P.return . pToJSVal++instance PFromJSVal EndOfStreamError where+ pFromJSVal x = P.maybe (P.error "Unexpected EndOfStreamError value") P.id (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_EndOfStreamErrorNetwork, EndOfStreamErrorNetwork), (js_EndOfStreamErrorDecode, EndOfStreamErrorDecode)]++instance FromJSVal EndOfStreamError where+ fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_EndOfStreamErrorNetwork, EndOfStreamErrorNetwork), (js_EndOfStreamErrorDecode, EndOfStreamErrorDecode)]+ fromJSValUnchecked = P.return . pFromJSVal++js_EndOfStreamErrorNetwork :: JSString+js_EndOfStreamErrorNetwork = "network"+js_EndOfStreamErrorDecode :: JSString+js_EndOfStreamErrorDecode = "decode"++-- | <https://developer.mozilla.org/en-US/docs/Web/API EndingType> (FileAPI)+data EndingType = EndingTypeTransparent+ | EndingTypeNative+ deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal EndingType where+ pToJSVal x = pToJSVal (case x of+ EndingTypeTransparent -> js_EndingTypeTransparent+ EndingTypeNative -> js_EndingTypeNative+ )++instance ToJSVal EndingType where+ toJSVal = P.return . pToJSVal++instance PFromJSVal EndingType where+ pFromJSVal x = P.maybe (P.error "Unexpected EndingType value") P.id (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_EndingTypeTransparent, EndingTypeTransparent), (js_EndingTypeNative, EndingTypeNative)]++instance FromJSVal EndingType where+ fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_EndingTypeTransparent, EndingTypeTransparent), (js_EndingTypeNative, EndingTypeNative)]+ fromJSValUnchecked = P.return . pFromJSVal++js_EndingTypeTransparent :: JSString+js_EndingTypeTransparent = "transparent"+js_EndingTypeNative :: JSString+js_EndingTypeNative = "native"++-- | <https://developer.mozilla.org/en-US/docs/Web/API FileSystemHandleKind> (fs)+data FileSystemHandleKind = FileSystemHandleKindFile+ | FileSystemHandleKindDirectory+ deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal FileSystemHandleKind where+ pToJSVal x = pToJSVal (case x of+ FileSystemHandleKindFile -> js_FileSystemHandleKindFile+ FileSystemHandleKindDirectory -> js_FileSystemHandleKindDirectory+ )++instance ToJSVal FileSystemHandleKind where+ toJSVal = P.return . pToJSVal++instance PFromJSVal FileSystemHandleKind where+ pFromJSVal x = P.maybe (P.error "Unexpected FileSystemHandleKind value") P.id (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_FileSystemHandleKindFile, FileSystemHandleKindFile), (js_FileSystemHandleKindDirectory, FileSystemHandleKindDirectory)]++instance FromJSVal FileSystemHandleKind where+ fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_FileSystemHandleKindFile, FileSystemHandleKindFile), (js_FileSystemHandleKindDirectory, FileSystemHandleKindDirectory)]+ fromJSValUnchecked = P.return . pFromJSVal++js_FileSystemHandleKindFile :: JSString+js_FileSystemHandleKindFile = "file"+js_FileSystemHandleKindDirectory :: JSString+js_FileSystemHandleKindDirectory = "directory"++-- | <https://developer.mozilla.org/en-US/docs/Web/API FillLightMode> (image-capture)+data FillLightMode = FillLightModeAuto+ | FillLightModeOff+ | FillLightModeFlash+ deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal FillLightMode where+ pToJSVal x = pToJSVal (case x of+ FillLightModeAuto -> js_FillLightModeAuto+ FillLightModeOff -> js_FillLightModeOff+ FillLightModeFlash -> js_FillLightModeFlash+ )++instance ToJSVal FillLightMode where+ toJSVal = P.return . pToJSVal++instance PFromJSVal FillLightMode where+ pFromJSVal x = P.maybe (P.error "Unexpected FillLightMode value") P.id (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_FillLightModeAuto, FillLightModeAuto), (js_FillLightModeOff, FillLightModeOff), (js_FillLightModeFlash, FillLightModeFlash)]++instance FromJSVal FillLightMode where+ fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_FillLightModeAuto, FillLightModeAuto), (js_FillLightModeOff, FillLightModeOff), (js_FillLightModeFlash, FillLightModeFlash)]+ fromJSValUnchecked = P.return . pFromJSVal++js_FillLightModeAuto :: JSString+js_FillLightModeAuto = "auto"+js_FillLightModeOff :: JSString+js_FillLightModeOff = "off"+js_FillLightModeFlash :: JSString+js_FillLightModeFlash = "flash"++-- | <https://developer.mozilla.org/en-US/docs/Web/API FillMode> (web-animations-1)+data FillMode = FillModeNone+ | FillModeForwards+ | FillModeBackwards+ | FillModeBoth+ | FillModeAuto+ deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal FillMode where+ pToJSVal x = pToJSVal (case x of+ FillModeNone -> js_FillModeNone+ FillModeForwards -> js_FillModeForwards+ FillModeBackwards -> js_FillModeBackwards+ FillModeBoth -> js_FillModeBoth+ FillModeAuto -> js_FillModeAuto+ )++instance ToJSVal FillMode where+ toJSVal = P.return . pToJSVal++instance PFromJSVal FillMode where+ pFromJSVal x = P.maybe (P.error "Unexpected FillMode value") P.id (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_FillModeNone, FillModeNone), (js_FillModeForwards, FillModeForwards), (js_FillModeBackwards, FillModeBackwards), (js_FillModeBoth, FillModeBoth), (js_FillModeAuto, FillModeAuto)]++instance FromJSVal FillMode where+ fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_FillModeNone, FillModeNone), (js_FillModeForwards, FillModeForwards), (js_FillModeBackwards, FillModeBackwards), (js_FillModeBoth, FillModeBoth), (js_FillModeAuto, FillModeAuto)]+ fromJSValUnchecked = P.return . pFromJSVal++js_FillModeNone :: JSString+js_FillModeNone = "none"+js_FillModeForwards :: JSString+js_FillModeForwards = "forwards"+js_FillModeBackwards :: JSString+js_FillModeBackwards = "backwards"+js_FillModeBoth :: JSString+js_FillModeBoth = "both"+js_FillModeAuto :: JSString+js_FillModeAuto = "auto"++-- | <https://developer.mozilla.org/en-US/docs/Web/API FlowControlType> (serial)+data FlowControlType = FlowControlTypeNone+ | FlowControlTypeHardware+ deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal FlowControlType where+ pToJSVal x = pToJSVal (case x of+ FlowControlTypeNone -> js_FlowControlTypeNone+ FlowControlTypeHardware -> js_FlowControlTypeHardware+ )++instance ToJSVal FlowControlType where+ toJSVal = P.return . pToJSVal++instance PFromJSVal FlowControlType where+ pFromJSVal x = P.maybe (P.error "Unexpected FlowControlType value") P.id (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_FlowControlTypeNone, FlowControlTypeNone), (js_FlowControlTypeHardware, FlowControlTypeHardware)]++instance FromJSVal FlowControlType where+ fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_FlowControlTypeNone, FlowControlTypeNone), (js_FlowControlTypeHardware, FlowControlTypeHardware)]+ fromJSValUnchecked = P.return . pFromJSVal++js_FlowControlTypeNone :: JSString+js_FlowControlTypeNone = "none"+js_FlowControlTypeHardware :: JSString+js_FlowControlTypeHardware = "hardware"++-- | <https://developer.mozilla.org/en-US/docs/Web/API FontFaceLoadStatus> (css-font-loading-3)+data FontFaceLoadStatus = FontFaceLoadStatusUnloaded+ | FontFaceLoadStatusLoading+ | FontFaceLoadStatusLoaded+ | FontFaceLoadStatusError+ deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal FontFaceLoadStatus where+ pToJSVal x = pToJSVal (case x of+ FontFaceLoadStatusUnloaded -> js_FontFaceLoadStatusUnloaded+ FontFaceLoadStatusLoading -> js_FontFaceLoadStatusLoading+ FontFaceLoadStatusLoaded -> js_FontFaceLoadStatusLoaded+ FontFaceLoadStatusError -> js_FontFaceLoadStatusError+ )++instance ToJSVal FontFaceLoadStatus where+ toJSVal = P.return . pToJSVal++instance PFromJSVal FontFaceLoadStatus where+ pFromJSVal x = P.maybe (P.error "Unexpected FontFaceLoadStatus value") P.id (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_FontFaceLoadStatusUnloaded, FontFaceLoadStatusUnloaded), (js_FontFaceLoadStatusLoading, FontFaceLoadStatusLoading), (js_FontFaceLoadStatusLoaded, FontFaceLoadStatusLoaded), (js_FontFaceLoadStatusError, FontFaceLoadStatusError)]++instance FromJSVal FontFaceLoadStatus where+ fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_FontFaceLoadStatusUnloaded, FontFaceLoadStatusUnloaded), (js_FontFaceLoadStatusLoading, FontFaceLoadStatusLoading), (js_FontFaceLoadStatusLoaded, FontFaceLoadStatusLoaded), (js_FontFaceLoadStatusError, FontFaceLoadStatusError)]+ fromJSValUnchecked = P.return . pFromJSVal++js_FontFaceLoadStatusUnloaded :: JSString+js_FontFaceLoadStatusUnloaded = "unloaded"+js_FontFaceLoadStatusLoading :: JSString+js_FontFaceLoadStatusLoading = "loading"+js_FontFaceLoadStatusLoaded :: JSString+js_FontFaceLoadStatusLoaded = "loaded"+js_FontFaceLoadStatusError :: JSString+js_FontFaceLoadStatusError = "error"++-- | <https://developer.mozilla.org/en-US/docs/Web/API FontFaceSetLoadStatus> (css-font-loading-3)+data FontFaceSetLoadStatus = FontFaceSetLoadStatusLoading+ | FontFaceSetLoadStatusLoaded+ deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal FontFaceSetLoadStatus where+ pToJSVal x = pToJSVal (case x of+ FontFaceSetLoadStatusLoading -> js_FontFaceSetLoadStatusLoading+ FontFaceSetLoadStatusLoaded -> js_FontFaceSetLoadStatusLoaded+ )++instance ToJSVal FontFaceSetLoadStatus where+ toJSVal = P.return . pToJSVal++instance PFromJSVal FontFaceSetLoadStatus where+ pFromJSVal x = P.maybe (P.error "Unexpected FontFaceSetLoadStatus value") P.id (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_FontFaceSetLoadStatusLoading, FontFaceSetLoadStatusLoading), (js_FontFaceSetLoadStatusLoaded, FontFaceSetLoadStatusLoaded)]++instance FromJSVal FontFaceSetLoadStatus where+ fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_FontFaceSetLoadStatusLoading, FontFaceSetLoadStatusLoading), (js_FontFaceSetLoadStatusLoaded, FontFaceSetLoadStatusLoaded)]+ fromJSValUnchecked = P.return . pFromJSVal++js_FontFaceSetLoadStatusLoading :: JSString+js_FontFaceSetLoadStatusLoading = "loading"+js_FontFaceSetLoadStatusLoaded :: JSString+js_FontFaceSetLoadStatusLoaded = "loaded"++-- | <https://developer.mozilla.org/en-US/docs/Web/API FrameType> (service-workers)+data FrameType = FrameTypeAuxiliary+ | FrameTypeTopLevel+ | FrameTypeNested+ | FrameTypeNone+ deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal FrameType where+ pToJSVal x = pToJSVal (case x of+ FrameTypeAuxiliary -> js_FrameTypeAuxiliary+ FrameTypeTopLevel -> js_FrameTypeTopLevel+ FrameTypeNested -> js_FrameTypeNested+ FrameTypeNone -> js_FrameTypeNone+ )++instance ToJSVal FrameType where+ toJSVal = P.return . pToJSVal++instance PFromJSVal FrameType where+ pFromJSVal x = P.maybe (P.error "Unexpected FrameType value") P.id (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_FrameTypeAuxiliary, FrameTypeAuxiliary), (js_FrameTypeTopLevel, FrameTypeTopLevel), (js_FrameTypeNested, FrameTypeNested), (js_FrameTypeNone, FrameTypeNone)]++instance FromJSVal FrameType where+ fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_FrameTypeAuxiliary, FrameTypeAuxiliary), (js_FrameTypeTopLevel, FrameTypeTopLevel), (js_FrameTypeNested, FrameTypeNested), (js_FrameTypeNone, FrameTypeNone)]+ fromJSValUnchecked = P.return . pFromJSVal++js_FrameTypeAuxiliary :: JSString+js_FrameTypeAuxiliary = "auxiliary"+js_FrameTypeTopLevel :: JSString+js_FrameTypeTopLevel = "top-level"+js_FrameTypeNested :: JSString+js_FrameTypeNested = "nested"+js_FrameTypeNone :: JSString+js_FrameTypeNone = "none"++-- | <https://developer.mozilla.org/en-US/docs/Web/API FullscreenKeyboardLock> (fullscreen)+data FullscreenKeyboardLock = FullscreenKeyboardLockBrowser+ | FullscreenKeyboardLockNone+ deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal FullscreenKeyboardLock where+ pToJSVal x = pToJSVal (case x of+ FullscreenKeyboardLockBrowser -> js_FullscreenKeyboardLockBrowser+ FullscreenKeyboardLockNone -> js_FullscreenKeyboardLockNone+ )++instance ToJSVal FullscreenKeyboardLock where+ toJSVal = P.return . pToJSVal++instance PFromJSVal FullscreenKeyboardLock where+ pFromJSVal x = P.maybe (P.error "Unexpected FullscreenKeyboardLock value") P.id (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_FullscreenKeyboardLockBrowser, FullscreenKeyboardLockBrowser), (js_FullscreenKeyboardLockNone, FullscreenKeyboardLockNone)]++instance FromJSVal FullscreenKeyboardLock where+ fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_FullscreenKeyboardLockBrowser, FullscreenKeyboardLockBrowser), (js_FullscreenKeyboardLockNone, FullscreenKeyboardLockNone)]+ fromJSValUnchecked = P.return . pFromJSVal++js_FullscreenKeyboardLockBrowser :: JSString+js_FullscreenKeyboardLockBrowser = "browser"+js_FullscreenKeyboardLockNone :: JSString+js_FullscreenKeyboardLockNone = "none"++-- | <https://developer.mozilla.org/en-US/docs/Web/API FullscreenNavigationUI> (fullscreen)+data FullscreenNavigationUI = FullscreenNavigationUIAuto+ | FullscreenNavigationUIShow+ | FullscreenNavigationUIHide+ deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal FullscreenNavigationUI where+ pToJSVal x = pToJSVal (case x of+ FullscreenNavigationUIAuto -> js_FullscreenNavigationUIAuto+ FullscreenNavigationUIShow -> js_FullscreenNavigationUIShow+ FullscreenNavigationUIHide -> js_FullscreenNavigationUIHide+ )++instance ToJSVal FullscreenNavigationUI where+ toJSVal = P.return . pToJSVal++instance PFromJSVal FullscreenNavigationUI where+ pFromJSVal x = P.maybe (P.error "Unexpected FullscreenNavigationUI value") P.id (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_FullscreenNavigationUIAuto, FullscreenNavigationUIAuto), (js_FullscreenNavigationUIShow, FullscreenNavigationUIShow), (js_FullscreenNavigationUIHide, FullscreenNavigationUIHide)]++instance FromJSVal FullscreenNavigationUI where+ fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_FullscreenNavigationUIAuto, FullscreenNavigationUIAuto), (js_FullscreenNavigationUIShow, FullscreenNavigationUIShow), (js_FullscreenNavigationUIHide, FullscreenNavigationUIHide)]+ fromJSValUnchecked = P.return . pFromJSVal++js_FullscreenNavigationUIAuto :: JSString+js_FullscreenNavigationUIAuto = "auto"+js_FullscreenNavigationUIShow :: JSString+js_FullscreenNavigationUIShow = "show"+js_FullscreenNavigationUIHide :: JSString+js_FullscreenNavigationUIHide = "hide"++-- | <https://developer.mozilla.org/en-US/docs/Web/API GPUAddressMode> (webgpu)+data GPUAddressMode = GPUAddressModeClampToEdge+ | GPUAddressModeRepeat+ | GPUAddressModeMirrorRepeat+ deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal GPUAddressMode where+ pToJSVal x = pToJSVal (case x of+ GPUAddressModeClampToEdge -> js_GPUAddressModeClampToEdge+ GPUAddressModeRepeat -> js_GPUAddressModeRepeat+ GPUAddressModeMirrorRepeat -> js_GPUAddressModeMirrorRepeat+ )++instance ToJSVal GPUAddressMode where+ toJSVal = P.return . pToJSVal++instance PFromJSVal GPUAddressMode where+ pFromJSVal x = P.maybe (P.error "Unexpected GPUAddressMode value") P.id (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_GPUAddressModeClampToEdge, GPUAddressModeClampToEdge), (js_GPUAddressModeRepeat, GPUAddressModeRepeat), (js_GPUAddressModeMirrorRepeat, GPUAddressModeMirrorRepeat)]++instance FromJSVal GPUAddressMode where+ fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_GPUAddressModeClampToEdge, GPUAddressModeClampToEdge), (js_GPUAddressModeRepeat, GPUAddressModeRepeat), (js_GPUAddressModeMirrorRepeat, GPUAddressModeMirrorRepeat)]+ fromJSValUnchecked = P.return . pFromJSVal++js_GPUAddressModeClampToEdge :: JSString+js_GPUAddressModeClampToEdge = "clamp-to-edge"+js_GPUAddressModeRepeat :: JSString+js_GPUAddressModeRepeat = "repeat"+js_GPUAddressModeMirrorRepeat :: JSString+js_GPUAddressModeMirrorRepeat = "mirror-repeat"++-- | <https://developer.mozilla.org/en-US/docs/Web/API GPUAutoLayoutMode> (webgpu)+data GPUAutoLayoutMode = GPUAutoLayoutModeAuto+ deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal GPUAutoLayoutMode where+ pToJSVal x = pToJSVal (case x of+ GPUAutoLayoutModeAuto -> js_GPUAutoLayoutModeAuto+ )++instance ToJSVal GPUAutoLayoutMode where+ toJSVal = P.return . pToJSVal++instance PFromJSVal GPUAutoLayoutMode where+ pFromJSVal x = P.maybe (P.error "Unexpected GPUAutoLayoutMode value") P.id (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_GPUAutoLayoutModeAuto, GPUAutoLayoutModeAuto)]++instance FromJSVal GPUAutoLayoutMode where+ fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_GPUAutoLayoutModeAuto, GPUAutoLayoutModeAuto)]+ fromJSValUnchecked = P.return . pFromJSVal++js_GPUAutoLayoutModeAuto :: JSString+js_GPUAutoLayoutModeAuto = "auto"++-- | <https://developer.mozilla.org/en-US/docs/Web/API GPUBlendFactor> (webgpu)+data GPUBlendFactor = GPUBlendFactorZero+ | GPUBlendFactorOne+ | GPUBlendFactorSrc+ | GPUBlendFactorOneMinusSrc+ | GPUBlendFactorSrcAlpha+ | GPUBlendFactorOneMinusSrcAlpha+ | GPUBlendFactorDst+ | GPUBlendFactorOneMinusDst+ | GPUBlendFactorDstAlpha+ | GPUBlendFactorOneMinusDstAlpha+ | GPUBlendFactorSrcAlphaSaturated+ | GPUBlendFactorConstant+ | GPUBlendFactorOneMinusConstant+ | GPUBlendFactorSrc1+ | GPUBlendFactorOneMinusSrc1+ | GPUBlendFactorSrc1Alpha+ | GPUBlendFactorOneMinusSrc1Alpha+ deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal GPUBlendFactor where+ pToJSVal x = pToJSVal (case x of+ GPUBlendFactorZero -> js_GPUBlendFactorZero+ GPUBlendFactorOne -> js_GPUBlendFactorOne+ GPUBlendFactorSrc -> js_GPUBlendFactorSrc+ GPUBlendFactorOneMinusSrc -> js_GPUBlendFactorOneMinusSrc+ GPUBlendFactorSrcAlpha -> js_GPUBlendFactorSrcAlpha+ GPUBlendFactorOneMinusSrcAlpha -> js_GPUBlendFactorOneMinusSrcAlpha+ GPUBlendFactorDst -> js_GPUBlendFactorDst+ GPUBlendFactorOneMinusDst -> js_GPUBlendFactorOneMinusDst+ GPUBlendFactorDstAlpha -> js_GPUBlendFactorDstAlpha+ GPUBlendFactorOneMinusDstAlpha -> js_GPUBlendFactorOneMinusDstAlpha+ GPUBlendFactorSrcAlphaSaturated -> js_GPUBlendFactorSrcAlphaSaturated+ GPUBlendFactorConstant -> js_GPUBlendFactorConstant+ GPUBlendFactorOneMinusConstant -> js_GPUBlendFactorOneMinusConstant+ GPUBlendFactorSrc1 -> js_GPUBlendFactorSrc1+ GPUBlendFactorOneMinusSrc1 -> js_GPUBlendFactorOneMinusSrc1+ GPUBlendFactorSrc1Alpha -> js_GPUBlendFactorSrc1Alpha+ GPUBlendFactorOneMinusSrc1Alpha -> js_GPUBlendFactorOneMinusSrc1Alpha+ )++instance ToJSVal GPUBlendFactor where+ toJSVal = P.return . pToJSVal++instance PFromJSVal GPUBlendFactor where+ pFromJSVal x = P.maybe (P.error "Unexpected GPUBlendFactor value") P.id (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_GPUBlendFactorZero, GPUBlendFactorZero), (js_GPUBlendFactorOne, GPUBlendFactorOne), (js_GPUBlendFactorSrc, GPUBlendFactorSrc), (js_GPUBlendFactorOneMinusSrc, GPUBlendFactorOneMinusSrc), (js_GPUBlendFactorSrcAlpha, GPUBlendFactorSrcAlpha), (js_GPUBlendFactorOneMinusSrcAlpha, GPUBlendFactorOneMinusSrcAlpha), (js_GPUBlendFactorDst, GPUBlendFactorDst), (js_GPUBlendFactorOneMinusDst, GPUBlendFactorOneMinusDst), (js_GPUBlendFactorDstAlpha, GPUBlendFactorDstAlpha), (js_GPUBlendFactorOneMinusDstAlpha, GPUBlendFactorOneMinusDstAlpha), (js_GPUBlendFactorSrcAlphaSaturated, GPUBlendFactorSrcAlphaSaturated), (js_GPUBlendFactorConstant, GPUBlendFactorConstant), (js_GPUBlendFactorOneMinusConstant, GPUBlendFactorOneMinusConstant), (js_GPUBlendFactorSrc1, GPUBlendFactorSrc1), (js_GPUBlendFactorOneMinusSrc1, GPUBlendFactorOneMinusSrc1), (js_GPUBlendFactorSrc1Alpha, GPUBlendFactorSrc1Alpha), (js_GPUBlendFactorOneMinusSrc1Alpha, GPUBlendFactorOneMinusSrc1Alpha)]++instance FromJSVal GPUBlendFactor where+ fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_GPUBlendFactorZero, GPUBlendFactorZero), (js_GPUBlendFactorOne, GPUBlendFactorOne), (js_GPUBlendFactorSrc, GPUBlendFactorSrc), (js_GPUBlendFactorOneMinusSrc, GPUBlendFactorOneMinusSrc), (js_GPUBlendFactorSrcAlpha, GPUBlendFactorSrcAlpha), (js_GPUBlendFactorOneMinusSrcAlpha, GPUBlendFactorOneMinusSrcAlpha), (js_GPUBlendFactorDst, GPUBlendFactorDst), (js_GPUBlendFactorOneMinusDst, GPUBlendFactorOneMinusDst), (js_GPUBlendFactorDstAlpha, GPUBlendFactorDstAlpha), (js_GPUBlendFactorOneMinusDstAlpha, GPUBlendFactorOneMinusDstAlpha), (js_GPUBlendFactorSrcAlphaSaturated, GPUBlendFactorSrcAlphaSaturated), (js_GPUBlendFactorConstant, GPUBlendFactorConstant), (js_GPUBlendFactorOneMinusConstant, GPUBlendFactorOneMinusConstant), (js_GPUBlendFactorSrc1, GPUBlendFactorSrc1), (js_GPUBlendFactorOneMinusSrc1, GPUBlendFactorOneMinusSrc1), (js_GPUBlendFactorSrc1Alpha, GPUBlendFactorSrc1Alpha), (js_GPUBlendFactorOneMinusSrc1Alpha, GPUBlendFactorOneMinusSrc1Alpha)]+ fromJSValUnchecked = P.return . pFromJSVal++js_GPUBlendFactorZero :: JSString+js_GPUBlendFactorZero = "zero"+js_GPUBlendFactorOne :: JSString+js_GPUBlendFactorOne = "one"+js_GPUBlendFactorSrc :: JSString+js_GPUBlendFactorSrc = "src"+js_GPUBlendFactorOneMinusSrc :: JSString+js_GPUBlendFactorOneMinusSrc = "one-minus-src"+js_GPUBlendFactorSrcAlpha :: JSString+js_GPUBlendFactorSrcAlpha = "src-alpha"+js_GPUBlendFactorOneMinusSrcAlpha :: JSString+js_GPUBlendFactorOneMinusSrcAlpha = "one-minus-src-alpha"+js_GPUBlendFactorDst :: JSString+js_GPUBlendFactorDst = "dst"+js_GPUBlendFactorOneMinusDst :: JSString+js_GPUBlendFactorOneMinusDst = "one-minus-dst"+js_GPUBlendFactorDstAlpha :: JSString+js_GPUBlendFactorDstAlpha = "dst-alpha"+js_GPUBlendFactorOneMinusDstAlpha :: JSString+js_GPUBlendFactorOneMinusDstAlpha = "one-minus-dst-alpha"+js_GPUBlendFactorSrcAlphaSaturated :: JSString+js_GPUBlendFactorSrcAlphaSaturated = "src-alpha-saturated"+js_GPUBlendFactorConstant :: JSString+js_GPUBlendFactorConstant = "constant"+js_GPUBlendFactorOneMinusConstant :: JSString+js_GPUBlendFactorOneMinusConstant = "one-minus-constant"+js_GPUBlendFactorSrc1 :: JSString+js_GPUBlendFactorSrc1 = "src1"+js_GPUBlendFactorOneMinusSrc1 :: JSString+js_GPUBlendFactorOneMinusSrc1 = "one-minus-src1"+js_GPUBlendFactorSrc1Alpha :: JSString+js_GPUBlendFactorSrc1Alpha = "src1-alpha"+js_GPUBlendFactorOneMinusSrc1Alpha :: JSString+js_GPUBlendFactorOneMinusSrc1Alpha = "one-minus-src1-alpha"++-- | <https://developer.mozilla.org/en-US/docs/Web/API GPUBlendOperation> (webgpu)+data GPUBlendOperation = GPUBlendOperationAdd+ | GPUBlendOperationSubtract+ | GPUBlendOperationReverseSubtract+ | GPUBlendOperationMin+ | GPUBlendOperationMax+ deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal GPUBlendOperation where+ pToJSVal x = pToJSVal (case x of+ GPUBlendOperationAdd -> js_GPUBlendOperationAdd+ GPUBlendOperationSubtract -> js_GPUBlendOperationSubtract+ GPUBlendOperationReverseSubtract -> js_GPUBlendOperationReverseSubtract+ GPUBlendOperationMin -> js_GPUBlendOperationMin+ GPUBlendOperationMax -> js_GPUBlendOperationMax+ )++instance ToJSVal GPUBlendOperation where+ toJSVal = P.return . pToJSVal++instance PFromJSVal GPUBlendOperation where+ pFromJSVal x = P.maybe (P.error "Unexpected GPUBlendOperation value") P.id (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_GPUBlendOperationAdd, GPUBlendOperationAdd), (js_GPUBlendOperationSubtract, GPUBlendOperationSubtract), (js_GPUBlendOperationReverseSubtract, GPUBlendOperationReverseSubtract), (js_GPUBlendOperationMin, GPUBlendOperationMin), (js_GPUBlendOperationMax, GPUBlendOperationMax)]++instance FromJSVal GPUBlendOperation where+ fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_GPUBlendOperationAdd, GPUBlendOperationAdd), (js_GPUBlendOperationSubtract, GPUBlendOperationSubtract), (js_GPUBlendOperationReverseSubtract, GPUBlendOperationReverseSubtract), (js_GPUBlendOperationMin, GPUBlendOperationMin), (js_GPUBlendOperationMax, GPUBlendOperationMax)]+ fromJSValUnchecked = P.return . pFromJSVal++js_GPUBlendOperationAdd :: JSString+js_GPUBlendOperationAdd = "add"+js_GPUBlendOperationSubtract :: JSString+js_GPUBlendOperationSubtract = "subtract"+js_GPUBlendOperationReverseSubtract :: JSString+js_GPUBlendOperationReverseSubtract = "reverse-subtract"+js_GPUBlendOperationMin :: JSString+js_GPUBlendOperationMin = "min"+js_GPUBlendOperationMax :: JSString+js_GPUBlendOperationMax = "max"++-- | <https://developer.mozilla.org/en-US/docs/Web/API GPUBufferBindingType> (webgpu)+data GPUBufferBindingType = GPUBufferBindingTypeUniform+ | GPUBufferBindingTypeStorage+ | GPUBufferBindingTypeReadOnlyStorage+ deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal GPUBufferBindingType where+ pToJSVal x = pToJSVal (case x of+ GPUBufferBindingTypeUniform -> js_GPUBufferBindingTypeUniform+ GPUBufferBindingTypeStorage -> js_GPUBufferBindingTypeStorage+ GPUBufferBindingTypeReadOnlyStorage -> js_GPUBufferBindingTypeReadOnlyStorage+ )++instance ToJSVal GPUBufferBindingType where+ toJSVal = P.return . pToJSVal++instance PFromJSVal GPUBufferBindingType where+ pFromJSVal x = P.maybe (P.error "Unexpected GPUBufferBindingType value") P.id (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_GPUBufferBindingTypeUniform, GPUBufferBindingTypeUniform), (js_GPUBufferBindingTypeStorage, GPUBufferBindingTypeStorage), (js_GPUBufferBindingTypeReadOnlyStorage, GPUBufferBindingTypeReadOnlyStorage)]++instance FromJSVal GPUBufferBindingType where+ fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_GPUBufferBindingTypeUniform, GPUBufferBindingTypeUniform), (js_GPUBufferBindingTypeStorage, GPUBufferBindingTypeStorage), (js_GPUBufferBindingTypeReadOnlyStorage, GPUBufferBindingTypeReadOnlyStorage)]+ fromJSValUnchecked = P.return . pFromJSVal++js_GPUBufferBindingTypeUniform :: JSString+js_GPUBufferBindingTypeUniform = "uniform"+js_GPUBufferBindingTypeStorage :: JSString+js_GPUBufferBindingTypeStorage = "storage"+js_GPUBufferBindingTypeReadOnlyStorage :: JSString+js_GPUBufferBindingTypeReadOnlyStorage = "read-only-storage"++-- | <https://developer.mozilla.org/en-US/docs/Web/API GPUBufferMapState> (webgpu)+data GPUBufferMapState = GPUBufferMapStateUnmapped+ | GPUBufferMapStatePending+ | GPUBufferMapStateMapped+ deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal GPUBufferMapState where+ pToJSVal x = pToJSVal (case x of+ GPUBufferMapStateUnmapped -> js_GPUBufferMapStateUnmapped+ GPUBufferMapStatePending -> js_GPUBufferMapStatePending+ GPUBufferMapStateMapped -> js_GPUBufferMapStateMapped+ )++instance ToJSVal GPUBufferMapState where+ toJSVal = P.return . pToJSVal++instance PFromJSVal GPUBufferMapState where+ pFromJSVal x = P.maybe (P.error "Unexpected GPUBufferMapState value") P.id (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_GPUBufferMapStateUnmapped, GPUBufferMapStateUnmapped), (js_GPUBufferMapStatePending, GPUBufferMapStatePending), (js_GPUBufferMapStateMapped, GPUBufferMapStateMapped)]++instance FromJSVal GPUBufferMapState where+ fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_GPUBufferMapStateUnmapped, GPUBufferMapStateUnmapped), (js_GPUBufferMapStatePending, GPUBufferMapStatePending), (js_GPUBufferMapStateMapped, GPUBufferMapStateMapped)]+ fromJSValUnchecked = P.return . pFromJSVal++js_GPUBufferMapStateUnmapped :: JSString+js_GPUBufferMapStateUnmapped = "unmapped"+js_GPUBufferMapStatePending :: JSString+js_GPUBufferMapStatePending = "pending"+js_GPUBufferMapStateMapped :: JSString+js_GPUBufferMapStateMapped = "mapped"++-- | <https://developer.mozilla.org/en-US/docs/Web/API GPUCanvasAlphaMode> (webgpu)+data GPUCanvasAlphaMode = GPUCanvasAlphaModeOpaque+ | GPUCanvasAlphaModePremultiplied+ deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal GPUCanvasAlphaMode where+ pToJSVal x = pToJSVal (case x of+ GPUCanvasAlphaModeOpaque -> js_GPUCanvasAlphaModeOpaque+ GPUCanvasAlphaModePremultiplied -> js_GPUCanvasAlphaModePremultiplied+ )++instance ToJSVal GPUCanvasAlphaMode where+ toJSVal = P.return . pToJSVal++instance PFromJSVal GPUCanvasAlphaMode where+ pFromJSVal x = P.maybe (P.error "Unexpected GPUCanvasAlphaMode value") P.id (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_GPUCanvasAlphaModeOpaque, GPUCanvasAlphaModeOpaque), (js_GPUCanvasAlphaModePremultiplied, GPUCanvasAlphaModePremultiplied)]++instance FromJSVal GPUCanvasAlphaMode where+ fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_GPUCanvasAlphaModeOpaque, GPUCanvasAlphaModeOpaque), (js_GPUCanvasAlphaModePremultiplied, GPUCanvasAlphaModePremultiplied)]+ fromJSValUnchecked = P.return . pFromJSVal++js_GPUCanvasAlphaModeOpaque :: JSString+js_GPUCanvasAlphaModeOpaque = "opaque"+js_GPUCanvasAlphaModePremultiplied :: JSString+js_GPUCanvasAlphaModePremultiplied = "premultiplied"++-- | <https://developer.mozilla.org/en-US/docs/Web/API GPUCanvasToneMappingMode> (webgpu)+data GPUCanvasToneMappingMode = GPUCanvasToneMappingModeStandard+ | GPUCanvasToneMappingModeExtended+ deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal GPUCanvasToneMappingMode where+ pToJSVal x = pToJSVal (case x of+ GPUCanvasToneMappingModeStandard -> js_GPUCanvasToneMappingModeStandard+ GPUCanvasToneMappingModeExtended -> js_GPUCanvasToneMappingModeExtended+ )++instance ToJSVal GPUCanvasToneMappingMode where+ toJSVal = P.return . pToJSVal++instance PFromJSVal GPUCanvasToneMappingMode where+ pFromJSVal x = P.maybe (P.error "Unexpected GPUCanvasToneMappingMode value") P.id (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_GPUCanvasToneMappingModeStandard, GPUCanvasToneMappingModeStandard), (js_GPUCanvasToneMappingModeExtended, GPUCanvasToneMappingModeExtended)]++instance FromJSVal GPUCanvasToneMappingMode where+ fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_GPUCanvasToneMappingModeStandard, GPUCanvasToneMappingModeStandard), (js_GPUCanvasToneMappingModeExtended, GPUCanvasToneMappingModeExtended)]+ fromJSValUnchecked = P.return . pFromJSVal++js_GPUCanvasToneMappingModeStandard :: JSString+js_GPUCanvasToneMappingModeStandard = "standard"+js_GPUCanvasToneMappingModeExtended :: JSString+js_GPUCanvasToneMappingModeExtended = "extended"++-- | <https://developer.mozilla.org/en-US/docs/Web/API GPUCompareFunction> (webgpu)+data GPUCompareFunction = GPUCompareFunctionNever+ | GPUCompareFunctionLess+ | GPUCompareFunctionEqual+ | GPUCompareFunctionLessEqual+ | GPUCompareFunctionGreater+ | GPUCompareFunctionNotEqual+ | GPUCompareFunctionGreaterEqual+ | GPUCompareFunctionAlways+ deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal GPUCompareFunction where+ pToJSVal x = pToJSVal (case x of+ GPUCompareFunctionNever -> js_GPUCompareFunctionNever+ GPUCompareFunctionLess -> js_GPUCompareFunctionLess+ GPUCompareFunctionEqual -> js_GPUCompareFunctionEqual+ GPUCompareFunctionLessEqual -> js_GPUCompareFunctionLessEqual+ GPUCompareFunctionGreater -> js_GPUCompareFunctionGreater+ GPUCompareFunctionNotEqual -> js_GPUCompareFunctionNotEqual+ GPUCompareFunctionGreaterEqual -> js_GPUCompareFunctionGreaterEqual+ GPUCompareFunctionAlways -> js_GPUCompareFunctionAlways+ )++instance ToJSVal GPUCompareFunction where+ toJSVal = P.return . pToJSVal++instance PFromJSVal GPUCompareFunction where+ pFromJSVal x = P.maybe (P.error "Unexpected GPUCompareFunction value") P.id (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_GPUCompareFunctionNever, GPUCompareFunctionNever), (js_GPUCompareFunctionLess, GPUCompareFunctionLess), (js_GPUCompareFunctionEqual, GPUCompareFunctionEqual), (js_GPUCompareFunctionLessEqual, GPUCompareFunctionLessEqual), (js_GPUCompareFunctionGreater, GPUCompareFunctionGreater), (js_GPUCompareFunctionNotEqual, GPUCompareFunctionNotEqual), (js_GPUCompareFunctionGreaterEqual, GPUCompareFunctionGreaterEqual), (js_GPUCompareFunctionAlways, GPUCompareFunctionAlways)]++instance FromJSVal GPUCompareFunction where+ fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_GPUCompareFunctionNever, GPUCompareFunctionNever), (js_GPUCompareFunctionLess, GPUCompareFunctionLess), (js_GPUCompareFunctionEqual, GPUCompareFunctionEqual), (js_GPUCompareFunctionLessEqual, GPUCompareFunctionLessEqual), (js_GPUCompareFunctionGreater, GPUCompareFunctionGreater), (js_GPUCompareFunctionNotEqual, GPUCompareFunctionNotEqual), (js_GPUCompareFunctionGreaterEqual, GPUCompareFunctionGreaterEqual), (js_GPUCompareFunctionAlways, GPUCompareFunctionAlways)]+ fromJSValUnchecked = P.return . pFromJSVal++js_GPUCompareFunctionNever :: JSString+js_GPUCompareFunctionNever = "never"+js_GPUCompareFunctionLess :: JSString+js_GPUCompareFunctionLess = "less"+js_GPUCompareFunctionEqual :: JSString+js_GPUCompareFunctionEqual = "equal"+js_GPUCompareFunctionLessEqual :: JSString+js_GPUCompareFunctionLessEqual = "less-equal"+js_GPUCompareFunctionGreater :: JSString+js_GPUCompareFunctionGreater = "greater"+js_GPUCompareFunctionNotEqual :: JSString+js_GPUCompareFunctionNotEqual = "not-equal"+js_GPUCompareFunctionGreaterEqual :: JSString+js_GPUCompareFunctionGreaterEqual = "greater-equal"+js_GPUCompareFunctionAlways :: JSString+js_GPUCompareFunctionAlways = "always"++-- | <https://developer.mozilla.org/en-US/docs/Web/API GPUCompilationMessageType> (webgpu)+data GPUCompilationMessageType = GPUCompilationMessageTypeError+ | GPUCompilationMessageTypeWarning+ | GPUCompilationMessageTypeInfo+ deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal GPUCompilationMessageType where+ pToJSVal x = pToJSVal (case x of+ GPUCompilationMessageTypeError -> js_GPUCompilationMessageTypeError+ GPUCompilationMessageTypeWarning -> js_GPUCompilationMessageTypeWarning+ GPUCompilationMessageTypeInfo -> js_GPUCompilationMessageTypeInfo+ )++instance ToJSVal GPUCompilationMessageType where+ toJSVal = P.return . pToJSVal++instance PFromJSVal GPUCompilationMessageType where+ pFromJSVal x = P.maybe (P.error "Unexpected GPUCompilationMessageType value") P.id (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_GPUCompilationMessageTypeError, GPUCompilationMessageTypeError), (js_GPUCompilationMessageTypeWarning, GPUCompilationMessageTypeWarning), (js_GPUCompilationMessageTypeInfo, GPUCompilationMessageTypeInfo)]++instance FromJSVal GPUCompilationMessageType where+ fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_GPUCompilationMessageTypeError, GPUCompilationMessageTypeError), (js_GPUCompilationMessageTypeWarning, GPUCompilationMessageTypeWarning), (js_GPUCompilationMessageTypeInfo, GPUCompilationMessageTypeInfo)]+ fromJSValUnchecked = P.return . pFromJSVal++js_GPUCompilationMessageTypeError :: JSString+js_GPUCompilationMessageTypeError = "error"+js_GPUCompilationMessageTypeWarning :: JSString+js_GPUCompilationMessageTypeWarning = "warning"+js_GPUCompilationMessageTypeInfo :: JSString+js_GPUCompilationMessageTypeInfo = "info"++-- | <https://developer.mozilla.org/en-US/docs/Web/API GPUCullMode> (webgpu)+data GPUCullMode = GPUCullModeNone+ | GPUCullModeFront+ | GPUCullModeBack+ deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal GPUCullMode where+ pToJSVal x = pToJSVal (case x of+ GPUCullModeNone -> js_GPUCullModeNone+ GPUCullModeFront -> js_GPUCullModeFront+ GPUCullModeBack -> js_GPUCullModeBack+ )++instance ToJSVal GPUCullMode where+ toJSVal = P.return . pToJSVal++instance PFromJSVal GPUCullMode where+ pFromJSVal x = P.maybe (P.error "Unexpected GPUCullMode value") P.id (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_GPUCullModeNone, GPUCullModeNone), (js_GPUCullModeFront, GPUCullModeFront), (js_GPUCullModeBack, GPUCullModeBack)]++instance FromJSVal GPUCullMode where+ fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_GPUCullModeNone, GPUCullModeNone), (js_GPUCullModeFront, GPUCullModeFront), (js_GPUCullModeBack, GPUCullModeBack)]+ fromJSValUnchecked = P.return . pFromJSVal++js_GPUCullModeNone :: JSString+js_GPUCullModeNone = "none"+js_GPUCullModeFront :: JSString+js_GPUCullModeFront = "front"+js_GPUCullModeBack :: JSString+js_GPUCullModeBack = "back"++-- | <https://developer.mozilla.org/en-US/docs/Web/API GPUDeviceLostReason> (webgpu)+data GPUDeviceLostReason = GPUDeviceLostReasonUnknown+ | GPUDeviceLostReasonDestroyed+ deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal GPUDeviceLostReason where+ pToJSVal x = pToJSVal (case x of+ GPUDeviceLostReasonUnknown -> js_GPUDeviceLostReasonUnknown+ GPUDeviceLostReasonDestroyed -> js_GPUDeviceLostReasonDestroyed+ )++instance ToJSVal GPUDeviceLostReason where+ toJSVal = P.return . pToJSVal++instance PFromJSVal GPUDeviceLostReason where+ pFromJSVal x = P.maybe (P.error "Unexpected GPUDeviceLostReason value") P.id (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_GPUDeviceLostReasonUnknown, GPUDeviceLostReasonUnknown), (js_GPUDeviceLostReasonDestroyed, GPUDeviceLostReasonDestroyed)]++instance FromJSVal GPUDeviceLostReason where+ fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_GPUDeviceLostReasonUnknown, GPUDeviceLostReasonUnknown), (js_GPUDeviceLostReasonDestroyed, GPUDeviceLostReasonDestroyed)]+ fromJSValUnchecked = P.return . pFromJSVal++js_GPUDeviceLostReasonUnknown :: JSString+js_GPUDeviceLostReasonUnknown = "unknown"+js_GPUDeviceLostReasonDestroyed :: JSString+js_GPUDeviceLostReasonDestroyed = "destroyed"++-- | <https://developer.mozilla.org/en-US/docs/Web/API GPUErrorFilter> (webgpu)+data GPUErrorFilter = GPUErrorFilterValidation+ | GPUErrorFilterOutOfMemory+ | GPUErrorFilterInternal+ deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal GPUErrorFilter where+ pToJSVal x = pToJSVal (case x of+ GPUErrorFilterValidation -> js_GPUErrorFilterValidation+ GPUErrorFilterOutOfMemory -> js_GPUErrorFilterOutOfMemory+ GPUErrorFilterInternal -> js_GPUErrorFilterInternal+ )++instance ToJSVal GPUErrorFilter where+ toJSVal = P.return . pToJSVal++instance PFromJSVal GPUErrorFilter where+ pFromJSVal x = P.maybe (P.error "Unexpected GPUErrorFilter value") P.id (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_GPUErrorFilterValidation, GPUErrorFilterValidation), (js_GPUErrorFilterOutOfMemory, GPUErrorFilterOutOfMemory), (js_GPUErrorFilterInternal, GPUErrorFilterInternal)]++instance FromJSVal GPUErrorFilter where+ fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_GPUErrorFilterValidation, GPUErrorFilterValidation), (js_GPUErrorFilterOutOfMemory, GPUErrorFilterOutOfMemory), (js_GPUErrorFilterInternal, GPUErrorFilterInternal)]+ fromJSValUnchecked = P.return . pFromJSVal++js_GPUErrorFilterValidation :: JSString+js_GPUErrorFilterValidation = "validation"+js_GPUErrorFilterOutOfMemory :: JSString+js_GPUErrorFilterOutOfMemory = "out-of-memory"+js_GPUErrorFilterInternal :: JSString+js_GPUErrorFilterInternal = "internal"++-- | <https://developer.mozilla.org/en-US/docs/Web/API GPUFeatureName> (webgpu)+data GPUFeatureName = GPUFeatureNameCoreFeaturesAndLimits+ | GPUFeatureNameDepthClipControl+ | GPUFeatureNameDepth32floatStencil8+ | GPUFeatureNameTextureCompressionBc+ | GPUFeatureNameTextureCompressionBcSliced3d+ | GPUFeatureNameTextureCompressionEtc2+ | GPUFeatureNameTextureCompressionAstc+ | GPUFeatureNameTextureCompressionAstcSliced3d+ | GPUFeatureNameTimestampQuery+ | GPUFeatureNameIndirectFirstInstance+ | GPUFeatureNameShaderF16+ | GPUFeatureNameRg11b10ufloatRenderable+ | GPUFeatureNameBgra8unormStorage+ | GPUFeatureNameFloat32Filterable+ | GPUFeatureNameFloat32Blendable+ | GPUFeatureNameClipDistances+ | GPUFeatureNameDualSourceBlending+ | GPUFeatureNameSubgroups+ | GPUFeatureNameTextureFormatsTier1+ | GPUFeatureNameTextureFormatsTier2+ | GPUFeatureNamePrimitiveIndex+ | GPUFeatureNameTextureComponentSwizzle+ | GPUFeatureNameSubgroupSizeControl+ | GPUFeatureNameTextureCompressionUnaligned+ | GPUFeatureNameAtomicVec2uMinMax+ deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal GPUFeatureName where+ pToJSVal x = pToJSVal (case x of+ GPUFeatureNameCoreFeaturesAndLimits -> js_GPUFeatureNameCoreFeaturesAndLimits+ GPUFeatureNameDepthClipControl -> js_GPUFeatureNameDepthClipControl+ GPUFeatureNameDepth32floatStencil8 -> js_GPUFeatureNameDepth32floatStencil8+ GPUFeatureNameTextureCompressionBc -> js_GPUFeatureNameTextureCompressionBc+ GPUFeatureNameTextureCompressionBcSliced3d -> js_GPUFeatureNameTextureCompressionBcSliced3d+ GPUFeatureNameTextureCompressionEtc2 -> js_GPUFeatureNameTextureCompressionEtc2+ GPUFeatureNameTextureCompressionAstc -> js_GPUFeatureNameTextureCompressionAstc+ GPUFeatureNameTextureCompressionAstcSliced3d -> js_GPUFeatureNameTextureCompressionAstcSliced3d+ GPUFeatureNameTimestampQuery -> js_GPUFeatureNameTimestampQuery+ GPUFeatureNameIndirectFirstInstance -> js_GPUFeatureNameIndirectFirstInstance+ GPUFeatureNameShaderF16 -> js_GPUFeatureNameShaderF16+ GPUFeatureNameRg11b10ufloatRenderable -> js_GPUFeatureNameRg11b10ufloatRenderable+ GPUFeatureNameBgra8unormStorage -> js_GPUFeatureNameBgra8unormStorage+ GPUFeatureNameFloat32Filterable -> js_GPUFeatureNameFloat32Filterable+ GPUFeatureNameFloat32Blendable -> js_GPUFeatureNameFloat32Blendable+ GPUFeatureNameClipDistances -> js_GPUFeatureNameClipDistances+ GPUFeatureNameDualSourceBlending -> js_GPUFeatureNameDualSourceBlending+ GPUFeatureNameSubgroups -> js_GPUFeatureNameSubgroups+ GPUFeatureNameTextureFormatsTier1 -> js_GPUFeatureNameTextureFormatsTier1+ GPUFeatureNameTextureFormatsTier2 -> js_GPUFeatureNameTextureFormatsTier2+ GPUFeatureNamePrimitiveIndex -> js_GPUFeatureNamePrimitiveIndex+ GPUFeatureNameTextureComponentSwizzle -> js_GPUFeatureNameTextureComponentSwizzle+ GPUFeatureNameSubgroupSizeControl -> js_GPUFeatureNameSubgroupSizeControl+ GPUFeatureNameTextureCompressionUnaligned -> js_GPUFeatureNameTextureCompressionUnaligned+ GPUFeatureNameAtomicVec2uMinMax -> js_GPUFeatureNameAtomicVec2uMinMax+ )++instance ToJSVal GPUFeatureName where+ toJSVal = P.return . pToJSVal++instance PFromJSVal GPUFeatureName where+ pFromJSVal x = P.maybe (P.error "Unexpected GPUFeatureName value") P.id (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_GPUFeatureNameCoreFeaturesAndLimits, GPUFeatureNameCoreFeaturesAndLimits), (js_GPUFeatureNameDepthClipControl, GPUFeatureNameDepthClipControl), (js_GPUFeatureNameDepth32floatStencil8, GPUFeatureNameDepth32floatStencil8), (js_GPUFeatureNameTextureCompressionBc, GPUFeatureNameTextureCompressionBc), (js_GPUFeatureNameTextureCompressionBcSliced3d, GPUFeatureNameTextureCompressionBcSliced3d), (js_GPUFeatureNameTextureCompressionEtc2, GPUFeatureNameTextureCompressionEtc2), (js_GPUFeatureNameTextureCompressionAstc, GPUFeatureNameTextureCompressionAstc), (js_GPUFeatureNameTextureCompressionAstcSliced3d, GPUFeatureNameTextureCompressionAstcSliced3d), (js_GPUFeatureNameTimestampQuery, GPUFeatureNameTimestampQuery), (js_GPUFeatureNameIndirectFirstInstance, GPUFeatureNameIndirectFirstInstance), (js_GPUFeatureNameShaderF16, GPUFeatureNameShaderF16), (js_GPUFeatureNameRg11b10ufloatRenderable, GPUFeatureNameRg11b10ufloatRenderable), (js_GPUFeatureNameBgra8unormStorage, GPUFeatureNameBgra8unormStorage), (js_GPUFeatureNameFloat32Filterable, GPUFeatureNameFloat32Filterable), (js_GPUFeatureNameFloat32Blendable, GPUFeatureNameFloat32Blendable), (js_GPUFeatureNameClipDistances, GPUFeatureNameClipDistances), (js_GPUFeatureNameDualSourceBlending, GPUFeatureNameDualSourceBlending), (js_GPUFeatureNameSubgroups, GPUFeatureNameSubgroups), (js_GPUFeatureNameTextureFormatsTier1, GPUFeatureNameTextureFormatsTier1), (js_GPUFeatureNameTextureFormatsTier2, GPUFeatureNameTextureFormatsTier2), (js_GPUFeatureNamePrimitiveIndex, GPUFeatureNamePrimitiveIndex), (js_GPUFeatureNameTextureComponentSwizzle, GPUFeatureNameTextureComponentSwizzle), (js_GPUFeatureNameSubgroupSizeControl, GPUFeatureNameSubgroupSizeControl), (js_GPUFeatureNameTextureCompressionUnaligned, GPUFeatureNameTextureCompressionUnaligned), (js_GPUFeatureNameAtomicVec2uMinMax, GPUFeatureNameAtomicVec2uMinMax)]++instance FromJSVal GPUFeatureName where+ fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_GPUFeatureNameCoreFeaturesAndLimits, GPUFeatureNameCoreFeaturesAndLimits), (js_GPUFeatureNameDepthClipControl, GPUFeatureNameDepthClipControl), (js_GPUFeatureNameDepth32floatStencil8, GPUFeatureNameDepth32floatStencil8), (js_GPUFeatureNameTextureCompressionBc, GPUFeatureNameTextureCompressionBc), (js_GPUFeatureNameTextureCompressionBcSliced3d, GPUFeatureNameTextureCompressionBcSliced3d), (js_GPUFeatureNameTextureCompressionEtc2, GPUFeatureNameTextureCompressionEtc2), (js_GPUFeatureNameTextureCompressionAstc, GPUFeatureNameTextureCompressionAstc), (js_GPUFeatureNameTextureCompressionAstcSliced3d, GPUFeatureNameTextureCompressionAstcSliced3d), (js_GPUFeatureNameTimestampQuery, GPUFeatureNameTimestampQuery), (js_GPUFeatureNameIndirectFirstInstance, GPUFeatureNameIndirectFirstInstance), (js_GPUFeatureNameShaderF16, GPUFeatureNameShaderF16), (js_GPUFeatureNameRg11b10ufloatRenderable, GPUFeatureNameRg11b10ufloatRenderable), (js_GPUFeatureNameBgra8unormStorage, GPUFeatureNameBgra8unormStorage), (js_GPUFeatureNameFloat32Filterable, GPUFeatureNameFloat32Filterable), (js_GPUFeatureNameFloat32Blendable, GPUFeatureNameFloat32Blendable), (js_GPUFeatureNameClipDistances, GPUFeatureNameClipDistances), (js_GPUFeatureNameDualSourceBlending, GPUFeatureNameDualSourceBlending), (js_GPUFeatureNameSubgroups, GPUFeatureNameSubgroups), (js_GPUFeatureNameTextureFormatsTier1, GPUFeatureNameTextureFormatsTier1), (js_GPUFeatureNameTextureFormatsTier2, GPUFeatureNameTextureFormatsTier2), (js_GPUFeatureNamePrimitiveIndex, GPUFeatureNamePrimitiveIndex), (js_GPUFeatureNameTextureComponentSwizzle, GPUFeatureNameTextureComponentSwizzle), (js_GPUFeatureNameSubgroupSizeControl, GPUFeatureNameSubgroupSizeControl), (js_GPUFeatureNameTextureCompressionUnaligned, GPUFeatureNameTextureCompressionUnaligned), (js_GPUFeatureNameAtomicVec2uMinMax, GPUFeatureNameAtomicVec2uMinMax)]+ fromJSValUnchecked = P.return . pFromJSVal++js_GPUFeatureNameCoreFeaturesAndLimits :: JSString+js_GPUFeatureNameCoreFeaturesAndLimits = "core-features-and-limits"+js_GPUFeatureNameDepthClipControl :: JSString+js_GPUFeatureNameDepthClipControl = "depth-clip-control"+js_GPUFeatureNameDepth32floatStencil8 :: JSString+js_GPUFeatureNameDepth32floatStencil8 = "depth32float-stencil8"+js_GPUFeatureNameTextureCompressionBc :: JSString+js_GPUFeatureNameTextureCompressionBc = "texture-compression-bc"+js_GPUFeatureNameTextureCompressionBcSliced3d :: JSString+js_GPUFeatureNameTextureCompressionBcSliced3d = "texture-compression-bc-sliced-3d"+js_GPUFeatureNameTextureCompressionEtc2 :: JSString+js_GPUFeatureNameTextureCompressionEtc2 = "texture-compression-etc2"+js_GPUFeatureNameTextureCompressionAstc :: JSString+js_GPUFeatureNameTextureCompressionAstc = "texture-compression-astc"+js_GPUFeatureNameTextureCompressionAstcSliced3d :: JSString+js_GPUFeatureNameTextureCompressionAstcSliced3d = "texture-compression-astc-sliced-3d"+js_GPUFeatureNameTimestampQuery :: JSString+js_GPUFeatureNameTimestampQuery = "timestamp-query"+js_GPUFeatureNameIndirectFirstInstance :: JSString+js_GPUFeatureNameIndirectFirstInstance = "indirect-first-instance"+js_GPUFeatureNameShaderF16 :: JSString+js_GPUFeatureNameShaderF16 = "shader-f16"+js_GPUFeatureNameRg11b10ufloatRenderable :: JSString+js_GPUFeatureNameRg11b10ufloatRenderable = "rg11b10ufloat-renderable"+js_GPUFeatureNameBgra8unormStorage :: JSString+js_GPUFeatureNameBgra8unormStorage = "bgra8unorm-storage"+js_GPUFeatureNameFloat32Filterable :: JSString+js_GPUFeatureNameFloat32Filterable = "float32-filterable"+js_GPUFeatureNameFloat32Blendable :: JSString+js_GPUFeatureNameFloat32Blendable = "float32-blendable"+js_GPUFeatureNameClipDistances :: JSString+js_GPUFeatureNameClipDistances = "clip-distances"+js_GPUFeatureNameDualSourceBlending :: JSString+js_GPUFeatureNameDualSourceBlending = "dual-source-blending"+js_GPUFeatureNameSubgroups :: JSString+js_GPUFeatureNameSubgroups = "subgroups"+js_GPUFeatureNameTextureFormatsTier1 :: JSString+js_GPUFeatureNameTextureFormatsTier1 = "texture-formats-tier1"+js_GPUFeatureNameTextureFormatsTier2 :: JSString+js_GPUFeatureNameTextureFormatsTier2 = "texture-formats-tier2"+js_GPUFeatureNamePrimitiveIndex :: JSString+js_GPUFeatureNamePrimitiveIndex = "primitive-index"+js_GPUFeatureNameTextureComponentSwizzle :: JSString+js_GPUFeatureNameTextureComponentSwizzle = "texture-component-swizzle"+js_GPUFeatureNameSubgroupSizeControl :: JSString+js_GPUFeatureNameSubgroupSizeControl = "subgroup-size-control"+js_GPUFeatureNameTextureCompressionUnaligned :: JSString+js_GPUFeatureNameTextureCompressionUnaligned = "texture-compression-unaligned"+js_GPUFeatureNameAtomicVec2uMinMax :: JSString+js_GPUFeatureNameAtomicVec2uMinMax = "atomic-vec2u-min-max"++-- | <https://developer.mozilla.org/en-US/docs/Web/API GPUFilterMode> (webgpu)+data GPUFilterMode = GPUFilterModeNearest+ | GPUFilterModeLinear+ deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal GPUFilterMode where+ pToJSVal x = pToJSVal (case x of+ GPUFilterModeNearest -> js_GPUFilterModeNearest+ GPUFilterModeLinear -> js_GPUFilterModeLinear+ )++instance ToJSVal GPUFilterMode where+ toJSVal = P.return . pToJSVal++instance PFromJSVal GPUFilterMode where+ pFromJSVal x = P.maybe (P.error "Unexpected GPUFilterMode value") P.id (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_GPUFilterModeNearest, GPUFilterModeNearest), (js_GPUFilterModeLinear, GPUFilterModeLinear)]++instance FromJSVal GPUFilterMode where+ fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_GPUFilterModeNearest, GPUFilterModeNearest), (js_GPUFilterModeLinear, GPUFilterModeLinear)]+ fromJSValUnchecked = P.return . pFromJSVal++js_GPUFilterModeNearest :: JSString+js_GPUFilterModeNearest = "nearest"+js_GPUFilterModeLinear :: JSString+js_GPUFilterModeLinear = "linear"++-- | <https://developer.mozilla.org/en-US/docs/Web/API GPUFrontFace> (webgpu)+data GPUFrontFace = GPUFrontFaceCcw+ | GPUFrontFaceCw+ deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal GPUFrontFace where+ pToJSVal x = pToJSVal (case x of+ GPUFrontFaceCcw -> js_GPUFrontFaceCcw+ GPUFrontFaceCw -> js_GPUFrontFaceCw+ )++instance ToJSVal GPUFrontFace where+ toJSVal = P.return . pToJSVal++instance PFromJSVal GPUFrontFace where+ pFromJSVal x = P.maybe (P.error "Unexpected GPUFrontFace value") P.id (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_GPUFrontFaceCcw, GPUFrontFaceCcw), (js_GPUFrontFaceCw, GPUFrontFaceCw)]++instance FromJSVal GPUFrontFace where+ fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_GPUFrontFaceCcw, GPUFrontFaceCcw), (js_GPUFrontFaceCw, GPUFrontFaceCw)]+ fromJSValUnchecked = P.return . pFromJSVal++js_GPUFrontFaceCcw :: JSString+js_GPUFrontFaceCcw = "ccw"+js_GPUFrontFaceCw :: JSString+js_GPUFrontFaceCw = "cw"++-- | <https://developer.mozilla.org/en-US/docs/Web/API GPUIndexFormat> (webgpu)+data GPUIndexFormat = GPUIndexFormatUint16+ | GPUIndexFormatUint32+ deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal GPUIndexFormat where+ pToJSVal x = pToJSVal (case x of+ GPUIndexFormatUint16 -> js_GPUIndexFormatUint16+ GPUIndexFormatUint32 -> js_GPUIndexFormatUint32+ )++instance ToJSVal GPUIndexFormat where+ toJSVal = P.return . pToJSVal++instance PFromJSVal GPUIndexFormat where+ pFromJSVal x = P.maybe (P.error "Unexpected GPUIndexFormat value") P.id (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_GPUIndexFormatUint16, GPUIndexFormatUint16), (js_GPUIndexFormatUint32, GPUIndexFormatUint32)]++instance FromJSVal GPUIndexFormat where+ fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_GPUIndexFormatUint16, GPUIndexFormatUint16), (js_GPUIndexFormatUint32, GPUIndexFormatUint32)]+ fromJSValUnchecked = P.return . pFromJSVal++js_GPUIndexFormatUint16 :: JSString+js_GPUIndexFormatUint16 = "uint16"+js_GPUIndexFormatUint32 :: JSString+js_GPUIndexFormatUint32 = "uint32"++-- | <https://developer.mozilla.org/en-US/docs/Web/API GPULoadOp> (webgpu)+data GPULoadOp = GPULoadOpLoad+ | GPULoadOpClear+ deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal GPULoadOp where+ pToJSVal x = pToJSVal (case x of+ GPULoadOpLoad -> js_GPULoadOpLoad+ GPULoadOpClear -> js_GPULoadOpClear+ )++instance ToJSVal GPULoadOp where+ toJSVal = P.return . pToJSVal++instance PFromJSVal GPULoadOp where+ pFromJSVal x = P.maybe (P.error "Unexpected GPULoadOp value") P.id (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_GPULoadOpLoad, GPULoadOpLoad), (js_GPULoadOpClear, GPULoadOpClear)]++instance FromJSVal GPULoadOp where+ fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_GPULoadOpLoad, GPULoadOpLoad), (js_GPULoadOpClear, GPULoadOpClear)]+ fromJSValUnchecked = P.return . pFromJSVal++js_GPULoadOpLoad :: JSString+js_GPULoadOpLoad = "load"+js_GPULoadOpClear :: JSString+js_GPULoadOpClear = "clear"++-- | <https://developer.mozilla.org/en-US/docs/Web/API GPUMipmapFilterMode> (webgpu)+data GPUMipmapFilterMode = GPUMipmapFilterModeNearest+ | GPUMipmapFilterModeLinear+ deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal GPUMipmapFilterMode where+ pToJSVal x = pToJSVal (case x of+ GPUMipmapFilterModeNearest -> js_GPUMipmapFilterModeNearest+ GPUMipmapFilterModeLinear -> js_GPUMipmapFilterModeLinear+ )++instance ToJSVal GPUMipmapFilterMode where+ toJSVal = P.return . pToJSVal++instance PFromJSVal GPUMipmapFilterMode where+ pFromJSVal x = P.maybe (P.error "Unexpected GPUMipmapFilterMode value") P.id (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_GPUMipmapFilterModeNearest, GPUMipmapFilterModeNearest), (js_GPUMipmapFilterModeLinear, GPUMipmapFilterModeLinear)]++instance FromJSVal GPUMipmapFilterMode where+ fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_GPUMipmapFilterModeNearest, GPUMipmapFilterModeNearest), (js_GPUMipmapFilterModeLinear, GPUMipmapFilterModeLinear)]+ fromJSValUnchecked = P.return . pFromJSVal++js_GPUMipmapFilterModeNearest :: JSString+js_GPUMipmapFilterModeNearest = "nearest"+js_GPUMipmapFilterModeLinear :: JSString+js_GPUMipmapFilterModeLinear = "linear"++-- | <https://developer.mozilla.org/en-US/docs/Web/API GPUPipelineErrorReason> (webgpu)+data GPUPipelineErrorReason = GPUPipelineErrorReasonValidation+ | GPUPipelineErrorReasonInternal+ deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal GPUPipelineErrorReason where+ pToJSVal x = pToJSVal (case x of+ GPUPipelineErrorReasonValidation -> js_GPUPipelineErrorReasonValidation+ GPUPipelineErrorReasonInternal -> js_GPUPipelineErrorReasonInternal+ )++instance ToJSVal GPUPipelineErrorReason where+ toJSVal = P.return . pToJSVal++instance PFromJSVal GPUPipelineErrorReason where+ pFromJSVal x = P.maybe (P.error "Unexpected GPUPipelineErrorReason value") P.id (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_GPUPipelineErrorReasonValidation, GPUPipelineErrorReasonValidation), (js_GPUPipelineErrorReasonInternal, GPUPipelineErrorReasonInternal)]++instance FromJSVal GPUPipelineErrorReason where+ fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_GPUPipelineErrorReasonValidation, GPUPipelineErrorReasonValidation), (js_GPUPipelineErrorReasonInternal, GPUPipelineErrorReasonInternal)]+ fromJSValUnchecked = P.return . pFromJSVal++js_GPUPipelineErrorReasonValidation :: JSString+js_GPUPipelineErrorReasonValidation = "validation"+js_GPUPipelineErrorReasonInternal :: JSString+js_GPUPipelineErrorReasonInternal = "internal"++-- | <https://developer.mozilla.org/en-US/docs/Web/API GPUPowerPreference> (webgpu)+data GPUPowerPreference = GPUPowerPreferenceLowPower+ | GPUPowerPreferenceHighPerformance+ deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal GPUPowerPreference where+ pToJSVal x = pToJSVal (case x of+ GPUPowerPreferenceLowPower -> js_GPUPowerPreferenceLowPower+ GPUPowerPreferenceHighPerformance -> js_GPUPowerPreferenceHighPerformance+ )++instance ToJSVal GPUPowerPreference where+ toJSVal = P.return . pToJSVal++instance PFromJSVal GPUPowerPreference where+ pFromJSVal x = P.maybe (P.error "Unexpected GPUPowerPreference value") P.id (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_GPUPowerPreferenceLowPower, GPUPowerPreferenceLowPower), (js_GPUPowerPreferenceHighPerformance, GPUPowerPreferenceHighPerformance)]++instance FromJSVal GPUPowerPreference where+ fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_GPUPowerPreferenceLowPower, GPUPowerPreferenceLowPower), (js_GPUPowerPreferenceHighPerformance, GPUPowerPreferenceHighPerformance)]+ fromJSValUnchecked = P.return . pFromJSVal++js_GPUPowerPreferenceLowPower :: JSString+js_GPUPowerPreferenceLowPower = "low-power"+js_GPUPowerPreferenceHighPerformance :: JSString+js_GPUPowerPreferenceHighPerformance = "high-performance"++-- | <https://developer.mozilla.org/en-US/docs/Web/API GPUPrimitiveTopology> (webgpu)+data GPUPrimitiveTopology = GPUPrimitiveTopologyPointList+ | GPUPrimitiveTopologyLineList+ | GPUPrimitiveTopologyLineStrip+ | GPUPrimitiveTopologyTriangleList+ | GPUPrimitiveTopologyTriangleStrip+ deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal GPUPrimitiveTopology where+ pToJSVal x = pToJSVal (case x of+ GPUPrimitiveTopologyPointList -> js_GPUPrimitiveTopologyPointList+ GPUPrimitiveTopologyLineList -> js_GPUPrimitiveTopologyLineList+ GPUPrimitiveTopologyLineStrip -> js_GPUPrimitiveTopologyLineStrip+ GPUPrimitiveTopologyTriangleList -> js_GPUPrimitiveTopologyTriangleList+ GPUPrimitiveTopologyTriangleStrip -> js_GPUPrimitiveTopologyTriangleStrip+ )++instance ToJSVal GPUPrimitiveTopology where+ toJSVal = P.return . pToJSVal++instance PFromJSVal GPUPrimitiveTopology where+ pFromJSVal x = P.maybe (P.error "Unexpected GPUPrimitiveTopology value") P.id (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_GPUPrimitiveTopologyPointList, GPUPrimitiveTopologyPointList), (js_GPUPrimitiveTopologyLineList, GPUPrimitiveTopologyLineList), (js_GPUPrimitiveTopologyLineStrip, GPUPrimitiveTopologyLineStrip), (js_GPUPrimitiveTopologyTriangleList, GPUPrimitiveTopologyTriangleList), (js_GPUPrimitiveTopologyTriangleStrip, GPUPrimitiveTopologyTriangleStrip)]++instance FromJSVal GPUPrimitiveTopology where+ fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_GPUPrimitiveTopologyPointList, GPUPrimitiveTopologyPointList), (js_GPUPrimitiveTopologyLineList, GPUPrimitiveTopologyLineList), (js_GPUPrimitiveTopologyLineStrip, GPUPrimitiveTopologyLineStrip), (js_GPUPrimitiveTopologyTriangleList, GPUPrimitiveTopologyTriangleList), (js_GPUPrimitiveTopologyTriangleStrip, GPUPrimitiveTopologyTriangleStrip)]+ fromJSValUnchecked = P.return . pFromJSVal++js_GPUPrimitiveTopologyPointList :: JSString+js_GPUPrimitiveTopologyPointList = "point-list"+js_GPUPrimitiveTopologyLineList :: JSString+js_GPUPrimitiveTopologyLineList = "line-list"+js_GPUPrimitiveTopologyLineStrip :: JSString+js_GPUPrimitiveTopologyLineStrip = "line-strip"+js_GPUPrimitiveTopologyTriangleList :: JSString+js_GPUPrimitiveTopologyTriangleList = "triangle-list"+js_GPUPrimitiveTopologyTriangleStrip :: JSString+js_GPUPrimitiveTopologyTriangleStrip = "triangle-strip"++-- | <https://developer.mozilla.org/en-US/docs/Web/API GPUQueryType> (webgpu)+data GPUQueryType = GPUQueryTypeOcclusion+ | GPUQueryTypeTimestamp+ deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal GPUQueryType where+ pToJSVal x = pToJSVal (case x of+ GPUQueryTypeOcclusion -> js_GPUQueryTypeOcclusion+ GPUQueryTypeTimestamp -> js_GPUQueryTypeTimestamp+ )++instance ToJSVal GPUQueryType where+ toJSVal = P.return . pToJSVal++instance PFromJSVal GPUQueryType where+ pFromJSVal x = P.maybe (P.error "Unexpected GPUQueryType value") P.id (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_GPUQueryTypeOcclusion, GPUQueryTypeOcclusion), (js_GPUQueryTypeTimestamp, GPUQueryTypeTimestamp)]++instance FromJSVal GPUQueryType where+ fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_GPUQueryTypeOcclusion, GPUQueryTypeOcclusion), (js_GPUQueryTypeTimestamp, GPUQueryTypeTimestamp)]+ fromJSValUnchecked = P.return . pFromJSVal++js_GPUQueryTypeOcclusion :: JSString+js_GPUQueryTypeOcclusion = "occlusion"+js_GPUQueryTypeTimestamp :: JSString+js_GPUQueryTypeTimestamp = "timestamp"++-- | <https://developer.mozilla.org/en-US/docs/Web/API GPUSamplerBindingType> (webgpu)+data GPUSamplerBindingType = GPUSamplerBindingTypeFiltering+ | GPUSamplerBindingTypeNonFiltering+ | GPUSamplerBindingTypeComparison+ deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal GPUSamplerBindingType where+ pToJSVal x = pToJSVal (case x of+ GPUSamplerBindingTypeFiltering -> js_GPUSamplerBindingTypeFiltering+ GPUSamplerBindingTypeNonFiltering -> js_GPUSamplerBindingTypeNonFiltering+ GPUSamplerBindingTypeComparison -> js_GPUSamplerBindingTypeComparison+ )++instance ToJSVal GPUSamplerBindingType where+ toJSVal = P.return . pToJSVal++instance PFromJSVal GPUSamplerBindingType where+ pFromJSVal x = P.maybe (P.error "Unexpected GPUSamplerBindingType value") P.id (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_GPUSamplerBindingTypeFiltering, GPUSamplerBindingTypeFiltering), (js_GPUSamplerBindingTypeNonFiltering, GPUSamplerBindingTypeNonFiltering), (js_GPUSamplerBindingTypeComparison, GPUSamplerBindingTypeComparison)]++instance FromJSVal GPUSamplerBindingType where+ fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_GPUSamplerBindingTypeFiltering, GPUSamplerBindingTypeFiltering), (js_GPUSamplerBindingTypeNonFiltering, GPUSamplerBindingTypeNonFiltering), (js_GPUSamplerBindingTypeComparison, GPUSamplerBindingTypeComparison)]+ fromJSValUnchecked = P.return . pFromJSVal++js_GPUSamplerBindingTypeFiltering :: JSString+js_GPUSamplerBindingTypeFiltering = "filtering"+js_GPUSamplerBindingTypeNonFiltering :: JSString+js_GPUSamplerBindingTypeNonFiltering = "non-filtering"+js_GPUSamplerBindingTypeComparison :: JSString+js_GPUSamplerBindingTypeComparison = "comparison"++-- | <https://developer.mozilla.org/en-US/docs/Web/API GPUStencilOperation> (webgpu)+data GPUStencilOperation = GPUStencilOperationKeep+ | GPUStencilOperationZero+ | GPUStencilOperationReplace+ | GPUStencilOperationInvert+ | GPUStencilOperationIncrementClamp+ | GPUStencilOperationDecrementClamp+ | GPUStencilOperationIncrementWrap+ | GPUStencilOperationDecrementWrap+ deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal GPUStencilOperation where+ pToJSVal x = pToJSVal (case x of+ GPUStencilOperationKeep -> js_GPUStencilOperationKeep+ GPUStencilOperationZero -> js_GPUStencilOperationZero+ GPUStencilOperationReplace -> js_GPUStencilOperationReplace+ GPUStencilOperationInvert -> js_GPUStencilOperationInvert+ GPUStencilOperationIncrementClamp -> js_GPUStencilOperationIncrementClamp+ GPUStencilOperationDecrementClamp -> js_GPUStencilOperationDecrementClamp+ GPUStencilOperationIncrementWrap -> js_GPUStencilOperationIncrementWrap+ GPUStencilOperationDecrementWrap -> js_GPUStencilOperationDecrementWrap+ )++instance ToJSVal GPUStencilOperation where+ toJSVal = P.return . pToJSVal++instance PFromJSVal GPUStencilOperation where+ pFromJSVal x = P.maybe (P.error "Unexpected GPUStencilOperation value") P.id (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_GPUStencilOperationKeep, GPUStencilOperationKeep), (js_GPUStencilOperationZero, GPUStencilOperationZero), (js_GPUStencilOperationReplace, GPUStencilOperationReplace), (js_GPUStencilOperationInvert, GPUStencilOperationInvert), (js_GPUStencilOperationIncrementClamp, GPUStencilOperationIncrementClamp), (js_GPUStencilOperationDecrementClamp, GPUStencilOperationDecrementClamp), (js_GPUStencilOperationIncrementWrap, GPUStencilOperationIncrementWrap), (js_GPUStencilOperationDecrementWrap, GPUStencilOperationDecrementWrap)]++instance FromJSVal GPUStencilOperation where+ fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_GPUStencilOperationKeep, GPUStencilOperationKeep), (js_GPUStencilOperationZero, GPUStencilOperationZero), (js_GPUStencilOperationReplace, GPUStencilOperationReplace), (js_GPUStencilOperationInvert, GPUStencilOperationInvert), (js_GPUStencilOperationIncrementClamp, GPUStencilOperationIncrementClamp), (js_GPUStencilOperationDecrementClamp, GPUStencilOperationDecrementClamp), (js_GPUStencilOperationIncrementWrap, GPUStencilOperationIncrementWrap), (js_GPUStencilOperationDecrementWrap, GPUStencilOperationDecrementWrap)]+ fromJSValUnchecked = P.return . pFromJSVal++js_GPUStencilOperationKeep :: JSString+js_GPUStencilOperationKeep = "keep"+js_GPUStencilOperationZero :: JSString+js_GPUStencilOperationZero = "zero"+js_GPUStencilOperationReplace :: JSString+js_GPUStencilOperationReplace = "replace"+js_GPUStencilOperationInvert :: JSString+js_GPUStencilOperationInvert = "invert"+js_GPUStencilOperationIncrementClamp :: JSString+js_GPUStencilOperationIncrementClamp = "increment-clamp"+js_GPUStencilOperationDecrementClamp :: JSString+js_GPUStencilOperationDecrementClamp = "decrement-clamp"+js_GPUStencilOperationIncrementWrap :: JSString+js_GPUStencilOperationIncrementWrap = "increment-wrap"+js_GPUStencilOperationDecrementWrap :: JSString+js_GPUStencilOperationDecrementWrap = "decrement-wrap"++-- | <https://developer.mozilla.org/en-US/docs/Web/API GPUStorageTextureAccess> (webgpu)+data GPUStorageTextureAccess = GPUStorageTextureAccessWriteOnly+ | GPUStorageTextureAccessReadOnly+ | GPUStorageTextureAccessReadWrite+ deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal GPUStorageTextureAccess where+ pToJSVal x = pToJSVal (case x of+ GPUStorageTextureAccessWriteOnly -> js_GPUStorageTextureAccessWriteOnly+ GPUStorageTextureAccessReadOnly -> js_GPUStorageTextureAccessReadOnly+ GPUStorageTextureAccessReadWrite -> js_GPUStorageTextureAccessReadWrite+ )++instance ToJSVal GPUStorageTextureAccess where+ toJSVal = P.return . pToJSVal++instance PFromJSVal GPUStorageTextureAccess where+ pFromJSVal x = P.maybe (P.error "Unexpected GPUStorageTextureAccess value") P.id (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_GPUStorageTextureAccessWriteOnly, GPUStorageTextureAccessWriteOnly), (js_GPUStorageTextureAccessReadOnly, GPUStorageTextureAccessReadOnly), (js_GPUStorageTextureAccessReadWrite, GPUStorageTextureAccessReadWrite)]++instance FromJSVal GPUStorageTextureAccess where+ fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_GPUStorageTextureAccessWriteOnly, GPUStorageTextureAccessWriteOnly), (js_GPUStorageTextureAccessReadOnly, GPUStorageTextureAccessReadOnly), (js_GPUStorageTextureAccessReadWrite, GPUStorageTextureAccessReadWrite)]+ fromJSValUnchecked = P.return . pFromJSVal++js_GPUStorageTextureAccessWriteOnly :: JSString+js_GPUStorageTextureAccessWriteOnly = "write-only"+js_GPUStorageTextureAccessReadOnly :: JSString+js_GPUStorageTextureAccessReadOnly = "read-only"+js_GPUStorageTextureAccessReadWrite :: JSString+js_GPUStorageTextureAccessReadWrite = "read-write"++-- | <https://developer.mozilla.org/en-US/docs/Web/API GPUStoreOp> (webgpu)+data GPUStoreOp = GPUStoreOpStore+ | GPUStoreOpDiscard+ deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal GPUStoreOp where+ pToJSVal x = pToJSVal (case x of+ GPUStoreOpStore -> js_GPUStoreOpStore+ GPUStoreOpDiscard -> js_GPUStoreOpDiscard+ )++instance ToJSVal GPUStoreOp where+ toJSVal = P.return . pToJSVal++instance PFromJSVal GPUStoreOp where+ pFromJSVal x = P.maybe (P.error "Unexpected GPUStoreOp value") P.id (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_GPUStoreOpStore, GPUStoreOpStore), (js_GPUStoreOpDiscard, GPUStoreOpDiscard)]++instance FromJSVal GPUStoreOp where+ fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_GPUStoreOpStore, GPUStoreOpStore), (js_GPUStoreOpDiscard, GPUStoreOpDiscard)]+ fromJSValUnchecked = P.return . pFromJSVal++js_GPUStoreOpStore :: JSString+js_GPUStoreOpStore = "store"+js_GPUStoreOpDiscard :: JSString+js_GPUStoreOpDiscard = "discard"++-- | <https://developer.mozilla.org/en-US/docs/Web/API GPUTextureAspect> (webgpu)+data GPUTextureAspect = GPUTextureAspectAll+ | GPUTextureAspectStencilOnly+ | GPUTextureAspectDepthOnly+ deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal GPUTextureAspect where+ pToJSVal x = pToJSVal (case x of+ GPUTextureAspectAll -> js_GPUTextureAspectAll+ GPUTextureAspectStencilOnly -> js_GPUTextureAspectStencilOnly+ GPUTextureAspectDepthOnly -> js_GPUTextureAspectDepthOnly+ )++instance ToJSVal GPUTextureAspect where+ toJSVal = P.return . pToJSVal++instance PFromJSVal GPUTextureAspect where+ pFromJSVal x = P.maybe (P.error "Unexpected GPUTextureAspect value") P.id (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_GPUTextureAspectAll, GPUTextureAspectAll), (js_GPUTextureAspectStencilOnly, GPUTextureAspectStencilOnly), (js_GPUTextureAspectDepthOnly, GPUTextureAspectDepthOnly)]++instance FromJSVal GPUTextureAspect where+ fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_GPUTextureAspectAll, GPUTextureAspectAll), (js_GPUTextureAspectStencilOnly, GPUTextureAspectStencilOnly), (js_GPUTextureAspectDepthOnly, GPUTextureAspectDepthOnly)]+ fromJSValUnchecked = P.return . pFromJSVal++js_GPUTextureAspectAll :: JSString+js_GPUTextureAspectAll = "all"+js_GPUTextureAspectStencilOnly :: JSString+js_GPUTextureAspectStencilOnly = "stencil-only"+js_GPUTextureAspectDepthOnly :: JSString+js_GPUTextureAspectDepthOnly = "depth-only"++-- | <https://developer.mozilla.org/en-US/docs/Web/API GPUTextureDimension> (webgpu)+data GPUTextureDimension = GPUTextureDimension1d+ | GPUTextureDimension2d+ | GPUTextureDimension3d+ deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal GPUTextureDimension where+ pToJSVal x = pToJSVal (case x of+ GPUTextureDimension1d -> js_GPUTextureDimension1d+ GPUTextureDimension2d -> js_GPUTextureDimension2d+ GPUTextureDimension3d -> js_GPUTextureDimension3d+ )++instance ToJSVal GPUTextureDimension where+ toJSVal = P.return . pToJSVal++instance PFromJSVal GPUTextureDimension where+ pFromJSVal x = P.maybe (P.error "Unexpected GPUTextureDimension value") P.id (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_GPUTextureDimension1d, GPUTextureDimension1d), (js_GPUTextureDimension2d, GPUTextureDimension2d), (js_GPUTextureDimension3d, GPUTextureDimension3d)]++instance FromJSVal GPUTextureDimension where+ fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_GPUTextureDimension1d, GPUTextureDimension1d), (js_GPUTextureDimension2d, GPUTextureDimension2d), (js_GPUTextureDimension3d, GPUTextureDimension3d)]+ fromJSValUnchecked = P.return . pFromJSVal++js_GPUTextureDimension1d :: JSString+js_GPUTextureDimension1d = "1d"+js_GPUTextureDimension2d :: JSString+js_GPUTextureDimension2d = "2d"+js_GPUTextureDimension3d :: JSString+js_GPUTextureDimension3d = "3d"++-- | <https://developer.mozilla.org/en-US/docs/Web/API GPUTextureFormat> (webgpu)+data GPUTextureFormat = GPUTextureFormatR8unorm+ | GPUTextureFormatR8snorm+ | GPUTextureFormatR8uint+ | GPUTextureFormatR8sint+ | GPUTextureFormatR16unorm+ | GPUTextureFormatR16snorm+ | GPUTextureFormatR16uint+ | GPUTextureFormatR16sint+ | GPUTextureFormatR16float+ | GPUTextureFormatRg8unorm+ | GPUTextureFormatRg8snorm+ | GPUTextureFormatRg8uint+ | GPUTextureFormatRg8sint+ | GPUTextureFormatR32uint+ | GPUTextureFormatR32sint+ | GPUTextureFormatR32float+ | GPUTextureFormatRg16unorm+ | GPUTextureFormatRg16snorm+ | GPUTextureFormatRg16uint+ | GPUTextureFormatRg16sint+ | GPUTextureFormatRg16float+ | GPUTextureFormatRgba8unorm+ | GPUTextureFormatRgba8unormSrgb+ | GPUTextureFormatRgba8snorm+ | GPUTextureFormatRgba8uint+ | GPUTextureFormatRgba8sint+ | GPUTextureFormatBgra8unorm+ | GPUTextureFormatBgra8unormSrgb+ | GPUTextureFormatRgb9e5ufloat+ | GPUTextureFormatRgb10a2uint+ | GPUTextureFormatRgb10a2unorm+ | GPUTextureFormatRg11b10ufloat+ | GPUTextureFormatRg32uint+ | GPUTextureFormatRg32sint+ | GPUTextureFormatRg32float+ | GPUTextureFormatRgba16unorm+ | GPUTextureFormatRgba16snorm+ | GPUTextureFormatRgba16uint+ | GPUTextureFormatRgba16sint+ | GPUTextureFormatRgba16float+ | GPUTextureFormatRgba32uint+ | GPUTextureFormatRgba32sint+ | GPUTextureFormatRgba32float+ | GPUTextureFormatStencil8+ | GPUTextureFormatDepth16unorm+ | GPUTextureFormatDepth24plus+ | GPUTextureFormatDepth24plusStencil8+ | GPUTextureFormatDepth32float+ | GPUTextureFormatDepth32floatStencil8+ | GPUTextureFormatBc1RgbaUnorm+ | GPUTextureFormatBc1RgbaUnormSrgb+ | GPUTextureFormatBc2RgbaUnorm+ | GPUTextureFormatBc2RgbaUnormSrgb+ | GPUTextureFormatBc3RgbaUnorm+ | GPUTextureFormatBc3RgbaUnormSrgb+ | GPUTextureFormatBc4RUnorm+ | GPUTextureFormatBc4RSnorm+ | GPUTextureFormatBc5RgUnorm+ | GPUTextureFormatBc5RgSnorm+ | GPUTextureFormatBc6hRgbUfloat+ | GPUTextureFormatBc6hRgbFloat+ | GPUTextureFormatBc7RgbaUnorm+ | GPUTextureFormatBc7RgbaUnormSrgb+ | GPUTextureFormatEtc2Rgb8unorm+ | GPUTextureFormatEtc2Rgb8unormSrgb+ | GPUTextureFormatEtc2Rgb8a1unorm+ | GPUTextureFormatEtc2Rgb8a1unormSrgb+ | GPUTextureFormatEtc2Rgba8unorm+ | GPUTextureFormatEtc2Rgba8unormSrgb+ | GPUTextureFormatEacR11unorm+ | GPUTextureFormatEacR11snorm+ | GPUTextureFormatEacRg11unorm+ | GPUTextureFormatEacRg11snorm+ | GPUTextureFormatAstc4x4Unorm+ | GPUTextureFormatAstc4x4UnormSrgb+ | GPUTextureFormatAstc5x4Unorm+ | GPUTextureFormatAstc5x4UnormSrgb+ | GPUTextureFormatAstc5x5Unorm+ | GPUTextureFormatAstc5x5UnormSrgb+ | GPUTextureFormatAstc6x5Unorm+ | GPUTextureFormatAstc6x5UnormSrgb+ | GPUTextureFormatAstc6x6Unorm+ | GPUTextureFormatAstc6x6UnormSrgb+ | GPUTextureFormatAstc8x5Unorm+ | GPUTextureFormatAstc8x5UnormSrgb+ | GPUTextureFormatAstc8x6Unorm+ | GPUTextureFormatAstc8x6UnormSrgb+ | GPUTextureFormatAstc8x8Unorm+ | GPUTextureFormatAstc8x8UnormSrgb+ | GPUTextureFormatAstc10x5Unorm+ | GPUTextureFormatAstc10x5UnormSrgb+ | GPUTextureFormatAstc10x6Unorm+ | GPUTextureFormatAstc10x6UnormSrgb+ | GPUTextureFormatAstc10x8Unorm+ | GPUTextureFormatAstc10x8UnormSrgb+ | GPUTextureFormatAstc10x10Unorm+ | GPUTextureFormatAstc10x10UnormSrgb+ | GPUTextureFormatAstc12x10Unorm+ | GPUTextureFormatAstc12x10UnormSrgb+ | GPUTextureFormatAstc12x12Unorm+ | GPUTextureFormatAstc12x12UnormSrgb+ deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal GPUTextureFormat where+ pToJSVal x = pToJSVal (case x of+ GPUTextureFormatR8unorm -> js_GPUTextureFormatR8unorm+ GPUTextureFormatR8snorm -> js_GPUTextureFormatR8snorm+ GPUTextureFormatR8uint -> js_GPUTextureFormatR8uint+ GPUTextureFormatR8sint -> js_GPUTextureFormatR8sint+ GPUTextureFormatR16unorm -> js_GPUTextureFormatR16unorm+ GPUTextureFormatR16snorm -> js_GPUTextureFormatR16snorm+ GPUTextureFormatR16uint -> js_GPUTextureFormatR16uint+ GPUTextureFormatR16sint -> js_GPUTextureFormatR16sint+ GPUTextureFormatR16float -> js_GPUTextureFormatR16float+ GPUTextureFormatRg8unorm -> js_GPUTextureFormatRg8unorm+ GPUTextureFormatRg8snorm -> js_GPUTextureFormatRg8snorm+ GPUTextureFormatRg8uint -> js_GPUTextureFormatRg8uint+ GPUTextureFormatRg8sint -> js_GPUTextureFormatRg8sint+ GPUTextureFormatR32uint -> js_GPUTextureFormatR32uint+ GPUTextureFormatR32sint -> js_GPUTextureFormatR32sint+ GPUTextureFormatR32float -> js_GPUTextureFormatR32float+ GPUTextureFormatRg16unorm -> js_GPUTextureFormatRg16unorm+ GPUTextureFormatRg16snorm -> js_GPUTextureFormatRg16snorm+ GPUTextureFormatRg16uint -> js_GPUTextureFormatRg16uint+ GPUTextureFormatRg16sint -> js_GPUTextureFormatRg16sint+ GPUTextureFormatRg16float -> js_GPUTextureFormatRg16float+ GPUTextureFormatRgba8unorm -> js_GPUTextureFormatRgba8unorm+ GPUTextureFormatRgba8unormSrgb -> js_GPUTextureFormatRgba8unormSrgb+ GPUTextureFormatRgba8snorm -> js_GPUTextureFormatRgba8snorm+ GPUTextureFormatRgba8uint -> js_GPUTextureFormatRgba8uint+ GPUTextureFormatRgba8sint -> js_GPUTextureFormatRgba8sint+ GPUTextureFormatBgra8unorm -> js_GPUTextureFormatBgra8unorm+ GPUTextureFormatBgra8unormSrgb -> js_GPUTextureFormatBgra8unormSrgb+ GPUTextureFormatRgb9e5ufloat -> js_GPUTextureFormatRgb9e5ufloat+ GPUTextureFormatRgb10a2uint -> js_GPUTextureFormatRgb10a2uint+ GPUTextureFormatRgb10a2unorm -> js_GPUTextureFormatRgb10a2unorm+ GPUTextureFormatRg11b10ufloat -> js_GPUTextureFormatRg11b10ufloat+ GPUTextureFormatRg32uint -> js_GPUTextureFormatRg32uint+ GPUTextureFormatRg32sint -> js_GPUTextureFormatRg32sint+ GPUTextureFormatRg32float -> js_GPUTextureFormatRg32float+ GPUTextureFormatRgba16unorm -> js_GPUTextureFormatRgba16unorm+ GPUTextureFormatRgba16snorm -> js_GPUTextureFormatRgba16snorm+ GPUTextureFormatRgba16uint -> js_GPUTextureFormatRgba16uint+ GPUTextureFormatRgba16sint -> js_GPUTextureFormatRgba16sint+ GPUTextureFormatRgba16float -> js_GPUTextureFormatRgba16float+ GPUTextureFormatRgba32uint -> js_GPUTextureFormatRgba32uint+ GPUTextureFormatRgba32sint -> js_GPUTextureFormatRgba32sint+ GPUTextureFormatRgba32float -> js_GPUTextureFormatRgba32float+ GPUTextureFormatStencil8 -> js_GPUTextureFormatStencil8+ GPUTextureFormatDepth16unorm -> js_GPUTextureFormatDepth16unorm+ GPUTextureFormatDepth24plus -> js_GPUTextureFormatDepth24plus+ GPUTextureFormatDepth24plusStencil8 -> js_GPUTextureFormatDepth24plusStencil8+ GPUTextureFormatDepth32float -> js_GPUTextureFormatDepth32float+ GPUTextureFormatDepth32floatStencil8 -> js_GPUTextureFormatDepth32floatStencil8+ GPUTextureFormatBc1RgbaUnorm -> js_GPUTextureFormatBc1RgbaUnorm+ GPUTextureFormatBc1RgbaUnormSrgb -> js_GPUTextureFormatBc1RgbaUnormSrgb+ GPUTextureFormatBc2RgbaUnorm -> js_GPUTextureFormatBc2RgbaUnorm+ GPUTextureFormatBc2RgbaUnormSrgb -> js_GPUTextureFormatBc2RgbaUnormSrgb+ GPUTextureFormatBc3RgbaUnorm -> js_GPUTextureFormatBc3RgbaUnorm+ GPUTextureFormatBc3RgbaUnormSrgb -> js_GPUTextureFormatBc3RgbaUnormSrgb+ GPUTextureFormatBc4RUnorm -> js_GPUTextureFormatBc4RUnorm+ GPUTextureFormatBc4RSnorm -> js_GPUTextureFormatBc4RSnorm+ GPUTextureFormatBc5RgUnorm -> js_GPUTextureFormatBc5RgUnorm+ GPUTextureFormatBc5RgSnorm -> js_GPUTextureFormatBc5RgSnorm+ GPUTextureFormatBc6hRgbUfloat -> js_GPUTextureFormatBc6hRgbUfloat+ GPUTextureFormatBc6hRgbFloat -> js_GPUTextureFormatBc6hRgbFloat+ GPUTextureFormatBc7RgbaUnorm -> js_GPUTextureFormatBc7RgbaUnorm+ GPUTextureFormatBc7RgbaUnormSrgb -> js_GPUTextureFormatBc7RgbaUnormSrgb+ GPUTextureFormatEtc2Rgb8unorm -> js_GPUTextureFormatEtc2Rgb8unorm+ GPUTextureFormatEtc2Rgb8unormSrgb -> js_GPUTextureFormatEtc2Rgb8unormSrgb+ GPUTextureFormatEtc2Rgb8a1unorm -> js_GPUTextureFormatEtc2Rgb8a1unorm+ GPUTextureFormatEtc2Rgb8a1unormSrgb -> js_GPUTextureFormatEtc2Rgb8a1unormSrgb+ GPUTextureFormatEtc2Rgba8unorm -> js_GPUTextureFormatEtc2Rgba8unorm+ GPUTextureFormatEtc2Rgba8unormSrgb -> js_GPUTextureFormatEtc2Rgba8unormSrgb+ GPUTextureFormatEacR11unorm -> js_GPUTextureFormatEacR11unorm+ GPUTextureFormatEacR11snorm -> js_GPUTextureFormatEacR11snorm+ GPUTextureFormatEacRg11unorm -> js_GPUTextureFormatEacRg11unorm+ GPUTextureFormatEacRg11snorm -> js_GPUTextureFormatEacRg11snorm+ GPUTextureFormatAstc4x4Unorm -> js_GPUTextureFormatAstc4x4Unorm+ GPUTextureFormatAstc4x4UnormSrgb -> js_GPUTextureFormatAstc4x4UnormSrgb+ GPUTextureFormatAstc5x4Unorm -> js_GPUTextureFormatAstc5x4Unorm+ GPUTextureFormatAstc5x4UnormSrgb -> js_GPUTextureFormatAstc5x4UnormSrgb+ GPUTextureFormatAstc5x5Unorm -> js_GPUTextureFormatAstc5x5Unorm+ GPUTextureFormatAstc5x5UnormSrgb -> js_GPUTextureFormatAstc5x5UnormSrgb+ GPUTextureFormatAstc6x5Unorm -> js_GPUTextureFormatAstc6x5Unorm+ GPUTextureFormatAstc6x5UnormSrgb -> js_GPUTextureFormatAstc6x5UnormSrgb+ GPUTextureFormatAstc6x6Unorm -> js_GPUTextureFormatAstc6x6Unorm+ GPUTextureFormatAstc6x6UnormSrgb -> js_GPUTextureFormatAstc6x6UnormSrgb+ GPUTextureFormatAstc8x5Unorm -> js_GPUTextureFormatAstc8x5Unorm+ GPUTextureFormatAstc8x5UnormSrgb -> js_GPUTextureFormatAstc8x5UnormSrgb+ GPUTextureFormatAstc8x6Unorm -> js_GPUTextureFormatAstc8x6Unorm+ GPUTextureFormatAstc8x6UnormSrgb -> js_GPUTextureFormatAstc8x6UnormSrgb+ GPUTextureFormatAstc8x8Unorm -> js_GPUTextureFormatAstc8x8Unorm+ GPUTextureFormatAstc8x8UnormSrgb -> js_GPUTextureFormatAstc8x8UnormSrgb+ GPUTextureFormatAstc10x5Unorm -> js_GPUTextureFormatAstc10x5Unorm+ GPUTextureFormatAstc10x5UnormSrgb -> js_GPUTextureFormatAstc10x5UnormSrgb+ GPUTextureFormatAstc10x6Unorm -> js_GPUTextureFormatAstc10x6Unorm+ GPUTextureFormatAstc10x6UnormSrgb -> js_GPUTextureFormatAstc10x6UnormSrgb+ GPUTextureFormatAstc10x8Unorm -> js_GPUTextureFormatAstc10x8Unorm+ GPUTextureFormatAstc10x8UnormSrgb -> js_GPUTextureFormatAstc10x8UnormSrgb+ GPUTextureFormatAstc10x10Unorm -> js_GPUTextureFormatAstc10x10Unorm+ GPUTextureFormatAstc10x10UnormSrgb -> js_GPUTextureFormatAstc10x10UnormSrgb+ GPUTextureFormatAstc12x10Unorm -> js_GPUTextureFormatAstc12x10Unorm+ GPUTextureFormatAstc12x10UnormSrgb -> js_GPUTextureFormatAstc12x10UnormSrgb+ GPUTextureFormatAstc12x12Unorm -> js_GPUTextureFormatAstc12x12Unorm+ GPUTextureFormatAstc12x12UnormSrgb -> js_GPUTextureFormatAstc12x12UnormSrgb+ )++instance ToJSVal GPUTextureFormat where+ toJSVal = P.return . pToJSVal++instance PFromJSVal GPUTextureFormat where+ pFromJSVal x = P.maybe (P.error "Unexpected GPUTextureFormat value") P.id (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_GPUTextureFormatR8unorm, GPUTextureFormatR8unorm), (js_GPUTextureFormatR8snorm, GPUTextureFormatR8snorm), (js_GPUTextureFormatR8uint, GPUTextureFormatR8uint), (js_GPUTextureFormatR8sint, GPUTextureFormatR8sint), (js_GPUTextureFormatR16unorm, GPUTextureFormatR16unorm), (js_GPUTextureFormatR16snorm, GPUTextureFormatR16snorm), (js_GPUTextureFormatR16uint, GPUTextureFormatR16uint), (js_GPUTextureFormatR16sint, GPUTextureFormatR16sint), (js_GPUTextureFormatR16float, GPUTextureFormatR16float), (js_GPUTextureFormatRg8unorm, GPUTextureFormatRg8unorm), (js_GPUTextureFormatRg8snorm, GPUTextureFormatRg8snorm), (js_GPUTextureFormatRg8uint, GPUTextureFormatRg8uint), (js_GPUTextureFormatRg8sint, GPUTextureFormatRg8sint), (js_GPUTextureFormatR32uint, GPUTextureFormatR32uint), (js_GPUTextureFormatR32sint, GPUTextureFormatR32sint), (js_GPUTextureFormatR32float, GPUTextureFormatR32float), (js_GPUTextureFormatRg16unorm, GPUTextureFormatRg16unorm), (js_GPUTextureFormatRg16snorm, GPUTextureFormatRg16snorm), (js_GPUTextureFormatRg16uint, GPUTextureFormatRg16uint), (js_GPUTextureFormatRg16sint, GPUTextureFormatRg16sint), (js_GPUTextureFormatRg16float, GPUTextureFormatRg16float), (js_GPUTextureFormatRgba8unorm, GPUTextureFormatRgba8unorm), (js_GPUTextureFormatRgba8unormSrgb, GPUTextureFormatRgba8unormSrgb), (js_GPUTextureFormatRgba8snorm, GPUTextureFormatRgba8snorm), (js_GPUTextureFormatRgba8uint, GPUTextureFormatRgba8uint), (js_GPUTextureFormatRgba8sint, GPUTextureFormatRgba8sint), (js_GPUTextureFormatBgra8unorm, GPUTextureFormatBgra8unorm), (js_GPUTextureFormatBgra8unormSrgb, GPUTextureFormatBgra8unormSrgb), (js_GPUTextureFormatRgb9e5ufloat, GPUTextureFormatRgb9e5ufloat), (js_GPUTextureFormatRgb10a2uint, GPUTextureFormatRgb10a2uint), (js_GPUTextureFormatRgb10a2unorm, GPUTextureFormatRgb10a2unorm), (js_GPUTextureFormatRg11b10ufloat, GPUTextureFormatRg11b10ufloat), (js_GPUTextureFormatRg32uint, GPUTextureFormatRg32uint), (js_GPUTextureFormatRg32sint, GPUTextureFormatRg32sint), (js_GPUTextureFormatRg32float, GPUTextureFormatRg32float), (js_GPUTextureFormatRgba16unorm, GPUTextureFormatRgba16unorm), (js_GPUTextureFormatRgba16snorm, GPUTextureFormatRgba16snorm), (js_GPUTextureFormatRgba16uint, GPUTextureFormatRgba16uint), (js_GPUTextureFormatRgba16sint, GPUTextureFormatRgba16sint), (js_GPUTextureFormatRgba16float, GPUTextureFormatRgba16float), (js_GPUTextureFormatRgba32uint, GPUTextureFormatRgba32uint), (js_GPUTextureFormatRgba32sint, GPUTextureFormatRgba32sint), (js_GPUTextureFormatRgba32float, GPUTextureFormatRgba32float), (js_GPUTextureFormatStencil8, GPUTextureFormatStencil8), (js_GPUTextureFormatDepth16unorm, GPUTextureFormatDepth16unorm), (js_GPUTextureFormatDepth24plus, GPUTextureFormatDepth24plus), (js_GPUTextureFormatDepth24plusStencil8, GPUTextureFormatDepth24plusStencil8), (js_GPUTextureFormatDepth32float, GPUTextureFormatDepth32float), (js_GPUTextureFormatDepth32floatStencil8, GPUTextureFormatDepth32floatStencil8), (js_GPUTextureFormatBc1RgbaUnorm, GPUTextureFormatBc1RgbaUnorm), (js_GPUTextureFormatBc1RgbaUnormSrgb, GPUTextureFormatBc1RgbaUnormSrgb), (js_GPUTextureFormatBc2RgbaUnorm, GPUTextureFormatBc2RgbaUnorm), (js_GPUTextureFormatBc2RgbaUnormSrgb, GPUTextureFormatBc2RgbaUnormSrgb), (js_GPUTextureFormatBc3RgbaUnorm, GPUTextureFormatBc3RgbaUnorm), (js_GPUTextureFormatBc3RgbaUnormSrgb, GPUTextureFormatBc3RgbaUnormSrgb), (js_GPUTextureFormatBc4RUnorm, GPUTextureFormatBc4RUnorm), (js_GPUTextureFormatBc4RSnorm, GPUTextureFormatBc4RSnorm), (js_GPUTextureFormatBc5RgUnorm, GPUTextureFormatBc5RgUnorm), (js_GPUTextureFormatBc5RgSnorm, GPUTextureFormatBc5RgSnorm), (js_GPUTextureFormatBc6hRgbUfloat, GPUTextureFormatBc6hRgbUfloat), (js_GPUTextureFormatBc6hRgbFloat, GPUTextureFormatBc6hRgbFloat), (js_GPUTextureFormatBc7RgbaUnorm, GPUTextureFormatBc7RgbaUnorm), (js_GPUTextureFormatBc7RgbaUnormSrgb, GPUTextureFormatBc7RgbaUnormSrgb), (js_GPUTextureFormatEtc2Rgb8unorm, GPUTextureFormatEtc2Rgb8unorm), (js_GPUTextureFormatEtc2Rgb8unormSrgb, GPUTextureFormatEtc2Rgb8unormSrgb), (js_GPUTextureFormatEtc2Rgb8a1unorm, GPUTextureFormatEtc2Rgb8a1unorm), (js_GPUTextureFormatEtc2Rgb8a1unormSrgb, GPUTextureFormatEtc2Rgb8a1unormSrgb), (js_GPUTextureFormatEtc2Rgba8unorm, GPUTextureFormatEtc2Rgba8unorm), (js_GPUTextureFormatEtc2Rgba8unormSrgb, GPUTextureFormatEtc2Rgba8unormSrgb), (js_GPUTextureFormatEacR11unorm, GPUTextureFormatEacR11unorm), (js_GPUTextureFormatEacR11snorm, GPUTextureFormatEacR11snorm), (js_GPUTextureFormatEacRg11unorm, GPUTextureFormatEacRg11unorm), (js_GPUTextureFormatEacRg11snorm, GPUTextureFormatEacRg11snorm), (js_GPUTextureFormatAstc4x4Unorm, GPUTextureFormatAstc4x4Unorm), (js_GPUTextureFormatAstc4x4UnormSrgb, GPUTextureFormatAstc4x4UnormSrgb), (js_GPUTextureFormatAstc5x4Unorm, GPUTextureFormatAstc5x4Unorm), (js_GPUTextureFormatAstc5x4UnormSrgb, GPUTextureFormatAstc5x4UnormSrgb), (js_GPUTextureFormatAstc5x5Unorm, GPUTextureFormatAstc5x5Unorm), (js_GPUTextureFormatAstc5x5UnormSrgb, GPUTextureFormatAstc5x5UnormSrgb), (js_GPUTextureFormatAstc6x5Unorm, GPUTextureFormatAstc6x5Unorm), (js_GPUTextureFormatAstc6x5UnormSrgb, GPUTextureFormatAstc6x5UnormSrgb), (js_GPUTextureFormatAstc6x6Unorm, GPUTextureFormatAstc6x6Unorm), (js_GPUTextureFormatAstc6x6UnormSrgb, GPUTextureFormatAstc6x6UnormSrgb), (js_GPUTextureFormatAstc8x5Unorm, GPUTextureFormatAstc8x5Unorm), (js_GPUTextureFormatAstc8x5UnormSrgb, GPUTextureFormatAstc8x5UnormSrgb), (js_GPUTextureFormatAstc8x6Unorm, GPUTextureFormatAstc8x6Unorm), (js_GPUTextureFormatAstc8x6UnormSrgb, GPUTextureFormatAstc8x6UnormSrgb), (js_GPUTextureFormatAstc8x8Unorm, GPUTextureFormatAstc8x8Unorm), (js_GPUTextureFormatAstc8x8UnormSrgb, GPUTextureFormatAstc8x8UnormSrgb), (js_GPUTextureFormatAstc10x5Unorm, GPUTextureFormatAstc10x5Unorm), (js_GPUTextureFormatAstc10x5UnormSrgb, GPUTextureFormatAstc10x5UnormSrgb), (js_GPUTextureFormatAstc10x6Unorm, GPUTextureFormatAstc10x6Unorm), (js_GPUTextureFormatAstc10x6UnormSrgb, GPUTextureFormatAstc10x6UnormSrgb), (js_GPUTextureFormatAstc10x8Unorm, GPUTextureFormatAstc10x8Unorm), (js_GPUTextureFormatAstc10x8UnormSrgb, GPUTextureFormatAstc10x8UnormSrgb), (js_GPUTextureFormatAstc10x10Unorm, GPUTextureFormatAstc10x10Unorm), (js_GPUTextureFormatAstc10x10UnormSrgb, GPUTextureFormatAstc10x10UnormSrgb), (js_GPUTextureFormatAstc12x10Unorm, GPUTextureFormatAstc12x10Unorm), (js_GPUTextureFormatAstc12x10UnormSrgb, GPUTextureFormatAstc12x10UnormSrgb), (js_GPUTextureFormatAstc12x12Unorm, GPUTextureFormatAstc12x12Unorm), (js_GPUTextureFormatAstc12x12UnormSrgb, GPUTextureFormatAstc12x12UnormSrgb)]++instance FromJSVal GPUTextureFormat where+ fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_GPUTextureFormatR8unorm, GPUTextureFormatR8unorm), (js_GPUTextureFormatR8snorm, GPUTextureFormatR8snorm), (js_GPUTextureFormatR8uint, GPUTextureFormatR8uint), (js_GPUTextureFormatR8sint, GPUTextureFormatR8sint), (js_GPUTextureFormatR16unorm, GPUTextureFormatR16unorm), (js_GPUTextureFormatR16snorm, GPUTextureFormatR16snorm), (js_GPUTextureFormatR16uint, GPUTextureFormatR16uint), (js_GPUTextureFormatR16sint, GPUTextureFormatR16sint), (js_GPUTextureFormatR16float, GPUTextureFormatR16float), (js_GPUTextureFormatRg8unorm, GPUTextureFormatRg8unorm), (js_GPUTextureFormatRg8snorm, GPUTextureFormatRg8snorm), (js_GPUTextureFormatRg8uint, GPUTextureFormatRg8uint), (js_GPUTextureFormatRg8sint, GPUTextureFormatRg8sint), (js_GPUTextureFormatR32uint, GPUTextureFormatR32uint), (js_GPUTextureFormatR32sint, GPUTextureFormatR32sint), (js_GPUTextureFormatR32float, GPUTextureFormatR32float), (js_GPUTextureFormatRg16unorm, GPUTextureFormatRg16unorm), (js_GPUTextureFormatRg16snorm, GPUTextureFormatRg16snorm), (js_GPUTextureFormatRg16uint, GPUTextureFormatRg16uint), (js_GPUTextureFormatRg16sint, GPUTextureFormatRg16sint), (js_GPUTextureFormatRg16float, GPUTextureFormatRg16float), (js_GPUTextureFormatRgba8unorm, GPUTextureFormatRgba8unorm), (js_GPUTextureFormatRgba8unormSrgb, GPUTextureFormatRgba8unormSrgb), (js_GPUTextureFormatRgba8snorm, GPUTextureFormatRgba8snorm), (js_GPUTextureFormatRgba8uint, GPUTextureFormatRgba8uint), (js_GPUTextureFormatRgba8sint, GPUTextureFormatRgba8sint), (js_GPUTextureFormatBgra8unorm, GPUTextureFormatBgra8unorm), (js_GPUTextureFormatBgra8unormSrgb, GPUTextureFormatBgra8unormSrgb), (js_GPUTextureFormatRgb9e5ufloat, GPUTextureFormatRgb9e5ufloat), (js_GPUTextureFormatRgb10a2uint, GPUTextureFormatRgb10a2uint), (js_GPUTextureFormatRgb10a2unorm, GPUTextureFormatRgb10a2unorm), (js_GPUTextureFormatRg11b10ufloat, GPUTextureFormatRg11b10ufloat), (js_GPUTextureFormatRg32uint, GPUTextureFormatRg32uint), (js_GPUTextureFormatRg32sint, GPUTextureFormatRg32sint), (js_GPUTextureFormatRg32float, GPUTextureFormatRg32float), (js_GPUTextureFormatRgba16unorm, GPUTextureFormatRgba16unorm), (js_GPUTextureFormatRgba16snorm, GPUTextureFormatRgba16snorm), (js_GPUTextureFormatRgba16uint, GPUTextureFormatRgba16uint), (js_GPUTextureFormatRgba16sint, GPUTextureFormatRgba16sint), (js_GPUTextureFormatRgba16float, GPUTextureFormatRgba16float), (js_GPUTextureFormatRgba32uint, GPUTextureFormatRgba32uint), (js_GPUTextureFormatRgba32sint, GPUTextureFormatRgba32sint), (js_GPUTextureFormatRgba32float, GPUTextureFormatRgba32float), (js_GPUTextureFormatStencil8, GPUTextureFormatStencil8), (js_GPUTextureFormatDepth16unorm, GPUTextureFormatDepth16unorm), (js_GPUTextureFormatDepth24plus, GPUTextureFormatDepth24plus), (js_GPUTextureFormatDepth24plusStencil8, GPUTextureFormatDepth24plusStencil8), (js_GPUTextureFormatDepth32float, GPUTextureFormatDepth32float), (js_GPUTextureFormatDepth32floatStencil8, GPUTextureFormatDepth32floatStencil8), (js_GPUTextureFormatBc1RgbaUnorm, GPUTextureFormatBc1RgbaUnorm), (js_GPUTextureFormatBc1RgbaUnormSrgb, GPUTextureFormatBc1RgbaUnormSrgb), (js_GPUTextureFormatBc2RgbaUnorm, GPUTextureFormatBc2RgbaUnorm), (js_GPUTextureFormatBc2RgbaUnormSrgb, GPUTextureFormatBc2RgbaUnormSrgb), (js_GPUTextureFormatBc3RgbaUnorm, GPUTextureFormatBc3RgbaUnorm), (js_GPUTextureFormatBc3RgbaUnormSrgb, GPUTextureFormatBc3RgbaUnormSrgb), (js_GPUTextureFormatBc4RUnorm, GPUTextureFormatBc4RUnorm), (js_GPUTextureFormatBc4RSnorm, GPUTextureFormatBc4RSnorm), (js_GPUTextureFormatBc5RgUnorm, GPUTextureFormatBc5RgUnorm), (js_GPUTextureFormatBc5RgSnorm, GPUTextureFormatBc5RgSnorm), (js_GPUTextureFormatBc6hRgbUfloat, GPUTextureFormatBc6hRgbUfloat), (js_GPUTextureFormatBc6hRgbFloat, GPUTextureFormatBc6hRgbFloat), (js_GPUTextureFormatBc7RgbaUnorm, GPUTextureFormatBc7RgbaUnorm), (js_GPUTextureFormatBc7RgbaUnormSrgb, GPUTextureFormatBc7RgbaUnormSrgb), (js_GPUTextureFormatEtc2Rgb8unorm, GPUTextureFormatEtc2Rgb8unorm), (js_GPUTextureFormatEtc2Rgb8unormSrgb, GPUTextureFormatEtc2Rgb8unormSrgb), (js_GPUTextureFormatEtc2Rgb8a1unorm, GPUTextureFormatEtc2Rgb8a1unorm), (js_GPUTextureFormatEtc2Rgb8a1unormSrgb, GPUTextureFormatEtc2Rgb8a1unormSrgb), (js_GPUTextureFormatEtc2Rgba8unorm, GPUTextureFormatEtc2Rgba8unorm), (js_GPUTextureFormatEtc2Rgba8unormSrgb, GPUTextureFormatEtc2Rgba8unormSrgb), (js_GPUTextureFormatEacR11unorm, GPUTextureFormatEacR11unorm), (js_GPUTextureFormatEacR11snorm, GPUTextureFormatEacR11snorm), (js_GPUTextureFormatEacRg11unorm, GPUTextureFormatEacRg11unorm), (js_GPUTextureFormatEacRg11snorm, GPUTextureFormatEacRg11snorm), (js_GPUTextureFormatAstc4x4Unorm, GPUTextureFormatAstc4x4Unorm), (js_GPUTextureFormatAstc4x4UnormSrgb, GPUTextureFormatAstc4x4UnormSrgb), (js_GPUTextureFormatAstc5x4Unorm, GPUTextureFormatAstc5x4Unorm), (js_GPUTextureFormatAstc5x4UnormSrgb, GPUTextureFormatAstc5x4UnormSrgb), (js_GPUTextureFormatAstc5x5Unorm, GPUTextureFormatAstc5x5Unorm), (js_GPUTextureFormatAstc5x5UnormSrgb, GPUTextureFormatAstc5x5UnormSrgb), (js_GPUTextureFormatAstc6x5Unorm, GPUTextureFormatAstc6x5Unorm), (js_GPUTextureFormatAstc6x5UnormSrgb, GPUTextureFormatAstc6x5UnormSrgb), (js_GPUTextureFormatAstc6x6Unorm, GPUTextureFormatAstc6x6Unorm), (js_GPUTextureFormatAstc6x6UnormSrgb, GPUTextureFormatAstc6x6UnormSrgb), (js_GPUTextureFormatAstc8x5Unorm, GPUTextureFormatAstc8x5Unorm), (js_GPUTextureFormatAstc8x5UnormSrgb, GPUTextureFormatAstc8x5UnormSrgb), (js_GPUTextureFormatAstc8x6Unorm, GPUTextureFormatAstc8x6Unorm), (js_GPUTextureFormatAstc8x6UnormSrgb, GPUTextureFormatAstc8x6UnormSrgb), (js_GPUTextureFormatAstc8x8Unorm, GPUTextureFormatAstc8x8Unorm), (js_GPUTextureFormatAstc8x8UnormSrgb, GPUTextureFormatAstc8x8UnormSrgb), (js_GPUTextureFormatAstc10x5Unorm, GPUTextureFormatAstc10x5Unorm), (js_GPUTextureFormatAstc10x5UnormSrgb, GPUTextureFormatAstc10x5UnormSrgb), (js_GPUTextureFormatAstc10x6Unorm, GPUTextureFormatAstc10x6Unorm), (js_GPUTextureFormatAstc10x6UnormSrgb, GPUTextureFormatAstc10x6UnormSrgb), (js_GPUTextureFormatAstc10x8Unorm, GPUTextureFormatAstc10x8Unorm), (js_GPUTextureFormatAstc10x8UnormSrgb, GPUTextureFormatAstc10x8UnormSrgb), (js_GPUTextureFormatAstc10x10Unorm, GPUTextureFormatAstc10x10Unorm), (js_GPUTextureFormatAstc10x10UnormSrgb, GPUTextureFormatAstc10x10UnormSrgb), (js_GPUTextureFormatAstc12x10Unorm, GPUTextureFormatAstc12x10Unorm), (js_GPUTextureFormatAstc12x10UnormSrgb, GPUTextureFormatAstc12x10UnormSrgb), (js_GPUTextureFormatAstc12x12Unorm, GPUTextureFormatAstc12x12Unorm), (js_GPUTextureFormatAstc12x12UnormSrgb, GPUTextureFormatAstc12x12UnormSrgb)]+ fromJSValUnchecked = P.return . pFromJSVal++js_GPUTextureFormatR8unorm :: JSString+js_GPUTextureFormatR8unorm = "r8unorm"+js_GPUTextureFormatR8snorm :: JSString+js_GPUTextureFormatR8snorm = "r8snorm"+js_GPUTextureFormatR8uint :: JSString+js_GPUTextureFormatR8uint = "r8uint"+js_GPUTextureFormatR8sint :: JSString+js_GPUTextureFormatR8sint = "r8sint"+js_GPUTextureFormatR16unorm :: JSString+js_GPUTextureFormatR16unorm = "r16unorm"+js_GPUTextureFormatR16snorm :: JSString+js_GPUTextureFormatR16snorm = "r16snorm"+js_GPUTextureFormatR16uint :: JSString+js_GPUTextureFormatR16uint = "r16uint"+js_GPUTextureFormatR16sint :: JSString+js_GPUTextureFormatR16sint = "r16sint"+js_GPUTextureFormatR16float :: JSString+js_GPUTextureFormatR16float = "r16float"+js_GPUTextureFormatRg8unorm :: JSString+js_GPUTextureFormatRg8unorm = "rg8unorm"+js_GPUTextureFormatRg8snorm :: JSString+js_GPUTextureFormatRg8snorm = "rg8snorm"+js_GPUTextureFormatRg8uint :: JSString+js_GPUTextureFormatRg8uint = "rg8uint"+js_GPUTextureFormatRg8sint :: JSString+js_GPUTextureFormatRg8sint = "rg8sint"+js_GPUTextureFormatR32uint :: JSString+js_GPUTextureFormatR32uint = "r32uint"+js_GPUTextureFormatR32sint :: JSString+js_GPUTextureFormatR32sint = "r32sint"+js_GPUTextureFormatR32float :: JSString+js_GPUTextureFormatR32float = "r32float"+js_GPUTextureFormatRg16unorm :: JSString+js_GPUTextureFormatRg16unorm = "rg16unorm"+js_GPUTextureFormatRg16snorm :: JSString+js_GPUTextureFormatRg16snorm = "rg16snorm"+js_GPUTextureFormatRg16uint :: JSString+js_GPUTextureFormatRg16uint = "rg16uint"+js_GPUTextureFormatRg16sint :: JSString+js_GPUTextureFormatRg16sint = "rg16sint"+js_GPUTextureFormatRg16float :: JSString+js_GPUTextureFormatRg16float = "rg16float"+js_GPUTextureFormatRgba8unorm :: JSString+js_GPUTextureFormatRgba8unorm = "rgba8unorm"+js_GPUTextureFormatRgba8unormSrgb :: JSString+js_GPUTextureFormatRgba8unormSrgb = "rgba8unorm-srgb"+js_GPUTextureFormatRgba8snorm :: JSString+js_GPUTextureFormatRgba8snorm = "rgba8snorm"+js_GPUTextureFormatRgba8uint :: JSString+js_GPUTextureFormatRgba8uint = "rgba8uint"+js_GPUTextureFormatRgba8sint :: JSString+js_GPUTextureFormatRgba8sint = "rgba8sint"+js_GPUTextureFormatBgra8unorm :: JSString+js_GPUTextureFormatBgra8unorm = "bgra8unorm"+js_GPUTextureFormatBgra8unormSrgb :: JSString+js_GPUTextureFormatBgra8unormSrgb = "bgra8unorm-srgb"+js_GPUTextureFormatRgb9e5ufloat :: JSString+js_GPUTextureFormatRgb9e5ufloat = "rgb9e5ufloat"+js_GPUTextureFormatRgb10a2uint :: JSString+js_GPUTextureFormatRgb10a2uint = "rgb10a2uint"+js_GPUTextureFormatRgb10a2unorm :: JSString+js_GPUTextureFormatRgb10a2unorm = "rgb10a2unorm"+js_GPUTextureFormatRg11b10ufloat :: JSString+js_GPUTextureFormatRg11b10ufloat = "rg11b10ufloat"+js_GPUTextureFormatRg32uint :: JSString+js_GPUTextureFormatRg32uint = "rg32uint"+js_GPUTextureFormatRg32sint :: JSString+js_GPUTextureFormatRg32sint = "rg32sint"+js_GPUTextureFormatRg32float :: JSString+js_GPUTextureFormatRg32float = "rg32float"+js_GPUTextureFormatRgba16unorm :: JSString+js_GPUTextureFormatRgba16unorm = "rgba16unorm"+js_GPUTextureFormatRgba16snorm :: JSString+js_GPUTextureFormatRgba16snorm = "rgba16snorm"+js_GPUTextureFormatRgba16uint :: JSString+js_GPUTextureFormatRgba16uint = "rgba16uint"+js_GPUTextureFormatRgba16sint :: JSString+js_GPUTextureFormatRgba16sint = "rgba16sint"+js_GPUTextureFormatRgba16float :: JSString+js_GPUTextureFormatRgba16float = "rgba16float"+js_GPUTextureFormatRgba32uint :: JSString+js_GPUTextureFormatRgba32uint = "rgba32uint"+js_GPUTextureFormatRgba32sint :: JSString+js_GPUTextureFormatRgba32sint = "rgba32sint"+js_GPUTextureFormatRgba32float :: JSString+js_GPUTextureFormatRgba32float = "rgba32float"+js_GPUTextureFormatStencil8 :: JSString+js_GPUTextureFormatStencil8 = "stencil8"+js_GPUTextureFormatDepth16unorm :: JSString+js_GPUTextureFormatDepth16unorm = "depth16unorm"+js_GPUTextureFormatDepth24plus :: JSString+js_GPUTextureFormatDepth24plus = "depth24plus"+js_GPUTextureFormatDepth24plusStencil8 :: JSString+js_GPUTextureFormatDepth24plusStencil8 = "depth24plus-stencil8"+js_GPUTextureFormatDepth32float :: JSString+js_GPUTextureFormatDepth32float = "depth32float"+js_GPUTextureFormatDepth32floatStencil8 :: JSString+js_GPUTextureFormatDepth32floatStencil8 = "depth32float-stencil8"+js_GPUTextureFormatBc1RgbaUnorm :: JSString+js_GPUTextureFormatBc1RgbaUnorm = "bc1-rgba-unorm"+js_GPUTextureFormatBc1RgbaUnormSrgb :: JSString+js_GPUTextureFormatBc1RgbaUnormSrgb = "bc1-rgba-unorm-srgb"+js_GPUTextureFormatBc2RgbaUnorm :: JSString+js_GPUTextureFormatBc2RgbaUnorm = "bc2-rgba-unorm"+js_GPUTextureFormatBc2RgbaUnormSrgb :: JSString+js_GPUTextureFormatBc2RgbaUnormSrgb = "bc2-rgba-unorm-srgb"+js_GPUTextureFormatBc3RgbaUnorm :: JSString+js_GPUTextureFormatBc3RgbaUnorm = "bc3-rgba-unorm"+js_GPUTextureFormatBc3RgbaUnormSrgb :: JSString+js_GPUTextureFormatBc3RgbaUnormSrgb = "bc3-rgba-unorm-srgb"+js_GPUTextureFormatBc4RUnorm :: JSString+js_GPUTextureFormatBc4RUnorm = "bc4-r-unorm"+js_GPUTextureFormatBc4RSnorm :: JSString+js_GPUTextureFormatBc4RSnorm = "bc4-r-snorm"+js_GPUTextureFormatBc5RgUnorm :: JSString+js_GPUTextureFormatBc5RgUnorm = "bc5-rg-unorm"+js_GPUTextureFormatBc5RgSnorm :: JSString+js_GPUTextureFormatBc5RgSnorm = "bc5-rg-snorm"+js_GPUTextureFormatBc6hRgbUfloat :: JSString+js_GPUTextureFormatBc6hRgbUfloat = "bc6h-rgb-ufloat"+js_GPUTextureFormatBc6hRgbFloat :: JSString+js_GPUTextureFormatBc6hRgbFloat = "bc6h-rgb-float"+js_GPUTextureFormatBc7RgbaUnorm :: JSString+js_GPUTextureFormatBc7RgbaUnorm = "bc7-rgba-unorm"+js_GPUTextureFormatBc7RgbaUnormSrgb :: JSString+js_GPUTextureFormatBc7RgbaUnormSrgb = "bc7-rgba-unorm-srgb"+js_GPUTextureFormatEtc2Rgb8unorm :: JSString+js_GPUTextureFormatEtc2Rgb8unorm = "etc2-rgb8unorm"+js_GPUTextureFormatEtc2Rgb8unormSrgb :: JSString+js_GPUTextureFormatEtc2Rgb8unormSrgb = "etc2-rgb8unorm-srgb"+js_GPUTextureFormatEtc2Rgb8a1unorm :: JSString+js_GPUTextureFormatEtc2Rgb8a1unorm = "etc2-rgb8a1unorm"+js_GPUTextureFormatEtc2Rgb8a1unormSrgb :: JSString+js_GPUTextureFormatEtc2Rgb8a1unormSrgb = "etc2-rgb8a1unorm-srgb"+js_GPUTextureFormatEtc2Rgba8unorm :: JSString+js_GPUTextureFormatEtc2Rgba8unorm = "etc2-rgba8unorm"+js_GPUTextureFormatEtc2Rgba8unormSrgb :: JSString+js_GPUTextureFormatEtc2Rgba8unormSrgb = "etc2-rgba8unorm-srgb"+js_GPUTextureFormatEacR11unorm :: JSString+js_GPUTextureFormatEacR11unorm = "eac-r11unorm"+js_GPUTextureFormatEacR11snorm :: JSString+js_GPUTextureFormatEacR11snorm = "eac-r11snorm"+js_GPUTextureFormatEacRg11unorm :: JSString+js_GPUTextureFormatEacRg11unorm = "eac-rg11unorm"+js_GPUTextureFormatEacRg11snorm :: JSString+js_GPUTextureFormatEacRg11snorm = "eac-rg11snorm"+js_GPUTextureFormatAstc4x4Unorm :: JSString+js_GPUTextureFormatAstc4x4Unorm = "astc-4x4-unorm"+js_GPUTextureFormatAstc4x4UnormSrgb :: JSString+js_GPUTextureFormatAstc4x4UnormSrgb = "astc-4x4-unorm-srgb"+js_GPUTextureFormatAstc5x4Unorm :: JSString+js_GPUTextureFormatAstc5x4Unorm = "astc-5x4-unorm"+js_GPUTextureFormatAstc5x4UnormSrgb :: JSString+js_GPUTextureFormatAstc5x4UnormSrgb = "astc-5x4-unorm-srgb"+js_GPUTextureFormatAstc5x5Unorm :: JSString+js_GPUTextureFormatAstc5x5Unorm = "astc-5x5-unorm"+js_GPUTextureFormatAstc5x5UnormSrgb :: JSString+js_GPUTextureFormatAstc5x5UnormSrgb = "astc-5x5-unorm-srgb"+js_GPUTextureFormatAstc6x5Unorm :: JSString+js_GPUTextureFormatAstc6x5Unorm = "astc-6x5-unorm"+js_GPUTextureFormatAstc6x5UnormSrgb :: JSString+js_GPUTextureFormatAstc6x5UnormSrgb = "astc-6x5-unorm-srgb"+js_GPUTextureFormatAstc6x6Unorm :: JSString+js_GPUTextureFormatAstc6x6Unorm = "astc-6x6-unorm"+js_GPUTextureFormatAstc6x6UnormSrgb :: JSString+js_GPUTextureFormatAstc6x6UnormSrgb = "astc-6x6-unorm-srgb"+js_GPUTextureFormatAstc8x5Unorm :: JSString+js_GPUTextureFormatAstc8x5Unorm = "astc-8x5-unorm"+js_GPUTextureFormatAstc8x5UnormSrgb :: JSString+js_GPUTextureFormatAstc8x5UnormSrgb = "astc-8x5-unorm-srgb"+js_GPUTextureFormatAstc8x6Unorm :: JSString+js_GPUTextureFormatAstc8x6Unorm = "astc-8x6-unorm"+js_GPUTextureFormatAstc8x6UnormSrgb :: JSString+js_GPUTextureFormatAstc8x6UnormSrgb = "astc-8x6-unorm-srgb"+js_GPUTextureFormatAstc8x8Unorm :: JSString+js_GPUTextureFormatAstc8x8Unorm = "astc-8x8-unorm"+js_GPUTextureFormatAstc8x8UnormSrgb :: JSString+js_GPUTextureFormatAstc8x8UnormSrgb = "astc-8x8-unorm-srgb"+js_GPUTextureFormatAstc10x5Unorm :: JSString+js_GPUTextureFormatAstc10x5Unorm = "astc-10x5-unorm"+js_GPUTextureFormatAstc10x5UnormSrgb :: JSString+js_GPUTextureFormatAstc10x5UnormSrgb = "astc-10x5-unorm-srgb"+js_GPUTextureFormatAstc10x6Unorm :: JSString+js_GPUTextureFormatAstc10x6Unorm = "astc-10x6-unorm"+js_GPUTextureFormatAstc10x6UnormSrgb :: JSString+js_GPUTextureFormatAstc10x6UnormSrgb = "astc-10x6-unorm-srgb"+js_GPUTextureFormatAstc10x8Unorm :: JSString+js_GPUTextureFormatAstc10x8Unorm = "astc-10x8-unorm"+js_GPUTextureFormatAstc10x8UnormSrgb :: JSString+js_GPUTextureFormatAstc10x8UnormSrgb = "astc-10x8-unorm-srgb"+js_GPUTextureFormatAstc10x10Unorm :: JSString+js_GPUTextureFormatAstc10x10Unorm = "astc-10x10-unorm"+js_GPUTextureFormatAstc10x10UnormSrgb :: JSString+js_GPUTextureFormatAstc10x10UnormSrgb = "astc-10x10-unorm-srgb"+js_GPUTextureFormatAstc12x10Unorm :: JSString+js_GPUTextureFormatAstc12x10Unorm = "astc-12x10-unorm"+js_GPUTextureFormatAstc12x10UnormSrgb :: JSString+js_GPUTextureFormatAstc12x10UnormSrgb = "astc-12x10-unorm-srgb"+js_GPUTextureFormatAstc12x12Unorm :: JSString+js_GPUTextureFormatAstc12x12Unorm = "astc-12x12-unorm"+js_GPUTextureFormatAstc12x12UnormSrgb :: JSString+js_GPUTextureFormatAstc12x12UnormSrgb = "astc-12x12-unorm-srgb"++-- | <https://developer.mozilla.org/en-US/docs/Web/API GPUTextureSampleType> (webgpu)+data GPUTextureSampleType = GPUTextureSampleTypeFloat+ | GPUTextureSampleTypeUnfilterableFloat+ | GPUTextureSampleTypeDepth+ | GPUTextureSampleTypeSint+ | GPUTextureSampleTypeUint+ deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal GPUTextureSampleType where+ pToJSVal x = pToJSVal (case x of+ GPUTextureSampleTypeFloat -> js_GPUTextureSampleTypeFloat+ GPUTextureSampleTypeUnfilterableFloat -> js_GPUTextureSampleTypeUnfilterableFloat+ GPUTextureSampleTypeDepth -> js_GPUTextureSampleTypeDepth+ GPUTextureSampleTypeSint -> js_GPUTextureSampleTypeSint+ GPUTextureSampleTypeUint -> js_GPUTextureSampleTypeUint+ )++instance ToJSVal GPUTextureSampleType where+ toJSVal = P.return . pToJSVal++instance PFromJSVal GPUTextureSampleType where+ pFromJSVal x = P.maybe (P.error "Unexpected GPUTextureSampleType value") P.id (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_GPUTextureSampleTypeFloat, GPUTextureSampleTypeFloat), (js_GPUTextureSampleTypeUnfilterableFloat, GPUTextureSampleTypeUnfilterableFloat), (js_GPUTextureSampleTypeDepth, GPUTextureSampleTypeDepth), (js_GPUTextureSampleTypeSint, GPUTextureSampleTypeSint), (js_GPUTextureSampleTypeUint, GPUTextureSampleTypeUint)]++instance FromJSVal GPUTextureSampleType where+ fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_GPUTextureSampleTypeFloat, GPUTextureSampleTypeFloat), (js_GPUTextureSampleTypeUnfilterableFloat, GPUTextureSampleTypeUnfilterableFloat), (js_GPUTextureSampleTypeDepth, GPUTextureSampleTypeDepth), (js_GPUTextureSampleTypeSint, GPUTextureSampleTypeSint), (js_GPUTextureSampleTypeUint, GPUTextureSampleTypeUint)]+ fromJSValUnchecked = P.return . pFromJSVal++js_GPUTextureSampleTypeFloat :: JSString+js_GPUTextureSampleTypeFloat = "float"+js_GPUTextureSampleTypeUnfilterableFloat :: JSString+js_GPUTextureSampleTypeUnfilterableFloat = "unfilterable-float"+js_GPUTextureSampleTypeDepth :: JSString+js_GPUTextureSampleTypeDepth = "depth"+js_GPUTextureSampleTypeSint :: JSString+js_GPUTextureSampleTypeSint = "sint"+js_GPUTextureSampleTypeUint :: JSString+js_GPUTextureSampleTypeUint = "uint"++-- | <https://developer.mozilla.org/en-US/docs/Web/API GPUTextureViewDimension> (webgpu)+data GPUTextureViewDimension = GPUTextureViewDimension1d+ | GPUTextureViewDimension2d+ | GPUTextureViewDimension2dArray+ | GPUTextureViewDimensionCube+ | GPUTextureViewDimensionCubeArray+ | GPUTextureViewDimension3d+ deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal GPUTextureViewDimension where+ pToJSVal x = pToJSVal (case x of+ GPUTextureViewDimension1d -> js_GPUTextureViewDimension1d+ GPUTextureViewDimension2d -> js_GPUTextureViewDimension2d+ GPUTextureViewDimension2dArray -> js_GPUTextureViewDimension2dArray+ GPUTextureViewDimensionCube -> js_GPUTextureViewDimensionCube+ GPUTextureViewDimensionCubeArray -> js_GPUTextureViewDimensionCubeArray+ GPUTextureViewDimension3d -> js_GPUTextureViewDimension3d+ )++instance ToJSVal GPUTextureViewDimension where+ toJSVal = P.return . pToJSVal++instance PFromJSVal GPUTextureViewDimension where+ pFromJSVal x = P.maybe (P.error "Unexpected GPUTextureViewDimension value") P.id (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_GPUTextureViewDimension1d, GPUTextureViewDimension1d), (js_GPUTextureViewDimension2d, GPUTextureViewDimension2d), (js_GPUTextureViewDimension2dArray, GPUTextureViewDimension2dArray), (js_GPUTextureViewDimensionCube, GPUTextureViewDimensionCube), (js_GPUTextureViewDimensionCubeArray, GPUTextureViewDimensionCubeArray), (js_GPUTextureViewDimension3d, GPUTextureViewDimension3d)]++instance FromJSVal GPUTextureViewDimension where+ fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_GPUTextureViewDimension1d, GPUTextureViewDimension1d), (js_GPUTextureViewDimension2d, GPUTextureViewDimension2d), (js_GPUTextureViewDimension2dArray, GPUTextureViewDimension2dArray), (js_GPUTextureViewDimensionCube, GPUTextureViewDimensionCube), (js_GPUTextureViewDimensionCubeArray, GPUTextureViewDimensionCubeArray), (js_GPUTextureViewDimension3d, GPUTextureViewDimension3d)]+ fromJSValUnchecked = P.return . pFromJSVal++js_GPUTextureViewDimension1d :: JSString+js_GPUTextureViewDimension1d = "1d"+js_GPUTextureViewDimension2d :: JSString+js_GPUTextureViewDimension2d = "2d"+js_GPUTextureViewDimension2dArray :: JSString+js_GPUTextureViewDimension2dArray = "2d-array"+js_GPUTextureViewDimensionCube :: JSString+js_GPUTextureViewDimensionCube = "cube"+js_GPUTextureViewDimensionCubeArray :: JSString+js_GPUTextureViewDimensionCubeArray = "cube-array"+js_GPUTextureViewDimension3d :: JSString+js_GPUTextureViewDimension3d = "3d"++-- | <https://developer.mozilla.org/en-US/docs/Web/API GPUVertexFormat> (webgpu)+data GPUVertexFormat = GPUVertexFormatUint8+ | GPUVertexFormatUint8x2+ | GPUVertexFormatUint8x4+ | GPUVertexFormatSint8+ | GPUVertexFormatSint8x2+ | GPUVertexFormatSint8x4+ | GPUVertexFormatUnorm8+ | GPUVertexFormatUnorm8x2+ | GPUVertexFormatUnorm8x4+ | GPUVertexFormatSnorm8+ | GPUVertexFormatSnorm8x2+ | GPUVertexFormatSnorm8x4+ | GPUVertexFormatUint16+ | GPUVertexFormatUint16x2+ | GPUVertexFormatUint16x4+ | GPUVertexFormatSint16+ | GPUVertexFormatSint16x2+ | GPUVertexFormatSint16x4+ | GPUVertexFormatUnorm16+ | GPUVertexFormatUnorm16x2+ | GPUVertexFormatUnorm16x4+ | GPUVertexFormatSnorm16+ | GPUVertexFormatSnorm16x2+ | GPUVertexFormatSnorm16x4+ | GPUVertexFormatFloat16+ | GPUVertexFormatFloat16x2+ | GPUVertexFormatFloat16x4+ | GPUVertexFormatFloat32+ | GPUVertexFormatFloat32x2+ | GPUVertexFormatFloat32x3+ | GPUVertexFormatFloat32x4+ | GPUVertexFormatUint32+ | GPUVertexFormatUint32x2+ | GPUVertexFormatUint32x3+ | GPUVertexFormatUint32x4+ | GPUVertexFormatSint32+ | GPUVertexFormatSint32x2+ | GPUVertexFormatSint32x3+ | GPUVertexFormatSint32x4+ | GPUVertexFormatUnorm1010102+ | GPUVertexFormatUnorm8x4Bgra+ | GPUVertexFormatSnorm1010102+ deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal GPUVertexFormat where+ pToJSVal x = pToJSVal (case x of+ GPUVertexFormatUint8 -> js_GPUVertexFormatUint8+ GPUVertexFormatUint8x2 -> js_GPUVertexFormatUint8x2+ GPUVertexFormatUint8x4 -> js_GPUVertexFormatUint8x4+ GPUVertexFormatSint8 -> js_GPUVertexFormatSint8+ GPUVertexFormatSint8x2 -> js_GPUVertexFormatSint8x2+ GPUVertexFormatSint8x4 -> js_GPUVertexFormatSint8x4+ GPUVertexFormatUnorm8 -> js_GPUVertexFormatUnorm8+ GPUVertexFormatUnorm8x2 -> js_GPUVertexFormatUnorm8x2+ GPUVertexFormatUnorm8x4 -> js_GPUVertexFormatUnorm8x4+ GPUVertexFormatSnorm8 -> js_GPUVertexFormatSnorm8+ GPUVertexFormatSnorm8x2 -> js_GPUVertexFormatSnorm8x2+ GPUVertexFormatSnorm8x4 -> js_GPUVertexFormatSnorm8x4+ GPUVertexFormatUint16 -> js_GPUVertexFormatUint16+ GPUVertexFormatUint16x2 -> js_GPUVertexFormatUint16x2+ GPUVertexFormatUint16x4 -> js_GPUVertexFormatUint16x4+ GPUVertexFormatSint16 -> js_GPUVertexFormatSint16+ GPUVertexFormatSint16x2 -> js_GPUVertexFormatSint16x2+ GPUVertexFormatSint16x4 -> js_GPUVertexFormatSint16x4+ GPUVertexFormatUnorm16 -> js_GPUVertexFormatUnorm16+ GPUVertexFormatUnorm16x2 -> js_GPUVertexFormatUnorm16x2+ GPUVertexFormatUnorm16x4 -> js_GPUVertexFormatUnorm16x4+ GPUVertexFormatSnorm16 -> js_GPUVertexFormatSnorm16+ GPUVertexFormatSnorm16x2 -> js_GPUVertexFormatSnorm16x2+ GPUVertexFormatSnorm16x4 -> js_GPUVertexFormatSnorm16x4+ GPUVertexFormatFloat16 -> js_GPUVertexFormatFloat16+ GPUVertexFormatFloat16x2 -> js_GPUVertexFormatFloat16x2+ GPUVertexFormatFloat16x4 -> js_GPUVertexFormatFloat16x4+ GPUVertexFormatFloat32 -> js_GPUVertexFormatFloat32+ GPUVertexFormatFloat32x2 -> js_GPUVertexFormatFloat32x2+ GPUVertexFormatFloat32x3 -> js_GPUVertexFormatFloat32x3+ GPUVertexFormatFloat32x4 -> js_GPUVertexFormatFloat32x4+ GPUVertexFormatUint32 -> js_GPUVertexFormatUint32+ GPUVertexFormatUint32x2 -> js_GPUVertexFormatUint32x2+ GPUVertexFormatUint32x3 -> js_GPUVertexFormatUint32x3+ GPUVertexFormatUint32x4 -> js_GPUVertexFormatUint32x4+ GPUVertexFormatSint32 -> js_GPUVertexFormatSint32+ GPUVertexFormatSint32x2 -> js_GPUVertexFormatSint32x2+ GPUVertexFormatSint32x3 -> js_GPUVertexFormatSint32x3+ GPUVertexFormatSint32x4 -> js_GPUVertexFormatSint32x4+ GPUVertexFormatUnorm1010102 -> js_GPUVertexFormatUnorm1010102+ GPUVertexFormatUnorm8x4Bgra -> js_GPUVertexFormatUnorm8x4Bgra+ GPUVertexFormatSnorm1010102 -> js_GPUVertexFormatSnorm1010102+ )++instance ToJSVal GPUVertexFormat where+ toJSVal = P.return . pToJSVal++instance PFromJSVal GPUVertexFormat where+ pFromJSVal x = P.maybe (P.error "Unexpected GPUVertexFormat value") P.id (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_GPUVertexFormatUint8, GPUVertexFormatUint8), (js_GPUVertexFormatUint8x2, GPUVertexFormatUint8x2), (js_GPUVertexFormatUint8x4, GPUVertexFormatUint8x4), (js_GPUVertexFormatSint8, GPUVertexFormatSint8), (js_GPUVertexFormatSint8x2, GPUVertexFormatSint8x2), (js_GPUVertexFormatSint8x4, GPUVertexFormatSint8x4), (js_GPUVertexFormatUnorm8, GPUVertexFormatUnorm8), (js_GPUVertexFormatUnorm8x2, GPUVertexFormatUnorm8x2), (js_GPUVertexFormatUnorm8x4, GPUVertexFormatUnorm8x4), (js_GPUVertexFormatSnorm8, GPUVertexFormatSnorm8), (js_GPUVertexFormatSnorm8x2, GPUVertexFormatSnorm8x2), (js_GPUVertexFormatSnorm8x4, GPUVertexFormatSnorm8x4), (js_GPUVertexFormatUint16, GPUVertexFormatUint16), (js_GPUVertexFormatUint16x2, GPUVertexFormatUint16x2), (js_GPUVertexFormatUint16x4, GPUVertexFormatUint16x4), (js_GPUVertexFormatSint16, GPUVertexFormatSint16), (js_GPUVertexFormatSint16x2, GPUVertexFormatSint16x2), (js_GPUVertexFormatSint16x4, GPUVertexFormatSint16x4), (js_GPUVertexFormatUnorm16, GPUVertexFormatUnorm16), (js_GPUVertexFormatUnorm16x2, GPUVertexFormatUnorm16x2), (js_GPUVertexFormatUnorm16x4, GPUVertexFormatUnorm16x4), (js_GPUVertexFormatSnorm16, GPUVertexFormatSnorm16), (js_GPUVertexFormatSnorm16x2, GPUVertexFormatSnorm16x2), (js_GPUVertexFormatSnorm16x4, GPUVertexFormatSnorm16x4), (js_GPUVertexFormatFloat16, GPUVertexFormatFloat16), (js_GPUVertexFormatFloat16x2, GPUVertexFormatFloat16x2), (js_GPUVertexFormatFloat16x4, GPUVertexFormatFloat16x4), (js_GPUVertexFormatFloat32, GPUVertexFormatFloat32), (js_GPUVertexFormatFloat32x2, GPUVertexFormatFloat32x2), (js_GPUVertexFormatFloat32x3, GPUVertexFormatFloat32x3), (js_GPUVertexFormatFloat32x4, GPUVertexFormatFloat32x4), (js_GPUVertexFormatUint32, GPUVertexFormatUint32), (js_GPUVertexFormatUint32x2, GPUVertexFormatUint32x2), (js_GPUVertexFormatUint32x3, GPUVertexFormatUint32x3), (js_GPUVertexFormatUint32x4, GPUVertexFormatUint32x4), (js_GPUVertexFormatSint32, GPUVertexFormatSint32), (js_GPUVertexFormatSint32x2, GPUVertexFormatSint32x2), (js_GPUVertexFormatSint32x3, GPUVertexFormatSint32x3), (js_GPUVertexFormatSint32x4, GPUVertexFormatSint32x4), (js_GPUVertexFormatUnorm1010102, GPUVertexFormatUnorm1010102), (js_GPUVertexFormatUnorm8x4Bgra, GPUVertexFormatUnorm8x4Bgra), (js_GPUVertexFormatSnorm1010102, GPUVertexFormatSnorm1010102)]++instance FromJSVal GPUVertexFormat where+ fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_GPUVertexFormatUint8, GPUVertexFormatUint8), (js_GPUVertexFormatUint8x2, GPUVertexFormatUint8x2), (js_GPUVertexFormatUint8x4, GPUVertexFormatUint8x4), (js_GPUVertexFormatSint8, GPUVertexFormatSint8), (js_GPUVertexFormatSint8x2, GPUVertexFormatSint8x2), (js_GPUVertexFormatSint8x4, GPUVertexFormatSint8x4), (js_GPUVertexFormatUnorm8, GPUVertexFormatUnorm8), (js_GPUVertexFormatUnorm8x2, GPUVertexFormatUnorm8x2), (js_GPUVertexFormatUnorm8x4, GPUVertexFormatUnorm8x4), (js_GPUVertexFormatSnorm8, GPUVertexFormatSnorm8), (js_GPUVertexFormatSnorm8x2, GPUVertexFormatSnorm8x2), (js_GPUVertexFormatSnorm8x4, GPUVertexFormatSnorm8x4), (js_GPUVertexFormatUint16, GPUVertexFormatUint16), (js_GPUVertexFormatUint16x2, GPUVertexFormatUint16x2), (js_GPUVertexFormatUint16x4, GPUVertexFormatUint16x4), (js_GPUVertexFormatSint16, GPUVertexFormatSint16), (js_GPUVertexFormatSint16x2, GPUVertexFormatSint16x2), (js_GPUVertexFormatSint16x4, GPUVertexFormatSint16x4), (js_GPUVertexFormatUnorm16, GPUVertexFormatUnorm16), (js_GPUVertexFormatUnorm16x2, GPUVertexFormatUnorm16x2), (js_GPUVertexFormatUnorm16x4, GPUVertexFormatUnorm16x4), (js_GPUVertexFormatSnorm16, GPUVertexFormatSnorm16), (js_GPUVertexFormatSnorm16x2, GPUVertexFormatSnorm16x2), (js_GPUVertexFormatSnorm16x4, GPUVertexFormatSnorm16x4), (js_GPUVertexFormatFloat16, GPUVertexFormatFloat16), (js_GPUVertexFormatFloat16x2, GPUVertexFormatFloat16x2), (js_GPUVertexFormatFloat16x4, GPUVertexFormatFloat16x4), (js_GPUVertexFormatFloat32, GPUVertexFormatFloat32), (js_GPUVertexFormatFloat32x2, GPUVertexFormatFloat32x2), (js_GPUVertexFormatFloat32x3, GPUVertexFormatFloat32x3), (js_GPUVertexFormatFloat32x4, GPUVertexFormatFloat32x4), (js_GPUVertexFormatUint32, GPUVertexFormatUint32), (js_GPUVertexFormatUint32x2, GPUVertexFormatUint32x2), (js_GPUVertexFormatUint32x3, GPUVertexFormatUint32x3), (js_GPUVertexFormatUint32x4, GPUVertexFormatUint32x4), (js_GPUVertexFormatSint32, GPUVertexFormatSint32), (js_GPUVertexFormatSint32x2, GPUVertexFormatSint32x2), (js_GPUVertexFormatSint32x3, GPUVertexFormatSint32x3), (js_GPUVertexFormatSint32x4, GPUVertexFormatSint32x4), (js_GPUVertexFormatUnorm1010102, GPUVertexFormatUnorm1010102), (js_GPUVertexFormatUnorm8x4Bgra, GPUVertexFormatUnorm8x4Bgra), (js_GPUVertexFormatSnorm1010102, GPUVertexFormatSnorm1010102)]+ fromJSValUnchecked = P.return . pFromJSVal++js_GPUVertexFormatUint8 :: JSString+js_GPUVertexFormatUint8 = "uint8"+js_GPUVertexFormatUint8x2 :: JSString+js_GPUVertexFormatUint8x2 = "uint8x2"+js_GPUVertexFormatUint8x4 :: JSString+js_GPUVertexFormatUint8x4 = "uint8x4"+js_GPUVertexFormatSint8 :: JSString+js_GPUVertexFormatSint8 = "sint8"+js_GPUVertexFormatSint8x2 :: JSString+js_GPUVertexFormatSint8x2 = "sint8x2"+js_GPUVertexFormatSint8x4 :: JSString+js_GPUVertexFormatSint8x4 = "sint8x4"+js_GPUVertexFormatUnorm8 :: JSString+js_GPUVertexFormatUnorm8 = "unorm8"+js_GPUVertexFormatUnorm8x2 :: JSString+js_GPUVertexFormatUnorm8x2 = "unorm8x2"+js_GPUVertexFormatUnorm8x4 :: JSString+js_GPUVertexFormatUnorm8x4 = "unorm8x4"+js_GPUVertexFormatSnorm8 :: JSString+js_GPUVertexFormatSnorm8 = "snorm8"+js_GPUVertexFormatSnorm8x2 :: JSString+js_GPUVertexFormatSnorm8x2 = "snorm8x2"+js_GPUVertexFormatSnorm8x4 :: JSString+js_GPUVertexFormatSnorm8x4 = "snorm8x4"+js_GPUVertexFormatUint16 :: JSString+js_GPUVertexFormatUint16 = "uint16"+js_GPUVertexFormatUint16x2 :: JSString+js_GPUVertexFormatUint16x2 = "uint16x2"+js_GPUVertexFormatUint16x4 :: JSString+js_GPUVertexFormatUint16x4 = "uint16x4"+js_GPUVertexFormatSint16 :: JSString+js_GPUVertexFormatSint16 = "sint16"+js_GPUVertexFormatSint16x2 :: JSString+js_GPUVertexFormatSint16x2 = "sint16x2"+js_GPUVertexFormatSint16x4 :: JSString+js_GPUVertexFormatSint16x4 = "sint16x4"+js_GPUVertexFormatUnorm16 :: JSString+js_GPUVertexFormatUnorm16 = "unorm16"+js_GPUVertexFormatUnorm16x2 :: JSString+js_GPUVertexFormatUnorm16x2 = "unorm16x2"+js_GPUVertexFormatUnorm16x4 :: JSString+js_GPUVertexFormatUnorm16x4 = "unorm16x4"+js_GPUVertexFormatSnorm16 :: JSString+js_GPUVertexFormatSnorm16 = "snorm16"+js_GPUVertexFormatSnorm16x2 :: JSString+js_GPUVertexFormatSnorm16x2 = "snorm16x2"+js_GPUVertexFormatSnorm16x4 :: JSString+js_GPUVertexFormatSnorm16x4 = "snorm16x4"+js_GPUVertexFormatFloat16 :: JSString+js_GPUVertexFormatFloat16 = "float16"+js_GPUVertexFormatFloat16x2 :: JSString+js_GPUVertexFormatFloat16x2 = "float16x2"+js_GPUVertexFormatFloat16x4 :: JSString+js_GPUVertexFormatFloat16x4 = "float16x4"+js_GPUVertexFormatFloat32 :: JSString+js_GPUVertexFormatFloat32 = "float32"+js_GPUVertexFormatFloat32x2 :: JSString+js_GPUVertexFormatFloat32x2 = "float32x2"+js_GPUVertexFormatFloat32x3 :: JSString+js_GPUVertexFormatFloat32x3 = "float32x3"+js_GPUVertexFormatFloat32x4 :: JSString+js_GPUVertexFormatFloat32x4 = "float32x4"+js_GPUVertexFormatUint32 :: JSString+js_GPUVertexFormatUint32 = "uint32"+js_GPUVertexFormatUint32x2 :: JSString+js_GPUVertexFormatUint32x2 = "uint32x2"+js_GPUVertexFormatUint32x3 :: JSString+js_GPUVertexFormatUint32x3 = "uint32x3"+js_GPUVertexFormatUint32x4 :: JSString+js_GPUVertexFormatUint32x4 = "uint32x4"+js_GPUVertexFormatSint32 :: JSString+js_GPUVertexFormatSint32 = "sint32"+js_GPUVertexFormatSint32x2 :: JSString+js_GPUVertexFormatSint32x2 = "sint32x2"+js_GPUVertexFormatSint32x3 :: JSString+js_GPUVertexFormatSint32x3 = "sint32x3"+js_GPUVertexFormatSint32x4 :: JSString+js_GPUVertexFormatSint32x4 = "sint32x4"+js_GPUVertexFormatUnorm1010102 :: JSString+js_GPUVertexFormatUnorm1010102 = "unorm10-10-10-2"+js_GPUVertexFormatUnorm8x4Bgra :: JSString+js_GPUVertexFormatUnorm8x4Bgra = "unorm8x4-bgra"+js_GPUVertexFormatSnorm1010102 :: JSString+js_GPUVertexFormatSnorm1010102 = "snorm10-10-10-2"++-- | <https://developer.mozilla.org/en-US/docs/Web/API GPUVertexStepMode> (webgpu)+data GPUVertexStepMode = GPUVertexStepModeVertex+ | GPUVertexStepModeInstance+ deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal GPUVertexStepMode where+ pToJSVal x = pToJSVal (case x of+ GPUVertexStepModeVertex -> js_GPUVertexStepModeVertex+ GPUVertexStepModeInstance -> js_GPUVertexStepModeInstance+ )++instance ToJSVal GPUVertexStepMode where+ toJSVal = P.return . pToJSVal++instance PFromJSVal GPUVertexStepMode where+ pFromJSVal x = P.maybe (P.error "Unexpected GPUVertexStepMode value") P.id (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_GPUVertexStepModeVertex, GPUVertexStepModeVertex), (js_GPUVertexStepModeInstance, GPUVertexStepModeInstance)]++instance FromJSVal GPUVertexStepMode where+ fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_GPUVertexStepModeVertex, GPUVertexStepModeVertex), (js_GPUVertexStepModeInstance, GPUVertexStepModeInstance)]+ fromJSValUnchecked = P.return . pFromJSVal++js_GPUVertexStepModeVertex :: JSString+js_GPUVertexStepModeVertex = "vertex"+js_GPUVertexStepModeInstance :: JSString+js_GPUVertexStepModeInstance = "instance"++-- | <https://developer.mozilla.org/en-US/docs/Web/API GamepadHapticEffectType> (gamepad)+data GamepadHapticEffectType = GamepadHapticEffectTypeDualRumble+ | GamepadHapticEffectTypeTriggerRumble+ deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal GamepadHapticEffectType where+ pToJSVal x = pToJSVal (case x of+ GamepadHapticEffectTypeDualRumble -> js_GamepadHapticEffectTypeDualRumble+ GamepadHapticEffectTypeTriggerRumble -> js_GamepadHapticEffectTypeTriggerRumble+ )++instance ToJSVal GamepadHapticEffectType where+ toJSVal = P.return . pToJSVal++instance PFromJSVal GamepadHapticEffectType where+ pFromJSVal x = P.maybe (P.error "Unexpected GamepadHapticEffectType value") P.id (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_GamepadHapticEffectTypeDualRumble, GamepadHapticEffectTypeDualRumble), (js_GamepadHapticEffectTypeTriggerRumble, GamepadHapticEffectTypeTriggerRumble)]++instance FromJSVal GamepadHapticEffectType where+ fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_GamepadHapticEffectTypeDualRumble, GamepadHapticEffectTypeDualRumble), (js_GamepadHapticEffectTypeTriggerRumble, GamepadHapticEffectTypeTriggerRumble)]+ fromJSValUnchecked = P.return . pFromJSVal++js_GamepadHapticEffectTypeDualRumble :: JSString+js_GamepadHapticEffectTypeDualRumble = "dual-rumble"+js_GamepadHapticEffectTypeTriggerRumble :: JSString+js_GamepadHapticEffectTypeTriggerRumble = "trigger-rumble"++-- | <https://developer.mozilla.org/en-US/docs/Web/API GamepadHapticsResult> (gamepad)+data GamepadHapticsResult = GamepadHapticsResultComplete+ | GamepadHapticsResultPreempted+ deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal GamepadHapticsResult where+ pToJSVal x = pToJSVal (case x of+ GamepadHapticsResultComplete -> js_GamepadHapticsResultComplete+ GamepadHapticsResultPreempted -> js_GamepadHapticsResultPreempted+ )++instance ToJSVal GamepadHapticsResult where+ toJSVal = P.return . pToJSVal++instance PFromJSVal GamepadHapticsResult where+ pFromJSVal x = P.maybe (P.error "Unexpected GamepadHapticsResult value") P.id (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_GamepadHapticsResultComplete, GamepadHapticsResultComplete), (js_GamepadHapticsResultPreempted, GamepadHapticsResultPreempted)]++instance FromJSVal GamepadHapticsResult where+ fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_GamepadHapticsResultComplete, GamepadHapticsResultComplete), (js_GamepadHapticsResultPreempted, GamepadHapticsResultPreempted)]+ fromJSValUnchecked = P.return . pFromJSVal++js_GamepadHapticsResultComplete :: JSString+js_GamepadHapticsResultComplete = "complete"+js_GamepadHapticsResultPreempted :: JSString+js_GamepadHapticsResultPreempted = "preempted"++-- | <https://developer.mozilla.org/en-US/docs/Web/API GamepadMappingType> (gamepad)+data GamepadMappingType = GamepadMappingType+ | GamepadMappingTypeStandard+ | GamepadMappingTypeXrStandard+ deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal GamepadMappingType where+ pToJSVal x = pToJSVal (case x of+ GamepadMappingType -> js_GamepadMappingType+ GamepadMappingTypeStandard -> js_GamepadMappingTypeStandard+ GamepadMappingTypeXrStandard -> js_GamepadMappingTypeXrStandard+ )++instance ToJSVal GamepadMappingType where+ toJSVal = P.return . pToJSVal++instance PFromJSVal GamepadMappingType where+ pFromJSVal x = P.maybe (P.error "Unexpected GamepadMappingType value") P.id (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_GamepadMappingType, GamepadMappingType), (js_GamepadMappingTypeStandard, GamepadMappingTypeStandard), (js_GamepadMappingTypeXrStandard, GamepadMappingTypeXrStandard)]++instance FromJSVal GamepadMappingType where+ fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_GamepadMappingType, GamepadMappingType), (js_GamepadMappingTypeStandard, GamepadMappingTypeStandard), (js_GamepadMappingTypeXrStandard, GamepadMappingTypeXrStandard)]+ fromJSValUnchecked = P.return . pFromJSVal++js_GamepadMappingType :: JSString+js_GamepadMappingType = ""+js_GamepadMappingTypeStandard :: JSString+js_GamepadMappingTypeStandard = "standard"+js_GamepadMappingTypeXrStandard :: JSString+js_GamepadMappingTypeXrStandard = "xr-standard"++-- | <https://developer.mozilla.org/en-US/docs/Web/API GetUserMediaSemantics> (mediacapture-extensions)+data GetUserMediaSemantics = GetUserMediaSemanticsBrowserChooses+ | GetUserMediaSemanticsUserChooses+ deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal GetUserMediaSemantics where+ pToJSVal x = pToJSVal (case x of+ GetUserMediaSemanticsBrowserChooses -> js_GetUserMediaSemanticsBrowserChooses+ GetUserMediaSemanticsUserChooses -> js_GetUserMediaSemanticsUserChooses+ )++instance ToJSVal GetUserMediaSemantics where+ toJSVal = P.return . pToJSVal++instance PFromJSVal GetUserMediaSemantics where+ pFromJSVal x = P.maybe (P.error "Unexpected GetUserMediaSemantics value") P.id (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_GetUserMediaSemanticsBrowserChooses, GetUserMediaSemanticsBrowserChooses), (js_GetUserMediaSemanticsUserChooses, GetUserMediaSemanticsUserChooses)]++instance FromJSVal GetUserMediaSemantics where+ fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_GetUserMediaSemanticsBrowserChooses, GetUserMediaSemanticsBrowserChooses), (js_GetUserMediaSemanticsUserChooses, GetUserMediaSemanticsUserChooses)]+ fromJSValUnchecked = P.return . pFromJSVal++js_GetUserMediaSemanticsBrowserChooses :: JSString+js_GetUserMediaSemanticsBrowserChooses = "browser-chooses"+js_GetUserMediaSemanticsUserChooses :: JSString+js_GetUserMediaSemanticsUserChooses = "user-chooses"++-- | <https://developer.mozilla.org/en-US/docs/Web/API HardwareAcceleration> (webcodecs)+data HardwareAcceleration = HardwareAccelerationNoPreference+ | HardwareAccelerationPreferHardware+ | HardwareAccelerationPreferSoftware+ deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal HardwareAcceleration where+ pToJSVal x = pToJSVal (case x of+ HardwareAccelerationNoPreference -> js_HardwareAccelerationNoPreference+ HardwareAccelerationPreferHardware -> js_HardwareAccelerationPreferHardware+ HardwareAccelerationPreferSoftware -> js_HardwareAccelerationPreferSoftware+ )++instance ToJSVal HardwareAcceleration where+ toJSVal = P.return . pToJSVal++instance PFromJSVal HardwareAcceleration where+ pFromJSVal x = P.maybe (P.error "Unexpected HardwareAcceleration value") P.id (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_HardwareAccelerationNoPreference, HardwareAccelerationNoPreference), (js_HardwareAccelerationPreferHardware, HardwareAccelerationPreferHardware), (js_HardwareAccelerationPreferSoftware, HardwareAccelerationPreferSoftware)]++instance FromJSVal HardwareAcceleration where+ fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_HardwareAccelerationNoPreference, HardwareAccelerationNoPreference), (js_HardwareAccelerationPreferHardware, HardwareAccelerationPreferHardware), (js_HardwareAccelerationPreferSoftware, HardwareAccelerationPreferSoftware)]+ fromJSValUnchecked = P.return . pFromJSVal++js_HardwareAccelerationNoPreference :: JSString+js_HardwareAccelerationNoPreference = "no-preference"+js_HardwareAccelerationPreferHardware :: JSString+js_HardwareAccelerationPreferHardware = "prefer-hardware"+js_HardwareAccelerationPreferSoftware :: JSString+js_HardwareAccelerationPreferSoftware = "prefer-software"++-- | <https://developer.mozilla.org/en-US/docs/Web/API HdrMetadataType> (media-capabilities)+data HdrMetadataType = HdrMetadataTypeSmpteSt2086+ | HdrMetadataTypeSmpteSt209410+ | HdrMetadataTypeSmpteSt209440+ deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal HdrMetadataType where+ pToJSVal x = pToJSVal (case x of+ HdrMetadataTypeSmpteSt2086 -> js_HdrMetadataTypeSmpteSt2086+ HdrMetadataTypeSmpteSt209410 -> js_HdrMetadataTypeSmpteSt209410+ HdrMetadataTypeSmpteSt209440 -> js_HdrMetadataTypeSmpteSt209440+ )++instance ToJSVal HdrMetadataType where+ toJSVal = P.return . pToJSVal++instance PFromJSVal HdrMetadataType where+ pFromJSVal x = P.maybe (P.error "Unexpected HdrMetadataType value") P.id (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_HdrMetadataTypeSmpteSt2086, HdrMetadataTypeSmpteSt2086), (js_HdrMetadataTypeSmpteSt209410, HdrMetadataTypeSmpteSt209410), (js_HdrMetadataTypeSmpteSt209440, HdrMetadataTypeSmpteSt209440)]++instance FromJSVal HdrMetadataType where+ fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_HdrMetadataTypeSmpteSt2086, HdrMetadataTypeSmpteSt2086), (js_HdrMetadataTypeSmpteSt209410, HdrMetadataTypeSmpteSt209410), (js_HdrMetadataTypeSmpteSt209440, HdrMetadataTypeSmpteSt209440)]+ fromJSValUnchecked = P.return . pFromJSVal++js_HdrMetadataTypeSmpteSt2086 :: JSString+js_HdrMetadataTypeSmpteSt2086 = "smpteSt2086"+js_HdrMetadataTypeSmpteSt209410 :: JSString+js_HdrMetadataTypeSmpteSt209410 = "smpteSt2094-10"+js_HdrMetadataTypeSmpteSt209440 :: JSString+js_HdrMetadataTypeSmpteSt209440 = "smpteSt2094-40"++-- | <https://developer.mozilla.org/en-US/docs/Web/API HevcBitstreamFormat> (webcodecs-hevc-codec-registration)+data HevcBitstreamFormat = HevcBitstreamFormatAnnexb+ | HevcBitstreamFormatHevc+ deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal HevcBitstreamFormat where+ pToJSVal x = pToJSVal (case x of+ HevcBitstreamFormatAnnexb -> js_HevcBitstreamFormatAnnexb+ HevcBitstreamFormatHevc -> js_HevcBitstreamFormatHevc+ )++instance ToJSVal HevcBitstreamFormat where+ toJSVal = P.return . pToJSVal++instance PFromJSVal HevcBitstreamFormat where+ pFromJSVal x = P.maybe (P.error "Unexpected HevcBitstreamFormat value") P.id (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_HevcBitstreamFormatAnnexb, HevcBitstreamFormatAnnexb), (js_HevcBitstreamFormatHevc, HevcBitstreamFormatHevc)]++instance FromJSVal HevcBitstreamFormat where+ fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_HevcBitstreamFormatAnnexb, HevcBitstreamFormatAnnexb), (js_HevcBitstreamFormatHevc, HevcBitstreamFormatHevc)]+ fromJSValUnchecked = P.return . pFromJSVal++js_HevcBitstreamFormatAnnexb :: JSString+js_HevcBitstreamFormatAnnexb = "annexb"+js_HevcBitstreamFormatHevc :: JSString+js_HevcBitstreamFormatHevc = "hevc"++-- | <https://developer.mozilla.org/en-US/docs/Web/API HighlightType> (css-highlight-api-1)+data HighlightType = HighlightTypeHighlight+ | HighlightTypeSpellingError+ | HighlightTypeGrammarError+ deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal HighlightType where+ pToJSVal x = pToJSVal (case x of+ HighlightTypeHighlight -> js_HighlightTypeHighlight+ HighlightTypeSpellingError -> js_HighlightTypeSpellingError+ HighlightTypeGrammarError -> js_HighlightTypeGrammarError+ )++instance ToJSVal HighlightType where+ toJSVal = P.return . pToJSVal++instance PFromJSVal HighlightType where+ pFromJSVal x = P.maybe (P.error "Unexpected HighlightType value") P.id (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_HighlightTypeHighlight, HighlightTypeHighlight), (js_HighlightTypeSpellingError, HighlightTypeSpellingError), (js_HighlightTypeGrammarError, HighlightTypeGrammarError)]++instance FromJSVal HighlightType where+ fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_HighlightTypeHighlight, HighlightTypeHighlight), (js_HighlightTypeSpellingError, HighlightTypeSpellingError), (js_HighlightTypeGrammarError, HighlightTypeGrammarError)]+ fromJSValUnchecked = P.return . pFromJSVal++js_HighlightTypeHighlight :: JSString+js_HighlightTypeHighlight = "highlight"+js_HighlightTypeSpellingError :: JSString+js_HighlightTypeSpellingError = "spelling-error"+js_HighlightTypeGrammarError :: JSString+js_HighlightTypeGrammarError = "grammar-error"++-- | <https://developer.mozilla.org/en-US/docs/Web/API IDBCursorDirection> (IndexedDB-3)+data IDBCursorDirection = IDBCursorDirectionNext+ | IDBCursorDirectionNextunique+ | IDBCursorDirectionPrev+ | IDBCursorDirectionPrevunique+ deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal IDBCursorDirection where+ pToJSVal x = pToJSVal (case x of+ IDBCursorDirectionNext -> js_IDBCursorDirectionNext+ IDBCursorDirectionNextunique -> js_IDBCursorDirectionNextunique+ IDBCursorDirectionPrev -> js_IDBCursorDirectionPrev+ IDBCursorDirectionPrevunique -> js_IDBCursorDirectionPrevunique+ )++instance ToJSVal IDBCursorDirection where+ toJSVal = P.return . pToJSVal++instance PFromJSVal IDBCursorDirection where+ pFromJSVal x = P.maybe (P.error "Unexpected IDBCursorDirection value") P.id (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_IDBCursorDirectionNext, IDBCursorDirectionNext), (js_IDBCursorDirectionNextunique, IDBCursorDirectionNextunique), (js_IDBCursorDirectionPrev, IDBCursorDirectionPrev), (js_IDBCursorDirectionPrevunique, IDBCursorDirectionPrevunique)]++instance FromJSVal IDBCursorDirection where+ fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_IDBCursorDirectionNext, IDBCursorDirectionNext), (js_IDBCursorDirectionNextunique, IDBCursorDirectionNextunique), (js_IDBCursorDirectionPrev, IDBCursorDirectionPrev), (js_IDBCursorDirectionPrevunique, IDBCursorDirectionPrevunique)]+ fromJSValUnchecked = P.return . pFromJSVal++js_IDBCursorDirectionNext :: JSString+js_IDBCursorDirectionNext = "next"+js_IDBCursorDirectionNextunique :: JSString+js_IDBCursorDirectionNextunique = "nextunique"+js_IDBCursorDirectionPrev :: JSString+js_IDBCursorDirectionPrev = "prev"+js_IDBCursorDirectionPrevunique :: JSString+js_IDBCursorDirectionPrevunique = "prevunique"++-- | <https://developer.mozilla.org/en-US/docs/Web/API IDBRequestReadyState> (IndexedDB-3)+data IDBRequestReadyState = IDBRequestReadyStatePending+ | IDBRequestReadyStateDone+ deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal IDBRequestReadyState where+ pToJSVal x = pToJSVal (case x of+ IDBRequestReadyStatePending -> js_IDBRequestReadyStatePending+ IDBRequestReadyStateDone -> js_IDBRequestReadyStateDone+ )++instance ToJSVal IDBRequestReadyState where+ toJSVal = P.return . pToJSVal++instance PFromJSVal IDBRequestReadyState where+ pFromJSVal x = P.maybe (P.error "Unexpected IDBRequestReadyState value") P.id (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_IDBRequestReadyStatePending, IDBRequestReadyStatePending), (js_IDBRequestReadyStateDone, IDBRequestReadyStateDone)]++instance FromJSVal IDBRequestReadyState where+ fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_IDBRequestReadyStatePending, IDBRequestReadyStatePending), (js_IDBRequestReadyStateDone, IDBRequestReadyStateDone)]+ fromJSValUnchecked = P.return . pFromJSVal++js_IDBRequestReadyStatePending :: JSString+js_IDBRequestReadyStatePending = "pending"+js_IDBRequestReadyStateDone :: JSString+js_IDBRequestReadyStateDone = "done"++-- | <https://developer.mozilla.org/en-US/docs/Web/API IDBTransactionDurability> (IndexedDB-3)+data IDBTransactionDurability = IDBTransactionDurabilityDefault+ | IDBTransactionDurabilityStrict+ | IDBTransactionDurabilityRelaxed+ deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal IDBTransactionDurability where+ pToJSVal x = pToJSVal (case x of+ IDBTransactionDurabilityDefault -> js_IDBTransactionDurabilityDefault+ IDBTransactionDurabilityStrict -> js_IDBTransactionDurabilityStrict+ IDBTransactionDurabilityRelaxed -> js_IDBTransactionDurabilityRelaxed+ )++instance ToJSVal IDBTransactionDurability where+ toJSVal = P.return . pToJSVal++instance PFromJSVal IDBTransactionDurability where+ pFromJSVal x = P.maybe (P.error "Unexpected IDBTransactionDurability value") P.id (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_IDBTransactionDurabilityDefault, IDBTransactionDurabilityDefault), (js_IDBTransactionDurabilityStrict, IDBTransactionDurabilityStrict), (js_IDBTransactionDurabilityRelaxed, IDBTransactionDurabilityRelaxed)]++instance FromJSVal IDBTransactionDurability where+ fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_IDBTransactionDurabilityDefault, IDBTransactionDurabilityDefault), (js_IDBTransactionDurabilityStrict, IDBTransactionDurabilityStrict), (js_IDBTransactionDurabilityRelaxed, IDBTransactionDurabilityRelaxed)]+ fromJSValUnchecked = P.return . pFromJSVal++js_IDBTransactionDurabilityDefault :: JSString+js_IDBTransactionDurabilityDefault = "default"+js_IDBTransactionDurabilityStrict :: JSString+js_IDBTransactionDurabilityStrict = "strict"+js_IDBTransactionDurabilityRelaxed :: JSString+js_IDBTransactionDurabilityRelaxed = "relaxed"++-- | <https://developer.mozilla.org/en-US/docs/Web/API IDBTransactionMode> (IndexedDB-3)+data IDBTransactionMode = IDBTransactionModeReadonly+ | IDBTransactionModeReadwrite+ | IDBTransactionModeVersionchange+ deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal IDBTransactionMode where+ pToJSVal x = pToJSVal (case x of+ IDBTransactionModeReadonly -> js_IDBTransactionModeReadonly+ IDBTransactionModeReadwrite -> js_IDBTransactionModeReadwrite+ IDBTransactionModeVersionchange -> js_IDBTransactionModeVersionchange+ )++instance ToJSVal IDBTransactionMode where+ toJSVal = P.return . pToJSVal++instance PFromJSVal IDBTransactionMode where+ pFromJSVal x = P.maybe (P.error "Unexpected IDBTransactionMode value") P.id (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_IDBTransactionModeReadonly, IDBTransactionModeReadonly), (js_IDBTransactionModeReadwrite, IDBTransactionModeReadwrite), (js_IDBTransactionModeVersionchange, IDBTransactionModeVersionchange)]++instance FromJSVal IDBTransactionMode where+ fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_IDBTransactionModeReadonly, IDBTransactionModeReadonly), (js_IDBTransactionModeReadwrite, IDBTransactionModeReadwrite), (js_IDBTransactionModeVersionchange, IDBTransactionModeVersionchange)]+ fromJSValUnchecked = P.return . pFromJSVal++js_IDBTransactionModeReadonly :: JSString+js_IDBTransactionModeReadonly = "readonly"+js_IDBTransactionModeReadwrite :: JSString+js_IDBTransactionModeReadwrite = "readwrite"+js_IDBTransactionModeVersionchange :: JSString+js_IDBTransactionModeVersionchange = "versionchange"++-- | <https://developer.mozilla.org/en-US/docs/Web/API IPAddressSpace> (local-network-access)+data IPAddressSpace = IPAddressSpacePublic+ | IPAddressSpaceLocal+ | IPAddressSpaceLoopback+ deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal IPAddressSpace where+ pToJSVal x = pToJSVal (case x of+ IPAddressSpacePublic -> js_IPAddressSpacePublic+ IPAddressSpaceLocal -> js_IPAddressSpaceLocal+ IPAddressSpaceLoopback -> js_IPAddressSpaceLoopback+ )++instance ToJSVal IPAddressSpace where+ toJSVal = P.return . pToJSVal++instance PFromJSVal IPAddressSpace where+ pFromJSVal x = P.maybe (P.error "Unexpected IPAddressSpace value") P.id (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_IPAddressSpacePublic, IPAddressSpacePublic), (js_IPAddressSpaceLocal, IPAddressSpaceLocal), (js_IPAddressSpaceLoopback, IPAddressSpaceLoopback)]++instance FromJSVal IPAddressSpace where+ fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_IPAddressSpacePublic, IPAddressSpacePublic), (js_IPAddressSpaceLocal, IPAddressSpaceLocal), (js_IPAddressSpaceLoopback, IPAddressSpaceLoopback)]+ fromJSValUnchecked = P.return . pFromJSVal++js_IPAddressSpacePublic :: JSString+js_IPAddressSpacePublic = "public"+js_IPAddressSpaceLocal :: JSString+js_IPAddressSpaceLocal = "local"+js_IPAddressSpaceLoopback :: JSString+js_IPAddressSpaceLoopback = "loopback"++-- | <https://developer.mozilla.org/en-US/docs/Web/API IdentityCredentialRequestOptionsContext> (fedcm-1)+data IdentityCredentialRequestOptionsContext = IdentityCredentialRequestOptionsContextSignin+ | IdentityCredentialRequestOptionsContextSignup+ | IdentityCredentialRequestOptionsContextUse+ | IdentityCredentialRequestOptionsContextContinue+ deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal IdentityCredentialRequestOptionsContext where+ pToJSVal x = pToJSVal (case x of+ IdentityCredentialRequestOptionsContextSignin -> js_IdentityCredentialRequestOptionsContextSignin+ IdentityCredentialRequestOptionsContextSignup -> js_IdentityCredentialRequestOptionsContextSignup+ IdentityCredentialRequestOptionsContextUse -> js_IdentityCredentialRequestOptionsContextUse+ IdentityCredentialRequestOptionsContextContinue -> js_IdentityCredentialRequestOptionsContextContinue+ )++instance ToJSVal IdentityCredentialRequestOptionsContext where+ toJSVal = P.return . pToJSVal++instance PFromJSVal IdentityCredentialRequestOptionsContext where+ pFromJSVal x = P.maybe (P.error "Unexpected IdentityCredentialRequestOptionsContext value") P.id (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_IdentityCredentialRequestOptionsContextSignin, IdentityCredentialRequestOptionsContextSignin), (js_IdentityCredentialRequestOptionsContextSignup, IdentityCredentialRequestOptionsContextSignup), (js_IdentityCredentialRequestOptionsContextUse, IdentityCredentialRequestOptionsContextUse), (js_IdentityCredentialRequestOptionsContextContinue, IdentityCredentialRequestOptionsContextContinue)]++instance FromJSVal IdentityCredentialRequestOptionsContext where+ fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_IdentityCredentialRequestOptionsContextSignin, IdentityCredentialRequestOptionsContextSignin), (js_IdentityCredentialRequestOptionsContextSignup, IdentityCredentialRequestOptionsContextSignup), (js_IdentityCredentialRequestOptionsContextUse, IdentityCredentialRequestOptionsContextUse), (js_IdentityCredentialRequestOptionsContextContinue, IdentityCredentialRequestOptionsContextContinue)]+ fromJSValUnchecked = P.return . pFromJSVal++js_IdentityCredentialRequestOptionsContextSignin :: JSString+js_IdentityCredentialRequestOptionsContextSignin = "signin"+js_IdentityCredentialRequestOptionsContextSignup :: JSString+js_IdentityCredentialRequestOptionsContextSignup = "signup"+js_IdentityCredentialRequestOptionsContextUse :: JSString+js_IdentityCredentialRequestOptionsContextUse = "use"+js_IdentityCredentialRequestOptionsContextContinue :: JSString+js_IdentityCredentialRequestOptionsContextContinue = "continue"++-- | <https://developer.mozilla.org/en-US/docs/Web/API IdentityCredentialRequestOptionsMode> (fedcm-1)+data IdentityCredentialRequestOptionsMode = IdentityCredentialRequestOptionsModeActive+ | IdentityCredentialRequestOptionsModePassive+ deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal IdentityCredentialRequestOptionsMode where+ pToJSVal x = pToJSVal (case x of+ IdentityCredentialRequestOptionsModeActive -> js_IdentityCredentialRequestOptionsModeActive+ IdentityCredentialRequestOptionsModePassive -> js_IdentityCredentialRequestOptionsModePassive+ )++instance ToJSVal IdentityCredentialRequestOptionsMode where+ toJSVal = P.return . pToJSVal++instance PFromJSVal IdentityCredentialRequestOptionsMode where+ pFromJSVal x = P.maybe (P.error "Unexpected IdentityCredentialRequestOptionsMode value") P.id (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_IdentityCredentialRequestOptionsModeActive, IdentityCredentialRequestOptionsModeActive), (js_IdentityCredentialRequestOptionsModePassive, IdentityCredentialRequestOptionsModePassive)]++instance FromJSVal IdentityCredentialRequestOptionsMode where+ fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_IdentityCredentialRequestOptionsModeActive, IdentityCredentialRequestOptionsModeActive), (js_IdentityCredentialRequestOptionsModePassive, IdentityCredentialRequestOptionsModePassive)]+ fromJSValUnchecked = P.return . pFromJSVal++js_IdentityCredentialRequestOptionsModeActive :: JSString+js_IdentityCredentialRequestOptionsModeActive = "active"+js_IdentityCredentialRequestOptionsModePassive :: JSString+js_IdentityCredentialRequestOptionsModePassive = "passive"++-- | <https://developer.mozilla.org/en-US/docs/Web/API ImageDataPixelFormat> (html)+data ImageDataPixelFormat = ImageDataPixelFormatRgbaUnorm8+ | ImageDataPixelFormatRgbaFloat16+ deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal ImageDataPixelFormat where+ pToJSVal x = pToJSVal (case x of+ ImageDataPixelFormatRgbaUnorm8 -> js_ImageDataPixelFormatRgbaUnorm8+ ImageDataPixelFormatRgbaFloat16 -> js_ImageDataPixelFormatRgbaFloat16+ )++instance ToJSVal ImageDataPixelFormat where+ toJSVal = P.return . pToJSVal++instance PFromJSVal ImageDataPixelFormat where+ pFromJSVal x = P.maybe (P.error "Unexpected ImageDataPixelFormat value") P.id (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_ImageDataPixelFormatRgbaUnorm8, ImageDataPixelFormatRgbaUnorm8), (js_ImageDataPixelFormatRgbaFloat16, ImageDataPixelFormatRgbaFloat16)]++instance FromJSVal ImageDataPixelFormat where+ fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_ImageDataPixelFormatRgbaUnorm8, ImageDataPixelFormatRgbaUnorm8), (js_ImageDataPixelFormatRgbaFloat16, ImageDataPixelFormatRgbaFloat16)]+ fromJSValUnchecked = P.return . pFromJSVal++js_ImageDataPixelFormatRgbaUnorm8 :: JSString+js_ImageDataPixelFormatRgbaUnorm8 = "rgba-unorm8"+js_ImageDataPixelFormatRgbaFloat16 :: JSString+js_ImageDataPixelFormatRgbaFloat16 = "rgba-float16"++-- | <https://developer.mozilla.org/en-US/docs/Web/API ImageSmoothingQuality> (html)+data ImageSmoothingQuality = ImageSmoothingQualityLow+ | ImageSmoothingQualityMedium+ | ImageSmoothingQualityHigh+ deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal ImageSmoothingQuality where+ pToJSVal x = pToJSVal (case x of+ ImageSmoothingQualityLow -> js_ImageSmoothingQualityLow+ ImageSmoothingQualityMedium -> js_ImageSmoothingQualityMedium+ ImageSmoothingQualityHigh -> js_ImageSmoothingQualityHigh+ )++instance ToJSVal ImageSmoothingQuality where+ toJSVal = P.return . pToJSVal++instance PFromJSVal ImageSmoothingQuality where+ pFromJSVal x = P.maybe (P.error "Unexpected ImageSmoothingQuality value") P.id (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_ImageSmoothingQualityLow, ImageSmoothingQualityLow), (js_ImageSmoothingQualityMedium, ImageSmoothingQualityMedium), (js_ImageSmoothingQualityHigh, ImageSmoothingQualityHigh)]++instance FromJSVal ImageSmoothingQuality where+ fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_ImageSmoothingQualityLow, ImageSmoothingQualityLow), (js_ImageSmoothingQualityMedium, ImageSmoothingQualityMedium), (js_ImageSmoothingQualityHigh, ImageSmoothingQualityHigh)]+ fromJSValUnchecked = P.return . pFromJSVal++js_ImageSmoothingQualityLow :: JSString+js_ImageSmoothingQualityLow = "low"+js_ImageSmoothingQualityMedium :: JSString+js_ImageSmoothingQualityMedium = "medium"+js_ImageSmoothingQualityHigh :: JSString+js_ImageSmoothingQualityHigh = "high"++-- | <https://developer.mozilla.org/en-US/docs/Web/API IterationCompositeOperation> (web-animations-2)+data IterationCompositeOperation = IterationCompositeOperationReplace+ | IterationCompositeOperationAccumulate+ deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal IterationCompositeOperation where+ pToJSVal x = pToJSVal (case x of+ IterationCompositeOperationReplace -> js_IterationCompositeOperationReplace+ IterationCompositeOperationAccumulate -> js_IterationCompositeOperationAccumulate+ )++instance ToJSVal IterationCompositeOperation where+ toJSVal = P.return . pToJSVal++instance PFromJSVal IterationCompositeOperation where+ pFromJSVal x = P.maybe (P.error "Unexpected IterationCompositeOperation value") P.id (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_IterationCompositeOperationReplace, IterationCompositeOperationReplace), (js_IterationCompositeOperationAccumulate, IterationCompositeOperationAccumulate)]++instance FromJSVal IterationCompositeOperation where+ fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_IterationCompositeOperationReplace, IterationCompositeOperationReplace), (js_IterationCompositeOperationAccumulate, IterationCompositeOperationAccumulate)]+ fromJSValUnchecked = P.return . pFromJSVal++js_IterationCompositeOperationReplace :: JSString+js_IterationCompositeOperationReplace = "replace"+js_IterationCompositeOperationAccumulate :: JSString+js_IterationCompositeOperationAccumulate = "accumulate"++-- | <https://developer.mozilla.org/en-US/docs/Web/API KeyFormat> (webcrypto-modern-algos)+data KeyFormat = KeyFormatRawPublic+ | KeyFormatRawPrivate+ | KeyFormatRawSeed+ | KeyFormatRawSecret+ | KeyFormatRaw+ | KeyFormatSpki+ | KeyFormatPkcs8+ | KeyFormatJwk+ deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal KeyFormat where+ pToJSVal x = pToJSVal (case x of+ KeyFormatRawPublic -> js_KeyFormatRawPublic+ KeyFormatRawPrivate -> js_KeyFormatRawPrivate+ KeyFormatRawSeed -> js_KeyFormatRawSeed+ KeyFormatRawSecret -> js_KeyFormatRawSecret+ KeyFormatRaw -> js_KeyFormatRaw+ KeyFormatSpki -> js_KeyFormatSpki+ KeyFormatPkcs8 -> js_KeyFormatPkcs8+ KeyFormatJwk -> js_KeyFormatJwk+ )++instance ToJSVal KeyFormat where+ toJSVal = P.return . pToJSVal++instance PFromJSVal KeyFormat where+ pFromJSVal x = P.maybe (P.error "Unexpected KeyFormat value") P.id (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_KeyFormatRawPublic, KeyFormatRawPublic), (js_KeyFormatRawPrivate, KeyFormatRawPrivate), (js_KeyFormatRawSeed, KeyFormatRawSeed), (js_KeyFormatRawSecret, KeyFormatRawSecret), (js_KeyFormatRaw, KeyFormatRaw), (js_KeyFormatSpki, KeyFormatSpki), (js_KeyFormatPkcs8, KeyFormatPkcs8), (js_KeyFormatJwk, KeyFormatJwk)]++instance FromJSVal KeyFormat where+ fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_KeyFormatRawPublic, KeyFormatRawPublic), (js_KeyFormatRawPrivate, KeyFormatRawPrivate), (js_KeyFormatRawSeed, KeyFormatRawSeed), (js_KeyFormatRawSecret, KeyFormatRawSecret), (js_KeyFormatRaw, KeyFormatRaw), (js_KeyFormatSpki, KeyFormatSpki), (js_KeyFormatPkcs8, KeyFormatPkcs8), (js_KeyFormatJwk, KeyFormatJwk)]+ fromJSValUnchecked = P.return . pFromJSVal++js_KeyFormatRawPublic :: JSString+js_KeyFormatRawPublic = "raw-public"+js_KeyFormatRawPrivate :: JSString+js_KeyFormatRawPrivate = "raw-private"+js_KeyFormatRawSeed :: JSString+js_KeyFormatRawSeed = "raw-seed"+js_KeyFormatRawSecret :: JSString+js_KeyFormatRawSecret = "raw-secret"+js_KeyFormatRaw :: JSString+js_KeyFormatRaw = "raw"+js_KeyFormatSpki :: JSString+js_KeyFormatSpki = "spki"+js_KeyFormatPkcs8 :: JSString+js_KeyFormatPkcs8 = "pkcs8"+js_KeyFormatJwk :: JSString+js_KeyFormatJwk = "jwk"++-- | <https://developer.mozilla.org/en-US/docs/Web/API KeyType> (webcrypto-2)+data KeyType = KeyTypePublic+ | KeyTypePrivate+ | KeyTypeSecret+ deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal KeyType where+ pToJSVal x = pToJSVal (case x of+ KeyTypePublic -> js_KeyTypePublic+ KeyTypePrivate -> js_KeyTypePrivate+ KeyTypeSecret -> js_KeyTypeSecret+ )++instance ToJSVal KeyType where+ toJSVal = P.return . pToJSVal++instance PFromJSVal KeyType where+ pFromJSVal x = P.maybe (P.error "Unexpected KeyType value") P.id (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_KeyTypePublic, KeyTypePublic), (js_KeyTypePrivate, KeyTypePrivate), (js_KeyTypeSecret, KeyTypeSecret)]++instance FromJSVal KeyType where+ fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_KeyTypePublic, KeyTypePublic), (js_KeyTypePrivate, KeyTypePrivate), (js_KeyTypeSecret, KeyTypeSecret)]+ fromJSValUnchecked = P.return . pFromJSVal++js_KeyTypePublic :: JSString+js_KeyTypePublic = "public"+js_KeyTypePrivate :: JSString+js_KeyTypePrivate = "private"+js_KeyTypeSecret :: JSString+js_KeyTypeSecret = "secret"++-- | <https://developer.mozilla.org/en-US/docs/Web/API KeyUsage> (webcrypto-modern-algos)+data KeyUsage = KeyUsageEncrypt+ | KeyUsageDecrypt+ | KeyUsageSign+ | KeyUsageVerify+ | KeyUsageDeriveKey+ | KeyUsageDeriveBits+ | KeyUsageWrapKey+ | KeyUsageUnwrapKey+ | KeyUsageEncapsulateKey+ | KeyUsageEncapsulateBits+ | KeyUsageDecapsulateKey+ | KeyUsageDecapsulateBits+ deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal KeyUsage where+ pToJSVal x = pToJSVal (case x of+ KeyUsageEncrypt -> js_KeyUsageEncrypt+ KeyUsageDecrypt -> js_KeyUsageDecrypt+ KeyUsageSign -> js_KeyUsageSign+ KeyUsageVerify -> js_KeyUsageVerify+ KeyUsageDeriveKey -> js_KeyUsageDeriveKey+ KeyUsageDeriveBits -> js_KeyUsageDeriveBits+ KeyUsageWrapKey -> js_KeyUsageWrapKey+ KeyUsageUnwrapKey -> js_KeyUsageUnwrapKey+ KeyUsageEncapsulateKey -> js_KeyUsageEncapsulateKey+ KeyUsageEncapsulateBits -> js_KeyUsageEncapsulateBits+ KeyUsageDecapsulateKey -> js_KeyUsageDecapsulateKey+ KeyUsageDecapsulateBits -> js_KeyUsageDecapsulateBits+ )++instance ToJSVal KeyUsage where+ toJSVal = P.return . pToJSVal++instance PFromJSVal KeyUsage where+ pFromJSVal x = P.maybe (P.error "Unexpected KeyUsage value") P.id (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_KeyUsageEncrypt, KeyUsageEncrypt), (js_KeyUsageDecrypt, KeyUsageDecrypt), (js_KeyUsageSign, KeyUsageSign), (js_KeyUsageVerify, KeyUsageVerify), (js_KeyUsageDeriveKey, KeyUsageDeriveKey), (js_KeyUsageDeriveBits, KeyUsageDeriveBits), (js_KeyUsageWrapKey, KeyUsageWrapKey), (js_KeyUsageUnwrapKey, KeyUsageUnwrapKey), (js_KeyUsageEncapsulateKey, KeyUsageEncapsulateKey), (js_KeyUsageEncapsulateBits, KeyUsageEncapsulateBits), (js_KeyUsageDecapsulateKey, KeyUsageDecapsulateKey), (js_KeyUsageDecapsulateBits, KeyUsageDecapsulateBits)]++instance FromJSVal KeyUsage where+ fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_KeyUsageEncrypt, KeyUsageEncrypt), (js_KeyUsageDecrypt, KeyUsageDecrypt), (js_KeyUsageSign, KeyUsageSign), (js_KeyUsageVerify, KeyUsageVerify), (js_KeyUsageDeriveKey, KeyUsageDeriveKey), (js_KeyUsageDeriveBits, KeyUsageDeriveBits), (js_KeyUsageWrapKey, KeyUsageWrapKey), (js_KeyUsageUnwrapKey, KeyUsageUnwrapKey), (js_KeyUsageEncapsulateKey, KeyUsageEncapsulateKey), (js_KeyUsageEncapsulateBits, KeyUsageEncapsulateBits), (js_KeyUsageDecapsulateKey, KeyUsageDecapsulateKey), (js_KeyUsageDecapsulateBits, KeyUsageDecapsulateBits)]+ fromJSValUnchecked = P.return . pFromJSVal++js_KeyUsageEncrypt :: JSString+js_KeyUsageEncrypt = "encrypt"+js_KeyUsageDecrypt :: JSString+js_KeyUsageDecrypt = "decrypt"+js_KeyUsageSign :: JSString+js_KeyUsageSign = "sign"+js_KeyUsageVerify :: JSString+js_KeyUsageVerify = "verify"+js_KeyUsageDeriveKey :: JSString+js_KeyUsageDeriveKey = "deriveKey"+js_KeyUsageDeriveBits :: JSString+js_KeyUsageDeriveBits = "deriveBits"+js_KeyUsageWrapKey :: JSString+js_KeyUsageWrapKey = "wrapKey"+js_KeyUsageUnwrapKey :: JSString+js_KeyUsageUnwrapKey = "unwrapKey"+js_KeyUsageEncapsulateKey :: JSString+js_KeyUsageEncapsulateKey = "encapsulateKey"+js_KeyUsageEncapsulateBits :: JSString+js_KeyUsageEncapsulateBits = "encapsulateBits"+js_KeyUsageDecapsulateKey :: JSString+js_KeyUsageDecapsulateKey = "decapsulateKey"+js_KeyUsageDecapsulateBits :: JSString+js_KeyUsageDecapsulateBits = "decapsulateBits"++-- | <https://developer.mozilla.org/en-US/docs/Web/API LatencyMode> (webcodecs)+data LatencyMode = LatencyModeQuality+ | LatencyModeRealtime+ deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal LatencyMode where+ pToJSVal x = pToJSVal (case x of+ LatencyModeQuality -> js_LatencyModeQuality+ LatencyModeRealtime -> js_LatencyModeRealtime+ )++instance ToJSVal LatencyMode where+ toJSVal = P.return . pToJSVal++instance PFromJSVal LatencyMode where+ pFromJSVal x = P.maybe (P.error "Unexpected LatencyMode value") P.id (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_LatencyModeQuality, LatencyModeQuality), (js_LatencyModeRealtime, LatencyModeRealtime)]++instance FromJSVal LatencyMode where+ fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_LatencyModeQuality, LatencyModeQuality), (js_LatencyModeRealtime, LatencyModeRealtime)]+ fromJSValUnchecked = P.return . pFromJSVal++js_LatencyModeQuality :: JSString+js_LatencyModeQuality = "quality"+js_LatencyModeRealtime :: JSString+js_LatencyModeRealtime = "realtime"++-- | <https://developer.mozilla.org/en-US/docs/Web/API LineAlignSetting> (webvtt1)+data LineAlignSetting = LineAlignSettingStart+ | LineAlignSettingCenter+ | LineAlignSettingEnd+ deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal LineAlignSetting where+ pToJSVal x = pToJSVal (case x of+ LineAlignSettingStart -> js_LineAlignSettingStart+ LineAlignSettingCenter -> js_LineAlignSettingCenter+ LineAlignSettingEnd -> js_LineAlignSettingEnd+ )++instance ToJSVal LineAlignSetting where+ toJSVal = P.return . pToJSVal++instance PFromJSVal LineAlignSetting where+ pFromJSVal x = P.maybe (P.error "Unexpected LineAlignSetting value") P.id (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_LineAlignSettingStart, LineAlignSettingStart), (js_LineAlignSettingCenter, LineAlignSettingCenter), (js_LineAlignSettingEnd, LineAlignSettingEnd)]++instance FromJSVal LineAlignSetting where+ fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_LineAlignSettingStart, LineAlignSettingStart), (js_LineAlignSettingCenter, LineAlignSettingCenter), (js_LineAlignSettingEnd, LineAlignSettingEnd)]+ fromJSValUnchecked = P.return . pFromJSVal++js_LineAlignSettingStart :: JSString+js_LineAlignSettingStart = "start"+js_LineAlignSettingCenter :: JSString+js_LineAlignSettingCenter = "center"+js_LineAlignSettingEnd :: JSString+js_LineAlignSettingEnd = "end"++-- | <https://developer.mozilla.org/en-US/docs/Web/API LockMode> (web-locks)+data LockMode = LockModeShared+ | LockModeExclusive+ deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal LockMode where+ pToJSVal x = pToJSVal (case x of+ LockModeShared -> js_LockModeShared+ LockModeExclusive -> js_LockModeExclusive+ )++instance ToJSVal LockMode where+ toJSVal = P.return . pToJSVal++instance PFromJSVal LockMode where+ pFromJSVal x = P.maybe (P.error "Unexpected LockMode value") P.id (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_LockModeShared, LockModeShared), (js_LockModeExclusive, LockModeExclusive)]++instance FromJSVal LockMode where+ fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_LockModeShared, LockModeShared), (js_LockModeExclusive, LockModeExclusive)]+ fromJSValUnchecked = P.return . pFromJSVal++js_LockModeShared :: JSString+js_LockModeShared = "shared"+js_LockModeExclusive :: JSString+js_LockModeExclusive = "exclusive"++-- | <https://developer.mozilla.org/en-US/docs/Web/API LoginStatus> (login-status)+data LoginStatus = LoginStatusLoggedIn+ | LoginStatusLoggedOut+ deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal LoginStatus where+ pToJSVal x = pToJSVal (case x of+ LoginStatusLoggedIn -> js_LoginStatusLoggedIn+ LoginStatusLoggedOut -> js_LoginStatusLoggedOut+ )++instance ToJSVal LoginStatus where+ toJSVal = P.return . pToJSVal++instance PFromJSVal LoginStatus where+ pFromJSVal x = P.maybe (P.error "Unexpected LoginStatus value") P.id (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_LoginStatusLoggedIn, LoginStatusLoggedIn), (js_LoginStatusLoggedOut, LoginStatusLoggedOut)]++instance FromJSVal LoginStatus where+ fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_LoginStatusLoggedIn, LoginStatusLoggedIn), (js_LoginStatusLoggedOut, LoginStatusLoggedOut)]+ fromJSValUnchecked = P.return . pFromJSVal++js_LoginStatusLoggedIn :: JSString+js_LoginStatusLoggedIn = "logged-in"+js_LoginStatusLoggedOut :: JSString+js_LoginStatusLoggedOut = "logged-out"++-- | <https://developer.mozilla.org/en-US/docs/Web/API MIDIPortConnectionState> (webmidi)+data MIDIPortConnectionState = MIDIPortConnectionStateOpen+ | MIDIPortConnectionStateClosed+ | MIDIPortConnectionStatePending+ deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal MIDIPortConnectionState where+ pToJSVal x = pToJSVal (case x of+ MIDIPortConnectionStateOpen -> js_MIDIPortConnectionStateOpen+ MIDIPortConnectionStateClosed -> js_MIDIPortConnectionStateClosed+ MIDIPortConnectionStatePending -> js_MIDIPortConnectionStatePending+ )++instance ToJSVal MIDIPortConnectionState where+ toJSVal = P.return . pToJSVal++instance PFromJSVal MIDIPortConnectionState where+ pFromJSVal x = P.maybe (P.error "Unexpected MIDIPortConnectionState value") P.id (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_MIDIPortConnectionStateOpen, MIDIPortConnectionStateOpen), (js_MIDIPortConnectionStateClosed, MIDIPortConnectionStateClosed), (js_MIDIPortConnectionStatePending, MIDIPortConnectionStatePending)]++instance FromJSVal MIDIPortConnectionState where+ fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_MIDIPortConnectionStateOpen, MIDIPortConnectionStateOpen), (js_MIDIPortConnectionStateClosed, MIDIPortConnectionStateClosed), (js_MIDIPortConnectionStatePending, MIDIPortConnectionStatePending)]+ fromJSValUnchecked = P.return . pFromJSVal++js_MIDIPortConnectionStateOpen :: JSString+js_MIDIPortConnectionStateOpen = "open"+js_MIDIPortConnectionStateClosed :: JSString+js_MIDIPortConnectionStateClosed = "closed"+js_MIDIPortConnectionStatePending :: JSString+js_MIDIPortConnectionStatePending = "pending"++-- | <https://developer.mozilla.org/en-US/docs/Web/API MIDIPortDeviceState> (webmidi)+data MIDIPortDeviceState = MIDIPortDeviceStateDisconnected+ | MIDIPortDeviceStateConnected+ deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal MIDIPortDeviceState where+ pToJSVal x = pToJSVal (case x of+ MIDIPortDeviceStateDisconnected -> js_MIDIPortDeviceStateDisconnected+ MIDIPortDeviceStateConnected -> js_MIDIPortDeviceStateConnected+ )++instance ToJSVal MIDIPortDeviceState where+ toJSVal = P.return . pToJSVal++instance PFromJSVal MIDIPortDeviceState where+ pFromJSVal x = P.maybe (P.error "Unexpected MIDIPortDeviceState value") P.id (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_MIDIPortDeviceStateDisconnected, MIDIPortDeviceStateDisconnected), (js_MIDIPortDeviceStateConnected, MIDIPortDeviceStateConnected)]++instance FromJSVal MIDIPortDeviceState where+ fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_MIDIPortDeviceStateDisconnected, MIDIPortDeviceStateDisconnected), (js_MIDIPortDeviceStateConnected, MIDIPortDeviceStateConnected)]+ fromJSValUnchecked = P.return . pFromJSVal++js_MIDIPortDeviceStateDisconnected :: JSString+js_MIDIPortDeviceStateDisconnected = "disconnected"+js_MIDIPortDeviceStateConnected :: JSString+js_MIDIPortDeviceStateConnected = "connected"++-- | <https://developer.mozilla.org/en-US/docs/Web/API MIDIPortType> (webmidi)+data MIDIPortType = MIDIPortTypeInput+ | MIDIPortTypeOutput+ deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal MIDIPortType where+ pToJSVal x = pToJSVal (case x of+ MIDIPortTypeInput -> js_MIDIPortTypeInput+ MIDIPortTypeOutput -> js_MIDIPortTypeOutput+ )++instance ToJSVal MIDIPortType where+ toJSVal = P.return . pToJSVal++instance PFromJSVal MIDIPortType where+ pFromJSVal x = P.maybe (P.error "Unexpected MIDIPortType value") P.id (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_MIDIPortTypeInput, MIDIPortTypeInput), (js_MIDIPortTypeOutput, MIDIPortTypeOutput)]++instance FromJSVal MIDIPortType where+ fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_MIDIPortTypeInput, MIDIPortTypeInput), (js_MIDIPortTypeOutput, MIDIPortTypeOutput)]+ fromJSValUnchecked = P.return . pFromJSVal++js_MIDIPortTypeInput :: JSString+js_MIDIPortTypeInput = "input"+js_MIDIPortTypeOutput :: JSString+js_MIDIPortTypeOutput = "output"++-- | <https://developer.mozilla.org/en-US/docs/Web/API MediaDecodingType> (media-capabilities)+data MediaDecodingType = MediaDecodingTypeFile+ | MediaDecodingTypeMediaSource+ | MediaDecodingTypeWebrtc+ deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal MediaDecodingType where+ pToJSVal x = pToJSVal (case x of+ MediaDecodingTypeFile -> js_MediaDecodingTypeFile+ MediaDecodingTypeMediaSource -> js_MediaDecodingTypeMediaSource+ MediaDecodingTypeWebrtc -> js_MediaDecodingTypeWebrtc+ )++instance ToJSVal MediaDecodingType where+ toJSVal = P.return . pToJSVal++instance PFromJSVal MediaDecodingType where+ pFromJSVal x = P.maybe (P.error "Unexpected MediaDecodingType value") P.id (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_MediaDecodingTypeFile, MediaDecodingTypeFile), (js_MediaDecodingTypeMediaSource, MediaDecodingTypeMediaSource), (js_MediaDecodingTypeWebrtc, MediaDecodingTypeWebrtc)]++instance FromJSVal MediaDecodingType where+ fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_MediaDecodingTypeFile, MediaDecodingTypeFile), (js_MediaDecodingTypeMediaSource, MediaDecodingTypeMediaSource), (js_MediaDecodingTypeWebrtc, MediaDecodingTypeWebrtc)]+ fromJSValUnchecked = P.return . pFromJSVal++js_MediaDecodingTypeFile :: JSString+js_MediaDecodingTypeFile = "file"+js_MediaDecodingTypeMediaSource :: JSString+js_MediaDecodingTypeMediaSource = "media-source"+js_MediaDecodingTypeWebrtc :: JSString+js_MediaDecodingTypeWebrtc = "webrtc"++-- | <https://developer.mozilla.org/en-US/docs/Web/API MediaDeviceKind> (mediacapture-streams)+data MediaDeviceKind = MediaDeviceKindAudioinput+ | MediaDeviceKindAudiooutput+ | MediaDeviceKindVideoinput+ deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal MediaDeviceKind where+ pToJSVal x = pToJSVal (case x of+ MediaDeviceKindAudioinput -> js_MediaDeviceKindAudioinput+ MediaDeviceKindAudiooutput -> js_MediaDeviceKindAudiooutput+ MediaDeviceKindVideoinput -> js_MediaDeviceKindVideoinput+ )++instance ToJSVal MediaDeviceKind where+ toJSVal = P.return . pToJSVal++instance PFromJSVal MediaDeviceKind where+ pFromJSVal x = P.maybe (P.error "Unexpected MediaDeviceKind value") P.id (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_MediaDeviceKindAudioinput, MediaDeviceKindAudioinput), (js_MediaDeviceKindAudiooutput, MediaDeviceKindAudiooutput), (js_MediaDeviceKindVideoinput, MediaDeviceKindVideoinput)]++instance FromJSVal MediaDeviceKind where+ fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_MediaDeviceKindAudioinput, MediaDeviceKindAudioinput), (js_MediaDeviceKindAudiooutput, MediaDeviceKindAudiooutput), (js_MediaDeviceKindVideoinput, MediaDeviceKindVideoinput)]+ fromJSValUnchecked = P.return . pFromJSVal++js_MediaDeviceKindAudioinput :: JSString+js_MediaDeviceKindAudioinput = "audioinput"+js_MediaDeviceKindAudiooutput :: JSString+js_MediaDeviceKindAudiooutput = "audiooutput"+js_MediaDeviceKindVideoinput :: JSString+js_MediaDeviceKindVideoinput = "videoinput"++-- | <https://developer.mozilla.org/en-US/docs/Web/API MediaEncodingType> (media-capabilities)+data MediaEncodingType = MediaEncodingTypeRecord+ | MediaEncodingTypeWebrtc+ deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal MediaEncodingType where+ pToJSVal x = pToJSVal (case x of+ MediaEncodingTypeRecord -> js_MediaEncodingTypeRecord+ MediaEncodingTypeWebrtc -> js_MediaEncodingTypeWebrtc+ )++instance ToJSVal MediaEncodingType where+ toJSVal = P.return . pToJSVal++instance PFromJSVal MediaEncodingType where+ pFromJSVal x = P.maybe (P.error "Unexpected MediaEncodingType value") P.id (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_MediaEncodingTypeRecord, MediaEncodingTypeRecord), (js_MediaEncodingTypeWebrtc, MediaEncodingTypeWebrtc)]++instance FromJSVal MediaEncodingType where+ fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_MediaEncodingTypeRecord, MediaEncodingTypeRecord), (js_MediaEncodingTypeWebrtc, MediaEncodingTypeWebrtc)]+ fromJSValUnchecked = P.return . pFromJSVal++js_MediaEncodingTypeRecord :: JSString+js_MediaEncodingTypeRecord = "record"+js_MediaEncodingTypeWebrtc :: JSString+js_MediaEncodingTypeWebrtc = "webrtc"++-- | <https://developer.mozilla.org/en-US/docs/Web/API MediaKeyMessageType> (encrypted-media-2)+data MediaKeyMessageType = MediaKeyMessageTypeLicenseRequest+ | MediaKeyMessageTypeLicenseRenewal+ | MediaKeyMessageTypeLicenseRelease+ | MediaKeyMessageTypeIndividualizationRequest+ deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal MediaKeyMessageType where+ pToJSVal x = pToJSVal (case x of+ MediaKeyMessageTypeLicenseRequest -> js_MediaKeyMessageTypeLicenseRequest+ MediaKeyMessageTypeLicenseRenewal -> js_MediaKeyMessageTypeLicenseRenewal+ MediaKeyMessageTypeLicenseRelease -> js_MediaKeyMessageTypeLicenseRelease+ MediaKeyMessageTypeIndividualizationRequest -> js_MediaKeyMessageTypeIndividualizationRequest+ )++instance ToJSVal MediaKeyMessageType where+ toJSVal = P.return . pToJSVal++instance PFromJSVal MediaKeyMessageType where+ pFromJSVal x = P.maybe (P.error "Unexpected MediaKeyMessageType value") P.id (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_MediaKeyMessageTypeLicenseRequest, MediaKeyMessageTypeLicenseRequest), (js_MediaKeyMessageTypeLicenseRenewal, MediaKeyMessageTypeLicenseRenewal), (js_MediaKeyMessageTypeLicenseRelease, MediaKeyMessageTypeLicenseRelease), (js_MediaKeyMessageTypeIndividualizationRequest, MediaKeyMessageTypeIndividualizationRequest)]++instance FromJSVal MediaKeyMessageType where+ fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_MediaKeyMessageTypeLicenseRequest, MediaKeyMessageTypeLicenseRequest), (js_MediaKeyMessageTypeLicenseRenewal, MediaKeyMessageTypeLicenseRenewal), (js_MediaKeyMessageTypeLicenseRelease, MediaKeyMessageTypeLicenseRelease), (js_MediaKeyMessageTypeIndividualizationRequest, MediaKeyMessageTypeIndividualizationRequest)]+ fromJSValUnchecked = P.return . pFromJSVal++js_MediaKeyMessageTypeLicenseRequest :: JSString+js_MediaKeyMessageTypeLicenseRequest = "license-request"+js_MediaKeyMessageTypeLicenseRenewal :: JSString+js_MediaKeyMessageTypeLicenseRenewal = "license-renewal"+js_MediaKeyMessageTypeLicenseRelease :: JSString+js_MediaKeyMessageTypeLicenseRelease = "license-release"+js_MediaKeyMessageTypeIndividualizationRequest :: JSString+js_MediaKeyMessageTypeIndividualizationRequest = "individualization-request"++-- | <https://developer.mozilla.org/en-US/docs/Web/API MediaKeySessionClosedReason> (encrypted-media-2)+data MediaKeySessionClosedReason = MediaKeySessionClosedReasonInternalError+ | MediaKeySessionClosedReasonClosedByApplication+ | MediaKeySessionClosedReasonReleaseAcknowledged+ | MediaKeySessionClosedReasonHardwareContextReset+ | MediaKeySessionClosedReasonResourceEvicted+ deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal MediaKeySessionClosedReason where+ pToJSVal x = pToJSVal (case x of+ MediaKeySessionClosedReasonInternalError -> js_MediaKeySessionClosedReasonInternalError+ MediaKeySessionClosedReasonClosedByApplication -> js_MediaKeySessionClosedReasonClosedByApplication+ MediaKeySessionClosedReasonReleaseAcknowledged -> js_MediaKeySessionClosedReasonReleaseAcknowledged+ MediaKeySessionClosedReasonHardwareContextReset -> js_MediaKeySessionClosedReasonHardwareContextReset+ MediaKeySessionClosedReasonResourceEvicted -> js_MediaKeySessionClosedReasonResourceEvicted+ )++instance ToJSVal MediaKeySessionClosedReason where+ toJSVal = P.return . pToJSVal++instance PFromJSVal MediaKeySessionClosedReason where+ pFromJSVal x = P.maybe (P.error "Unexpected MediaKeySessionClosedReason value") P.id (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_MediaKeySessionClosedReasonInternalError, MediaKeySessionClosedReasonInternalError), (js_MediaKeySessionClosedReasonClosedByApplication, MediaKeySessionClosedReasonClosedByApplication), (js_MediaKeySessionClosedReasonReleaseAcknowledged, MediaKeySessionClosedReasonReleaseAcknowledged), (js_MediaKeySessionClosedReasonHardwareContextReset, MediaKeySessionClosedReasonHardwareContextReset), (js_MediaKeySessionClosedReasonResourceEvicted, MediaKeySessionClosedReasonResourceEvicted)]++instance FromJSVal MediaKeySessionClosedReason where+ fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_MediaKeySessionClosedReasonInternalError, MediaKeySessionClosedReasonInternalError), (js_MediaKeySessionClosedReasonClosedByApplication, MediaKeySessionClosedReasonClosedByApplication), (js_MediaKeySessionClosedReasonReleaseAcknowledged, MediaKeySessionClosedReasonReleaseAcknowledged), (js_MediaKeySessionClosedReasonHardwareContextReset, MediaKeySessionClosedReasonHardwareContextReset), (js_MediaKeySessionClosedReasonResourceEvicted, MediaKeySessionClosedReasonResourceEvicted)]+ fromJSValUnchecked = P.return . pFromJSVal++js_MediaKeySessionClosedReasonInternalError :: JSString+js_MediaKeySessionClosedReasonInternalError = "internal-error"+js_MediaKeySessionClosedReasonClosedByApplication :: JSString+js_MediaKeySessionClosedReasonClosedByApplication = "closed-by-application"+js_MediaKeySessionClosedReasonReleaseAcknowledged :: JSString+js_MediaKeySessionClosedReasonReleaseAcknowledged = "release-acknowledged"+js_MediaKeySessionClosedReasonHardwareContextReset :: JSString+js_MediaKeySessionClosedReasonHardwareContextReset = "hardware-context-reset"+js_MediaKeySessionClosedReasonResourceEvicted :: JSString+js_MediaKeySessionClosedReasonResourceEvicted = "resource-evicted"++-- | <https://developer.mozilla.org/en-US/docs/Web/API MediaKeySessionType> (encrypted-media-2)+data MediaKeySessionType = MediaKeySessionTypeTemporary+ | MediaKeySessionTypePersistentLicense+ deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal MediaKeySessionType where+ pToJSVal x = pToJSVal (case x of+ MediaKeySessionTypeTemporary -> js_MediaKeySessionTypeTemporary+ MediaKeySessionTypePersistentLicense -> js_MediaKeySessionTypePersistentLicense+ )++instance ToJSVal MediaKeySessionType where+ toJSVal = P.return . pToJSVal++instance PFromJSVal MediaKeySessionType where+ pFromJSVal x = P.maybe (P.error "Unexpected MediaKeySessionType value") P.id (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_MediaKeySessionTypeTemporary, MediaKeySessionTypeTemporary), (js_MediaKeySessionTypePersistentLicense, MediaKeySessionTypePersistentLicense)]++instance FromJSVal MediaKeySessionType where+ fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_MediaKeySessionTypeTemporary, MediaKeySessionTypeTemporary), (js_MediaKeySessionTypePersistentLicense, MediaKeySessionTypePersistentLicense)]+ fromJSValUnchecked = P.return . pFromJSVal++js_MediaKeySessionTypeTemporary :: JSString+js_MediaKeySessionTypeTemporary = "temporary"+js_MediaKeySessionTypePersistentLicense :: JSString+js_MediaKeySessionTypePersistentLicense = "persistent-license"++-- | <https://developer.mozilla.org/en-US/docs/Web/API MediaKeyStatus> (encrypted-media-2)+data MediaKeyStatus = MediaKeyStatusUsable+ | MediaKeyStatusExpired+ | MediaKeyStatusReleased+ | MediaKeyStatusOutputRestricted+ | MediaKeyStatusOutputDownscaled+ | MediaKeyStatusUsableInFuture+ | MediaKeyStatusStatusPending+ | MediaKeyStatusInternalError+ deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal MediaKeyStatus where+ pToJSVal x = pToJSVal (case x of+ MediaKeyStatusUsable -> js_MediaKeyStatusUsable+ MediaKeyStatusExpired -> js_MediaKeyStatusExpired+ MediaKeyStatusReleased -> js_MediaKeyStatusReleased+ MediaKeyStatusOutputRestricted -> js_MediaKeyStatusOutputRestricted+ MediaKeyStatusOutputDownscaled -> js_MediaKeyStatusOutputDownscaled+ MediaKeyStatusUsableInFuture -> js_MediaKeyStatusUsableInFuture+ MediaKeyStatusStatusPending -> js_MediaKeyStatusStatusPending+ MediaKeyStatusInternalError -> js_MediaKeyStatusInternalError+ )++instance ToJSVal MediaKeyStatus where+ toJSVal = P.return . pToJSVal++instance PFromJSVal MediaKeyStatus where+ pFromJSVal x = P.maybe (P.error "Unexpected MediaKeyStatus value") P.id (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_MediaKeyStatusUsable, MediaKeyStatusUsable), (js_MediaKeyStatusExpired, MediaKeyStatusExpired), (js_MediaKeyStatusReleased, MediaKeyStatusReleased), (js_MediaKeyStatusOutputRestricted, MediaKeyStatusOutputRestricted), (js_MediaKeyStatusOutputDownscaled, MediaKeyStatusOutputDownscaled), (js_MediaKeyStatusUsableInFuture, MediaKeyStatusUsableInFuture), (js_MediaKeyStatusStatusPending, MediaKeyStatusStatusPending), (js_MediaKeyStatusInternalError, MediaKeyStatusInternalError)]++instance FromJSVal MediaKeyStatus where+ fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_MediaKeyStatusUsable, MediaKeyStatusUsable), (js_MediaKeyStatusExpired, MediaKeyStatusExpired), (js_MediaKeyStatusReleased, MediaKeyStatusReleased), (js_MediaKeyStatusOutputRestricted, MediaKeyStatusOutputRestricted), (js_MediaKeyStatusOutputDownscaled, MediaKeyStatusOutputDownscaled), (js_MediaKeyStatusUsableInFuture, MediaKeyStatusUsableInFuture), (js_MediaKeyStatusStatusPending, MediaKeyStatusStatusPending), (js_MediaKeyStatusInternalError, MediaKeyStatusInternalError)]+ fromJSValUnchecked = P.return . pFromJSVal++js_MediaKeyStatusUsable :: JSString+js_MediaKeyStatusUsable = "usable"+js_MediaKeyStatusExpired :: JSString+js_MediaKeyStatusExpired = "expired"+js_MediaKeyStatusReleased :: JSString+js_MediaKeyStatusReleased = "released"+js_MediaKeyStatusOutputRestricted :: JSString+js_MediaKeyStatusOutputRestricted = "output-restricted"+js_MediaKeyStatusOutputDownscaled :: JSString+js_MediaKeyStatusOutputDownscaled = "output-downscaled"+js_MediaKeyStatusUsableInFuture :: JSString+js_MediaKeyStatusUsableInFuture = "usable-in-future"+js_MediaKeyStatusStatusPending :: JSString+js_MediaKeyStatusStatusPending = "status-pending"+js_MediaKeyStatusInternalError :: JSString+js_MediaKeyStatusInternalError = "internal-error"++-- | <https://developer.mozilla.org/en-US/docs/Web/API MediaKeysRequirement> (encrypted-media-2)+data MediaKeysRequirement = MediaKeysRequirementRequired+ | MediaKeysRequirementOptional+ | MediaKeysRequirementNotAllowed+ deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal MediaKeysRequirement where+ pToJSVal x = pToJSVal (case x of+ MediaKeysRequirementRequired -> js_MediaKeysRequirementRequired+ MediaKeysRequirementOptional -> js_MediaKeysRequirementOptional+ MediaKeysRequirementNotAllowed -> js_MediaKeysRequirementNotAllowed+ )++instance ToJSVal MediaKeysRequirement where+ toJSVal = P.return . pToJSVal++instance PFromJSVal MediaKeysRequirement where+ pFromJSVal x = P.maybe (P.error "Unexpected MediaKeysRequirement value") P.id (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_MediaKeysRequirementRequired, MediaKeysRequirementRequired), (js_MediaKeysRequirementOptional, MediaKeysRequirementOptional), (js_MediaKeysRequirementNotAllowed, MediaKeysRequirementNotAllowed)]++instance FromJSVal MediaKeysRequirement where+ fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_MediaKeysRequirementRequired, MediaKeysRequirementRequired), (js_MediaKeysRequirementOptional, MediaKeysRequirementOptional), (js_MediaKeysRequirementNotAllowed, MediaKeysRequirementNotAllowed)]+ fromJSValUnchecked = P.return . pFromJSVal++js_MediaKeysRequirementRequired :: JSString+js_MediaKeysRequirementRequired = "required"+js_MediaKeysRequirementOptional :: JSString+js_MediaKeysRequirementOptional = "optional"+js_MediaKeysRequirementNotAllowed :: JSString+js_MediaKeysRequirementNotAllowed = "not-allowed"++-- | <https://developer.mozilla.org/en-US/docs/Web/API MediaSessionAction> (mediasession)+data MediaSessionAction = MediaSessionActionPlay+ | MediaSessionActionPause+ | MediaSessionActionSeekbackward+ | MediaSessionActionSeekforward+ | MediaSessionActionPrevioustrack+ | MediaSessionActionNexttrack+ | MediaSessionActionSkipad+ | MediaSessionActionStop+ | MediaSessionActionSeekto+ | MediaSessionActionTogglemicrophone+ | MediaSessionActionTogglecamera+ | MediaSessionActionTogglescreenshare+ | MediaSessionActionHangup+ | MediaSessionActionPreviousslide+ | MediaSessionActionNextslide+ | MediaSessionActionEnterpictureinpicture+ | MediaSessionActionVoiceactivity+ deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal MediaSessionAction where+ pToJSVal x = pToJSVal (case x of+ MediaSessionActionPlay -> js_MediaSessionActionPlay+ MediaSessionActionPause -> js_MediaSessionActionPause+ MediaSessionActionSeekbackward -> js_MediaSessionActionSeekbackward+ MediaSessionActionSeekforward -> js_MediaSessionActionSeekforward+ MediaSessionActionPrevioustrack -> js_MediaSessionActionPrevioustrack+ MediaSessionActionNexttrack -> js_MediaSessionActionNexttrack+ MediaSessionActionSkipad -> js_MediaSessionActionSkipad+ MediaSessionActionStop -> js_MediaSessionActionStop+ MediaSessionActionSeekto -> js_MediaSessionActionSeekto+ MediaSessionActionTogglemicrophone -> js_MediaSessionActionTogglemicrophone+ MediaSessionActionTogglecamera -> js_MediaSessionActionTogglecamera+ MediaSessionActionTogglescreenshare -> js_MediaSessionActionTogglescreenshare+ MediaSessionActionHangup -> js_MediaSessionActionHangup+ MediaSessionActionPreviousslide -> js_MediaSessionActionPreviousslide+ MediaSessionActionNextslide -> js_MediaSessionActionNextslide+ MediaSessionActionEnterpictureinpicture -> js_MediaSessionActionEnterpictureinpicture+ MediaSessionActionVoiceactivity -> js_MediaSessionActionVoiceactivity+ )++instance ToJSVal MediaSessionAction where+ toJSVal = P.return . pToJSVal++instance PFromJSVal MediaSessionAction where+ pFromJSVal x = P.maybe (P.error "Unexpected MediaSessionAction value") P.id (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_MediaSessionActionPlay, MediaSessionActionPlay), (js_MediaSessionActionPause, MediaSessionActionPause), (js_MediaSessionActionSeekbackward, MediaSessionActionSeekbackward), (js_MediaSessionActionSeekforward, MediaSessionActionSeekforward), (js_MediaSessionActionPrevioustrack, MediaSessionActionPrevioustrack), (js_MediaSessionActionNexttrack, MediaSessionActionNexttrack), (js_MediaSessionActionSkipad, MediaSessionActionSkipad), (js_MediaSessionActionStop, MediaSessionActionStop), (js_MediaSessionActionSeekto, MediaSessionActionSeekto), (js_MediaSessionActionTogglemicrophone, MediaSessionActionTogglemicrophone), (js_MediaSessionActionTogglecamera, MediaSessionActionTogglecamera), (js_MediaSessionActionTogglescreenshare, MediaSessionActionTogglescreenshare), (js_MediaSessionActionHangup, MediaSessionActionHangup), (js_MediaSessionActionPreviousslide, MediaSessionActionPreviousslide), (js_MediaSessionActionNextslide, MediaSessionActionNextslide), (js_MediaSessionActionEnterpictureinpicture, MediaSessionActionEnterpictureinpicture), (js_MediaSessionActionVoiceactivity, MediaSessionActionVoiceactivity)]++instance FromJSVal MediaSessionAction where+ fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_MediaSessionActionPlay, MediaSessionActionPlay), (js_MediaSessionActionPause, MediaSessionActionPause), (js_MediaSessionActionSeekbackward, MediaSessionActionSeekbackward), (js_MediaSessionActionSeekforward, MediaSessionActionSeekforward), (js_MediaSessionActionPrevioustrack, MediaSessionActionPrevioustrack), (js_MediaSessionActionNexttrack, MediaSessionActionNexttrack), (js_MediaSessionActionSkipad, MediaSessionActionSkipad), (js_MediaSessionActionStop, MediaSessionActionStop), (js_MediaSessionActionSeekto, MediaSessionActionSeekto), (js_MediaSessionActionTogglemicrophone, MediaSessionActionTogglemicrophone), (js_MediaSessionActionTogglecamera, MediaSessionActionTogglecamera), (js_MediaSessionActionTogglescreenshare, MediaSessionActionTogglescreenshare), (js_MediaSessionActionHangup, MediaSessionActionHangup), (js_MediaSessionActionPreviousslide, MediaSessionActionPreviousslide), (js_MediaSessionActionNextslide, MediaSessionActionNextslide), (js_MediaSessionActionEnterpictureinpicture, MediaSessionActionEnterpictureinpicture), (js_MediaSessionActionVoiceactivity, MediaSessionActionVoiceactivity)]+ fromJSValUnchecked = P.return . pFromJSVal++js_MediaSessionActionPlay :: JSString+js_MediaSessionActionPlay = "play"+js_MediaSessionActionPause :: JSString+js_MediaSessionActionPause = "pause"+js_MediaSessionActionSeekbackward :: JSString+js_MediaSessionActionSeekbackward = "seekbackward"+js_MediaSessionActionSeekforward :: JSString+js_MediaSessionActionSeekforward = "seekforward"+js_MediaSessionActionPrevioustrack :: JSString+js_MediaSessionActionPrevioustrack = "previoustrack"+js_MediaSessionActionNexttrack :: JSString+js_MediaSessionActionNexttrack = "nexttrack"+js_MediaSessionActionSkipad :: JSString+js_MediaSessionActionSkipad = "skipad"+js_MediaSessionActionStop :: JSString+js_MediaSessionActionStop = "stop"+js_MediaSessionActionSeekto :: JSString+js_MediaSessionActionSeekto = "seekto"+js_MediaSessionActionTogglemicrophone :: JSString+js_MediaSessionActionTogglemicrophone = "togglemicrophone"+js_MediaSessionActionTogglecamera :: JSString+js_MediaSessionActionTogglecamera = "togglecamera"+js_MediaSessionActionTogglescreenshare :: JSString+js_MediaSessionActionTogglescreenshare = "togglescreenshare"+js_MediaSessionActionHangup :: JSString+js_MediaSessionActionHangup = "hangup"+js_MediaSessionActionPreviousslide :: JSString+js_MediaSessionActionPreviousslide = "previousslide"+js_MediaSessionActionNextslide :: JSString+js_MediaSessionActionNextslide = "nextslide"+js_MediaSessionActionEnterpictureinpicture :: JSString+js_MediaSessionActionEnterpictureinpicture = "enterpictureinpicture"+js_MediaSessionActionVoiceactivity :: JSString+js_MediaSessionActionVoiceactivity = "voiceactivity"++-- | <https://developer.mozilla.org/en-US/docs/Web/API MediaSessionEnterPictureInPictureReason> (mediasession)+data MediaSessionEnterPictureInPictureReason = MediaSessionEnterPictureInPictureReasonOther+ | MediaSessionEnterPictureInPictureReasonUseraction+ | MediaSessionEnterPictureInPictureReasonContentoccluded+ deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal MediaSessionEnterPictureInPictureReason where+ pToJSVal x = pToJSVal (case x of+ MediaSessionEnterPictureInPictureReasonOther -> js_MediaSessionEnterPictureInPictureReasonOther+ MediaSessionEnterPictureInPictureReasonUseraction -> js_MediaSessionEnterPictureInPictureReasonUseraction+ MediaSessionEnterPictureInPictureReasonContentoccluded -> js_MediaSessionEnterPictureInPictureReasonContentoccluded+ )++instance ToJSVal MediaSessionEnterPictureInPictureReason where+ toJSVal = P.return . pToJSVal++instance PFromJSVal MediaSessionEnterPictureInPictureReason where+ pFromJSVal x = P.maybe (P.error "Unexpected MediaSessionEnterPictureInPictureReason value") P.id (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_MediaSessionEnterPictureInPictureReasonOther, MediaSessionEnterPictureInPictureReasonOther), (js_MediaSessionEnterPictureInPictureReasonUseraction, MediaSessionEnterPictureInPictureReasonUseraction), (js_MediaSessionEnterPictureInPictureReasonContentoccluded, MediaSessionEnterPictureInPictureReasonContentoccluded)]++instance FromJSVal MediaSessionEnterPictureInPictureReason where+ fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_MediaSessionEnterPictureInPictureReasonOther, MediaSessionEnterPictureInPictureReasonOther), (js_MediaSessionEnterPictureInPictureReasonUseraction, MediaSessionEnterPictureInPictureReasonUseraction), (js_MediaSessionEnterPictureInPictureReasonContentoccluded, MediaSessionEnterPictureInPictureReasonContentoccluded)]+ fromJSValUnchecked = P.return . pFromJSVal++js_MediaSessionEnterPictureInPictureReasonOther :: JSString+js_MediaSessionEnterPictureInPictureReasonOther = "other"+js_MediaSessionEnterPictureInPictureReasonUseraction :: JSString+js_MediaSessionEnterPictureInPictureReasonUseraction = "useraction"+js_MediaSessionEnterPictureInPictureReasonContentoccluded :: JSString+js_MediaSessionEnterPictureInPictureReasonContentoccluded = "contentoccluded"++-- | <https://developer.mozilla.org/en-US/docs/Web/API MediaSessionPlaybackState> (mediasession)+data MediaSessionPlaybackState = MediaSessionPlaybackStateNone+ | MediaSessionPlaybackStatePaused+ | MediaSessionPlaybackStatePlaying+ deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal MediaSessionPlaybackState where+ pToJSVal x = pToJSVal (case x of+ MediaSessionPlaybackStateNone -> js_MediaSessionPlaybackStateNone+ MediaSessionPlaybackStatePaused -> js_MediaSessionPlaybackStatePaused+ MediaSessionPlaybackStatePlaying -> js_MediaSessionPlaybackStatePlaying+ )++instance ToJSVal MediaSessionPlaybackState where+ toJSVal = P.return . pToJSVal++instance PFromJSVal MediaSessionPlaybackState where+ pFromJSVal x = P.maybe (P.error "Unexpected MediaSessionPlaybackState value") P.id (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_MediaSessionPlaybackStateNone, MediaSessionPlaybackStateNone), (js_MediaSessionPlaybackStatePaused, MediaSessionPlaybackStatePaused), (js_MediaSessionPlaybackStatePlaying, MediaSessionPlaybackStatePlaying)]++instance FromJSVal MediaSessionPlaybackState where+ fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_MediaSessionPlaybackStateNone, MediaSessionPlaybackStateNone), (js_MediaSessionPlaybackStatePaused, MediaSessionPlaybackStatePaused), (js_MediaSessionPlaybackStatePlaying, MediaSessionPlaybackStatePlaying)]+ fromJSValUnchecked = P.return . pFromJSVal++js_MediaSessionPlaybackStateNone :: JSString+js_MediaSessionPlaybackStateNone = "none"+js_MediaSessionPlaybackStatePaused :: JSString+js_MediaSessionPlaybackStatePaused = "paused"+js_MediaSessionPlaybackStatePlaying :: JSString+js_MediaSessionPlaybackStatePlaying = "playing"++-- | <https://developer.mozilla.org/en-US/docs/Web/API MediaStreamTrackState> (mediacapture-streams)+data MediaStreamTrackState = MediaStreamTrackStateLive+ | MediaStreamTrackStateEnded+ deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal MediaStreamTrackState where+ pToJSVal x = pToJSVal (case x of+ MediaStreamTrackStateLive -> js_MediaStreamTrackStateLive+ MediaStreamTrackStateEnded -> js_MediaStreamTrackStateEnded+ )++instance ToJSVal MediaStreamTrackState where+ toJSVal = P.return . pToJSVal++instance PFromJSVal MediaStreamTrackState where+ pFromJSVal x = P.maybe (P.error "Unexpected MediaStreamTrackState value") P.id (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_MediaStreamTrackStateLive, MediaStreamTrackStateLive), (js_MediaStreamTrackStateEnded, MediaStreamTrackStateEnded)]++instance FromJSVal MediaStreamTrackState where+ fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_MediaStreamTrackStateLive, MediaStreamTrackStateLive), (js_MediaStreamTrackStateEnded, MediaStreamTrackStateEnded)]+ fromJSValUnchecked = P.return . pFromJSVal++js_MediaStreamTrackStateLive :: JSString+js_MediaStreamTrackStateLive = "live"+js_MediaStreamTrackStateEnded :: JSString+js_MediaStreamTrackStateEnded = "ended"++-- | <https://developer.mozilla.org/en-US/docs/Web/API MonitorTypeSurfacesEnum> (screen-capture)+data MonitorTypeSurfacesEnum = MonitorTypeSurfacesEnumInclude+ | MonitorTypeSurfacesEnumExclude+ deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal MonitorTypeSurfacesEnum where+ pToJSVal x = pToJSVal (case x of+ MonitorTypeSurfacesEnumInclude -> js_MonitorTypeSurfacesEnumInclude+ MonitorTypeSurfacesEnumExclude -> js_MonitorTypeSurfacesEnumExclude+ )++instance ToJSVal MonitorTypeSurfacesEnum where+ toJSVal = P.return . pToJSVal++instance PFromJSVal MonitorTypeSurfacesEnum where+ pFromJSVal x = P.maybe (P.error "Unexpected MonitorTypeSurfacesEnum value") P.id (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_MonitorTypeSurfacesEnumInclude, MonitorTypeSurfacesEnumInclude), (js_MonitorTypeSurfacesEnumExclude, MonitorTypeSurfacesEnumExclude)]++instance FromJSVal MonitorTypeSurfacesEnum where+ fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_MonitorTypeSurfacesEnumInclude, MonitorTypeSurfacesEnumInclude), (js_MonitorTypeSurfacesEnumExclude, MonitorTypeSurfacesEnumExclude)]+ fromJSValUnchecked = P.return . pFromJSVal++js_MonitorTypeSurfacesEnumInclude :: JSString+js_MonitorTypeSurfacesEnumInclude = "include"+js_MonitorTypeSurfacesEnumExclude :: JSString+js_MonitorTypeSurfacesEnumExclude = "exclude"++-- | <https://developer.mozilla.org/en-US/docs/Web/API NavigationFocusReset> (html)+data NavigationFocusReset = NavigationFocusResetAfterTransition+ | NavigationFocusResetManual+ deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal NavigationFocusReset where+ pToJSVal x = pToJSVal (case x of+ NavigationFocusResetAfterTransition -> js_NavigationFocusResetAfterTransition+ NavigationFocusResetManual -> js_NavigationFocusResetManual+ )++instance ToJSVal NavigationFocusReset where+ toJSVal = P.return . pToJSVal++instance PFromJSVal NavigationFocusReset where+ pFromJSVal x = P.maybe (P.error "Unexpected NavigationFocusReset value") P.id (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_NavigationFocusResetAfterTransition, NavigationFocusResetAfterTransition), (js_NavigationFocusResetManual, NavigationFocusResetManual)]++instance FromJSVal NavigationFocusReset where+ fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_NavigationFocusResetAfterTransition, NavigationFocusResetAfterTransition), (js_NavigationFocusResetManual, NavigationFocusResetManual)]+ fromJSValUnchecked = P.return . pFromJSVal++js_NavigationFocusResetAfterTransition :: JSString+js_NavigationFocusResetAfterTransition = "after-transition"+js_NavigationFocusResetManual :: JSString+js_NavigationFocusResetManual = "manual"++-- | <https://developer.mozilla.org/en-US/docs/Web/API NavigationHistoryBehavior> (html)+data NavigationHistoryBehavior = NavigationHistoryBehaviorAuto+ | NavigationHistoryBehaviorPush+ | NavigationHistoryBehaviorReplace+ deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal NavigationHistoryBehavior where+ pToJSVal x = pToJSVal (case x of+ NavigationHistoryBehaviorAuto -> js_NavigationHistoryBehaviorAuto+ NavigationHistoryBehaviorPush -> js_NavigationHistoryBehaviorPush+ NavigationHistoryBehaviorReplace -> js_NavigationHistoryBehaviorReplace+ )++instance ToJSVal NavigationHistoryBehavior where+ toJSVal = P.return . pToJSVal++instance PFromJSVal NavigationHistoryBehavior where+ pFromJSVal x = P.maybe (P.error "Unexpected NavigationHistoryBehavior value") P.id (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_NavigationHistoryBehaviorAuto, NavigationHistoryBehaviorAuto), (js_NavigationHistoryBehaviorPush, NavigationHistoryBehaviorPush), (js_NavigationHistoryBehaviorReplace, NavigationHistoryBehaviorReplace)]++instance FromJSVal NavigationHistoryBehavior where+ fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_NavigationHistoryBehaviorAuto, NavigationHistoryBehaviorAuto), (js_NavigationHistoryBehaviorPush, NavigationHistoryBehaviorPush), (js_NavigationHistoryBehaviorReplace, NavigationHistoryBehaviorReplace)]+ fromJSValUnchecked = P.return . pFromJSVal++js_NavigationHistoryBehaviorAuto :: JSString+js_NavigationHistoryBehaviorAuto = "auto"+js_NavigationHistoryBehaviorPush :: JSString+js_NavigationHistoryBehaviorPush = "push"+js_NavigationHistoryBehaviorReplace :: JSString+js_NavigationHistoryBehaviorReplace = "replace"++-- | <https://developer.mozilla.org/en-US/docs/Web/API NavigationScrollBehavior> (html)+data NavigationScrollBehavior = NavigationScrollBehaviorAfterTransition+ | NavigationScrollBehaviorManual+ deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal NavigationScrollBehavior where+ pToJSVal x = pToJSVal (case x of+ NavigationScrollBehaviorAfterTransition -> js_NavigationScrollBehaviorAfterTransition+ NavigationScrollBehaviorManual -> js_NavigationScrollBehaviorManual+ )++instance ToJSVal NavigationScrollBehavior where+ toJSVal = P.return . pToJSVal++instance PFromJSVal NavigationScrollBehavior where+ pFromJSVal x = P.maybe (P.error "Unexpected NavigationScrollBehavior value") P.id (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_NavigationScrollBehaviorAfterTransition, NavigationScrollBehaviorAfterTransition), (js_NavigationScrollBehaviorManual, NavigationScrollBehaviorManual)]++instance FromJSVal NavigationScrollBehavior where+ fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_NavigationScrollBehaviorAfterTransition, NavigationScrollBehaviorAfterTransition), (js_NavigationScrollBehaviorManual, NavigationScrollBehaviorManual)]+ fromJSValUnchecked = P.return . pFromJSVal++js_NavigationScrollBehaviorAfterTransition :: JSString+js_NavigationScrollBehaviorAfterTransition = "after-transition"+js_NavigationScrollBehaviorManual :: JSString+js_NavigationScrollBehaviorManual = "manual"++-- | <https://developer.mozilla.org/en-US/docs/Web/API NavigationTimingType> (navigation-timing-2)+data NavigationTimingType = NavigationTimingTypeNavigate+ | NavigationTimingTypeReload+ | NavigationTimingTypeBackForward+ deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal NavigationTimingType where+ pToJSVal x = pToJSVal (case x of+ NavigationTimingTypeNavigate -> js_NavigationTimingTypeNavigate+ NavigationTimingTypeReload -> js_NavigationTimingTypeReload+ NavigationTimingTypeBackForward -> js_NavigationTimingTypeBackForward+ )++instance ToJSVal NavigationTimingType where+ toJSVal = P.return . pToJSVal++instance PFromJSVal NavigationTimingType where+ pFromJSVal x = P.maybe (P.error "Unexpected NavigationTimingType value") P.id (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_NavigationTimingTypeNavigate, NavigationTimingTypeNavigate), (js_NavigationTimingTypeReload, NavigationTimingTypeReload), (js_NavigationTimingTypeBackForward, NavigationTimingTypeBackForward)]++instance FromJSVal NavigationTimingType where+ fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_NavigationTimingTypeNavigate, NavigationTimingTypeNavigate), (js_NavigationTimingTypeReload, NavigationTimingTypeReload), (js_NavigationTimingTypeBackForward, NavigationTimingTypeBackForward)]+ fromJSValUnchecked = P.return . pFromJSVal++js_NavigationTimingTypeNavigate :: JSString+js_NavigationTimingTypeNavigate = "navigate"+js_NavigationTimingTypeReload :: JSString+js_NavigationTimingTypeReload = "reload"+js_NavigationTimingTypeBackForward :: JSString+js_NavigationTimingTypeBackForward = "back_forward"++-- | <https://developer.mozilla.org/en-US/docs/Web/API NavigationType> (html)+data NavigationType = NavigationTypePush+ | NavigationTypeReplace+ | NavigationTypeReload+ | NavigationTypeTraverse+ deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal NavigationType where+ pToJSVal x = pToJSVal (case x of+ NavigationTypePush -> js_NavigationTypePush+ NavigationTypeReplace -> js_NavigationTypeReplace+ NavigationTypeReload -> js_NavigationTypeReload+ NavigationTypeTraverse -> js_NavigationTypeTraverse+ )++instance ToJSVal NavigationType where+ toJSVal = P.return . pToJSVal++instance PFromJSVal NavigationType where+ pFromJSVal x = P.maybe (P.error "Unexpected NavigationType value") P.id (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_NavigationTypePush, NavigationTypePush), (js_NavigationTypeReplace, NavigationTypeReplace), (js_NavigationTypeReload, NavigationTypeReload), (js_NavigationTypeTraverse, NavigationTypeTraverse)]++instance FromJSVal NavigationType where+ fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_NavigationTypePush, NavigationTypePush), (js_NavigationTypeReplace, NavigationTypeReplace), (js_NavigationTypeReload, NavigationTypeReload), (js_NavigationTypeTraverse, NavigationTypeTraverse)]+ fromJSValUnchecked = P.return . pFromJSVal++js_NavigationTypePush :: JSString+js_NavigationTypePush = "push"+js_NavigationTypeReplace :: JSString+js_NavigationTypeReplace = "replace"+js_NavigationTypeReload :: JSString+js_NavigationTypeReload = "reload"+js_NavigationTypeTraverse :: JSString+js_NavigationTypeTraverse = "traverse"++-- | <https://developer.mozilla.org/en-US/docs/Web/API NotificationDirection> (notifications)+data NotificationDirection = NotificationDirectionAuto+ | NotificationDirectionLtr+ | NotificationDirectionRtl+ deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal NotificationDirection where+ pToJSVal x = pToJSVal (case x of+ NotificationDirectionAuto -> js_NotificationDirectionAuto+ NotificationDirectionLtr -> js_NotificationDirectionLtr+ NotificationDirectionRtl -> js_NotificationDirectionRtl+ )++instance ToJSVal NotificationDirection where+ toJSVal = P.return . pToJSVal++instance PFromJSVal NotificationDirection where+ pFromJSVal x = P.maybe (P.error "Unexpected NotificationDirection value") P.id (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_NotificationDirectionAuto, NotificationDirectionAuto), (js_NotificationDirectionLtr, NotificationDirectionLtr), (js_NotificationDirectionRtl, NotificationDirectionRtl)]++instance FromJSVal NotificationDirection where+ fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_NotificationDirectionAuto, NotificationDirectionAuto), (js_NotificationDirectionLtr, NotificationDirectionLtr), (js_NotificationDirectionRtl, NotificationDirectionRtl)]+ fromJSValUnchecked = P.return . pFromJSVal++js_NotificationDirectionAuto :: JSString+js_NotificationDirectionAuto = "auto"+js_NotificationDirectionLtr :: JSString+js_NotificationDirectionLtr = "ltr"+js_NotificationDirectionRtl :: JSString+js_NotificationDirectionRtl = "rtl"++-- | <https://developer.mozilla.org/en-US/docs/Web/API NotificationPermission> (notifications)+data NotificationPermission = NotificationPermissionDefault+ | NotificationPermissionDenied+ | NotificationPermissionGranted+ deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal NotificationPermission where+ pToJSVal x = pToJSVal (case x of+ NotificationPermissionDefault -> js_NotificationPermissionDefault+ NotificationPermissionDenied -> js_NotificationPermissionDenied+ NotificationPermissionGranted -> js_NotificationPermissionGranted+ )++instance ToJSVal NotificationPermission where+ toJSVal = P.return . pToJSVal++instance PFromJSVal NotificationPermission where+ pFromJSVal x = P.maybe (P.error "Unexpected NotificationPermission value") P.id (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_NotificationPermissionDefault, NotificationPermissionDefault), (js_NotificationPermissionDenied, NotificationPermissionDenied), (js_NotificationPermissionGranted, NotificationPermissionGranted)]++instance FromJSVal NotificationPermission where+ fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_NotificationPermissionDefault, NotificationPermissionDefault), (js_NotificationPermissionDenied, NotificationPermissionDenied), (js_NotificationPermissionGranted, NotificationPermissionGranted)]+ fromJSValUnchecked = P.return . pFromJSVal++js_NotificationPermissionDefault :: JSString+js_NotificationPermissionDefault = "default"+js_NotificationPermissionDenied :: JSString+js_NotificationPermissionDenied = "denied"+js_NotificationPermissionGranted :: JSString+js_NotificationPermissionGranted = "granted"++-- | <https://developer.mozilla.org/en-US/docs/Web/API OTPCredentialTransportType> (web-otp)+data OTPCredentialTransportType = OTPCredentialTransportTypeSms+ deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal OTPCredentialTransportType where+ pToJSVal x = pToJSVal (case x of+ OTPCredentialTransportTypeSms -> js_OTPCredentialTransportTypeSms+ )++instance ToJSVal OTPCredentialTransportType where+ toJSVal = P.return . pToJSVal++instance PFromJSVal OTPCredentialTransportType where+ pFromJSVal x = P.maybe (P.error "Unexpected OTPCredentialTransportType value") P.id (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_OTPCredentialTransportTypeSms, OTPCredentialTransportTypeSms)]++instance FromJSVal OTPCredentialTransportType where+ fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_OTPCredentialTransportTypeSms, OTPCredentialTransportTypeSms)]+ fromJSValUnchecked = P.return . pFromJSVal++js_OTPCredentialTransportTypeSms :: JSString+js_OTPCredentialTransportTypeSms = "sms"++-- | <https://developer.mozilla.org/en-US/docs/Web/API OffscreenRenderingContextId> (html)+data OffscreenRenderingContextId = OffscreenRenderingContextId2d+ | OffscreenRenderingContextIdBitmaprenderer+ | OffscreenRenderingContextIdWebgl+ | OffscreenRenderingContextIdWebgl2+ | OffscreenRenderingContextIdWebgpu+ deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal OffscreenRenderingContextId where+ pToJSVal x = pToJSVal (case x of+ OffscreenRenderingContextId2d -> js_OffscreenRenderingContextId2d+ OffscreenRenderingContextIdBitmaprenderer -> js_OffscreenRenderingContextIdBitmaprenderer+ OffscreenRenderingContextIdWebgl -> js_OffscreenRenderingContextIdWebgl+ OffscreenRenderingContextIdWebgl2 -> js_OffscreenRenderingContextIdWebgl2+ OffscreenRenderingContextIdWebgpu -> js_OffscreenRenderingContextIdWebgpu+ )++instance ToJSVal OffscreenRenderingContextId where+ toJSVal = P.return . pToJSVal++instance PFromJSVal OffscreenRenderingContextId where+ pFromJSVal x = P.maybe (P.error "Unexpected OffscreenRenderingContextId value") P.id (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_OffscreenRenderingContextId2d, OffscreenRenderingContextId2d), (js_OffscreenRenderingContextIdBitmaprenderer, OffscreenRenderingContextIdBitmaprenderer), (js_OffscreenRenderingContextIdWebgl, OffscreenRenderingContextIdWebgl), (js_OffscreenRenderingContextIdWebgl2, OffscreenRenderingContextIdWebgl2), (js_OffscreenRenderingContextIdWebgpu, OffscreenRenderingContextIdWebgpu)]++instance FromJSVal OffscreenRenderingContextId where+ fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_OffscreenRenderingContextId2d, OffscreenRenderingContextId2d), (js_OffscreenRenderingContextIdBitmaprenderer, OffscreenRenderingContextIdBitmaprenderer), (js_OffscreenRenderingContextIdWebgl, OffscreenRenderingContextIdWebgl), (js_OffscreenRenderingContextIdWebgl2, OffscreenRenderingContextIdWebgl2), (js_OffscreenRenderingContextIdWebgpu, OffscreenRenderingContextIdWebgpu)]+ fromJSValUnchecked = P.return . pFromJSVal++js_OffscreenRenderingContextId2d :: JSString+js_OffscreenRenderingContextId2d = "2d"+js_OffscreenRenderingContextIdBitmaprenderer :: JSString+js_OffscreenRenderingContextIdBitmaprenderer = "bitmaprenderer"+js_OffscreenRenderingContextIdWebgl :: JSString+js_OffscreenRenderingContextIdWebgl = "webgl"+js_OffscreenRenderingContextIdWebgl2 :: JSString+js_OffscreenRenderingContextIdWebgl2 = "webgl2"+js_OffscreenRenderingContextIdWebgpu :: JSString+js_OffscreenRenderingContextIdWebgpu = "webgpu"++-- | <https://developer.mozilla.org/en-US/docs/Web/API OperationType> (trust-token-api)+data OperationType = OperationTypeTokenRequest+ | OperationTypeSendRedemptionRecord+ | OperationTypeTokenRedemption+ deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal OperationType where+ pToJSVal x = pToJSVal (case x of+ OperationTypeTokenRequest -> js_OperationTypeTokenRequest+ OperationTypeSendRedemptionRecord -> js_OperationTypeSendRedemptionRecord+ OperationTypeTokenRedemption -> js_OperationTypeTokenRedemption+ )++instance ToJSVal OperationType where+ toJSVal = P.return . pToJSVal++instance PFromJSVal OperationType where+ pFromJSVal x = P.maybe (P.error "Unexpected OperationType value") P.id (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_OperationTypeTokenRequest, OperationTypeTokenRequest), (js_OperationTypeSendRedemptionRecord, OperationTypeSendRedemptionRecord), (js_OperationTypeTokenRedemption, OperationTypeTokenRedemption)]++instance FromJSVal OperationType where+ fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_OperationTypeTokenRequest, OperationTypeTokenRequest), (js_OperationTypeSendRedemptionRecord, OperationTypeSendRedemptionRecord), (js_OperationTypeTokenRedemption, OperationTypeTokenRedemption)]+ fromJSValUnchecked = P.return . pFromJSVal++js_OperationTypeTokenRequest :: JSString+js_OperationTypeTokenRequest = "token-request"+js_OperationTypeSendRedemptionRecord :: JSString+js_OperationTypeSendRedemptionRecord = "send-redemption-record"+js_OperationTypeTokenRedemption :: JSString+js_OperationTypeTokenRedemption = "token-redemption"++-- | <https://developer.mozilla.org/en-US/docs/Web/API OpusApplication> (webcodecs-opus-codec-registration)+data OpusApplication = OpusApplicationVoip+ | OpusApplicationAudio+ | OpusApplicationLowdelay+ deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal OpusApplication where+ pToJSVal x = pToJSVal (case x of+ OpusApplicationVoip -> js_OpusApplicationVoip+ OpusApplicationAudio -> js_OpusApplicationAudio+ OpusApplicationLowdelay -> js_OpusApplicationLowdelay+ )++instance ToJSVal OpusApplication where+ toJSVal = P.return . pToJSVal++instance PFromJSVal OpusApplication where+ pFromJSVal x = P.maybe (P.error "Unexpected OpusApplication value") P.id (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_OpusApplicationVoip, OpusApplicationVoip), (js_OpusApplicationAudio, OpusApplicationAudio), (js_OpusApplicationLowdelay, OpusApplicationLowdelay)]++instance FromJSVal OpusApplication where+ fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_OpusApplicationVoip, OpusApplicationVoip), (js_OpusApplicationAudio, OpusApplicationAudio), (js_OpusApplicationLowdelay, OpusApplicationLowdelay)]+ fromJSValUnchecked = P.return . pFromJSVal++js_OpusApplicationVoip :: JSString+js_OpusApplicationVoip = "voip"+js_OpusApplicationAudio :: JSString+js_OpusApplicationAudio = "audio"+js_OpusApplicationLowdelay :: JSString+js_OpusApplicationLowdelay = "lowdelay"++-- | <https://developer.mozilla.org/en-US/docs/Web/API OpusBitstreamFormat> (webcodecs-opus-codec-registration)+data OpusBitstreamFormat = OpusBitstreamFormatOpus+ | OpusBitstreamFormatOgg+ deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal OpusBitstreamFormat where+ pToJSVal x = pToJSVal (case x of+ OpusBitstreamFormatOpus -> js_OpusBitstreamFormatOpus+ OpusBitstreamFormatOgg -> js_OpusBitstreamFormatOgg+ )++instance ToJSVal OpusBitstreamFormat where+ toJSVal = P.return . pToJSVal++instance PFromJSVal OpusBitstreamFormat where+ pFromJSVal x = P.maybe (P.error "Unexpected OpusBitstreamFormat value") P.id (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_OpusBitstreamFormatOpus, OpusBitstreamFormatOpus), (js_OpusBitstreamFormatOgg, OpusBitstreamFormatOgg)]++instance FromJSVal OpusBitstreamFormat where+ fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_OpusBitstreamFormatOpus, OpusBitstreamFormatOpus), (js_OpusBitstreamFormatOgg, OpusBitstreamFormatOgg)]+ fromJSValUnchecked = P.return . pFromJSVal++js_OpusBitstreamFormatOpus :: JSString+js_OpusBitstreamFormatOpus = "opus"+js_OpusBitstreamFormatOgg :: JSString+js_OpusBitstreamFormatOgg = "ogg"++-- | <https://developer.mozilla.org/en-US/docs/Web/API OpusSignal> (webcodecs-opus-codec-registration)+data OpusSignal = OpusSignalAuto+ | OpusSignalMusic+ | OpusSignalVoice+ deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal OpusSignal where+ pToJSVal x = pToJSVal (case x of+ OpusSignalAuto -> js_OpusSignalAuto+ OpusSignalMusic -> js_OpusSignalMusic+ OpusSignalVoice -> js_OpusSignalVoice+ )++instance ToJSVal OpusSignal where+ toJSVal = P.return . pToJSVal++instance PFromJSVal OpusSignal where+ pFromJSVal x = P.maybe (P.error "Unexpected OpusSignal value") P.id (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_OpusSignalAuto, OpusSignalAuto), (js_OpusSignalMusic, OpusSignalMusic), (js_OpusSignalVoice, OpusSignalVoice)]++instance FromJSVal OpusSignal where+ fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_OpusSignalAuto, OpusSignalAuto), (js_OpusSignalMusic, OpusSignalMusic), (js_OpusSignalVoice, OpusSignalVoice)]+ fromJSValUnchecked = P.return . pFromJSVal++js_OpusSignalAuto :: JSString+js_OpusSignalAuto = "auto"+js_OpusSignalMusic :: JSString+js_OpusSignalMusic = "music"+js_OpusSignalVoice :: JSString+js_OpusSignalVoice = "voice"++-- | <https://developer.mozilla.org/en-US/docs/Web/API OrientationLockType> (screen-orientation)+data OrientationLockType = OrientationLockTypeAny+ | OrientationLockTypeNatural+ | OrientationLockTypeLandscape+ | OrientationLockTypePortrait+ | OrientationLockTypePortraitPrimary+ | OrientationLockTypePortraitSecondary+ | OrientationLockTypeLandscapePrimary+ | OrientationLockTypeLandscapeSecondary+ deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal OrientationLockType where+ pToJSVal x = pToJSVal (case x of+ OrientationLockTypeAny -> js_OrientationLockTypeAny+ OrientationLockTypeNatural -> js_OrientationLockTypeNatural+ OrientationLockTypeLandscape -> js_OrientationLockTypeLandscape+ OrientationLockTypePortrait -> js_OrientationLockTypePortrait+ OrientationLockTypePortraitPrimary -> js_OrientationLockTypePortraitPrimary+ OrientationLockTypePortraitSecondary -> js_OrientationLockTypePortraitSecondary+ OrientationLockTypeLandscapePrimary -> js_OrientationLockTypeLandscapePrimary+ OrientationLockTypeLandscapeSecondary -> js_OrientationLockTypeLandscapeSecondary+ )++instance ToJSVal OrientationLockType where+ toJSVal = P.return . pToJSVal++instance PFromJSVal OrientationLockType where+ pFromJSVal x = P.maybe (P.error "Unexpected OrientationLockType value") P.id (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_OrientationLockTypeAny, OrientationLockTypeAny), (js_OrientationLockTypeNatural, OrientationLockTypeNatural), (js_OrientationLockTypeLandscape, OrientationLockTypeLandscape), (js_OrientationLockTypePortrait, OrientationLockTypePortrait), (js_OrientationLockTypePortraitPrimary, OrientationLockTypePortraitPrimary), (js_OrientationLockTypePortraitSecondary, OrientationLockTypePortraitSecondary), (js_OrientationLockTypeLandscapePrimary, OrientationLockTypeLandscapePrimary), (js_OrientationLockTypeLandscapeSecondary, OrientationLockTypeLandscapeSecondary)]++instance FromJSVal OrientationLockType where+ fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_OrientationLockTypeAny, OrientationLockTypeAny), (js_OrientationLockTypeNatural, OrientationLockTypeNatural), (js_OrientationLockTypeLandscape, OrientationLockTypeLandscape), (js_OrientationLockTypePortrait, OrientationLockTypePortrait), (js_OrientationLockTypePortraitPrimary, OrientationLockTypePortraitPrimary), (js_OrientationLockTypePortraitSecondary, OrientationLockTypePortraitSecondary), (js_OrientationLockTypeLandscapePrimary, OrientationLockTypeLandscapePrimary), (js_OrientationLockTypeLandscapeSecondary, OrientationLockTypeLandscapeSecondary)]+ fromJSValUnchecked = P.return . pFromJSVal++js_OrientationLockTypeAny :: JSString+js_OrientationLockTypeAny = "any"+js_OrientationLockTypeNatural :: JSString+js_OrientationLockTypeNatural = "natural"+js_OrientationLockTypeLandscape :: JSString+js_OrientationLockTypeLandscape = "landscape"+js_OrientationLockTypePortrait :: JSString+js_OrientationLockTypePortrait = "portrait"+js_OrientationLockTypePortraitPrimary :: JSString+js_OrientationLockTypePortraitPrimary = "portrait-primary"+js_OrientationLockTypePortraitSecondary :: JSString+js_OrientationLockTypePortraitSecondary = "portrait-secondary"+js_OrientationLockTypeLandscapePrimary :: JSString+js_OrientationLockTypeLandscapePrimary = "landscape-primary"+js_OrientationLockTypeLandscapeSecondary :: JSString+js_OrientationLockTypeLandscapeSecondary = "landscape-secondary"++-- | <https://developer.mozilla.org/en-US/docs/Web/API OrientationType> (screen-orientation)+data OrientationType = OrientationTypePortraitPrimary+ | OrientationTypePortraitSecondary+ | OrientationTypeLandscapePrimary+ | OrientationTypeLandscapeSecondary+ deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal OrientationType where+ pToJSVal x = pToJSVal (case x of+ OrientationTypePortraitPrimary -> js_OrientationTypePortraitPrimary+ OrientationTypePortraitSecondary -> js_OrientationTypePortraitSecondary+ OrientationTypeLandscapePrimary -> js_OrientationTypeLandscapePrimary+ OrientationTypeLandscapeSecondary -> js_OrientationTypeLandscapeSecondary+ )++instance ToJSVal OrientationType where+ toJSVal = P.return . pToJSVal++instance PFromJSVal OrientationType where+ pFromJSVal x = P.maybe (P.error "Unexpected OrientationType value") P.id (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_OrientationTypePortraitPrimary, OrientationTypePortraitPrimary), (js_OrientationTypePortraitSecondary, OrientationTypePortraitSecondary), (js_OrientationTypeLandscapePrimary, OrientationTypeLandscapePrimary), (js_OrientationTypeLandscapeSecondary, OrientationTypeLandscapeSecondary)]++instance FromJSVal OrientationType where+ fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_OrientationTypePortraitPrimary, OrientationTypePortraitPrimary), (js_OrientationTypePortraitSecondary, OrientationTypePortraitSecondary), (js_OrientationTypeLandscapePrimary, OrientationTypeLandscapePrimary), (js_OrientationTypeLandscapeSecondary, OrientationTypeLandscapeSecondary)]+ fromJSValUnchecked = P.return . pFromJSVal++js_OrientationTypePortraitPrimary :: JSString+js_OrientationTypePortraitPrimary = "portrait-primary"+js_OrientationTypePortraitSecondary :: JSString+js_OrientationTypePortraitSecondary = "portrait-secondary"+js_OrientationTypeLandscapePrimary :: JSString+js_OrientationTypeLandscapePrimary = "landscape-primary"+js_OrientationTypeLandscapeSecondary :: JSString+js_OrientationTypeLandscapeSecondary = "landscape-secondary"++-- | <https://developer.mozilla.org/en-US/docs/Web/API OscillatorType> (webaudio-1.1)+data OscillatorType = OscillatorTypeSine+ | OscillatorTypeSquare+ | OscillatorTypeSawtooth+ | OscillatorTypeTriangle+ | OscillatorTypeCustom+ deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal OscillatorType where+ pToJSVal x = pToJSVal (case x of+ OscillatorTypeSine -> js_OscillatorTypeSine+ OscillatorTypeSquare -> js_OscillatorTypeSquare+ OscillatorTypeSawtooth -> js_OscillatorTypeSawtooth+ OscillatorTypeTriangle -> js_OscillatorTypeTriangle+ OscillatorTypeCustom -> js_OscillatorTypeCustom+ )++instance ToJSVal OscillatorType where+ toJSVal = P.return . pToJSVal++instance PFromJSVal OscillatorType where+ pFromJSVal x = P.maybe (P.error "Unexpected OscillatorType value") P.id (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_OscillatorTypeSine, OscillatorTypeSine), (js_OscillatorTypeSquare, OscillatorTypeSquare), (js_OscillatorTypeSawtooth, OscillatorTypeSawtooth), (js_OscillatorTypeTriangle, OscillatorTypeTriangle), (js_OscillatorTypeCustom, OscillatorTypeCustom)]++instance FromJSVal OscillatorType where+ fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_OscillatorTypeSine, OscillatorTypeSine), (js_OscillatorTypeSquare, OscillatorTypeSquare), (js_OscillatorTypeSawtooth, OscillatorTypeSawtooth), (js_OscillatorTypeTriangle, OscillatorTypeTriangle), (js_OscillatorTypeCustom, OscillatorTypeCustom)]+ fromJSValUnchecked = P.return . pFromJSVal++js_OscillatorTypeSine :: JSString+js_OscillatorTypeSine = "sine"+js_OscillatorTypeSquare :: JSString+js_OscillatorTypeSquare = "square"+js_OscillatorTypeSawtooth :: JSString+js_OscillatorTypeSawtooth = "sawtooth"+js_OscillatorTypeTriangle :: JSString+js_OscillatorTypeTriangle = "triangle"+js_OscillatorTypeCustom :: JSString+js_OscillatorTypeCustom = "custom"++-- | <https://developer.mozilla.org/en-US/docs/Web/API OverSampleType> (webaudio-1.1)+data OverSampleType = OverSampleTypeNone+ | OverSampleType2x+ | OverSampleType4x+ deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal OverSampleType where+ pToJSVal x = pToJSVal (case x of+ OverSampleTypeNone -> js_OverSampleTypeNone+ OverSampleType2x -> js_OverSampleType2x+ OverSampleType4x -> js_OverSampleType4x+ )++instance ToJSVal OverSampleType where+ toJSVal = P.return . pToJSVal++instance PFromJSVal OverSampleType where+ pFromJSVal x = P.maybe (P.error "Unexpected OverSampleType value") P.id (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_OverSampleTypeNone, OverSampleTypeNone), (js_OverSampleType2x, OverSampleType2x), (js_OverSampleType4x, OverSampleType4x)]++instance FromJSVal OverSampleType where+ fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_OverSampleTypeNone, OverSampleTypeNone), (js_OverSampleType2x, OverSampleType2x), (js_OverSampleType4x, OverSampleType4x)]+ fromJSValUnchecked = P.return . pFromJSVal++js_OverSampleTypeNone :: JSString+js_OverSampleTypeNone = "none"+js_OverSampleType2x :: JSString+js_OverSampleType2x = "2x"+js_OverSampleType4x :: JSString+js_OverSampleType4x = "4x"++-- | <https://developer.mozilla.org/en-US/docs/Web/API PanningModelType> (webaudio-1.1)+data PanningModelType = PanningModelTypeEqualpower+ | PanningModelTypeHRTF+ deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal PanningModelType where+ pToJSVal x = pToJSVal (case x of+ PanningModelTypeEqualpower -> js_PanningModelTypeEqualpower+ PanningModelTypeHRTF -> js_PanningModelTypeHRTF+ )++instance ToJSVal PanningModelType where+ toJSVal = P.return . pToJSVal++instance PFromJSVal PanningModelType where+ pFromJSVal x = P.maybe (P.error "Unexpected PanningModelType value") P.id (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_PanningModelTypeEqualpower, PanningModelTypeEqualpower), (js_PanningModelTypeHRTF, PanningModelTypeHRTF)]++instance FromJSVal PanningModelType where+ fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_PanningModelTypeEqualpower, PanningModelTypeEqualpower), (js_PanningModelTypeHRTF, PanningModelTypeHRTF)]+ fromJSValUnchecked = P.return . pFromJSVal++js_PanningModelTypeEqualpower :: JSString+js_PanningModelTypeEqualpower = "equalpower"+js_PanningModelTypeHRTF :: JSString+js_PanningModelTypeHRTF = "HRTF"++-- | <https://developer.mozilla.org/en-US/docs/Web/API ParityType> (serial)+data ParityType = ParityTypeNone+ | ParityTypeEven+ | ParityTypeOdd+ deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal ParityType where+ pToJSVal x = pToJSVal (case x of+ ParityTypeNone -> js_ParityTypeNone+ ParityTypeEven -> js_ParityTypeEven+ ParityTypeOdd -> js_ParityTypeOdd+ )++instance ToJSVal ParityType where+ toJSVal = P.return . pToJSVal++instance PFromJSVal ParityType where+ pFromJSVal x = P.maybe (P.error "Unexpected ParityType value") P.id (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_ParityTypeNone, ParityTypeNone), (js_ParityTypeEven, ParityTypeEven), (js_ParityTypeOdd, ParityTypeOdd)]++instance FromJSVal ParityType where+ fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_ParityTypeNone, ParityTypeNone), (js_ParityTypeEven, ParityTypeEven), (js_ParityTypeOdd, ParityTypeOdd)]+ fromJSValUnchecked = P.return . pFromJSVal++js_ParityTypeNone :: JSString+js_ParityTypeNone = "none"+js_ParityTypeEven :: JSString+js_ParityTypeEven = "even"+js_ParityTypeOdd :: JSString+js_ParityTypeOdd = "odd"++-- | <https://developer.mozilla.org/en-US/docs/Web/API PaymentComplete> (payment-request)+data PaymentComplete = PaymentCompleteFail+ | PaymentCompleteSuccess+ | PaymentCompleteUnknown+ deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal PaymentComplete where+ pToJSVal x = pToJSVal (case x of+ PaymentCompleteFail -> js_PaymentCompleteFail+ PaymentCompleteSuccess -> js_PaymentCompleteSuccess+ PaymentCompleteUnknown -> js_PaymentCompleteUnknown+ )++instance ToJSVal PaymentComplete where+ toJSVal = P.return . pToJSVal++instance PFromJSVal PaymentComplete where+ pFromJSVal x = P.maybe (P.error "Unexpected PaymentComplete value") P.id (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_PaymentCompleteFail, PaymentCompleteFail), (js_PaymentCompleteSuccess, PaymentCompleteSuccess), (js_PaymentCompleteUnknown, PaymentCompleteUnknown)]++instance FromJSVal PaymentComplete where+ fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_PaymentCompleteFail, PaymentCompleteFail), (js_PaymentCompleteSuccess, PaymentCompleteSuccess), (js_PaymentCompleteUnknown, PaymentCompleteUnknown)]+ fromJSValUnchecked = P.return . pFromJSVal++js_PaymentCompleteFail :: JSString+js_PaymentCompleteFail = "fail"+js_PaymentCompleteSuccess :: JSString+js_PaymentCompleteSuccess = "success"+js_PaymentCompleteUnknown :: JSString+js_PaymentCompleteUnknown = "unknown"++-- | <https://developer.mozilla.org/en-US/docs/Web/API PaymentShippingType> (payment-request)+data PaymentShippingType = PaymentShippingTypeShipping+ | PaymentShippingTypeDelivery+ | PaymentShippingTypePickup+ deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal PaymentShippingType where+ pToJSVal x = pToJSVal (case x of+ PaymentShippingTypeShipping -> js_PaymentShippingTypeShipping+ PaymentShippingTypeDelivery -> js_PaymentShippingTypeDelivery+ PaymentShippingTypePickup -> js_PaymentShippingTypePickup+ )++instance ToJSVal PaymentShippingType where+ toJSVal = P.return . pToJSVal++instance PFromJSVal PaymentShippingType where+ pFromJSVal x = P.maybe (P.error "Unexpected PaymentShippingType value") P.id (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_PaymentShippingTypeShipping, PaymentShippingTypeShipping), (js_PaymentShippingTypeDelivery, PaymentShippingTypeDelivery), (js_PaymentShippingTypePickup, PaymentShippingTypePickup)]++instance FromJSVal PaymentShippingType where+ fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_PaymentShippingTypeShipping, PaymentShippingTypeShipping), (js_PaymentShippingTypeDelivery, PaymentShippingTypeDelivery), (js_PaymentShippingTypePickup, PaymentShippingTypePickup)]+ fromJSValUnchecked = P.return . pFromJSVal++js_PaymentShippingTypeShipping :: JSString+js_PaymentShippingTypeShipping = "shipping"+js_PaymentShippingTypeDelivery :: JSString+js_PaymentShippingTypeDelivery = "delivery"+js_PaymentShippingTypePickup :: JSString+js_PaymentShippingTypePickup = "pickup"++-- | <https://developer.mozilla.org/en-US/docs/Web/API PermissionState> (permissions)+data PermissionState = PermissionStateGranted+ | PermissionStateDenied+ | PermissionStatePrompt+ deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal PermissionState where+ pToJSVal x = pToJSVal (case x of+ PermissionStateGranted -> js_PermissionStateGranted+ PermissionStateDenied -> js_PermissionStateDenied+ PermissionStatePrompt -> js_PermissionStatePrompt+ )++instance ToJSVal PermissionState where+ toJSVal = P.return . pToJSVal++instance PFromJSVal PermissionState where+ pFromJSVal x = P.maybe (P.error "Unexpected PermissionState value") P.id (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_PermissionStateGranted, PermissionStateGranted), (js_PermissionStateDenied, PermissionStateDenied), (js_PermissionStatePrompt, PermissionStatePrompt)]++instance FromJSVal PermissionState where+ fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_PermissionStateGranted, PermissionStateGranted), (js_PermissionStateDenied, PermissionStateDenied), (js_PermissionStatePrompt, PermissionStatePrompt)]+ fromJSValUnchecked = P.return . pFromJSVal++js_PermissionStateGranted :: JSString+js_PermissionStateGranted = "granted"+js_PermissionStateDenied :: JSString+js_PermissionStateDenied = "denied"+js_PermissionStatePrompt :: JSString+js_PermissionStatePrompt = "prompt"++-- | <https://developer.mozilla.org/en-US/docs/Web/API PlaybackDirection> (web-animations-1)+data PlaybackDirection = PlaybackDirectionNormal+ | PlaybackDirectionReverse+ | PlaybackDirectionAlternate+ | PlaybackDirectionAlternateReverse+ deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal PlaybackDirection where+ pToJSVal x = pToJSVal (case x of+ PlaybackDirectionNormal -> js_PlaybackDirectionNormal+ PlaybackDirectionReverse -> js_PlaybackDirectionReverse+ PlaybackDirectionAlternate -> js_PlaybackDirectionAlternate+ PlaybackDirectionAlternateReverse -> js_PlaybackDirectionAlternateReverse+ )++instance ToJSVal PlaybackDirection where+ toJSVal = P.return . pToJSVal++instance PFromJSVal PlaybackDirection where+ pFromJSVal x = P.maybe (P.error "Unexpected PlaybackDirection value") P.id (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_PlaybackDirectionNormal, PlaybackDirectionNormal), (js_PlaybackDirectionReverse, PlaybackDirectionReverse), (js_PlaybackDirectionAlternate, PlaybackDirectionAlternate), (js_PlaybackDirectionAlternateReverse, PlaybackDirectionAlternateReverse)]++instance FromJSVal PlaybackDirection where+ fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_PlaybackDirectionNormal, PlaybackDirectionNormal), (js_PlaybackDirectionReverse, PlaybackDirectionReverse), (js_PlaybackDirectionAlternate, PlaybackDirectionAlternate), (js_PlaybackDirectionAlternateReverse, PlaybackDirectionAlternateReverse)]+ fromJSValUnchecked = P.return . pFromJSVal++js_PlaybackDirectionNormal :: JSString+js_PlaybackDirectionNormal = "normal"+js_PlaybackDirectionReverse :: JSString+js_PlaybackDirectionReverse = "reverse"+js_PlaybackDirectionAlternate :: JSString+js_PlaybackDirectionAlternate = "alternate"+js_PlaybackDirectionAlternateReverse :: JSString+js_PlaybackDirectionAlternateReverse = "alternate-reverse"++-- | <https://developer.mozilla.org/en-US/docs/Web/API PositionAlignSetting> (webvtt1)+data PositionAlignSetting = PositionAlignSettingLineLeft+ | PositionAlignSettingCenter+ | PositionAlignSettingLineRight+ | PositionAlignSettingAuto+ deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal PositionAlignSetting where+ pToJSVal x = pToJSVal (case x of+ PositionAlignSettingLineLeft -> js_PositionAlignSettingLineLeft+ PositionAlignSettingCenter -> js_PositionAlignSettingCenter+ PositionAlignSettingLineRight -> js_PositionAlignSettingLineRight+ PositionAlignSettingAuto -> js_PositionAlignSettingAuto+ )++instance ToJSVal PositionAlignSetting where+ toJSVal = P.return . pToJSVal++instance PFromJSVal PositionAlignSetting where+ pFromJSVal x = P.maybe (P.error "Unexpected PositionAlignSetting value") P.id (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_PositionAlignSettingLineLeft, PositionAlignSettingLineLeft), (js_PositionAlignSettingCenter, PositionAlignSettingCenter), (js_PositionAlignSettingLineRight, PositionAlignSettingLineRight), (js_PositionAlignSettingAuto, PositionAlignSettingAuto)]++instance FromJSVal PositionAlignSetting where+ fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_PositionAlignSettingLineLeft, PositionAlignSettingLineLeft), (js_PositionAlignSettingCenter, PositionAlignSettingCenter), (js_PositionAlignSettingLineRight, PositionAlignSettingLineRight), (js_PositionAlignSettingAuto, PositionAlignSettingAuto)]+ fromJSValUnchecked = P.return . pFromJSVal++js_PositionAlignSettingLineLeft :: JSString+js_PositionAlignSettingLineLeft = "line-left"+js_PositionAlignSettingCenter :: JSString+js_PositionAlignSettingCenter = "center"+js_PositionAlignSettingLineRight :: JSString+js_PositionAlignSettingLineRight = "line-right"+js_PositionAlignSettingAuto :: JSString+js_PositionAlignSettingAuto = "auto"++-- | <https://developer.mozilla.org/en-US/docs/Web/API PredefinedColorSpace> (html)+data PredefinedColorSpace = PredefinedColorSpaceSrgb+ | PredefinedColorSpaceSrgbLinear+ | PredefinedColorSpaceDisplayP3+ | PredefinedColorSpaceDisplayP3Linear+ deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal PredefinedColorSpace where+ pToJSVal x = pToJSVal (case x of+ PredefinedColorSpaceSrgb -> js_PredefinedColorSpaceSrgb+ PredefinedColorSpaceSrgbLinear -> js_PredefinedColorSpaceSrgbLinear+ PredefinedColorSpaceDisplayP3 -> js_PredefinedColorSpaceDisplayP3+ PredefinedColorSpaceDisplayP3Linear -> js_PredefinedColorSpaceDisplayP3Linear+ )++instance ToJSVal PredefinedColorSpace where+ toJSVal = P.return . pToJSVal++instance PFromJSVal PredefinedColorSpace where+ pFromJSVal x = P.maybe (P.error "Unexpected PredefinedColorSpace value") P.id (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_PredefinedColorSpaceSrgb, PredefinedColorSpaceSrgb), (js_PredefinedColorSpaceSrgbLinear, PredefinedColorSpaceSrgbLinear), (js_PredefinedColorSpaceDisplayP3, PredefinedColorSpaceDisplayP3), (js_PredefinedColorSpaceDisplayP3Linear, PredefinedColorSpaceDisplayP3Linear)]++instance FromJSVal PredefinedColorSpace where+ fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_PredefinedColorSpaceSrgb, PredefinedColorSpaceSrgb), (js_PredefinedColorSpaceSrgbLinear, PredefinedColorSpaceSrgbLinear), (js_PredefinedColorSpaceDisplayP3, PredefinedColorSpaceDisplayP3), (js_PredefinedColorSpaceDisplayP3Linear, PredefinedColorSpaceDisplayP3Linear)]+ fromJSValUnchecked = P.return . pFromJSVal++js_PredefinedColorSpaceSrgb :: JSString+js_PredefinedColorSpaceSrgb = "srgb"+js_PredefinedColorSpaceSrgbLinear :: JSString+js_PredefinedColorSpaceSrgbLinear = "srgb-linear"+js_PredefinedColorSpaceDisplayP3 :: JSString+js_PredefinedColorSpaceDisplayP3 = "display-p3"+js_PredefinedColorSpaceDisplayP3Linear :: JSString+js_PredefinedColorSpaceDisplayP3Linear = "display-p3-linear"++-- | <https://developer.mozilla.org/en-US/docs/Web/API PresentationStyle> (clipboard-apis)+data PresentationStyle = PresentationStyleUnspecified+ | PresentationStyleInline+ | PresentationStyleAttachment+ deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal PresentationStyle where+ pToJSVal x = pToJSVal (case x of+ PresentationStyleUnspecified -> js_PresentationStyleUnspecified+ PresentationStyleInline -> js_PresentationStyleInline+ PresentationStyleAttachment -> js_PresentationStyleAttachment+ )++instance ToJSVal PresentationStyle where+ toJSVal = P.return . pToJSVal++instance PFromJSVal PresentationStyle where+ pFromJSVal x = P.maybe (P.error "Unexpected PresentationStyle value") P.id (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_PresentationStyleUnspecified, PresentationStyleUnspecified), (js_PresentationStyleInline, PresentationStyleInline), (js_PresentationStyleAttachment, PresentationStyleAttachment)]++instance FromJSVal PresentationStyle where+ fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_PresentationStyleUnspecified, PresentationStyleUnspecified), (js_PresentationStyleInline, PresentationStyleInline), (js_PresentationStyleAttachment, PresentationStyleAttachment)]+ fromJSValUnchecked = P.return . pFromJSVal++js_PresentationStyleUnspecified :: JSString+js_PresentationStyleUnspecified = "unspecified"+js_PresentationStyleInline :: JSString+js_PresentationStyleInline = "inline"+js_PresentationStyleAttachment :: JSString+js_PresentationStyleAttachment = "attachment"++-- | <https://developer.mozilla.org/en-US/docs/Web/API PushEncryptionKeyName> (push-api)+data PushEncryptionKeyName = PushEncryptionKeyNameP256dh+ | PushEncryptionKeyNameAuth+ deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal PushEncryptionKeyName where+ pToJSVal x = pToJSVal (case x of+ PushEncryptionKeyNameP256dh -> js_PushEncryptionKeyNameP256dh+ PushEncryptionKeyNameAuth -> js_PushEncryptionKeyNameAuth+ )++instance ToJSVal PushEncryptionKeyName where+ toJSVal = P.return . pToJSVal++instance PFromJSVal PushEncryptionKeyName where+ pFromJSVal x = P.maybe (P.error "Unexpected PushEncryptionKeyName value") P.id (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_PushEncryptionKeyNameP256dh, PushEncryptionKeyNameP256dh), (js_PushEncryptionKeyNameAuth, PushEncryptionKeyNameAuth)]++instance FromJSVal PushEncryptionKeyName where+ fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_PushEncryptionKeyNameP256dh, PushEncryptionKeyNameP256dh), (js_PushEncryptionKeyNameAuth, PushEncryptionKeyNameAuth)]+ fromJSValUnchecked = P.return . pFromJSVal++js_PushEncryptionKeyNameP256dh :: JSString+js_PushEncryptionKeyNameP256dh = "p256dh"+js_PushEncryptionKeyNameAuth :: JSString+js_PushEncryptionKeyNameAuth = "auth"++-- | <https://developer.mozilla.org/en-US/docs/Web/API RTCBundlePolicy> (webrtc)+data RTCBundlePolicy = RTCBundlePolicyBalanced+ | RTCBundlePolicyMaxCompat+ | RTCBundlePolicyMaxBundle+ deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal RTCBundlePolicy where+ pToJSVal x = pToJSVal (case x of+ RTCBundlePolicyBalanced -> js_RTCBundlePolicyBalanced+ RTCBundlePolicyMaxCompat -> js_RTCBundlePolicyMaxCompat+ RTCBundlePolicyMaxBundle -> js_RTCBundlePolicyMaxBundle+ )++instance ToJSVal RTCBundlePolicy where+ toJSVal = P.return . pToJSVal++instance PFromJSVal RTCBundlePolicy where+ pFromJSVal x = P.maybe (P.error "Unexpected RTCBundlePolicy value") P.id (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_RTCBundlePolicyBalanced, RTCBundlePolicyBalanced), (js_RTCBundlePolicyMaxCompat, RTCBundlePolicyMaxCompat), (js_RTCBundlePolicyMaxBundle, RTCBundlePolicyMaxBundle)]++instance FromJSVal RTCBundlePolicy where+ fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_RTCBundlePolicyBalanced, RTCBundlePolicyBalanced), (js_RTCBundlePolicyMaxCompat, RTCBundlePolicyMaxCompat), (js_RTCBundlePolicyMaxBundle, RTCBundlePolicyMaxBundle)]+ fromJSValUnchecked = P.return . pFromJSVal++js_RTCBundlePolicyBalanced :: JSString+js_RTCBundlePolicyBalanced = "balanced"+js_RTCBundlePolicyMaxCompat :: JSString+js_RTCBundlePolicyMaxCompat = "max-compat"+js_RTCBundlePolicyMaxBundle :: JSString+js_RTCBundlePolicyMaxBundle = "max-bundle"++-- | <https://developer.mozilla.org/en-US/docs/Web/API RTCDataChannelState> (webrtc)+data RTCDataChannelState = RTCDataChannelStateConnecting+ | RTCDataChannelStateOpen+ | RTCDataChannelStateClosing+ | RTCDataChannelStateClosed+ deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal RTCDataChannelState where+ pToJSVal x = pToJSVal (case x of+ RTCDataChannelStateConnecting -> js_RTCDataChannelStateConnecting+ RTCDataChannelStateOpen -> js_RTCDataChannelStateOpen+ RTCDataChannelStateClosing -> js_RTCDataChannelStateClosing+ RTCDataChannelStateClosed -> js_RTCDataChannelStateClosed+ )++instance ToJSVal RTCDataChannelState where+ toJSVal = P.return . pToJSVal++instance PFromJSVal RTCDataChannelState where+ pFromJSVal x = P.maybe (P.error "Unexpected RTCDataChannelState value") P.id (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_RTCDataChannelStateConnecting, RTCDataChannelStateConnecting), (js_RTCDataChannelStateOpen, RTCDataChannelStateOpen), (js_RTCDataChannelStateClosing, RTCDataChannelStateClosing), (js_RTCDataChannelStateClosed, RTCDataChannelStateClosed)]++instance FromJSVal RTCDataChannelState where+ fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_RTCDataChannelStateConnecting, RTCDataChannelStateConnecting), (js_RTCDataChannelStateOpen, RTCDataChannelStateOpen), (js_RTCDataChannelStateClosing, RTCDataChannelStateClosing), (js_RTCDataChannelStateClosed, RTCDataChannelStateClosed)]+ fromJSValUnchecked = P.return . pFromJSVal++js_RTCDataChannelStateConnecting :: JSString+js_RTCDataChannelStateConnecting = "connecting"+js_RTCDataChannelStateOpen :: JSString+js_RTCDataChannelStateOpen = "open"+js_RTCDataChannelStateClosing :: JSString+js_RTCDataChannelStateClosing = "closing"+js_RTCDataChannelStateClosed :: JSString+js_RTCDataChannelStateClosed = "closed"++-- | <https://developer.mozilla.org/en-US/docs/Web/API RTCDegradationPreference> (mst-content-hint)+data RTCDegradationPreference = RTCDegradationPreferenceMaintainFramerate+ | RTCDegradationPreferenceMaintainResolution+ | RTCDegradationPreferenceBalanced+ | RTCDegradationPreferenceMaintainFramerateAndResolution+ deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal RTCDegradationPreference where+ pToJSVal x = pToJSVal (case x of+ RTCDegradationPreferenceMaintainFramerate -> js_RTCDegradationPreferenceMaintainFramerate+ RTCDegradationPreferenceMaintainResolution -> js_RTCDegradationPreferenceMaintainResolution+ RTCDegradationPreferenceBalanced -> js_RTCDegradationPreferenceBalanced+ RTCDegradationPreferenceMaintainFramerateAndResolution -> js_RTCDegradationPreferenceMaintainFramerateAndResolution+ )++instance ToJSVal RTCDegradationPreference where+ toJSVal = P.return . pToJSVal++instance PFromJSVal RTCDegradationPreference where+ pFromJSVal x = P.maybe (P.error "Unexpected RTCDegradationPreference value") P.id (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_RTCDegradationPreferenceMaintainFramerate, RTCDegradationPreferenceMaintainFramerate), (js_RTCDegradationPreferenceMaintainResolution, RTCDegradationPreferenceMaintainResolution), (js_RTCDegradationPreferenceBalanced, RTCDegradationPreferenceBalanced), (js_RTCDegradationPreferenceMaintainFramerateAndResolution, RTCDegradationPreferenceMaintainFramerateAndResolution)]++instance FromJSVal RTCDegradationPreference where+ fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_RTCDegradationPreferenceMaintainFramerate, RTCDegradationPreferenceMaintainFramerate), (js_RTCDegradationPreferenceMaintainResolution, RTCDegradationPreferenceMaintainResolution), (js_RTCDegradationPreferenceBalanced, RTCDegradationPreferenceBalanced), (js_RTCDegradationPreferenceMaintainFramerateAndResolution, RTCDegradationPreferenceMaintainFramerateAndResolution)]+ fromJSValUnchecked = P.return . pFromJSVal++js_RTCDegradationPreferenceMaintainFramerate :: JSString+js_RTCDegradationPreferenceMaintainFramerate = "maintain-framerate"+js_RTCDegradationPreferenceMaintainResolution :: JSString+js_RTCDegradationPreferenceMaintainResolution = "maintain-resolution"+js_RTCDegradationPreferenceBalanced :: JSString+js_RTCDegradationPreferenceBalanced = "balanced"+js_RTCDegradationPreferenceMaintainFramerateAndResolution :: JSString+js_RTCDegradationPreferenceMaintainFramerateAndResolution = "maintain-framerate-and-resolution"++-- | <https://developer.mozilla.org/en-US/docs/Web/API RTCDtlsTransportState> (webrtc)+data RTCDtlsTransportState = RTCDtlsTransportStateNew+ | RTCDtlsTransportStateConnecting+ | RTCDtlsTransportStateConnected+ | RTCDtlsTransportStateClosed+ | RTCDtlsTransportStateFailed+ deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal RTCDtlsTransportState where+ pToJSVal x = pToJSVal (case x of+ RTCDtlsTransportStateNew -> js_RTCDtlsTransportStateNew+ RTCDtlsTransportStateConnecting -> js_RTCDtlsTransportStateConnecting+ RTCDtlsTransportStateConnected -> js_RTCDtlsTransportStateConnected+ RTCDtlsTransportStateClosed -> js_RTCDtlsTransportStateClosed+ RTCDtlsTransportStateFailed -> js_RTCDtlsTransportStateFailed+ )++instance ToJSVal RTCDtlsTransportState where+ toJSVal = P.return . pToJSVal++instance PFromJSVal RTCDtlsTransportState where+ pFromJSVal x = P.maybe (P.error "Unexpected RTCDtlsTransportState value") P.id (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_RTCDtlsTransportStateNew, RTCDtlsTransportStateNew), (js_RTCDtlsTransportStateConnecting, RTCDtlsTransportStateConnecting), (js_RTCDtlsTransportStateConnected, RTCDtlsTransportStateConnected), (js_RTCDtlsTransportStateClosed, RTCDtlsTransportStateClosed), (js_RTCDtlsTransportStateFailed, RTCDtlsTransportStateFailed)]++instance FromJSVal RTCDtlsTransportState where+ fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_RTCDtlsTransportStateNew, RTCDtlsTransportStateNew), (js_RTCDtlsTransportStateConnecting, RTCDtlsTransportStateConnecting), (js_RTCDtlsTransportStateConnected, RTCDtlsTransportStateConnected), (js_RTCDtlsTransportStateClosed, RTCDtlsTransportStateClosed), (js_RTCDtlsTransportStateFailed, RTCDtlsTransportStateFailed)]+ fromJSValUnchecked = P.return . pFromJSVal++js_RTCDtlsTransportStateNew :: JSString+js_RTCDtlsTransportStateNew = "new"+js_RTCDtlsTransportStateConnecting :: JSString+js_RTCDtlsTransportStateConnecting = "connecting"+js_RTCDtlsTransportStateConnected :: JSString+js_RTCDtlsTransportStateConnected = "connected"+js_RTCDtlsTransportStateClosed :: JSString+js_RTCDtlsTransportStateClosed = "closed"+js_RTCDtlsTransportStateFailed :: JSString+js_RTCDtlsTransportStateFailed = "failed"++-- | <https://developer.mozilla.org/en-US/docs/Web/API RTCErrorDetailType> (webrtc)+data RTCErrorDetailType = RTCErrorDetailTypeDataChannelFailure+ | RTCErrorDetailTypeDtlsFailure+ | RTCErrorDetailTypeFingerprintFailure+ | RTCErrorDetailTypeSctpFailure+ | RTCErrorDetailTypeSdpSyntaxError+ | RTCErrorDetailTypeHardwareEncoderNotAvailable+ | RTCErrorDetailTypeHardwareEncoderError+ deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal RTCErrorDetailType where+ pToJSVal x = pToJSVal (case x of+ RTCErrorDetailTypeDataChannelFailure -> js_RTCErrorDetailTypeDataChannelFailure+ RTCErrorDetailTypeDtlsFailure -> js_RTCErrorDetailTypeDtlsFailure+ RTCErrorDetailTypeFingerprintFailure -> js_RTCErrorDetailTypeFingerprintFailure+ RTCErrorDetailTypeSctpFailure -> js_RTCErrorDetailTypeSctpFailure+ RTCErrorDetailTypeSdpSyntaxError -> js_RTCErrorDetailTypeSdpSyntaxError+ RTCErrorDetailTypeHardwareEncoderNotAvailable -> js_RTCErrorDetailTypeHardwareEncoderNotAvailable+ RTCErrorDetailTypeHardwareEncoderError -> js_RTCErrorDetailTypeHardwareEncoderError+ )++instance ToJSVal RTCErrorDetailType where+ toJSVal = P.return . pToJSVal++instance PFromJSVal RTCErrorDetailType where+ pFromJSVal x = P.maybe (P.error "Unexpected RTCErrorDetailType value") P.id (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_RTCErrorDetailTypeDataChannelFailure, RTCErrorDetailTypeDataChannelFailure), (js_RTCErrorDetailTypeDtlsFailure, RTCErrorDetailTypeDtlsFailure), (js_RTCErrorDetailTypeFingerprintFailure, RTCErrorDetailTypeFingerprintFailure), (js_RTCErrorDetailTypeSctpFailure, RTCErrorDetailTypeSctpFailure), (js_RTCErrorDetailTypeSdpSyntaxError, RTCErrorDetailTypeSdpSyntaxError), (js_RTCErrorDetailTypeHardwareEncoderNotAvailable, RTCErrorDetailTypeHardwareEncoderNotAvailable), (js_RTCErrorDetailTypeHardwareEncoderError, RTCErrorDetailTypeHardwareEncoderError)]++instance FromJSVal RTCErrorDetailType where+ fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_RTCErrorDetailTypeDataChannelFailure, RTCErrorDetailTypeDataChannelFailure), (js_RTCErrorDetailTypeDtlsFailure, RTCErrorDetailTypeDtlsFailure), (js_RTCErrorDetailTypeFingerprintFailure, RTCErrorDetailTypeFingerprintFailure), (js_RTCErrorDetailTypeSctpFailure, RTCErrorDetailTypeSctpFailure), (js_RTCErrorDetailTypeSdpSyntaxError, RTCErrorDetailTypeSdpSyntaxError), (js_RTCErrorDetailTypeHardwareEncoderNotAvailable, RTCErrorDetailTypeHardwareEncoderNotAvailable), (js_RTCErrorDetailTypeHardwareEncoderError, RTCErrorDetailTypeHardwareEncoderError)]+ fromJSValUnchecked = P.return . pFromJSVal++js_RTCErrorDetailTypeDataChannelFailure :: JSString+js_RTCErrorDetailTypeDataChannelFailure = "data-channel-failure"+js_RTCErrorDetailTypeDtlsFailure :: JSString+js_RTCErrorDetailTypeDtlsFailure = "dtls-failure"+js_RTCErrorDetailTypeFingerprintFailure :: JSString+js_RTCErrorDetailTypeFingerprintFailure = "fingerprint-failure"+js_RTCErrorDetailTypeSctpFailure :: JSString+js_RTCErrorDetailTypeSctpFailure = "sctp-failure"+js_RTCErrorDetailTypeSdpSyntaxError :: JSString+js_RTCErrorDetailTypeSdpSyntaxError = "sdp-syntax-error"+js_RTCErrorDetailTypeHardwareEncoderNotAvailable :: JSString+js_RTCErrorDetailTypeHardwareEncoderNotAvailable = "hardware-encoder-not-available"+js_RTCErrorDetailTypeHardwareEncoderError :: JSString+js_RTCErrorDetailTypeHardwareEncoderError = "hardware-encoder-error"++-- | <https://developer.mozilla.org/en-US/docs/Web/API RTCIceCandidateType> (webrtc)+data RTCIceCandidateType = RTCIceCandidateTypeHost+ | RTCIceCandidateTypeSrflx+ | RTCIceCandidateTypePrflx+ | RTCIceCandidateTypeRelay+ deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal RTCIceCandidateType where+ pToJSVal x = pToJSVal (case x of+ RTCIceCandidateTypeHost -> js_RTCIceCandidateTypeHost+ RTCIceCandidateTypeSrflx -> js_RTCIceCandidateTypeSrflx+ RTCIceCandidateTypePrflx -> js_RTCIceCandidateTypePrflx+ RTCIceCandidateTypeRelay -> js_RTCIceCandidateTypeRelay+ )++instance ToJSVal RTCIceCandidateType where+ toJSVal = P.return . pToJSVal++instance PFromJSVal RTCIceCandidateType where+ pFromJSVal x = P.maybe (P.error "Unexpected RTCIceCandidateType value") P.id (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_RTCIceCandidateTypeHost, RTCIceCandidateTypeHost), (js_RTCIceCandidateTypeSrflx, RTCIceCandidateTypeSrflx), (js_RTCIceCandidateTypePrflx, RTCIceCandidateTypePrflx), (js_RTCIceCandidateTypeRelay, RTCIceCandidateTypeRelay)]++instance FromJSVal RTCIceCandidateType where+ fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_RTCIceCandidateTypeHost, RTCIceCandidateTypeHost), (js_RTCIceCandidateTypeSrflx, RTCIceCandidateTypeSrflx), (js_RTCIceCandidateTypePrflx, RTCIceCandidateTypePrflx), (js_RTCIceCandidateTypeRelay, RTCIceCandidateTypeRelay)]+ fromJSValUnchecked = P.return . pFromJSVal++js_RTCIceCandidateTypeHost :: JSString+js_RTCIceCandidateTypeHost = "host"+js_RTCIceCandidateTypeSrflx :: JSString+js_RTCIceCandidateTypeSrflx = "srflx"+js_RTCIceCandidateTypePrflx :: JSString+js_RTCIceCandidateTypePrflx = "prflx"+js_RTCIceCandidateTypeRelay :: JSString+js_RTCIceCandidateTypeRelay = "relay"++-- | <https://developer.mozilla.org/en-US/docs/Web/API RTCIceComponent> (webrtc)+data RTCIceComponent = RTCIceComponentRtp+ | RTCIceComponentRtcp+ deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal RTCIceComponent where+ pToJSVal x = pToJSVal (case x of+ RTCIceComponentRtp -> js_RTCIceComponentRtp+ RTCIceComponentRtcp -> js_RTCIceComponentRtcp+ )++instance ToJSVal RTCIceComponent where+ toJSVal = P.return . pToJSVal++instance PFromJSVal RTCIceComponent where+ pFromJSVal x = P.maybe (P.error "Unexpected RTCIceComponent value") P.id (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_RTCIceComponentRtp, RTCIceComponentRtp), (js_RTCIceComponentRtcp, RTCIceComponentRtcp)]++instance FromJSVal RTCIceComponent where+ fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_RTCIceComponentRtp, RTCIceComponentRtp), (js_RTCIceComponentRtcp, RTCIceComponentRtcp)]+ fromJSValUnchecked = P.return . pFromJSVal++js_RTCIceComponentRtp :: JSString+js_RTCIceComponentRtp = "rtp"+js_RTCIceComponentRtcp :: JSString+js_RTCIceComponentRtcp = "rtcp"++-- | <https://developer.mozilla.org/en-US/docs/Web/API RTCIceConnectionState> (webrtc)+data RTCIceConnectionState = RTCIceConnectionStateClosed+ | RTCIceConnectionStateFailed+ | RTCIceConnectionStateDisconnected+ | RTCIceConnectionStateNew+ | RTCIceConnectionStateChecking+ | RTCIceConnectionStateCompleted+ | RTCIceConnectionStateConnected+ deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal RTCIceConnectionState where+ pToJSVal x = pToJSVal (case x of+ RTCIceConnectionStateClosed -> js_RTCIceConnectionStateClosed+ RTCIceConnectionStateFailed -> js_RTCIceConnectionStateFailed+ RTCIceConnectionStateDisconnected -> js_RTCIceConnectionStateDisconnected+ RTCIceConnectionStateNew -> js_RTCIceConnectionStateNew+ RTCIceConnectionStateChecking -> js_RTCIceConnectionStateChecking+ RTCIceConnectionStateCompleted -> js_RTCIceConnectionStateCompleted+ RTCIceConnectionStateConnected -> js_RTCIceConnectionStateConnected+ )++instance ToJSVal RTCIceConnectionState where+ toJSVal = P.return . pToJSVal++instance PFromJSVal RTCIceConnectionState where+ pFromJSVal x = P.maybe (P.error "Unexpected RTCIceConnectionState value") P.id (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_RTCIceConnectionStateClosed, RTCIceConnectionStateClosed), (js_RTCIceConnectionStateFailed, RTCIceConnectionStateFailed), (js_RTCIceConnectionStateDisconnected, RTCIceConnectionStateDisconnected), (js_RTCIceConnectionStateNew, RTCIceConnectionStateNew), (js_RTCIceConnectionStateChecking, RTCIceConnectionStateChecking), (js_RTCIceConnectionStateCompleted, RTCIceConnectionStateCompleted), (js_RTCIceConnectionStateConnected, RTCIceConnectionStateConnected)]++instance FromJSVal RTCIceConnectionState where+ fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_RTCIceConnectionStateClosed, RTCIceConnectionStateClosed), (js_RTCIceConnectionStateFailed, RTCIceConnectionStateFailed), (js_RTCIceConnectionStateDisconnected, RTCIceConnectionStateDisconnected), (js_RTCIceConnectionStateNew, RTCIceConnectionStateNew), (js_RTCIceConnectionStateChecking, RTCIceConnectionStateChecking), (js_RTCIceConnectionStateCompleted, RTCIceConnectionStateCompleted), (js_RTCIceConnectionStateConnected, RTCIceConnectionStateConnected)]+ fromJSValUnchecked = P.return . pFromJSVal++js_RTCIceConnectionStateClosed :: JSString+js_RTCIceConnectionStateClosed = "closed"+js_RTCIceConnectionStateFailed :: JSString+js_RTCIceConnectionStateFailed = "failed"+js_RTCIceConnectionStateDisconnected :: JSString+js_RTCIceConnectionStateDisconnected = "disconnected"+js_RTCIceConnectionStateNew :: JSString+js_RTCIceConnectionStateNew = "new"+js_RTCIceConnectionStateChecking :: JSString+js_RTCIceConnectionStateChecking = "checking"+js_RTCIceConnectionStateCompleted :: JSString+js_RTCIceConnectionStateCompleted = "completed"+js_RTCIceConnectionStateConnected :: JSString+js_RTCIceConnectionStateConnected = "connected"++-- | <https://developer.mozilla.org/en-US/docs/Web/API RTCIceGathererState> (webrtc)+data RTCIceGathererState = RTCIceGathererStateNew+ | RTCIceGathererStateGathering+ | RTCIceGathererStateComplete+ deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal RTCIceGathererState where+ pToJSVal x = pToJSVal (case x of+ RTCIceGathererStateNew -> js_RTCIceGathererStateNew+ RTCIceGathererStateGathering -> js_RTCIceGathererStateGathering+ RTCIceGathererStateComplete -> js_RTCIceGathererStateComplete+ )++instance ToJSVal RTCIceGathererState where+ toJSVal = P.return . pToJSVal++instance PFromJSVal RTCIceGathererState where+ pFromJSVal x = P.maybe (P.error "Unexpected RTCIceGathererState value") P.id (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_RTCIceGathererStateNew, RTCIceGathererStateNew), (js_RTCIceGathererStateGathering, RTCIceGathererStateGathering), (js_RTCIceGathererStateComplete, RTCIceGathererStateComplete)]++instance FromJSVal RTCIceGathererState where+ fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_RTCIceGathererStateNew, RTCIceGathererStateNew), (js_RTCIceGathererStateGathering, RTCIceGathererStateGathering), (js_RTCIceGathererStateComplete, RTCIceGathererStateComplete)]+ fromJSValUnchecked = P.return . pFromJSVal++js_RTCIceGathererStateNew :: JSString+js_RTCIceGathererStateNew = "new"+js_RTCIceGathererStateGathering :: JSString+js_RTCIceGathererStateGathering = "gathering"+js_RTCIceGathererStateComplete :: JSString+js_RTCIceGathererStateComplete = "complete"++-- | <https://developer.mozilla.org/en-US/docs/Web/API RTCIceGatheringState> (webrtc)+data RTCIceGatheringState = RTCIceGatheringStateNew+ | RTCIceGatheringStateGathering+ | RTCIceGatheringStateComplete+ deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal RTCIceGatheringState where+ pToJSVal x = pToJSVal (case x of+ RTCIceGatheringStateNew -> js_RTCIceGatheringStateNew+ RTCIceGatheringStateGathering -> js_RTCIceGatheringStateGathering+ RTCIceGatheringStateComplete -> js_RTCIceGatheringStateComplete+ )++instance ToJSVal RTCIceGatheringState where+ toJSVal = P.return . pToJSVal++instance PFromJSVal RTCIceGatheringState where+ pFromJSVal x = P.maybe (P.error "Unexpected RTCIceGatheringState value") P.id (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_RTCIceGatheringStateNew, RTCIceGatheringStateNew), (js_RTCIceGatheringStateGathering, RTCIceGatheringStateGathering), (js_RTCIceGatheringStateComplete, RTCIceGatheringStateComplete)]++instance FromJSVal RTCIceGatheringState where+ fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_RTCIceGatheringStateNew, RTCIceGatheringStateNew), (js_RTCIceGatheringStateGathering, RTCIceGatheringStateGathering), (js_RTCIceGatheringStateComplete, RTCIceGatheringStateComplete)]+ fromJSValUnchecked = P.return . pFromJSVal++js_RTCIceGatheringStateNew :: JSString+js_RTCIceGatheringStateNew = "new"+js_RTCIceGatheringStateGathering :: JSString+js_RTCIceGatheringStateGathering = "gathering"+js_RTCIceGatheringStateComplete :: JSString+js_RTCIceGatheringStateComplete = "complete"++-- | <https://developer.mozilla.org/en-US/docs/Web/API RTCIceProtocol> (webrtc)+data RTCIceProtocol = RTCIceProtocolUdp+ | RTCIceProtocolTcp+ deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal RTCIceProtocol where+ pToJSVal x = pToJSVal (case x of+ RTCIceProtocolUdp -> js_RTCIceProtocolUdp+ RTCIceProtocolTcp -> js_RTCIceProtocolTcp+ )++instance ToJSVal RTCIceProtocol where+ toJSVal = P.return . pToJSVal++instance PFromJSVal RTCIceProtocol where+ pFromJSVal x = P.maybe (P.error "Unexpected RTCIceProtocol value") P.id (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_RTCIceProtocolUdp, RTCIceProtocolUdp), (js_RTCIceProtocolTcp, RTCIceProtocolTcp)]++instance FromJSVal RTCIceProtocol where+ fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_RTCIceProtocolUdp, RTCIceProtocolUdp), (js_RTCIceProtocolTcp, RTCIceProtocolTcp)]+ fromJSValUnchecked = P.return . pFromJSVal++js_RTCIceProtocolUdp :: JSString+js_RTCIceProtocolUdp = "udp"+js_RTCIceProtocolTcp :: JSString+js_RTCIceProtocolTcp = "tcp"++-- | <https://developer.mozilla.org/en-US/docs/Web/API RTCIceRole> (webrtc)+data RTCIceRole = RTCIceRoleUnknown+ | RTCIceRoleControlling+ | RTCIceRoleControlled+ deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal RTCIceRole where+ pToJSVal x = pToJSVal (case x of+ RTCIceRoleUnknown -> js_RTCIceRoleUnknown+ RTCIceRoleControlling -> js_RTCIceRoleControlling+ RTCIceRoleControlled -> js_RTCIceRoleControlled+ )++instance ToJSVal RTCIceRole where+ toJSVal = P.return . pToJSVal++instance PFromJSVal RTCIceRole where+ pFromJSVal x = P.maybe (P.error "Unexpected RTCIceRole value") P.id (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_RTCIceRoleUnknown, RTCIceRoleUnknown), (js_RTCIceRoleControlling, RTCIceRoleControlling), (js_RTCIceRoleControlled, RTCIceRoleControlled)]++instance FromJSVal RTCIceRole where+ fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_RTCIceRoleUnknown, RTCIceRoleUnknown), (js_RTCIceRoleControlling, RTCIceRoleControlling), (js_RTCIceRoleControlled, RTCIceRoleControlled)]+ fromJSValUnchecked = P.return . pFromJSVal++js_RTCIceRoleUnknown :: JSString+js_RTCIceRoleUnknown = "unknown"+js_RTCIceRoleControlling :: JSString+js_RTCIceRoleControlling = "controlling"+js_RTCIceRoleControlled :: JSString+js_RTCIceRoleControlled = "controlled"++-- | <https://developer.mozilla.org/en-US/docs/Web/API RTCIceServerTransportProtocol> (webrtc)+data RTCIceServerTransportProtocol = RTCIceServerTransportProtocolUdp+ | RTCIceServerTransportProtocolTcp+ | RTCIceServerTransportProtocolTls+ deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal RTCIceServerTransportProtocol where+ pToJSVal x = pToJSVal (case x of+ RTCIceServerTransportProtocolUdp -> js_RTCIceServerTransportProtocolUdp+ RTCIceServerTransportProtocolTcp -> js_RTCIceServerTransportProtocolTcp+ RTCIceServerTransportProtocolTls -> js_RTCIceServerTransportProtocolTls+ )++instance ToJSVal RTCIceServerTransportProtocol where+ toJSVal = P.return . pToJSVal++instance PFromJSVal RTCIceServerTransportProtocol where+ pFromJSVal x = P.maybe (P.error "Unexpected RTCIceServerTransportProtocol value") P.id (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_RTCIceServerTransportProtocolUdp, RTCIceServerTransportProtocolUdp), (js_RTCIceServerTransportProtocolTcp, RTCIceServerTransportProtocolTcp), (js_RTCIceServerTransportProtocolTls, RTCIceServerTransportProtocolTls)]++instance FromJSVal RTCIceServerTransportProtocol where+ fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_RTCIceServerTransportProtocolUdp, RTCIceServerTransportProtocolUdp), (js_RTCIceServerTransportProtocolTcp, RTCIceServerTransportProtocolTcp), (js_RTCIceServerTransportProtocolTls, RTCIceServerTransportProtocolTls)]+ fromJSValUnchecked = P.return . pFromJSVal++js_RTCIceServerTransportProtocolUdp :: JSString+js_RTCIceServerTransportProtocolUdp = "udp"+js_RTCIceServerTransportProtocolTcp :: JSString+js_RTCIceServerTransportProtocolTcp = "tcp"+js_RTCIceServerTransportProtocolTls :: JSString+js_RTCIceServerTransportProtocolTls = "tls"++-- | <https://developer.mozilla.org/en-US/docs/Web/API RTCIceTcpCandidateType> (webrtc)+data RTCIceTcpCandidateType = RTCIceTcpCandidateTypeActive+ | RTCIceTcpCandidateTypePassive+ | RTCIceTcpCandidateTypeSo+ deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal RTCIceTcpCandidateType where+ pToJSVal x = pToJSVal (case x of+ RTCIceTcpCandidateTypeActive -> js_RTCIceTcpCandidateTypeActive+ RTCIceTcpCandidateTypePassive -> js_RTCIceTcpCandidateTypePassive+ RTCIceTcpCandidateTypeSo -> js_RTCIceTcpCandidateTypeSo+ )++instance ToJSVal RTCIceTcpCandidateType where+ toJSVal = P.return . pToJSVal++instance PFromJSVal RTCIceTcpCandidateType where+ pFromJSVal x = P.maybe (P.error "Unexpected RTCIceTcpCandidateType value") P.id (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_RTCIceTcpCandidateTypeActive, RTCIceTcpCandidateTypeActive), (js_RTCIceTcpCandidateTypePassive, RTCIceTcpCandidateTypePassive), (js_RTCIceTcpCandidateTypeSo, RTCIceTcpCandidateTypeSo)]++instance FromJSVal RTCIceTcpCandidateType where+ fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_RTCIceTcpCandidateTypeActive, RTCIceTcpCandidateTypeActive), (js_RTCIceTcpCandidateTypePassive, RTCIceTcpCandidateTypePassive), (js_RTCIceTcpCandidateTypeSo, RTCIceTcpCandidateTypeSo)]+ fromJSValUnchecked = P.return . pFromJSVal++js_RTCIceTcpCandidateTypeActive :: JSString+js_RTCIceTcpCandidateTypeActive = "active"+js_RTCIceTcpCandidateTypePassive :: JSString+js_RTCIceTcpCandidateTypePassive = "passive"+js_RTCIceTcpCandidateTypeSo :: JSString+js_RTCIceTcpCandidateTypeSo = "so"++-- | <https://developer.mozilla.org/en-US/docs/Web/API RTCIceTransportPolicy> (webrtc)+data RTCIceTransportPolicy = RTCIceTransportPolicyRelay+ | RTCIceTransportPolicyAll+ deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal RTCIceTransportPolicy where+ pToJSVal x = pToJSVal (case x of+ RTCIceTransportPolicyRelay -> js_RTCIceTransportPolicyRelay+ RTCIceTransportPolicyAll -> js_RTCIceTransportPolicyAll+ )++instance ToJSVal RTCIceTransportPolicy where+ toJSVal = P.return . pToJSVal++instance PFromJSVal RTCIceTransportPolicy where+ pFromJSVal x = P.maybe (P.error "Unexpected RTCIceTransportPolicy value") P.id (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_RTCIceTransportPolicyRelay, RTCIceTransportPolicyRelay), (js_RTCIceTransportPolicyAll, RTCIceTransportPolicyAll)]++instance FromJSVal RTCIceTransportPolicy where+ fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_RTCIceTransportPolicyRelay, RTCIceTransportPolicyRelay), (js_RTCIceTransportPolicyAll, RTCIceTransportPolicyAll)]+ fromJSValUnchecked = P.return . pFromJSVal++js_RTCIceTransportPolicyRelay :: JSString+js_RTCIceTransportPolicyRelay = "relay"+js_RTCIceTransportPolicyAll :: JSString+js_RTCIceTransportPolicyAll = "all"++-- | <https://developer.mozilla.org/en-US/docs/Web/API RTCIceTransportState> (webrtc)+data RTCIceTransportState = RTCIceTransportStateClosed+ | RTCIceTransportStateFailed+ | RTCIceTransportStateDisconnected+ | RTCIceTransportStateNew+ | RTCIceTransportStateChecking+ | RTCIceTransportStateCompleted+ | RTCIceTransportStateConnected+ deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal RTCIceTransportState where+ pToJSVal x = pToJSVal (case x of+ RTCIceTransportStateClosed -> js_RTCIceTransportStateClosed+ RTCIceTransportStateFailed -> js_RTCIceTransportStateFailed+ RTCIceTransportStateDisconnected -> js_RTCIceTransportStateDisconnected+ RTCIceTransportStateNew -> js_RTCIceTransportStateNew+ RTCIceTransportStateChecking -> js_RTCIceTransportStateChecking+ RTCIceTransportStateCompleted -> js_RTCIceTransportStateCompleted+ RTCIceTransportStateConnected -> js_RTCIceTransportStateConnected+ )++instance ToJSVal RTCIceTransportState where+ toJSVal = P.return . pToJSVal++instance PFromJSVal RTCIceTransportState where+ pFromJSVal x = P.maybe (P.error "Unexpected RTCIceTransportState value") P.id (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_RTCIceTransportStateClosed, RTCIceTransportStateClosed), (js_RTCIceTransportStateFailed, RTCIceTransportStateFailed), (js_RTCIceTransportStateDisconnected, RTCIceTransportStateDisconnected), (js_RTCIceTransportStateNew, RTCIceTransportStateNew), (js_RTCIceTransportStateChecking, RTCIceTransportStateChecking), (js_RTCIceTransportStateCompleted, RTCIceTransportStateCompleted), (js_RTCIceTransportStateConnected, RTCIceTransportStateConnected)]++instance FromJSVal RTCIceTransportState where+ fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_RTCIceTransportStateClosed, RTCIceTransportStateClosed), (js_RTCIceTransportStateFailed, RTCIceTransportStateFailed), (js_RTCIceTransportStateDisconnected, RTCIceTransportStateDisconnected), (js_RTCIceTransportStateNew, RTCIceTransportStateNew), (js_RTCIceTransportStateChecking, RTCIceTransportStateChecking), (js_RTCIceTransportStateCompleted, RTCIceTransportStateCompleted), (js_RTCIceTransportStateConnected, RTCIceTransportStateConnected)]+ fromJSValUnchecked = P.return . pFromJSVal++js_RTCIceTransportStateClosed :: JSString+js_RTCIceTransportStateClosed = "closed"+js_RTCIceTransportStateFailed :: JSString+js_RTCIceTransportStateFailed = "failed"+js_RTCIceTransportStateDisconnected :: JSString+js_RTCIceTransportStateDisconnected = "disconnected"+js_RTCIceTransportStateNew :: JSString+js_RTCIceTransportStateNew = "new"+js_RTCIceTransportStateChecking :: JSString+js_RTCIceTransportStateChecking = "checking"+js_RTCIceTransportStateCompleted :: JSString+js_RTCIceTransportStateCompleted = "completed"+js_RTCIceTransportStateConnected :: JSString+js_RTCIceTransportStateConnected = "connected"++-- | <https://developer.mozilla.org/en-US/docs/Web/API RTCPeerConnectionState> (webrtc)+data RTCPeerConnectionState = RTCPeerConnectionStateClosed+ | RTCPeerConnectionStateFailed+ | RTCPeerConnectionStateDisconnected+ | RTCPeerConnectionStateNew+ | RTCPeerConnectionStateConnecting+ | RTCPeerConnectionStateConnected+ deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal RTCPeerConnectionState where+ pToJSVal x = pToJSVal (case x of+ RTCPeerConnectionStateClosed -> js_RTCPeerConnectionStateClosed+ RTCPeerConnectionStateFailed -> js_RTCPeerConnectionStateFailed+ RTCPeerConnectionStateDisconnected -> js_RTCPeerConnectionStateDisconnected+ RTCPeerConnectionStateNew -> js_RTCPeerConnectionStateNew+ RTCPeerConnectionStateConnecting -> js_RTCPeerConnectionStateConnecting+ RTCPeerConnectionStateConnected -> js_RTCPeerConnectionStateConnected+ )++instance ToJSVal RTCPeerConnectionState where+ toJSVal = P.return . pToJSVal++instance PFromJSVal RTCPeerConnectionState where+ pFromJSVal x = P.maybe (P.error "Unexpected RTCPeerConnectionState value") P.id (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_RTCPeerConnectionStateClosed, RTCPeerConnectionStateClosed), (js_RTCPeerConnectionStateFailed, RTCPeerConnectionStateFailed), (js_RTCPeerConnectionStateDisconnected, RTCPeerConnectionStateDisconnected), (js_RTCPeerConnectionStateNew, RTCPeerConnectionStateNew), (js_RTCPeerConnectionStateConnecting, RTCPeerConnectionStateConnecting), (js_RTCPeerConnectionStateConnected, RTCPeerConnectionStateConnected)]++instance FromJSVal RTCPeerConnectionState where+ fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_RTCPeerConnectionStateClosed, RTCPeerConnectionStateClosed), (js_RTCPeerConnectionStateFailed, RTCPeerConnectionStateFailed), (js_RTCPeerConnectionStateDisconnected, RTCPeerConnectionStateDisconnected), (js_RTCPeerConnectionStateNew, RTCPeerConnectionStateNew), (js_RTCPeerConnectionStateConnecting, RTCPeerConnectionStateConnecting), (js_RTCPeerConnectionStateConnected, RTCPeerConnectionStateConnected)]+ fromJSValUnchecked = P.return . pFromJSVal++js_RTCPeerConnectionStateClosed :: JSString+js_RTCPeerConnectionStateClosed = "closed"+js_RTCPeerConnectionStateFailed :: JSString+js_RTCPeerConnectionStateFailed = "failed"+js_RTCPeerConnectionStateDisconnected :: JSString+js_RTCPeerConnectionStateDisconnected = "disconnected"+js_RTCPeerConnectionStateNew :: JSString+js_RTCPeerConnectionStateNew = "new"+js_RTCPeerConnectionStateConnecting :: JSString+js_RTCPeerConnectionStateConnecting = "connecting"+js_RTCPeerConnectionStateConnected :: JSString+js_RTCPeerConnectionStateConnected = "connected"++-- | <https://developer.mozilla.org/en-US/docs/Web/API RTCPriorityType> (webrtc-priority)+data RTCPriorityType = RTCPriorityTypeVeryLow+ | RTCPriorityTypeLow+ | RTCPriorityTypeMedium+ | RTCPriorityTypeHigh+ deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal RTCPriorityType where+ pToJSVal x = pToJSVal (case x of+ RTCPriorityTypeVeryLow -> js_RTCPriorityTypeVeryLow+ RTCPriorityTypeLow -> js_RTCPriorityTypeLow+ RTCPriorityTypeMedium -> js_RTCPriorityTypeMedium+ RTCPriorityTypeHigh -> js_RTCPriorityTypeHigh+ )++instance ToJSVal RTCPriorityType where+ toJSVal = P.return . pToJSVal++instance PFromJSVal RTCPriorityType where+ pFromJSVal x = P.maybe (P.error "Unexpected RTCPriorityType value") P.id (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_RTCPriorityTypeVeryLow, RTCPriorityTypeVeryLow), (js_RTCPriorityTypeLow, RTCPriorityTypeLow), (js_RTCPriorityTypeMedium, RTCPriorityTypeMedium), (js_RTCPriorityTypeHigh, RTCPriorityTypeHigh)]++instance FromJSVal RTCPriorityType where+ fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_RTCPriorityTypeVeryLow, RTCPriorityTypeVeryLow), (js_RTCPriorityTypeLow, RTCPriorityTypeLow), (js_RTCPriorityTypeMedium, RTCPriorityTypeMedium), (js_RTCPriorityTypeHigh, RTCPriorityTypeHigh)]+ fromJSValUnchecked = P.return . pFromJSVal++js_RTCPriorityTypeVeryLow :: JSString+js_RTCPriorityTypeVeryLow = "very-low"+js_RTCPriorityTypeLow :: JSString+js_RTCPriorityTypeLow = "low"+js_RTCPriorityTypeMedium :: JSString+js_RTCPriorityTypeMedium = "medium"+js_RTCPriorityTypeHigh :: JSString+js_RTCPriorityTypeHigh = "high"++-- | <https://developer.mozilla.org/en-US/docs/Web/API RTCRtcpMuxPolicy> (webrtc)+data RTCRtcpMuxPolicy = RTCRtcpMuxPolicyRequire+ deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal RTCRtcpMuxPolicy where+ pToJSVal x = pToJSVal (case x of+ RTCRtcpMuxPolicyRequire -> js_RTCRtcpMuxPolicyRequire+ )++instance ToJSVal RTCRtcpMuxPolicy where+ toJSVal = P.return . pToJSVal++instance PFromJSVal RTCRtcpMuxPolicy where+ pFromJSVal x = P.maybe (P.error "Unexpected RTCRtcpMuxPolicy value") P.id (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_RTCRtcpMuxPolicyRequire, RTCRtcpMuxPolicyRequire)]++instance FromJSVal RTCRtcpMuxPolicy where+ fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_RTCRtcpMuxPolicyRequire, RTCRtcpMuxPolicyRequire)]+ fromJSValUnchecked = P.return . pFromJSVal++js_RTCRtcpMuxPolicyRequire :: JSString+js_RTCRtcpMuxPolicyRequire = "require"++-- | <https://developer.mozilla.org/en-US/docs/Web/API RTCRtpScriptTransformType> (webrtc-encoded-transform)+data RTCRtpScriptTransformType = RTCRtpScriptTransformTypeSframe+ deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal RTCRtpScriptTransformType where+ pToJSVal x = pToJSVal (case x of+ RTCRtpScriptTransformTypeSframe -> js_RTCRtpScriptTransformTypeSframe+ )++instance ToJSVal RTCRtpScriptTransformType where+ toJSVal = P.return . pToJSVal++instance PFromJSVal RTCRtpScriptTransformType where+ pFromJSVal x = P.maybe (P.error "Unexpected RTCRtpScriptTransformType value") P.id (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_RTCRtpScriptTransformTypeSframe, RTCRtpScriptTransformTypeSframe)]++instance FromJSVal RTCRtpScriptTransformType where+ fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_RTCRtpScriptTransformTypeSframe, RTCRtpScriptTransformTypeSframe)]+ fromJSValUnchecked = P.return . pFromJSVal++js_RTCRtpScriptTransformTypeSframe :: JSString+js_RTCRtpScriptTransformTypeSframe = "sframe"++-- | <https://developer.mozilla.org/en-US/docs/Web/API RTCRtpTransceiverDirection> (webrtc)+data RTCRtpTransceiverDirection = RTCRtpTransceiverDirectionSendrecv+ | RTCRtpTransceiverDirectionSendonly+ | RTCRtpTransceiverDirectionRecvonly+ | RTCRtpTransceiverDirectionInactive+ | RTCRtpTransceiverDirectionStopped+ deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal RTCRtpTransceiverDirection where+ pToJSVal x = pToJSVal (case x of+ RTCRtpTransceiverDirectionSendrecv -> js_RTCRtpTransceiverDirectionSendrecv+ RTCRtpTransceiverDirectionSendonly -> js_RTCRtpTransceiverDirectionSendonly+ RTCRtpTransceiverDirectionRecvonly -> js_RTCRtpTransceiverDirectionRecvonly+ RTCRtpTransceiverDirectionInactive -> js_RTCRtpTransceiverDirectionInactive+ RTCRtpTransceiverDirectionStopped -> js_RTCRtpTransceiverDirectionStopped+ )++instance ToJSVal RTCRtpTransceiverDirection where+ toJSVal = P.return . pToJSVal++instance PFromJSVal RTCRtpTransceiverDirection where+ pFromJSVal x = P.maybe (P.error "Unexpected RTCRtpTransceiverDirection value") P.id (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_RTCRtpTransceiverDirectionSendrecv, RTCRtpTransceiverDirectionSendrecv), (js_RTCRtpTransceiverDirectionSendonly, RTCRtpTransceiverDirectionSendonly), (js_RTCRtpTransceiverDirectionRecvonly, RTCRtpTransceiverDirectionRecvonly), (js_RTCRtpTransceiverDirectionInactive, RTCRtpTransceiverDirectionInactive), (js_RTCRtpTransceiverDirectionStopped, RTCRtpTransceiverDirectionStopped)]++instance FromJSVal RTCRtpTransceiverDirection where+ fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_RTCRtpTransceiverDirectionSendrecv, RTCRtpTransceiverDirectionSendrecv), (js_RTCRtpTransceiverDirectionSendonly, RTCRtpTransceiverDirectionSendonly), (js_RTCRtpTransceiverDirectionRecvonly, RTCRtpTransceiverDirectionRecvonly), (js_RTCRtpTransceiverDirectionInactive, RTCRtpTransceiverDirectionInactive), (js_RTCRtpTransceiverDirectionStopped, RTCRtpTransceiverDirectionStopped)]+ fromJSValUnchecked = P.return . pFromJSVal++js_RTCRtpTransceiverDirectionSendrecv :: JSString+js_RTCRtpTransceiverDirectionSendrecv = "sendrecv"+js_RTCRtpTransceiverDirectionSendonly :: JSString+js_RTCRtpTransceiverDirectionSendonly = "sendonly"+js_RTCRtpTransceiverDirectionRecvonly :: JSString+js_RTCRtpTransceiverDirectionRecvonly = "recvonly"+js_RTCRtpTransceiverDirectionInactive :: JSString+js_RTCRtpTransceiverDirectionInactive = "inactive"+js_RTCRtpTransceiverDirectionStopped :: JSString+js_RTCRtpTransceiverDirectionStopped = "stopped"++-- | <https://developer.mozilla.org/en-US/docs/Web/API RTCSctpTransportState> (webrtc)+data RTCSctpTransportState = RTCSctpTransportStateConnecting+ | RTCSctpTransportStateConnected+ | RTCSctpTransportStateClosed+ deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal RTCSctpTransportState where+ pToJSVal x = pToJSVal (case x of+ RTCSctpTransportStateConnecting -> js_RTCSctpTransportStateConnecting+ RTCSctpTransportStateConnected -> js_RTCSctpTransportStateConnected+ RTCSctpTransportStateClosed -> js_RTCSctpTransportStateClosed+ )++instance ToJSVal RTCSctpTransportState where+ toJSVal = P.return . pToJSVal++instance PFromJSVal RTCSctpTransportState where+ pFromJSVal x = P.maybe (P.error "Unexpected RTCSctpTransportState value") P.id (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_RTCSctpTransportStateConnecting, RTCSctpTransportStateConnecting), (js_RTCSctpTransportStateConnected, RTCSctpTransportStateConnected), (js_RTCSctpTransportStateClosed, RTCSctpTransportStateClosed)]++instance FromJSVal RTCSctpTransportState where+ fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_RTCSctpTransportStateConnecting, RTCSctpTransportStateConnecting), (js_RTCSctpTransportStateConnected, RTCSctpTransportStateConnected), (js_RTCSctpTransportStateClosed, RTCSctpTransportStateClosed)]+ fromJSValUnchecked = P.return . pFromJSVal++js_RTCSctpTransportStateConnecting :: JSString+js_RTCSctpTransportStateConnecting = "connecting"+js_RTCSctpTransportStateConnected :: JSString+js_RTCSctpTransportStateConnected = "connected"+js_RTCSctpTransportStateClosed :: JSString+js_RTCSctpTransportStateClosed = "closed"++-- | <https://developer.mozilla.org/en-US/docs/Web/API RTCSdpType> (webrtc)+data RTCSdpType = RTCSdpTypeOffer+ | RTCSdpTypePranswer+ | RTCSdpTypeAnswer+ | RTCSdpTypeRollback+ deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal RTCSdpType where+ pToJSVal x = pToJSVal (case x of+ RTCSdpTypeOffer -> js_RTCSdpTypeOffer+ RTCSdpTypePranswer -> js_RTCSdpTypePranswer+ RTCSdpTypeAnswer -> js_RTCSdpTypeAnswer+ RTCSdpTypeRollback -> js_RTCSdpTypeRollback+ )++instance ToJSVal RTCSdpType where+ toJSVal = P.return . pToJSVal++instance PFromJSVal RTCSdpType where+ pFromJSVal x = P.maybe (P.error "Unexpected RTCSdpType value") P.id (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_RTCSdpTypeOffer, RTCSdpTypeOffer), (js_RTCSdpTypePranswer, RTCSdpTypePranswer), (js_RTCSdpTypeAnswer, RTCSdpTypeAnswer), (js_RTCSdpTypeRollback, RTCSdpTypeRollback)]++instance FromJSVal RTCSdpType where+ fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_RTCSdpTypeOffer, RTCSdpTypeOffer), (js_RTCSdpTypePranswer, RTCSdpTypePranswer), (js_RTCSdpTypeAnswer, RTCSdpTypeAnswer), (js_RTCSdpTypeRollback, RTCSdpTypeRollback)]+ fromJSValUnchecked = P.return . pFromJSVal++js_RTCSdpTypeOffer :: JSString+js_RTCSdpTypeOffer = "offer"+js_RTCSdpTypePranswer :: JSString+js_RTCSdpTypePranswer = "pranswer"+js_RTCSdpTypeAnswer :: JSString+js_RTCSdpTypeAnswer = "answer"+js_RTCSdpTypeRollback :: JSString+js_RTCSdpTypeRollback = "rollback"++-- | <https://developer.mozilla.org/en-US/docs/Web/API RTCSignalingState> (webrtc)+data RTCSignalingState = RTCSignalingStateStable+ | RTCSignalingStateHaveLocalOffer+ | RTCSignalingStateHaveRemoteOffer+ | RTCSignalingStateHaveLocalPranswer+ | RTCSignalingStateHaveRemotePranswer+ | RTCSignalingStateClosed+ deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal RTCSignalingState where+ pToJSVal x = pToJSVal (case x of+ RTCSignalingStateStable -> js_RTCSignalingStateStable+ RTCSignalingStateHaveLocalOffer -> js_RTCSignalingStateHaveLocalOffer+ RTCSignalingStateHaveRemoteOffer -> js_RTCSignalingStateHaveRemoteOffer+ RTCSignalingStateHaveLocalPranswer -> js_RTCSignalingStateHaveLocalPranswer+ RTCSignalingStateHaveRemotePranswer -> js_RTCSignalingStateHaveRemotePranswer+ RTCSignalingStateClosed -> js_RTCSignalingStateClosed+ )++instance ToJSVal RTCSignalingState where+ toJSVal = P.return . pToJSVal++instance PFromJSVal RTCSignalingState where+ pFromJSVal x = P.maybe (P.error "Unexpected RTCSignalingState value") P.id (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_RTCSignalingStateStable, RTCSignalingStateStable), (js_RTCSignalingStateHaveLocalOffer, RTCSignalingStateHaveLocalOffer), (js_RTCSignalingStateHaveRemoteOffer, RTCSignalingStateHaveRemoteOffer), (js_RTCSignalingStateHaveLocalPranswer, RTCSignalingStateHaveLocalPranswer), (js_RTCSignalingStateHaveRemotePranswer, RTCSignalingStateHaveRemotePranswer), (js_RTCSignalingStateClosed, RTCSignalingStateClosed)]++instance FromJSVal RTCSignalingState where+ fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_RTCSignalingStateStable, RTCSignalingStateStable), (js_RTCSignalingStateHaveLocalOffer, RTCSignalingStateHaveLocalOffer), (js_RTCSignalingStateHaveRemoteOffer, RTCSignalingStateHaveRemoteOffer), (js_RTCSignalingStateHaveLocalPranswer, RTCSignalingStateHaveLocalPranswer), (js_RTCSignalingStateHaveRemotePranswer, RTCSignalingStateHaveRemotePranswer), (js_RTCSignalingStateClosed, RTCSignalingStateClosed)]+ fromJSValUnchecked = P.return . pFromJSVal++js_RTCSignalingStateStable :: JSString+js_RTCSignalingStateStable = "stable"+js_RTCSignalingStateHaveLocalOffer :: JSString+js_RTCSignalingStateHaveLocalOffer = "have-local-offer"+js_RTCSignalingStateHaveRemoteOffer :: JSString+js_RTCSignalingStateHaveRemoteOffer = "have-remote-offer"+js_RTCSignalingStateHaveLocalPranswer :: JSString+js_RTCSignalingStateHaveLocalPranswer = "have-local-pranswer"+js_RTCSignalingStateHaveRemotePranswer :: JSString+js_RTCSignalingStateHaveRemotePranswer = "have-remote-pranswer"+js_RTCSignalingStateClosed :: JSString+js_RTCSignalingStateClosed = "closed"++-- | <https://developer.mozilla.org/en-US/docs/Web/API ReadableStreamReaderMode> (streams)+data ReadableStreamReaderMode = ReadableStreamReaderModeByob+ deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal ReadableStreamReaderMode where+ pToJSVal x = pToJSVal (case x of+ ReadableStreamReaderModeByob -> js_ReadableStreamReaderModeByob+ )++instance ToJSVal ReadableStreamReaderMode where+ toJSVal = P.return . pToJSVal++instance PFromJSVal ReadableStreamReaderMode where+ pFromJSVal x = P.maybe (P.error "Unexpected ReadableStreamReaderMode value") P.id (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_ReadableStreamReaderModeByob, ReadableStreamReaderModeByob)]++instance FromJSVal ReadableStreamReaderMode where+ fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_ReadableStreamReaderModeByob, ReadableStreamReaderModeByob)]+ fromJSValUnchecked = P.return . pFromJSVal++js_ReadableStreamReaderModeByob :: JSString+js_ReadableStreamReaderModeByob = "byob"++-- | <https://developer.mozilla.org/en-US/docs/Web/API ReadableStreamType> (streams)+data ReadableStreamType = ReadableStreamTypeBytes+ deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal ReadableStreamType where+ pToJSVal x = pToJSVal (case x of+ ReadableStreamTypeBytes -> js_ReadableStreamTypeBytes+ )++instance ToJSVal ReadableStreamType where+ toJSVal = P.return . pToJSVal++instance PFromJSVal ReadableStreamType where+ pFromJSVal x = P.maybe (P.error "Unexpected ReadableStreamType value") P.id (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_ReadableStreamTypeBytes, ReadableStreamTypeBytes)]++instance FromJSVal ReadableStreamType where+ fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_ReadableStreamTypeBytes, ReadableStreamTypeBytes)]+ fromJSValUnchecked = P.return . pFromJSVal++js_ReadableStreamTypeBytes :: JSString+js_ReadableStreamTypeBytes = "bytes"++-- | <https://developer.mozilla.org/en-US/docs/Web/API ReadyState> (media-source-2)+data ReadyState = ReadyStateClosed+ | ReadyStateOpen+ | ReadyStateEnded+ deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal ReadyState where+ pToJSVal x = pToJSVal (case x of+ ReadyStateClosed -> js_ReadyStateClosed+ ReadyStateOpen -> js_ReadyStateOpen+ ReadyStateEnded -> js_ReadyStateEnded+ )++instance ToJSVal ReadyState where+ toJSVal = P.return . pToJSVal++instance PFromJSVal ReadyState where+ pFromJSVal x = P.maybe (P.error "Unexpected ReadyState value") P.id (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_ReadyStateClosed, ReadyStateClosed), (js_ReadyStateOpen, ReadyStateOpen), (js_ReadyStateEnded, ReadyStateEnded)]++instance FromJSVal ReadyState where+ fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_ReadyStateClosed, ReadyStateClosed), (js_ReadyStateOpen, ReadyStateOpen), (js_ReadyStateEnded, ReadyStateEnded)]+ fromJSValUnchecked = P.return . pFromJSVal++js_ReadyStateClosed :: JSString+js_ReadyStateClosed = "closed"+js_ReadyStateOpen :: JSString+js_ReadyStateOpen = "open"+js_ReadyStateEnded :: JSString+js_ReadyStateEnded = "ended"++-- | <https://developer.mozilla.org/en-US/docs/Web/API RecordingState> (mediastream-recording)+data RecordingState = RecordingStateInactive+ | RecordingStateRecording+ | RecordingStatePaused+ deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal RecordingState where+ pToJSVal x = pToJSVal (case x of+ RecordingStateInactive -> js_RecordingStateInactive+ RecordingStateRecording -> js_RecordingStateRecording+ RecordingStatePaused -> js_RecordingStatePaused+ )++instance ToJSVal RecordingState where+ toJSVal = P.return . pToJSVal++instance PFromJSVal RecordingState where+ pFromJSVal x = P.maybe (P.error "Unexpected RecordingState value") P.id (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_RecordingStateInactive, RecordingStateInactive), (js_RecordingStateRecording, RecordingStateRecording), (js_RecordingStatePaused, RecordingStatePaused)]++instance FromJSVal RecordingState where+ fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_RecordingStateInactive, RecordingStateInactive), (js_RecordingStateRecording, RecordingStateRecording), (js_RecordingStatePaused, RecordingStatePaused)]+ fromJSValUnchecked = P.return . pFromJSVal++js_RecordingStateInactive :: JSString+js_RecordingStateInactive = "inactive"+js_RecordingStateRecording :: JSString+js_RecordingStateRecording = "recording"+js_RecordingStatePaused :: JSString+js_RecordingStatePaused = "paused"++-- | <https://developer.mozilla.org/en-US/docs/Web/API RedEyeReduction> (image-capture)+data RedEyeReduction = RedEyeReductionNever+ | RedEyeReductionAlways+ | RedEyeReductionControllable+ deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal RedEyeReduction where+ pToJSVal x = pToJSVal (case x of+ RedEyeReductionNever -> js_RedEyeReductionNever+ RedEyeReductionAlways -> js_RedEyeReductionAlways+ RedEyeReductionControllable -> js_RedEyeReductionControllable+ )++instance ToJSVal RedEyeReduction where+ toJSVal = P.return . pToJSVal++instance PFromJSVal RedEyeReduction where+ pFromJSVal x = P.maybe (P.error "Unexpected RedEyeReduction value") P.id (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_RedEyeReductionNever, RedEyeReductionNever), (js_RedEyeReductionAlways, RedEyeReductionAlways), (js_RedEyeReductionControllable, RedEyeReductionControllable)]++instance FromJSVal RedEyeReduction where+ fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_RedEyeReductionNever, RedEyeReductionNever), (js_RedEyeReductionAlways, RedEyeReductionAlways), (js_RedEyeReductionControllable, RedEyeReductionControllable)]+ fromJSValUnchecked = P.return . pFromJSVal++js_RedEyeReductionNever :: JSString+js_RedEyeReductionNever = "never"+js_RedEyeReductionAlways :: JSString+js_RedEyeReductionAlways = "always"+js_RedEyeReductionControllable :: JSString+js_RedEyeReductionControllable = "controllable"++-- | <https://developer.mozilla.org/en-US/docs/Web/API ReferrerPolicy> (referrer-policy)+data ReferrerPolicy = ReferrerPolicy+ | ReferrerPolicyNoReferrer+ | ReferrerPolicyNoReferrerWhenDowngrade+ | ReferrerPolicySameOrigin+ | ReferrerPolicyOrigin+ | ReferrerPolicyStrictOrigin+ | ReferrerPolicyOriginWhenCrossOrigin+ | ReferrerPolicyStrictOriginWhenCrossOrigin+ | ReferrerPolicyUnsafeUrl+ deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal ReferrerPolicy where+ pToJSVal x = pToJSVal (case x of+ ReferrerPolicy -> js_ReferrerPolicy+ ReferrerPolicyNoReferrer -> js_ReferrerPolicyNoReferrer+ ReferrerPolicyNoReferrerWhenDowngrade -> js_ReferrerPolicyNoReferrerWhenDowngrade+ ReferrerPolicySameOrigin -> js_ReferrerPolicySameOrigin+ ReferrerPolicyOrigin -> js_ReferrerPolicyOrigin+ ReferrerPolicyStrictOrigin -> js_ReferrerPolicyStrictOrigin+ ReferrerPolicyOriginWhenCrossOrigin -> js_ReferrerPolicyOriginWhenCrossOrigin+ ReferrerPolicyStrictOriginWhenCrossOrigin -> js_ReferrerPolicyStrictOriginWhenCrossOrigin+ ReferrerPolicyUnsafeUrl -> js_ReferrerPolicyUnsafeUrl+ )++instance ToJSVal ReferrerPolicy where+ toJSVal = P.return . pToJSVal++instance PFromJSVal ReferrerPolicy where+ pFromJSVal x = P.maybe (P.error "Unexpected ReferrerPolicy value") P.id (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_ReferrerPolicy, ReferrerPolicy), (js_ReferrerPolicyNoReferrer, ReferrerPolicyNoReferrer), (js_ReferrerPolicyNoReferrerWhenDowngrade, ReferrerPolicyNoReferrerWhenDowngrade), (js_ReferrerPolicySameOrigin, ReferrerPolicySameOrigin), (js_ReferrerPolicyOrigin, ReferrerPolicyOrigin), (js_ReferrerPolicyStrictOrigin, ReferrerPolicyStrictOrigin), (js_ReferrerPolicyOriginWhenCrossOrigin, ReferrerPolicyOriginWhenCrossOrigin), (js_ReferrerPolicyStrictOriginWhenCrossOrigin, ReferrerPolicyStrictOriginWhenCrossOrigin), (js_ReferrerPolicyUnsafeUrl, ReferrerPolicyUnsafeUrl)]++instance FromJSVal ReferrerPolicy where+ fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_ReferrerPolicy, ReferrerPolicy), (js_ReferrerPolicyNoReferrer, ReferrerPolicyNoReferrer), (js_ReferrerPolicyNoReferrerWhenDowngrade, ReferrerPolicyNoReferrerWhenDowngrade), (js_ReferrerPolicySameOrigin, ReferrerPolicySameOrigin), (js_ReferrerPolicyOrigin, ReferrerPolicyOrigin), (js_ReferrerPolicyStrictOrigin, ReferrerPolicyStrictOrigin), (js_ReferrerPolicyOriginWhenCrossOrigin, ReferrerPolicyOriginWhenCrossOrigin), (js_ReferrerPolicyStrictOriginWhenCrossOrigin, ReferrerPolicyStrictOriginWhenCrossOrigin), (js_ReferrerPolicyUnsafeUrl, ReferrerPolicyUnsafeUrl)]+ fromJSValUnchecked = P.return . pFromJSVal++js_ReferrerPolicy :: JSString+js_ReferrerPolicy = ""+js_ReferrerPolicyNoReferrer :: JSString+js_ReferrerPolicyNoReferrer = "no-referrer"+js_ReferrerPolicyNoReferrerWhenDowngrade :: JSString+js_ReferrerPolicyNoReferrerWhenDowngrade = "no-referrer-when-downgrade"+js_ReferrerPolicySameOrigin :: JSString+js_ReferrerPolicySameOrigin = "same-origin"+js_ReferrerPolicyOrigin :: JSString+js_ReferrerPolicyOrigin = "origin"+js_ReferrerPolicyStrictOrigin :: JSString+js_ReferrerPolicyStrictOrigin = "strict-origin"+js_ReferrerPolicyOriginWhenCrossOrigin :: JSString+js_ReferrerPolicyOriginWhenCrossOrigin = "origin-when-cross-origin"+js_ReferrerPolicyStrictOriginWhenCrossOrigin :: JSString+js_ReferrerPolicyStrictOriginWhenCrossOrigin = "strict-origin-when-cross-origin"+js_ReferrerPolicyUnsafeUrl :: JSString+js_ReferrerPolicyUnsafeUrl = "unsafe-url"++-- | <https://developer.mozilla.org/en-US/docs/Web/API RefreshPolicy> (trust-token-api)+data RefreshPolicy = RefreshPolicyNone+ | RefreshPolicyRefresh+ deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal RefreshPolicy where+ pToJSVal x = pToJSVal (case x of+ RefreshPolicyNone -> js_RefreshPolicyNone+ RefreshPolicyRefresh -> js_RefreshPolicyRefresh+ )++instance ToJSVal RefreshPolicy where+ toJSVal = P.return . pToJSVal++instance PFromJSVal RefreshPolicy where+ pFromJSVal x = P.maybe (P.error "Unexpected RefreshPolicy value") P.id (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_RefreshPolicyNone, RefreshPolicyNone), (js_RefreshPolicyRefresh, RefreshPolicyRefresh)]++instance FromJSVal RefreshPolicy where+ fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_RefreshPolicyNone, RefreshPolicyNone), (js_RefreshPolicyRefresh, RefreshPolicyRefresh)]+ fromJSValUnchecked = P.return . pFromJSVal++js_RefreshPolicyNone :: JSString+js_RefreshPolicyNone = "none"+js_RefreshPolicyRefresh :: JSString+js_RefreshPolicyRefresh = "refresh"++-- | <https://developer.mozilla.org/en-US/docs/Web/API RemotePlaybackState> (remote-playback)+data RemotePlaybackState = RemotePlaybackStateConnecting+ | RemotePlaybackStateConnected+ | RemotePlaybackStateDisconnected+ deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal RemotePlaybackState where+ pToJSVal x = pToJSVal (case x of+ RemotePlaybackStateConnecting -> js_RemotePlaybackStateConnecting+ RemotePlaybackStateConnected -> js_RemotePlaybackStateConnected+ RemotePlaybackStateDisconnected -> js_RemotePlaybackStateDisconnected+ )++instance ToJSVal RemotePlaybackState where+ toJSVal = P.return . pToJSVal++instance PFromJSVal RemotePlaybackState where+ pFromJSVal x = P.maybe (P.error "Unexpected RemotePlaybackState value") P.id (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_RemotePlaybackStateConnecting, RemotePlaybackStateConnecting), (js_RemotePlaybackStateConnected, RemotePlaybackStateConnected), (js_RemotePlaybackStateDisconnected, RemotePlaybackStateDisconnected)]++instance FromJSVal RemotePlaybackState where+ fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_RemotePlaybackStateConnecting, RemotePlaybackStateConnecting), (js_RemotePlaybackStateConnected, RemotePlaybackStateConnected), (js_RemotePlaybackStateDisconnected, RemotePlaybackStateDisconnected)]+ fromJSValUnchecked = P.return . pFromJSVal++js_RemotePlaybackStateConnecting :: JSString+js_RemotePlaybackStateConnecting = "connecting"+js_RemotePlaybackStateConnected :: JSString+js_RemotePlaybackStateConnected = "connected"+js_RemotePlaybackStateDisconnected :: JSString+js_RemotePlaybackStateDisconnected = "disconnected"++-- | <https://developer.mozilla.org/en-US/docs/Web/API RequestCache> (fetch)+data RequestCache = RequestCacheDefault+ | RequestCacheNoStore+ | RequestCacheReload+ | RequestCacheNoCache+ | RequestCacheForceCache+ | RequestCacheOnlyIfCached+ deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal RequestCache where+ pToJSVal x = pToJSVal (case x of+ RequestCacheDefault -> js_RequestCacheDefault+ RequestCacheNoStore -> js_RequestCacheNoStore+ RequestCacheReload -> js_RequestCacheReload+ RequestCacheNoCache -> js_RequestCacheNoCache+ RequestCacheForceCache -> js_RequestCacheForceCache+ RequestCacheOnlyIfCached -> js_RequestCacheOnlyIfCached+ )++instance ToJSVal RequestCache where+ toJSVal = P.return . pToJSVal++instance PFromJSVal RequestCache where+ pFromJSVal x = P.maybe (P.error "Unexpected RequestCache value") P.id (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_RequestCacheDefault, RequestCacheDefault), (js_RequestCacheNoStore, RequestCacheNoStore), (js_RequestCacheReload, RequestCacheReload), (js_RequestCacheNoCache, RequestCacheNoCache), (js_RequestCacheForceCache, RequestCacheForceCache), (js_RequestCacheOnlyIfCached, RequestCacheOnlyIfCached)]++instance FromJSVal RequestCache where+ fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_RequestCacheDefault, RequestCacheDefault), (js_RequestCacheNoStore, RequestCacheNoStore), (js_RequestCacheReload, RequestCacheReload), (js_RequestCacheNoCache, RequestCacheNoCache), (js_RequestCacheForceCache, RequestCacheForceCache), (js_RequestCacheOnlyIfCached, RequestCacheOnlyIfCached)]+ fromJSValUnchecked = P.return . pFromJSVal++js_RequestCacheDefault :: JSString+js_RequestCacheDefault = "default"+js_RequestCacheNoStore :: JSString+js_RequestCacheNoStore = "no-store"+js_RequestCacheReload :: JSString+js_RequestCacheReload = "reload"+js_RequestCacheNoCache :: JSString+js_RequestCacheNoCache = "no-cache"+js_RequestCacheForceCache :: JSString+js_RequestCacheForceCache = "force-cache"+js_RequestCacheOnlyIfCached :: JSString+js_RequestCacheOnlyIfCached = "only-if-cached"++-- | <https://developer.mozilla.org/en-US/docs/Web/API RequestCredentials> (fetch)+data RequestCredentials = RequestCredentialsOmit+ | RequestCredentialsSameOrigin+ | RequestCredentialsInclude+ deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal RequestCredentials where+ pToJSVal x = pToJSVal (case x of+ RequestCredentialsOmit -> js_RequestCredentialsOmit+ RequestCredentialsSameOrigin -> js_RequestCredentialsSameOrigin+ RequestCredentialsInclude -> js_RequestCredentialsInclude+ )++instance ToJSVal RequestCredentials where+ toJSVal = P.return . pToJSVal++instance PFromJSVal RequestCredentials where+ pFromJSVal x = P.maybe (P.error "Unexpected RequestCredentials value") P.id (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_RequestCredentialsOmit, RequestCredentialsOmit), (js_RequestCredentialsSameOrigin, RequestCredentialsSameOrigin), (js_RequestCredentialsInclude, RequestCredentialsInclude)]++instance FromJSVal RequestCredentials where+ fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_RequestCredentialsOmit, RequestCredentialsOmit), (js_RequestCredentialsSameOrigin, RequestCredentialsSameOrigin), (js_RequestCredentialsInclude, RequestCredentialsInclude)]+ fromJSValUnchecked = P.return . pFromJSVal++js_RequestCredentialsOmit :: JSString+js_RequestCredentialsOmit = "omit"+js_RequestCredentialsSameOrigin :: JSString+js_RequestCredentialsSameOrigin = "same-origin"+js_RequestCredentialsInclude :: JSString+js_RequestCredentialsInclude = "include"++-- | <https://developer.mozilla.org/en-US/docs/Web/API RequestDestination> (fetch)+data RequestDestination = RequestDestination+ | RequestDestinationAudio+ | RequestDestinationAudioworklet+ | RequestDestinationDocument+ | RequestDestinationEmbed+ | RequestDestinationFont+ | RequestDestinationFrame+ | RequestDestinationIframe+ | RequestDestinationImage+ | RequestDestinationJson+ | RequestDestinationManifest+ | RequestDestinationObject+ | RequestDestinationPaintworklet+ | RequestDestinationReport+ | RequestDestinationScript+ | RequestDestinationSharedworker+ | RequestDestinationStyle+ | RequestDestinationText+ | RequestDestinationTrack+ | RequestDestinationVideo+ | RequestDestinationWorker+ | RequestDestinationXslt+ deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal RequestDestination where+ pToJSVal x = pToJSVal (case x of+ RequestDestination -> js_RequestDestination+ RequestDestinationAudio -> js_RequestDestinationAudio+ RequestDestinationAudioworklet -> js_RequestDestinationAudioworklet+ RequestDestinationDocument -> js_RequestDestinationDocument+ RequestDestinationEmbed -> js_RequestDestinationEmbed+ RequestDestinationFont -> js_RequestDestinationFont+ RequestDestinationFrame -> js_RequestDestinationFrame+ RequestDestinationIframe -> js_RequestDestinationIframe+ RequestDestinationImage -> js_RequestDestinationImage+ RequestDestinationJson -> js_RequestDestinationJson+ RequestDestinationManifest -> js_RequestDestinationManifest+ RequestDestinationObject -> js_RequestDestinationObject+ RequestDestinationPaintworklet -> js_RequestDestinationPaintworklet+ RequestDestinationReport -> js_RequestDestinationReport+ RequestDestinationScript -> js_RequestDestinationScript+ RequestDestinationSharedworker -> js_RequestDestinationSharedworker+ RequestDestinationStyle -> js_RequestDestinationStyle+ RequestDestinationText -> js_RequestDestinationText+ RequestDestinationTrack -> js_RequestDestinationTrack+ RequestDestinationVideo -> js_RequestDestinationVideo+ RequestDestinationWorker -> js_RequestDestinationWorker+ RequestDestinationXslt -> js_RequestDestinationXslt+ )++instance ToJSVal RequestDestination where+ toJSVal = P.return . pToJSVal++instance PFromJSVal RequestDestination where+ pFromJSVal x = P.maybe (P.error "Unexpected RequestDestination value") P.id (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_RequestDestination, RequestDestination), (js_RequestDestinationAudio, RequestDestinationAudio), (js_RequestDestinationAudioworklet, RequestDestinationAudioworklet), (js_RequestDestinationDocument, RequestDestinationDocument), (js_RequestDestinationEmbed, RequestDestinationEmbed), (js_RequestDestinationFont, RequestDestinationFont), (js_RequestDestinationFrame, RequestDestinationFrame), (js_RequestDestinationIframe, RequestDestinationIframe), (js_RequestDestinationImage, RequestDestinationImage), (js_RequestDestinationJson, RequestDestinationJson), (js_RequestDestinationManifest, RequestDestinationManifest), (js_RequestDestinationObject, RequestDestinationObject), (js_RequestDestinationPaintworklet, RequestDestinationPaintworklet), (js_RequestDestinationReport, RequestDestinationReport), (js_RequestDestinationScript, RequestDestinationScript), (js_RequestDestinationSharedworker, RequestDestinationSharedworker), (js_RequestDestinationStyle, RequestDestinationStyle), (js_RequestDestinationText, RequestDestinationText), (js_RequestDestinationTrack, RequestDestinationTrack), (js_RequestDestinationVideo, RequestDestinationVideo), (js_RequestDestinationWorker, RequestDestinationWorker), (js_RequestDestinationXslt, RequestDestinationXslt)]++instance FromJSVal RequestDestination where+ fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_RequestDestination, RequestDestination), (js_RequestDestinationAudio, RequestDestinationAudio), (js_RequestDestinationAudioworklet, RequestDestinationAudioworklet), (js_RequestDestinationDocument, RequestDestinationDocument), (js_RequestDestinationEmbed, RequestDestinationEmbed), (js_RequestDestinationFont, RequestDestinationFont), (js_RequestDestinationFrame, RequestDestinationFrame), (js_RequestDestinationIframe, RequestDestinationIframe), (js_RequestDestinationImage, RequestDestinationImage), (js_RequestDestinationJson, RequestDestinationJson), (js_RequestDestinationManifest, RequestDestinationManifest), (js_RequestDestinationObject, RequestDestinationObject), (js_RequestDestinationPaintworklet, RequestDestinationPaintworklet), (js_RequestDestinationReport, RequestDestinationReport), (js_RequestDestinationScript, RequestDestinationScript), (js_RequestDestinationSharedworker, RequestDestinationSharedworker), (js_RequestDestinationStyle, RequestDestinationStyle), (js_RequestDestinationText, RequestDestinationText), (js_RequestDestinationTrack, RequestDestinationTrack), (js_RequestDestinationVideo, RequestDestinationVideo), (js_RequestDestinationWorker, RequestDestinationWorker), (js_RequestDestinationXslt, RequestDestinationXslt)]+ fromJSValUnchecked = P.return . pFromJSVal++js_RequestDestination :: JSString+js_RequestDestination = ""+js_RequestDestinationAudio :: JSString+js_RequestDestinationAudio = "audio"+js_RequestDestinationAudioworklet :: JSString+js_RequestDestinationAudioworklet = "audioworklet"+js_RequestDestinationDocument :: JSString+js_RequestDestinationDocument = "document"+js_RequestDestinationEmbed :: JSString+js_RequestDestinationEmbed = "embed"+js_RequestDestinationFont :: JSString+js_RequestDestinationFont = "font"+js_RequestDestinationFrame :: JSString+js_RequestDestinationFrame = "frame"+js_RequestDestinationIframe :: JSString+js_RequestDestinationIframe = "iframe"+js_RequestDestinationImage :: JSString+js_RequestDestinationImage = "image"+js_RequestDestinationJson :: JSString+js_RequestDestinationJson = "json"+js_RequestDestinationManifest :: JSString+js_RequestDestinationManifest = "manifest"+js_RequestDestinationObject :: JSString+js_RequestDestinationObject = "object"+js_RequestDestinationPaintworklet :: JSString+js_RequestDestinationPaintworklet = "paintworklet"+js_RequestDestinationReport :: JSString+js_RequestDestinationReport = "report"+js_RequestDestinationScript :: JSString+js_RequestDestinationScript = "script"+js_RequestDestinationSharedworker :: JSString+js_RequestDestinationSharedworker = "sharedworker"+js_RequestDestinationStyle :: JSString+js_RequestDestinationStyle = "style"+js_RequestDestinationText :: JSString+js_RequestDestinationText = "text"+js_RequestDestinationTrack :: JSString+js_RequestDestinationTrack = "track"+js_RequestDestinationVideo :: JSString+js_RequestDestinationVideo = "video"+js_RequestDestinationWorker :: JSString+js_RequestDestinationWorker = "worker"+js_RequestDestinationXslt :: JSString+js_RequestDestinationXslt = "xslt"++-- | <https://developer.mozilla.org/en-US/docs/Web/API RequestDuplex> (fetch)+data RequestDuplex = RequestDuplexHalf+ deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal RequestDuplex where+ pToJSVal x = pToJSVal (case x of+ RequestDuplexHalf -> js_RequestDuplexHalf+ )++instance ToJSVal RequestDuplex where+ toJSVal = P.return . pToJSVal++instance PFromJSVal RequestDuplex where+ pFromJSVal x = P.maybe (P.error "Unexpected RequestDuplex value") P.id (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_RequestDuplexHalf, RequestDuplexHalf)]++instance FromJSVal RequestDuplex where+ fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_RequestDuplexHalf, RequestDuplexHalf)]+ fromJSValUnchecked = P.return . pFromJSVal++js_RequestDuplexHalf :: JSString+js_RequestDuplexHalf = "half"++-- | <https://developer.mozilla.org/en-US/docs/Web/API RequestMode> (fetch)+data RequestMode = RequestModeNavigate+ | RequestModeSameOrigin+ | RequestModeNoCors+ | RequestModeCors+ deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal RequestMode where+ pToJSVal x = pToJSVal (case x of+ RequestModeNavigate -> js_RequestModeNavigate+ RequestModeSameOrigin -> js_RequestModeSameOrigin+ RequestModeNoCors -> js_RequestModeNoCors+ RequestModeCors -> js_RequestModeCors+ )++instance ToJSVal RequestMode where+ toJSVal = P.return . pToJSVal++instance PFromJSVal RequestMode where+ pFromJSVal x = P.maybe (P.error "Unexpected RequestMode value") P.id (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_RequestModeNavigate, RequestModeNavigate), (js_RequestModeSameOrigin, RequestModeSameOrigin), (js_RequestModeNoCors, RequestModeNoCors), (js_RequestModeCors, RequestModeCors)]++instance FromJSVal RequestMode where+ fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_RequestModeNavigate, RequestModeNavigate), (js_RequestModeSameOrigin, RequestModeSameOrigin), (js_RequestModeNoCors, RequestModeNoCors), (js_RequestModeCors, RequestModeCors)]+ fromJSValUnchecked = P.return . pFromJSVal++js_RequestModeNavigate :: JSString+js_RequestModeNavigate = "navigate"+js_RequestModeSameOrigin :: JSString+js_RequestModeSameOrigin = "same-origin"+js_RequestModeNoCors :: JSString+js_RequestModeNoCors = "no-cors"+js_RequestModeCors :: JSString+js_RequestModeCors = "cors"++-- | <https://developer.mozilla.org/en-US/docs/Web/API RequestPriority> (fetch)+data RequestPriority = RequestPriorityHigh+ | RequestPriorityLow+ | RequestPriorityAuto+ deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal RequestPriority where+ pToJSVal x = pToJSVal (case x of+ RequestPriorityHigh -> js_RequestPriorityHigh+ RequestPriorityLow -> js_RequestPriorityLow+ RequestPriorityAuto -> js_RequestPriorityAuto+ )++instance ToJSVal RequestPriority where+ toJSVal = P.return . pToJSVal++instance PFromJSVal RequestPriority where+ pFromJSVal x = P.maybe (P.error "Unexpected RequestPriority value") P.id (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_RequestPriorityHigh, RequestPriorityHigh), (js_RequestPriorityLow, RequestPriorityLow), (js_RequestPriorityAuto, RequestPriorityAuto)]++instance FromJSVal RequestPriority where+ fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_RequestPriorityHigh, RequestPriorityHigh), (js_RequestPriorityLow, RequestPriorityLow), (js_RequestPriorityAuto, RequestPriorityAuto)]+ fromJSValUnchecked = P.return . pFromJSVal++js_RequestPriorityHigh :: JSString+js_RequestPriorityHigh = "high"+js_RequestPriorityLow :: JSString+js_RequestPriorityLow = "low"+js_RequestPriorityAuto :: JSString+js_RequestPriorityAuto = "auto"++-- | <https://developer.mozilla.org/en-US/docs/Web/API RequestRedirect> (fetch)+data RequestRedirect = RequestRedirectFollow+ | RequestRedirectError+ | RequestRedirectManual+ deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal RequestRedirect where+ pToJSVal x = pToJSVal (case x of+ RequestRedirectFollow -> js_RequestRedirectFollow+ RequestRedirectError -> js_RequestRedirectError+ RequestRedirectManual -> js_RequestRedirectManual+ )++instance ToJSVal RequestRedirect where+ toJSVal = P.return . pToJSVal++instance PFromJSVal RequestRedirect where+ pFromJSVal x = P.maybe (P.error "Unexpected RequestRedirect value") P.id (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_RequestRedirectFollow, RequestRedirectFollow), (js_RequestRedirectError, RequestRedirectError), (js_RequestRedirectManual, RequestRedirectManual)]++instance FromJSVal RequestRedirect where+ fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_RequestRedirectFollow, RequestRedirectFollow), (js_RequestRedirectError, RequestRedirectError), (js_RequestRedirectManual, RequestRedirectManual)]+ fromJSValUnchecked = P.return . pFromJSVal++js_RequestRedirectFollow :: JSString+js_RequestRedirectFollow = "follow"+js_RequestRedirectError :: JSString+js_RequestRedirectError = "error"+js_RequestRedirectManual :: JSString+js_RequestRedirectManual = "manual"++-- | <https://developer.mozilla.org/en-US/docs/Web/API ResizeObserverBoxOptions> (resize-observer-1)+data ResizeObserverBoxOptions = ResizeObserverBoxOptionsBorderBox+ | ResizeObserverBoxOptionsContentBox+ | ResizeObserverBoxOptionsDevicePixelContentBox+ deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal ResizeObserverBoxOptions where+ pToJSVal x = pToJSVal (case x of+ ResizeObserverBoxOptionsBorderBox -> js_ResizeObserverBoxOptionsBorderBox+ ResizeObserverBoxOptionsContentBox -> js_ResizeObserverBoxOptionsContentBox+ ResizeObserverBoxOptionsDevicePixelContentBox -> js_ResizeObserverBoxOptionsDevicePixelContentBox+ )++instance ToJSVal ResizeObserverBoxOptions where+ toJSVal = P.return . pToJSVal++instance PFromJSVal ResizeObserverBoxOptions where+ pFromJSVal x = P.maybe (P.error "Unexpected ResizeObserverBoxOptions value") P.id (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_ResizeObserverBoxOptionsBorderBox, ResizeObserverBoxOptionsBorderBox), (js_ResizeObserverBoxOptionsContentBox, ResizeObserverBoxOptionsContentBox), (js_ResizeObserverBoxOptionsDevicePixelContentBox, ResizeObserverBoxOptionsDevicePixelContentBox)]++instance FromJSVal ResizeObserverBoxOptions where+ fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_ResizeObserverBoxOptionsBorderBox, ResizeObserverBoxOptionsBorderBox), (js_ResizeObserverBoxOptionsContentBox, ResizeObserverBoxOptionsContentBox), (js_ResizeObserverBoxOptionsDevicePixelContentBox, ResizeObserverBoxOptionsDevicePixelContentBox)]+ fromJSValUnchecked = P.return . pFromJSVal++js_ResizeObserverBoxOptionsBorderBox :: JSString+js_ResizeObserverBoxOptionsBorderBox = "border-box"+js_ResizeObserverBoxOptionsContentBox :: JSString+js_ResizeObserverBoxOptionsContentBox = "content-box"+js_ResizeObserverBoxOptionsDevicePixelContentBox :: JSString+js_ResizeObserverBoxOptionsDevicePixelContentBox = "device-pixel-content-box"++-- | <https://developer.mozilla.org/en-US/docs/Web/API ResponseType> (fetch)+data ResponseType = ResponseTypeBasic+ | ResponseTypeCors+ | ResponseTypeDefault+ | ResponseTypeError+ | ResponseTypeOpaque+ | ResponseTypeOpaqueredirect+ deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal ResponseType where+ pToJSVal x = pToJSVal (case x of+ ResponseTypeBasic -> js_ResponseTypeBasic+ ResponseTypeCors -> js_ResponseTypeCors+ ResponseTypeDefault -> js_ResponseTypeDefault+ ResponseTypeError -> js_ResponseTypeError+ ResponseTypeOpaque -> js_ResponseTypeOpaque+ ResponseTypeOpaqueredirect -> js_ResponseTypeOpaqueredirect+ )++instance ToJSVal ResponseType where+ toJSVal = P.return . pToJSVal++instance PFromJSVal ResponseType where+ pFromJSVal x = P.maybe (P.error "Unexpected ResponseType value") P.id (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_ResponseTypeBasic, ResponseTypeBasic), (js_ResponseTypeCors, ResponseTypeCors), (js_ResponseTypeDefault, ResponseTypeDefault), (js_ResponseTypeError, ResponseTypeError), (js_ResponseTypeOpaque, ResponseTypeOpaque), (js_ResponseTypeOpaqueredirect, ResponseTypeOpaqueredirect)]++instance FromJSVal ResponseType where+ fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_ResponseTypeBasic, ResponseTypeBasic), (js_ResponseTypeCors, ResponseTypeCors), (js_ResponseTypeDefault, ResponseTypeDefault), (js_ResponseTypeError, ResponseTypeError), (js_ResponseTypeOpaque, ResponseTypeOpaque), (js_ResponseTypeOpaqueredirect, ResponseTypeOpaqueredirect)]+ fromJSValUnchecked = P.return . pFromJSVal++js_ResponseTypeBasic :: JSString+js_ResponseTypeBasic = "basic"+js_ResponseTypeCors :: JSString+js_ResponseTypeCors = "cors"+js_ResponseTypeDefault :: JSString+js_ResponseTypeDefault = "default"+js_ResponseTypeError :: JSString+js_ResponseTypeError = "error"+js_ResponseTypeOpaque :: JSString+js_ResponseTypeOpaque = "opaque"+js_ResponseTypeOpaqueredirect :: JSString+js_ResponseTypeOpaqueredirect = "opaqueredirect"++-- | <https://developer.mozilla.org/en-US/docs/Web/API RouterSourceEnum> (service-workers)+data RouterSourceEnum = RouterSourceEnumCache+ | RouterSourceEnumFetchEvent+ | RouterSourceEnumNetwork+ | RouterSourceEnumRaceNetworkAndFetchHandler+ deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal RouterSourceEnum where+ pToJSVal x = pToJSVal (case x of+ RouterSourceEnumCache -> js_RouterSourceEnumCache+ RouterSourceEnumFetchEvent -> js_RouterSourceEnumFetchEvent+ RouterSourceEnumNetwork -> js_RouterSourceEnumNetwork+ RouterSourceEnumRaceNetworkAndFetchHandler -> js_RouterSourceEnumRaceNetworkAndFetchHandler+ )++instance ToJSVal RouterSourceEnum where+ toJSVal = P.return . pToJSVal++instance PFromJSVal RouterSourceEnum where+ pFromJSVal x = P.maybe (P.error "Unexpected RouterSourceEnum value") P.id (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_RouterSourceEnumCache, RouterSourceEnumCache), (js_RouterSourceEnumFetchEvent, RouterSourceEnumFetchEvent), (js_RouterSourceEnumNetwork, RouterSourceEnumNetwork), (js_RouterSourceEnumRaceNetworkAndFetchHandler, RouterSourceEnumRaceNetworkAndFetchHandler)]++instance FromJSVal RouterSourceEnum where+ fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_RouterSourceEnumCache, RouterSourceEnumCache), (js_RouterSourceEnumFetchEvent, RouterSourceEnumFetchEvent), (js_RouterSourceEnumNetwork, RouterSourceEnumNetwork), (js_RouterSourceEnumRaceNetworkAndFetchHandler, RouterSourceEnumRaceNetworkAndFetchHandler)]+ fromJSValUnchecked = P.return . pFromJSVal++js_RouterSourceEnumCache :: JSString+js_RouterSourceEnumCache = "cache"+js_RouterSourceEnumFetchEvent :: JSString+js_RouterSourceEnumFetchEvent = "fetch-event"+js_RouterSourceEnumNetwork :: JSString+js_RouterSourceEnumNetwork = "network"+js_RouterSourceEnumRaceNetworkAndFetchHandler :: JSString+js_RouterSourceEnumRaceNetworkAndFetchHandler = "race-network-and-fetch-handler"++-- | <https://developer.mozilla.org/en-US/docs/Web/API RunningStatus> (service-workers)+data RunningStatus = RunningStatusRunning+ | RunningStatusNotRunning+ deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal RunningStatus where+ pToJSVal x = pToJSVal (case x of+ RunningStatusRunning -> js_RunningStatusRunning+ RunningStatusNotRunning -> js_RunningStatusNotRunning+ )++instance ToJSVal RunningStatus where+ toJSVal = P.return . pToJSVal++instance PFromJSVal RunningStatus where+ pFromJSVal x = P.maybe (P.error "Unexpected RunningStatus value") P.id (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_RunningStatusRunning, RunningStatusRunning), (js_RunningStatusNotRunning, RunningStatusNotRunning)]++instance FromJSVal RunningStatus where+ fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_RunningStatusRunning, RunningStatusRunning), (js_RunningStatusNotRunning, RunningStatusNotRunning)]+ fromJSValUnchecked = P.return . pFromJSVal++js_RunningStatusRunning :: JSString+js_RunningStatusRunning = "running"+js_RunningStatusNotRunning :: JSString+js_RunningStatusNotRunning = "not-running"++-- | <https://developer.mozilla.org/en-US/docs/Web/API SameSiteCookiesType> (saa-non-cookie-storage)+data SameSiteCookiesType = SameSiteCookiesTypeAll+ | SameSiteCookiesTypeNone+ deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal SameSiteCookiesType where+ pToJSVal x = pToJSVal (case x of+ SameSiteCookiesTypeAll -> js_SameSiteCookiesTypeAll+ SameSiteCookiesTypeNone -> js_SameSiteCookiesTypeNone+ )++instance ToJSVal SameSiteCookiesType where+ toJSVal = P.return . pToJSVal++instance PFromJSVal SameSiteCookiesType where+ pFromJSVal x = P.maybe (P.error "Unexpected SameSiteCookiesType value") P.id (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_SameSiteCookiesTypeAll, SameSiteCookiesTypeAll), (js_SameSiteCookiesTypeNone, SameSiteCookiesTypeNone)]++instance FromJSVal SameSiteCookiesType where+ fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_SameSiteCookiesTypeAll, SameSiteCookiesTypeAll), (js_SameSiteCookiesTypeNone, SameSiteCookiesTypeNone)]+ fromJSValUnchecked = P.return . pFromJSVal++js_SameSiteCookiesTypeAll :: JSString+js_SameSiteCookiesTypeAll = "all"+js_SameSiteCookiesTypeNone :: JSString+js_SameSiteCookiesTypeNone = "none"++-- | <https://developer.mozilla.org/en-US/docs/Web/API SanitizerPresets> (html)+data SanitizerPresets = SanitizerPresetsDefault+ deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal SanitizerPresets where+ pToJSVal x = pToJSVal (case x of+ SanitizerPresetsDefault -> js_SanitizerPresetsDefault+ )++instance ToJSVal SanitizerPresets where+ toJSVal = P.return . pToJSVal++instance PFromJSVal SanitizerPresets where+ pFromJSVal x = P.maybe (P.error "Unexpected SanitizerPresets value") P.id (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_SanitizerPresetsDefault, SanitizerPresetsDefault)]++instance FromJSVal SanitizerPresets where+ fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_SanitizerPresetsDefault, SanitizerPresetsDefault)]+ fromJSValUnchecked = P.return . pFromJSVal++js_SanitizerPresetsDefault :: JSString+js_SanitizerPresetsDefault = "default"++-- | <https://developer.mozilla.org/en-US/docs/Web/API ScrollAxis> (scroll-animations-1)+data ScrollAxis = ScrollAxisBlock+ | ScrollAxisInline+ | ScrollAxisX+ | ScrollAxisY+ deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal ScrollAxis where+ pToJSVal x = pToJSVal (case x of+ ScrollAxisBlock -> js_ScrollAxisBlock+ ScrollAxisInline -> js_ScrollAxisInline+ ScrollAxisX -> js_ScrollAxisX+ ScrollAxisY -> js_ScrollAxisY+ )++instance ToJSVal ScrollAxis where+ toJSVal = P.return . pToJSVal++instance PFromJSVal ScrollAxis where+ pFromJSVal x = P.maybe (P.error "Unexpected ScrollAxis value") P.id (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_ScrollAxisBlock, ScrollAxisBlock), (js_ScrollAxisInline, ScrollAxisInline), (js_ScrollAxisX, ScrollAxisX), (js_ScrollAxisY, ScrollAxisY)]++instance FromJSVal ScrollAxis where+ fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_ScrollAxisBlock, ScrollAxisBlock), (js_ScrollAxisInline, ScrollAxisInline), (js_ScrollAxisX, ScrollAxisX), (js_ScrollAxisY, ScrollAxisY)]+ fromJSValUnchecked = P.return . pFromJSVal++js_ScrollAxisBlock :: JSString+js_ScrollAxisBlock = "block"+js_ScrollAxisInline :: JSString+js_ScrollAxisInline = "inline"+js_ScrollAxisX :: JSString+js_ScrollAxisX = "x"+js_ScrollAxisY :: JSString+js_ScrollAxisY = "y"++-- | <https://developer.mozilla.org/en-US/docs/Web/API ScrollBehavior> (cssom-view-1)+data ScrollBehavior = ScrollBehaviorAuto+ | ScrollBehaviorInstant+ | ScrollBehaviorSmooth+ deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal ScrollBehavior where+ pToJSVal x = pToJSVal (case x of+ ScrollBehaviorAuto -> js_ScrollBehaviorAuto+ ScrollBehaviorInstant -> js_ScrollBehaviorInstant+ ScrollBehaviorSmooth -> js_ScrollBehaviorSmooth+ )++instance ToJSVal ScrollBehavior where+ toJSVal = P.return . pToJSVal++instance PFromJSVal ScrollBehavior where+ pFromJSVal x = P.maybe (P.error "Unexpected ScrollBehavior value") P.id (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_ScrollBehaviorAuto, ScrollBehaviorAuto), (js_ScrollBehaviorInstant, ScrollBehaviorInstant), (js_ScrollBehaviorSmooth, ScrollBehaviorSmooth)]++instance FromJSVal ScrollBehavior where+ fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_ScrollBehaviorAuto, ScrollBehaviorAuto), (js_ScrollBehaviorInstant, ScrollBehaviorInstant), (js_ScrollBehaviorSmooth, ScrollBehaviorSmooth)]+ fromJSValUnchecked = P.return . pFromJSVal++js_ScrollBehaviorAuto :: JSString+js_ScrollBehaviorAuto = "auto"+js_ScrollBehaviorInstant :: JSString+js_ScrollBehaviorInstant = "instant"+js_ScrollBehaviorSmooth :: JSString+js_ScrollBehaviorSmooth = "smooth"++-- | <https://developer.mozilla.org/en-US/docs/Web/API ScrollIntoViewContainer> (cssom-view-1)+data ScrollIntoViewContainer = ScrollIntoViewContainerAll+ | ScrollIntoViewContainerNearest+ deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal ScrollIntoViewContainer where+ pToJSVal x = pToJSVal (case x of+ ScrollIntoViewContainerAll -> js_ScrollIntoViewContainerAll+ ScrollIntoViewContainerNearest -> js_ScrollIntoViewContainerNearest+ )++instance ToJSVal ScrollIntoViewContainer where+ toJSVal = P.return . pToJSVal++instance PFromJSVal ScrollIntoViewContainer where+ pFromJSVal x = P.maybe (P.error "Unexpected ScrollIntoViewContainer value") P.id (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_ScrollIntoViewContainerAll, ScrollIntoViewContainerAll), (js_ScrollIntoViewContainerNearest, ScrollIntoViewContainerNearest)]++instance FromJSVal ScrollIntoViewContainer where+ fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_ScrollIntoViewContainerAll, ScrollIntoViewContainerAll), (js_ScrollIntoViewContainerNearest, ScrollIntoViewContainerNearest)]+ fromJSValUnchecked = P.return . pFromJSVal++js_ScrollIntoViewContainerAll :: JSString+js_ScrollIntoViewContainerAll = "all"+js_ScrollIntoViewContainerNearest :: JSString+js_ScrollIntoViewContainerNearest = "nearest"++-- | <https://developer.mozilla.org/en-US/docs/Web/API ScrollLogicalPosition> (cssom-view-1)+data ScrollLogicalPosition = ScrollLogicalPositionStart+ | ScrollLogicalPositionCenter+ | ScrollLogicalPositionEnd+ | ScrollLogicalPositionNearest+ deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal ScrollLogicalPosition where+ pToJSVal x = pToJSVal (case x of+ ScrollLogicalPositionStart -> js_ScrollLogicalPositionStart+ ScrollLogicalPositionCenter -> js_ScrollLogicalPositionCenter+ ScrollLogicalPositionEnd -> js_ScrollLogicalPositionEnd+ ScrollLogicalPositionNearest -> js_ScrollLogicalPositionNearest+ )++instance ToJSVal ScrollLogicalPosition where+ toJSVal = P.return . pToJSVal++instance PFromJSVal ScrollLogicalPosition where+ pFromJSVal x = P.maybe (P.error "Unexpected ScrollLogicalPosition value") P.id (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_ScrollLogicalPositionStart, ScrollLogicalPositionStart), (js_ScrollLogicalPositionCenter, ScrollLogicalPositionCenter), (js_ScrollLogicalPositionEnd, ScrollLogicalPositionEnd), (js_ScrollLogicalPositionNearest, ScrollLogicalPositionNearest)]++instance FromJSVal ScrollLogicalPosition where+ fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_ScrollLogicalPositionStart, ScrollLogicalPositionStart), (js_ScrollLogicalPositionCenter, ScrollLogicalPositionCenter), (js_ScrollLogicalPositionEnd, ScrollLogicalPositionEnd), (js_ScrollLogicalPositionNearest, ScrollLogicalPositionNearest)]+ fromJSValUnchecked = P.return . pFromJSVal++js_ScrollLogicalPositionStart :: JSString+js_ScrollLogicalPositionStart = "start"+js_ScrollLogicalPositionCenter :: JSString+js_ScrollLogicalPositionCenter = "center"+js_ScrollLogicalPositionEnd :: JSString+js_ScrollLogicalPositionEnd = "end"+js_ScrollLogicalPositionNearest :: JSString+js_ScrollLogicalPositionNearest = "nearest"++-- | <https://developer.mozilla.org/en-US/docs/Web/API ScrollRestoration> (html)+data ScrollRestoration = ScrollRestorationAuto+ | ScrollRestorationManual+ deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal ScrollRestoration where+ pToJSVal x = pToJSVal (case x of+ ScrollRestorationAuto -> js_ScrollRestorationAuto+ ScrollRestorationManual -> js_ScrollRestorationManual+ )++instance ToJSVal ScrollRestoration where+ toJSVal = P.return . pToJSVal++instance PFromJSVal ScrollRestoration where+ pFromJSVal x = P.maybe (P.error "Unexpected ScrollRestoration value") P.id (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_ScrollRestorationAuto, ScrollRestorationAuto), (js_ScrollRestorationManual, ScrollRestorationManual)]++instance FromJSVal ScrollRestoration where+ fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_ScrollRestorationAuto, ScrollRestorationAuto), (js_ScrollRestorationManual, ScrollRestorationManual)]+ fromJSValUnchecked = P.return . pFromJSVal++js_ScrollRestorationAuto :: JSString+js_ScrollRestorationAuto = "auto"+js_ScrollRestorationManual :: JSString+js_ScrollRestorationManual = "manual"++-- | <https://developer.mozilla.org/en-US/docs/Web/API ScrollSetting> (webvtt1)+data ScrollSetting = ScrollSetting+ | ScrollSettingUp+ deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal ScrollSetting where+ pToJSVal x = pToJSVal (case x of+ ScrollSetting -> js_ScrollSetting+ ScrollSettingUp -> js_ScrollSettingUp+ )++instance ToJSVal ScrollSetting where+ toJSVal = P.return . pToJSVal++instance PFromJSVal ScrollSetting where+ pFromJSVal x = P.maybe (P.error "Unexpected ScrollSetting value") P.id (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_ScrollSetting, ScrollSetting), (js_ScrollSettingUp, ScrollSettingUp)]++instance FromJSVal ScrollSetting where+ fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_ScrollSetting, ScrollSetting), (js_ScrollSettingUp, ScrollSettingUp)]+ fromJSValUnchecked = P.return . pFromJSVal++js_ScrollSetting :: JSString+js_ScrollSetting = ""+js_ScrollSettingUp :: JSString+js_ScrollSettingUp = "up"++-- | <https://developer.mozilla.org/en-US/docs/Web/API SecurityPolicyViolationEventDisposition> (CSP3)+data SecurityPolicyViolationEventDisposition = SecurityPolicyViolationEventDispositionEnforce+ | SecurityPolicyViolationEventDispositionReport+ deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal SecurityPolicyViolationEventDisposition where+ pToJSVal x = pToJSVal (case x of+ SecurityPolicyViolationEventDispositionEnforce -> js_SecurityPolicyViolationEventDispositionEnforce+ SecurityPolicyViolationEventDispositionReport -> js_SecurityPolicyViolationEventDispositionReport+ )++instance ToJSVal SecurityPolicyViolationEventDisposition where+ toJSVal = P.return . pToJSVal++instance PFromJSVal SecurityPolicyViolationEventDisposition where+ pFromJSVal x = P.maybe (P.error "Unexpected SecurityPolicyViolationEventDisposition value") P.id (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_SecurityPolicyViolationEventDispositionEnforce, SecurityPolicyViolationEventDispositionEnforce), (js_SecurityPolicyViolationEventDispositionReport, SecurityPolicyViolationEventDispositionReport)]++instance FromJSVal SecurityPolicyViolationEventDisposition where+ fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_SecurityPolicyViolationEventDispositionEnforce, SecurityPolicyViolationEventDispositionEnforce), (js_SecurityPolicyViolationEventDispositionReport, SecurityPolicyViolationEventDispositionReport)]+ fromJSValUnchecked = P.return . pFromJSVal++js_SecurityPolicyViolationEventDispositionEnforce :: JSString+js_SecurityPolicyViolationEventDispositionEnforce = "enforce"+js_SecurityPolicyViolationEventDispositionReport :: JSString+js_SecurityPolicyViolationEventDispositionReport = "report"++-- | <https://developer.mozilla.org/en-US/docs/Web/API SegmentType> (mediacapture-extensions)+data SegmentType = SegmentTypeHumanFace+ | SegmentTypeLeftEye+ | SegmentTypeRightEye+ | SegmentTypeEye+ | SegmentTypeMouth+ deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal SegmentType where+ pToJSVal x = pToJSVal (case x of+ SegmentTypeHumanFace -> js_SegmentTypeHumanFace+ SegmentTypeLeftEye -> js_SegmentTypeLeftEye+ SegmentTypeRightEye -> js_SegmentTypeRightEye+ SegmentTypeEye -> js_SegmentTypeEye+ SegmentTypeMouth -> js_SegmentTypeMouth+ )++instance ToJSVal SegmentType where+ toJSVal = P.return . pToJSVal++instance PFromJSVal SegmentType where+ pFromJSVal x = P.maybe (P.error "Unexpected SegmentType value") P.id (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_SegmentTypeHumanFace, SegmentTypeHumanFace), (js_SegmentTypeLeftEye, SegmentTypeLeftEye), (js_SegmentTypeRightEye, SegmentTypeRightEye), (js_SegmentTypeEye, SegmentTypeEye), (js_SegmentTypeMouth, SegmentTypeMouth)]++instance FromJSVal SegmentType where+ fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_SegmentTypeHumanFace, SegmentTypeHumanFace), (js_SegmentTypeLeftEye, SegmentTypeLeftEye), (js_SegmentTypeRightEye, SegmentTypeRightEye), (js_SegmentTypeEye, SegmentTypeEye), (js_SegmentTypeMouth, SegmentTypeMouth)]+ fromJSValUnchecked = P.return . pFromJSVal++js_SegmentTypeHumanFace :: JSString+js_SegmentTypeHumanFace = "human-face"+js_SegmentTypeLeftEye :: JSString+js_SegmentTypeLeftEye = "left-eye"+js_SegmentTypeRightEye :: JSString+js_SegmentTypeRightEye = "right-eye"+js_SegmentTypeEye :: JSString+js_SegmentTypeEye = "eye"+js_SegmentTypeMouth :: JSString+js_SegmentTypeMouth = "mouth"++-- | <https://developer.mozilla.org/en-US/docs/Web/API SelectionMode> (html)+data SelectionMode = SelectionModeSelect+ | SelectionModeStart+ | SelectionModeEnd+ | SelectionModePreserve+ deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal SelectionMode where+ pToJSVal x = pToJSVal (case x of+ SelectionModeSelect -> js_SelectionModeSelect+ SelectionModeStart -> js_SelectionModeStart+ SelectionModeEnd -> js_SelectionModeEnd+ SelectionModePreserve -> js_SelectionModePreserve+ )++instance ToJSVal SelectionMode where+ toJSVal = P.return . pToJSVal++instance PFromJSVal SelectionMode where+ pFromJSVal x = P.maybe (P.error "Unexpected SelectionMode value") P.id (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_SelectionModeSelect, SelectionModeSelect), (js_SelectionModeStart, SelectionModeStart), (js_SelectionModeEnd, SelectionModeEnd), (js_SelectionModePreserve, SelectionModePreserve)]++instance FromJSVal SelectionMode where+ fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_SelectionModeSelect, SelectionModeSelect), (js_SelectionModeStart, SelectionModeStart), (js_SelectionModeEnd, SelectionModeEnd), (js_SelectionModePreserve, SelectionModePreserve)]+ fromJSValUnchecked = P.return . pFromJSVal++js_SelectionModeSelect :: JSString+js_SelectionModeSelect = "select"+js_SelectionModeStart :: JSString+js_SelectionModeStart = "start"+js_SelectionModeEnd :: JSString+js_SelectionModeEnd = "end"+js_SelectionModePreserve :: JSString+js_SelectionModePreserve = "preserve"++-- | <https://developer.mozilla.org/en-US/docs/Web/API SelfCapturePreferenceEnum> (screen-capture)+data SelfCapturePreferenceEnum = SelfCapturePreferenceEnumInclude+ | SelfCapturePreferenceEnumExclude+ deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal SelfCapturePreferenceEnum where+ pToJSVal x = pToJSVal (case x of+ SelfCapturePreferenceEnumInclude -> js_SelfCapturePreferenceEnumInclude+ SelfCapturePreferenceEnumExclude -> js_SelfCapturePreferenceEnumExclude+ )++instance ToJSVal SelfCapturePreferenceEnum where+ toJSVal = P.return . pToJSVal++instance PFromJSVal SelfCapturePreferenceEnum where+ pFromJSVal x = P.maybe (P.error "Unexpected SelfCapturePreferenceEnum value") P.id (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_SelfCapturePreferenceEnumInclude, SelfCapturePreferenceEnumInclude), (js_SelfCapturePreferenceEnumExclude, SelfCapturePreferenceEnumExclude)]++instance FromJSVal SelfCapturePreferenceEnum where+ fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_SelfCapturePreferenceEnumInclude, SelfCapturePreferenceEnumInclude), (js_SelfCapturePreferenceEnumExclude, SelfCapturePreferenceEnumExclude)]+ fromJSValUnchecked = P.return . pFromJSVal++js_SelfCapturePreferenceEnumInclude :: JSString+js_SelfCapturePreferenceEnumInclude = "include"+js_SelfCapturePreferenceEnumExclude :: JSString+js_SelfCapturePreferenceEnumExclude = "exclude"++-- | <https://developer.mozilla.org/en-US/docs/Web/API ServiceWorkerState> (service-workers)+data ServiceWorkerState = ServiceWorkerStateParsed+ | ServiceWorkerStateInstalling+ | ServiceWorkerStateInstalled+ | ServiceWorkerStateActivating+ | ServiceWorkerStateActivated+ | ServiceWorkerStateRedundant+ deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal ServiceWorkerState where+ pToJSVal x = pToJSVal (case x of+ ServiceWorkerStateParsed -> js_ServiceWorkerStateParsed+ ServiceWorkerStateInstalling -> js_ServiceWorkerStateInstalling+ ServiceWorkerStateInstalled -> js_ServiceWorkerStateInstalled+ ServiceWorkerStateActivating -> js_ServiceWorkerStateActivating+ ServiceWorkerStateActivated -> js_ServiceWorkerStateActivated+ ServiceWorkerStateRedundant -> js_ServiceWorkerStateRedundant+ )++instance ToJSVal ServiceWorkerState where+ toJSVal = P.return . pToJSVal++instance PFromJSVal ServiceWorkerState where+ pFromJSVal x = P.maybe (P.error "Unexpected ServiceWorkerState value") P.id (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_ServiceWorkerStateParsed, ServiceWorkerStateParsed), (js_ServiceWorkerStateInstalling, ServiceWorkerStateInstalling), (js_ServiceWorkerStateInstalled, ServiceWorkerStateInstalled), (js_ServiceWorkerStateActivating, ServiceWorkerStateActivating), (js_ServiceWorkerStateActivated, ServiceWorkerStateActivated), (js_ServiceWorkerStateRedundant, ServiceWorkerStateRedundant)]++instance FromJSVal ServiceWorkerState where+ fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_ServiceWorkerStateParsed, ServiceWorkerStateParsed), (js_ServiceWorkerStateInstalling, ServiceWorkerStateInstalling), (js_ServiceWorkerStateInstalled, ServiceWorkerStateInstalled), (js_ServiceWorkerStateActivating, ServiceWorkerStateActivating), (js_ServiceWorkerStateActivated, ServiceWorkerStateActivated), (js_ServiceWorkerStateRedundant, ServiceWorkerStateRedundant)]+ fromJSValUnchecked = P.return . pFromJSVal++js_ServiceWorkerStateParsed :: JSString+js_ServiceWorkerStateParsed = "parsed"+js_ServiceWorkerStateInstalling :: JSString+js_ServiceWorkerStateInstalling = "installing"+js_ServiceWorkerStateInstalled :: JSString+js_ServiceWorkerStateInstalled = "installed"+js_ServiceWorkerStateActivating :: JSString+js_ServiceWorkerStateActivating = "activating"+js_ServiceWorkerStateActivated :: JSString+js_ServiceWorkerStateActivated = "activated"+js_ServiceWorkerStateRedundant :: JSString+js_ServiceWorkerStateRedundant = "redundant"++-- | <https://developer.mozilla.org/en-US/docs/Web/API ServiceWorkerUpdateViaCache> (service-workers)+data ServiceWorkerUpdateViaCache = ServiceWorkerUpdateViaCacheImports+ | ServiceWorkerUpdateViaCacheAll+ | ServiceWorkerUpdateViaCacheNone+ deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal ServiceWorkerUpdateViaCache where+ pToJSVal x = pToJSVal (case x of+ ServiceWorkerUpdateViaCacheImports -> js_ServiceWorkerUpdateViaCacheImports+ ServiceWorkerUpdateViaCacheAll -> js_ServiceWorkerUpdateViaCacheAll+ ServiceWorkerUpdateViaCacheNone -> js_ServiceWorkerUpdateViaCacheNone+ )++instance ToJSVal ServiceWorkerUpdateViaCache where+ toJSVal = P.return . pToJSVal++instance PFromJSVal ServiceWorkerUpdateViaCache where+ pFromJSVal x = P.maybe (P.error "Unexpected ServiceWorkerUpdateViaCache value") P.id (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_ServiceWorkerUpdateViaCacheImports, ServiceWorkerUpdateViaCacheImports), (js_ServiceWorkerUpdateViaCacheAll, ServiceWorkerUpdateViaCacheAll), (js_ServiceWorkerUpdateViaCacheNone, ServiceWorkerUpdateViaCacheNone)]++instance FromJSVal ServiceWorkerUpdateViaCache where+ fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_ServiceWorkerUpdateViaCacheImports, ServiceWorkerUpdateViaCacheImports), (js_ServiceWorkerUpdateViaCacheAll, ServiceWorkerUpdateViaCacheAll), (js_ServiceWorkerUpdateViaCacheNone, ServiceWorkerUpdateViaCacheNone)]+ fromJSValUnchecked = P.return . pFromJSVal++js_ServiceWorkerUpdateViaCacheImports :: JSString+js_ServiceWorkerUpdateViaCacheImports = "imports"+js_ServiceWorkerUpdateViaCacheAll :: JSString+js_ServiceWorkerUpdateViaCacheAll = "all"+js_ServiceWorkerUpdateViaCacheNone :: JSString+js_ServiceWorkerUpdateViaCacheNone = "none"++-- | <https://developer.mozilla.org/en-US/docs/Web/API ShadowRootMode> (dom)+data ShadowRootMode = ShadowRootModeOpen+ | ShadowRootModeClosed+ deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal ShadowRootMode where+ pToJSVal x = pToJSVal (case x of+ ShadowRootModeOpen -> js_ShadowRootModeOpen+ ShadowRootModeClosed -> js_ShadowRootModeClosed+ )++instance ToJSVal ShadowRootMode where+ toJSVal = P.return . pToJSVal++instance PFromJSVal ShadowRootMode where+ pFromJSVal x = P.maybe (P.error "Unexpected ShadowRootMode value") P.id (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_ShadowRootModeOpen, ShadowRootModeOpen), (js_ShadowRootModeClosed, ShadowRootModeClosed)]++instance FromJSVal ShadowRootMode where+ fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_ShadowRootModeOpen, ShadowRootModeOpen), (js_ShadowRootModeClosed, ShadowRootModeClosed)]+ fromJSValUnchecked = P.return . pFromJSVal++js_ShadowRootModeOpen :: JSString+js_ShadowRootModeOpen = "open"+js_ShadowRootModeClosed :: JSString+js_ShadowRootModeClosed = "closed"++-- | <https://developer.mozilla.org/en-US/docs/Web/API SlotAssignmentMode> (dom)+data SlotAssignmentMode = SlotAssignmentModeManual+ | SlotAssignmentModeNamed+ deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal SlotAssignmentMode where+ pToJSVal x = pToJSVal (case x of+ SlotAssignmentModeManual -> js_SlotAssignmentModeManual+ SlotAssignmentModeNamed -> js_SlotAssignmentModeNamed+ )++instance ToJSVal SlotAssignmentMode where+ toJSVal = P.return . pToJSVal++instance PFromJSVal SlotAssignmentMode where+ pFromJSVal x = P.maybe (P.error "Unexpected SlotAssignmentMode value") P.id (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_SlotAssignmentModeManual, SlotAssignmentModeManual), (js_SlotAssignmentModeNamed, SlotAssignmentModeNamed)]++instance FromJSVal SlotAssignmentMode where+ fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_SlotAssignmentModeManual, SlotAssignmentModeManual), (js_SlotAssignmentModeNamed, SlotAssignmentModeNamed)]+ fromJSValUnchecked = P.return . pFromJSVal++js_SlotAssignmentModeManual :: JSString+js_SlotAssignmentModeManual = "manual"+js_SlotAssignmentModeNamed :: JSString+js_SlotAssignmentModeNamed = "named"++-- | <https://developer.mozilla.org/en-US/docs/Web/API SpeechRecognitionAvailabilityStatus> (speech-api)+data SpeechRecognitionAvailabilityStatus = SpeechRecognitionAvailabilityStatusUnavailable+ | SpeechRecognitionAvailabilityStatusDownloadable+ | SpeechRecognitionAvailabilityStatusDownloading+ | SpeechRecognitionAvailabilityStatusAvailable+ deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal SpeechRecognitionAvailabilityStatus where+ pToJSVal x = pToJSVal (case x of+ SpeechRecognitionAvailabilityStatusUnavailable -> js_SpeechRecognitionAvailabilityStatusUnavailable+ SpeechRecognitionAvailabilityStatusDownloadable -> js_SpeechRecognitionAvailabilityStatusDownloadable+ SpeechRecognitionAvailabilityStatusDownloading -> js_SpeechRecognitionAvailabilityStatusDownloading+ SpeechRecognitionAvailabilityStatusAvailable -> js_SpeechRecognitionAvailabilityStatusAvailable+ )++instance ToJSVal SpeechRecognitionAvailabilityStatus where+ toJSVal = P.return . pToJSVal++instance PFromJSVal SpeechRecognitionAvailabilityStatus where+ pFromJSVal x = P.maybe (P.error "Unexpected SpeechRecognitionAvailabilityStatus value") P.id (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_SpeechRecognitionAvailabilityStatusUnavailable, SpeechRecognitionAvailabilityStatusUnavailable), (js_SpeechRecognitionAvailabilityStatusDownloadable, SpeechRecognitionAvailabilityStatusDownloadable), (js_SpeechRecognitionAvailabilityStatusDownloading, SpeechRecognitionAvailabilityStatusDownloading), (js_SpeechRecognitionAvailabilityStatusAvailable, SpeechRecognitionAvailabilityStatusAvailable)]++instance FromJSVal SpeechRecognitionAvailabilityStatus where+ fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_SpeechRecognitionAvailabilityStatusUnavailable, SpeechRecognitionAvailabilityStatusUnavailable), (js_SpeechRecognitionAvailabilityStatusDownloadable, SpeechRecognitionAvailabilityStatusDownloadable), (js_SpeechRecognitionAvailabilityStatusDownloading, SpeechRecognitionAvailabilityStatusDownloading), (js_SpeechRecognitionAvailabilityStatusAvailable, SpeechRecognitionAvailabilityStatusAvailable)]+ fromJSValUnchecked = P.return . pFromJSVal++js_SpeechRecognitionAvailabilityStatusUnavailable :: JSString+js_SpeechRecognitionAvailabilityStatusUnavailable = "unavailable"+js_SpeechRecognitionAvailabilityStatusDownloadable :: JSString+js_SpeechRecognitionAvailabilityStatusDownloadable = "downloadable"+js_SpeechRecognitionAvailabilityStatusDownloading :: JSString+js_SpeechRecognitionAvailabilityStatusDownloading = "downloading"+js_SpeechRecognitionAvailabilityStatusAvailable :: JSString+js_SpeechRecognitionAvailabilityStatusAvailable = "available"++-- | <https://developer.mozilla.org/en-US/docs/Web/API SpeechRecognitionErrorCode> (speech-api)+data SpeechRecognitionErrorCode = SpeechRecognitionErrorCodeNoSpeech+ | SpeechRecognitionErrorCodeAborted+ | SpeechRecognitionErrorCodeAudioCapture+ | SpeechRecognitionErrorCodeNetwork+ | SpeechRecognitionErrorCodeNotAllowed+ | SpeechRecognitionErrorCodeServiceNotAllowed+ | SpeechRecognitionErrorCodeLanguageNotSupported+ | SpeechRecognitionErrorCodePhrasesNotSupported+ deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal SpeechRecognitionErrorCode where+ pToJSVal x = pToJSVal (case x of+ SpeechRecognitionErrorCodeNoSpeech -> js_SpeechRecognitionErrorCodeNoSpeech+ SpeechRecognitionErrorCodeAborted -> js_SpeechRecognitionErrorCodeAborted+ SpeechRecognitionErrorCodeAudioCapture -> js_SpeechRecognitionErrorCodeAudioCapture+ SpeechRecognitionErrorCodeNetwork -> js_SpeechRecognitionErrorCodeNetwork+ SpeechRecognitionErrorCodeNotAllowed -> js_SpeechRecognitionErrorCodeNotAllowed+ SpeechRecognitionErrorCodeServiceNotAllowed -> js_SpeechRecognitionErrorCodeServiceNotAllowed+ SpeechRecognitionErrorCodeLanguageNotSupported -> js_SpeechRecognitionErrorCodeLanguageNotSupported+ SpeechRecognitionErrorCodePhrasesNotSupported -> js_SpeechRecognitionErrorCodePhrasesNotSupported+ )++instance ToJSVal SpeechRecognitionErrorCode where+ toJSVal = P.return . pToJSVal++instance PFromJSVal SpeechRecognitionErrorCode where+ pFromJSVal x = P.maybe (P.error "Unexpected SpeechRecognitionErrorCode value") P.id (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_SpeechRecognitionErrorCodeNoSpeech, SpeechRecognitionErrorCodeNoSpeech), (js_SpeechRecognitionErrorCodeAborted, SpeechRecognitionErrorCodeAborted), (js_SpeechRecognitionErrorCodeAudioCapture, SpeechRecognitionErrorCodeAudioCapture), (js_SpeechRecognitionErrorCodeNetwork, SpeechRecognitionErrorCodeNetwork), (js_SpeechRecognitionErrorCodeNotAllowed, SpeechRecognitionErrorCodeNotAllowed), (js_SpeechRecognitionErrorCodeServiceNotAllowed, SpeechRecognitionErrorCodeServiceNotAllowed), (js_SpeechRecognitionErrorCodeLanguageNotSupported, SpeechRecognitionErrorCodeLanguageNotSupported), (js_SpeechRecognitionErrorCodePhrasesNotSupported, SpeechRecognitionErrorCodePhrasesNotSupported)]++instance FromJSVal SpeechRecognitionErrorCode where+ fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_SpeechRecognitionErrorCodeNoSpeech, SpeechRecognitionErrorCodeNoSpeech), (js_SpeechRecognitionErrorCodeAborted, SpeechRecognitionErrorCodeAborted), (js_SpeechRecognitionErrorCodeAudioCapture, SpeechRecognitionErrorCodeAudioCapture), (js_SpeechRecognitionErrorCodeNetwork, SpeechRecognitionErrorCodeNetwork), (js_SpeechRecognitionErrorCodeNotAllowed, SpeechRecognitionErrorCodeNotAllowed), (js_SpeechRecognitionErrorCodeServiceNotAllowed, SpeechRecognitionErrorCodeServiceNotAllowed), (js_SpeechRecognitionErrorCodeLanguageNotSupported, SpeechRecognitionErrorCodeLanguageNotSupported), (js_SpeechRecognitionErrorCodePhrasesNotSupported, SpeechRecognitionErrorCodePhrasesNotSupported)]+ fromJSValUnchecked = P.return . pFromJSVal++js_SpeechRecognitionErrorCodeNoSpeech :: JSString+js_SpeechRecognitionErrorCodeNoSpeech = "no-speech"+js_SpeechRecognitionErrorCodeAborted :: JSString+js_SpeechRecognitionErrorCodeAborted = "aborted"+js_SpeechRecognitionErrorCodeAudioCapture :: JSString+js_SpeechRecognitionErrorCodeAudioCapture = "audio-capture"+js_SpeechRecognitionErrorCodeNetwork :: JSString+js_SpeechRecognitionErrorCodeNetwork = "network"+js_SpeechRecognitionErrorCodeNotAllowed :: JSString+js_SpeechRecognitionErrorCodeNotAllowed = "not-allowed"+js_SpeechRecognitionErrorCodeServiceNotAllowed :: JSString+js_SpeechRecognitionErrorCodeServiceNotAllowed = "service-not-allowed"+js_SpeechRecognitionErrorCodeLanguageNotSupported :: JSString+js_SpeechRecognitionErrorCodeLanguageNotSupported = "language-not-supported"+js_SpeechRecognitionErrorCodePhrasesNotSupported :: JSString+js_SpeechRecognitionErrorCodePhrasesNotSupported = "phrases-not-supported"++-- | <https://developer.mozilla.org/en-US/docs/Web/API SpeechRecognitionQuality> (speech-api)+data SpeechRecognitionQuality = SpeechRecognitionQualityCommand+ | SpeechRecognitionQualityDictation+ | SpeechRecognitionQualityConversation+ deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal SpeechRecognitionQuality where+ pToJSVal x = pToJSVal (case x of+ SpeechRecognitionQualityCommand -> js_SpeechRecognitionQualityCommand+ SpeechRecognitionQualityDictation -> js_SpeechRecognitionQualityDictation+ SpeechRecognitionQualityConversation -> js_SpeechRecognitionQualityConversation+ )++instance ToJSVal SpeechRecognitionQuality where+ toJSVal = P.return . pToJSVal++instance PFromJSVal SpeechRecognitionQuality where+ pFromJSVal x = P.maybe (P.error "Unexpected SpeechRecognitionQuality value") P.id (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_SpeechRecognitionQualityCommand, SpeechRecognitionQualityCommand), (js_SpeechRecognitionQualityDictation, SpeechRecognitionQualityDictation), (js_SpeechRecognitionQualityConversation, SpeechRecognitionQualityConversation)]++instance FromJSVal SpeechRecognitionQuality where+ fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_SpeechRecognitionQualityCommand, SpeechRecognitionQualityCommand), (js_SpeechRecognitionQualityDictation, SpeechRecognitionQualityDictation), (js_SpeechRecognitionQualityConversation, SpeechRecognitionQualityConversation)]+ fromJSValUnchecked = P.return . pFromJSVal++js_SpeechRecognitionQualityCommand :: JSString+js_SpeechRecognitionQualityCommand = "command"+js_SpeechRecognitionQualityDictation :: JSString+js_SpeechRecognitionQualityDictation = "dictation"+js_SpeechRecognitionQualityConversation :: JSString+js_SpeechRecognitionQualityConversation = "conversation"++-- | <https://developer.mozilla.org/en-US/docs/Web/API SpeechSynthesisErrorCode> (speech-api)+data SpeechSynthesisErrorCode = SpeechSynthesisErrorCodeCanceled+ | SpeechSynthesisErrorCodeInterrupted+ | SpeechSynthesisErrorCodeAudioBusy+ | SpeechSynthesisErrorCodeAudioHardware+ | SpeechSynthesisErrorCodeNetwork+ | SpeechSynthesisErrorCodeSynthesisUnavailable+ | SpeechSynthesisErrorCodeSynthesisFailed+ | SpeechSynthesisErrorCodeLanguageUnavailable+ | SpeechSynthesisErrorCodeVoiceUnavailable+ | SpeechSynthesisErrorCodeTextTooLong+ | SpeechSynthesisErrorCodeInvalidArgument+ | SpeechSynthesisErrorCodeNotAllowed+ deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal SpeechSynthesisErrorCode where+ pToJSVal x = pToJSVal (case x of+ SpeechSynthesisErrorCodeCanceled -> js_SpeechSynthesisErrorCodeCanceled+ SpeechSynthesisErrorCodeInterrupted -> js_SpeechSynthesisErrorCodeInterrupted+ SpeechSynthesisErrorCodeAudioBusy -> js_SpeechSynthesisErrorCodeAudioBusy+ SpeechSynthesisErrorCodeAudioHardware -> js_SpeechSynthesisErrorCodeAudioHardware+ SpeechSynthesisErrorCodeNetwork -> js_SpeechSynthesisErrorCodeNetwork+ SpeechSynthesisErrorCodeSynthesisUnavailable -> js_SpeechSynthesisErrorCodeSynthesisUnavailable+ SpeechSynthesisErrorCodeSynthesisFailed -> js_SpeechSynthesisErrorCodeSynthesisFailed+ SpeechSynthesisErrorCodeLanguageUnavailable -> js_SpeechSynthesisErrorCodeLanguageUnavailable+ SpeechSynthesisErrorCodeVoiceUnavailable -> js_SpeechSynthesisErrorCodeVoiceUnavailable+ SpeechSynthesisErrorCodeTextTooLong -> js_SpeechSynthesisErrorCodeTextTooLong+ SpeechSynthesisErrorCodeInvalidArgument -> js_SpeechSynthesisErrorCodeInvalidArgument+ SpeechSynthesisErrorCodeNotAllowed -> js_SpeechSynthesisErrorCodeNotAllowed+ )++instance ToJSVal SpeechSynthesisErrorCode where+ toJSVal = P.return . pToJSVal++instance PFromJSVal SpeechSynthesisErrorCode where+ pFromJSVal x = P.maybe (P.error "Unexpected SpeechSynthesisErrorCode value") P.id (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_SpeechSynthesisErrorCodeCanceled, SpeechSynthesisErrorCodeCanceled), (js_SpeechSynthesisErrorCodeInterrupted, SpeechSynthesisErrorCodeInterrupted), (js_SpeechSynthesisErrorCodeAudioBusy, SpeechSynthesisErrorCodeAudioBusy), (js_SpeechSynthesisErrorCodeAudioHardware, SpeechSynthesisErrorCodeAudioHardware), (js_SpeechSynthesisErrorCodeNetwork, SpeechSynthesisErrorCodeNetwork), (js_SpeechSynthesisErrorCodeSynthesisUnavailable, SpeechSynthesisErrorCodeSynthesisUnavailable), (js_SpeechSynthesisErrorCodeSynthesisFailed, SpeechSynthesisErrorCodeSynthesisFailed), (js_SpeechSynthesisErrorCodeLanguageUnavailable, SpeechSynthesisErrorCodeLanguageUnavailable), (js_SpeechSynthesisErrorCodeVoiceUnavailable, SpeechSynthesisErrorCodeVoiceUnavailable), (js_SpeechSynthesisErrorCodeTextTooLong, SpeechSynthesisErrorCodeTextTooLong), (js_SpeechSynthesisErrorCodeInvalidArgument, SpeechSynthesisErrorCodeInvalidArgument), (js_SpeechSynthesisErrorCodeNotAllowed, SpeechSynthesisErrorCodeNotAllowed)]++instance FromJSVal SpeechSynthesisErrorCode where+ fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_SpeechSynthesisErrorCodeCanceled, SpeechSynthesisErrorCodeCanceled), (js_SpeechSynthesisErrorCodeInterrupted, SpeechSynthesisErrorCodeInterrupted), (js_SpeechSynthesisErrorCodeAudioBusy, SpeechSynthesisErrorCodeAudioBusy), (js_SpeechSynthesisErrorCodeAudioHardware, SpeechSynthesisErrorCodeAudioHardware), (js_SpeechSynthesisErrorCodeNetwork, SpeechSynthesisErrorCodeNetwork), (js_SpeechSynthesisErrorCodeSynthesisUnavailable, SpeechSynthesisErrorCodeSynthesisUnavailable), (js_SpeechSynthesisErrorCodeSynthesisFailed, SpeechSynthesisErrorCodeSynthesisFailed), (js_SpeechSynthesisErrorCodeLanguageUnavailable, SpeechSynthesisErrorCodeLanguageUnavailable), (js_SpeechSynthesisErrorCodeVoiceUnavailable, SpeechSynthesisErrorCodeVoiceUnavailable), (js_SpeechSynthesisErrorCodeTextTooLong, SpeechSynthesisErrorCodeTextTooLong), (js_SpeechSynthesisErrorCodeInvalidArgument, SpeechSynthesisErrorCodeInvalidArgument), (js_SpeechSynthesisErrorCodeNotAllowed, SpeechSynthesisErrorCodeNotAllowed)]+ fromJSValUnchecked = P.return . pFromJSVal++js_SpeechSynthesisErrorCodeCanceled :: JSString+js_SpeechSynthesisErrorCodeCanceled = "canceled"+js_SpeechSynthesisErrorCodeInterrupted :: JSString+js_SpeechSynthesisErrorCodeInterrupted = "interrupted"+js_SpeechSynthesisErrorCodeAudioBusy :: JSString+js_SpeechSynthesisErrorCodeAudioBusy = "audio-busy"+js_SpeechSynthesisErrorCodeAudioHardware :: JSString+js_SpeechSynthesisErrorCodeAudioHardware = "audio-hardware"+js_SpeechSynthesisErrorCodeNetwork :: JSString+js_SpeechSynthesisErrorCodeNetwork = "network"+js_SpeechSynthesisErrorCodeSynthesisUnavailable :: JSString+js_SpeechSynthesisErrorCodeSynthesisUnavailable = "synthesis-unavailable"+js_SpeechSynthesisErrorCodeSynthesisFailed :: JSString+js_SpeechSynthesisErrorCodeSynthesisFailed = "synthesis-failed"+js_SpeechSynthesisErrorCodeLanguageUnavailable :: JSString+js_SpeechSynthesisErrorCodeLanguageUnavailable = "language-unavailable"+js_SpeechSynthesisErrorCodeVoiceUnavailable :: JSString+js_SpeechSynthesisErrorCodeVoiceUnavailable = "voice-unavailable"+js_SpeechSynthesisErrorCodeTextTooLong :: JSString+js_SpeechSynthesisErrorCodeTextTooLong = "text-too-long"+js_SpeechSynthesisErrorCodeInvalidArgument :: JSString+js_SpeechSynthesisErrorCodeInvalidArgument = "invalid-argument"+js_SpeechSynthesisErrorCodeNotAllowed :: JSString+js_SpeechSynthesisErrorCodeNotAllowed = "not-allowed"++-- | <https://developer.mozilla.org/en-US/docs/Web/API SurfaceSwitchingPreferenceEnum> (screen-capture)+data SurfaceSwitchingPreferenceEnum = SurfaceSwitchingPreferenceEnumInclude+ | SurfaceSwitchingPreferenceEnumExclude+ deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal SurfaceSwitchingPreferenceEnum where+ pToJSVal x = pToJSVal (case x of+ SurfaceSwitchingPreferenceEnumInclude -> js_SurfaceSwitchingPreferenceEnumInclude+ SurfaceSwitchingPreferenceEnumExclude -> js_SurfaceSwitchingPreferenceEnumExclude+ )++instance ToJSVal SurfaceSwitchingPreferenceEnum where+ toJSVal = P.return . pToJSVal++instance PFromJSVal SurfaceSwitchingPreferenceEnum where+ pFromJSVal x = P.maybe (P.error "Unexpected SurfaceSwitchingPreferenceEnum value") P.id (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_SurfaceSwitchingPreferenceEnumInclude, SurfaceSwitchingPreferenceEnumInclude), (js_SurfaceSwitchingPreferenceEnumExclude, SurfaceSwitchingPreferenceEnumExclude)]++instance FromJSVal SurfaceSwitchingPreferenceEnum where+ fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_SurfaceSwitchingPreferenceEnumInclude, SurfaceSwitchingPreferenceEnumInclude), (js_SurfaceSwitchingPreferenceEnumExclude, SurfaceSwitchingPreferenceEnumExclude)]+ fromJSValUnchecked = P.return . pFromJSVal++js_SurfaceSwitchingPreferenceEnumInclude :: JSString+js_SurfaceSwitchingPreferenceEnumInclude = "include"+js_SurfaceSwitchingPreferenceEnumExclude :: JSString+js_SurfaceSwitchingPreferenceEnumExclude = "exclude"++-- | <https://developer.mozilla.org/en-US/docs/Web/API SystemAudioPreferenceEnum> (screen-capture)+data SystemAudioPreferenceEnum = SystemAudioPreferenceEnumInclude+ | SystemAudioPreferenceEnumExclude+ deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal SystemAudioPreferenceEnum where+ pToJSVal x = pToJSVal (case x of+ SystemAudioPreferenceEnumInclude -> js_SystemAudioPreferenceEnumInclude+ SystemAudioPreferenceEnumExclude -> js_SystemAudioPreferenceEnumExclude+ )++instance ToJSVal SystemAudioPreferenceEnum where+ toJSVal = P.return . pToJSVal++instance PFromJSVal SystemAudioPreferenceEnum where+ pFromJSVal x = P.maybe (P.error "Unexpected SystemAudioPreferenceEnum value") P.id (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_SystemAudioPreferenceEnumInclude, SystemAudioPreferenceEnumInclude), (js_SystemAudioPreferenceEnumExclude, SystemAudioPreferenceEnumExclude)]++instance FromJSVal SystemAudioPreferenceEnum where+ fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_SystemAudioPreferenceEnumInclude, SystemAudioPreferenceEnumInclude), (js_SystemAudioPreferenceEnumExclude, SystemAudioPreferenceEnumExclude)]+ fromJSValUnchecked = P.return . pFromJSVal++js_SystemAudioPreferenceEnumInclude :: JSString+js_SystemAudioPreferenceEnumInclude = "include"+js_SystemAudioPreferenceEnumExclude :: JSString+js_SystemAudioPreferenceEnumExclude = "exclude"++-- | <https://developer.mozilla.org/en-US/docs/Web/API TaskPriority> (scheduling-apis)+data TaskPriority = TaskPriorityUserBlocking+ | TaskPriorityUserVisible+ | TaskPriorityBackground+ deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal TaskPriority where+ pToJSVal x = pToJSVal (case x of+ TaskPriorityUserBlocking -> js_TaskPriorityUserBlocking+ TaskPriorityUserVisible -> js_TaskPriorityUserVisible+ TaskPriorityBackground -> js_TaskPriorityBackground+ )++instance ToJSVal TaskPriority where+ toJSVal = P.return . pToJSVal++instance PFromJSVal TaskPriority where+ pFromJSVal x = P.maybe (P.error "Unexpected TaskPriority value") P.id (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_TaskPriorityUserBlocking, TaskPriorityUserBlocking), (js_TaskPriorityUserVisible, TaskPriorityUserVisible), (js_TaskPriorityBackground, TaskPriorityBackground)]++instance FromJSVal TaskPriority where+ fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_TaskPriorityUserBlocking, TaskPriorityUserBlocking), (js_TaskPriorityUserVisible, TaskPriorityUserVisible), (js_TaskPriorityBackground, TaskPriorityBackground)]+ fromJSValUnchecked = P.return . pFromJSVal++js_TaskPriorityUserBlocking :: JSString+js_TaskPriorityUserBlocking = "user-blocking"+js_TaskPriorityUserVisible :: JSString+js_TaskPriorityUserVisible = "user-visible"+js_TaskPriorityBackground :: JSString+js_TaskPriorityBackground = "background"++-- | <https://developer.mozilla.org/en-US/docs/Web/API TextTrackKind> (html)+data TextTrackKind = TextTrackKindSubtitles+ | TextTrackKindCaptions+ | TextTrackKindDescriptions+ | TextTrackKindChapters+ | TextTrackKindMetadata+ deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal TextTrackKind where+ pToJSVal x = pToJSVal (case x of+ TextTrackKindSubtitles -> js_TextTrackKindSubtitles+ TextTrackKindCaptions -> js_TextTrackKindCaptions+ TextTrackKindDescriptions -> js_TextTrackKindDescriptions+ TextTrackKindChapters -> js_TextTrackKindChapters+ TextTrackKindMetadata -> js_TextTrackKindMetadata+ )++instance ToJSVal TextTrackKind where+ toJSVal = P.return . pToJSVal++instance PFromJSVal TextTrackKind where+ pFromJSVal x = P.maybe (P.error "Unexpected TextTrackKind value") P.id (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_TextTrackKindSubtitles, TextTrackKindSubtitles), (js_TextTrackKindCaptions, TextTrackKindCaptions), (js_TextTrackKindDescriptions, TextTrackKindDescriptions), (js_TextTrackKindChapters, TextTrackKindChapters), (js_TextTrackKindMetadata, TextTrackKindMetadata)]++instance FromJSVal TextTrackKind where+ fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_TextTrackKindSubtitles, TextTrackKindSubtitles), (js_TextTrackKindCaptions, TextTrackKindCaptions), (js_TextTrackKindDescriptions, TextTrackKindDescriptions), (js_TextTrackKindChapters, TextTrackKindChapters), (js_TextTrackKindMetadata, TextTrackKindMetadata)]+ fromJSValUnchecked = P.return . pFromJSVal++js_TextTrackKindSubtitles :: JSString+js_TextTrackKindSubtitles = "subtitles"+js_TextTrackKindCaptions :: JSString+js_TextTrackKindCaptions = "captions"+js_TextTrackKindDescriptions :: JSString+js_TextTrackKindDescriptions = "descriptions"+js_TextTrackKindChapters :: JSString+js_TextTrackKindChapters = "chapters"+js_TextTrackKindMetadata :: JSString+js_TextTrackKindMetadata = "metadata"++-- | <https://developer.mozilla.org/en-US/docs/Web/API TextTrackMode> (html)+data TextTrackMode = TextTrackModeDisabled+ | TextTrackModeHidden+ | TextTrackModeShowing+ deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal TextTrackMode where+ pToJSVal x = pToJSVal (case x of+ TextTrackModeDisabled -> js_TextTrackModeDisabled+ TextTrackModeHidden -> js_TextTrackModeHidden+ TextTrackModeShowing -> js_TextTrackModeShowing+ )++instance ToJSVal TextTrackMode where+ toJSVal = P.return . pToJSVal++instance PFromJSVal TextTrackMode where+ pFromJSVal x = P.maybe (P.error "Unexpected TextTrackMode value") P.id (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_TextTrackModeDisabled, TextTrackModeDisabled), (js_TextTrackModeHidden, TextTrackModeHidden), (js_TextTrackModeShowing, TextTrackModeShowing)]++instance FromJSVal TextTrackMode where+ fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_TextTrackModeDisabled, TextTrackModeDisabled), (js_TextTrackModeHidden, TextTrackModeHidden), (js_TextTrackModeShowing, TextTrackModeShowing)]+ fromJSValUnchecked = P.return . pFromJSVal++js_TextTrackModeDisabled :: JSString+js_TextTrackModeDisabled = "disabled"+js_TextTrackModeHidden :: JSString+js_TextTrackModeHidden = "hidden"+js_TextTrackModeShowing :: JSString+js_TextTrackModeShowing = "showing"++-- | <https://developer.mozilla.org/en-US/docs/Web/API TokenVersion> (trust-token-api)+data TokenVersion = TokenVersion1+ deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal TokenVersion where+ pToJSVal x = pToJSVal (case x of+ TokenVersion1 -> js_TokenVersion1+ )++instance ToJSVal TokenVersion where+ toJSVal = P.return . pToJSVal++instance PFromJSVal TokenVersion where+ pFromJSVal x = P.maybe (P.error "Unexpected TokenVersion value") P.id (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_TokenVersion1, TokenVersion1)]++instance FromJSVal TokenVersion where+ fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_TokenVersion1, TokenVersion1)]+ fromJSValUnchecked = P.return . pFromJSVal++js_TokenVersion1 :: JSString+js_TokenVersion1 = "1"++-- | <https://developer.mozilla.org/en-US/docs/Web/API TouchType> (touch-events)+data TouchType = TouchTypeDirect+ | TouchTypeStylus+ deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal TouchType where+ pToJSVal x = pToJSVal (case x of+ TouchTypeDirect -> js_TouchTypeDirect+ TouchTypeStylus -> js_TouchTypeStylus+ )++instance ToJSVal TouchType where+ toJSVal = P.return . pToJSVal++instance PFromJSVal TouchType where+ pFromJSVal x = P.maybe (P.error "Unexpected TouchType value") P.id (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_TouchTypeDirect, TouchTypeDirect), (js_TouchTypeStylus, TouchTypeStylus)]++instance FromJSVal TouchType where+ fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_TouchTypeDirect, TouchTypeDirect), (js_TouchTypeStylus, TouchTypeStylus)]+ fromJSValUnchecked = P.return . pFromJSVal++js_TouchTypeDirect :: JSString+js_TouchTypeDirect = "direct"+js_TouchTypeStylus :: JSString+js_TouchTypeStylus = "stylus"++-- | <https://developer.mozilla.org/en-US/docs/Web/API TransferFunction> (media-capabilities)+data TransferFunction = TransferFunctionSrgb+ | TransferFunctionPq+ | TransferFunctionHlg+ deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal TransferFunction where+ pToJSVal x = pToJSVal (case x of+ TransferFunctionSrgb -> js_TransferFunctionSrgb+ TransferFunctionPq -> js_TransferFunctionPq+ TransferFunctionHlg -> js_TransferFunctionHlg+ )++instance ToJSVal TransferFunction where+ toJSVal = P.return . pToJSVal++instance PFromJSVal TransferFunction where+ pFromJSVal x = P.maybe (P.error "Unexpected TransferFunction value") P.id (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_TransferFunctionSrgb, TransferFunctionSrgb), (js_TransferFunctionPq, TransferFunctionPq), (js_TransferFunctionHlg, TransferFunctionHlg)]++instance FromJSVal TransferFunction where+ fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_TransferFunctionSrgb, TransferFunctionSrgb), (js_TransferFunctionPq, TransferFunctionPq), (js_TransferFunctionHlg, TransferFunctionHlg)]+ fromJSValUnchecked = P.return . pFromJSVal++js_TransferFunctionSrgb :: JSString+js_TransferFunctionSrgb = "srgb"+js_TransferFunctionPq :: JSString+js_TransferFunctionPq = "pq"+js_TransferFunctionHlg :: JSString+js_TransferFunctionHlg = "hlg"++-- | <https://developer.mozilla.org/en-US/docs/Web/API VideoColorPrimaries> (webcodecs)+data VideoColorPrimaries = VideoColorPrimariesBt709+ | VideoColorPrimariesBt470bg+ | VideoColorPrimariesSmpte170m+ | VideoColorPrimariesBt2020+ | VideoColorPrimariesSmpte432+ deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal VideoColorPrimaries where+ pToJSVal x = pToJSVal (case x of+ VideoColorPrimariesBt709 -> js_VideoColorPrimariesBt709+ VideoColorPrimariesBt470bg -> js_VideoColorPrimariesBt470bg+ VideoColorPrimariesSmpte170m -> js_VideoColorPrimariesSmpte170m+ VideoColorPrimariesBt2020 -> js_VideoColorPrimariesBt2020+ VideoColorPrimariesSmpte432 -> js_VideoColorPrimariesSmpte432+ )++instance ToJSVal VideoColorPrimaries where+ toJSVal = P.return . pToJSVal++instance PFromJSVal VideoColorPrimaries where+ pFromJSVal x = P.maybe (P.error "Unexpected VideoColorPrimaries value") P.id (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_VideoColorPrimariesBt709, VideoColorPrimariesBt709), (js_VideoColorPrimariesBt470bg, VideoColorPrimariesBt470bg), (js_VideoColorPrimariesSmpte170m, VideoColorPrimariesSmpte170m), (js_VideoColorPrimariesBt2020, VideoColorPrimariesBt2020), (js_VideoColorPrimariesSmpte432, VideoColorPrimariesSmpte432)]++instance FromJSVal VideoColorPrimaries where+ fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_VideoColorPrimariesBt709, VideoColorPrimariesBt709), (js_VideoColorPrimariesBt470bg, VideoColorPrimariesBt470bg), (js_VideoColorPrimariesSmpte170m, VideoColorPrimariesSmpte170m), (js_VideoColorPrimariesBt2020, VideoColorPrimariesBt2020), (js_VideoColorPrimariesSmpte432, VideoColorPrimariesSmpte432)]+ fromJSValUnchecked = P.return . pFromJSVal++js_VideoColorPrimariesBt709 :: JSString+js_VideoColorPrimariesBt709 = "bt709"+js_VideoColorPrimariesBt470bg :: JSString+js_VideoColorPrimariesBt470bg = "bt470bg"+js_VideoColorPrimariesSmpte170m :: JSString+js_VideoColorPrimariesSmpte170m = "smpte170m"+js_VideoColorPrimariesBt2020 :: JSString+js_VideoColorPrimariesBt2020 = "bt2020"+js_VideoColorPrimariesSmpte432 :: JSString+js_VideoColorPrimariesSmpte432 = "smpte432"++-- | <https://developer.mozilla.org/en-US/docs/Web/API VideoEncoderBitrateMode> (webcodecs)+data VideoEncoderBitrateMode = VideoEncoderBitrateModeConstant+ | VideoEncoderBitrateModeVariable+ | VideoEncoderBitrateModeQuantizer+ deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal VideoEncoderBitrateMode where+ pToJSVal x = pToJSVal (case x of+ VideoEncoderBitrateModeConstant -> js_VideoEncoderBitrateModeConstant+ VideoEncoderBitrateModeVariable -> js_VideoEncoderBitrateModeVariable+ VideoEncoderBitrateModeQuantizer -> js_VideoEncoderBitrateModeQuantizer+ )++instance ToJSVal VideoEncoderBitrateMode where+ toJSVal = P.return . pToJSVal++instance PFromJSVal VideoEncoderBitrateMode where+ pFromJSVal x = P.maybe (P.error "Unexpected VideoEncoderBitrateMode value") P.id (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_VideoEncoderBitrateModeConstant, VideoEncoderBitrateModeConstant), (js_VideoEncoderBitrateModeVariable, VideoEncoderBitrateModeVariable), (js_VideoEncoderBitrateModeQuantizer, VideoEncoderBitrateModeQuantizer)]++instance FromJSVal VideoEncoderBitrateMode where+ fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_VideoEncoderBitrateModeConstant, VideoEncoderBitrateModeConstant), (js_VideoEncoderBitrateModeVariable, VideoEncoderBitrateModeVariable), (js_VideoEncoderBitrateModeQuantizer, VideoEncoderBitrateModeQuantizer)]+ fromJSValUnchecked = P.return . pFromJSVal++js_VideoEncoderBitrateModeConstant :: JSString+js_VideoEncoderBitrateModeConstant = "constant"+js_VideoEncoderBitrateModeVariable :: JSString+js_VideoEncoderBitrateModeVariable = "variable"+js_VideoEncoderBitrateModeQuantizer :: JSString+js_VideoEncoderBitrateModeQuantizer = "quantizer"++-- | <https://developer.mozilla.org/en-US/docs/Web/API VideoMatrixCoefficients> (webcodecs)+data VideoMatrixCoefficients = VideoMatrixCoefficientsRgb+ | VideoMatrixCoefficientsBt709+ | VideoMatrixCoefficientsBt470bg+ | VideoMatrixCoefficientsSmpte170m+ | VideoMatrixCoefficientsBt2020Ncl+ deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal VideoMatrixCoefficients where+ pToJSVal x = pToJSVal (case x of+ VideoMatrixCoefficientsRgb -> js_VideoMatrixCoefficientsRgb+ VideoMatrixCoefficientsBt709 -> js_VideoMatrixCoefficientsBt709+ VideoMatrixCoefficientsBt470bg -> js_VideoMatrixCoefficientsBt470bg+ VideoMatrixCoefficientsSmpte170m -> js_VideoMatrixCoefficientsSmpte170m+ VideoMatrixCoefficientsBt2020Ncl -> js_VideoMatrixCoefficientsBt2020Ncl+ )++instance ToJSVal VideoMatrixCoefficients where+ toJSVal = P.return . pToJSVal++instance PFromJSVal VideoMatrixCoefficients where+ pFromJSVal x = P.maybe (P.error "Unexpected VideoMatrixCoefficients value") P.id (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_VideoMatrixCoefficientsRgb, VideoMatrixCoefficientsRgb), (js_VideoMatrixCoefficientsBt709, VideoMatrixCoefficientsBt709), (js_VideoMatrixCoefficientsBt470bg, VideoMatrixCoefficientsBt470bg), (js_VideoMatrixCoefficientsSmpte170m, VideoMatrixCoefficientsSmpte170m), (js_VideoMatrixCoefficientsBt2020Ncl, VideoMatrixCoefficientsBt2020Ncl)]++instance FromJSVal VideoMatrixCoefficients where+ fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_VideoMatrixCoefficientsRgb, VideoMatrixCoefficientsRgb), (js_VideoMatrixCoefficientsBt709, VideoMatrixCoefficientsBt709), (js_VideoMatrixCoefficientsBt470bg, VideoMatrixCoefficientsBt470bg), (js_VideoMatrixCoefficientsSmpte170m, VideoMatrixCoefficientsSmpte170m), (js_VideoMatrixCoefficientsBt2020Ncl, VideoMatrixCoefficientsBt2020Ncl)]+ fromJSValUnchecked = P.return . pFromJSVal++js_VideoMatrixCoefficientsRgb :: JSString+js_VideoMatrixCoefficientsRgb = "rgb"+js_VideoMatrixCoefficientsBt709 :: JSString+js_VideoMatrixCoefficientsBt709 = "bt709"+js_VideoMatrixCoefficientsBt470bg :: JSString+js_VideoMatrixCoefficientsBt470bg = "bt470bg"+js_VideoMatrixCoefficientsSmpte170m :: JSString+js_VideoMatrixCoefficientsSmpte170m = "smpte170m"+js_VideoMatrixCoefficientsBt2020Ncl :: JSString+js_VideoMatrixCoefficientsBt2020Ncl = "bt2020-ncl"++-- | <https://developer.mozilla.org/en-US/docs/Web/API VideoPixelFormat> (webcodecs)+data VideoPixelFormat = VideoPixelFormatI420+ | VideoPixelFormatI420P10+ | VideoPixelFormatI420P12+ | VideoPixelFormatI420A+ | VideoPixelFormatI420AP10+ | VideoPixelFormatI420AP12+ | VideoPixelFormatI422+ | VideoPixelFormatI422P10+ | VideoPixelFormatI422P12+ | VideoPixelFormatI422A+ | VideoPixelFormatI422AP10+ | VideoPixelFormatI422AP12+ | VideoPixelFormatI444+ | VideoPixelFormatI444P10+ | VideoPixelFormatI444P12+ | VideoPixelFormatI444A+ | VideoPixelFormatI444AP10+ | VideoPixelFormatI444AP12+ | VideoPixelFormatNV12+ | VideoPixelFormatRGBA+ | VideoPixelFormatRGBX+ | VideoPixelFormatBGRA+ | VideoPixelFormatBGRX+ deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal VideoPixelFormat where+ pToJSVal x = pToJSVal (case x of+ VideoPixelFormatI420 -> js_VideoPixelFormatI420+ VideoPixelFormatI420P10 -> js_VideoPixelFormatI420P10+ VideoPixelFormatI420P12 -> js_VideoPixelFormatI420P12+ VideoPixelFormatI420A -> js_VideoPixelFormatI420A+ VideoPixelFormatI420AP10 -> js_VideoPixelFormatI420AP10+ VideoPixelFormatI420AP12 -> js_VideoPixelFormatI420AP12+ VideoPixelFormatI422 -> js_VideoPixelFormatI422+ VideoPixelFormatI422P10 -> js_VideoPixelFormatI422P10+ VideoPixelFormatI422P12 -> js_VideoPixelFormatI422P12+ VideoPixelFormatI422A -> js_VideoPixelFormatI422A+ VideoPixelFormatI422AP10 -> js_VideoPixelFormatI422AP10+ VideoPixelFormatI422AP12 -> js_VideoPixelFormatI422AP12+ VideoPixelFormatI444 -> js_VideoPixelFormatI444+ VideoPixelFormatI444P10 -> js_VideoPixelFormatI444P10+ VideoPixelFormatI444P12 -> js_VideoPixelFormatI444P12+ VideoPixelFormatI444A -> js_VideoPixelFormatI444A+ VideoPixelFormatI444AP10 -> js_VideoPixelFormatI444AP10+ VideoPixelFormatI444AP12 -> js_VideoPixelFormatI444AP12+ VideoPixelFormatNV12 -> js_VideoPixelFormatNV12+ VideoPixelFormatRGBA -> js_VideoPixelFormatRGBA+ VideoPixelFormatRGBX -> js_VideoPixelFormatRGBX+ VideoPixelFormatBGRA -> js_VideoPixelFormatBGRA+ VideoPixelFormatBGRX -> js_VideoPixelFormatBGRX+ )++instance ToJSVal VideoPixelFormat where+ toJSVal = P.return . pToJSVal++instance PFromJSVal VideoPixelFormat where+ pFromJSVal x = P.maybe (P.error "Unexpected VideoPixelFormat value") P.id (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_VideoPixelFormatI420, VideoPixelFormatI420), (js_VideoPixelFormatI420P10, VideoPixelFormatI420P10), (js_VideoPixelFormatI420P12, VideoPixelFormatI420P12), (js_VideoPixelFormatI420A, VideoPixelFormatI420A), (js_VideoPixelFormatI420AP10, VideoPixelFormatI420AP10), (js_VideoPixelFormatI420AP12, VideoPixelFormatI420AP12), (js_VideoPixelFormatI422, VideoPixelFormatI422), (js_VideoPixelFormatI422P10, VideoPixelFormatI422P10), (js_VideoPixelFormatI422P12, VideoPixelFormatI422P12), (js_VideoPixelFormatI422A, VideoPixelFormatI422A), (js_VideoPixelFormatI422AP10, VideoPixelFormatI422AP10), (js_VideoPixelFormatI422AP12, VideoPixelFormatI422AP12), (js_VideoPixelFormatI444, VideoPixelFormatI444), (js_VideoPixelFormatI444P10, VideoPixelFormatI444P10), (js_VideoPixelFormatI444P12, VideoPixelFormatI444P12), (js_VideoPixelFormatI444A, VideoPixelFormatI444A), (js_VideoPixelFormatI444AP10, VideoPixelFormatI444AP10), (js_VideoPixelFormatI444AP12, VideoPixelFormatI444AP12), (js_VideoPixelFormatNV12, VideoPixelFormatNV12), (js_VideoPixelFormatRGBA, VideoPixelFormatRGBA), (js_VideoPixelFormatRGBX, VideoPixelFormatRGBX), (js_VideoPixelFormatBGRA, VideoPixelFormatBGRA), (js_VideoPixelFormatBGRX, VideoPixelFormatBGRX)]++instance FromJSVal VideoPixelFormat where+ fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_VideoPixelFormatI420, VideoPixelFormatI420), (js_VideoPixelFormatI420P10, VideoPixelFormatI420P10), (js_VideoPixelFormatI420P12, VideoPixelFormatI420P12), (js_VideoPixelFormatI420A, VideoPixelFormatI420A), (js_VideoPixelFormatI420AP10, VideoPixelFormatI420AP10), (js_VideoPixelFormatI420AP12, VideoPixelFormatI420AP12), (js_VideoPixelFormatI422, VideoPixelFormatI422), (js_VideoPixelFormatI422P10, VideoPixelFormatI422P10), (js_VideoPixelFormatI422P12, VideoPixelFormatI422P12), (js_VideoPixelFormatI422A, VideoPixelFormatI422A), (js_VideoPixelFormatI422AP10, VideoPixelFormatI422AP10), (js_VideoPixelFormatI422AP12, VideoPixelFormatI422AP12), (js_VideoPixelFormatI444, VideoPixelFormatI444), (js_VideoPixelFormatI444P10, VideoPixelFormatI444P10), (js_VideoPixelFormatI444P12, VideoPixelFormatI444P12), (js_VideoPixelFormatI444A, VideoPixelFormatI444A), (js_VideoPixelFormatI444AP10, VideoPixelFormatI444AP10), (js_VideoPixelFormatI444AP12, VideoPixelFormatI444AP12), (js_VideoPixelFormatNV12, VideoPixelFormatNV12), (js_VideoPixelFormatRGBA, VideoPixelFormatRGBA), (js_VideoPixelFormatRGBX, VideoPixelFormatRGBX), (js_VideoPixelFormatBGRA, VideoPixelFormatBGRA), (js_VideoPixelFormatBGRX, VideoPixelFormatBGRX)]+ fromJSValUnchecked = P.return . pFromJSVal++js_VideoPixelFormatI420 :: JSString+js_VideoPixelFormatI420 = "I420"+js_VideoPixelFormatI420P10 :: JSString+js_VideoPixelFormatI420P10 = "I420P10"+js_VideoPixelFormatI420P12 :: JSString+js_VideoPixelFormatI420P12 = "I420P12"+js_VideoPixelFormatI420A :: JSString+js_VideoPixelFormatI420A = "I420A"+js_VideoPixelFormatI420AP10 :: JSString+js_VideoPixelFormatI420AP10 = "I420AP10"+js_VideoPixelFormatI420AP12 :: JSString+js_VideoPixelFormatI420AP12 = "I420AP12"+js_VideoPixelFormatI422 :: JSString+js_VideoPixelFormatI422 = "I422"+js_VideoPixelFormatI422P10 :: JSString+js_VideoPixelFormatI422P10 = "I422P10"+js_VideoPixelFormatI422P12 :: JSString+js_VideoPixelFormatI422P12 = "I422P12"+js_VideoPixelFormatI422A :: JSString+js_VideoPixelFormatI422A = "I422A"+js_VideoPixelFormatI422AP10 :: JSString+js_VideoPixelFormatI422AP10 = "I422AP10"+js_VideoPixelFormatI422AP12 :: JSString+js_VideoPixelFormatI422AP12 = "I422AP12"+js_VideoPixelFormatI444 :: JSString+js_VideoPixelFormatI444 = "I444"+js_VideoPixelFormatI444P10 :: JSString+js_VideoPixelFormatI444P10 = "I444P10"+js_VideoPixelFormatI444P12 :: JSString+js_VideoPixelFormatI444P12 = "I444P12"+js_VideoPixelFormatI444A :: JSString+js_VideoPixelFormatI444A = "I444A"+js_VideoPixelFormatI444AP10 :: JSString+js_VideoPixelFormatI444AP10 = "I444AP10"+js_VideoPixelFormatI444AP12 :: JSString+js_VideoPixelFormatI444AP12 = "I444AP12"+js_VideoPixelFormatNV12 :: JSString+js_VideoPixelFormatNV12 = "NV12"+js_VideoPixelFormatRGBA :: JSString+js_VideoPixelFormatRGBA = "RGBA"+js_VideoPixelFormatRGBX :: JSString+js_VideoPixelFormatRGBX = "RGBX"+js_VideoPixelFormatBGRA :: JSString+js_VideoPixelFormatBGRA = "BGRA"+js_VideoPixelFormatBGRX :: JSString+js_VideoPixelFormatBGRX = "BGRX"++-- | <https://developer.mozilla.org/en-US/docs/Web/API VideoTransferCharacteristics> (webcodecs)+data VideoTransferCharacteristics = VideoTransferCharacteristicsBt709+ | VideoTransferCharacteristicsSmpte170m+ | VideoTransferCharacteristicsIec6196621+ | VideoTransferCharacteristicsLinear+ | VideoTransferCharacteristicsPq+ | VideoTransferCharacteristicsHlg+ deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal VideoTransferCharacteristics where+ pToJSVal x = pToJSVal (case x of+ VideoTransferCharacteristicsBt709 -> js_VideoTransferCharacteristicsBt709+ VideoTransferCharacteristicsSmpte170m -> js_VideoTransferCharacteristicsSmpte170m+ VideoTransferCharacteristicsIec6196621 -> js_VideoTransferCharacteristicsIec6196621+ VideoTransferCharacteristicsLinear -> js_VideoTransferCharacteristicsLinear+ VideoTransferCharacteristicsPq -> js_VideoTransferCharacteristicsPq+ VideoTransferCharacteristicsHlg -> js_VideoTransferCharacteristicsHlg+ )++instance ToJSVal VideoTransferCharacteristics where+ toJSVal = P.return . pToJSVal++instance PFromJSVal VideoTransferCharacteristics where+ pFromJSVal x = P.maybe (P.error "Unexpected VideoTransferCharacteristics value") P.id (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_VideoTransferCharacteristicsBt709, VideoTransferCharacteristicsBt709), (js_VideoTransferCharacteristicsSmpte170m, VideoTransferCharacteristicsSmpte170m), (js_VideoTransferCharacteristicsIec6196621, VideoTransferCharacteristicsIec6196621), (js_VideoTransferCharacteristicsLinear, VideoTransferCharacteristicsLinear), (js_VideoTransferCharacteristicsPq, VideoTransferCharacteristicsPq), (js_VideoTransferCharacteristicsHlg, VideoTransferCharacteristicsHlg)]++instance FromJSVal VideoTransferCharacteristics where+ fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_VideoTransferCharacteristicsBt709, VideoTransferCharacteristicsBt709), (js_VideoTransferCharacteristicsSmpte170m, VideoTransferCharacteristicsSmpte170m), (js_VideoTransferCharacteristicsIec6196621, VideoTransferCharacteristicsIec6196621), (js_VideoTransferCharacteristicsLinear, VideoTransferCharacteristicsLinear), (js_VideoTransferCharacteristicsPq, VideoTransferCharacteristicsPq), (js_VideoTransferCharacteristicsHlg, VideoTransferCharacteristicsHlg)]+ fromJSValUnchecked = P.return . pFromJSVal++js_VideoTransferCharacteristicsBt709 :: JSString+js_VideoTransferCharacteristicsBt709 = "bt709"+js_VideoTransferCharacteristicsSmpte170m :: JSString+js_VideoTransferCharacteristicsSmpte170m = "smpte170m"+js_VideoTransferCharacteristicsIec6196621 :: JSString+js_VideoTransferCharacteristicsIec6196621 = "iec61966-2-1"+js_VideoTransferCharacteristicsLinear :: JSString+js_VideoTransferCharacteristicsLinear = "linear"+js_VideoTransferCharacteristicsPq :: JSString+js_VideoTransferCharacteristicsPq = "pq"+js_VideoTransferCharacteristicsHlg :: JSString+js_VideoTransferCharacteristicsHlg = "hlg"++-- | <https://developer.mozilla.org/en-US/docs/Web/API WakeLockType> (screen-wake-lock)+data WakeLockType = WakeLockTypeScreen+ deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal WakeLockType where+ pToJSVal x = pToJSVal (case x of+ WakeLockTypeScreen -> js_WakeLockTypeScreen+ )++instance ToJSVal WakeLockType where+ toJSVal = P.return . pToJSVal++instance PFromJSVal WakeLockType where+ pFromJSVal x = P.maybe (P.error "Unexpected WakeLockType value") P.id (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_WakeLockTypeScreen, WakeLockTypeScreen)]++instance FromJSVal WakeLockType where+ fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_WakeLockTypeScreen, WakeLockTypeScreen)]+ fromJSValUnchecked = P.return . pFromJSVal++js_WakeLockTypeScreen :: JSString+js_WakeLockTypeScreen = "screen"++-- | <https://developer.mozilla.org/en-US/docs/Web/API WebGLPowerPreference> (webgl1)+data WebGLPowerPreference = WebGLPowerPreferenceDefault+ | WebGLPowerPreferenceLowPower+ | WebGLPowerPreferenceHighPerformance+ deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal WebGLPowerPreference where+ pToJSVal x = pToJSVal (case x of+ WebGLPowerPreferenceDefault -> js_WebGLPowerPreferenceDefault+ WebGLPowerPreferenceLowPower -> js_WebGLPowerPreferenceLowPower+ WebGLPowerPreferenceHighPerformance -> js_WebGLPowerPreferenceHighPerformance+ )++instance ToJSVal WebGLPowerPreference where+ toJSVal = P.return . pToJSVal++instance PFromJSVal WebGLPowerPreference where+ pFromJSVal x = P.maybe (P.error "Unexpected WebGLPowerPreference value") P.id (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_WebGLPowerPreferenceDefault, WebGLPowerPreferenceDefault), (js_WebGLPowerPreferenceLowPower, WebGLPowerPreferenceLowPower), (js_WebGLPowerPreferenceHighPerformance, WebGLPowerPreferenceHighPerformance)]++instance FromJSVal WebGLPowerPreference where+ fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_WebGLPowerPreferenceDefault, WebGLPowerPreferenceDefault), (js_WebGLPowerPreferenceLowPower, WebGLPowerPreferenceLowPower), (js_WebGLPowerPreferenceHighPerformance, WebGLPowerPreferenceHighPerformance)]+ fromJSValUnchecked = P.return . pFromJSVal++js_WebGLPowerPreferenceDefault :: JSString+js_WebGLPowerPreferenceDefault = "default"+js_WebGLPowerPreferenceLowPower :: JSString+js_WebGLPowerPreferenceLowPower = "low-power"+js_WebGLPowerPreferenceHighPerformance :: JSString+js_WebGLPowerPreferenceHighPerformance = "high-performance"++-- | <https://developer.mozilla.org/en-US/docs/Web/API WebTransportCongestionControl> (webtransport)+data WebTransportCongestionControl = WebTransportCongestionControlDefault+ | WebTransportCongestionControlThroughput+ | WebTransportCongestionControlLowLatency+ deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal WebTransportCongestionControl where+ pToJSVal x = pToJSVal (case x of+ WebTransportCongestionControlDefault -> js_WebTransportCongestionControlDefault+ WebTransportCongestionControlThroughput -> js_WebTransportCongestionControlThroughput+ WebTransportCongestionControlLowLatency -> js_WebTransportCongestionControlLowLatency+ )++instance ToJSVal WebTransportCongestionControl where+ toJSVal = P.return . pToJSVal++instance PFromJSVal WebTransportCongestionControl where+ pFromJSVal x = P.maybe (P.error "Unexpected WebTransportCongestionControl value") P.id (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_WebTransportCongestionControlDefault, WebTransportCongestionControlDefault), (js_WebTransportCongestionControlThroughput, WebTransportCongestionControlThroughput), (js_WebTransportCongestionControlLowLatency, WebTransportCongestionControlLowLatency)]++instance FromJSVal WebTransportCongestionControl where+ fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_WebTransportCongestionControlDefault, WebTransportCongestionControlDefault), (js_WebTransportCongestionControlThroughput, WebTransportCongestionControlThroughput), (js_WebTransportCongestionControlLowLatency, WebTransportCongestionControlLowLatency)]+ fromJSValUnchecked = P.return . pFromJSVal++js_WebTransportCongestionControlDefault :: JSString+js_WebTransportCongestionControlDefault = "default"+js_WebTransportCongestionControlThroughput :: JSString+js_WebTransportCongestionControlThroughput = "throughput"+js_WebTransportCongestionControlLowLatency :: JSString+js_WebTransportCongestionControlLowLatency = "low-latency"++-- | <https://developer.mozilla.org/en-US/docs/Web/API WebTransportErrorSource> (webtransport)+data WebTransportErrorSource = WebTransportErrorSourceStream+ | WebTransportErrorSourceSession+ deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal WebTransportErrorSource where+ pToJSVal x = pToJSVal (case x of+ WebTransportErrorSourceStream -> js_WebTransportErrorSourceStream+ WebTransportErrorSourceSession -> js_WebTransportErrorSourceSession+ )++instance ToJSVal WebTransportErrorSource where+ toJSVal = P.return . pToJSVal++instance PFromJSVal WebTransportErrorSource where+ pFromJSVal x = P.maybe (P.error "Unexpected WebTransportErrorSource value") P.id (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_WebTransportErrorSourceStream, WebTransportErrorSourceStream), (js_WebTransportErrorSourceSession, WebTransportErrorSourceSession)]++instance FromJSVal WebTransportErrorSource where+ fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_WebTransportErrorSourceStream, WebTransportErrorSourceStream), (js_WebTransportErrorSourceSession, WebTransportErrorSourceSession)]+ fromJSValUnchecked = P.return . pFromJSVal++js_WebTransportErrorSourceStream :: JSString+js_WebTransportErrorSourceStream = "stream"+js_WebTransportErrorSourceSession :: JSString+js_WebTransportErrorSourceSession = "session"++-- | <https://developer.mozilla.org/en-US/docs/Web/API WebTransportReliabilityMode> (webtransport)+data WebTransportReliabilityMode = WebTransportReliabilityModePending+ | WebTransportReliabilityModeReliableOnly+ | WebTransportReliabilityModeSupportsUnreliable+ deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal WebTransportReliabilityMode where+ pToJSVal x = pToJSVal (case x of+ WebTransportReliabilityModePending -> js_WebTransportReliabilityModePending+ WebTransportReliabilityModeReliableOnly -> js_WebTransportReliabilityModeReliableOnly+ WebTransportReliabilityModeSupportsUnreliable -> js_WebTransportReliabilityModeSupportsUnreliable+ )++instance ToJSVal WebTransportReliabilityMode where+ toJSVal = P.return . pToJSVal++instance PFromJSVal WebTransportReliabilityMode where+ pFromJSVal x = P.maybe (P.error "Unexpected WebTransportReliabilityMode value") P.id (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_WebTransportReliabilityModePending, WebTransportReliabilityModePending), (js_WebTransportReliabilityModeReliableOnly, WebTransportReliabilityModeReliableOnly), (js_WebTransportReliabilityModeSupportsUnreliable, WebTransportReliabilityModeSupportsUnreliable)]++instance FromJSVal WebTransportReliabilityMode where+ fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_WebTransportReliabilityModePending, WebTransportReliabilityModePending), (js_WebTransportReliabilityModeReliableOnly, WebTransportReliabilityModeReliableOnly), (js_WebTransportReliabilityModeSupportsUnreliable, WebTransportReliabilityModeSupportsUnreliable)]+ fromJSValUnchecked = P.return . pFromJSVal++js_WebTransportReliabilityModePending :: JSString+js_WebTransportReliabilityModePending = "pending"+js_WebTransportReliabilityModeReliableOnly :: JSString+js_WebTransportReliabilityModeReliableOnly = "reliable-only"+js_WebTransportReliabilityModeSupportsUnreliable :: JSString+js_WebTransportReliabilityModeSupportsUnreliable = "supports-unreliable"++-- | <https://developer.mozilla.org/en-US/docs/Web/API WindowAudioPreferenceEnum> (screen-capture)+data WindowAudioPreferenceEnum = WindowAudioPreferenceEnumSystem+ | WindowAudioPreferenceEnumWindow+ | WindowAudioPreferenceEnumExclude+ deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal WindowAudioPreferenceEnum where+ pToJSVal x = pToJSVal (case x of+ WindowAudioPreferenceEnumSystem -> js_WindowAudioPreferenceEnumSystem+ WindowAudioPreferenceEnumWindow -> js_WindowAudioPreferenceEnumWindow+ WindowAudioPreferenceEnumExclude -> js_WindowAudioPreferenceEnumExclude+ )++instance ToJSVal WindowAudioPreferenceEnum where+ toJSVal = P.return . pToJSVal++instance PFromJSVal WindowAudioPreferenceEnum where+ pFromJSVal x = P.maybe (P.error "Unexpected WindowAudioPreferenceEnum value") P.id (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_WindowAudioPreferenceEnumSystem, WindowAudioPreferenceEnumSystem), (js_WindowAudioPreferenceEnumWindow, WindowAudioPreferenceEnumWindow), (js_WindowAudioPreferenceEnumExclude, WindowAudioPreferenceEnumExclude)]++instance FromJSVal WindowAudioPreferenceEnum where+ fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_WindowAudioPreferenceEnumSystem, WindowAudioPreferenceEnumSystem), (js_WindowAudioPreferenceEnumWindow, WindowAudioPreferenceEnumWindow), (js_WindowAudioPreferenceEnumExclude, WindowAudioPreferenceEnumExclude)]+ fromJSValUnchecked = P.return . pFromJSVal++js_WindowAudioPreferenceEnumSystem :: JSString+js_WindowAudioPreferenceEnumSystem = "system"+js_WindowAudioPreferenceEnumWindow :: JSString+js_WindowAudioPreferenceEnumWindow = "window"+js_WindowAudioPreferenceEnumExclude :: JSString+js_WindowAudioPreferenceEnumExclude = "exclude"++-- | <https://developer.mozilla.org/en-US/docs/Web/API WorkerType> (html)+data WorkerType = WorkerTypeClassic+ | WorkerTypeModule+ deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal WorkerType where+ pToJSVal x = pToJSVal (case x of+ WorkerTypeClassic -> js_WorkerTypeClassic+ WorkerTypeModule -> js_WorkerTypeModule+ )++instance ToJSVal WorkerType where+ toJSVal = P.return . pToJSVal++instance PFromJSVal WorkerType where+ pFromJSVal x = P.maybe (P.error "Unexpected WorkerType value") P.id (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_WorkerTypeClassic, WorkerTypeClassic), (js_WorkerTypeModule, WorkerTypeModule)]++instance FromJSVal WorkerType where+ fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_WorkerTypeClassic, WorkerTypeClassic), (js_WorkerTypeModule, WorkerTypeModule)]+ fromJSValUnchecked = P.return . pFromJSVal++js_WorkerTypeClassic :: JSString+js_WorkerTypeClassic = "classic"+js_WorkerTypeModule :: JSString+js_WorkerTypeModule = "module"++-- | <https://developer.mozilla.org/en-US/docs/Web/API WriteCommandType> (fs)+data WriteCommandType = WriteCommandTypeWrite+ | WriteCommandTypeSeek+ | WriteCommandTypeTruncate+ deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal WriteCommandType where+ pToJSVal x = pToJSVal (case x of+ WriteCommandTypeWrite -> js_WriteCommandTypeWrite+ WriteCommandTypeSeek -> js_WriteCommandTypeSeek+ WriteCommandTypeTruncate -> js_WriteCommandTypeTruncate+ )++instance ToJSVal WriteCommandType where+ toJSVal = P.return . pToJSVal++instance PFromJSVal WriteCommandType where+ pFromJSVal x = P.maybe (P.error "Unexpected WriteCommandType value") P.id (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_WriteCommandTypeWrite, WriteCommandTypeWrite), (js_WriteCommandTypeSeek, WriteCommandTypeSeek), (js_WriteCommandTypeTruncate, WriteCommandTypeTruncate)]++instance FromJSVal WriteCommandType where+ fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_WriteCommandTypeWrite, WriteCommandTypeWrite), (js_WriteCommandTypeSeek, WriteCommandTypeSeek), (js_WriteCommandTypeTruncate, WriteCommandTypeTruncate)]+ fromJSValUnchecked = P.return . pFromJSVal++js_WriteCommandTypeWrite :: JSString+js_WriteCommandTypeWrite = "write"+js_WriteCommandTypeSeek :: JSString+js_WriteCommandTypeSeek = "seek"+js_WriteCommandTypeTruncate :: JSString+js_WriteCommandTypeTruncate = "truncate"++-- | <https://developer.mozilla.org/en-US/docs/Web/API XMLHttpRequestResponseType> (xhr)+data XMLHttpRequestResponseType = XMLHttpRequestResponseType+ | XMLHttpRequestResponseTypeArraybuffer+ | XMLHttpRequestResponseTypeBlob+ | XMLHttpRequestResponseTypeDocument+ | XMLHttpRequestResponseTypeJson+ | XMLHttpRequestResponseTypeText+ deriving (Show, Read, Eq, Ord, Bounded, Enum, Typeable)++instance PToJSVal XMLHttpRequestResponseType where+ pToJSVal x = pToJSVal (case x of+ XMLHttpRequestResponseType -> js_XMLHttpRequestResponseType+ XMLHttpRequestResponseTypeArraybuffer -> js_XMLHttpRequestResponseTypeArraybuffer+ XMLHttpRequestResponseTypeBlob -> js_XMLHttpRequestResponseTypeBlob+ XMLHttpRequestResponseTypeDocument -> js_XMLHttpRequestResponseTypeDocument+ XMLHttpRequestResponseTypeJson -> js_XMLHttpRequestResponseTypeJson+ XMLHttpRequestResponseTypeText -> js_XMLHttpRequestResponseTypeText+ )++instance ToJSVal XMLHttpRequestResponseType where+ toJSVal = P.return . pToJSVal++instance PFromJSVal XMLHttpRequestResponseType where+ pFromJSVal x = P.maybe (P.error "Unexpected XMLHttpRequestResponseType value") P.id (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_XMLHttpRequestResponseType, XMLHttpRequestResponseType), (js_XMLHttpRequestResponseTypeArraybuffer, XMLHttpRequestResponseTypeArraybuffer), (js_XMLHttpRequestResponseTypeBlob, XMLHttpRequestResponseTypeBlob), (js_XMLHttpRequestResponseTypeDocument, XMLHttpRequestResponseTypeDocument), (js_XMLHttpRequestResponseTypeJson, XMLHttpRequestResponseTypeJson), (js_XMLHttpRequestResponseTypeText, XMLHttpRequestResponseTypeText)]++instance FromJSVal XMLHttpRequestResponseType where+ fromJSVal x = P.return (P.lookup (pFromJSVal x :: JSString) table)+ where table = [(js_XMLHttpRequestResponseType, XMLHttpRequestResponseType), (js_XMLHttpRequestResponseTypeArraybuffer, XMLHttpRequestResponseTypeArraybuffer), (js_XMLHttpRequestResponseTypeBlob, XMLHttpRequestResponseTypeBlob), (js_XMLHttpRequestResponseTypeDocument, XMLHttpRequestResponseTypeDocument), (js_XMLHttpRequestResponseTypeJson, XMLHttpRequestResponseTypeJson), (js_XMLHttpRequestResponseTypeText, XMLHttpRequestResponseTypeText)]+ fromJSValUnchecked = P.return . pFromJSVal++js_XMLHttpRequestResponseType :: JSString+js_XMLHttpRequestResponseType = ""+js_XMLHttpRequestResponseTypeArraybuffer :: JSString+js_XMLHttpRequestResponseTypeArraybuffer = "arraybuffer"+js_XMLHttpRequestResponseTypeBlob :: JSString+js_XMLHttpRequestResponseTypeBlob = "blob"+js_XMLHttpRequestResponseTypeDocument :: JSString+js_XMLHttpRequestResponseTypeDocument = "document"+js_XMLHttpRequestResponseTypeJson :: JSString+js_XMLHttpRequestResponseTypeJson = "json"+js_XMLHttpRequestResponseTypeText :: JSString+js_XMLHttpRequestResponseTypeText = "text"+
@@ -0,0 +1,29 @@+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from entries-api (webref). Do not edit.+module GHCJS.DOM.JSFFI.Generated.ErrorCallback+ (newErrorCallback, newErrorCallbackSync, newErrorCallbackAsync, ErrorCallback)+ 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++newErrorCallback :: (MonadDOM m) => (DOMException -> IO ()) -> m ErrorCallback+newErrorCallback callback = liftDOM ((ErrorCallback . coerce) <$> syncCallback1 ContinueAsync (\ err -> do+ err' <- fromJSValUnchecked err+ callback err'))++newErrorCallbackSync :: (MonadDOM m) => (DOMException -> IO ()) -> m ErrorCallback+newErrorCallbackSync callback = liftDOM ((ErrorCallback . coerce) <$> syncCallback1 ThrowWouldBlock (\ err -> do+ err' <- fromJSValUnchecked err+ callback err'))++newErrorCallbackAsync :: (MonadDOM m) => (DOMException -> IO ()) -> m ErrorCallback+newErrorCallbackAsync callback = liftDOM ((ErrorCallback . coerce) <$> asyncCallback1 (\ err -> do+ err' <- fromJSValUnchecked err+ callback err'))
@@ -1,78 +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.ErrorEvent- (js_newErrorEvent, newErrorEvent, js_getMessage, getMessage,- js_getFilename, getFilename, js_getLineno, getLineno, js_getColno,- getColno, js_getError, getError, ErrorEvent(..), gTypeErrorEvent)+ (js_newErrorEvent, js_getMessage, js_getFilename, js_getLineno, js_getColno, js_getError, newErrorEvent, getMessage, getFilename, getLineno, getColno, getError, ErrorEvent(..), gTypeErrorEvent) where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)-import qualified Prelude (error)-import Data.Typeable (Typeable)-import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull, 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[\"ErrorEvent\"]($1, $2); })" js_newErrorEvent ::- JSString -> Optional ErrorEventInit -> IO ErrorEvent --- | <https://developer.mozilla.org/en-US/docs/Web/API/ErrorEvent Mozilla ErrorEvent documentation> -newErrorEvent ::- (MonadIO m, ToJSString type') =>- type' -> Maybe ErrorEventInit -> m ErrorEvent-newErrorEvent type' eventInitDict- = liftIO- (js_newErrorEvent (toJSString type')- (maybeToOptional eventInitDict))- -foreign import javascript unsafe "(($1) => { return $1[\"message\"]; })" js_getMessage ::- ErrorEvent -> IO JSString+foreign import javascript safe "(($1, $2) => { return new globalThis[\"ErrorEvent\"]($1, $2); })"+ js_newErrorEvent :: JSString -> JSVal -> IO ErrorEvent+-- | <https://developer.mozilla.org/docs/Web/API/ErrorEvent/ErrorEvent MDN ErrorEvent. documentation>+newErrorEvent :: (MonadDOM m, ToJSString type') => type' -> Maybe ErrorEventInit -> m ErrorEvent+newErrorEvent type' eventInitDict = liftDOM (((P.maybe (P.return jsUndefined) toJSVal eventInitDict) >>= \a2' -> js_newErrorEvent (toJSString type') a2')) --- | <https://developer.mozilla.org/en-US/docs/Web/API/ErrorEvent.message Mozilla ErrorEvent.message documentation> -getMessage ::- (MonadIO m, FromJSString result) => ErrorEvent -> m result-getMessage self = liftIO (fromJSString <$> (js_getMessage self))- -foreign import javascript unsafe "(($1) => { return $1[\"filename\"]; })" js_getFilename- :: ErrorEvent -> IO JSString+foreign import javascript unsafe "(($1) => { return $1[\"message\"]; })"+ js_getMessage :: ErrorEvent -> IO JSString+-- | <https://developer.mozilla.org/docs/Web/API/ErrorEvent/message MDN ErrorEvent.message documentation>+getMessage :: (MonadDOM m, FromJSString result) => ErrorEvent -> m result+getMessage self = liftDOM ((fromJSString <$> (js_getMessage (self)))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/ErrorEvent.filename Mozilla ErrorEvent.filename documentation> -getFilename ::- (MonadIO m, FromJSString result) => ErrorEvent -> m result-getFilename self = liftIO (fromJSString <$> (js_getFilename self))- -foreign import javascript unsafe "(($1) => { return $1[\"lineno\"]; })" js_getLineno ::- ErrorEvent -> IO Word+foreign import javascript unsafe "(($1) => { return $1[\"filename\"]; })"+ js_getFilename :: ErrorEvent -> IO JSString+-- | <https://developer.mozilla.org/docs/Web/API/ErrorEvent/filename MDN ErrorEvent.filename documentation>+getFilename :: (MonadDOM m, FromJSString result) => ErrorEvent -> m result+getFilename self = liftDOM ((fromJSString <$> (js_getFilename (self)))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/ErrorEvent.lineno Mozilla ErrorEvent.lineno documentation> -getLineno :: (MonadIO m) => ErrorEvent -> m Word-getLineno self = liftIO (js_getLineno self)- -foreign import javascript unsafe "(($1) => { return $1[\"colno\"]; })" js_getColno ::- ErrorEvent -> IO Word+foreign import javascript unsafe "(($1) => { return $1[\"lineno\"]; })"+ js_getLineno :: ErrorEvent -> IO Word+-- | <https://developer.mozilla.org/docs/Web/API/ErrorEvent/lineno MDN ErrorEvent.lineno documentation>+getLineno :: (MonadDOM m) => ErrorEvent -> m Word+getLineno self = liftDOM ((js_getLineno (self))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/ErrorEvent.colno Mozilla ErrorEvent.colno documentation> -getColno :: (MonadIO m) => ErrorEvent -> m Word-getColno self = liftIO (js_getColno self)- -foreign import javascript unsafe "(($1) => { return $1[\"error\"]; })" js_getError ::- ErrorEvent -> IO JSVal+foreign import javascript unsafe "(($1) => { return $1[\"colno\"]; })"+ js_getColno :: ErrorEvent -> IO Word+-- | <https://developer.mozilla.org/docs/Web/API/ErrorEvent/colno MDN ErrorEvent.colno documentation>+getColno :: (MonadDOM m) => ErrorEvent -> m Word+getColno self = liftDOM ((js_getColno (self))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/ErrorEvent.error Mozilla ErrorEvent.error documentation> -getError :: (MonadIO m) => ErrorEvent -> m JSVal-getError self = liftIO (js_getError self)+foreign import javascript unsafe "(($1) => { return $1[\"error\"]; })"+ js_getError :: ErrorEvent -> IO JSVal+-- | <https://developer.mozilla.org/docs/Web/API/ErrorEvent/error MDN ErrorEvent.error documentation>+getError :: (MonadDOM m) => ErrorEvent -> m JSVal+getError self = liftDOM ((js_getError (self)))
@@ -0,0 +1,97 @@+{-# 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.ErrorEventInit+ (js_newErrorEventInit, js_setMessage, js_getMessage, js_setFilename, js_getFilename, js_setLineno, js_getLineno, js_setColno, js_getColno, js_setError, js_getError, newErrorEventInit, setMessage, getMessage, getMessageUnsafe, getMessageUnchecked, setFilename, getFilename, getFilenameUnsafe, getFilenameUnchecked, setLineno, getLineno, getLinenoUnsafe, getLinenoUnchecked, setColno, getColno, getColnoUnsafe, getColnoUnchecked, setError, getError, ErrorEventInit(..), gTypeErrorEventInit)+ 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_newErrorEventInit :: IO ErrorEventInit+-- | <https://html.spec.whatwg.org/multipage/webappapis.html#erroreventinit ErrorEventInit specification>+newErrorEventInit :: (MonadDOM m) => m ErrorEventInit+newErrorEventInit = liftDOM ((js_newErrorEventInit))++foreign import javascript safe "(($1, $2) => { $1[\"message\"] = $2; })"+ js_setMessage :: ErrorEventInit -> JSString -> IO ()+setMessage :: (MonadDOM m, ToJSString val) => ErrorEventInit -> val -> m ()+setMessage self val = liftDOM (void ((js_setMessage (self) (toJSString val))))++foreign import javascript unsafe "(($1) => { return $1[\"message\"]; })"+ js_getMessage :: ErrorEventInit -> IO JSVal+getMessage :: (MonadDOM m, FromJSString result) => ErrorEventInit -> m (Maybe result)+getMessage self = liftDOM (((fromMaybeJSString . Nullable) <$> (js_getMessage (self))))++getMessageUnsafe :: (MonadDOM m, HasCallStack, FromJSString result) => ErrorEventInit -> m result+getMessageUnsafe self = liftDOM ((((fromMaybeJSString . Nullable) <$> (js_getMessage (self))) >>= P.maybe (P.error "Nothing to return") P.return))++getMessageUnchecked :: (MonadDOM m, FromJSString result) => ErrorEventInit -> m result+getMessageUnchecked self = liftDOM ((pFromJSVal <$> (js_getMessage (self))))++foreign import javascript safe "(($1, $2) => { $1[\"filename\"] = $2; })"+ js_setFilename :: ErrorEventInit -> JSString -> IO ()+setFilename :: (MonadDOM m, ToJSString val) => ErrorEventInit -> val -> m ()+setFilename self val = liftDOM (void ((js_setFilename (self) (toJSString val))))++foreign import javascript unsafe "(($1) => { return $1[\"filename\"]; })"+ js_getFilename :: ErrorEventInit -> IO JSVal+getFilename :: (MonadDOM m, FromJSString result) => ErrorEventInit -> m (Maybe result)+getFilename self = liftDOM (((fromMaybeJSString . Nullable) <$> (js_getFilename (self))))++getFilenameUnsafe :: (MonadDOM m, HasCallStack, FromJSString result) => ErrorEventInit -> m result+getFilenameUnsafe self = liftDOM ((((fromMaybeJSString . Nullable) <$> (js_getFilename (self))) >>= P.maybe (P.error "Nothing to return") P.return))++getFilenameUnchecked :: (MonadDOM m, FromJSString result) => ErrorEventInit -> m result+getFilenameUnchecked self = liftDOM ((pFromJSVal <$> (js_getFilename (self))))++foreign import javascript safe "(($1, $2) => { $1[\"lineno\"] = $2; })"+ js_setLineno :: ErrorEventInit -> Word -> IO ()+setLineno :: (MonadDOM m) => ErrorEventInit -> Word -> m ()+setLineno self val = liftDOM (void ((js_setLineno (self) (val))))++foreign import javascript unsafe "(($1) => { return $1[\"lineno\"]; })"+ js_getLineno :: ErrorEventInit -> IO JSVal+getLineno :: (MonadDOM m) => ErrorEventInit -> m (Maybe Word)+getLineno self = liftDOM (((js_getLineno (self)) >>= fromJSValUnchecked))++getLinenoUnsafe :: (MonadDOM m, HasCallStack) => ErrorEventInit -> m Word+getLinenoUnsafe self = liftDOM ((((js_getLineno (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++getLinenoUnchecked :: (MonadDOM m) => ErrorEventInit -> m Word+getLinenoUnchecked self = liftDOM ((pFromJSVal <$> (js_getLineno (self))))++foreign import javascript safe "(($1, $2) => { $1[\"colno\"] = $2; })"+ js_setColno :: ErrorEventInit -> Word -> IO ()+setColno :: (MonadDOM m) => ErrorEventInit -> Word -> m ()+setColno self val = liftDOM (void ((js_setColno (self) (val))))++foreign import javascript unsafe "(($1) => { return $1[\"colno\"]; })"+ js_getColno :: ErrorEventInit -> IO JSVal+getColno :: (MonadDOM m) => ErrorEventInit -> m (Maybe Word)+getColno self = liftDOM (((js_getColno (self)) >>= fromJSValUnchecked))++getColnoUnsafe :: (MonadDOM m, HasCallStack) => ErrorEventInit -> m Word+getColnoUnsafe self = liftDOM ((((js_getColno (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++getColnoUnchecked :: (MonadDOM m) => ErrorEventInit -> m Word+getColnoUnchecked self = liftDOM ((pFromJSVal <$> (js_getColno (self))))++foreign import javascript safe "(($1, $2) => { $1[\"error\"] = $2; })"+ js_setError :: ErrorEventInit -> JSVal -> IO ()+setError :: (MonadDOM m) => ErrorEventInit -> JSVal -> m ()+setError self val = liftDOM (void ((js_setError (self) (val))))++foreign import javascript unsafe "(($1) => { return $1[\"error\"]; })"+ js_getError :: ErrorEventInit -> IO JSVal+getError :: (MonadDOM m) => ErrorEventInit -> m JSVal+getError self = liftDOM ((js_getError (self)))
@@ -1,251 +1,179 @@ {-# 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.Event- (js_newEvent, newEvent, js_composedPath, composedPath,- composedPath_, js_stopPropagation, stopPropagation,- js_stopImmediatePropagation, stopImmediatePropagation,- js_preventDefault, preventDefault, js_initEvent, initEvent,- pattern NONE, pattern CAPTURING_PHASE, pattern AT_TARGET,- pattern BUBBLING_PHASE, js_getType, getType, js_getTarget,- getTarget, getTargetUnsafe, getTargetUnchecked,- js_getCurrentTarget, getCurrentTarget, getCurrentTargetUnsafe,- getCurrentTargetUnchecked, js_getEventPhase, getEventPhase,- js_setCancelBubble, setCancelBubble, js_getCancelBubble,- getCancelBubble, js_getBubbles, getBubbles, js_getCancelable,- getCancelable, js_getDefaultPrevented, getDefaultPrevented,- js_getComposed, getComposed, js_getIsTrusted, getIsTrusted,- js_getTimeStamp, getTimeStamp, js_getSrcElement, getSrcElement,- js_setReturnValue, setReturnValue, js_getReturnValue,- getReturnValue, Event(..), gTypeEvent, IsEvent, toEvent)+ (js_newEvent, js_composedPath, js_initEvent, js_preventDefault, js_stopImmediatePropagation, js_stopPropagation, js_getType, js_getTarget, js_getSrcElement, js_getCurrentTarget, js_getEventPhase, js_setCancelBubble, js_getCancelBubble, js_getBubbles, js_getCancelable, js_setReturnValue, js_getReturnValue, js_getDefaultPrevented, js_getComposed, js_getIsTrusted, js_getTimeStamp, newEvent, composedPath, composedPath_, initEvent, preventDefault, stopImmediatePropagation, stopPropagation, getType, getTarget, getTargetUnsafe, getTargetUnchecked, getSrcElement, getSrcElementUnsafe, getSrcElementUnchecked, getCurrentTarget, getCurrentTargetUnsafe, getCurrentTargetUnchecked, getEventPhase, setCancelBubble, getCancelBubble, getBubbles, getCancelable, setReturnValue, getReturnValue, getDefaultPrevented, getComposed, getIsTrusted, getTimeStamp, pattern NONE, pattern CAPTURING_PHASE, pattern AT_TARGET, pattern BUBBLING_PHASE, Event(..), gTypeEvent, IsEvent, toEvent) where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)-import qualified Prelude (error)-import Data.Typeable (Typeable)-import GHCJS.Types (JSVal(..), JSString)-import GHCJS.Foreign (jsNull, 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[\"Event\"]($1, $2); })"- js_newEvent :: JSString -> Optional EventInit -> IO Event --- | <https://developer.mozilla.org/en-US/docs/Web/API/Event Mozilla Event documentation> -newEvent ::- (MonadIO m, ToJSString type', IsEventInit eventInitDict) =>- type' -> Maybe eventInitDict -> m Event-newEvent type' eventInitDict- = liftIO- (js_newEvent (toJSString type')- (maybeToOptional (fmap toEventInit eventInitDict)))- -foreign import javascript unsafe "(($1) => { return $1[\"composedPath\"](); })"+foreign import javascript safe "(($1, $2) => { return new globalThis[\"Event\"]($1, $2); })"+ js_newEvent :: JSString -> JSVal -> IO Event+-- | <https://developer.mozilla.org/docs/Web/API/Event/Event MDN Event. documentation>+newEvent :: (MonadDOM m, ToJSString type', IsEventInit eventInitDict) => type' -> Maybe eventInitDict -> m Event+newEvent type' eventInitDict = liftDOM (((P.maybe (P.return jsUndefined) toJSVal eventInitDict) >>= \a2' -> js_newEvent (toJSString type') a2'))++foreign import javascript safe "(($1) => { return $1[\"composedPath\"](); })" js_composedPath :: Event -> IO JSVal+-- | <https://developer.mozilla.org/docs/Web/API/Event/composedPath MDN Event.composedPath documentation>+composedPath :: (MonadDOM m, IsEvent self) => self -> m [EventTarget]+composedPath self = liftDOM (((js_composedPath ((Types.toEvent self))) >>= fromJSValUnchecked)) --- | <https://developer.mozilla.org/en-US/docs/Web/API/Event.composedPath Mozilla Event.composedPath documentation> -composedPath ::- (MonadIO m, IsEvent self) => self -> m [EventTarget]-composedPath self- = liftIO ((js_composedPath (toEvent self)) >>= fromJSValUnchecked)+-- | <https://developer.mozilla.org/docs/Web/API/Event/composedPath MDN Event.composedPath documentation>+composedPath_ :: (MonadDOM m, IsEvent self) => self -> m ()+composedPath_ self = liftDOM (void ((js_composedPath ((Types.toEvent self))))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/Event.composedPath Mozilla Event.composedPath documentation> -composedPath_ :: (MonadIO m, IsEvent self) => self -> m ()-composedPath_ self = liftIO (void (js_composedPath (toEvent self)))- -foreign import javascript unsafe "(($1) => { return $1[\"stopPropagation\"](); })"+foreign import javascript safe "(($1, $2, $3, $4) => { return $1[\"initEvent\"]($2, $3, $4); })"+ js_initEvent :: Event -> JSString -> JSVal -> JSVal -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/Event/initEvent MDN Event.initEvent documentation>+initEvent :: (MonadDOM m, IsEvent self, ToJSString type') => self -> type' -> Maybe Bool -> Maybe Bool -> m ()+initEvent self type' bubbles cancelable = liftDOM (void (((P.maybe (P.return jsUndefined) toJSVal bubbles) >>= \a3' -> (P.maybe (P.return jsUndefined) toJSVal cancelable) >>= \a4' -> js_initEvent ((Types.toEvent self)) (toJSString type') a3' a4')))++foreign import javascript safe "(($1) => { return $1[\"preventDefault\"](); })"+ js_preventDefault :: Event -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/Event/preventDefault MDN Event.preventDefault documentation>+preventDefault :: (MonadDOM m, IsEvent self) => self -> m ()+preventDefault self = liftDOM (void ((js_preventDefault ((Types.toEvent self)))))++foreign import javascript safe "(($1) => { return $1[\"stopImmediatePropagation\"](); })"+ js_stopImmediatePropagation :: Event -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/Event/stopImmediatePropagation MDN Event.stopImmediatePropagation documentation>+stopImmediatePropagation :: (MonadDOM m, IsEvent self) => self -> m ()+stopImmediatePropagation self = liftDOM (void ((js_stopImmediatePropagation ((Types.toEvent self)))))++foreign import javascript safe "(($1) => { return $1[\"stopPropagation\"](); })" js_stopPropagation :: Event -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/Event/stopPropagation MDN Event.stopPropagation documentation>+stopPropagation :: (MonadDOM m, IsEvent self) => self -> m ()+stopPropagation self = liftDOM (void ((js_stopPropagation ((Types.toEvent self))))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/Event.stopPropagation Mozilla Event.stopPropagation documentation> -stopPropagation :: (MonadIO m, IsEvent self) => self -> m ()-stopPropagation self = liftIO (js_stopPropagation (toEvent self))- -foreign import javascript unsafe- "(($1) => { return $1[\"stopImmediatePropagation\"](); })" js_stopImmediatePropagation ::- Event -> IO ()+foreign import javascript unsafe "(($1) => { return $1[\"type\"]; })"+ js_getType :: Event -> IO JSString+-- | <https://developer.mozilla.org/docs/Web/API/Event/type MDN Event.type documentation>+getType :: (MonadDOM m, IsEvent self, FromJSString result) => self -> m result+getType self = liftDOM ((fromJSString <$> (js_getType ((Types.toEvent self))))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/Event.stopImmediatePropagation Mozilla Event.stopImmediatePropagation documentation> -stopImmediatePropagation ::- (MonadIO m, IsEvent self) => self -> m ()-stopImmediatePropagation self- = liftIO (js_stopImmediatePropagation (toEvent self))- -foreign import javascript unsafe "(($1) => { return $1[\"preventDefault\"](); })"- js_preventDefault :: Event -> IO ()+foreign import javascript unsafe "(($1) => { return $1[\"target\"]; })"+ js_getTarget :: Event -> IO JSVal+-- | <https://developer.mozilla.org/docs/Web/API/Event/target MDN Event.target documentation>+getTarget :: (MonadDOM m, IsEvent self) => self -> m (Maybe EventTarget)+getTarget self = liftDOM (((js_getTarget ((Types.toEvent self))) >>= fromJSValUnchecked)) --- | <https://developer.mozilla.org/en-US/docs/Web/API/Event.preventDefault Mozilla Event.preventDefault documentation> -preventDefault :: (MonadIO m, IsEvent self) => self -> m ()-preventDefault self = liftIO (js_preventDefault (toEvent self))- -foreign import javascript unsafe "(($1, $2, $3, $4) => { return $1[\"initEvent\"]($2, $3, $4); })"- js_initEvent :: Event -> JSString -> Bool -> Bool -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/Event/target MDN Event.target documentation>+getTargetUnsafe :: (MonadDOM m, IsEvent self, HasCallStack) => self -> m EventTarget+getTargetUnsafe self = liftDOM ((((js_getTarget ((Types.toEvent self))) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) --- | <https://developer.mozilla.org/en-US/docs/Web/API/Event.initEvent Mozilla Event.initEvent documentation> -initEvent ::- (MonadIO m, IsEvent self, ToJSString type') =>- self -> type' -> Bool -> Bool -> m ()-initEvent self type' bubbles cancelable- = liftIO- (js_initEvent (toEvent self) (toJSString type') bubbles cancelable)-pattern NONE = 0-pattern CAPTURING_PHASE = 1-pattern AT_TARGET = 2-pattern BUBBLING_PHASE = 3- -foreign import javascript unsafe "(($1) => { return $1[\"type\"]; })" js_getType ::- Event -> IO JSString+-- | <https://developer.mozilla.org/docs/Web/API/Event/target MDN Event.target documentation>+getTargetUnchecked :: (MonadDOM m, IsEvent self) => self -> m EventTarget+getTargetUnchecked self = liftDOM ((pFromJSVal <$> (js_getTarget ((Types.toEvent self))))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/Event.type Mozilla Event.type documentation> -getType ::- (MonadIO m, IsEvent self, FromJSString result) => self -> m result-getType self- = liftIO (fromJSString <$> (js_getType (toEvent self)))- -foreign import javascript unsafe "(($1) => { return $1[\"target\"]; })" js_getTarget ::- Event -> IO (Nullable EventTarget)+foreign import javascript unsafe "(($1) => { return $1[\"srcElement\"]; })"+ js_getSrcElement :: Event -> IO JSVal+-- | <https://developer.mozilla.org/docs/Web/API/Event/srcElement MDN Event.srcElement documentation>+getSrcElement :: (MonadDOM m, IsEvent self) => self -> m (Maybe EventTarget)+getSrcElement self = liftDOM (((js_getSrcElement ((Types.toEvent self))) >>= fromJSValUnchecked)) --- | <https://developer.mozilla.org/en-US/docs/Web/API/Event.target Mozilla Event.target documentation> -getTarget ::- (MonadIO m, IsEvent self) => self -> m (Maybe EventTarget)-getTarget self- = liftIO (nullableToMaybe <$> (js_getTarget (toEvent self)))+-- | <https://developer.mozilla.org/docs/Web/API/Event/srcElement MDN Event.srcElement documentation>+getSrcElementUnsafe :: (MonadDOM m, IsEvent self, HasCallStack) => self -> m EventTarget+getSrcElementUnsafe self = liftDOM ((((js_getSrcElement ((Types.toEvent self))) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) --- | <https://developer.mozilla.org/en-US/docs/Web/API/Event.target Mozilla Event.target documentation> -getTargetUnsafe ::- (MonadIO m, IsEvent self, HasCallStack) => self -> m EventTarget-getTargetUnsafe self- = liftIO- ((nullableToMaybe <$> (js_getTarget (toEvent self))) >>=- maybe (Prelude.error "Nothing to return") return)+-- | <https://developer.mozilla.org/docs/Web/API/Event/srcElement MDN Event.srcElement documentation>+getSrcElementUnchecked :: (MonadDOM m, IsEvent self) => self -> m EventTarget+getSrcElementUnchecked self = liftDOM ((pFromJSVal <$> (js_getSrcElement ((Types.toEvent self))))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/Event.target Mozilla Event.target documentation> -getTargetUnchecked ::- (MonadIO m, IsEvent self) => self -> m EventTarget-getTargetUnchecked self- = liftIO- (fromJust . nullableToMaybe <$> (js_getTarget (toEvent self)))- foreign import javascript unsafe "(($1) => { return $1[\"currentTarget\"]; })"- js_getCurrentTarget :: Event -> IO (Nullable EventTarget)+ js_getCurrentTarget :: Event -> IO JSVal+-- | <https://developer.mozilla.org/docs/Web/API/Event/currentTarget MDN Event.currentTarget documentation>+getCurrentTarget :: (MonadDOM m, IsEvent self) => self -> m (Maybe EventTarget)+getCurrentTarget self = liftDOM (((js_getCurrentTarget ((Types.toEvent self))) >>= fromJSValUnchecked)) --- | <https://developer.mozilla.org/en-US/docs/Web/API/Event.currentTarget Mozilla Event.currentTarget documentation> -getCurrentTarget ::- (MonadIO m, IsEvent self) => self -> m (Maybe EventTarget)-getCurrentTarget self- = liftIO (nullableToMaybe <$> (js_getCurrentTarget (toEvent self)))+-- | <https://developer.mozilla.org/docs/Web/API/Event/currentTarget MDN Event.currentTarget documentation>+getCurrentTargetUnsafe :: (MonadDOM m, IsEvent self, HasCallStack) => self -> m EventTarget+getCurrentTargetUnsafe self = liftDOM ((((js_getCurrentTarget ((Types.toEvent self))) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return)) --- | <https://developer.mozilla.org/en-US/docs/Web/API/Event.currentTarget Mozilla Event.currentTarget documentation> -getCurrentTargetUnsafe ::- (MonadIO m, IsEvent self, HasCallStack) => self -> m EventTarget-getCurrentTargetUnsafe self- = liftIO- ((nullableToMaybe <$> (js_getCurrentTarget (toEvent self))) >>=- maybe (Prelude.error "Nothing to return") return)+-- | <https://developer.mozilla.org/docs/Web/API/Event/currentTarget MDN Event.currentTarget documentation>+getCurrentTargetUnchecked :: (MonadDOM m, IsEvent self) => self -> m EventTarget+getCurrentTargetUnchecked self = liftDOM ((pFromJSVal <$> (js_getCurrentTarget ((Types.toEvent self))))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/Event.currentTarget Mozilla Event.currentTarget documentation> -getCurrentTargetUnchecked ::- (MonadIO m, IsEvent self) => self -> m EventTarget-getCurrentTargetUnchecked self- = liftIO- (fromJust . nullableToMaybe <$>- (js_getCurrentTarget (toEvent self)))- foreign import javascript unsafe "(($1) => { return $1[\"eventPhase\"]; })" js_getEventPhase :: Event -> IO Word+-- | <https://developer.mozilla.org/docs/Web/API/Event/eventPhase MDN Event.eventPhase documentation>+getEventPhase :: (MonadDOM m, IsEvent self) => self -> m Word+getEventPhase self = liftDOM ((js_getEventPhase ((Types.toEvent self)))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/Event.eventPhase Mozilla Event.eventPhase documentation> -getEventPhase :: (MonadIO m, IsEvent self) => self -> m Word-getEventPhase self = liftIO (js_getEventPhase (toEvent self))- -foreign import javascript unsafe "(($1, $2) => { $1[\"cancelBubble\"] = $2; })"+foreign import javascript safe "(($1, $2) => { $1[\"cancelBubble\"] = $2; })" js_setCancelBubble :: Event -> Bool -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/Event/cancelBubble MDN Event.cancelBubble documentation>+setCancelBubble :: (MonadDOM m, IsEvent self) => self -> Bool -> m ()+setCancelBubble self val = liftDOM (void ((js_setCancelBubble ((Types.toEvent self)) (val)))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/Event.cancelBubble Mozilla Event.cancelBubble documentation> -setCancelBubble ::- (MonadIO m, IsEvent self) => self -> Bool -> m ()-setCancelBubble self val- = liftIO (js_setCancelBubble (toEvent self) val)- -foreign import javascript unsafe "(($1) => { return ($1[\"cancelBubble\"] ? 1 : 0); })"+foreign import javascript unsafe "(($1) => { return $1[\"cancelBubble\"]; })" js_getCancelBubble :: Event -> IO Bool+-- | <https://developer.mozilla.org/docs/Web/API/Event/cancelBubble MDN Event.cancelBubble documentation>+getCancelBubble :: (MonadDOM m, IsEvent self) => self -> m Bool+getCancelBubble self = liftDOM ((js_getCancelBubble ((Types.toEvent self)))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/Event.cancelBubble Mozilla Event.cancelBubble documentation> -getCancelBubble :: (MonadIO m, IsEvent self) => self -> m Bool-getCancelBubble self = liftIO (js_getCancelBubble (toEvent self))- -foreign import javascript unsafe "(($1) => { return ($1[\"bubbles\"] ? 1 : 0); })"+foreign import javascript unsafe "(($1) => { return $1[\"bubbles\"]; })" js_getBubbles :: Event -> IO Bool+-- | <https://developer.mozilla.org/docs/Web/API/Event/bubbles MDN Event.bubbles documentation>+getBubbles :: (MonadDOM m, IsEvent self) => self -> m Bool+getBubbles self = liftDOM ((js_getBubbles ((Types.toEvent self)))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/Event.bubbles Mozilla Event.bubbles documentation> -getBubbles :: (MonadIO m, IsEvent self) => self -> m Bool-getBubbles self = liftIO (js_getBubbles (toEvent self))- -foreign import javascript unsafe "(($1) => { return ($1[\"cancelable\"] ? 1 : 0); })"+foreign import javascript unsafe "(($1) => { return $1[\"cancelable\"]; })" js_getCancelable :: Event -> IO Bool+-- | <https://developer.mozilla.org/docs/Web/API/Event/cancelable MDN Event.cancelable documentation>+getCancelable :: (MonadDOM m, IsEvent self) => self -> m Bool+getCancelable self = liftDOM ((js_getCancelable ((Types.toEvent self)))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/Event.cancelable Mozilla Event.cancelable documentation> -getCancelable :: (MonadIO m, IsEvent self) => self -> m Bool-getCancelable self = liftIO (js_getCancelable (toEvent self))- -foreign import javascript unsafe- "(($1) => { return ($1[\"defaultPrevented\"] ? 1 : 0); })" js_getDefaultPrevented ::- Event -> IO Bool+foreign import javascript safe "(($1, $2) => { $1[\"returnValue\"] = $2; })"+ js_setReturnValue :: Event -> Bool -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/Event/returnValue MDN Event.returnValue documentation>+setReturnValue :: (MonadDOM m, IsEvent self) => self -> Bool -> m ()+setReturnValue self val = liftDOM (void ((js_setReturnValue ((Types.toEvent self)) (val)))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/Event.defaultPrevented Mozilla Event.defaultPrevented documentation> -getDefaultPrevented :: (MonadIO m, IsEvent self) => self -> m Bool-getDefaultPrevented self- = liftIO (js_getDefaultPrevented (toEvent self))- -foreign import javascript unsafe "(($1) => { return ($1[\"composed\"] ? 1 : 0); })"+foreign import javascript unsafe "(($1) => { return $1[\"returnValue\"]; })"+ js_getReturnValue :: Event -> IO Bool+-- | <https://developer.mozilla.org/docs/Web/API/Event/returnValue MDN Event.returnValue documentation>+getReturnValue :: (MonadDOM m, IsEvent self) => self -> m Bool+getReturnValue self = liftDOM ((js_getReturnValue ((Types.toEvent self))))++foreign import javascript unsafe "(($1) => { return $1[\"defaultPrevented\"]; })"+ js_getDefaultPrevented :: Event -> IO Bool+-- | <https://developer.mozilla.org/docs/Web/API/Event/defaultPrevented MDN Event.defaultPrevented documentation>+getDefaultPrevented :: (MonadDOM m, IsEvent self) => self -> m Bool+getDefaultPrevented self = liftDOM ((js_getDefaultPrevented ((Types.toEvent self))))++foreign import javascript unsafe "(($1) => { return $1[\"composed\"]; })" js_getComposed :: Event -> IO Bool+-- | <https://developer.mozilla.org/docs/Web/API/Event/composed MDN Event.composed documentation>+getComposed :: (MonadDOM m, IsEvent self) => self -> m Bool+getComposed self = liftDOM ((js_getComposed ((Types.toEvent self)))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/Event.composed Mozilla Event.composed documentation> -getComposed :: (MonadIO m, IsEvent self) => self -> m Bool-getComposed self = liftIO (js_getComposed (toEvent self))- -foreign import javascript unsafe "(($1) => { return ($1[\"isTrusted\"] ? 1 : 0); })"+foreign import javascript unsafe "(($1) => { return $1[\"isTrusted\"]; })" js_getIsTrusted :: Event -> IO Bool+-- | <https://developer.mozilla.org/docs/Web/API/Event/isTrusted MDN Event.isTrusted documentation>+getIsTrusted :: (MonadDOM m, IsEvent self) => self -> m Bool+getIsTrusted self = liftDOM ((js_getIsTrusted ((Types.toEvent self)))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/Event.isTrusted Mozilla Event.isTrusted documentation> -getIsTrusted :: (MonadIO m, IsEvent self) => self -> m Bool-getIsTrusted self = liftIO (js_getIsTrusted (toEvent self))- foreign import javascript unsafe "(($1) => { return $1[\"timeStamp\"]; })"- js_getTimeStamp :: Event -> IO Word+ js_getTimeStamp :: Event -> IO Double+-- | <https://developer.mozilla.org/docs/Web/API/Event/timeStamp MDN Event.timeStamp documentation>+getTimeStamp :: (MonadDOM m, IsEvent self) => self -> m Double+getTimeStamp self = liftDOM ((js_getTimeStamp ((Types.toEvent self)))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/Event.timeStamp Mozilla Event.timeStamp documentation> -getTimeStamp :: (MonadIO m, IsEvent self) => self -> m Word-getTimeStamp self = liftIO (js_getTimeStamp (toEvent self))- -foreign import javascript unsafe "(($1) => { return $1[\"srcElement\"]; })"- js_getSrcElement :: Event -> IO EventTarget+pattern NONE = 0 --- | <https://developer.mozilla.org/en-US/docs/Web/API/Event.srcElement Mozilla Event.srcElement documentation> -getSrcElement :: (MonadIO m, IsEvent self) => self -> m EventTarget-getSrcElement self = liftIO (js_getSrcElement (toEvent self))- -foreign import javascript unsafe "(($1, $2) => { $1[\"returnValue\"] = $2; })"- js_setReturnValue :: Event -> Bool -> IO ()+pattern CAPTURING_PHASE = 1 --- | <https://developer.mozilla.org/en-US/docs/Web/API/Event.returnValue Mozilla Event.returnValue documentation> -setReturnValue :: (MonadIO m, IsEvent self) => self -> Bool -> m ()-setReturnValue self val- = liftIO (js_setReturnValue (toEvent self) val)- -foreign import javascript unsafe "(($1) => { return ($1[\"returnValue\"] ? 1 : 0); })"- js_getReturnValue :: Event -> IO Bool+pattern AT_TARGET = 2 --- | <https://developer.mozilla.org/en-US/docs/Web/API/Event.returnValue Mozilla Event.returnValue documentation> -getReturnValue :: (MonadIO m, IsEvent self) => self -> m Bool-getReturnValue self = liftIO (js_getReturnValue (toEvent self))+pattern BUBBLING_PHASE = 3
@@ -0,0 +1,18 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- | Generated by dom-gen from event-timing (webref). Do not edit.+module GHCJS.DOM.JSFFI.Generated.EventCounts+ (EventCounts(..), gTypeEventCounts)+ 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+
@@ -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.EventInit+ (js_newEventInit, js_setBubbles, js_getBubbles, js_setCancelable, js_getCancelable, js_setComposed, js_getComposed, newEventInit, setBubbles, getBubbles, getBubblesUnsafe, getBubblesUnchecked, setCancelable, getCancelable, getCancelableUnsafe, getCancelableUnchecked, setComposed, getComposed, getComposedUnsafe, getComposedUnchecked, EventInit(..), gTypeEventInit, IsEventInit, toEventInit)+ 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_newEventInit :: IO EventInit+-- | <https://dom.spec.whatwg.org/#dictdef-eventinit EventInit specification>+newEventInit :: (MonadDOM m) => m EventInit+newEventInit = liftDOM ((js_newEventInit))++foreign import javascript safe "(($1, $2) => { $1[\"bubbles\"] = $2; })"+ js_setBubbles :: EventInit -> Bool -> IO ()+-- | <https://dom.spec.whatwg.org/#dom-eventinit-bubbles EventInit.bubbles specification>+setBubbles :: (MonadDOM m, IsEventInit self) => self -> Bool -> m ()+setBubbles self val = liftDOM (void ((js_setBubbles ((Types.toEventInit self)) (val))))++foreign import javascript unsafe "(($1) => { return $1[\"bubbles\"]; })"+ js_getBubbles :: EventInit -> IO JSVal+-- | <https://dom.spec.whatwg.org/#dom-eventinit-bubbles EventInit.bubbles specification>+getBubbles :: (MonadDOM m, IsEventInit self) => self -> m (Maybe Bool)+getBubbles self = liftDOM (((js_getBubbles ((Types.toEventInit self))) >>= fromJSValUnchecked))++-- | <https://dom.spec.whatwg.org/#dom-eventinit-bubbles EventInit.bubbles specification>+getBubblesUnsafe :: (MonadDOM m, IsEventInit self, HasCallStack) => self -> m Bool+getBubblesUnsafe self = liftDOM ((((js_getBubbles ((Types.toEventInit self))) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://dom.spec.whatwg.org/#dom-eventinit-bubbles EventInit.bubbles specification>+getBubblesUnchecked :: (MonadDOM m, IsEventInit self) => self -> m Bool+getBubblesUnchecked self = liftDOM ((pFromJSVal <$> (js_getBubbles ((Types.toEventInit self)))))++foreign import javascript safe "(($1, $2) => { $1[\"cancelable\"] = $2; })"+ js_setCancelable :: EventInit -> Bool -> IO ()+-- | <https://dom.spec.whatwg.org/#dom-eventinit-cancelable EventInit.cancelable specification>+setCancelable :: (MonadDOM m, IsEventInit self) => self -> Bool -> m ()+setCancelable self val = liftDOM (void ((js_setCancelable ((Types.toEventInit self)) (val))))++foreign import javascript unsafe "(($1) => { return $1[\"cancelable\"]; })"+ js_getCancelable :: EventInit -> IO JSVal+-- | <https://dom.spec.whatwg.org/#dom-eventinit-cancelable EventInit.cancelable specification>+getCancelable :: (MonadDOM m, IsEventInit self) => self -> m (Maybe Bool)+getCancelable self = liftDOM (((js_getCancelable ((Types.toEventInit self))) >>= fromJSValUnchecked))++-- | <https://dom.spec.whatwg.org/#dom-eventinit-cancelable EventInit.cancelable specification>+getCancelableUnsafe :: (MonadDOM m, IsEventInit self, HasCallStack) => self -> m Bool+getCancelableUnsafe self = liftDOM ((((js_getCancelable ((Types.toEventInit self))) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://dom.spec.whatwg.org/#dom-eventinit-cancelable EventInit.cancelable specification>+getCancelableUnchecked :: (MonadDOM m, IsEventInit self) => self -> m Bool+getCancelableUnchecked self = liftDOM ((pFromJSVal <$> (js_getCancelable ((Types.toEventInit self)))))++foreign import javascript safe "(($1, $2) => { $1[\"composed\"] = $2; })"+ js_setComposed :: EventInit -> Bool -> IO ()+-- | <https://dom.spec.whatwg.org/#dom-eventinit-composed EventInit.composed specification>+setComposed :: (MonadDOM m, IsEventInit self) => self -> Bool -> m ()+setComposed self val = liftDOM (void ((js_setComposed ((Types.toEventInit self)) (val))))++foreign import javascript unsafe "(($1) => { return $1[\"composed\"]; })"+ js_getComposed :: EventInit -> IO JSVal+-- | <https://dom.spec.whatwg.org/#dom-eventinit-composed EventInit.composed specification>+getComposed :: (MonadDOM m, IsEventInit self) => self -> m (Maybe Bool)+getComposed self = liftDOM (((js_getComposed ((Types.toEventInit self))) >>= fromJSValUnchecked))++-- | <https://dom.spec.whatwg.org/#dom-eventinit-composed EventInit.composed specification>+getComposedUnsafe :: (MonadDOM m, IsEventInit self, HasCallStack) => self -> m Bool+getComposedUnsafe self = liftDOM ((((js_getComposed ((Types.toEventInit self))) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://dom.spec.whatwg.org/#dom-eventinit-composed EventInit.composed specification>+getComposedUnchecked :: (MonadDOM m, IsEventInit self) => self -> m Bool+getComposedUnchecked self = liftDOM ((pFromJSVal <$> (js_getComposed ((Types.toEventInit self)))))
@@ -1,36 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-{-# LANGUAGE ForeignFunctionInterface #-}-{-# LANGUAGE JavaScriptFFI #-}--- For HasCallStack compatibility-{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}-module GHCJS.DOM.JSFFI.Generated.EventListener- (js_handleEvent, handleEvent, EventListener(..),- gTypeEventListener)- where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, 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[\"handleEvent\"]($2); })"- js_handleEvent :: EventListener -> Event -> IO ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/EventListener.handleEvent Mozilla EventListener.handleEvent documentation> -handleEvent ::- (MonadIO m, IsEvent event) => EventListener -> event -> m ()-handleEvent self event- = liftIO (js_handleEvent self (toEvent event))
@@ -0,0 +1,43 @@+{-# 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.EventListenerOptions+ (js_newEventListenerOptions, js_setCapture, js_getCapture, newEventListenerOptions, setCapture, getCapture, getCaptureUnsafe, getCaptureUnchecked, EventListenerOptions(..), gTypeEventListenerOptions, IsEventListenerOptions, toEventListenerOptions)+ 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_newEventListenerOptions :: IO EventListenerOptions+-- | <https://dom.spec.whatwg.org/#dictdef-eventlisteneroptions EventListenerOptions specification>+newEventListenerOptions :: (MonadDOM m) => m EventListenerOptions+newEventListenerOptions = liftDOM ((js_newEventListenerOptions))++foreign import javascript safe "(($1, $2) => { $1[\"capture\"] = $2; })"+ js_setCapture :: EventListenerOptions -> Bool -> IO ()+-- | <https://dom.spec.whatwg.org/#dom-eventlisteneroptions-capture EventListenerOptions.capture specification>+setCapture :: (MonadDOM m, IsEventListenerOptions self) => self -> Bool -> m ()+setCapture self val = liftDOM (void ((js_setCapture ((Types.toEventListenerOptions self)) (val))))++foreign import javascript unsafe "(($1) => { return $1[\"capture\"]; })"+ js_getCapture :: EventListenerOptions -> IO JSVal+-- | <https://dom.spec.whatwg.org/#dom-eventlisteneroptions-capture EventListenerOptions.capture specification>+getCapture :: (MonadDOM m, IsEventListenerOptions self) => self -> m (Maybe Bool)+getCapture self = liftDOM (((js_getCapture ((Types.toEventListenerOptions self))) >>= fromJSValUnchecked))++-- | <https://dom.spec.whatwg.org/#dom-eventlisteneroptions-capture EventListenerOptions.capture specification>+getCaptureUnsafe :: (MonadDOM m, IsEventListenerOptions self, HasCallStack) => self -> m Bool+getCaptureUnsafe self = liftDOM ((((js_getCapture ((Types.toEventListenerOptions self))) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://dom.spec.whatwg.org/#dom-eventlisteneroptions-capture EventListenerOptions.capture specification>+getCaptureUnchecked :: (MonadDOM m, IsEventListenerOptions self) => self -> m Bool+getCaptureUnchecked self = liftDOM ((pFromJSVal <$> (js_getCapture ((Types.toEventListenerOptions self)))))
@@ -0,0 +1,303 @@+{-# 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.EventModifierInit+ (js_newEventModifierInit, js_setCtrlKey, js_getCtrlKey, js_setShiftKey, js_getShiftKey, js_setAltKey, js_getAltKey, js_setMetaKey, js_getMetaKey, js_setModifierAltGraph, js_getModifierAltGraph, js_setModifierCapsLock, js_getModifierCapsLock, js_setModifierFn, js_getModifierFn, js_setModifierFnLock, js_getModifierFnLock, js_setModifierHyper, js_getModifierHyper, js_setModifierNumLock, js_getModifierNumLock, js_setModifierScrollLock, js_getModifierScrollLock, js_setModifierSuper, js_getModifierSuper, js_setModifierSymbol, js_getModifierSymbol, js_setModifierSymbolLock, js_getModifierSymbolLock, newEventModifierInit, setCtrlKey, getCtrlKey, getCtrlKeyUnsafe, getCtrlKeyUnchecked, setShiftKey, getShiftKey, getShiftKeyUnsafe, getShiftKeyUnchecked, setAltKey, getAltKey, getAltKeyUnsafe, getAltKeyUnchecked, setMetaKey, getMetaKey, getMetaKeyUnsafe, getMetaKeyUnchecked, setModifierAltGraph, getModifierAltGraph, getModifierAltGraphUnsafe, getModifierAltGraphUnchecked, setModifierCapsLock, getModifierCapsLock, getModifierCapsLockUnsafe, getModifierCapsLockUnchecked, setModifierFn, getModifierFn, getModifierFnUnsafe, getModifierFnUnchecked, setModifierFnLock, getModifierFnLock, getModifierFnLockUnsafe, getModifierFnLockUnchecked, setModifierHyper, getModifierHyper, getModifierHyperUnsafe, getModifierHyperUnchecked, setModifierNumLock, getModifierNumLock, getModifierNumLockUnsafe, getModifierNumLockUnchecked, setModifierScrollLock, getModifierScrollLock, getModifierScrollLockUnsafe, getModifierScrollLockUnchecked, setModifierSuper, getModifierSuper, getModifierSuperUnsafe, getModifierSuperUnchecked, setModifierSymbol, getModifierSymbol, getModifierSymbolUnsafe, getModifierSymbolUnchecked, setModifierSymbolLock, getModifierSymbolLock, getModifierSymbolLockUnsafe, getModifierSymbolLockUnchecked, EventModifierInit(..), gTypeEventModifierInit, IsEventModifierInit, toEventModifierInit)+ 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_newEventModifierInit :: IO EventModifierInit+-- | <https://w3c.github.io/uievents/#dictdef-eventmodifierinit EventModifierInit specification>+newEventModifierInit :: (MonadDOM m) => m EventModifierInit+newEventModifierInit = liftDOM ((js_newEventModifierInit))++foreign import javascript safe "(($1, $2) => { $1[\"ctrlKey\"] = $2; })"+ js_setCtrlKey :: EventModifierInit -> Bool -> IO ()+-- | <https://w3c.github.io/uievents/#dom-eventmodifierinit-ctrlkey EventModifierInit.ctrlKey specification>+setCtrlKey :: (MonadDOM m, IsEventModifierInit self) => self -> Bool -> m ()+setCtrlKey self val = liftDOM (void ((js_setCtrlKey ((Types.toEventModifierInit self)) (val))))++foreign import javascript unsafe "(($1) => { return $1[\"ctrlKey\"]; })"+ js_getCtrlKey :: EventModifierInit -> IO JSVal+-- | <https://w3c.github.io/uievents/#dom-eventmodifierinit-ctrlkey EventModifierInit.ctrlKey specification>+getCtrlKey :: (MonadDOM m, IsEventModifierInit self) => self -> m (Maybe Bool)+getCtrlKey self = liftDOM (((js_getCtrlKey ((Types.toEventModifierInit self))) >>= fromJSValUnchecked))++-- | <https://w3c.github.io/uievents/#dom-eventmodifierinit-ctrlkey EventModifierInit.ctrlKey specification>+getCtrlKeyUnsafe :: (MonadDOM m, IsEventModifierInit self, HasCallStack) => self -> m Bool+getCtrlKeyUnsafe self = liftDOM ((((js_getCtrlKey ((Types.toEventModifierInit self))) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://w3c.github.io/uievents/#dom-eventmodifierinit-ctrlkey EventModifierInit.ctrlKey specification>+getCtrlKeyUnchecked :: (MonadDOM m, IsEventModifierInit self) => self -> m Bool+getCtrlKeyUnchecked self = liftDOM ((pFromJSVal <$> (js_getCtrlKey ((Types.toEventModifierInit self)))))++foreign import javascript safe "(($1, $2) => { $1[\"shiftKey\"] = $2; })"+ js_setShiftKey :: EventModifierInit -> Bool -> IO ()+-- | <https://w3c.github.io/uievents/#dom-eventmodifierinit-shiftkey EventModifierInit.shiftKey specification>+setShiftKey :: (MonadDOM m, IsEventModifierInit self) => self -> Bool -> m ()+setShiftKey self val = liftDOM (void ((js_setShiftKey ((Types.toEventModifierInit self)) (val))))++foreign import javascript unsafe "(($1) => { return $1[\"shiftKey\"]; })"+ js_getShiftKey :: EventModifierInit -> IO JSVal+-- | <https://w3c.github.io/uievents/#dom-eventmodifierinit-shiftkey EventModifierInit.shiftKey specification>+getShiftKey :: (MonadDOM m, IsEventModifierInit self) => self -> m (Maybe Bool)+getShiftKey self = liftDOM (((js_getShiftKey ((Types.toEventModifierInit self))) >>= fromJSValUnchecked))++-- | <https://w3c.github.io/uievents/#dom-eventmodifierinit-shiftkey EventModifierInit.shiftKey specification>+getShiftKeyUnsafe :: (MonadDOM m, IsEventModifierInit self, HasCallStack) => self -> m Bool+getShiftKeyUnsafe self = liftDOM ((((js_getShiftKey ((Types.toEventModifierInit self))) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://w3c.github.io/uievents/#dom-eventmodifierinit-shiftkey EventModifierInit.shiftKey specification>+getShiftKeyUnchecked :: (MonadDOM m, IsEventModifierInit self) => self -> m Bool+getShiftKeyUnchecked self = liftDOM ((pFromJSVal <$> (js_getShiftKey ((Types.toEventModifierInit self)))))++foreign import javascript safe "(($1, $2) => { $1[\"altKey\"] = $2; })"+ js_setAltKey :: EventModifierInit -> Bool -> IO ()+-- | <https://w3c.github.io/uievents/#dom-eventmodifierinit-altkey EventModifierInit.altKey specification>+setAltKey :: (MonadDOM m, IsEventModifierInit self) => self -> Bool -> m ()+setAltKey self val = liftDOM (void ((js_setAltKey ((Types.toEventModifierInit self)) (val))))++foreign import javascript unsafe "(($1) => { return $1[\"altKey\"]; })"+ js_getAltKey :: EventModifierInit -> IO JSVal+-- | <https://w3c.github.io/uievents/#dom-eventmodifierinit-altkey EventModifierInit.altKey specification>+getAltKey :: (MonadDOM m, IsEventModifierInit self) => self -> m (Maybe Bool)+getAltKey self = liftDOM (((js_getAltKey ((Types.toEventModifierInit self))) >>= fromJSValUnchecked))++-- | <https://w3c.github.io/uievents/#dom-eventmodifierinit-altkey EventModifierInit.altKey specification>+getAltKeyUnsafe :: (MonadDOM m, IsEventModifierInit self, HasCallStack) => self -> m Bool+getAltKeyUnsafe self = liftDOM ((((js_getAltKey ((Types.toEventModifierInit self))) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://w3c.github.io/uievents/#dom-eventmodifierinit-altkey EventModifierInit.altKey specification>+getAltKeyUnchecked :: (MonadDOM m, IsEventModifierInit self) => self -> m Bool+getAltKeyUnchecked self = liftDOM ((pFromJSVal <$> (js_getAltKey ((Types.toEventModifierInit self)))))++foreign import javascript safe "(($1, $2) => { $1[\"metaKey\"] = $2; })"+ js_setMetaKey :: EventModifierInit -> Bool -> IO ()+-- | <https://w3c.github.io/uievents/#dom-eventmodifierinit-metakey EventModifierInit.metaKey specification>+setMetaKey :: (MonadDOM m, IsEventModifierInit self) => self -> Bool -> m ()+setMetaKey self val = liftDOM (void ((js_setMetaKey ((Types.toEventModifierInit self)) (val))))++foreign import javascript unsafe "(($1) => { return $1[\"metaKey\"]; })"+ js_getMetaKey :: EventModifierInit -> IO JSVal+-- | <https://w3c.github.io/uievents/#dom-eventmodifierinit-metakey EventModifierInit.metaKey specification>+getMetaKey :: (MonadDOM m, IsEventModifierInit self) => self -> m (Maybe Bool)+getMetaKey self = liftDOM (((js_getMetaKey ((Types.toEventModifierInit self))) >>= fromJSValUnchecked))++-- | <https://w3c.github.io/uievents/#dom-eventmodifierinit-metakey EventModifierInit.metaKey specification>+getMetaKeyUnsafe :: (MonadDOM m, IsEventModifierInit self, HasCallStack) => self -> m Bool+getMetaKeyUnsafe self = liftDOM ((((js_getMetaKey ((Types.toEventModifierInit self))) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://w3c.github.io/uievents/#dom-eventmodifierinit-metakey EventModifierInit.metaKey specification>+getMetaKeyUnchecked :: (MonadDOM m, IsEventModifierInit self) => self -> m Bool+getMetaKeyUnchecked self = liftDOM ((pFromJSVal <$> (js_getMetaKey ((Types.toEventModifierInit self)))))++foreign import javascript safe "(($1, $2) => { $1[\"modifierAltGraph\"] = $2; })"+ js_setModifierAltGraph :: EventModifierInit -> Bool -> IO ()+-- | <https://w3c.github.io/uievents/#dom-eventmodifierinit-modifieraltgraph EventModifierInit.modifierAltGraph specification>+setModifierAltGraph :: (MonadDOM m, IsEventModifierInit self) => self -> Bool -> m ()+setModifierAltGraph self val = liftDOM (void ((js_setModifierAltGraph ((Types.toEventModifierInit self)) (val))))++foreign import javascript unsafe "(($1) => { return $1[\"modifierAltGraph\"]; })"+ js_getModifierAltGraph :: EventModifierInit -> IO JSVal+-- | <https://w3c.github.io/uievents/#dom-eventmodifierinit-modifieraltgraph EventModifierInit.modifierAltGraph specification>+getModifierAltGraph :: (MonadDOM m, IsEventModifierInit self) => self -> m (Maybe Bool)+getModifierAltGraph self = liftDOM (((js_getModifierAltGraph ((Types.toEventModifierInit self))) >>= fromJSValUnchecked))++-- | <https://w3c.github.io/uievents/#dom-eventmodifierinit-modifieraltgraph EventModifierInit.modifierAltGraph specification>+getModifierAltGraphUnsafe :: (MonadDOM m, IsEventModifierInit self, HasCallStack) => self -> m Bool+getModifierAltGraphUnsafe self = liftDOM ((((js_getModifierAltGraph ((Types.toEventModifierInit self))) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://w3c.github.io/uievents/#dom-eventmodifierinit-modifieraltgraph EventModifierInit.modifierAltGraph specification>+getModifierAltGraphUnchecked :: (MonadDOM m, IsEventModifierInit self) => self -> m Bool+getModifierAltGraphUnchecked self = liftDOM ((pFromJSVal <$> (js_getModifierAltGraph ((Types.toEventModifierInit self)))))++foreign import javascript safe "(($1, $2) => { $1[\"modifierCapsLock\"] = $2; })"+ js_setModifierCapsLock :: EventModifierInit -> Bool -> IO ()+-- | <https://w3c.github.io/uievents/#dom-eventmodifierinit-modifiercapslock EventModifierInit.modifierCapsLock specification>+setModifierCapsLock :: (MonadDOM m, IsEventModifierInit self) => self -> Bool -> m ()+setModifierCapsLock self val = liftDOM (void ((js_setModifierCapsLock ((Types.toEventModifierInit self)) (val))))++foreign import javascript unsafe "(($1) => { return $1[\"modifierCapsLock\"]; })"+ js_getModifierCapsLock :: EventModifierInit -> IO JSVal+-- | <https://w3c.github.io/uievents/#dom-eventmodifierinit-modifiercapslock EventModifierInit.modifierCapsLock specification>+getModifierCapsLock :: (MonadDOM m, IsEventModifierInit self) => self -> m (Maybe Bool)+getModifierCapsLock self = liftDOM (((js_getModifierCapsLock ((Types.toEventModifierInit self))) >>= fromJSValUnchecked))++-- | <https://w3c.github.io/uievents/#dom-eventmodifierinit-modifiercapslock EventModifierInit.modifierCapsLock specification>+getModifierCapsLockUnsafe :: (MonadDOM m, IsEventModifierInit self, HasCallStack) => self -> m Bool+getModifierCapsLockUnsafe self = liftDOM ((((js_getModifierCapsLock ((Types.toEventModifierInit self))) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://w3c.github.io/uievents/#dom-eventmodifierinit-modifiercapslock EventModifierInit.modifierCapsLock specification>+getModifierCapsLockUnchecked :: (MonadDOM m, IsEventModifierInit self) => self -> m Bool+getModifierCapsLockUnchecked self = liftDOM ((pFromJSVal <$> (js_getModifierCapsLock ((Types.toEventModifierInit self)))))++foreign import javascript safe "(($1, $2) => { $1[\"modifierFn\"] = $2; })"+ js_setModifierFn :: EventModifierInit -> Bool -> IO ()+-- | <https://w3c.github.io/uievents/#dom-eventmodifierinit-modifierfn EventModifierInit.modifierFn specification>+setModifierFn :: (MonadDOM m, IsEventModifierInit self) => self -> Bool -> m ()+setModifierFn self val = liftDOM (void ((js_setModifierFn ((Types.toEventModifierInit self)) (val))))++foreign import javascript unsafe "(($1) => { return $1[\"modifierFn\"]; })"+ js_getModifierFn :: EventModifierInit -> IO JSVal+-- | <https://w3c.github.io/uievents/#dom-eventmodifierinit-modifierfn EventModifierInit.modifierFn specification>+getModifierFn :: (MonadDOM m, IsEventModifierInit self) => self -> m (Maybe Bool)+getModifierFn self = liftDOM (((js_getModifierFn ((Types.toEventModifierInit self))) >>= fromJSValUnchecked))++-- | <https://w3c.github.io/uievents/#dom-eventmodifierinit-modifierfn EventModifierInit.modifierFn specification>+getModifierFnUnsafe :: (MonadDOM m, IsEventModifierInit self, HasCallStack) => self -> m Bool+getModifierFnUnsafe self = liftDOM ((((js_getModifierFn ((Types.toEventModifierInit self))) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://w3c.github.io/uievents/#dom-eventmodifierinit-modifierfn EventModifierInit.modifierFn specification>+getModifierFnUnchecked :: (MonadDOM m, IsEventModifierInit self) => self -> m Bool+getModifierFnUnchecked self = liftDOM ((pFromJSVal <$> (js_getModifierFn ((Types.toEventModifierInit self)))))++foreign import javascript safe "(($1, $2) => { $1[\"modifierFnLock\"] = $2; })"+ js_setModifierFnLock :: EventModifierInit -> Bool -> IO ()+-- | <https://w3c.github.io/uievents/#dom-eventmodifierinit-modifierfnlock EventModifierInit.modifierFnLock specification>+setModifierFnLock :: (MonadDOM m, IsEventModifierInit self) => self -> Bool -> m ()+setModifierFnLock self val = liftDOM (void ((js_setModifierFnLock ((Types.toEventModifierInit self)) (val))))++foreign import javascript unsafe "(($1) => { return $1[\"modifierFnLock\"]; })"+ js_getModifierFnLock :: EventModifierInit -> IO JSVal+-- | <https://w3c.github.io/uievents/#dom-eventmodifierinit-modifierfnlock EventModifierInit.modifierFnLock specification>+getModifierFnLock :: (MonadDOM m, IsEventModifierInit self) => self -> m (Maybe Bool)+getModifierFnLock self = liftDOM (((js_getModifierFnLock ((Types.toEventModifierInit self))) >>= fromJSValUnchecked))++-- | <https://w3c.github.io/uievents/#dom-eventmodifierinit-modifierfnlock EventModifierInit.modifierFnLock specification>+getModifierFnLockUnsafe :: (MonadDOM m, IsEventModifierInit self, HasCallStack) => self -> m Bool+getModifierFnLockUnsafe self = liftDOM ((((js_getModifierFnLock ((Types.toEventModifierInit self))) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://w3c.github.io/uievents/#dom-eventmodifierinit-modifierfnlock EventModifierInit.modifierFnLock specification>+getModifierFnLockUnchecked :: (MonadDOM m, IsEventModifierInit self) => self -> m Bool+getModifierFnLockUnchecked self = liftDOM ((pFromJSVal <$> (js_getModifierFnLock ((Types.toEventModifierInit self)))))++foreign import javascript safe "(($1, $2) => { $1[\"modifierHyper\"] = $2; })"+ js_setModifierHyper :: EventModifierInit -> Bool -> IO ()+-- | <https://w3c.github.io/uievents/#dom-eventmodifierinit-modifierhyper EventModifierInit.modifierHyper specification>+setModifierHyper :: (MonadDOM m, IsEventModifierInit self) => self -> Bool -> m ()+setModifierHyper self val = liftDOM (void ((js_setModifierHyper ((Types.toEventModifierInit self)) (val))))++foreign import javascript unsafe "(($1) => { return $1[\"modifierHyper\"]; })"+ js_getModifierHyper :: EventModifierInit -> IO JSVal+-- | <https://w3c.github.io/uievents/#dom-eventmodifierinit-modifierhyper EventModifierInit.modifierHyper specification>+getModifierHyper :: (MonadDOM m, IsEventModifierInit self) => self -> m (Maybe Bool)+getModifierHyper self = liftDOM (((js_getModifierHyper ((Types.toEventModifierInit self))) >>= fromJSValUnchecked))++-- | <https://w3c.github.io/uievents/#dom-eventmodifierinit-modifierhyper EventModifierInit.modifierHyper specification>+getModifierHyperUnsafe :: (MonadDOM m, IsEventModifierInit self, HasCallStack) => self -> m Bool+getModifierHyperUnsafe self = liftDOM ((((js_getModifierHyper ((Types.toEventModifierInit self))) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://w3c.github.io/uievents/#dom-eventmodifierinit-modifierhyper EventModifierInit.modifierHyper specification>+getModifierHyperUnchecked :: (MonadDOM m, IsEventModifierInit self) => self -> m Bool+getModifierHyperUnchecked self = liftDOM ((pFromJSVal <$> (js_getModifierHyper ((Types.toEventModifierInit self)))))++foreign import javascript safe "(($1, $2) => { $1[\"modifierNumLock\"] = $2; })"+ js_setModifierNumLock :: EventModifierInit -> Bool -> IO ()+-- | <https://w3c.github.io/uievents/#dom-eventmodifierinit-modifiernumlock EventModifierInit.modifierNumLock specification>+setModifierNumLock :: (MonadDOM m, IsEventModifierInit self) => self -> Bool -> m ()+setModifierNumLock self val = liftDOM (void ((js_setModifierNumLock ((Types.toEventModifierInit self)) (val))))++foreign import javascript unsafe "(($1) => { return $1[\"modifierNumLock\"]; })"+ js_getModifierNumLock :: EventModifierInit -> IO JSVal+-- | <https://w3c.github.io/uievents/#dom-eventmodifierinit-modifiernumlock EventModifierInit.modifierNumLock specification>+getModifierNumLock :: (MonadDOM m, IsEventModifierInit self) => self -> m (Maybe Bool)+getModifierNumLock self = liftDOM (((js_getModifierNumLock ((Types.toEventModifierInit self))) >>= fromJSValUnchecked))++-- | <https://w3c.github.io/uievents/#dom-eventmodifierinit-modifiernumlock EventModifierInit.modifierNumLock specification>+getModifierNumLockUnsafe :: (MonadDOM m, IsEventModifierInit self, HasCallStack) => self -> m Bool+getModifierNumLockUnsafe self = liftDOM ((((js_getModifierNumLock ((Types.toEventModifierInit self))) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://w3c.github.io/uievents/#dom-eventmodifierinit-modifiernumlock EventModifierInit.modifierNumLock specification>+getModifierNumLockUnchecked :: (MonadDOM m, IsEventModifierInit self) => self -> m Bool+getModifierNumLockUnchecked self = liftDOM ((pFromJSVal <$> (js_getModifierNumLock ((Types.toEventModifierInit self)))))++foreign import javascript safe "(($1, $2) => { $1[\"modifierScrollLock\"] = $2; })"+ js_setModifierScrollLock :: EventModifierInit -> Bool -> IO ()+-- | <https://w3c.github.io/uievents/#dom-eventmodifierinit-modifierscrolllock EventModifierInit.modifierScrollLock specification>+setModifierScrollLock :: (MonadDOM m, IsEventModifierInit self) => self -> Bool -> m ()+setModifierScrollLock self val = liftDOM (void ((js_setModifierScrollLock ((Types.toEventModifierInit self)) (val))))++foreign import javascript unsafe "(($1) => { return $1[\"modifierScrollLock\"]; })"+ js_getModifierScrollLock :: EventModifierInit -> IO JSVal+-- | <https://w3c.github.io/uievents/#dom-eventmodifierinit-modifierscrolllock EventModifierInit.modifierScrollLock specification>+getModifierScrollLock :: (MonadDOM m, IsEventModifierInit self) => self -> m (Maybe Bool)+getModifierScrollLock self = liftDOM (((js_getModifierScrollLock ((Types.toEventModifierInit self))) >>= fromJSValUnchecked))++-- | <https://w3c.github.io/uievents/#dom-eventmodifierinit-modifierscrolllock EventModifierInit.modifierScrollLock specification>+getModifierScrollLockUnsafe :: (MonadDOM m, IsEventModifierInit self, HasCallStack) => self -> m Bool+getModifierScrollLockUnsafe self = liftDOM ((((js_getModifierScrollLock ((Types.toEventModifierInit self))) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://w3c.github.io/uievents/#dom-eventmodifierinit-modifierscrolllock EventModifierInit.modifierScrollLock specification>+getModifierScrollLockUnchecked :: (MonadDOM m, IsEventModifierInit self) => self -> m Bool+getModifierScrollLockUnchecked self = liftDOM ((pFromJSVal <$> (js_getModifierScrollLock ((Types.toEventModifierInit self)))))++foreign import javascript safe "(($1, $2) => { $1[\"modifierSuper\"] = $2; })"+ js_setModifierSuper :: EventModifierInit -> Bool -> IO ()+-- | <https://w3c.github.io/uievents/#dom-eventmodifierinit-modifiersuper EventModifierInit.modifierSuper specification>+setModifierSuper :: (MonadDOM m, IsEventModifierInit self) => self -> Bool -> m ()+setModifierSuper self val = liftDOM (void ((js_setModifierSuper ((Types.toEventModifierInit self)) (val))))++foreign import javascript unsafe "(($1) => { return $1[\"modifierSuper\"]; })"+ js_getModifierSuper :: EventModifierInit -> IO JSVal+-- | <https://w3c.github.io/uievents/#dom-eventmodifierinit-modifiersuper EventModifierInit.modifierSuper specification>+getModifierSuper :: (MonadDOM m, IsEventModifierInit self) => self -> m (Maybe Bool)+getModifierSuper self = liftDOM (((js_getModifierSuper ((Types.toEventModifierInit self))) >>= fromJSValUnchecked))++-- | <https://w3c.github.io/uievents/#dom-eventmodifierinit-modifiersuper EventModifierInit.modifierSuper specification>+getModifierSuperUnsafe :: (MonadDOM m, IsEventModifierInit self, HasCallStack) => self -> m Bool+getModifierSuperUnsafe self = liftDOM ((((js_getModifierSuper ((Types.toEventModifierInit self))) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://w3c.github.io/uievents/#dom-eventmodifierinit-modifiersuper EventModifierInit.modifierSuper specification>+getModifierSuperUnchecked :: (MonadDOM m, IsEventModifierInit self) => self -> m Bool+getModifierSuperUnchecked self = liftDOM ((pFromJSVal <$> (js_getModifierSuper ((Types.toEventModifierInit self)))))++foreign import javascript safe "(($1, $2) => { $1[\"modifierSymbol\"] = $2; })"+ js_setModifierSymbol :: EventModifierInit -> Bool -> IO ()+-- | <https://w3c.github.io/uievents/#dom-eventmodifierinit-modifiersymbol EventModifierInit.modifierSymbol specification>+setModifierSymbol :: (MonadDOM m, IsEventModifierInit self) => self -> Bool -> m ()+setModifierSymbol self val = liftDOM (void ((js_setModifierSymbol ((Types.toEventModifierInit self)) (val))))++foreign import javascript unsafe "(($1) => { return $1[\"modifierSymbol\"]; })"+ js_getModifierSymbol :: EventModifierInit -> IO JSVal+-- | <https://w3c.github.io/uievents/#dom-eventmodifierinit-modifiersymbol EventModifierInit.modifierSymbol specification>+getModifierSymbol :: (MonadDOM m, IsEventModifierInit self) => self -> m (Maybe Bool)+getModifierSymbol self = liftDOM (((js_getModifierSymbol ((Types.toEventModifierInit self))) >>= fromJSValUnchecked))++-- | <https://w3c.github.io/uievents/#dom-eventmodifierinit-modifiersymbol EventModifierInit.modifierSymbol specification>+getModifierSymbolUnsafe :: (MonadDOM m, IsEventModifierInit self, HasCallStack) => self -> m Bool+getModifierSymbolUnsafe self = liftDOM ((((js_getModifierSymbol ((Types.toEventModifierInit self))) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://w3c.github.io/uievents/#dom-eventmodifierinit-modifiersymbol EventModifierInit.modifierSymbol specification>+getModifierSymbolUnchecked :: (MonadDOM m, IsEventModifierInit self) => self -> m Bool+getModifierSymbolUnchecked self = liftDOM ((pFromJSVal <$> (js_getModifierSymbol ((Types.toEventModifierInit self)))))++foreign import javascript safe "(($1, $2) => { $1[\"modifierSymbolLock\"] = $2; })"+ js_setModifierSymbolLock :: EventModifierInit -> Bool -> IO ()+-- | <https://w3c.github.io/uievents/#dom-eventmodifierinit-modifiersymbollock EventModifierInit.modifierSymbolLock specification>+setModifierSymbolLock :: (MonadDOM m, IsEventModifierInit self) => self -> Bool -> m ()+setModifierSymbolLock self val = liftDOM (void ((js_setModifierSymbolLock ((Types.toEventModifierInit self)) (val))))++foreign import javascript unsafe "(($1) => { return $1[\"modifierSymbolLock\"]; })"+ js_getModifierSymbolLock :: EventModifierInit -> IO JSVal+-- | <https://w3c.github.io/uievents/#dom-eventmodifierinit-modifiersymbollock EventModifierInit.modifierSymbolLock specification>+getModifierSymbolLock :: (MonadDOM m, IsEventModifierInit self) => self -> m (Maybe Bool)+getModifierSymbolLock self = liftDOM (((js_getModifierSymbolLock ((Types.toEventModifierInit self))) >>= fromJSValUnchecked))++-- | <https://w3c.github.io/uievents/#dom-eventmodifierinit-modifiersymbollock EventModifierInit.modifierSymbolLock specification>+getModifierSymbolLockUnsafe :: (MonadDOM m, IsEventModifierInit self, HasCallStack) => self -> m Bool+getModifierSymbolLockUnsafe self = liftDOM ((((js_getModifierSymbolLock ((Types.toEventModifierInit self))) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://w3c.github.io/uievents/#dom-eventmodifierinit-modifiersymbollock EventModifierInit.modifierSymbolLock specification>+getModifierSymbolLockUnchecked :: (MonadDOM m, IsEventModifierInit self) => self -> m Bool+getModifierSymbolLockUnchecked self = liftDOM ((pFromJSVal <$> (js_getModifierSymbolLock ((Types.toEventModifierInit self)))))
@@ -1,88 +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 html (webref). Do not edit. module GHCJS.DOM.JSFFI.Generated.EventSource- (js_newEventSource, newEventSource, js_close, close,- pattern CONNECTING, pattern OPEN, pattern CLOSED, js_getUrl,- getUrl, js_getWithCredentials, getWithCredentials,- js_getReadyState, getReadyState, open, message, error,- EventSource(..), gTypeEventSource)+ (js_newEventSource, js_close, js_getUrl, js_getWithCredentials, js_getReadyState, newEventSource, close, getUrl, getWithCredentials, getReadyState, pattern CONNECTING, pattern OPEN, pattern CLOSED, open, message, error, EventSource(..), gTypeEventSource) where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, 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 window[\"EventSource\"]($1,\n$2); })" js_newEventSource ::- JSString -> Optional EventSourceInit -> IO EventSource --- | <https://developer.mozilla.org/en-US/docs/Web/API/EventSource Mozilla EventSource documentation> -newEventSource ::- (MonadIO m, ToJSString url) =>- url -> Maybe EventSourceInit -> m EventSource-newEventSource url eventSourceInitDict- = liftIO- (js_newEventSource (toJSString url)- (maybeToOptional eventSourceInitDict))- -foreign import javascript unsafe "(($1) => { return $1[\"close\"](); })" js_close ::- EventSource -> IO ()+foreign import javascript safe "(($1, $2) => { return new globalThis[\"EventSource\"]($1, $2); })"+ js_newEventSource :: JSString -> JSVal -> IO EventSource+-- | <https://developer.mozilla.org/docs/Web/API/EventSource/EventSource MDN EventSource. documentation>+newEventSource :: (MonadDOM m, ToJSString url) => url -> Maybe EventSourceInit -> m EventSource+newEventSource url eventSourceInitDict = liftDOM (((P.maybe (P.return jsUndefined) toJSVal eventSourceInitDict) >>= \a2' -> js_newEventSource (toJSString url) a2')) --- | <https://developer.mozilla.org/en-US/docs/Web/API/EventSource.close Mozilla EventSource.close documentation> -close :: (MonadIO m) => EventSource -> m ()-close self = liftIO (js_close self)-pattern CONNECTING = 0-pattern OPEN = 1-pattern CLOSED = 2- -foreign import javascript unsafe "(($1) => { return $1[\"url\"]; })" js_getUrl ::- EventSource -> IO JSString+foreign import javascript safe "(($1) => { return $1[\"close\"](); })"+ js_close :: EventSource -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/EventSource/close MDN EventSource.close documentation>+close :: (MonadDOM m) => EventSource -> m ()+close self = liftDOM (void ((js_close (self)))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/EventSource.url Mozilla EventSource.url documentation> -getUrl ::- (MonadIO m, FromJSString result) => EventSource -> m result-getUrl self = liftIO (fromJSString <$> (js_getUrl self))- -foreign import javascript unsafe- "(($1) => { return ($1[\"withCredentials\"] ? 1 : 0); })" js_getWithCredentials ::- EventSource -> IO Bool+foreign import javascript unsafe "(($1) => { return $1[\"url\"]; })"+ js_getUrl :: EventSource -> IO JSString+-- | <https://developer.mozilla.org/docs/Web/API/EventSource/url MDN EventSource.url documentation>+getUrl :: (MonadDOM m, FromJSString result) => EventSource -> m result+getUrl self = liftDOM ((fromJSString <$> (js_getUrl (self)))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/EventSource.withCredentials Mozilla EventSource.withCredentials documentation> -getWithCredentials :: (MonadIO m) => EventSource -> m Bool-getWithCredentials self = liftIO (js_getWithCredentials self)- +foreign import javascript unsafe "(($1) => { return $1[\"withCredentials\"]; })"+ js_getWithCredentials :: EventSource -> IO Bool+-- | <https://developer.mozilla.org/docs/Web/API/EventSource/withCredentials MDN EventSource.withCredentials documentation>+getWithCredentials :: (MonadDOM m) => EventSource -> m Bool+getWithCredentials self = liftDOM ((js_getWithCredentials (self)))+ foreign import javascript unsafe "(($1) => { return $1[\"readyState\"]; })" js_getReadyState :: EventSource -> IO Word+-- | <https://developer.mozilla.org/docs/Web/API/EventSource/readyState MDN EventSource.readyState documentation>+getReadyState :: (MonadDOM m) => EventSource -> m Word+getReadyState self = liftDOM ((js_getReadyState (self))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/EventSource.readyState Mozilla EventSource.readyState documentation> -getReadyState :: (MonadIO m) => EventSource -> m Word-getReadyState self = liftIO (js_getReadyState self)+pattern CONNECTING = 0 --- | <https://developer.mozilla.org/en-US/docs/Web/API/EventSource.onopen Mozilla EventSource.onopen documentation> +pattern OPEN = 1++pattern CLOSED = 2++-- | <https://html.spec.whatwg.org/multipage/server-sent-events.html#handler-eventsource-onopen open event> open :: EventName EventSource Event open = unsafeEventNameAsync (toJSString "open") --- | <https://developer.mozilla.org/en-US/docs/Web/API/EventSource.onmessage Mozilla EventSource.onmessage documentation> +-- | <https://html.spec.whatwg.org/multipage/server-sent-events.html#handler-eventsource-onmessage message event> message :: EventName EventSource MessageEvent message = unsafeEventNameAsync (toJSString "message") --- | <https://developer.mozilla.org/en-US/docs/Web/API/EventSource.onerror Mozilla EventSource.onerror documentation> -error :: EventName EventSource UIEvent+-- | <https://html.spec.whatwg.org/multipage/server-sent-events.html#handler-eventsource-onerror error event>+error :: EventName EventSource Event error = unsafeEventNameAsync (toJSString "error")
@@ -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.EventSourceInit+ (js_newEventSourceInit, js_setWithCredentials, js_getWithCredentials, newEventSourceInit, setWithCredentials, getWithCredentials, getWithCredentialsUnsafe, getWithCredentialsUnchecked, EventSourceInit(..), gTypeEventSourceInit)+ 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_newEventSourceInit :: IO EventSourceInit+-- | <https://html.spec.whatwg.org/multipage/server-sent-events.html#eventsourceinit EventSourceInit specification>+newEventSourceInit :: (MonadDOM m) => m EventSourceInit+newEventSourceInit = liftDOM ((js_newEventSourceInit))++foreign import javascript safe "(($1, $2) => { $1[\"withCredentials\"] = $2; })"+ js_setWithCredentials :: EventSourceInit -> Bool -> IO ()+-- | <https://html.spec.whatwg.org/multipage/server-sent-events.html#dom-eventsourceinit-withcredentials EventSourceInit.withCredentials specification>+setWithCredentials :: (MonadDOM m) => EventSourceInit -> Bool -> m ()+setWithCredentials self val = liftDOM (void ((js_setWithCredentials (self) (val))))++foreign import javascript unsafe "(($1) => { return $1[\"withCredentials\"]; })"+ js_getWithCredentials :: EventSourceInit -> IO JSVal+-- | <https://html.spec.whatwg.org/multipage/server-sent-events.html#dom-eventsourceinit-withcredentials EventSourceInit.withCredentials specification>+getWithCredentials :: (MonadDOM m) => EventSourceInit -> m (Maybe Bool)+getWithCredentials self = liftDOM (((js_getWithCredentials (self)) >>= fromJSValUnchecked))++-- | <https://html.spec.whatwg.org/multipage/server-sent-events.html#dom-eventsourceinit-withcredentials EventSourceInit.withCredentials specification>+getWithCredentialsUnsafe :: (MonadDOM m, HasCallStack) => EventSourceInit -> m Bool+getWithCredentialsUnsafe self = liftDOM ((((js_getWithCredentials (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://html.spec.whatwg.org/multipage/server-sent-events.html#dom-eventsourceinit-withcredentials EventSourceInit.withCredentials specification>+getWithCredentialsUnchecked :: (MonadDOM m) => EventSourceInit -> m Bool+getWithCredentialsUnchecked self = liftDOM ((pFromJSVal <$> (js_getWithCredentials (self))))
@@ -1,86 +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 dom (webref). Do not edit. module GHCJS.DOM.JSFFI.Generated.EventTarget- (js_addEventListener, addEventListener, js_removeEventListener,- removeEventListener, js_dispatchEvent, dispatchEvent,- dispatchEvent_, EventTarget(..), gTypeEventTarget, IsEventTarget,- toEventTarget)+ (js_newEventTarget, js_addEventListener, js_dispatchEvent, js_removeEventListener, newEventTarget, addEventListener, dispatchEvent, dispatchEvent_, removeEventListener, EventTarget(..), gTypeEventTarget, IsEventTarget, toEventTarget) where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, 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[\"addEventListener\"]($2, $3,\n$4); })" js_addEventListener ::- EventTarget ->- JSString ->- Optional EventListener -> AddEventListenerOptionsOrBool -> IO () --- | <https://developer.mozilla.org/en-US/docs/Web/API/EventTarget.addEventListener Mozilla EventTarget.addEventListener documentation> -addEventListener ::- (MonadIO m, IsEventTarget self, ToJSString type',- IsAddEventListenerOptionsOrBool options) =>- self -> type' -> Maybe EventListener -> options -> m ()-addEventListener self type' callback options- = liftIO- (toJSVal options >>=- \ options' ->- js_addEventListener (toEventTarget self) (toJSString type')- (maybeToOptional callback)- (AddEventListenerOptionsOrBool options'))- -foreign import javascript unsafe- "(($1, $2, $3, $4) => { return $1[\"removeEventListener\"]($2,\n$3, $4); })" js_removeEventListener- ::- EventTarget ->- JSString ->- Optional EventListener -> EventListenerOptionsOrBool -> IO ()+foreign import javascript safe "(() => { return new globalThis[\"EventTarget\"](); })"+ js_newEventTarget :: IO EventTarget+-- | <https://developer.mozilla.org/docs/Web/API/EventTarget/EventTarget MDN EventTarget. documentation>+newEventTarget :: (MonadDOM m) => m EventTarget+newEventTarget = liftDOM ((js_newEventTarget)) --- | <https://developer.mozilla.org/en-US/docs/Web/API/EventTarget.removeEventListener Mozilla EventTarget.removeEventListener documentation> -removeEventListener ::- (MonadIO m, IsEventTarget self, ToJSString type',- IsEventListenerOptionsOrBool options) =>- self -> type' -> Maybe EventListener -> options -> m ()-removeEventListener self type' callback options- = liftIO- (toJSVal options >>=- \ options' ->- js_removeEventListener (toEventTarget self) (toJSString type')- (maybeToOptional callback)- (EventListenerOptionsOrBool options'))- -foreign import javascript safe- "(($1, $2) => { return ($1[\"dispatchEvent\"]($2) ? 1 : 0); })" js_dispatchEvent ::- EventTarget -> Event -> IO Bool+foreign import javascript safe "(($1, $2, $3, $4) => { return $1[\"addEventListener\"]($2, $3, $4); })"+ js_addEventListener :: EventTarget -> JSString -> JSVal -> JSVal -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/EventTarget/addEventListener MDN EventTarget.addEventListener documentation>+addEventListener :: (MonadDOM m, IsEventTarget self, ToJSString type', IsAddEventListenerOptionsOrBool options) => self -> type' -> Maybe EventListener -> Maybe options -> m ()+addEventListener self type' callback' options = liftDOM (void (((toJSVal callback') >>= \a3' -> (P.maybe (P.return jsUndefined) toJSVal options) >>= \a4' -> js_addEventListener ((Types.toEventTarget self)) (toJSString type') a3' a4'))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/EventTarget.dispatchEvent Mozilla EventTarget.dispatchEvent documentation> -dispatchEvent ::- (MonadIO m, IsEventTarget self, IsEvent event) =>- self -> event -> m Bool-dispatchEvent self event- = liftIO (js_dispatchEvent (toEventTarget self) (toEvent event))+foreign import javascript safe "(($1, $2) => { return $1[\"dispatchEvent\"]($2); })"+ js_dispatchEvent :: EventTarget -> Event -> IO Bool+-- | <https://developer.mozilla.org/docs/Web/API/EventTarget/dispatchEvent MDN EventTarget.dispatchEvent documentation>+dispatchEvent :: (MonadDOM m, IsEventTarget self, IsEvent event) => self -> event -> m Bool+dispatchEvent self event = liftDOM ((js_dispatchEvent ((Types.toEventTarget self)) (Types.toEvent event))) --- | <https://developer.mozilla.org/en-US/docs/Web/API/EventTarget.dispatchEvent Mozilla EventTarget.dispatchEvent documentation> -dispatchEvent_ ::- (MonadIO m, IsEventTarget self, IsEvent event) =>- self -> event -> m ()-dispatchEvent_ self event- = liftIO- (void (js_dispatchEvent (toEventTarget self) (toEvent event)))+-- | <https://developer.mozilla.org/docs/Web/API/EventTarget/dispatchEvent MDN EventTarget.dispatchEvent documentation>+dispatchEvent_ :: (MonadDOM m, IsEventTarget self, IsEvent event) => self -> event -> m ()+dispatchEvent_ self event = liftDOM (void ((js_dispatchEvent ((Types.toEventTarget self)) (Types.toEvent event))))++foreign import javascript safe "(($1, $2, $3, $4) => { return $1[\"removeEventListener\"]($2, $3, $4); })"+ js_removeEventListener :: EventTarget -> JSString -> JSVal -> JSVal -> IO ()+-- | <https://developer.mozilla.org/docs/Web/API/EventTarget/removeEventListener MDN EventTarget.removeEventListener documentation>+removeEventListener :: (MonadDOM m, IsEventTarget self, ToJSString type', IsEventListenerOptionsOrBool options) => self -> type' -> Maybe EventListener -> Maybe options -> m ()+removeEventListener self type' callback' options = liftDOM (void (((toJSVal callback') >>= \a3' -> (P.maybe (P.return jsUndefined) toJSVal options) >>= \a4' -> js_removeEventListener ((Types.toEventTarget self)) (toJSString type') a3' a4')))
@@ -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.ExtendableCookieChangeEvent+ (js_newExtendableCookieChangeEvent, js_getChanged, js_getDeleted, newExtendableCookieChangeEvent, getChanged, getDeleted, ExtendableCookieChangeEvent(..), gTypeExtendableCookieChangeEvent)+ 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[\"ExtendableCookieChangeEvent\"]($1, $2); })"+ js_newExtendableCookieChangeEvent :: JSString -> JSVal -> IO ExtendableCookieChangeEvent+-- | <https://developer.mozilla.org/docs/Web/API/ExtendableCookieChangeEvent/ExtendableCookieChangeEvent MDN ExtendableCookieChangeEvent. documentation>+newExtendableCookieChangeEvent :: (MonadDOM m, ToJSString type') => type' -> Maybe ExtendableCookieChangeEventInit -> m ExtendableCookieChangeEvent+newExtendableCookieChangeEvent type' eventInitDict = liftDOM (((P.maybe (P.return jsUndefined) toJSVal eventInitDict) >>= \a2' -> js_newExtendableCookieChangeEvent (toJSString type') a2'))++foreign import javascript unsafe "(($1) => { return $1[\"changed\"]; })"+ js_getChanged :: ExtendableCookieChangeEvent -> IO JSVal+-- | <https://developer.mozilla.org/docs/Web/API/ExtendableCookieChangeEvent/changed MDN ExtendableCookieChangeEvent.changed documentation>+getChanged :: (MonadDOM m) => ExtendableCookieChangeEvent -> m [CookieListItem]+getChanged self = liftDOM (((js_getChanged (self)) >>= fromJSValUnchecked))++foreign import javascript unsafe "(($1) => { return $1[\"deleted\"]; })"+ js_getDeleted :: ExtendableCookieChangeEvent -> IO JSVal+-- | <https://developer.mozilla.org/docs/Web/API/ExtendableCookieChangeEvent/deleted MDN ExtendableCookieChangeEvent.deleted documentation>+getDeleted :: (MonadDOM m) => ExtendableCookieChangeEvent -> m [CookieListItem]+getDeleted self = liftDOM (((js_getDeleted (self)) >>= fromJSValUnchecked))
@@ -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.ExtendableCookieChangeEventInit+ (js_newExtendableCookieChangeEventInit, js_setChanged, js_getChanged, js_setDeleted, js_getDeleted, newExtendableCookieChangeEventInit, setChanged, getChanged, getChangedUnsafe, getChangedUnchecked, setDeleted, getDeleted, getDeletedUnsafe, getDeletedUnchecked, ExtendableCookieChangeEventInit(..), gTypeExtendableCookieChangeEventInit)+ 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_newExtendableCookieChangeEventInit :: IO ExtendableCookieChangeEventInit+-- | <https://cookiestore.spec.whatwg.org/#dictdef-extendablecookiechangeeventinit ExtendableCookieChangeEventInit specification>+newExtendableCookieChangeEventInit :: (MonadDOM m) => m ExtendableCookieChangeEventInit+newExtendableCookieChangeEventInit = liftDOM ((js_newExtendableCookieChangeEventInit))++foreign import javascript safe "(($1, $2) => { $1[\"changed\"] = $2; })"+ js_setChanged :: ExtendableCookieChangeEventInit -> JSVal -> IO ()+-- | <https://cookiestore.spec.whatwg.org/#dom-extendablecookiechangeeventinit-changed ExtendableCookieChangeEventInit.changed specification>+setChanged :: (MonadDOM m) => ExtendableCookieChangeEventInit -> [CookieListItem] -> m ()+setChanged self val = liftDOM (void (((toJSVal val) >>= \a2' -> js_setChanged (self) a2')))++foreign import javascript unsafe "(($1) => { return $1[\"changed\"]; })"+ js_getChanged :: ExtendableCookieChangeEventInit -> IO JSVal+-- | <https://cookiestore.spec.whatwg.org/#dom-extendablecookiechangeeventinit-changed ExtendableCookieChangeEventInit.changed specification>+getChanged :: (MonadDOM m) => ExtendableCookieChangeEventInit -> m (Maybe [CookieListItem])+getChanged self = liftDOM (((js_getChanged (self)) >>= fromJSValUnchecked))++-- | <https://cookiestore.spec.whatwg.org/#dom-extendablecookiechangeeventinit-changed ExtendableCookieChangeEventInit.changed specification>+getChangedUnsafe :: (MonadDOM m, HasCallStack) => ExtendableCookieChangeEventInit -> m [CookieListItem]+getChangedUnsafe self = liftDOM ((((js_getChanged (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://cookiestore.spec.whatwg.org/#dom-extendablecookiechangeeventinit-changed ExtendableCookieChangeEventInit.changed specification>+getChangedUnchecked :: (MonadDOM m) => ExtendableCookieChangeEventInit -> m [CookieListItem]+getChangedUnchecked self = liftDOM (((js_getChanged (self)) >>= fromJSValUnchecked))++foreign import javascript safe "(($1, $2) => { $1[\"deleted\"] = $2; })"+ js_setDeleted :: ExtendableCookieChangeEventInit -> JSVal -> IO ()+-- | <https://cookiestore.spec.whatwg.org/#dom-extendablecookiechangeeventinit-deleted ExtendableCookieChangeEventInit.deleted specification>+setDeleted :: (MonadDOM m) => ExtendableCookieChangeEventInit -> [CookieListItem] -> m ()+setDeleted self val = liftDOM (void (((toJSVal val) >>= \a2' -> js_setDeleted (self) a2')))++foreign import javascript unsafe "(($1) => { return $1[\"deleted\"]; })"+ js_getDeleted :: ExtendableCookieChangeEventInit -> IO JSVal+-- | <https://cookiestore.spec.whatwg.org/#dom-extendablecookiechangeeventinit-deleted ExtendableCookieChangeEventInit.deleted specification>+getDeleted :: (MonadDOM m) => ExtendableCookieChangeEventInit -> m (Maybe [CookieListItem])+getDeleted self = liftDOM (((js_getDeleted (self)) >>= fromJSValUnchecked))++-- | <https://cookiestore.spec.whatwg.org/#dom-extendablecookiechangeeventinit-deleted ExtendableCookieChangeEventInit.deleted specification>+getDeletedUnsafe :: (MonadDOM m, HasCallStack) => ExtendableCookieChangeEventInit -> m [CookieListItem]+getDeletedUnsafe self = liftDOM ((((js_getDeleted (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))++-- | <https://cookiestore.spec.whatwg.org/#dom-extendablecookiechangeeventinit-deleted ExtendableCookieChangeEventInit.deleted specification>+getDeletedUnchecked :: (MonadDOM m) => ExtendableCookieChangeEventInit -> m [CookieListItem]+getDeletedUnchecked self = liftDOM (((js_getDeleted (self)) >>= fromJSValUnchecked))
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff
file too large to diff