diff --git a/cbits/ghcjs_stubs.c b/cbits/ghcjs_stubs.c deleted file mode 100644 --- a/cbits/ghcjs_stubs.c +++ /dev/null @@ -1,4 +0,0 @@ -void * ghcjs_currentWindow() { return 0; } - -void * ghcjs_currentDocument() { return 0; } - diff --git a/common/GHCJS/DOM/EventM.hs b/common/GHCJS/DOM/EventM.hs deleted file mode 100644 --- a/common/GHCJS/DOM/EventM.hs +++ /dev/null @@ -1,297 +0,0 @@ -{-# LANGUAGE ConstraintKinds #-} -module GHCJS.DOM.EventM -( - EventM(..) -, SaferEventListener(..) -, EventName -, newListener -, newListenerSync -, newListenerAsync -, addListener -, removeListener -, releaseListener -, on -, event -, eventTarget -, target -, eventCurrentTarget -, eventPhase -, bubbles -, cancelable -, timeStamp -, stopPropagation -, preventDefault -, defaultPrevented -, stopImmediatePropagation -, srcElement -, getCancelBubble -, cancelBubble -, getReturnValue -, returnValue -, uiView -, uiDetail -, uiKeyCode -, uiCharCode -, uiLayerX -, uiLayerY -, uiLayerXY -, uiPageX -, uiPageY -, uiPageXY -, uiWhich -, mouseScreenX -, mouseScreenY -, mouseScreenXY -, mouseClientX -, mouseClientY -, mouseClientXY -, mouseMovementX -, mouseMovementY -, mouseMovementXY -, mouseCtrlKey -, mouseShiftKey -, mouseAltKey -, mouseMetaKey -, mouseButton -, mouseRelatedTarget -, mouseOffsetX -, mouseOffsetY -, mouseOffsetXY -, mouseX -, mouseY -, mouseXY -, mouseFromElement -, mouseToElement -) -where -import Control.Applicative ((<$>)) -import Control.Monad.Trans.Reader (ReaderT, ask, runReaderT) -import Control.Monad.IO.Class (MonadIO(..)) -import GHCJS.DOM.Types -import qualified GHCJS.DOM.Event as Event -import qualified GHCJS.DOM.UIEvent as UIEvent -import qualified GHCJS.DOM.MouseEvent as MouseEvent -import GHCJS.DOM.EventTarget -import GHCJS.DOM.EventTargetClosures -import Data.Word (Word) -import Data.Foldable (forM_) - -type EventM t e = ReaderT e IO - -newListener :: (IsEvent e) => EventM t e () -> IO (SaferEventListener t e) -newListener f = SaferEventListener <$> eventListenerNew (runReaderT f) - -newListenerSync :: (IsEvent e) => EventM t e () -> IO (SaferEventListener t e) -newListenerSync f = SaferEventListener <$> eventListenerNewSync (runReaderT f) - -newListenerAsync :: (IsEvent e) => EventM t e () -> IO (SaferEventListener t e) -newListenerAsync f = SaferEventListener <$> eventListenerNewAsync (runReaderT f) - -addListener :: (IsEventTarget t, IsEvent e) => t -> EventName t e -> SaferEventListener t e -> Bool -> IO () -addListener target (EventName eventName) (SaferEventListener l) useCapture = - addEventListener target eventName (Just l) useCapture - -removeListener :: (IsEventTarget t, IsEvent e) => t -> EventName t e -> SaferEventListener t e -> Bool -> IO () -removeListener target (EventName eventName) (SaferEventListener l) useCapture = - removeEventListener target eventName (Just l) useCapture - -releaseListener :: (IsEventTarget t, IsEvent e) => SaferEventListener t e -> IO () -releaseListener (SaferEventListener l) = eventListenerRelease l - -on :: (IsEventTarget t, IsEvent e) => t -> EventName t e -> EventM t e () -> IO (IO ()) -on target eventName callback = do - l <- newListener callback - addListener target eventName l False - return (removeListener target eventName l False >> releaseListener l) - -onThese :: (IsEventTarget t, IsEvent e) => [(t, EventName t e)] -> EventM t e () -> IO (IO ()) -onThese targetsAndEventNames callback = do - l <- newListener callback - forM_ targetsAndEventNames $ \(target, eventName) -> - addListener target eventName l False - return (do - forM_ targetsAndEventNames (\(target, eventName) -> - removeListener target eventName l False) - releaseListener l) - -event :: EventM t e e -event = ask - -eventTarget :: IsEvent e => EventM t e (Maybe EventTarget) -eventTarget = event >>= Event.getTarget - -target :: (IsEvent e, IsGObject t) => EventM t e (Maybe t) -target = (fmap (unsafeCastGObject . toGObject)) <$> eventTarget - -eventCurrentTarget :: IsEvent e => EventM t e (Maybe EventTarget) -eventCurrentTarget = event >>= Event.getCurrentTarget - -eventPhase :: IsEvent e => EventM t e Word -eventPhase = event >>= Event.getEventPhase - -bubbles :: IsEvent e => EventM t e Bool -bubbles = event >>= Event.getBubbles - -cancelable :: IsEvent e => EventM t e Bool -cancelable = event >>= Event.getCancelable - -timeStamp :: IsEvent e => EventM t e Word -timeStamp = event >>= Event.getTimeStamp - -stopPropagation :: IsEvent e => EventM t e () -stopPropagation = event >>= Event.stopPropagation - -preventDefault :: IsEvent e => EventM t e () -preventDefault = event >>= Event.preventDefault - -defaultPrevented :: IsEvent e => EventM t e Bool -defaultPrevented = event >>= Event.getDefaultPrevented - -stopImmediatePropagation :: IsEvent e => EventM t e () -stopImmediatePropagation = event >>= Event.stopImmediatePropagation - -srcElement :: IsEvent e => EventM t e (Maybe EventTarget) -srcElement = event >>= Event.getSrcElement - -getCancelBubble :: IsEvent e => EventM t e Bool -getCancelBubble = event >>= Event.getCancelBubble - -cancelBubble :: IsEvent e => Bool -> EventM t e () -cancelBubble f = event >>= flip Event.setCancelBubble f - -getReturnValue :: IsEvent e => EventM t e Bool -getReturnValue = event >>= Event.getReturnValue - -returnValue :: IsEvent e => Bool -> EventM t e () -returnValue f = event >>= flip Event.setReturnValue f - -uiView :: IsUIEvent e => EventM t e (Maybe Window) -uiView = event >>= UIEvent.getView - -uiDetail :: IsUIEvent e => EventM t e Int -uiDetail = event >>= UIEvent.getDetail - -uiKeyCode :: IsUIEvent e => EventM t e Int -uiKeyCode = event >>= UIEvent.getKeyCode - -uiCharCode :: IsUIEvent e => EventM t e Int -uiCharCode = event >>= UIEvent.getCharCode - -uiLayerX :: IsUIEvent e => EventM t e Int -uiLayerX = event >>= UIEvent.getLayerX - -uiLayerY :: IsUIEvent e => EventM t e Int -uiLayerY = event >>= UIEvent.getLayerY - -uiLayerXY :: IsUIEvent e => EventM t e (Int, Int) -uiLayerXY = do - e <- event - x <- UIEvent.getLayerX e - y <- UIEvent.getLayerY e - return (x, y) - -uiPageX :: IsUIEvent e => EventM t e Int -uiPageX = event >>= UIEvent.getPageX - -uiPageY :: IsUIEvent e => EventM t e Int -uiPageY = event >>= UIEvent.getPageY - -uiPageXY :: IsUIEvent e => EventM t e (Int, Int) -uiPageXY = do - e <- event - x <- UIEvent.getPageX e - y <- UIEvent.getPageY e - return (x, y) - -uiWhich :: IsUIEvent e => EventM t e Int -uiWhich = event >>= UIEvent.getWhich - -mouseScreenX :: IsMouseEvent e => EventM t e Int -mouseScreenX = event >>= MouseEvent.getScreenX - -mouseScreenY :: IsMouseEvent e => EventM t e Int -mouseScreenY = event >>= MouseEvent.getScreenY - -mouseScreenXY :: IsMouseEvent e => EventM t e (Int, Int) -mouseScreenXY = do - e <- event - x <- MouseEvent.getScreenX e - y <- MouseEvent.getScreenY e - return (x, y) - -mouseClientX :: IsMouseEvent e => EventM t e Int -mouseClientX = event >>= MouseEvent.getClientX - -mouseClientY :: IsMouseEvent e => EventM t e Int -mouseClientY = event >>= MouseEvent.getClientY - -mouseClientXY :: IsMouseEvent e => EventM t e (Int, Int) -mouseClientXY = do - e <- event - x <- MouseEvent.getClientX e - y <- MouseEvent.getClientY e - return (x, y) - -mouseMovementX :: IsMouseEvent e => EventM t e Int -mouseMovementX = event >>= MouseEvent.getMovementX - -mouseMovementY :: IsMouseEvent e => EventM t e Int -mouseMovementY = event >>= MouseEvent.getMovementY - -mouseMovementXY :: IsMouseEvent e => EventM t e (Int, Int) -mouseMovementXY = do - e <- event - x <- MouseEvent.getMovementX e - y <- MouseEvent.getMovementY e - return (x, y) - -mouseCtrlKey :: IsMouseEvent e => EventM t e Bool -mouseCtrlKey = event >>= MouseEvent.getCtrlKey - -mouseShiftKey :: IsMouseEvent e => EventM t e Bool -mouseShiftKey = event >>= MouseEvent.getShiftKey - -mouseAltKey :: IsMouseEvent e => EventM t e Bool -mouseAltKey = event >>= MouseEvent.getAltKey - -mouseMetaKey :: IsMouseEvent e => EventM t e Bool -mouseMetaKey = event >>= MouseEvent.getMetaKey - -mouseButton :: IsMouseEvent e => EventM t e Word -mouseButton = event >>= MouseEvent.getButton - -mouseRelatedTarget :: IsMouseEvent e => EventM t e (Maybe EventTarget) -mouseRelatedTarget = event >>= MouseEvent.getRelatedTarget - -mouseOffsetX :: IsMouseEvent e => EventM t e Int -mouseOffsetX = event >>= MouseEvent.getOffsetX - -mouseOffsetY :: IsMouseEvent e => EventM t e Int -mouseOffsetY = event >>= MouseEvent.getOffsetY - -mouseOffsetXY :: IsMouseEvent e => EventM t e (Int, Int) -mouseOffsetXY = do - e <- event - x <- MouseEvent.getOffsetX e - y <- MouseEvent.getOffsetY e - return (x, y) - -mouseX :: IsMouseEvent e => EventM t e Int -mouseX = event >>= MouseEvent.getX - -mouseY :: IsMouseEvent e => EventM t e Int -mouseY = event >>= MouseEvent.getY - -mouseXY :: IsMouseEvent e => EventM t e (Int, Int) -mouseXY = do - e <- event - x <- MouseEvent.getX e - y <- MouseEvent.getY e - return (x, y) - -mouseFromElement :: IsMouseEvent e => EventM t e (Maybe Node) -mouseFromElement = event >>= MouseEvent.getFromElement - -mouseToElement :: IsMouseEvent e => EventM t e (Maybe Node) -mouseToElement = event >>= MouseEvent.getToElement - diff --git a/ghcjs-dom.cabal b/ghcjs-dom.cabal --- a/ghcjs-dom.cabal +++ b/ghcjs-dom.cabal @@ -1,1116 +1,561 @@ name: ghcjs-dom -version: 0.3.0.1 -cabal-version: >=1.10 -build-type: Simple -license: MIT -license-file: LICENSE -maintainer: Hamish Mackenzie -synopsis: DOM library that supports both GHCJS and WebKitGTK -description: Documentent Object Model (DOM) functions that work with - GHCJS, but can also be used with GHC and WebKitGTK. -author: Hamish Mackenzie -data-dir: "" -category: Web - -Source-Repository head - type: git - location: https://github.com/ghcjs/ghcjs-dom - -flag jsffi - description: Use JavaScriptFFI extension for GHCJS JavaScript output - default: True - -flag webkit - description: Use WebKitGtk DOM functions - default: False - -flag old-webkit - description: If you have an old version of WebKitGTK+ this will get ghcjs-dom - to build, leaving out functions that are new or have changed. - This option is mainly here to get the travis builds to work. - default: False - -flag gtk3 - description: Use GTK3 rather than GTK2 (only matters when using webkit) - default: True - -library - build-depends: base <5, - transformers >=0.2 && <0.6, - text >= 0.11.0.6 && < 1.3 - - default-language: Haskell2010 - exposed-modules: - GHCJS.DOM - GHCJS.DOM.ANGLEInstancedArrays - GHCJS.DOM.AbstractView - GHCJS.DOM.AbstractWorker - GHCJS.DOM.AllAudioCapabilities - GHCJS.DOM.AllVideoCapabilities - GHCJS.DOM.AnalyserNode - GHCJS.DOM.AnimationEvent - GHCJS.DOM.Attr - GHCJS.DOM.AudioBuffer - GHCJS.DOM.AudioBufferCallback - GHCJS.DOM.AudioBufferSourceNode - GHCJS.DOM.AudioContext - GHCJS.DOM.AudioDestinationNode - GHCJS.DOM.AudioListener - GHCJS.DOM.AudioNode - GHCJS.DOM.AudioParam - GHCJS.DOM.AudioProcessingEvent - GHCJS.DOM.AudioStreamTrack - GHCJS.DOM.AudioTrack - GHCJS.DOM.AudioTrackList - GHCJS.DOM.AutocompleteErrorEvent - GHCJS.DOM.BarProp - GHCJS.DOM.BatteryManager - GHCJS.DOM.BeforeLoadEvent - GHCJS.DOM.BeforeUnloadEvent - GHCJS.DOM.BiquadFilterNode - GHCJS.DOM.Blob - GHCJS.DOM.CSSCharsetRule - GHCJS.DOM.CSSFontFaceLoadEvent - GHCJS.DOM.CSSFontFaceRule - GHCJS.DOM.CSSImportRule - GHCJS.DOM.CSSKeyframeRule - GHCJS.DOM.CSSKeyframesRule - GHCJS.DOM.CSSMediaRule - GHCJS.DOM.CSSPageRule - GHCJS.DOM.CSSPrimitiveValue - GHCJS.DOM.CSSRule - GHCJS.DOM.CSSRuleList - GHCJS.DOM.CSSStyleDeclaration - GHCJS.DOM.CSSStyleRule - GHCJS.DOM.CSSStyleSheet - GHCJS.DOM.CSSSupportsRule - GHCJS.DOM.CSSValue - GHCJS.DOM.CSSValueList - GHCJS.DOM.CanvasGradient - GHCJS.DOM.CanvasRenderingContext - GHCJS.DOM.CanvasRenderingContext2D - GHCJS.DOM.CapabilityRange - GHCJS.DOM.CharacterData - GHCJS.DOM.ChildNode - GHCJS.DOM.ClientRect - GHCJS.DOM.ClientRectList - GHCJS.DOM.CloseEvent - GHCJS.DOM.CommandLineAPIHost - GHCJS.DOM.Comment - GHCJS.DOM.CompositionEvent - GHCJS.DOM.ConvolverNode - GHCJS.DOM.Coordinates - GHCJS.DOM.Counter - GHCJS.DOM.Crypto - GHCJS.DOM.CryptoKey - GHCJS.DOM.CryptoKeyPair - GHCJS.DOM.CustomEvent - GHCJS.DOM.ApplicationCache - GHCJS.DOM.DOMError - GHCJS.DOM.FormData - GHCJS.DOM.DOMImplementation - GHCJS.DOM.MimeType - GHCJS.DOM.MimeTypeArray - GHCJS.DOM.DOMNamedFlowCollection - GHCJS.DOM.DOMParser - GHCJS.DOM.Path2D - GHCJS.DOM.Plugin - GHCJS.DOM.PluginArray - GHCJS.DOM.SecurityPolicy - GHCJS.DOM.Selection - GHCJS.DOM.DOMSettableTokenList - GHCJS.DOM.DOMStringList - GHCJS.DOM.DOMTokenList - GHCJS.DOM.URL - GHCJS.DOM.Window - GHCJS.DOM.CSS - GHCJS.DOM.DataCue - GHCJS.DOM.DataTransfer - GHCJS.DOM.DataTransferItem - GHCJS.DOM.DataTransferItemList - GHCJS.DOM.Database - GHCJS.DOM.DatabaseCallback - GHCJS.DOM.DedicatedWorkerGlobalScope - GHCJS.DOM.DelayNode - GHCJS.DOM.DeviceMotionEvent - GHCJS.DOM.DeviceOrientationEvent - GHCJS.DOM.DeviceProximityEvent - GHCJS.DOM.Document - GHCJS.DOM.DocumentFragment - GHCJS.DOM.DocumentType - GHCJS.DOM.DynamicsCompressorNode - GHCJS.DOM.EXTBlendMinMax - GHCJS.DOM.EXTsRGB - GHCJS.DOM.EXTTextureFilterAnisotropic - GHCJS.DOM.Element - GHCJS.DOM.Entity - GHCJS.DOM.Enums - GHCJS.DOM.ErrorEvent - GHCJS.DOM.Event - GHCJS.DOM.EventListener - GHCJS.DOM.EventM - GHCJS.DOM.EventSource - GHCJS.DOM.EventTarget - GHCJS.DOM.File - GHCJS.DOM.FileError - GHCJS.DOM.FileList - GHCJS.DOM.FileReader - GHCJS.DOM.FileReaderSync - GHCJS.DOM.FocusEvent - GHCJS.DOM.FontLoader - GHCJS.DOM.GainNode - GHCJS.DOM.Gamepad - GHCJS.DOM.GamepadButton - GHCJS.DOM.GamepadEvent - GHCJS.DOM.Geolocation - GHCJS.DOM.Geoposition - GHCJS.DOM.HTMLAllCollection - GHCJS.DOM.HTMLAnchorElement - GHCJS.DOM.HTMLAppletElement - GHCJS.DOM.HTMLAreaElement - GHCJS.DOM.HTMLBRElement - GHCJS.DOM.HTMLBaseElement - GHCJS.DOM.HTMLBaseFontElement - GHCJS.DOM.HTMLBodyElement - GHCJS.DOM.HTMLButtonElement - GHCJS.DOM.HTMLCanvasElement - GHCJS.DOM.HTMLCollection - GHCJS.DOM.HTMLDListElement - GHCJS.DOM.HTMLDataListElement - GHCJS.DOM.HTMLDetailsElement - GHCJS.DOM.HTMLDirectoryElement - GHCJS.DOM.HTMLDivElement - GHCJS.DOM.HTMLDocument - GHCJS.DOM.HTMLElement - GHCJS.DOM.HTMLEmbedElement - GHCJS.DOM.HTMLFieldSetElement - GHCJS.DOM.HTMLFontElement - GHCJS.DOM.HTMLFormControlsCollection - GHCJS.DOM.HTMLFormElement - GHCJS.DOM.HTMLFrameElement - GHCJS.DOM.HTMLFrameSetElement - GHCJS.DOM.HTMLHRElement - GHCJS.DOM.HTMLHeadElement - GHCJS.DOM.HTMLHeadingElement - GHCJS.DOM.HTMLHtmlElement - GHCJS.DOM.HTMLIFrameElement - GHCJS.DOM.HTMLImageElement - GHCJS.DOM.HTMLInputElement - GHCJS.DOM.HTMLKeygenElement - GHCJS.DOM.HTMLLIElement - GHCJS.DOM.HTMLLabelElement - GHCJS.DOM.HTMLLegendElement - GHCJS.DOM.HTMLLinkElement - GHCJS.DOM.HTMLMapElement - GHCJS.DOM.HTMLMarqueeElement - GHCJS.DOM.HTMLMediaElement - GHCJS.DOM.HTMLMenuElement - GHCJS.DOM.HTMLMetaElement - GHCJS.DOM.HTMLMeterElement - GHCJS.DOM.HTMLModElement - GHCJS.DOM.HTMLOListElement - GHCJS.DOM.HTMLObjectElement - GHCJS.DOM.HTMLOptGroupElement - GHCJS.DOM.HTMLOptionElement - GHCJS.DOM.HTMLOptionsCollection - GHCJS.DOM.HTMLOutputElement - GHCJS.DOM.HTMLParagraphElement - GHCJS.DOM.HTMLParamElement - GHCJS.DOM.HTMLPreElement - GHCJS.DOM.HTMLProgressElement - GHCJS.DOM.HTMLQuoteElement - GHCJS.DOM.HTMLScriptElement - GHCJS.DOM.HTMLSelectElement - GHCJS.DOM.HTMLSourceElement - GHCJS.DOM.HTMLStyleElement - GHCJS.DOM.HTMLTableCaptionElement - GHCJS.DOM.HTMLTableCellElement - GHCJS.DOM.HTMLTableColElement - GHCJS.DOM.HTMLTableElement - GHCJS.DOM.HTMLTableRowElement - GHCJS.DOM.HTMLTableSectionElement - GHCJS.DOM.HTMLTemplateElement - GHCJS.DOM.HTMLTextAreaElement - GHCJS.DOM.HTMLTitleElement - GHCJS.DOM.HTMLTrackElement - GHCJS.DOM.HTMLUListElement - GHCJS.DOM.HTMLVideoElement - GHCJS.DOM.HashChangeEvent - GHCJS.DOM.History - GHCJS.DOM.IDBCursor - GHCJS.DOM.IDBCursorWithValue - GHCJS.DOM.IDBDatabase - GHCJS.DOM.IDBFactory - GHCJS.DOM.IDBIndex - GHCJS.DOM.IDBKeyRange - GHCJS.DOM.IDBObjectStore - GHCJS.DOM.IDBOpenDBRequest - GHCJS.DOM.IDBRequest - GHCJS.DOM.IDBTransaction - GHCJS.DOM.IDBVersionChangeEvent - GHCJS.DOM.ImageData - GHCJS.DOM.InspectorFrontendHost - GHCJS.DOM.InternalSettings - GHCJS.DOM.Internals - GHCJS.DOM.KeyboardEvent - GHCJS.DOM.Location - GHCJS.DOM.MallocStatistics - GHCJS.DOM.MediaController - GHCJS.DOM.MediaControlsHost - GHCJS.DOM.MediaElementAudioSourceNode - GHCJS.DOM.MediaError - GHCJS.DOM.MediaKeyError - GHCJS.DOM.MediaKeyEvent - GHCJS.DOM.MediaKeyMessageEvent - GHCJS.DOM.MediaKeyNeededEvent - GHCJS.DOM.MediaKeySession - GHCJS.DOM.MediaKeys - GHCJS.DOM.MediaList - GHCJS.DOM.MediaQueryList - GHCJS.DOM.MediaQueryListListener - GHCJS.DOM.MediaSource - GHCJS.DOM.MediaSourceStates - GHCJS.DOM.MediaStream - GHCJS.DOM.MediaStreamAudioDestinationNode - GHCJS.DOM.MediaStreamAudioSourceNode - GHCJS.DOM.MediaStreamEvent - GHCJS.DOM.MediaStreamTrack - GHCJS.DOM.MediaStreamTrackEvent - GHCJS.DOM.MediaStreamTrackSourcesCallback - GHCJS.DOM.MediaTrackConstraints - GHCJS.DOM.MemoryInfo - GHCJS.DOM.MessageChannel - GHCJS.DOM.MessageEvent - GHCJS.DOM.MessagePort - GHCJS.DOM.MouseEvent - GHCJS.DOM.MutationEvent - GHCJS.DOM.MutationObserver - GHCJS.DOM.MutationRecord - GHCJS.DOM.NamedNodeMap - GHCJS.DOM.Navigator - GHCJS.DOM.NavigatorUserMediaError - GHCJS.DOM.NavigatorUserMediaErrorCallback - GHCJS.DOM.NavigatorUserMediaSuccessCallback - GHCJS.DOM.Node - GHCJS.DOM.NodeFilter - GHCJS.DOM.NodeIterator - GHCJS.DOM.NodeList - GHCJS.DOM.Notification - GHCJS.DOM.NotificationCenter - GHCJS.DOM.NotificationPermissionCallback - GHCJS.DOM.OESStandardDerivatives - GHCJS.DOM.OESTextureHalfFloat - GHCJS.DOM.OESVertexArrayObject - GHCJS.DOM.OfflineAudioCompletionEvent - GHCJS.DOM.OfflineAudioContext - GHCJS.DOM.OscillatorNode - GHCJS.DOM.OverflowEvent - GHCJS.DOM.PageTransitionEvent - GHCJS.DOM.PannerNode - GHCJS.DOM.Performance - GHCJS.DOM.PerformanceEntry - GHCJS.DOM.PerformanceEntryList - GHCJS.DOM.PerformanceNavigation - GHCJS.DOM.PerformanceResourceTiming - GHCJS.DOM.PerformanceTiming - GHCJS.DOM.PopStateEvent - GHCJS.DOM.PositionCallback - GHCJS.DOM.PositionError - GHCJS.DOM.PositionErrorCallback - GHCJS.DOM.ProcessingInstruction - GHCJS.DOM.ProgressEvent - GHCJS.DOM.QuickTimePluginReplacement - GHCJS.DOM.RGBColor - GHCJS.DOM.RTCConfiguration - GHCJS.DOM.RTCDTMFSender - GHCJS.DOM.RTCDTMFToneChangeEvent - GHCJS.DOM.RTCDataChannel - GHCJS.DOM.RTCDataChannelEvent - GHCJS.DOM.RTCIceCandidate - GHCJS.DOM.RTCIceCandidateEvent - GHCJS.DOM.RTCIceServer - GHCJS.DOM.RTCPeerConnection - GHCJS.DOM.RTCPeerConnectionErrorCallback - GHCJS.DOM.RTCSessionDescription - GHCJS.DOM.RTCSessionDescriptionCallback - GHCJS.DOM.RTCStatsCallback - GHCJS.DOM.RTCStatsReport - GHCJS.DOM.RTCStatsResponse - GHCJS.DOM.RadioNodeList - GHCJS.DOM.Range - GHCJS.DOM.ReadableStream - GHCJS.DOM.Rect - GHCJS.DOM.RequestAnimationFrameCallback - GHCJS.DOM.SQLError - GHCJS.DOM.SQLResultSet - GHCJS.DOM.SQLResultSetRowList - GHCJS.DOM.SQLStatementCallback - GHCJS.DOM.SQLStatementErrorCallback - GHCJS.DOM.SQLTransaction - GHCJS.DOM.SQLTransactionCallback - GHCJS.DOM.SQLTransactionErrorCallback - GHCJS.DOM.SVGAElement - GHCJS.DOM.SVGAltGlyphElement - GHCJS.DOM.SVGAngle - GHCJS.DOM.SVGAnimatedAngle - GHCJS.DOM.SVGAnimatedBoolean - GHCJS.DOM.SVGAnimatedEnumeration - GHCJS.DOM.SVGAnimatedInteger - GHCJS.DOM.SVGAnimatedLength - GHCJS.DOM.SVGAnimatedLengthList - GHCJS.DOM.SVGAnimatedNumber - GHCJS.DOM.SVGAnimatedNumberList - GHCJS.DOM.SVGAnimatedPreserveAspectRatio - GHCJS.DOM.SVGAnimatedRect - GHCJS.DOM.SVGAnimatedString - GHCJS.DOM.SVGAnimatedTransformList - GHCJS.DOM.SVGAnimationElement - GHCJS.DOM.SVGCircleElement - GHCJS.DOM.SVGClipPathElement - GHCJS.DOM.SVGColor - GHCJS.DOM.SVGComponentTransferFunctionElement - GHCJS.DOM.SVGCursorElement - GHCJS.DOM.SVGDocument - GHCJS.DOM.SVGElement - GHCJS.DOM.SVGEllipseElement - GHCJS.DOM.SVGExternalResourcesRequired - GHCJS.DOM.SVGFEBlendElement - GHCJS.DOM.SVGFEColorMatrixElement - GHCJS.DOM.SVGFEComponentTransferElement - GHCJS.DOM.SVGFECompositeElement - GHCJS.DOM.SVGFEConvolveMatrixElement - GHCJS.DOM.SVGFEDiffuseLightingElement - GHCJS.DOM.SVGFEDisplacementMapElement - GHCJS.DOM.SVGFEDistantLightElement - GHCJS.DOM.SVGFEDropShadowElement - GHCJS.DOM.SVGFEGaussianBlurElement - GHCJS.DOM.SVGFEImageElement - GHCJS.DOM.SVGFEMergeNodeElement - GHCJS.DOM.SVGFEMorphologyElement - GHCJS.DOM.SVGFEOffsetElement - GHCJS.DOM.SVGFEPointLightElement - GHCJS.DOM.SVGFESpecularLightingElement - GHCJS.DOM.SVGFESpotLightElement - GHCJS.DOM.SVGFETileElement - GHCJS.DOM.SVGFETurbulenceElement - GHCJS.DOM.SVGFilterElement - GHCJS.DOM.SVGFilterPrimitiveStandardAttributes - GHCJS.DOM.SVGFitToViewBox - GHCJS.DOM.SVGForeignObjectElement - GHCJS.DOM.SVGGlyphRefElement - GHCJS.DOM.SVGGradientElement - GHCJS.DOM.SVGGraphicsElement - GHCJS.DOM.SVGImageElement - GHCJS.DOM.SVGLength - GHCJS.DOM.SVGLengthList - GHCJS.DOM.SVGLineElement - GHCJS.DOM.SVGLinearGradientElement - GHCJS.DOM.SVGMarkerElement - GHCJS.DOM.SVGMaskElement - GHCJS.DOM.SVGMatrix - GHCJS.DOM.SVGNumber - GHCJS.DOM.SVGNumberList - GHCJS.DOM.SVGPaint - GHCJS.DOM.SVGPathElement - GHCJS.DOM.SVGPathSeg - GHCJS.DOM.SVGPathSegArcAbs - GHCJS.DOM.SVGPathSegArcRel - GHCJS.DOM.SVGPathSegCurvetoCubicAbs - GHCJS.DOM.SVGPathSegCurvetoCubicRel - GHCJS.DOM.SVGPathSegCurvetoCubicSmoothAbs - GHCJS.DOM.SVGPathSegCurvetoCubicSmoothRel - GHCJS.DOM.SVGPathSegCurvetoQuadraticAbs - GHCJS.DOM.SVGPathSegCurvetoQuadraticRel - GHCJS.DOM.SVGPathSegCurvetoQuadraticSmoothAbs - GHCJS.DOM.SVGPathSegCurvetoQuadraticSmoothRel - GHCJS.DOM.SVGPathSegLinetoAbs - GHCJS.DOM.SVGPathSegLinetoHorizontalAbs - GHCJS.DOM.SVGPathSegLinetoHorizontalRel - GHCJS.DOM.SVGPathSegLinetoRel - GHCJS.DOM.SVGPathSegLinetoVerticalAbs - GHCJS.DOM.SVGPathSegLinetoVerticalRel - GHCJS.DOM.SVGPathSegList - GHCJS.DOM.SVGPathSegMovetoAbs - GHCJS.DOM.SVGPathSegMovetoRel - GHCJS.DOM.SVGPatternElement - GHCJS.DOM.SVGPoint - GHCJS.DOM.SVGPointList - GHCJS.DOM.SVGPolygonElement - GHCJS.DOM.SVGPolylineElement - GHCJS.DOM.SVGPreserveAspectRatio - GHCJS.DOM.SVGRadialGradientElement - GHCJS.DOM.SVGRect - GHCJS.DOM.SVGRectElement - GHCJS.DOM.SVGRenderingIntent - GHCJS.DOM.SVGScriptElement - GHCJS.DOM.SVGSVGElement - GHCJS.DOM.SVGStopElement - GHCJS.DOM.SVGStringList - GHCJS.DOM.SVGStyleElement - GHCJS.DOM.SVGTests - GHCJS.DOM.SVGTextContentElement - GHCJS.DOM.SVGTextPathElement - GHCJS.DOM.SVGTextPositioningElement - GHCJS.DOM.SVGTransform - GHCJS.DOM.SVGTransformList - GHCJS.DOM.SVGURIReference - GHCJS.DOM.SVGUnitTypes - GHCJS.DOM.SVGUseElement - GHCJS.DOM.SVGViewElement - GHCJS.DOM.SVGViewSpec - GHCJS.DOM.SVGZoomAndPan - GHCJS.DOM.SVGZoomEvent - GHCJS.DOM.Screen - GHCJS.DOM.ScriptProcessorNode - GHCJS.DOM.ScriptProfile - GHCJS.DOM.ScriptProfileNode - GHCJS.DOM.SecurityPolicyViolationEvent - GHCJS.DOM.SourceBuffer - GHCJS.DOM.SourceBufferList - GHCJS.DOM.SourceInfo - GHCJS.DOM.SpeechSynthesis - GHCJS.DOM.SpeechSynthesisEvent - GHCJS.DOM.SpeechSynthesisUtterance - GHCJS.DOM.SpeechSynthesisVoice - GHCJS.DOM.Storage - GHCJS.DOM.StorageErrorCallback - GHCJS.DOM.StorageEvent - GHCJS.DOM.StorageInfo - GHCJS.DOM.StorageQuota - GHCJS.DOM.StorageQuotaCallback - GHCJS.DOM.StorageUsageCallback - GHCJS.DOM.StringCallback - GHCJS.DOM.StyleMedia - GHCJS.DOM.StyleSheet - GHCJS.DOM.StyleSheetList - GHCJS.DOM.SubtleCrypto - GHCJS.DOM.Text - GHCJS.DOM.TextEvent - GHCJS.DOM.TextMetrics - GHCJS.DOM.TextTrack - GHCJS.DOM.TextTrackCue - GHCJS.DOM.TextTrackCueList - GHCJS.DOM.TextTrackList - GHCJS.DOM.TimeRanges - GHCJS.DOM.Touch - GHCJS.DOM.TouchEvent - GHCJS.DOM.TouchList - GHCJS.DOM.TrackEvent - GHCJS.DOM.TransitionEvent - GHCJS.DOM.TreeWalker - GHCJS.DOM.TypeConversions - GHCJS.DOM.Types - GHCJS.DOM.UIEvent - GHCJS.DOM.UIRequestEvent - GHCJS.DOM.URLUtils - GHCJS.DOM.UserMessageHandler - GHCJS.DOM.VTTCue - GHCJS.DOM.VTTRegion - GHCJS.DOM.VTTRegionList - GHCJS.DOM.ValidityState - GHCJS.DOM.VideoPlaybackQuality - GHCJS.DOM.VideoStreamTrack - GHCJS.DOM.VideoTrack - GHCJS.DOM.VideoTrackList - GHCJS.DOM.VoidCallback - GHCJS.DOM.WaveShaperNode - GHCJS.DOM.WebGL2RenderingContext - GHCJS.DOM.WebGLActiveInfo - GHCJS.DOM.WebGLCompressedTextureATC - GHCJS.DOM.WebGLCompressedTexturePVRTC - GHCJS.DOM.WebGLCompressedTextureS3TC - GHCJS.DOM.WebGLContextAttributes - GHCJS.DOM.WebGLContextEvent - GHCJS.DOM.WebGLDebugRendererInfo - GHCJS.DOM.WebGLDebugShaders - GHCJS.DOM.WebGLDepthTexture - GHCJS.DOM.WebGLDrawBuffers - GHCJS.DOM.WebGLLoseContext - GHCJS.DOM.WebGLRenderingContextBase - GHCJS.DOM.WebGLShaderPrecisionFormat - GHCJS.DOM.WebKitAnimationEvent - GHCJS.DOM.WebKitCSSFilterValue - GHCJS.DOM.WebKitCSSMatrix - GHCJS.DOM.WebKitCSSRegionRule - GHCJS.DOM.WebKitCSSTransformValue - GHCJS.DOM.WebKitCSSViewportRule - GHCJS.DOM.WebKitNamedFlow - GHCJS.DOM.WebKitNamespace - GHCJS.DOM.WebKitPlaybackTargetAvailabilityEvent - GHCJS.DOM.WebKitPoint - GHCJS.DOM.WebKitTransitionEvent - GHCJS.DOM.WebSocket - GHCJS.DOM.WheelEvent - GHCJS.DOM.WindowBase64 - GHCJS.DOM.WindowTimers - GHCJS.DOM.Worker - GHCJS.DOM.WorkerGlobalScope - GHCJS.DOM.WorkerLocation - GHCJS.DOM.WorkerNavigator - GHCJS.DOM.XMLHttpRequest - GHCJS.DOM.XMLHttpRequestProgressEvent - GHCJS.DOM.XMLHttpRequestUpload - GHCJS.DOM.XMLSerializer - GHCJS.DOM.XPathEvaluator - GHCJS.DOM.XPathExpression - GHCJS.DOM.XPathNSResolver - GHCJS.DOM.XPathResult - GHCJS.DOM.XSLTProcessor - - if impl(ghcjs) && flag(jsffi) - hs-source-dirs: src, common - cpp-options: -DUSE_JAVASCRIPTFFI - build-depends: ghcjs-base >=0.2.0.0 && <0.3, ghcjs-prim, ghc-prim - exposed-modules: - GHCJS.DOM.EventTargetClosures - - GHCJS.DOM.JSFFI.AudioContext - GHCJS.DOM.JSFFI.Database - GHCJS.DOM.JSFFI.DOMError - GHCJS.DOM.JSFFI.Geolocation - GHCJS.DOM.JSFFI.MediaStreamTrack - GHCJS.DOM.JSFFI.Navigator - GHCJS.DOM.JSFFI.NavigatorUserMediaError - GHCJS.DOM.JSFFI.PositionError - GHCJS.DOM.JSFFI.RTCPeerConnection - GHCJS.DOM.JSFFI.RTCPeerConnectionError - GHCJS.DOM.JSFFI.SQLError - GHCJS.DOM.JSFFI.SQLTransaction - GHCJS.DOM.JSFFI.Window - GHCJS.DOM.JSFFI.XMLHttpRequest - - GHCJS.DOM.JSFFI.Generated.ANGLEInstancedArrays - GHCJS.DOM.JSFFI.Generated.AbstractView - GHCJS.DOM.JSFFI.Generated.AbstractWorker - GHCJS.DOM.JSFFI.Generated.AllAudioCapabilities - GHCJS.DOM.JSFFI.Generated.AllVideoCapabilities - GHCJS.DOM.JSFFI.Generated.AnalyserNode - GHCJS.DOM.JSFFI.Generated.AnimationEvent - GHCJS.DOM.JSFFI.Generated.Attr - GHCJS.DOM.JSFFI.Generated.AudioBuffer - GHCJS.DOM.JSFFI.Generated.AudioBufferCallback - GHCJS.DOM.JSFFI.Generated.AudioBufferSourceNode - GHCJS.DOM.JSFFI.Generated.AudioContext - GHCJS.DOM.JSFFI.Generated.AudioDestinationNode - GHCJS.DOM.JSFFI.Generated.AudioListener - GHCJS.DOM.JSFFI.Generated.AudioNode - GHCJS.DOM.JSFFI.Generated.AudioParam - GHCJS.DOM.JSFFI.Generated.AudioProcessingEvent - GHCJS.DOM.JSFFI.Generated.AudioStreamTrack - GHCJS.DOM.JSFFI.Generated.AudioTrack - GHCJS.DOM.JSFFI.Generated.AudioTrackList - GHCJS.DOM.JSFFI.Generated.AutocompleteErrorEvent - GHCJS.DOM.JSFFI.Generated.BarProp - GHCJS.DOM.JSFFI.Generated.BatteryManager - GHCJS.DOM.JSFFI.Generated.BeforeLoadEvent - GHCJS.DOM.JSFFI.Generated.BeforeUnloadEvent - GHCJS.DOM.JSFFI.Generated.BiquadFilterNode - GHCJS.DOM.JSFFI.Generated.Blob - GHCJS.DOM.JSFFI.Generated.CSSCharsetRule - GHCJS.DOM.JSFFI.Generated.CSSFontFaceLoadEvent - GHCJS.DOM.JSFFI.Generated.CSSFontFaceRule - GHCJS.DOM.JSFFI.Generated.CSSImportRule - GHCJS.DOM.JSFFI.Generated.CSSKeyframeRule - GHCJS.DOM.JSFFI.Generated.CSSKeyframesRule - GHCJS.DOM.JSFFI.Generated.CSSMediaRule - GHCJS.DOM.JSFFI.Generated.CSSPageRule - GHCJS.DOM.JSFFI.Generated.CSSPrimitiveValue - GHCJS.DOM.JSFFI.Generated.CSSRule - GHCJS.DOM.JSFFI.Generated.CSSRuleList - GHCJS.DOM.JSFFI.Generated.CSSStyleDeclaration - GHCJS.DOM.JSFFI.Generated.CSSStyleRule - GHCJS.DOM.JSFFI.Generated.CSSStyleSheet - GHCJS.DOM.JSFFI.Generated.CSSSupportsRule - GHCJS.DOM.JSFFI.Generated.CSSValue - GHCJS.DOM.JSFFI.Generated.CSSValueList - GHCJS.DOM.JSFFI.Generated.CanvasGradient - GHCJS.DOM.JSFFI.Generated.CanvasRenderingContext - GHCJS.DOM.JSFFI.Generated.CanvasRenderingContext2D - GHCJS.DOM.JSFFI.Generated.CapabilityRange - GHCJS.DOM.JSFFI.Generated.CharacterData - GHCJS.DOM.JSFFI.Generated.ChildNode - GHCJS.DOM.JSFFI.Generated.ClientRect - GHCJS.DOM.JSFFI.Generated.ClientRectList - GHCJS.DOM.JSFFI.Generated.CloseEvent - GHCJS.DOM.JSFFI.Generated.CommandLineAPIHost - GHCJS.DOM.JSFFI.Generated.Comment - GHCJS.DOM.JSFFI.Generated.CompositionEvent - GHCJS.DOM.JSFFI.Generated.ConvolverNode - GHCJS.DOM.JSFFI.Generated.Coordinates - GHCJS.DOM.JSFFI.Generated.Counter - GHCJS.DOM.JSFFI.Generated.Crypto - GHCJS.DOM.JSFFI.Generated.CryptoKey - GHCJS.DOM.JSFFI.Generated.CryptoKeyPair - GHCJS.DOM.JSFFI.Generated.CustomEvent - GHCJS.DOM.JSFFI.Generated.ApplicationCache - GHCJS.DOM.JSFFI.Generated.DOMError - GHCJS.DOM.JSFFI.Generated.FormData - GHCJS.DOM.JSFFI.Generated.DOMImplementation - GHCJS.DOM.JSFFI.Generated.MimeType - GHCJS.DOM.JSFFI.Generated.MimeTypeArray - GHCJS.DOM.JSFFI.Generated.DOMNamedFlowCollection - GHCJS.DOM.JSFFI.Generated.DOMParser - GHCJS.DOM.JSFFI.Generated.Path2D - GHCJS.DOM.JSFFI.Generated.Plugin - GHCJS.DOM.JSFFI.Generated.PluginArray - GHCJS.DOM.JSFFI.Generated.SecurityPolicy - GHCJS.DOM.JSFFI.Generated.Selection - GHCJS.DOM.JSFFI.Generated.DOMSettableTokenList - GHCJS.DOM.JSFFI.Generated.DOMStringList - GHCJS.DOM.JSFFI.Generated.DOMTokenList - GHCJS.DOM.JSFFI.Generated.URL - GHCJS.DOM.JSFFI.Generated.Window - GHCJS.DOM.JSFFI.Generated.CSS - GHCJS.DOM.JSFFI.Generated.DataCue - GHCJS.DOM.JSFFI.Generated.DataTransfer - GHCJS.DOM.JSFFI.Generated.DataTransferItem - GHCJS.DOM.JSFFI.Generated.DataTransferItemList - GHCJS.DOM.JSFFI.Generated.Database - GHCJS.DOM.JSFFI.Generated.DatabaseCallback - GHCJS.DOM.JSFFI.Generated.DedicatedWorkerGlobalScope - GHCJS.DOM.JSFFI.Generated.DelayNode - GHCJS.DOM.JSFFI.Generated.DeviceMotionEvent - GHCJS.DOM.JSFFI.Generated.DeviceOrientationEvent - GHCJS.DOM.JSFFI.Generated.DeviceProximityEvent - GHCJS.DOM.JSFFI.Generated.Document - GHCJS.DOM.JSFFI.Generated.DocumentFragment - GHCJS.DOM.JSFFI.Generated.DocumentType - GHCJS.DOM.JSFFI.Generated.DynamicsCompressorNode - GHCJS.DOM.JSFFI.Generated.EXTBlendMinMax - GHCJS.DOM.JSFFI.Generated.EXTsRGB - GHCJS.DOM.JSFFI.Generated.EXTTextureFilterAnisotropic - GHCJS.DOM.JSFFI.Generated.Element - GHCJS.DOM.JSFFI.Generated.Entity - GHCJS.DOM.JSFFI.Generated.Enums - GHCJS.DOM.JSFFI.Generated.ErrorEvent - GHCJS.DOM.JSFFI.Generated.Event - GHCJS.DOM.JSFFI.Generated.EventListener - GHCJS.DOM.JSFFI.Generated.EventSource - GHCJS.DOM.JSFFI.Generated.EventTarget - GHCJS.DOM.JSFFI.Generated.File - GHCJS.DOM.JSFFI.Generated.FileError - GHCJS.DOM.JSFFI.Generated.FileList - GHCJS.DOM.JSFFI.Generated.FileReader - GHCJS.DOM.JSFFI.Generated.FileReaderSync - GHCJS.DOM.JSFFI.Generated.FocusEvent - GHCJS.DOM.JSFFI.Generated.FontLoader - GHCJS.DOM.JSFFI.Generated.GainNode - GHCJS.DOM.JSFFI.Generated.Gamepad - GHCJS.DOM.JSFFI.Generated.GamepadButton - GHCJS.DOM.JSFFI.Generated.GamepadEvent - GHCJS.DOM.JSFFI.Generated.Geolocation - GHCJS.DOM.JSFFI.Generated.Geoposition - GHCJS.DOM.JSFFI.Generated.HTMLAllCollection - GHCJS.DOM.JSFFI.Generated.HTMLAnchorElement - GHCJS.DOM.JSFFI.Generated.HTMLAppletElement - GHCJS.DOM.JSFFI.Generated.HTMLAreaElement - GHCJS.DOM.JSFFI.Generated.HTMLBRElement - GHCJS.DOM.JSFFI.Generated.HTMLBaseElement - GHCJS.DOM.JSFFI.Generated.HTMLBaseFontElement - GHCJS.DOM.JSFFI.Generated.HTMLBodyElement - GHCJS.DOM.JSFFI.Generated.HTMLButtonElement - GHCJS.DOM.JSFFI.Generated.HTMLCanvasElement - GHCJS.DOM.JSFFI.Generated.HTMLCollection - GHCJS.DOM.JSFFI.Generated.HTMLDListElement - GHCJS.DOM.JSFFI.Generated.HTMLDataListElement - GHCJS.DOM.JSFFI.Generated.HTMLDetailsElement - GHCJS.DOM.JSFFI.Generated.HTMLDirectoryElement - GHCJS.DOM.JSFFI.Generated.HTMLDivElement - GHCJS.DOM.JSFFI.Generated.HTMLDocument - GHCJS.DOM.JSFFI.Generated.HTMLElement - GHCJS.DOM.JSFFI.Generated.HTMLEmbedElement - GHCJS.DOM.JSFFI.Generated.HTMLFieldSetElement - GHCJS.DOM.JSFFI.Generated.HTMLFontElement - GHCJS.DOM.JSFFI.Generated.HTMLFormControlsCollection - GHCJS.DOM.JSFFI.Generated.HTMLFormElement - GHCJS.DOM.JSFFI.Generated.HTMLFrameElement - GHCJS.DOM.JSFFI.Generated.HTMLFrameSetElement - GHCJS.DOM.JSFFI.Generated.HTMLHRElement - GHCJS.DOM.JSFFI.Generated.HTMLHeadElement - GHCJS.DOM.JSFFI.Generated.HTMLHeadingElement - GHCJS.DOM.JSFFI.Generated.HTMLHtmlElement - GHCJS.DOM.JSFFI.Generated.HTMLIFrameElement - GHCJS.DOM.JSFFI.Generated.HTMLImageElement - GHCJS.DOM.JSFFI.Generated.HTMLInputElement - GHCJS.DOM.JSFFI.Generated.HTMLKeygenElement - GHCJS.DOM.JSFFI.Generated.HTMLLIElement - GHCJS.DOM.JSFFI.Generated.HTMLLabelElement - GHCJS.DOM.JSFFI.Generated.HTMLLegendElement - GHCJS.DOM.JSFFI.Generated.HTMLLinkElement - GHCJS.DOM.JSFFI.Generated.HTMLMapElement - GHCJS.DOM.JSFFI.Generated.HTMLMarqueeElement - GHCJS.DOM.JSFFI.Generated.HTMLMediaElement - GHCJS.DOM.JSFFI.Generated.HTMLMenuElement - GHCJS.DOM.JSFFI.Generated.HTMLMetaElement - GHCJS.DOM.JSFFI.Generated.HTMLMeterElement - GHCJS.DOM.JSFFI.Generated.HTMLModElement - GHCJS.DOM.JSFFI.Generated.HTMLOListElement - GHCJS.DOM.JSFFI.Generated.HTMLObjectElement - GHCJS.DOM.JSFFI.Generated.HTMLOptGroupElement - GHCJS.DOM.JSFFI.Generated.HTMLOptionElement - GHCJS.DOM.JSFFI.Generated.HTMLOptionsCollection - GHCJS.DOM.JSFFI.Generated.HTMLOutputElement - GHCJS.DOM.JSFFI.Generated.HTMLParagraphElement - GHCJS.DOM.JSFFI.Generated.HTMLParamElement - GHCJS.DOM.JSFFI.Generated.HTMLPreElement - GHCJS.DOM.JSFFI.Generated.HTMLProgressElement - GHCJS.DOM.JSFFI.Generated.HTMLQuoteElement - GHCJS.DOM.JSFFI.Generated.HTMLScriptElement - GHCJS.DOM.JSFFI.Generated.HTMLSelectElement - GHCJS.DOM.JSFFI.Generated.HTMLSourceElement - GHCJS.DOM.JSFFI.Generated.HTMLStyleElement - GHCJS.DOM.JSFFI.Generated.HTMLTableCaptionElement - GHCJS.DOM.JSFFI.Generated.HTMLTableCellElement - GHCJS.DOM.JSFFI.Generated.HTMLTableColElement - GHCJS.DOM.JSFFI.Generated.HTMLTableElement - GHCJS.DOM.JSFFI.Generated.HTMLTableRowElement - GHCJS.DOM.JSFFI.Generated.HTMLTableSectionElement - GHCJS.DOM.JSFFI.Generated.HTMLTemplateElement - GHCJS.DOM.JSFFI.Generated.HTMLTextAreaElement - GHCJS.DOM.JSFFI.Generated.HTMLTitleElement - GHCJS.DOM.JSFFI.Generated.HTMLTrackElement - GHCJS.DOM.JSFFI.Generated.HTMLUListElement - GHCJS.DOM.JSFFI.Generated.HTMLVideoElement - GHCJS.DOM.JSFFI.Generated.HashChangeEvent - GHCJS.DOM.JSFFI.Generated.History - GHCJS.DOM.JSFFI.Generated.IDBCursor - GHCJS.DOM.JSFFI.Generated.IDBCursorWithValue - GHCJS.DOM.JSFFI.Generated.IDBDatabase - GHCJS.DOM.JSFFI.Generated.IDBFactory - GHCJS.DOM.JSFFI.Generated.IDBIndex - GHCJS.DOM.JSFFI.Generated.IDBKeyRange - GHCJS.DOM.JSFFI.Generated.IDBObjectStore - GHCJS.DOM.JSFFI.Generated.IDBOpenDBRequest - GHCJS.DOM.JSFFI.Generated.IDBRequest - GHCJS.DOM.JSFFI.Generated.IDBTransaction - GHCJS.DOM.JSFFI.Generated.IDBVersionChangeEvent - GHCJS.DOM.JSFFI.Generated.ImageData - GHCJS.DOM.JSFFI.Generated.InspectorFrontendHost - GHCJS.DOM.JSFFI.Generated.InternalSettings - GHCJS.DOM.JSFFI.Generated.Internals - GHCJS.DOM.JSFFI.Generated.KeyboardEvent - GHCJS.DOM.JSFFI.Generated.Location - GHCJS.DOM.JSFFI.Generated.MallocStatistics - GHCJS.DOM.JSFFI.Generated.MediaController - GHCJS.DOM.JSFFI.Generated.MediaControlsHost - GHCJS.DOM.JSFFI.Generated.MediaElementAudioSourceNode - GHCJS.DOM.JSFFI.Generated.MediaError - GHCJS.DOM.JSFFI.Generated.MediaKeyError - GHCJS.DOM.JSFFI.Generated.MediaKeyEvent - GHCJS.DOM.JSFFI.Generated.MediaKeyMessageEvent - GHCJS.DOM.JSFFI.Generated.MediaKeyNeededEvent - GHCJS.DOM.JSFFI.Generated.MediaKeySession - GHCJS.DOM.JSFFI.Generated.MediaKeys - GHCJS.DOM.JSFFI.Generated.MediaList - GHCJS.DOM.JSFFI.Generated.MediaQueryList - GHCJS.DOM.JSFFI.Generated.MediaQueryListListener - GHCJS.DOM.JSFFI.Generated.MediaSource - GHCJS.DOM.JSFFI.Generated.MediaSourceStates - GHCJS.DOM.JSFFI.Generated.MediaStream - GHCJS.DOM.JSFFI.Generated.MediaStreamAudioDestinationNode - GHCJS.DOM.JSFFI.Generated.MediaStreamAudioSourceNode - GHCJS.DOM.JSFFI.Generated.MediaStreamEvent - GHCJS.DOM.JSFFI.Generated.MediaStreamTrack - GHCJS.DOM.JSFFI.Generated.MediaStreamTrackEvent - GHCJS.DOM.JSFFI.Generated.MediaStreamTrackSourcesCallback - GHCJS.DOM.JSFFI.Generated.MediaTrackConstraints - GHCJS.DOM.JSFFI.Generated.MemoryInfo - GHCJS.DOM.JSFFI.Generated.MessageChannel - GHCJS.DOM.JSFFI.Generated.MessageEvent - GHCJS.DOM.JSFFI.Generated.MessagePort - GHCJS.DOM.JSFFI.Generated.MouseEvent - GHCJS.DOM.JSFFI.Generated.MutationEvent - GHCJS.DOM.JSFFI.Generated.MutationObserver - GHCJS.DOM.JSFFI.Generated.MutationRecord - GHCJS.DOM.JSFFI.Generated.NamedNodeMap - GHCJS.DOM.JSFFI.Generated.Navigator - GHCJS.DOM.JSFFI.Generated.NavigatorUserMediaError - GHCJS.DOM.JSFFI.Generated.NavigatorUserMediaErrorCallback - GHCJS.DOM.JSFFI.Generated.NavigatorUserMediaSuccessCallback - GHCJS.DOM.JSFFI.Generated.Node - GHCJS.DOM.JSFFI.Generated.NodeFilter - GHCJS.DOM.JSFFI.Generated.NodeIterator - GHCJS.DOM.JSFFI.Generated.NodeList - GHCJS.DOM.JSFFI.Generated.Notification - GHCJS.DOM.JSFFI.Generated.NotificationCenter - GHCJS.DOM.JSFFI.Generated.NotificationPermissionCallback - GHCJS.DOM.JSFFI.Generated.OESStandardDerivatives - GHCJS.DOM.JSFFI.Generated.OESTextureHalfFloat - GHCJS.DOM.JSFFI.Generated.OESVertexArrayObject - GHCJS.DOM.JSFFI.Generated.OfflineAudioCompletionEvent - GHCJS.DOM.JSFFI.Generated.OfflineAudioContext - GHCJS.DOM.JSFFI.Generated.OscillatorNode - GHCJS.DOM.JSFFI.Generated.OverflowEvent - GHCJS.DOM.JSFFI.Generated.PageTransitionEvent - GHCJS.DOM.JSFFI.Generated.PannerNode - GHCJS.DOM.JSFFI.Generated.Performance - GHCJS.DOM.JSFFI.Generated.PerformanceEntry - GHCJS.DOM.JSFFI.Generated.PerformanceEntryList - GHCJS.DOM.JSFFI.Generated.PerformanceNavigation - GHCJS.DOM.JSFFI.Generated.PerformanceResourceTiming - GHCJS.DOM.JSFFI.Generated.PerformanceTiming - GHCJS.DOM.JSFFI.Generated.PopStateEvent - GHCJS.DOM.JSFFI.Generated.PositionCallback - GHCJS.DOM.JSFFI.Generated.PositionError - GHCJS.DOM.JSFFI.Generated.PositionErrorCallback - GHCJS.DOM.JSFFI.Generated.ProcessingInstruction - GHCJS.DOM.JSFFI.Generated.ProgressEvent - GHCJS.DOM.JSFFI.Generated.QuickTimePluginReplacement - GHCJS.DOM.JSFFI.Generated.RGBColor - GHCJS.DOM.JSFFI.Generated.RTCConfiguration - GHCJS.DOM.JSFFI.Generated.RTCDTMFSender - GHCJS.DOM.JSFFI.Generated.RTCDTMFToneChangeEvent - GHCJS.DOM.JSFFI.Generated.RTCDataChannel - GHCJS.DOM.JSFFI.Generated.RTCDataChannelEvent - GHCJS.DOM.JSFFI.Generated.RTCIceCandidate - GHCJS.DOM.JSFFI.Generated.RTCIceCandidateEvent - GHCJS.DOM.JSFFI.Generated.RTCIceServer - GHCJS.DOM.JSFFI.Generated.RTCPeerConnection - GHCJS.DOM.JSFFI.Generated.RTCPeerConnectionErrorCallback - GHCJS.DOM.JSFFI.Generated.RTCSessionDescription - GHCJS.DOM.JSFFI.Generated.RTCSessionDescriptionCallback - GHCJS.DOM.JSFFI.Generated.RTCStatsCallback - GHCJS.DOM.JSFFI.Generated.RTCStatsReport - GHCJS.DOM.JSFFI.Generated.RTCStatsResponse - GHCJS.DOM.JSFFI.Generated.RadioNodeList - GHCJS.DOM.JSFFI.Generated.Range - GHCJS.DOM.JSFFI.Generated.ReadableStream - GHCJS.DOM.JSFFI.Generated.Rect - GHCJS.DOM.JSFFI.Generated.RequestAnimationFrameCallback - GHCJS.DOM.JSFFI.Generated.SQLError - GHCJS.DOM.JSFFI.Generated.SQLResultSet - GHCJS.DOM.JSFFI.Generated.SQLResultSetRowList - GHCJS.DOM.JSFFI.Generated.SQLStatementCallback - GHCJS.DOM.JSFFI.Generated.SQLStatementErrorCallback - GHCJS.DOM.JSFFI.Generated.SQLTransaction - GHCJS.DOM.JSFFI.Generated.SQLTransactionCallback - GHCJS.DOM.JSFFI.Generated.SQLTransactionErrorCallback - GHCJS.DOM.JSFFI.Generated.SVGAElement - GHCJS.DOM.JSFFI.Generated.SVGAltGlyphElement - GHCJS.DOM.JSFFI.Generated.SVGAngle - GHCJS.DOM.JSFFI.Generated.SVGAnimatedAngle - GHCJS.DOM.JSFFI.Generated.SVGAnimatedBoolean - GHCJS.DOM.JSFFI.Generated.SVGAnimatedEnumeration - GHCJS.DOM.JSFFI.Generated.SVGAnimatedInteger - GHCJS.DOM.JSFFI.Generated.SVGAnimatedLength - GHCJS.DOM.JSFFI.Generated.SVGAnimatedLengthList - GHCJS.DOM.JSFFI.Generated.SVGAnimatedNumber - GHCJS.DOM.JSFFI.Generated.SVGAnimatedNumberList - GHCJS.DOM.JSFFI.Generated.SVGAnimatedPreserveAspectRatio - GHCJS.DOM.JSFFI.Generated.SVGAnimatedRect - GHCJS.DOM.JSFFI.Generated.SVGAnimatedString - GHCJS.DOM.JSFFI.Generated.SVGAnimatedTransformList - GHCJS.DOM.JSFFI.Generated.SVGAnimationElement - GHCJS.DOM.JSFFI.Generated.SVGCircleElement - GHCJS.DOM.JSFFI.Generated.SVGClipPathElement - GHCJS.DOM.JSFFI.Generated.SVGColor - GHCJS.DOM.JSFFI.Generated.SVGComponentTransferFunctionElement - GHCJS.DOM.JSFFI.Generated.SVGCursorElement - GHCJS.DOM.JSFFI.Generated.SVGDocument - GHCJS.DOM.JSFFI.Generated.SVGElement - GHCJS.DOM.JSFFI.Generated.SVGEllipseElement - GHCJS.DOM.JSFFI.Generated.SVGExternalResourcesRequired - GHCJS.DOM.JSFFI.Generated.SVGFEBlendElement - GHCJS.DOM.JSFFI.Generated.SVGFEColorMatrixElement - GHCJS.DOM.JSFFI.Generated.SVGFEComponentTransferElement - GHCJS.DOM.JSFFI.Generated.SVGFECompositeElement - GHCJS.DOM.JSFFI.Generated.SVGFEConvolveMatrixElement - GHCJS.DOM.JSFFI.Generated.SVGFEDiffuseLightingElement - GHCJS.DOM.JSFFI.Generated.SVGFEDisplacementMapElement - GHCJS.DOM.JSFFI.Generated.SVGFEDistantLightElement - GHCJS.DOM.JSFFI.Generated.SVGFEDropShadowElement - GHCJS.DOM.JSFFI.Generated.SVGFEGaussianBlurElement - GHCJS.DOM.JSFFI.Generated.SVGFEImageElement - GHCJS.DOM.JSFFI.Generated.SVGFEMergeNodeElement - GHCJS.DOM.JSFFI.Generated.SVGFEMorphologyElement - GHCJS.DOM.JSFFI.Generated.SVGFEOffsetElement - GHCJS.DOM.JSFFI.Generated.SVGFEPointLightElement - GHCJS.DOM.JSFFI.Generated.SVGFESpecularLightingElement - GHCJS.DOM.JSFFI.Generated.SVGFESpotLightElement - GHCJS.DOM.JSFFI.Generated.SVGFETileElement - GHCJS.DOM.JSFFI.Generated.SVGFETurbulenceElement - GHCJS.DOM.JSFFI.Generated.SVGFilterElement - GHCJS.DOM.JSFFI.Generated.SVGFilterPrimitiveStandardAttributes - GHCJS.DOM.JSFFI.Generated.SVGFitToViewBox - GHCJS.DOM.JSFFI.Generated.SVGForeignObjectElement - GHCJS.DOM.JSFFI.Generated.SVGGlyphRefElement - GHCJS.DOM.JSFFI.Generated.SVGGradientElement - GHCJS.DOM.JSFFI.Generated.SVGGraphicsElement - GHCJS.DOM.JSFFI.Generated.SVGImageElement - GHCJS.DOM.JSFFI.Generated.SVGLength - GHCJS.DOM.JSFFI.Generated.SVGLengthList - GHCJS.DOM.JSFFI.Generated.SVGLineElement - GHCJS.DOM.JSFFI.Generated.SVGLinearGradientElement - GHCJS.DOM.JSFFI.Generated.SVGMarkerElement - GHCJS.DOM.JSFFI.Generated.SVGMaskElement - GHCJS.DOM.JSFFI.Generated.SVGMatrix - GHCJS.DOM.JSFFI.Generated.SVGNumber - GHCJS.DOM.JSFFI.Generated.SVGNumberList - GHCJS.DOM.JSFFI.Generated.SVGPaint - GHCJS.DOM.JSFFI.Generated.SVGPathElement - GHCJS.DOM.JSFFI.Generated.SVGPathSeg - GHCJS.DOM.JSFFI.Generated.SVGPathSegArcAbs - GHCJS.DOM.JSFFI.Generated.SVGPathSegArcRel - GHCJS.DOM.JSFFI.Generated.SVGPathSegCurvetoCubicAbs - GHCJS.DOM.JSFFI.Generated.SVGPathSegCurvetoCubicRel - GHCJS.DOM.JSFFI.Generated.SVGPathSegCurvetoCubicSmoothAbs - GHCJS.DOM.JSFFI.Generated.SVGPathSegCurvetoCubicSmoothRel - GHCJS.DOM.JSFFI.Generated.SVGPathSegCurvetoQuadraticAbs - GHCJS.DOM.JSFFI.Generated.SVGPathSegCurvetoQuadraticRel - GHCJS.DOM.JSFFI.Generated.SVGPathSegCurvetoQuadraticSmoothAbs - GHCJS.DOM.JSFFI.Generated.SVGPathSegCurvetoQuadraticSmoothRel - GHCJS.DOM.JSFFI.Generated.SVGPathSegLinetoAbs - GHCJS.DOM.JSFFI.Generated.SVGPathSegLinetoHorizontalAbs - GHCJS.DOM.JSFFI.Generated.SVGPathSegLinetoHorizontalRel - GHCJS.DOM.JSFFI.Generated.SVGPathSegLinetoRel - GHCJS.DOM.JSFFI.Generated.SVGPathSegLinetoVerticalAbs - GHCJS.DOM.JSFFI.Generated.SVGPathSegLinetoVerticalRel - GHCJS.DOM.JSFFI.Generated.SVGPathSegList - GHCJS.DOM.JSFFI.Generated.SVGPathSegMovetoAbs - GHCJS.DOM.JSFFI.Generated.SVGPathSegMovetoRel - GHCJS.DOM.JSFFI.Generated.SVGPatternElement - GHCJS.DOM.JSFFI.Generated.SVGPoint - GHCJS.DOM.JSFFI.Generated.SVGPointList - GHCJS.DOM.JSFFI.Generated.SVGPolygonElement - GHCJS.DOM.JSFFI.Generated.SVGPolylineElement - GHCJS.DOM.JSFFI.Generated.SVGPreserveAspectRatio - GHCJS.DOM.JSFFI.Generated.SVGRadialGradientElement - GHCJS.DOM.JSFFI.Generated.SVGRect - GHCJS.DOM.JSFFI.Generated.SVGRectElement - GHCJS.DOM.JSFFI.Generated.SVGRenderingIntent - GHCJS.DOM.JSFFI.Generated.SVGScriptElement - GHCJS.DOM.JSFFI.Generated.SVGSVGElement - GHCJS.DOM.JSFFI.Generated.SVGStopElement - GHCJS.DOM.JSFFI.Generated.SVGStringList - GHCJS.DOM.JSFFI.Generated.SVGStyleElement - GHCJS.DOM.JSFFI.Generated.SVGTests - GHCJS.DOM.JSFFI.Generated.SVGTextContentElement - GHCJS.DOM.JSFFI.Generated.SVGTextPathElement - GHCJS.DOM.JSFFI.Generated.SVGTextPositioningElement - GHCJS.DOM.JSFFI.Generated.SVGTransform - GHCJS.DOM.JSFFI.Generated.SVGTransformList - GHCJS.DOM.JSFFI.Generated.SVGURIReference - GHCJS.DOM.JSFFI.Generated.SVGUnitTypes - GHCJS.DOM.JSFFI.Generated.SVGUseElement - GHCJS.DOM.JSFFI.Generated.SVGViewElement - GHCJS.DOM.JSFFI.Generated.SVGViewSpec - GHCJS.DOM.JSFFI.Generated.SVGZoomAndPan - GHCJS.DOM.JSFFI.Generated.SVGZoomEvent - GHCJS.DOM.JSFFI.Generated.Screen - GHCJS.DOM.JSFFI.Generated.ScriptProcessorNode - GHCJS.DOM.JSFFI.Generated.ScriptProfile - GHCJS.DOM.JSFFI.Generated.ScriptProfileNode - GHCJS.DOM.JSFFI.Generated.SecurityPolicyViolationEvent - GHCJS.DOM.JSFFI.Generated.SourceBuffer - GHCJS.DOM.JSFFI.Generated.SourceBufferList - GHCJS.DOM.JSFFI.Generated.SourceInfo - GHCJS.DOM.JSFFI.Generated.SpeechSynthesis - GHCJS.DOM.JSFFI.Generated.SpeechSynthesisEvent - GHCJS.DOM.JSFFI.Generated.SpeechSynthesisUtterance - GHCJS.DOM.JSFFI.Generated.SpeechSynthesisVoice - GHCJS.DOM.JSFFI.Generated.Storage - GHCJS.DOM.JSFFI.Generated.StorageErrorCallback - GHCJS.DOM.JSFFI.Generated.StorageEvent - GHCJS.DOM.JSFFI.Generated.StorageInfo - GHCJS.DOM.JSFFI.Generated.StorageQuota - GHCJS.DOM.JSFFI.Generated.StorageQuotaCallback - GHCJS.DOM.JSFFI.Generated.StorageUsageCallback - GHCJS.DOM.JSFFI.Generated.StringCallback - GHCJS.DOM.JSFFI.Generated.StyleMedia - GHCJS.DOM.JSFFI.Generated.StyleSheet - GHCJS.DOM.JSFFI.Generated.StyleSheetList - GHCJS.DOM.JSFFI.Generated.SubtleCrypto - GHCJS.DOM.JSFFI.Generated.Text - GHCJS.DOM.JSFFI.Generated.TextEvent - GHCJS.DOM.JSFFI.Generated.TextMetrics - GHCJS.DOM.JSFFI.Generated.TextTrack - GHCJS.DOM.JSFFI.Generated.TextTrackCue - GHCJS.DOM.JSFFI.Generated.TextTrackCueList - GHCJS.DOM.JSFFI.Generated.TextTrackList - GHCJS.DOM.JSFFI.Generated.TimeRanges - GHCJS.DOM.JSFFI.Generated.Touch - GHCJS.DOM.JSFFI.Generated.TouchEvent - GHCJS.DOM.JSFFI.Generated.TouchList - GHCJS.DOM.JSFFI.Generated.TrackEvent - GHCJS.DOM.JSFFI.Generated.TransitionEvent - GHCJS.DOM.JSFFI.Generated.TreeWalker - GHCJS.DOM.JSFFI.Generated.TypeConversions - GHCJS.DOM.JSFFI.Generated.UIEvent - GHCJS.DOM.JSFFI.Generated.UIRequestEvent - GHCJS.DOM.JSFFI.Generated.URLUtils - GHCJS.DOM.JSFFI.Generated.UserMessageHandler - GHCJS.DOM.JSFFI.Generated.VTTCue - GHCJS.DOM.JSFFI.Generated.VTTRegion - GHCJS.DOM.JSFFI.Generated.VTTRegionList - GHCJS.DOM.JSFFI.Generated.ValidityState - GHCJS.DOM.JSFFI.Generated.VideoPlaybackQuality - GHCJS.DOM.JSFFI.Generated.VideoStreamTrack - GHCJS.DOM.JSFFI.Generated.VideoTrack - GHCJS.DOM.JSFFI.Generated.VideoTrackList - GHCJS.DOM.JSFFI.Generated.VoidCallback - GHCJS.DOM.JSFFI.Generated.WaveShaperNode - GHCJS.DOM.JSFFI.Generated.WebGL2RenderingContext - GHCJS.DOM.JSFFI.Generated.WebGLActiveInfo - GHCJS.DOM.JSFFI.Generated.WebGLCompressedTextureATC - GHCJS.DOM.JSFFI.Generated.WebGLCompressedTexturePVRTC - GHCJS.DOM.JSFFI.Generated.WebGLCompressedTextureS3TC - GHCJS.DOM.JSFFI.Generated.WebGLContextAttributes - GHCJS.DOM.JSFFI.Generated.WebGLContextEvent - GHCJS.DOM.JSFFI.Generated.WebGLDebugRendererInfo - GHCJS.DOM.JSFFI.Generated.WebGLDebugShaders - GHCJS.DOM.JSFFI.Generated.WebGLDepthTexture - GHCJS.DOM.JSFFI.Generated.WebGLDrawBuffers - GHCJS.DOM.JSFFI.Generated.WebGLLoseContext - GHCJS.DOM.JSFFI.Generated.WebGLRenderingContextBase - GHCJS.DOM.JSFFI.Generated.WebGLShaderPrecisionFormat - GHCJS.DOM.JSFFI.Generated.WebKitAnimationEvent - GHCJS.DOM.JSFFI.Generated.WebKitCSSFilterValue - GHCJS.DOM.JSFFI.Generated.WebKitCSSMatrix - GHCJS.DOM.JSFFI.Generated.WebKitCSSRegionRule - GHCJS.DOM.JSFFI.Generated.WebKitCSSTransformValue - GHCJS.DOM.JSFFI.Generated.WebKitCSSViewportRule - GHCJS.DOM.JSFFI.Generated.WebKitNamedFlow - GHCJS.DOM.JSFFI.Generated.WebKitNamespace - GHCJS.DOM.JSFFI.Generated.WebKitPlaybackTargetAvailabilityEvent - GHCJS.DOM.JSFFI.Generated.WebKitPoint - GHCJS.DOM.JSFFI.Generated.WebKitTransitionEvent - GHCJS.DOM.JSFFI.Generated.WebSocket - GHCJS.DOM.JSFFI.Generated.WheelEvent - GHCJS.DOM.JSFFI.Generated.WindowBase64 - GHCJS.DOM.JSFFI.Generated.WindowTimers - GHCJS.DOM.JSFFI.Generated.Worker - GHCJS.DOM.JSFFI.Generated.WorkerGlobalScope - GHCJS.DOM.JSFFI.Generated.WorkerLocation - GHCJS.DOM.JSFFI.Generated.WorkerNavigator - GHCJS.DOM.JSFFI.Generated.XMLHttpRequest - GHCJS.DOM.JSFFI.Generated.XMLHttpRequestProgressEvent - GHCJS.DOM.JSFFI.Generated.XMLHttpRequestUpload - GHCJS.DOM.JSFFI.Generated.XMLSerializer - GHCJS.DOM.JSFFI.Generated.XPathEvaluator - GHCJS.DOM.JSFFI.Generated.XPathExpression - GHCJS.DOM.JSFFI.Generated.XPathNSResolver - GHCJS.DOM.JSFFI.Generated.XPathResult - GHCJS.DOM.JSFFI.Generated.XSLTProcessor - else - if !flag(webkit) - hs-source-dirs: jsaddle - cpp-options: -DUSE_JSADDLE - build-depends: jsaddle-dom >=0.1.0.0 && <0.2 - else - hs-source-dirs: webkit, common - cpp-options: -DUSE_WEBKIT - build-depends: glib >=0.13.0.0 && <0.14, - transformers >=0.3.0.0 && <0.6 - if flag(gtk3) - build-depends: gtk3 >=0.13.0.0 && <0.15, webkitgtk3 >=0.14.0.0 && <0.15 - else - build-depends: gtk >=0.13.0.0 && <0.14, webkit >=0.14.0.0 && <0.15 - c-sources: cbits/ghcjs_stubs.c - - if flag(old-webkit) - cpp-options: -DUSE_OLD_WEBKIT - - exposed: True - buildable: True - js-sources: jsbits/xhr.js - +version: 0.3.1.0 +cabal-version: >=1.22 +build-type: Simple +license: MIT +license-file: LICENSE +maintainer: Hamish Mackenzie +synopsis: DOM library that supports both GHCJS and WebKitGTK +description: Documentent Object Model (DOM) functions that work with + GHCJS, but can also be used with GHC and WebKitGTK. +author: Hamish Mackenzie +data-dir: "" +category: Web + +Source-Repository head + type: git + location: https://github.com/ghcjs/ghcjs-dom + subdir: ghcjs-dom + +flag jsffi + description: Use JavaScriptFFI extension for GHCJS JavaScript output + default: True + +flag webkit + description: Use WebKitGtk DOM functions + default: False + +library + build-depends: base <5, + transformers >=0.2 && <0.6, + text >= 0.11.0.6 && < 1.3 + + default-language: Haskell2010 + + exposed: True + buildable: True + + if (impl(ghcjs) && flag(jsffi)) + build-depends: ghcjs-dom-jsffi ==0.3.1.0 + else + if flag(webkit) + build-depends: ghcjs-dom-webkit ==0.3.1.0 + else + build-depends: ghcjs-dom-jsaddle ==0.3.1.0 + + reexported-modules: + GHCJS.DOM + , GHCJS.DOM.ANGLEInstancedArrays + , GHCJS.DOM.AbstractView + , GHCJS.DOM.AbstractWorker + , GHCJS.DOM.AllAudioCapabilities + , GHCJS.DOM.AllVideoCapabilities + , GHCJS.DOM.AnalyserNode + , GHCJS.DOM.AnimationEvent + , GHCJS.DOM.Attr + , GHCJS.DOM.AudioBuffer + , GHCJS.DOM.AudioBufferCallback + , GHCJS.DOM.AudioBufferSourceNode + , GHCJS.DOM.AudioContext + , GHCJS.DOM.AudioDestinationNode + , GHCJS.DOM.AudioListener + , GHCJS.DOM.AudioNode + , GHCJS.DOM.AudioParam + , GHCJS.DOM.AudioProcessingEvent + , GHCJS.DOM.AudioStreamTrack + , GHCJS.DOM.AudioTrack + , GHCJS.DOM.AudioTrackList + , GHCJS.DOM.AutocompleteErrorEvent + , GHCJS.DOM.BarProp + , GHCJS.DOM.BatteryManager + , GHCJS.DOM.BeforeLoadEvent + , GHCJS.DOM.BeforeUnloadEvent + , GHCJS.DOM.BiquadFilterNode + , GHCJS.DOM.Blob + , GHCJS.DOM.CSSCharsetRule + , GHCJS.DOM.CSSFontFaceLoadEvent + , GHCJS.DOM.CSSFontFaceRule + , GHCJS.DOM.CSSImportRule + , GHCJS.DOM.CSSKeyframeRule + , GHCJS.DOM.CSSKeyframesRule + , GHCJS.DOM.CSSMediaRule + , GHCJS.DOM.CSSPageRule + , GHCJS.DOM.CSSPrimitiveValue + , GHCJS.DOM.CSSRule + , GHCJS.DOM.CSSRuleList + , GHCJS.DOM.CSSStyleDeclaration + , GHCJS.DOM.CSSStyleRule + , GHCJS.DOM.CSSStyleSheet + , GHCJS.DOM.CSSSupportsRule + , GHCJS.DOM.CSSValue + , GHCJS.DOM.CSSValueList + , GHCJS.DOM.CanvasGradient + , GHCJS.DOM.CanvasRenderingContext + , GHCJS.DOM.CanvasRenderingContext2D + , GHCJS.DOM.CapabilityRange + , GHCJS.DOM.CharacterData + , GHCJS.DOM.ChildNode + , GHCJS.DOM.ClientRect + , GHCJS.DOM.ClientRectList + , GHCJS.DOM.CloseEvent + , GHCJS.DOM.CommandLineAPIHost + , GHCJS.DOM.Comment + , GHCJS.DOM.CompositionEvent + , GHCJS.DOM.ConvolverNode + , GHCJS.DOM.Coordinates + , GHCJS.DOM.Counter + , GHCJS.DOM.Crypto + , GHCJS.DOM.CryptoKey + , GHCJS.DOM.CryptoKeyPair + , GHCJS.DOM.CustomEvent + , GHCJS.DOM.ApplicationCache + , GHCJS.DOM.DOMError + , GHCJS.DOM.FormData + , GHCJS.DOM.DOMImplementation + , GHCJS.DOM.MimeType + , GHCJS.DOM.MimeTypeArray + , GHCJS.DOM.DOMNamedFlowCollection + , GHCJS.DOM.DOMParser + , GHCJS.DOM.Path2D + , GHCJS.DOM.Plugin + , GHCJS.DOM.PluginArray + , GHCJS.DOM.SecurityPolicy + , GHCJS.DOM.Selection + , GHCJS.DOM.DOMSettableTokenList + , GHCJS.DOM.DOMStringList + , GHCJS.DOM.DOMTokenList + , GHCJS.DOM.URL + , GHCJS.DOM.Window + , GHCJS.DOM.CSS + , GHCJS.DOM.DataCue + , GHCJS.DOM.DataTransfer + , GHCJS.DOM.DataTransferItem + , GHCJS.DOM.DataTransferItemList + , GHCJS.DOM.Database + , GHCJS.DOM.DatabaseCallback + , GHCJS.DOM.DedicatedWorkerGlobalScope + , GHCJS.DOM.DelayNode + , GHCJS.DOM.DeviceMotionEvent + , GHCJS.DOM.DeviceOrientationEvent + , GHCJS.DOM.DeviceProximityEvent + , GHCJS.DOM.Document + , GHCJS.DOM.DocumentFragment + , GHCJS.DOM.DocumentType + , GHCJS.DOM.DynamicsCompressorNode + , GHCJS.DOM.EXTBlendMinMax + , GHCJS.DOM.EXTsRGB + , GHCJS.DOM.EXTTextureFilterAnisotropic + , GHCJS.DOM.Element + , GHCJS.DOM.Entity + , GHCJS.DOM.Enums + , GHCJS.DOM.ErrorEvent + , GHCJS.DOM.Event + , GHCJS.DOM.EventListener + , GHCJS.DOM.EventM + , GHCJS.DOM.EventSource + , GHCJS.DOM.EventTarget + , GHCJS.DOM.File + , GHCJS.DOM.FileError + , GHCJS.DOM.FileList + , GHCJS.DOM.FileReader + , GHCJS.DOM.FileReaderSync + , GHCJS.DOM.FocusEvent + , GHCJS.DOM.FontLoader + , GHCJS.DOM.GainNode + , GHCJS.DOM.Gamepad + , GHCJS.DOM.GamepadButton + , GHCJS.DOM.GamepadEvent + , GHCJS.DOM.Geolocation + , GHCJS.DOM.Geoposition + , GHCJS.DOM.HTMLAllCollection + , GHCJS.DOM.HTMLAnchorElement + , GHCJS.DOM.HTMLAppletElement + , GHCJS.DOM.HTMLAreaElement + , GHCJS.DOM.HTMLBRElement + , GHCJS.DOM.HTMLBaseElement + , GHCJS.DOM.HTMLBaseFontElement + , GHCJS.DOM.HTMLBodyElement + , GHCJS.DOM.HTMLButtonElement + , GHCJS.DOM.HTMLCanvasElement + , GHCJS.DOM.HTMLCollection + , GHCJS.DOM.HTMLDListElement + , GHCJS.DOM.HTMLDataListElement + , GHCJS.DOM.HTMLDetailsElement + , GHCJS.DOM.HTMLDirectoryElement + , GHCJS.DOM.HTMLDivElement + , GHCJS.DOM.HTMLDocument + , GHCJS.DOM.HTMLElement + , GHCJS.DOM.HTMLEmbedElement + , GHCJS.DOM.HTMLFieldSetElement + , GHCJS.DOM.HTMLFontElement + , GHCJS.DOM.HTMLFormControlsCollection + , GHCJS.DOM.HTMLFormElement + , GHCJS.DOM.HTMLFrameElement + , GHCJS.DOM.HTMLFrameSetElement + , GHCJS.DOM.HTMLHRElement + , GHCJS.DOM.HTMLHeadElement + , GHCJS.DOM.HTMLHeadingElement + , GHCJS.DOM.HTMLHtmlElement + , GHCJS.DOM.HTMLIFrameElement + , GHCJS.DOM.HTMLImageElement + , GHCJS.DOM.HTMLInputElement + , GHCJS.DOM.HTMLKeygenElement + , GHCJS.DOM.HTMLLIElement + , GHCJS.DOM.HTMLLabelElement + , GHCJS.DOM.HTMLLegendElement + , GHCJS.DOM.HTMLLinkElement + , GHCJS.DOM.HTMLMapElement + , GHCJS.DOM.HTMLMarqueeElement + , GHCJS.DOM.HTMLMediaElement + , GHCJS.DOM.HTMLMenuElement + , GHCJS.DOM.HTMLMetaElement + , GHCJS.DOM.HTMLMeterElement + , GHCJS.DOM.HTMLModElement + , GHCJS.DOM.HTMLOListElement + , GHCJS.DOM.HTMLObjectElement + , GHCJS.DOM.HTMLOptGroupElement + , GHCJS.DOM.HTMLOptionElement + , GHCJS.DOM.HTMLOptionsCollection + , GHCJS.DOM.HTMLOutputElement + , GHCJS.DOM.HTMLParagraphElement + , GHCJS.DOM.HTMLParamElement + , GHCJS.DOM.HTMLPreElement + , GHCJS.DOM.HTMLProgressElement + , GHCJS.DOM.HTMLQuoteElement + , GHCJS.DOM.HTMLScriptElement + , GHCJS.DOM.HTMLSelectElement + , GHCJS.DOM.HTMLSourceElement + , GHCJS.DOM.HTMLStyleElement + , GHCJS.DOM.HTMLTableCaptionElement + , GHCJS.DOM.HTMLTableCellElement + , GHCJS.DOM.HTMLTableColElement + , GHCJS.DOM.HTMLTableElement + , GHCJS.DOM.HTMLTableRowElement + , GHCJS.DOM.HTMLTableSectionElement + , GHCJS.DOM.HTMLTemplateElement + , GHCJS.DOM.HTMLTextAreaElement + , GHCJS.DOM.HTMLTitleElement + , GHCJS.DOM.HTMLTrackElement + , GHCJS.DOM.HTMLUListElement + , GHCJS.DOM.HTMLVideoElement + , GHCJS.DOM.HashChangeEvent + , GHCJS.DOM.History + , GHCJS.DOM.IDBCursor + , GHCJS.DOM.IDBCursorWithValue + , GHCJS.DOM.IDBDatabase + , GHCJS.DOM.IDBFactory + , GHCJS.DOM.IDBIndex + , GHCJS.DOM.IDBKeyRange + , GHCJS.DOM.IDBObjectStore + , GHCJS.DOM.IDBOpenDBRequest + , GHCJS.DOM.IDBRequest + , GHCJS.DOM.IDBTransaction + , GHCJS.DOM.IDBVersionChangeEvent + , GHCJS.DOM.ImageData + , GHCJS.DOM.InspectorFrontendHost + , GHCJS.DOM.InternalSettings + , GHCJS.DOM.Internals + , GHCJS.DOM.KeyboardEvent + , GHCJS.DOM.Location + , GHCJS.DOM.MallocStatistics + , GHCJS.DOM.MediaController + , GHCJS.DOM.MediaControlsHost + , GHCJS.DOM.MediaElementAudioSourceNode + , GHCJS.DOM.MediaError + , GHCJS.DOM.MediaKeyError + , GHCJS.DOM.MediaKeyEvent + , GHCJS.DOM.MediaKeyMessageEvent + , GHCJS.DOM.MediaKeyNeededEvent + , GHCJS.DOM.MediaKeySession + , GHCJS.DOM.MediaKeys + , GHCJS.DOM.MediaList + , GHCJS.DOM.MediaQueryList + , GHCJS.DOM.MediaQueryListListener + , GHCJS.DOM.MediaSource + , GHCJS.DOM.MediaSourceStates + , GHCJS.DOM.MediaStream + , GHCJS.DOM.MediaStreamAudioDestinationNode + , GHCJS.DOM.MediaStreamAudioSourceNode + , GHCJS.DOM.MediaStreamEvent + , GHCJS.DOM.MediaStreamTrack + , GHCJS.DOM.MediaStreamTrackEvent + , GHCJS.DOM.MediaStreamTrackSourcesCallback + , GHCJS.DOM.MediaTrackConstraints + , GHCJS.DOM.MemoryInfo + , GHCJS.DOM.MessageChannel + , GHCJS.DOM.MessageEvent + , GHCJS.DOM.MessagePort + , GHCJS.DOM.MouseEvent + , GHCJS.DOM.MutationEvent + , GHCJS.DOM.MutationObserver + , GHCJS.DOM.MutationRecord + , GHCJS.DOM.NamedNodeMap + , GHCJS.DOM.Navigator + , GHCJS.DOM.NavigatorUserMediaError + , GHCJS.DOM.NavigatorUserMediaErrorCallback + , GHCJS.DOM.NavigatorUserMediaSuccessCallback + , GHCJS.DOM.Node + , GHCJS.DOM.NodeFilter + , GHCJS.DOM.NodeIterator + , GHCJS.DOM.NodeList + , GHCJS.DOM.Notification + , GHCJS.DOM.NotificationCenter + , GHCJS.DOM.NotificationPermissionCallback + , GHCJS.DOM.OESStandardDerivatives + , GHCJS.DOM.OESTextureHalfFloat + , GHCJS.DOM.OESVertexArrayObject + , GHCJS.DOM.OfflineAudioCompletionEvent + , GHCJS.DOM.OfflineAudioContext + , GHCJS.DOM.OscillatorNode + , GHCJS.DOM.OverflowEvent + , GHCJS.DOM.PageTransitionEvent + , GHCJS.DOM.PannerNode + , GHCJS.DOM.Performance + , GHCJS.DOM.PerformanceEntry + , GHCJS.DOM.PerformanceEntryList + , GHCJS.DOM.PerformanceNavigation + , GHCJS.DOM.PerformanceResourceTiming + , GHCJS.DOM.PerformanceTiming + , GHCJS.DOM.PopStateEvent + , GHCJS.DOM.PositionCallback + , GHCJS.DOM.PositionError + , GHCJS.DOM.PositionErrorCallback + , GHCJS.DOM.ProcessingInstruction + , GHCJS.DOM.ProgressEvent + , GHCJS.DOM.QuickTimePluginReplacement + , GHCJS.DOM.RGBColor + , GHCJS.DOM.RTCConfiguration + , GHCJS.DOM.RTCDTMFSender + , GHCJS.DOM.RTCDTMFToneChangeEvent + , GHCJS.DOM.RTCDataChannel + , GHCJS.DOM.RTCDataChannelEvent + , GHCJS.DOM.RTCIceCandidate + , GHCJS.DOM.RTCIceCandidateEvent + , GHCJS.DOM.RTCIceServer + , GHCJS.DOM.RTCPeerConnection + , GHCJS.DOM.RTCPeerConnectionErrorCallback + , GHCJS.DOM.RTCSessionDescription + , GHCJS.DOM.RTCSessionDescriptionCallback + , GHCJS.DOM.RTCStatsCallback + , GHCJS.DOM.RTCStatsReport + , GHCJS.DOM.RTCStatsResponse + , GHCJS.DOM.RadioNodeList + , GHCJS.DOM.Range + , GHCJS.DOM.ReadableStream + , GHCJS.DOM.Rect + , GHCJS.DOM.RequestAnimationFrameCallback + , GHCJS.DOM.SQLError + , GHCJS.DOM.SQLResultSet + , GHCJS.DOM.SQLResultSetRowList + , GHCJS.DOM.SQLStatementCallback + , GHCJS.DOM.SQLStatementErrorCallback + , GHCJS.DOM.SQLTransaction + , GHCJS.DOM.SQLTransactionCallback + , GHCJS.DOM.SQLTransactionErrorCallback + , GHCJS.DOM.SVGAElement + , GHCJS.DOM.SVGAltGlyphElement + , GHCJS.DOM.SVGAngle + , GHCJS.DOM.SVGAnimatedAngle + , GHCJS.DOM.SVGAnimatedBoolean + , GHCJS.DOM.SVGAnimatedEnumeration + , GHCJS.DOM.SVGAnimatedInteger + , GHCJS.DOM.SVGAnimatedLength + , GHCJS.DOM.SVGAnimatedLengthList + , GHCJS.DOM.SVGAnimatedNumber + , GHCJS.DOM.SVGAnimatedNumberList + , GHCJS.DOM.SVGAnimatedPreserveAspectRatio + , GHCJS.DOM.SVGAnimatedRect + , GHCJS.DOM.SVGAnimatedString + , GHCJS.DOM.SVGAnimatedTransformList + , GHCJS.DOM.SVGAnimationElement + , GHCJS.DOM.SVGCircleElement + , GHCJS.DOM.SVGClipPathElement + , GHCJS.DOM.SVGColor + , GHCJS.DOM.SVGComponentTransferFunctionElement + , GHCJS.DOM.SVGCursorElement + , GHCJS.DOM.SVGDocument + , GHCJS.DOM.SVGElement + , GHCJS.DOM.SVGEllipseElement + , GHCJS.DOM.SVGExternalResourcesRequired + , GHCJS.DOM.SVGFEBlendElement + , GHCJS.DOM.SVGFEColorMatrixElement + , GHCJS.DOM.SVGFEComponentTransferElement + , GHCJS.DOM.SVGFECompositeElement + , GHCJS.DOM.SVGFEConvolveMatrixElement + , GHCJS.DOM.SVGFEDiffuseLightingElement + , GHCJS.DOM.SVGFEDisplacementMapElement + , GHCJS.DOM.SVGFEDistantLightElement + , GHCJS.DOM.SVGFEDropShadowElement + , GHCJS.DOM.SVGFEGaussianBlurElement + , GHCJS.DOM.SVGFEImageElement + , GHCJS.DOM.SVGFEMergeNodeElement + , GHCJS.DOM.SVGFEMorphologyElement + , GHCJS.DOM.SVGFEOffsetElement + , GHCJS.DOM.SVGFEPointLightElement + , GHCJS.DOM.SVGFESpecularLightingElement + , GHCJS.DOM.SVGFESpotLightElement + , GHCJS.DOM.SVGFETileElement + , GHCJS.DOM.SVGFETurbulenceElement + , GHCJS.DOM.SVGFilterElement + , GHCJS.DOM.SVGFilterPrimitiveStandardAttributes + , GHCJS.DOM.SVGFitToViewBox + , GHCJS.DOM.SVGForeignObjectElement + , GHCJS.DOM.SVGGlyphRefElement + , GHCJS.DOM.SVGGradientElement + , GHCJS.DOM.SVGGraphicsElement + , GHCJS.DOM.SVGImageElement + , GHCJS.DOM.SVGLength + , GHCJS.DOM.SVGLengthList + , GHCJS.DOM.SVGLineElement + , GHCJS.DOM.SVGLinearGradientElement + , GHCJS.DOM.SVGMarkerElement + , GHCJS.DOM.SVGMaskElement + , GHCJS.DOM.SVGMatrix + , GHCJS.DOM.SVGNumber + , GHCJS.DOM.SVGNumberList + , GHCJS.DOM.SVGPaint + , GHCJS.DOM.SVGPathElement + , GHCJS.DOM.SVGPathSeg + , GHCJS.DOM.SVGPathSegArcAbs + , GHCJS.DOM.SVGPathSegArcRel + , GHCJS.DOM.SVGPathSegCurvetoCubicAbs + , GHCJS.DOM.SVGPathSegCurvetoCubicRel + , GHCJS.DOM.SVGPathSegCurvetoCubicSmoothAbs + , GHCJS.DOM.SVGPathSegCurvetoCubicSmoothRel + , GHCJS.DOM.SVGPathSegCurvetoQuadraticAbs + , GHCJS.DOM.SVGPathSegCurvetoQuadraticRel + , GHCJS.DOM.SVGPathSegCurvetoQuadraticSmoothAbs + , GHCJS.DOM.SVGPathSegCurvetoQuadraticSmoothRel + , GHCJS.DOM.SVGPathSegLinetoAbs + , GHCJS.DOM.SVGPathSegLinetoHorizontalAbs + , GHCJS.DOM.SVGPathSegLinetoHorizontalRel + , GHCJS.DOM.SVGPathSegLinetoRel + , GHCJS.DOM.SVGPathSegLinetoVerticalAbs + , GHCJS.DOM.SVGPathSegLinetoVerticalRel + , GHCJS.DOM.SVGPathSegList + , GHCJS.DOM.SVGPathSegMovetoAbs + , GHCJS.DOM.SVGPathSegMovetoRel + , GHCJS.DOM.SVGPatternElement + , GHCJS.DOM.SVGPoint + , GHCJS.DOM.SVGPointList + , GHCJS.DOM.SVGPolygonElement + , GHCJS.DOM.SVGPolylineElement + , GHCJS.DOM.SVGPreserveAspectRatio + , GHCJS.DOM.SVGRadialGradientElement + , GHCJS.DOM.SVGRect + , GHCJS.DOM.SVGRectElement + , GHCJS.DOM.SVGRenderingIntent + , GHCJS.DOM.SVGScriptElement + , GHCJS.DOM.SVGSVGElement + , GHCJS.DOM.SVGStopElement + , GHCJS.DOM.SVGStringList + , GHCJS.DOM.SVGStyleElement + , GHCJS.DOM.SVGTests + , GHCJS.DOM.SVGTextContentElement + , GHCJS.DOM.SVGTextPathElement + , GHCJS.DOM.SVGTextPositioningElement + , GHCJS.DOM.SVGTransform + , GHCJS.DOM.SVGTransformList + , GHCJS.DOM.SVGURIReference + , GHCJS.DOM.SVGUnitTypes + , GHCJS.DOM.SVGUseElement + , GHCJS.DOM.SVGViewElement + , GHCJS.DOM.SVGViewSpec + , GHCJS.DOM.SVGZoomAndPan + , GHCJS.DOM.SVGZoomEvent + , GHCJS.DOM.Screen + , GHCJS.DOM.ScriptProcessorNode + , GHCJS.DOM.ScriptProfile + , GHCJS.DOM.ScriptProfileNode + , GHCJS.DOM.SecurityPolicyViolationEvent + , GHCJS.DOM.SourceBuffer + , GHCJS.DOM.SourceBufferList + , GHCJS.DOM.SourceInfo + , GHCJS.DOM.SpeechSynthesis + , GHCJS.DOM.SpeechSynthesisEvent + , GHCJS.DOM.SpeechSynthesisUtterance + , GHCJS.DOM.SpeechSynthesisVoice + , GHCJS.DOM.Storage + , GHCJS.DOM.StorageErrorCallback + , GHCJS.DOM.StorageEvent + , GHCJS.DOM.StorageInfo + , GHCJS.DOM.StorageQuota + , GHCJS.DOM.StorageQuotaCallback + , GHCJS.DOM.StorageUsageCallback + , GHCJS.DOM.StringCallback + , GHCJS.DOM.StyleMedia + , GHCJS.DOM.StyleSheet + , GHCJS.DOM.StyleSheetList + , GHCJS.DOM.SubtleCrypto + , GHCJS.DOM.Text + , GHCJS.DOM.TextEvent + , GHCJS.DOM.TextMetrics + , GHCJS.DOM.TextTrack + , GHCJS.DOM.TextTrackCue + , GHCJS.DOM.TextTrackCueList + , GHCJS.DOM.TextTrackList + , GHCJS.DOM.TimeRanges + , GHCJS.DOM.Touch + , GHCJS.DOM.TouchEvent + , GHCJS.DOM.TouchList + , GHCJS.DOM.TrackEvent + , GHCJS.DOM.TransitionEvent + , GHCJS.DOM.TreeWalker + , GHCJS.DOM.TypeConversions + , GHCJS.DOM.Types + , GHCJS.DOM.UIEvent + , GHCJS.DOM.UIRequestEvent + , GHCJS.DOM.URLUtils + , GHCJS.DOM.UserMessageHandler + , GHCJS.DOM.VTTCue + , GHCJS.DOM.VTTRegion + , GHCJS.DOM.VTTRegionList + , GHCJS.DOM.ValidityState + , GHCJS.DOM.VideoPlaybackQuality + , GHCJS.DOM.VideoStreamTrack + , GHCJS.DOM.VideoTrack + , GHCJS.DOM.VideoTrackList + , GHCJS.DOM.VoidCallback + , GHCJS.DOM.WaveShaperNode + , GHCJS.DOM.WebGL2RenderingContext + , GHCJS.DOM.WebGLActiveInfo + , GHCJS.DOM.WebGLCompressedTextureATC + , GHCJS.DOM.WebGLCompressedTexturePVRTC + , GHCJS.DOM.WebGLCompressedTextureS3TC + , GHCJS.DOM.WebGLContextAttributes + , GHCJS.DOM.WebGLContextEvent + , GHCJS.DOM.WebGLDebugRendererInfo + , GHCJS.DOM.WebGLDebugShaders + , GHCJS.DOM.WebGLDepthTexture + , GHCJS.DOM.WebGLDrawBuffers + , GHCJS.DOM.WebGLLoseContext + , GHCJS.DOM.WebGLRenderingContextBase + , GHCJS.DOM.WebGLShaderPrecisionFormat + , GHCJS.DOM.WebKitAnimationEvent + , GHCJS.DOM.WebKitCSSFilterValue + , GHCJS.DOM.WebKitCSSMatrix + , GHCJS.DOM.WebKitCSSRegionRule + , GHCJS.DOM.WebKitCSSTransformValue + , GHCJS.DOM.WebKitCSSViewportRule + , GHCJS.DOM.WebKitNamedFlow + , GHCJS.DOM.WebKitNamespace + , GHCJS.DOM.WebKitPlaybackTargetAvailabilityEvent + , GHCJS.DOM.WebKitPoint + , GHCJS.DOM.WebKitTransitionEvent + , GHCJS.DOM.WebSocket + , GHCJS.DOM.WheelEvent + , GHCJS.DOM.WindowBase64 + , GHCJS.DOM.WindowTimers + , GHCJS.DOM.Worker + , GHCJS.DOM.WorkerGlobalScope + , GHCJS.DOM.WorkerLocation + , GHCJS.DOM.WorkerNavigator + , GHCJS.DOM.XMLHttpRequest + , GHCJS.DOM.XMLHttpRequestProgressEvent + , GHCJS.DOM.XMLHttpRequestUpload + , GHCJS.DOM.XMLSerializer + , GHCJS.DOM.XPathEvaluator + , GHCJS.DOM.XPathExpression + , GHCJS.DOM.XPathNSResolver + , GHCJS.DOM.XPathResult + , GHCJS.DOM.XSLTProcessor diff --git a/jsaddle/GHCJS/DOM.hs b/jsaddle/GHCJS/DOM.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM ( - module Language.Javascript.JSaddle.DOM - ) where -import Language.Javascript.JSaddle.DOM diff --git a/jsaddle/GHCJS/DOM/ANGLEInstancedArrays.hs b/jsaddle/GHCJS/DOM/ANGLEInstancedArrays.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/ANGLEInstancedArrays.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.ANGLEInstancedArrays ( - module Language.Javascript.JSaddle.DOM.ANGLEInstancedArrays - ) where -import Language.Javascript.JSaddle.DOM.ANGLEInstancedArrays diff --git a/jsaddle/GHCJS/DOM/AbstractView.hs b/jsaddle/GHCJS/DOM/AbstractView.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/AbstractView.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.AbstractView ( - module Language.Javascript.JSaddle.DOM.AbstractView - ) where -import Language.Javascript.JSaddle.DOM.AbstractView diff --git a/jsaddle/GHCJS/DOM/AbstractWorker.hs b/jsaddle/GHCJS/DOM/AbstractWorker.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/AbstractWorker.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.AbstractWorker ( - module Language.Javascript.JSaddle.DOM.AbstractWorker - ) where -import Language.Javascript.JSaddle.DOM.AbstractWorker diff --git a/jsaddle/GHCJS/DOM/AllAudioCapabilities.hs b/jsaddle/GHCJS/DOM/AllAudioCapabilities.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/AllAudioCapabilities.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.AllAudioCapabilities ( - module Language.Javascript.JSaddle.DOM.AllAudioCapabilities - ) where -import Language.Javascript.JSaddle.DOM.AllAudioCapabilities diff --git a/jsaddle/GHCJS/DOM/AllVideoCapabilities.hs b/jsaddle/GHCJS/DOM/AllVideoCapabilities.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/AllVideoCapabilities.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.AllVideoCapabilities ( - module Language.Javascript.JSaddle.DOM.AllVideoCapabilities - ) where -import Language.Javascript.JSaddle.DOM.AllVideoCapabilities diff --git a/jsaddle/GHCJS/DOM/AnalyserNode.hs b/jsaddle/GHCJS/DOM/AnalyserNode.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/AnalyserNode.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.AnalyserNode ( - module Language.Javascript.JSaddle.DOM.AnalyserNode - ) where -import Language.Javascript.JSaddle.DOM.AnalyserNode diff --git a/jsaddle/GHCJS/DOM/AnimationEvent.hs b/jsaddle/GHCJS/DOM/AnimationEvent.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/AnimationEvent.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.AnimationEvent ( - module Language.Javascript.JSaddle.DOM.AnimationEvent - ) where -import Language.Javascript.JSaddle.DOM.AnimationEvent diff --git a/jsaddle/GHCJS/DOM/ApplicationCache.hs b/jsaddle/GHCJS/DOM/ApplicationCache.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/ApplicationCache.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.ApplicationCache ( - module Language.Javascript.JSaddle.DOM.ApplicationCache - ) where -import Language.Javascript.JSaddle.DOM.ApplicationCache diff --git a/jsaddle/GHCJS/DOM/Attr.hs b/jsaddle/GHCJS/DOM/Attr.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/Attr.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.Attr ( - module Language.Javascript.JSaddle.DOM.Attr - ) where -import Language.Javascript.JSaddle.DOM.Attr diff --git a/jsaddle/GHCJS/DOM/AudioBuffer.hs b/jsaddle/GHCJS/DOM/AudioBuffer.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/AudioBuffer.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.AudioBuffer ( - module Language.Javascript.JSaddle.DOM.AudioBuffer - ) where -import Language.Javascript.JSaddle.DOM.AudioBuffer diff --git a/jsaddle/GHCJS/DOM/AudioBufferCallback.hs b/jsaddle/GHCJS/DOM/AudioBufferCallback.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/AudioBufferCallback.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.AudioBufferCallback ( - module Language.Javascript.JSaddle.DOM.AudioBufferCallback - ) where -import Language.Javascript.JSaddle.DOM.AudioBufferCallback diff --git a/jsaddle/GHCJS/DOM/AudioBufferSourceNode.hs b/jsaddle/GHCJS/DOM/AudioBufferSourceNode.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/AudioBufferSourceNode.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.AudioBufferSourceNode ( - module Language.Javascript.JSaddle.DOM.AudioBufferSourceNode - ) where -import Language.Javascript.JSaddle.DOM.AudioBufferSourceNode diff --git a/jsaddle/GHCJS/DOM/AudioContext.hs b/jsaddle/GHCJS/DOM/AudioContext.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/AudioContext.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.AudioContext ( - module Language.Javascript.JSaddle.DOM.AudioContext - ) where -import Language.Javascript.JSaddle.DOM.AudioContext diff --git a/jsaddle/GHCJS/DOM/AudioDestinationNode.hs b/jsaddle/GHCJS/DOM/AudioDestinationNode.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/AudioDestinationNode.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.AudioDestinationNode ( - module Language.Javascript.JSaddle.DOM.AudioDestinationNode - ) where -import Language.Javascript.JSaddle.DOM.AudioDestinationNode diff --git a/jsaddle/GHCJS/DOM/AudioListener.hs b/jsaddle/GHCJS/DOM/AudioListener.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/AudioListener.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.AudioListener ( - module Language.Javascript.JSaddle.DOM.AudioListener - ) where -import Language.Javascript.JSaddle.DOM.AudioListener diff --git a/jsaddle/GHCJS/DOM/AudioNode.hs b/jsaddle/GHCJS/DOM/AudioNode.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/AudioNode.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.AudioNode ( - module Language.Javascript.JSaddle.DOM.AudioNode - ) where -import Language.Javascript.JSaddle.DOM.AudioNode diff --git a/jsaddle/GHCJS/DOM/AudioParam.hs b/jsaddle/GHCJS/DOM/AudioParam.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/AudioParam.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.AudioParam ( - module Language.Javascript.JSaddle.DOM.AudioParam - ) where -import Language.Javascript.JSaddle.DOM.AudioParam diff --git a/jsaddle/GHCJS/DOM/AudioProcessingEvent.hs b/jsaddle/GHCJS/DOM/AudioProcessingEvent.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/AudioProcessingEvent.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.AudioProcessingEvent ( - module Language.Javascript.JSaddle.DOM.AudioProcessingEvent - ) where -import Language.Javascript.JSaddle.DOM.AudioProcessingEvent diff --git a/jsaddle/GHCJS/DOM/AudioStreamTrack.hs b/jsaddle/GHCJS/DOM/AudioStreamTrack.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/AudioStreamTrack.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.AudioStreamTrack ( - module Language.Javascript.JSaddle.DOM.AudioStreamTrack - ) where -import Language.Javascript.JSaddle.DOM.AudioStreamTrack diff --git a/jsaddle/GHCJS/DOM/AudioTrack.hs b/jsaddle/GHCJS/DOM/AudioTrack.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/AudioTrack.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.AudioTrack ( - module Language.Javascript.JSaddle.DOM.AudioTrack - ) where -import Language.Javascript.JSaddle.DOM.AudioTrack diff --git a/jsaddle/GHCJS/DOM/AudioTrackList.hs b/jsaddle/GHCJS/DOM/AudioTrackList.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/AudioTrackList.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.AudioTrackList ( - module Language.Javascript.JSaddle.DOM.AudioTrackList - ) where -import Language.Javascript.JSaddle.DOM.AudioTrackList diff --git a/jsaddle/GHCJS/DOM/AutocompleteErrorEvent.hs b/jsaddle/GHCJS/DOM/AutocompleteErrorEvent.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/AutocompleteErrorEvent.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.AutocompleteErrorEvent ( - module Language.Javascript.JSaddle.DOM.AutocompleteErrorEvent - ) where -import Language.Javascript.JSaddle.DOM.AutocompleteErrorEvent diff --git a/jsaddle/GHCJS/DOM/BarProp.hs b/jsaddle/GHCJS/DOM/BarProp.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/BarProp.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.BarProp ( - module Language.Javascript.JSaddle.DOM.BarProp - ) where -import Language.Javascript.JSaddle.DOM.BarProp diff --git a/jsaddle/GHCJS/DOM/BatteryManager.hs b/jsaddle/GHCJS/DOM/BatteryManager.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/BatteryManager.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.BatteryManager ( - module Language.Javascript.JSaddle.DOM.BatteryManager - ) where -import Language.Javascript.JSaddle.DOM.BatteryManager diff --git a/jsaddle/GHCJS/DOM/BeforeLoadEvent.hs b/jsaddle/GHCJS/DOM/BeforeLoadEvent.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/BeforeLoadEvent.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.BeforeLoadEvent ( - module Language.Javascript.JSaddle.DOM.BeforeLoadEvent - ) where -import Language.Javascript.JSaddle.DOM.BeforeLoadEvent diff --git a/jsaddle/GHCJS/DOM/BeforeUnloadEvent.hs b/jsaddle/GHCJS/DOM/BeforeUnloadEvent.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/BeforeUnloadEvent.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.BeforeUnloadEvent ( - module Language.Javascript.JSaddle.DOM.BeforeUnloadEvent - ) where -import Language.Javascript.JSaddle.DOM.BeforeUnloadEvent diff --git a/jsaddle/GHCJS/DOM/BiquadFilterNode.hs b/jsaddle/GHCJS/DOM/BiquadFilterNode.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/BiquadFilterNode.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.BiquadFilterNode ( - module Language.Javascript.JSaddle.DOM.BiquadFilterNode - ) where -import Language.Javascript.JSaddle.DOM.BiquadFilterNode diff --git a/jsaddle/GHCJS/DOM/Blob.hs b/jsaddle/GHCJS/DOM/Blob.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/Blob.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.Blob ( - module Language.Javascript.JSaddle.DOM.Blob - ) where -import Language.Javascript.JSaddle.DOM.Blob diff --git a/jsaddle/GHCJS/DOM/CSS.hs b/jsaddle/GHCJS/DOM/CSS.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/CSS.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.CSS ( - module Language.Javascript.JSaddle.DOM.CSS - ) where -import Language.Javascript.JSaddle.DOM.CSS diff --git a/jsaddle/GHCJS/DOM/CSSCharsetRule.hs b/jsaddle/GHCJS/DOM/CSSCharsetRule.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/CSSCharsetRule.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.CSSCharsetRule ( - module Language.Javascript.JSaddle.DOM.CSSCharsetRule - ) where -import Language.Javascript.JSaddle.DOM.CSSCharsetRule diff --git a/jsaddle/GHCJS/DOM/CSSFontFaceLoadEvent.hs b/jsaddle/GHCJS/DOM/CSSFontFaceLoadEvent.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/CSSFontFaceLoadEvent.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.CSSFontFaceLoadEvent ( - module Language.Javascript.JSaddle.DOM.CSSFontFaceLoadEvent - ) where -import Language.Javascript.JSaddle.DOM.CSSFontFaceLoadEvent diff --git a/jsaddle/GHCJS/DOM/CSSFontFaceRule.hs b/jsaddle/GHCJS/DOM/CSSFontFaceRule.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/CSSFontFaceRule.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.CSSFontFaceRule ( - module Language.Javascript.JSaddle.DOM.CSSFontFaceRule - ) where -import Language.Javascript.JSaddle.DOM.CSSFontFaceRule diff --git a/jsaddle/GHCJS/DOM/CSSImportRule.hs b/jsaddle/GHCJS/DOM/CSSImportRule.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/CSSImportRule.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.CSSImportRule ( - module Language.Javascript.JSaddle.DOM.CSSImportRule - ) where -import Language.Javascript.JSaddle.DOM.CSSImportRule diff --git a/jsaddle/GHCJS/DOM/CSSKeyframeRule.hs b/jsaddle/GHCJS/DOM/CSSKeyframeRule.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/CSSKeyframeRule.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.CSSKeyframeRule ( - module Language.Javascript.JSaddle.DOM.CSSKeyframeRule - ) where -import Language.Javascript.JSaddle.DOM.CSSKeyframeRule diff --git a/jsaddle/GHCJS/DOM/CSSKeyframesRule.hs b/jsaddle/GHCJS/DOM/CSSKeyframesRule.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/CSSKeyframesRule.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.CSSKeyframesRule ( - module Language.Javascript.JSaddle.DOM.CSSKeyframesRule - ) where -import Language.Javascript.JSaddle.DOM.CSSKeyframesRule diff --git a/jsaddle/GHCJS/DOM/CSSMediaRule.hs b/jsaddle/GHCJS/DOM/CSSMediaRule.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/CSSMediaRule.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.CSSMediaRule ( - module Language.Javascript.JSaddle.DOM.CSSMediaRule - ) where -import Language.Javascript.JSaddle.DOM.CSSMediaRule diff --git a/jsaddle/GHCJS/DOM/CSSPageRule.hs b/jsaddle/GHCJS/DOM/CSSPageRule.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/CSSPageRule.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.CSSPageRule ( - module Language.Javascript.JSaddle.DOM.CSSPageRule - ) where -import Language.Javascript.JSaddle.DOM.CSSPageRule diff --git a/jsaddle/GHCJS/DOM/CSSPrimitiveValue.hs b/jsaddle/GHCJS/DOM/CSSPrimitiveValue.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/CSSPrimitiveValue.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.CSSPrimitiveValue ( - module Language.Javascript.JSaddle.DOM.CSSPrimitiveValue - ) where -import Language.Javascript.JSaddle.DOM.CSSPrimitiveValue diff --git a/jsaddle/GHCJS/DOM/CSSRule.hs b/jsaddle/GHCJS/DOM/CSSRule.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/CSSRule.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.CSSRule ( - module Language.Javascript.JSaddle.DOM.CSSRule - ) where -import Language.Javascript.JSaddle.DOM.CSSRule diff --git a/jsaddle/GHCJS/DOM/CSSRuleList.hs b/jsaddle/GHCJS/DOM/CSSRuleList.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/CSSRuleList.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.CSSRuleList ( - module Language.Javascript.JSaddle.DOM.CSSRuleList - ) where -import Language.Javascript.JSaddle.DOM.CSSRuleList diff --git a/jsaddle/GHCJS/DOM/CSSStyleDeclaration.hs b/jsaddle/GHCJS/DOM/CSSStyleDeclaration.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/CSSStyleDeclaration.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.CSSStyleDeclaration ( - module Language.Javascript.JSaddle.DOM.CSSStyleDeclaration - ) where -import Language.Javascript.JSaddle.DOM.CSSStyleDeclaration diff --git a/jsaddle/GHCJS/DOM/CSSStyleRule.hs b/jsaddle/GHCJS/DOM/CSSStyleRule.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/CSSStyleRule.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.CSSStyleRule ( - module Language.Javascript.JSaddle.DOM.CSSStyleRule - ) where -import Language.Javascript.JSaddle.DOM.CSSStyleRule diff --git a/jsaddle/GHCJS/DOM/CSSStyleSheet.hs b/jsaddle/GHCJS/DOM/CSSStyleSheet.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/CSSStyleSheet.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.CSSStyleSheet ( - module Language.Javascript.JSaddle.DOM.CSSStyleSheet - ) where -import Language.Javascript.JSaddle.DOM.CSSStyleSheet diff --git a/jsaddle/GHCJS/DOM/CSSSupportsRule.hs b/jsaddle/GHCJS/DOM/CSSSupportsRule.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/CSSSupportsRule.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.CSSSupportsRule ( - module Language.Javascript.JSaddle.DOM.CSSSupportsRule - ) where -import Language.Javascript.JSaddle.DOM.CSSSupportsRule diff --git a/jsaddle/GHCJS/DOM/CSSValue.hs b/jsaddle/GHCJS/DOM/CSSValue.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/CSSValue.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.CSSValue ( - module Language.Javascript.JSaddle.DOM.CSSValue - ) where -import Language.Javascript.JSaddle.DOM.CSSValue diff --git a/jsaddle/GHCJS/DOM/CSSValueList.hs b/jsaddle/GHCJS/DOM/CSSValueList.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/CSSValueList.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.CSSValueList ( - module Language.Javascript.JSaddle.DOM.CSSValueList - ) where -import Language.Javascript.JSaddle.DOM.CSSValueList diff --git a/jsaddle/GHCJS/DOM/CanvasGradient.hs b/jsaddle/GHCJS/DOM/CanvasGradient.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/CanvasGradient.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.CanvasGradient ( - module Language.Javascript.JSaddle.DOM.CanvasGradient - ) where -import Language.Javascript.JSaddle.DOM.CanvasGradient diff --git a/jsaddle/GHCJS/DOM/CanvasRenderingContext.hs b/jsaddle/GHCJS/DOM/CanvasRenderingContext.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/CanvasRenderingContext.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.CanvasRenderingContext ( - module Language.Javascript.JSaddle.DOM.CanvasRenderingContext - ) where -import Language.Javascript.JSaddle.DOM.CanvasRenderingContext diff --git a/jsaddle/GHCJS/DOM/CanvasRenderingContext2D.hs b/jsaddle/GHCJS/DOM/CanvasRenderingContext2D.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/CanvasRenderingContext2D.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.CanvasRenderingContext2D ( - module Language.Javascript.JSaddle.DOM.CanvasRenderingContext2D - ) where -import Language.Javascript.JSaddle.DOM.CanvasRenderingContext2D diff --git a/jsaddle/GHCJS/DOM/CapabilityRange.hs b/jsaddle/GHCJS/DOM/CapabilityRange.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/CapabilityRange.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.CapabilityRange ( - module Language.Javascript.JSaddle.DOM.CapabilityRange - ) where -import Language.Javascript.JSaddle.DOM.CapabilityRange diff --git a/jsaddle/GHCJS/DOM/CharacterData.hs b/jsaddle/GHCJS/DOM/CharacterData.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/CharacterData.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.CharacterData ( - module Language.Javascript.JSaddle.DOM.CharacterData - ) where -import Language.Javascript.JSaddle.DOM.CharacterData diff --git a/jsaddle/GHCJS/DOM/ChildNode.hs b/jsaddle/GHCJS/DOM/ChildNode.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/ChildNode.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.ChildNode ( - module Language.Javascript.JSaddle.DOM.ChildNode - ) where -import Language.Javascript.JSaddle.DOM.ChildNode diff --git a/jsaddle/GHCJS/DOM/ClientRect.hs b/jsaddle/GHCJS/DOM/ClientRect.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/ClientRect.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.ClientRect ( - module Language.Javascript.JSaddle.DOM.ClientRect - ) where -import Language.Javascript.JSaddle.DOM.ClientRect diff --git a/jsaddle/GHCJS/DOM/ClientRectList.hs b/jsaddle/GHCJS/DOM/ClientRectList.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/ClientRectList.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.ClientRectList ( - module Language.Javascript.JSaddle.DOM.ClientRectList - ) where -import Language.Javascript.JSaddle.DOM.ClientRectList diff --git a/jsaddle/GHCJS/DOM/CloseEvent.hs b/jsaddle/GHCJS/DOM/CloseEvent.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/CloseEvent.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.CloseEvent ( - module Language.Javascript.JSaddle.DOM.CloseEvent - ) where -import Language.Javascript.JSaddle.DOM.CloseEvent diff --git a/jsaddle/GHCJS/DOM/CommandLineAPIHost.hs b/jsaddle/GHCJS/DOM/CommandLineAPIHost.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/CommandLineAPIHost.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.CommandLineAPIHost ( - module Language.Javascript.JSaddle.DOM.CommandLineAPIHost - ) where -import Language.Javascript.JSaddle.DOM.CommandLineAPIHost diff --git a/jsaddle/GHCJS/DOM/Comment.hs b/jsaddle/GHCJS/DOM/Comment.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/Comment.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.Comment ( - module Language.Javascript.JSaddle.DOM.Comment - ) where -import Language.Javascript.JSaddle.DOM.Comment diff --git a/jsaddle/GHCJS/DOM/CompositionEvent.hs b/jsaddle/GHCJS/DOM/CompositionEvent.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/CompositionEvent.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.CompositionEvent ( - module Language.Javascript.JSaddle.DOM.CompositionEvent - ) where -import Language.Javascript.JSaddle.DOM.CompositionEvent diff --git a/jsaddle/GHCJS/DOM/ConvolverNode.hs b/jsaddle/GHCJS/DOM/ConvolverNode.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/ConvolverNode.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.ConvolverNode ( - module Language.Javascript.JSaddle.DOM.ConvolverNode - ) where -import Language.Javascript.JSaddle.DOM.ConvolverNode diff --git a/jsaddle/GHCJS/DOM/Coordinates.hs b/jsaddle/GHCJS/DOM/Coordinates.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/Coordinates.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.Coordinates ( - module Language.Javascript.JSaddle.DOM.Coordinates - ) where -import Language.Javascript.JSaddle.DOM.Coordinates diff --git a/jsaddle/GHCJS/DOM/Counter.hs b/jsaddle/GHCJS/DOM/Counter.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/Counter.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.Counter ( - module Language.Javascript.JSaddle.DOM.Counter - ) where -import Language.Javascript.JSaddle.DOM.Counter diff --git a/jsaddle/GHCJS/DOM/Crypto.hs b/jsaddle/GHCJS/DOM/Crypto.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/Crypto.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.Crypto ( - module Language.Javascript.JSaddle.DOM.Crypto - ) where -import Language.Javascript.JSaddle.DOM.Crypto diff --git a/jsaddle/GHCJS/DOM/CryptoKey.hs b/jsaddle/GHCJS/DOM/CryptoKey.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/CryptoKey.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.CryptoKey ( - module Language.Javascript.JSaddle.DOM.CryptoKey - ) where -import Language.Javascript.JSaddle.DOM.CryptoKey diff --git a/jsaddle/GHCJS/DOM/CryptoKeyPair.hs b/jsaddle/GHCJS/DOM/CryptoKeyPair.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/CryptoKeyPair.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.CryptoKeyPair ( - module Language.Javascript.JSaddle.DOM.CryptoKeyPair - ) where -import Language.Javascript.JSaddle.DOM.CryptoKeyPair diff --git a/jsaddle/GHCJS/DOM/CustomEvent.hs b/jsaddle/GHCJS/DOM/CustomEvent.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/CustomEvent.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.CustomEvent ( - module Language.Javascript.JSaddle.DOM.CustomEvent - ) where -import Language.Javascript.JSaddle.DOM.CustomEvent diff --git a/jsaddle/GHCJS/DOM/DOMError.hs b/jsaddle/GHCJS/DOM/DOMError.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/DOMError.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.DOMError ( - module Language.Javascript.JSaddle.DOM.DOMError - ) where -import Language.Javascript.JSaddle.DOM.DOMError diff --git a/jsaddle/GHCJS/DOM/DOMImplementation.hs b/jsaddle/GHCJS/DOM/DOMImplementation.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/DOMImplementation.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.DOMImplementation ( - module Language.Javascript.JSaddle.DOM.DOMImplementation - ) where -import Language.Javascript.JSaddle.DOM.DOMImplementation diff --git a/jsaddle/GHCJS/DOM/DOMNamedFlowCollection.hs b/jsaddle/GHCJS/DOM/DOMNamedFlowCollection.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/DOMNamedFlowCollection.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.DOMNamedFlowCollection ( - module Language.Javascript.JSaddle.DOM.DOMNamedFlowCollection - ) where -import Language.Javascript.JSaddle.DOM.DOMNamedFlowCollection diff --git a/jsaddle/GHCJS/DOM/DOMParser.hs b/jsaddle/GHCJS/DOM/DOMParser.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/DOMParser.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.DOMParser ( - module Language.Javascript.JSaddle.DOM.DOMParser - ) where -import Language.Javascript.JSaddle.DOM.DOMParser diff --git a/jsaddle/GHCJS/DOM/DOMSettableTokenList.hs b/jsaddle/GHCJS/DOM/DOMSettableTokenList.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/DOMSettableTokenList.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.DOMSettableTokenList ( - module Language.Javascript.JSaddle.DOM.DOMSettableTokenList - ) where -import Language.Javascript.JSaddle.DOM.DOMSettableTokenList diff --git a/jsaddle/GHCJS/DOM/DOMStringList.hs b/jsaddle/GHCJS/DOM/DOMStringList.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/DOMStringList.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.DOMStringList ( - module Language.Javascript.JSaddle.DOM.DOMStringList - ) where -import Language.Javascript.JSaddle.DOM.DOMStringList diff --git a/jsaddle/GHCJS/DOM/DOMTokenList.hs b/jsaddle/GHCJS/DOM/DOMTokenList.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/DOMTokenList.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.DOMTokenList ( - module Language.Javascript.JSaddle.DOM.DOMTokenList - ) where -import Language.Javascript.JSaddle.DOM.DOMTokenList diff --git a/jsaddle/GHCJS/DOM/DataCue.hs b/jsaddle/GHCJS/DOM/DataCue.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/DataCue.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.DataCue ( - module Language.Javascript.JSaddle.DOM.DataCue - ) where -import Language.Javascript.JSaddle.DOM.DataCue diff --git a/jsaddle/GHCJS/DOM/DataTransfer.hs b/jsaddle/GHCJS/DOM/DataTransfer.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/DataTransfer.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.DataTransfer ( - module Language.Javascript.JSaddle.DOM.DataTransfer - ) where -import Language.Javascript.JSaddle.DOM.DataTransfer diff --git a/jsaddle/GHCJS/DOM/DataTransferItem.hs b/jsaddle/GHCJS/DOM/DataTransferItem.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/DataTransferItem.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.DataTransferItem ( - module Language.Javascript.JSaddle.DOM.DataTransferItem - ) where -import Language.Javascript.JSaddle.DOM.DataTransferItem diff --git a/jsaddle/GHCJS/DOM/DataTransferItemList.hs b/jsaddle/GHCJS/DOM/DataTransferItemList.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/DataTransferItemList.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.DataTransferItemList ( - module Language.Javascript.JSaddle.DOM.DataTransferItemList - ) where -import Language.Javascript.JSaddle.DOM.DataTransferItemList diff --git a/jsaddle/GHCJS/DOM/Database.hs b/jsaddle/GHCJS/DOM/Database.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/Database.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.Database ( - module Language.Javascript.JSaddle.DOM.Database - ) where -import Language.Javascript.JSaddle.DOM.Database diff --git a/jsaddle/GHCJS/DOM/DatabaseCallback.hs b/jsaddle/GHCJS/DOM/DatabaseCallback.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/DatabaseCallback.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.DatabaseCallback ( - module Language.Javascript.JSaddle.DOM.DatabaseCallback - ) where -import Language.Javascript.JSaddle.DOM.DatabaseCallback diff --git a/jsaddle/GHCJS/DOM/DedicatedWorkerGlobalScope.hs b/jsaddle/GHCJS/DOM/DedicatedWorkerGlobalScope.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/DedicatedWorkerGlobalScope.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.DedicatedWorkerGlobalScope ( - module Language.Javascript.JSaddle.DOM.DedicatedWorkerGlobalScope - ) where -import Language.Javascript.JSaddle.DOM.DedicatedWorkerGlobalScope diff --git a/jsaddle/GHCJS/DOM/DelayNode.hs b/jsaddle/GHCJS/DOM/DelayNode.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/DelayNode.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.DelayNode ( - module Language.Javascript.JSaddle.DOM.DelayNode - ) where -import Language.Javascript.JSaddle.DOM.DelayNode diff --git a/jsaddle/GHCJS/DOM/DeviceMotionEvent.hs b/jsaddle/GHCJS/DOM/DeviceMotionEvent.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/DeviceMotionEvent.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.DeviceMotionEvent ( - module Language.Javascript.JSaddle.DOM.DeviceMotionEvent - ) where -import Language.Javascript.JSaddle.DOM.DeviceMotionEvent diff --git a/jsaddle/GHCJS/DOM/DeviceOrientationEvent.hs b/jsaddle/GHCJS/DOM/DeviceOrientationEvent.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/DeviceOrientationEvent.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.DeviceOrientationEvent ( - module Language.Javascript.JSaddle.DOM.DeviceOrientationEvent - ) where -import Language.Javascript.JSaddle.DOM.DeviceOrientationEvent diff --git a/jsaddle/GHCJS/DOM/DeviceProximityEvent.hs b/jsaddle/GHCJS/DOM/DeviceProximityEvent.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/DeviceProximityEvent.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.DeviceProximityEvent ( - module Language.Javascript.JSaddle.DOM.DeviceProximityEvent - ) where -import Language.Javascript.JSaddle.DOM.DeviceProximityEvent diff --git a/jsaddle/GHCJS/DOM/Document.hs b/jsaddle/GHCJS/DOM/Document.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/Document.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.Document ( - module Language.Javascript.JSaddle.DOM.Document - ) where -import Language.Javascript.JSaddle.DOM.Document diff --git a/jsaddle/GHCJS/DOM/DocumentFragment.hs b/jsaddle/GHCJS/DOM/DocumentFragment.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/DocumentFragment.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.DocumentFragment ( - module Language.Javascript.JSaddle.DOM.DocumentFragment - ) where -import Language.Javascript.JSaddle.DOM.DocumentFragment diff --git a/jsaddle/GHCJS/DOM/DocumentType.hs b/jsaddle/GHCJS/DOM/DocumentType.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/DocumentType.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.DocumentType ( - module Language.Javascript.JSaddle.DOM.DocumentType - ) where -import Language.Javascript.JSaddle.DOM.DocumentType diff --git a/jsaddle/GHCJS/DOM/DynamicsCompressorNode.hs b/jsaddle/GHCJS/DOM/DynamicsCompressorNode.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/DynamicsCompressorNode.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.DynamicsCompressorNode ( - module Language.Javascript.JSaddle.DOM.DynamicsCompressorNode - ) where -import Language.Javascript.JSaddle.DOM.DynamicsCompressorNode diff --git a/jsaddle/GHCJS/DOM/EXTBlendMinMax.hs b/jsaddle/GHCJS/DOM/EXTBlendMinMax.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/EXTBlendMinMax.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.EXTBlendMinMax ( - module Language.Javascript.JSaddle.DOM.EXTBlendMinMax - ) where -import Language.Javascript.JSaddle.DOM.EXTBlendMinMax diff --git a/jsaddle/GHCJS/DOM/EXTTextureFilterAnisotropic.hs b/jsaddle/GHCJS/DOM/EXTTextureFilterAnisotropic.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/EXTTextureFilterAnisotropic.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.EXTTextureFilterAnisotropic ( - module Language.Javascript.JSaddle.DOM.EXTTextureFilterAnisotropic - ) where -import Language.Javascript.JSaddle.DOM.EXTTextureFilterAnisotropic diff --git a/jsaddle/GHCJS/DOM/EXTsRGB.hs b/jsaddle/GHCJS/DOM/EXTsRGB.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/EXTsRGB.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.EXTsRGB ( - module Language.Javascript.JSaddle.DOM.EXTsRGB - ) where -import Language.Javascript.JSaddle.DOM.EXTsRGB diff --git a/jsaddle/GHCJS/DOM/Element.hs b/jsaddle/GHCJS/DOM/Element.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/Element.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.Element ( - module Language.Javascript.JSaddle.DOM.Element - ) where -import Language.Javascript.JSaddle.DOM.Element diff --git a/jsaddle/GHCJS/DOM/Entity.hs b/jsaddle/GHCJS/DOM/Entity.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/Entity.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.Entity ( - module Language.Javascript.JSaddle.DOM.Entity - ) where -import Language.Javascript.JSaddle.DOM.Entity diff --git a/jsaddle/GHCJS/DOM/Enums.hs b/jsaddle/GHCJS/DOM/Enums.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/Enums.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.Enums ( - module Language.Javascript.JSaddle.DOM.Enums - ) where -import Language.Javascript.JSaddle.DOM.Enums diff --git a/jsaddle/GHCJS/DOM/ErrorEvent.hs b/jsaddle/GHCJS/DOM/ErrorEvent.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/ErrorEvent.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.ErrorEvent ( - module Language.Javascript.JSaddle.DOM.ErrorEvent - ) where -import Language.Javascript.JSaddle.DOM.ErrorEvent diff --git a/jsaddle/GHCJS/DOM/Event.hs b/jsaddle/GHCJS/DOM/Event.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/Event.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.Event ( - module Language.Javascript.JSaddle.DOM.Event - ) where -import Language.Javascript.JSaddle.DOM.Event diff --git a/jsaddle/GHCJS/DOM/EventListener.hs b/jsaddle/GHCJS/DOM/EventListener.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/EventListener.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.EventListener ( - module Language.Javascript.JSaddle.DOM.EventListener - ) where -import Language.Javascript.JSaddle.DOM.EventListener diff --git a/jsaddle/GHCJS/DOM/EventM.hs b/jsaddle/GHCJS/DOM/EventM.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/EventM.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.EventM ( - module Language.Javascript.JSaddle.DOM.EventM - ) where -import Language.Javascript.JSaddle.DOM.EventM diff --git a/jsaddle/GHCJS/DOM/EventSource.hs b/jsaddle/GHCJS/DOM/EventSource.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/EventSource.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.EventSource ( - module Language.Javascript.JSaddle.DOM.EventSource - ) where -import Language.Javascript.JSaddle.DOM.EventSource diff --git a/jsaddle/GHCJS/DOM/EventTarget.hs b/jsaddle/GHCJS/DOM/EventTarget.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/EventTarget.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.EventTarget ( - module Language.Javascript.JSaddle.DOM.EventTarget - ) where -import Language.Javascript.JSaddle.DOM.EventTarget diff --git a/jsaddle/GHCJS/DOM/EventTargetClosures.hs b/jsaddle/GHCJS/DOM/EventTargetClosures.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/EventTargetClosures.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.EventTargetClosures ( - module Language.Javascript.JSaddle.DOM.EventTargetClosures - ) where -import Language.Javascript.JSaddle.DOM.EventTargetClosures diff --git a/jsaddle/GHCJS/DOM/File.hs b/jsaddle/GHCJS/DOM/File.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/File.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.File ( - module Language.Javascript.JSaddle.DOM.File - ) where -import Language.Javascript.JSaddle.DOM.File diff --git a/jsaddle/GHCJS/DOM/FileError.hs b/jsaddle/GHCJS/DOM/FileError.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/FileError.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.FileError ( - module Language.Javascript.JSaddle.DOM.FileError - ) where -import Language.Javascript.JSaddle.DOM.FileError diff --git a/jsaddle/GHCJS/DOM/FileList.hs b/jsaddle/GHCJS/DOM/FileList.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/FileList.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.FileList ( - module Language.Javascript.JSaddle.DOM.FileList - ) where -import Language.Javascript.JSaddle.DOM.FileList diff --git a/jsaddle/GHCJS/DOM/FileReader.hs b/jsaddle/GHCJS/DOM/FileReader.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/FileReader.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.FileReader ( - module Language.Javascript.JSaddle.DOM.FileReader - ) where -import Language.Javascript.JSaddle.DOM.FileReader diff --git a/jsaddle/GHCJS/DOM/FileReaderSync.hs b/jsaddle/GHCJS/DOM/FileReaderSync.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/FileReaderSync.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.FileReaderSync ( - module Language.Javascript.JSaddle.DOM.FileReaderSync - ) where -import Language.Javascript.JSaddle.DOM.FileReaderSync diff --git a/jsaddle/GHCJS/DOM/FocusEvent.hs b/jsaddle/GHCJS/DOM/FocusEvent.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/FocusEvent.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.FocusEvent ( - module Language.Javascript.JSaddle.DOM.FocusEvent - ) where -import Language.Javascript.JSaddle.DOM.FocusEvent diff --git a/jsaddle/GHCJS/DOM/FontLoader.hs b/jsaddle/GHCJS/DOM/FontLoader.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/FontLoader.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.FontLoader ( - module Language.Javascript.JSaddle.DOM.FontLoader - ) where -import Language.Javascript.JSaddle.DOM.FontLoader diff --git a/jsaddle/GHCJS/DOM/FormData.hs b/jsaddle/GHCJS/DOM/FormData.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/FormData.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.FormData ( - module Language.Javascript.JSaddle.DOM.FormData - ) where -import Language.Javascript.JSaddle.DOM.FormData diff --git a/jsaddle/GHCJS/DOM/GainNode.hs b/jsaddle/GHCJS/DOM/GainNode.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/GainNode.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.GainNode ( - module Language.Javascript.JSaddle.DOM.GainNode - ) where -import Language.Javascript.JSaddle.DOM.GainNode diff --git a/jsaddle/GHCJS/DOM/Gamepad.hs b/jsaddle/GHCJS/DOM/Gamepad.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/Gamepad.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.Gamepad ( - module Language.Javascript.JSaddle.DOM.Gamepad - ) where -import Language.Javascript.JSaddle.DOM.Gamepad diff --git a/jsaddle/GHCJS/DOM/GamepadButton.hs b/jsaddle/GHCJS/DOM/GamepadButton.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/GamepadButton.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.GamepadButton ( - module Language.Javascript.JSaddle.DOM.GamepadButton - ) where -import Language.Javascript.JSaddle.DOM.GamepadButton diff --git a/jsaddle/GHCJS/DOM/GamepadEvent.hs b/jsaddle/GHCJS/DOM/GamepadEvent.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/GamepadEvent.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.GamepadEvent ( - module Language.Javascript.JSaddle.DOM.GamepadEvent - ) where -import Language.Javascript.JSaddle.DOM.GamepadEvent diff --git a/jsaddle/GHCJS/DOM/Geolocation.hs b/jsaddle/GHCJS/DOM/Geolocation.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/Geolocation.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.Geolocation ( - module Language.Javascript.JSaddle.DOM.Geolocation - ) where -import Language.Javascript.JSaddle.DOM.Geolocation diff --git a/jsaddle/GHCJS/DOM/Geoposition.hs b/jsaddle/GHCJS/DOM/Geoposition.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/Geoposition.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.Geoposition ( - module Language.Javascript.JSaddle.DOM.Geoposition - ) where -import Language.Javascript.JSaddle.DOM.Geoposition diff --git a/jsaddle/GHCJS/DOM/HTMLAllCollection.hs b/jsaddle/GHCJS/DOM/HTMLAllCollection.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/HTMLAllCollection.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.HTMLAllCollection ( - module Language.Javascript.JSaddle.DOM.HTMLAllCollection - ) where -import Language.Javascript.JSaddle.DOM.HTMLAllCollection diff --git a/jsaddle/GHCJS/DOM/HTMLAnchorElement.hs b/jsaddle/GHCJS/DOM/HTMLAnchorElement.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/HTMLAnchorElement.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.HTMLAnchorElement ( - module Language.Javascript.JSaddle.DOM.HTMLAnchorElement - ) where -import Language.Javascript.JSaddle.DOM.HTMLAnchorElement diff --git a/jsaddle/GHCJS/DOM/HTMLAppletElement.hs b/jsaddle/GHCJS/DOM/HTMLAppletElement.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/HTMLAppletElement.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.HTMLAppletElement ( - module Language.Javascript.JSaddle.DOM.HTMLAppletElement - ) where -import Language.Javascript.JSaddle.DOM.HTMLAppletElement diff --git a/jsaddle/GHCJS/DOM/HTMLAreaElement.hs b/jsaddle/GHCJS/DOM/HTMLAreaElement.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/HTMLAreaElement.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.HTMLAreaElement ( - module Language.Javascript.JSaddle.DOM.HTMLAreaElement - ) where -import Language.Javascript.JSaddle.DOM.HTMLAreaElement diff --git a/jsaddle/GHCJS/DOM/HTMLBRElement.hs b/jsaddle/GHCJS/DOM/HTMLBRElement.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/HTMLBRElement.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.HTMLBRElement ( - module Language.Javascript.JSaddle.DOM.HTMLBRElement - ) where -import Language.Javascript.JSaddle.DOM.HTMLBRElement diff --git a/jsaddle/GHCJS/DOM/HTMLBaseElement.hs b/jsaddle/GHCJS/DOM/HTMLBaseElement.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/HTMLBaseElement.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.HTMLBaseElement ( - module Language.Javascript.JSaddle.DOM.HTMLBaseElement - ) where -import Language.Javascript.JSaddle.DOM.HTMLBaseElement diff --git a/jsaddle/GHCJS/DOM/HTMLBaseFontElement.hs b/jsaddle/GHCJS/DOM/HTMLBaseFontElement.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/HTMLBaseFontElement.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.HTMLBaseFontElement ( - module Language.Javascript.JSaddle.DOM.HTMLBaseFontElement - ) where -import Language.Javascript.JSaddle.DOM.HTMLBaseFontElement diff --git a/jsaddle/GHCJS/DOM/HTMLBodyElement.hs b/jsaddle/GHCJS/DOM/HTMLBodyElement.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/HTMLBodyElement.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.HTMLBodyElement ( - module Language.Javascript.JSaddle.DOM.HTMLBodyElement - ) where -import Language.Javascript.JSaddle.DOM.HTMLBodyElement diff --git a/jsaddle/GHCJS/DOM/HTMLButtonElement.hs b/jsaddle/GHCJS/DOM/HTMLButtonElement.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/HTMLButtonElement.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.HTMLButtonElement ( - module Language.Javascript.JSaddle.DOM.HTMLButtonElement - ) where -import Language.Javascript.JSaddle.DOM.HTMLButtonElement diff --git a/jsaddle/GHCJS/DOM/HTMLCanvasElement.hs b/jsaddle/GHCJS/DOM/HTMLCanvasElement.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/HTMLCanvasElement.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.HTMLCanvasElement ( - module Language.Javascript.JSaddle.DOM.HTMLCanvasElement - ) where -import Language.Javascript.JSaddle.DOM.HTMLCanvasElement diff --git a/jsaddle/GHCJS/DOM/HTMLCollection.hs b/jsaddle/GHCJS/DOM/HTMLCollection.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/HTMLCollection.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.HTMLCollection ( - module Language.Javascript.JSaddle.DOM.HTMLCollection - ) where -import Language.Javascript.JSaddle.DOM.HTMLCollection diff --git a/jsaddle/GHCJS/DOM/HTMLDListElement.hs b/jsaddle/GHCJS/DOM/HTMLDListElement.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/HTMLDListElement.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.HTMLDListElement ( - module Language.Javascript.JSaddle.DOM.HTMLDListElement - ) where -import Language.Javascript.JSaddle.DOM.HTMLDListElement diff --git a/jsaddle/GHCJS/DOM/HTMLDataListElement.hs b/jsaddle/GHCJS/DOM/HTMLDataListElement.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/HTMLDataListElement.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.HTMLDataListElement ( - module Language.Javascript.JSaddle.DOM.HTMLDataListElement - ) where -import Language.Javascript.JSaddle.DOM.HTMLDataListElement diff --git a/jsaddle/GHCJS/DOM/HTMLDetailsElement.hs b/jsaddle/GHCJS/DOM/HTMLDetailsElement.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/HTMLDetailsElement.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.HTMLDetailsElement ( - module Language.Javascript.JSaddle.DOM.HTMLDetailsElement - ) where -import Language.Javascript.JSaddle.DOM.HTMLDetailsElement diff --git a/jsaddle/GHCJS/DOM/HTMLDirectoryElement.hs b/jsaddle/GHCJS/DOM/HTMLDirectoryElement.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/HTMLDirectoryElement.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.HTMLDirectoryElement ( - module Language.Javascript.JSaddle.DOM.HTMLDirectoryElement - ) where -import Language.Javascript.JSaddle.DOM.HTMLDirectoryElement diff --git a/jsaddle/GHCJS/DOM/HTMLDivElement.hs b/jsaddle/GHCJS/DOM/HTMLDivElement.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/HTMLDivElement.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.HTMLDivElement ( - module Language.Javascript.JSaddle.DOM.HTMLDivElement - ) where -import Language.Javascript.JSaddle.DOM.HTMLDivElement diff --git a/jsaddle/GHCJS/DOM/HTMLDocument.hs b/jsaddle/GHCJS/DOM/HTMLDocument.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/HTMLDocument.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.HTMLDocument ( - module Language.Javascript.JSaddle.DOM.HTMLDocument - ) where -import Language.Javascript.JSaddle.DOM.HTMLDocument diff --git a/jsaddle/GHCJS/DOM/HTMLElement.hs b/jsaddle/GHCJS/DOM/HTMLElement.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/HTMLElement.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.HTMLElement ( - module Language.Javascript.JSaddle.DOM.HTMLElement - ) where -import Language.Javascript.JSaddle.DOM.HTMLElement diff --git a/jsaddle/GHCJS/DOM/HTMLEmbedElement.hs b/jsaddle/GHCJS/DOM/HTMLEmbedElement.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/HTMLEmbedElement.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.HTMLEmbedElement ( - module Language.Javascript.JSaddle.DOM.HTMLEmbedElement - ) where -import Language.Javascript.JSaddle.DOM.HTMLEmbedElement diff --git a/jsaddle/GHCJS/DOM/HTMLFieldSetElement.hs b/jsaddle/GHCJS/DOM/HTMLFieldSetElement.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/HTMLFieldSetElement.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.HTMLFieldSetElement ( - module Language.Javascript.JSaddle.DOM.HTMLFieldSetElement - ) where -import Language.Javascript.JSaddle.DOM.HTMLFieldSetElement diff --git a/jsaddle/GHCJS/DOM/HTMLFontElement.hs b/jsaddle/GHCJS/DOM/HTMLFontElement.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/HTMLFontElement.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.HTMLFontElement ( - module Language.Javascript.JSaddle.DOM.HTMLFontElement - ) where -import Language.Javascript.JSaddle.DOM.HTMLFontElement diff --git a/jsaddle/GHCJS/DOM/HTMLFormControlsCollection.hs b/jsaddle/GHCJS/DOM/HTMLFormControlsCollection.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/HTMLFormControlsCollection.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.HTMLFormControlsCollection ( - module Language.Javascript.JSaddle.DOM.HTMLFormControlsCollection - ) where -import Language.Javascript.JSaddle.DOM.HTMLFormControlsCollection diff --git a/jsaddle/GHCJS/DOM/HTMLFormElement.hs b/jsaddle/GHCJS/DOM/HTMLFormElement.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/HTMLFormElement.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.HTMLFormElement ( - module Language.Javascript.JSaddle.DOM.HTMLFormElement - ) where -import Language.Javascript.JSaddle.DOM.HTMLFormElement diff --git a/jsaddle/GHCJS/DOM/HTMLFrameElement.hs b/jsaddle/GHCJS/DOM/HTMLFrameElement.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/HTMLFrameElement.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.HTMLFrameElement ( - module Language.Javascript.JSaddle.DOM.HTMLFrameElement - ) where -import Language.Javascript.JSaddle.DOM.HTMLFrameElement diff --git a/jsaddle/GHCJS/DOM/HTMLFrameSetElement.hs b/jsaddle/GHCJS/DOM/HTMLFrameSetElement.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/HTMLFrameSetElement.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.HTMLFrameSetElement ( - module Language.Javascript.JSaddle.DOM.HTMLFrameSetElement - ) where -import Language.Javascript.JSaddle.DOM.HTMLFrameSetElement diff --git a/jsaddle/GHCJS/DOM/HTMLHRElement.hs b/jsaddle/GHCJS/DOM/HTMLHRElement.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/HTMLHRElement.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.HTMLHRElement ( - module Language.Javascript.JSaddle.DOM.HTMLHRElement - ) where -import Language.Javascript.JSaddle.DOM.HTMLHRElement diff --git a/jsaddle/GHCJS/DOM/HTMLHeadElement.hs b/jsaddle/GHCJS/DOM/HTMLHeadElement.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/HTMLHeadElement.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.HTMLHeadElement ( - module Language.Javascript.JSaddle.DOM.HTMLHeadElement - ) where -import Language.Javascript.JSaddle.DOM.HTMLHeadElement diff --git a/jsaddle/GHCJS/DOM/HTMLHeadingElement.hs b/jsaddle/GHCJS/DOM/HTMLHeadingElement.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/HTMLHeadingElement.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.HTMLHeadingElement ( - module Language.Javascript.JSaddle.DOM.HTMLHeadingElement - ) where -import Language.Javascript.JSaddle.DOM.HTMLHeadingElement diff --git a/jsaddle/GHCJS/DOM/HTMLHtmlElement.hs b/jsaddle/GHCJS/DOM/HTMLHtmlElement.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/HTMLHtmlElement.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.HTMLHtmlElement ( - module Language.Javascript.JSaddle.DOM.HTMLHtmlElement - ) where -import Language.Javascript.JSaddle.DOM.HTMLHtmlElement diff --git a/jsaddle/GHCJS/DOM/HTMLIFrameElement.hs b/jsaddle/GHCJS/DOM/HTMLIFrameElement.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/HTMLIFrameElement.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.HTMLIFrameElement ( - module Language.Javascript.JSaddle.DOM.HTMLIFrameElement - ) where -import Language.Javascript.JSaddle.DOM.HTMLIFrameElement diff --git a/jsaddle/GHCJS/DOM/HTMLImageElement.hs b/jsaddle/GHCJS/DOM/HTMLImageElement.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/HTMLImageElement.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.HTMLImageElement ( - module Language.Javascript.JSaddle.DOM.HTMLImageElement - ) where -import Language.Javascript.JSaddle.DOM.HTMLImageElement diff --git a/jsaddle/GHCJS/DOM/HTMLInputElement.hs b/jsaddle/GHCJS/DOM/HTMLInputElement.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/HTMLInputElement.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.HTMLInputElement ( - module Language.Javascript.JSaddle.DOM.HTMLInputElement - ) where -import Language.Javascript.JSaddle.DOM.HTMLInputElement diff --git a/jsaddle/GHCJS/DOM/HTMLKeygenElement.hs b/jsaddle/GHCJS/DOM/HTMLKeygenElement.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/HTMLKeygenElement.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.HTMLKeygenElement ( - module Language.Javascript.JSaddle.DOM.HTMLKeygenElement - ) where -import Language.Javascript.JSaddle.DOM.HTMLKeygenElement diff --git a/jsaddle/GHCJS/DOM/HTMLLIElement.hs b/jsaddle/GHCJS/DOM/HTMLLIElement.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/HTMLLIElement.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.HTMLLIElement ( - module Language.Javascript.JSaddle.DOM.HTMLLIElement - ) where -import Language.Javascript.JSaddle.DOM.HTMLLIElement diff --git a/jsaddle/GHCJS/DOM/HTMLLabelElement.hs b/jsaddle/GHCJS/DOM/HTMLLabelElement.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/HTMLLabelElement.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.HTMLLabelElement ( - module Language.Javascript.JSaddle.DOM.HTMLLabelElement - ) where -import Language.Javascript.JSaddle.DOM.HTMLLabelElement diff --git a/jsaddle/GHCJS/DOM/HTMLLegendElement.hs b/jsaddle/GHCJS/DOM/HTMLLegendElement.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/HTMLLegendElement.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.HTMLLegendElement ( - module Language.Javascript.JSaddle.DOM.HTMLLegendElement - ) where -import Language.Javascript.JSaddle.DOM.HTMLLegendElement diff --git a/jsaddle/GHCJS/DOM/HTMLLinkElement.hs b/jsaddle/GHCJS/DOM/HTMLLinkElement.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/HTMLLinkElement.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.HTMLLinkElement ( - module Language.Javascript.JSaddle.DOM.HTMLLinkElement - ) where -import Language.Javascript.JSaddle.DOM.HTMLLinkElement diff --git a/jsaddle/GHCJS/DOM/HTMLMapElement.hs b/jsaddle/GHCJS/DOM/HTMLMapElement.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/HTMLMapElement.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.HTMLMapElement ( - module Language.Javascript.JSaddle.DOM.HTMLMapElement - ) where -import Language.Javascript.JSaddle.DOM.HTMLMapElement diff --git a/jsaddle/GHCJS/DOM/HTMLMarqueeElement.hs b/jsaddle/GHCJS/DOM/HTMLMarqueeElement.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/HTMLMarqueeElement.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.HTMLMarqueeElement ( - module Language.Javascript.JSaddle.DOM.HTMLMarqueeElement - ) where -import Language.Javascript.JSaddle.DOM.HTMLMarqueeElement diff --git a/jsaddle/GHCJS/DOM/HTMLMediaElement.hs b/jsaddle/GHCJS/DOM/HTMLMediaElement.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/HTMLMediaElement.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.HTMLMediaElement ( - module Language.Javascript.JSaddle.DOM.HTMLMediaElement - ) where -import Language.Javascript.JSaddle.DOM.HTMLMediaElement diff --git a/jsaddle/GHCJS/DOM/HTMLMenuElement.hs b/jsaddle/GHCJS/DOM/HTMLMenuElement.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/HTMLMenuElement.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.HTMLMenuElement ( - module Language.Javascript.JSaddle.DOM.HTMLMenuElement - ) where -import Language.Javascript.JSaddle.DOM.HTMLMenuElement diff --git a/jsaddle/GHCJS/DOM/HTMLMetaElement.hs b/jsaddle/GHCJS/DOM/HTMLMetaElement.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/HTMLMetaElement.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.HTMLMetaElement ( - module Language.Javascript.JSaddle.DOM.HTMLMetaElement - ) where -import Language.Javascript.JSaddle.DOM.HTMLMetaElement diff --git a/jsaddle/GHCJS/DOM/HTMLMeterElement.hs b/jsaddle/GHCJS/DOM/HTMLMeterElement.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/HTMLMeterElement.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.HTMLMeterElement ( - module Language.Javascript.JSaddle.DOM.HTMLMeterElement - ) where -import Language.Javascript.JSaddle.DOM.HTMLMeterElement diff --git a/jsaddle/GHCJS/DOM/HTMLModElement.hs b/jsaddle/GHCJS/DOM/HTMLModElement.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/HTMLModElement.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.HTMLModElement ( - module Language.Javascript.JSaddle.DOM.HTMLModElement - ) where -import Language.Javascript.JSaddle.DOM.HTMLModElement diff --git a/jsaddle/GHCJS/DOM/HTMLOListElement.hs b/jsaddle/GHCJS/DOM/HTMLOListElement.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/HTMLOListElement.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.HTMLOListElement ( - module Language.Javascript.JSaddle.DOM.HTMLOListElement - ) where -import Language.Javascript.JSaddle.DOM.HTMLOListElement diff --git a/jsaddle/GHCJS/DOM/HTMLObjectElement.hs b/jsaddle/GHCJS/DOM/HTMLObjectElement.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/HTMLObjectElement.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.HTMLObjectElement ( - module Language.Javascript.JSaddle.DOM.HTMLObjectElement - ) where -import Language.Javascript.JSaddle.DOM.HTMLObjectElement diff --git a/jsaddle/GHCJS/DOM/HTMLOptGroupElement.hs b/jsaddle/GHCJS/DOM/HTMLOptGroupElement.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/HTMLOptGroupElement.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.HTMLOptGroupElement ( - module Language.Javascript.JSaddle.DOM.HTMLOptGroupElement - ) where -import Language.Javascript.JSaddle.DOM.HTMLOptGroupElement diff --git a/jsaddle/GHCJS/DOM/HTMLOptionElement.hs b/jsaddle/GHCJS/DOM/HTMLOptionElement.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/HTMLOptionElement.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.HTMLOptionElement ( - module Language.Javascript.JSaddle.DOM.HTMLOptionElement - ) where -import Language.Javascript.JSaddle.DOM.HTMLOptionElement diff --git a/jsaddle/GHCJS/DOM/HTMLOptionsCollection.hs b/jsaddle/GHCJS/DOM/HTMLOptionsCollection.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/HTMLOptionsCollection.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.HTMLOptionsCollection ( - module Language.Javascript.JSaddle.DOM.HTMLOptionsCollection - ) where -import Language.Javascript.JSaddle.DOM.HTMLOptionsCollection diff --git a/jsaddle/GHCJS/DOM/HTMLOutputElement.hs b/jsaddle/GHCJS/DOM/HTMLOutputElement.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/HTMLOutputElement.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.HTMLOutputElement ( - module Language.Javascript.JSaddle.DOM.HTMLOutputElement - ) where -import Language.Javascript.JSaddle.DOM.HTMLOutputElement diff --git a/jsaddle/GHCJS/DOM/HTMLParagraphElement.hs b/jsaddle/GHCJS/DOM/HTMLParagraphElement.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/HTMLParagraphElement.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.HTMLParagraphElement ( - module Language.Javascript.JSaddle.DOM.HTMLParagraphElement - ) where -import Language.Javascript.JSaddle.DOM.HTMLParagraphElement diff --git a/jsaddle/GHCJS/DOM/HTMLParamElement.hs b/jsaddle/GHCJS/DOM/HTMLParamElement.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/HTMLParamElement.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.HTMLParamElement ( - module Language.Javascript.JSaddle.DOM.HTMLParamElement - ) where -import Language.Javascript.JSaddle.DOM.HTMLParamElement diff --git a/jsaddle/GHCJS/DOM/HTMLPreElement.hs b/jsaddle/GHCJS/DOM/HTMLPreElement.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/HTMLPreElement.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.HTMLPreElement ( - module Language.Javascript.JSaddle.DOM.HTMLPreElement - ) where -import Language.Javascript.JSaddle.DOM.HTMLPreElement diff --git a/jsaddle/GHCJS/DOM/HTMLProgressElement.hs b/jsaddle/GHCJS/DOM/HTMLProgressElement.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/HTMLProgressElement.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.HTMLProgressElement ( - module Language.Javascript.JSaddle.DOM.HTMLProgressElement - ) where -import Language.Javascript.JSaddle.DOM.HTMLProgressElement diff --git a/jsaddle/GHCJS/DOM/HTMLQuoteElement.hs b/jsaddle/GHCJS/DOM/HTMLQuoteElement.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/HTMLQuoteElement.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.HTMLQuoteElement ( - module Language.Javascript.JSaddle.DOM.HTMLQuoteElement - ) where -import Language.Javascript.JSaddle.DOM.HTMLQuoteElement diff --git a/jsaddle/GHCJS/DOM/HTMLScriptElement.hs b/jsaddle/GHCJS/DOM/HTMLScriptElement.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/HTMLScriptElement.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.HTMLScriptElement ( - module Language.Javascript.JSaddle.DOM.HTMLScriptElement - ) where -import Language.Javascript.JSaddle.DOM.HTMLScriptElement diff --git a/jsaddle/GHCJS/DOM/HTMLSelectElement.hs b/jsaddle/GHCJS/DOM/HTMLSelectElement.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/HTMLSelectElement.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.HTMLSelectElement ( - module Language.Javascript.JSaddle.DOM.HTMLSelectElement - ) where -import Language.Javascript.JSaddle.DOM.HTMLSelectElement diff --git a/jsaddle/GHCJS/DOM/HTMLSourceElement.hs b/jsaddle/GHCJS/DOM/HTMLSourceElement.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/HTMLSourceElement.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.HTMLSourceElement ( - module Language.Javascript.JSaddle.DOM.HTMLSourceElement - ) where -import Language.Javascript.JSaddle.DOM.HTMLSourceElement diff --git a/jsaddle/GHCJS/DOM/HTMLStyleElement.hs b/jsaddle/GHCJS/DOM/HTMLStyleElement.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/HTMLStyleElement.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.HTMLStyleElement ( - module Language.Javascript.JSaddle.DOM.HTMLStyleElement - ) where -import Language.Javascript.JSaddle.DOM.HTMLStyleElement diff --git a/jsaddle/GHCJS/DOM/HTMLTableCaptionElement.hs b/jsaddle/GHCJS/DOM/HTMLTableCaptionElement.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/HTMLTableCaptionElement.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.HTMLTableCaptionElement ( - module Language.Javascript.JSaddle.DOM.HTMLTableCaptionElement - ) where -import Language.Javascript.JSaddle.DOM.HTMLTableCaptionElement diff --git a/jsaddle/GHCJS/DOM/HTMLTableCellElement.hs b/jsaddle/GHCJS/DOM/HTMLTableCellElement.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/HTMLTableCellElement.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.HTMLTableCellElement ( - module Language.Javascript.JSaddle.DOM.HTMLTableCellElement - ) where -import Language.Javascript.JSaddle.DOM.HTMLTableCellElement diff --git a/jsaddle/GHCJS/DOM/HTMLTableColElement.hs b/jsaddle/GHCJS/DOM/HTMLTableColElement.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/HTMLTableColElement.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.HTMLTableColElement ( - module Language.Javascript.JSaddle.DOM.HTMLTableColElement - ) where -import Language.Javascript.JSaddle.DOM.HTMLTableColElement diff --git a/jsaddle/GHCJS/DOM/HTMLTableElement.hs b/jsaddle/GHCJS/DOM/HTMLTableElement.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/HTMLTableElement.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.HTMLTableElement ( - module Language.Javascript.JSaddle.DOM.HTMLTableElement - ) where -import Language.Javascript.JSaddle.DOM.HTMLTableElement diff --git a/jsaddle/GHCJS/DOM/HTMLTableRowElement.hs b/jsaddle/GHCJS/DOM/HTMLTableRowElement.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/HTMLTableRowElement.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.HTMLTableRowElement ( - module Language.Javascript.JSaddle.DOM.HTMLTableRowElement - ) where -import Language.Javascript.JSaddle.DOM.HTMLTableRowElement diff --git a/jsaddle/GHCJS/DOM/HTMLTableSectionElement.hs b/jsaddle/GHCJS/DOM/HTMLTableSectionElement.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/HTMLTableSectionElement.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.HTMLTableSectionElement ( - module Language.Javascript.JSaddle.DOM.HTMLTableSectionElement - ) where -import Language.Javascript.JSaddle.DOM.HTMLTableSectionElement diff --git a/jsaddle/GHCJS/DOM/HTMLTemplateElement.hs b/jsaddle/GHCJS/DOM/HTMLTemplateElement.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/HTMLTemplateElement.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.HTMLTemplateElement ( - module Language.Javascript.JSaddle.DOM.HTMLTemplateElement - ) where -import Language.Javascript.JSaddle.DOM.HTMLTemplateElement diff --git a/jsaddle/GHCJS/DOM/HTMLTextAreaElement.hs b/jsaddle/GHCJS/DOM/HTMLTextAreaElement.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/HTMLTextAreaElement.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.HTMLTextAreaElement ( - module Language.Javascript.JSaddle.DOM.HTMLTextAreaElement - ) where -import Language.Javascript.JSaddle.DOM.HTMLTextAreaElement diff --git a/jsaddle/GHCJS/DOM/HTMLTitleElement.hs b/jsaddle/GHCJS/DOM/HTMLTitleElement.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/HTMLTitleElement.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.HTMLTitleElement ( - module Language.Javascript.JSaddle.DOM.HTMLTitleElement - ) where -import Language.Javascript.JSaddle.DOM.HTMLTitleElement diff --git a/jsaddle/GHCJS/DOM/HTMLTrackElement.hs b/jsaddle/GHCJS/DOM/HTMLTrackElement.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/HTMLTrackElement.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.HTMLTrackElement ( - module Language.Javascript.JSaddle.DOM.HTMLTrackElement - ) where -import Language.Javascript.JSaddle.DOM.HTMLTrackElement diff --git a/jsaddle/GHCJS/DOM/HTMLUListElement.hs b/jsaddle/GHCJS/DOM/HTMLUListElement.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/HTMLUListElement.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.HTMLUListElement ( - module Language.Javascript.JSaddle.DOM.HTMLUListElement - ) where -import Language.Javascript.JSaddle.DOM.HTMLUListElement diff --git a/jsaddle/GHCJS/DOM/HTMLVideoElement.hs b/jsaddle/GHCJS/DOM/HTMLVideoElement.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/HTMLVideoElement.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.HTMLVideoElement ( - module Language.Javascript.JSaddle.DOM.HTMLVideoElement - ) where -import Language.Javascript.JSaddle.DOM.HTMLVideoElement diff --git a/jsaddle/GHCJS/DOM/HashChangeEvent.hs b/jsaddle/GHCJS/DOM/HashChangeEvent.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/HashChangeEvent.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.HashChangeEvent ( - module Language.Javascript.JSaddle.DOM.HashChangeEvent - ) where -import Language.Javascript.JSaddle.DOM.HashChangeEvent diff --git a/jsaddle/GHCJS/DOM/History.hs b/jsaddle/GHCJS/DOM/History.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/History.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.History ( - module Language.Javascript.JSaddle.DOM.History - ) where -import Language.Javascript.JSaddle.DOM.History diff --git a/jsaddle/GHCJS/DOM/IDBCursor.hs b/jsaddle/GHCJS/DOM/IDBCursor.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/IDBCursor.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.IDBCursor ( - module Language.Javascript.JSaddle.DOM.IDBCursor - ) where -import Language.Javascript.JSaddle.DOM.IDBCursor diff --git a/jsaddle/GHCJS/DOM/IDBCursorWithValue.hs b/jsaddle/GHCJS/DOM/IDBCursorWithValue.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/IDBCursorWithValue.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.IDBCursorWithValue ( - module Language.Javascript.JSaddle.DOM.IDBCursorWithValue - ) where -import Language.Javascript.JSaddle.DOM.IDBCursorWithValue diff --git a/jsaddle/GHCJS/DOM/IDBDatabase.hs b/jsaddle/GHCJS/DOM/IDBDatabase.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/IDBDatabase.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.IDBDatabase ( - module Language.Javascript.JSaddle.DOM.IDBDatabase - ) where -import Language.Javascript.JSaddle.DOM.IDBDatabase diff --git a/jsaddle/GHCJS/DOM/IDBFactory.hs b/jsaddle/GHCJS/DOM/IDBFactory.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/IDBFactory.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.IDBFactory ( - module Language.Javascript.JSaddle.DOM.IDBFactory - ) where -import Language.Javascript.JSaddle.DOM.IDBFactory diff --git a/jsaddle/GHCJS/DOM/IDBIndex.hs b/jsaddle/GHCJS/DOM/IDBIndex.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/IDBIndex.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.IDBIndex ( - module Language.Javascript.JSaddle.DOM.IDBIndex - ) where -import Language.Javascript.JSaddle.DOM.IDBIndex diff --git a/jsaddle/GHCJS/DOM/IDBKeyRange.hs b/jsaddle/GHCJS/DOM/IDBKeyRange.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/IDBKeyRange.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.IDBKeyRange ( - module Language.Javascript.JSaddle.DOM.IDBKeyRange - ) where -import Language.Javascript.JSaddle.DOM.IDBKeyRange diff --git a/jsaddle/GHCJS/DOM/IDBObjectStore.hs b/jsaddle/GHCJS/DOM/IDBObjectStore.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/IDBObjectStore.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.IDBObjectStore ( - module Language.Javascript.JSaddle.DOM.IDBObjectStore - ) where -import Language.Javascript.JSaddle.DOM.IDBObjectStore diff --git a/jsaddle/GHCJS/DOM/IDBOpenDBRequest.hs b/jsaddle/GHCJS/DOM/IDBOpenDBRequest.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/IDBOpenDBRequest.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.IDBOpenDBRequest ( - module Language.Javascript.JSaddle.DOM.IDBOpenDBRequest - ) where -import Language.Javascript.JSaddle.DOM.IDBOpenDBRequest diff --git a/jsaddle/GHCJS/DOM/IDBRequest.hs b/jsaddle/GHCJS/DOM/IDBRequest.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/IDBRequest.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.IDBRequest ( - module Language.Javascript.JSaddle.DOM.IDBRequest - ) where -import Language.Javascript.JSaddle.DOM.IDBRequest diff --git a/jsaddle/GHCJS/DOM/IDBTransaction.hs b/jsaddle/GHCJS/DOM/IDBTransaction.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/IDBTransaction.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.IDBTransaction ( - module Language.Javascript.JSaddle.DOM.IDBTransaction - ) where -import Language.Javascript.JSaddle.DOM.IDBTransaction diff --git a/jsaddle/GHCJS/DOM/IDBVersionChangeEvent.hs b/jsaddle/GHCJS/DOM/IDBVersionChangeEvent.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/IDBVersionChangeEvent.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.IDBVersionChangeEvent ( - module Language.Javascript.JSaddle.DOM.IDBVersionChangeEvent - ) where -import Language.Javascript.JSaddle.DOM.IDBVersionChangeEvent diff --git a/jsaddle/GHCJS/DOM/ImageData.hs b/jsaddle/GHCJS/DOM/ImageData.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/ImageData.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.ImageData ( - module Language.Javascript.JSaddle.DOM.ImageData - ) where -import Language.Javascript.JSaddle.DOM.ImageData diff --git a/jsaddle/GHCJS/DOM/InspectorFrontendHost.hs b/jsaddle/GHCJS/DOM/InspectorFrontendHost.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/InspectorFrontendHost.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.InspectorFrontendHost ( - module Language.Javascript.JSaddle.DOM.InspectorFrontendHost - ) where -import Language.Javascript.JSaddle.DOM.InspectorFrontendHost diff --git a/jsaddle/GHCJS/DOM/InternalSettings.hs b/jsaddle/GHCJS/DOM/InternalSettings.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/InternalSettings.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.InternalSettings ( - module Language.Javascript.JSaddle.DOM.InternalSettings - ) where -import Language.Javascript.JSaddle.DOM.InternalSettings diff --git a/jsaddle/GHCJS/DOM/Internals.hs b/jsaddle/GHCJS/DOM/Internals.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/Internals.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.Internals ( - module Language.Javascript.JSaddle.DOM.Internals - ) where -import Language.Javascript.JSaddle.DOM.Internals diff --git a/jsaddle/GHCJS/DOM/KeyboardEvent.hs b/jsaddle/GHCJS/DOM/KeyboardEvent.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/KeyboardEvent.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.KeyboardEvent ( - module Language.Javascript.JSaddle.DOM.KeyboardEvent - ) where -import Language.Javascript.JSaddle.DOM.KeyboardEvent diff --git a/jsaddle/GHCJS/DOM/Location.hs b/jsaddle/GHCJS/DOM/Location.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/Location.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.Location ( - module Language.Javascript.JSaddle.DOM.Location - ) where -import Language.Javascript.JSaddle.DOM.Location diff --git a/jsaddle/GHCJS/DOM/MallocStatistics.hs b/jsaddle/GHCJS/DOM/MallocStatistics.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/MallocStatistics.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.MallocStatistics ( - module Language.Javascript.JSaddle.DOM.MallocStatistics - ) where -import Language.Javascript.JSaddle.DOM.MallocStatistics diff --git a/jsaddle/GHCJS/DOM/MediaController.hs b/jsaddle/GHCJS/DOM/MediaController.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/MediaController.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.MediaController ( - module Language.Javascript.JSaddle.DOM.MediaController - ) where -import Language.Javascript.JSaddle.DOM.MediaController diff --git a/jsaddle/GHCJS/DOM/MediaControlsHost.hs b/jsaddle/GHCJS/DOM/MediaControlsHost.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/MediaControlsHost.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.MediaControlsHost ( - module Language.Javascript.JSaddle.DOM.MediaControlsHost - ) where -import Language.Javascript.JSaddle.DOM.MediaControlsHost diff --git a/jsaddle/GHCJS/DOM/MediaElementAudioSourceNode.hs b/jsaddle/GHCJS/DOM/MediaElementAudioSourceNode.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/MediaElementAudioSourceNode.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.MediaElementAudioSourceNode ( - module Language.Javascript.JSaddle.DOM.MediaElementAudioSourceNode - ) where -import Language.Javascript.JSaddle.DOM.MediaElementAudioSourceNode diff --git a/jsaddle/GHCJS/DOM/MediaError.hs b/jsaddle/GHCJS/DOM/MediaError.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/MediaError.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.MediaError ( - module Language.Javascript.JSaddle.DOM.MediaError - ) where -import Language.Javascript.JSaddle.DOM.MediaError diff --git a/jsaddle/GHCJS/DOM/MediaKeyError.hs b/jsaddle/GHCJS/DOM/MediaKeyError.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/MediaKeyError.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.MediaKeyError ( - module Language.Javascript.JSaddle.DOM.MediaKeyError - ) where -import Language.Javascript.JSaddle.DOM.MediaKeyError diff --git a/jsaddle/GHCJS/DOM/MediaKeyEvent.hs b/jsaddle/GHCJS/DOM/MediaKeyEvent.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/MediaKeyEvent.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.MediaKeyEvent ( - module Language.Javascript.JSaddle.DOM.MediaKeyEvent - ) where -import Language.Javascript.JSaddle.DOM.MediaKeyEvent diff --git a/jsaddle/GHCJS/DOM/MediaKeyMessageEvent.hs b/jsaddle/GHCJS/DOM/MediaKeyMessageEvent.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/MediaKeyMessageEvent.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.MediaKeyMessageEvent ( - module Language.Javascript.JSaddle.DOM.MediaKeyMessageEvent - ) where -import Language.Javascript.JSaddle.DOM.MediaKeyMessageEvent diff --git a/jsaddle/GHCJS/DOM/MediaKeyNeededEvent.hs b/jsaddle/GHCJS/DOM/MediaKeyNeededEvent.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/MediaKeyNeededEvent.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.MediaKeyNeededEvent ( - module Language.Javascript.JSaddle.DOM.MediaKeyNeededEvent - ) where -import Language.Javascript.JSaddle.DOM.MediaKeyNeededEvent diff --git a/jsaddle/GHCJS/DOM/MediaKeySession.hs b/jsaddle/GHCJS/DOM/MediaKeySession.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/MediaKeySession.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.MediaKeySession ( - module Language.Javascript.JSaddle.DOM.MediaKeySession - ) where -import Language.Javascript.JSaddle.DOM.MediaKeySession diff --git a/jsaddle/GHCJS/DOM/MediaKeys.hs b/jsaddle/GHCJS/DOM/MediaKeys.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/MediaKeys.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.MediaKeys ( - module Language.Javascript.JSaddle.DOM.MediaKeys - ) where -import Language.Javascript.JSaddle.DOM.MediaKeys diff --git a/jsaddle/GHCJS/DOM/MediaList.hs b/jsaddle/GHCJS/DOM/MediaList.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/MediaList.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.MediaList ( - module Language.Javascript.JSaddle.DOM.MediaList - ) where -import Language.Javascript.JSaddle.DOM.MediaList diff --git a/jsaddle/GHCJS/DOM/MediaQueryList.hs b/jsaddle/GHCJS/DOM/MediaQueryList.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/MediaQueryList.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.MediaQueryList ( - module Language.Javascript.JSaddle.DOM.MediaQueryList - ) where -import Language.Javascript.JSaddle.DOM.MediaQueryList diff --git a/jsaddle/GHCJS/DOM/MediaQueryListListener.hs b/jsaddle/GHCJS/DOM/MediaQueryListListener.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/MediaQueryListListener.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.MediaQueryListListener ( - module Language.Javascript.JSaddle.DOM.MediaQueryListListener - ) where -import Language.Javascript.JSaddle.DOM.MediaQueryListListener diff --git a/jsaddle/GHCJS/DOM/MediaSource.hs b/jsaddle/GHCJS/DOM/MediaSource.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/MediaSource.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.MediaSource ( - module Language.Javascript.JSaddle.DOM.MediaSource - ) where -import Language.Javascript.JSaddle.DOM.MediaSource diff --git a/jsaddle/GHCJS/DOM/MediaSourceStates.hs b/jsaddle/GHCJS/DOM/MediaSourceStates.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/MediaSourceStates.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.MediaSourceStates ( - module Language.Javascript.JSaddle.DOM.MediaSourceStates - ) where -import Language.Javascript.JSaddle.DOM.MediaSourceStates diff --git a/jsaddle/GHCJS/DOM/MediaStream.hs b/jsaddle/GHCJS/DOM/MediaStream.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/MediaStream.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.MediaStream ( - module Language.Javascript.JSaddle.DOM.MediaStream - ) where -import Language.Javascript.JSaddle.DOM.MediaStream diff --git a/jsaddle/GHCJS/DOM/MediaStreamAudioDestinationNode.hs b/jsaddle/GHCJS/DOM/MediaStreamAudioDestinationNode.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/MediaStreamAudioDestinationNode.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.MediaStreamAudioDestinationNode ( - module Language.Javascript.JSaddle.DOM.MediaStreamAudioDestinationNode - ) where -import Language.Javascript.JSaddle.DOM.MediaStreamAudioDestinationNode diff --git a/jsaddle/GHCJS/DOM/MediaStreamAudioSourceNode.hs b/jsaddle/GHCJS/DOM/MediaStreamAudioSourceNode.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/MediaStreamAudioSourceNode.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.MediaStreamAudioSourceNode ( - module Language.Javascript.JSaddle.DOM.MediaStreamAudioSourceNode - ) where -import Language.Javascript.JSaddle.DOM.MediaStreamAudioSourceNode diff --git a/jsaddle/GHCJS/DOM/MediaStreamEvent.hs b/jsaddle/GHCJS/DOM/MediaStreamEvent.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/MediaStreamEvent.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.MediaStreamEvent ( - module Language.Javascript.JSaddle.DOM.MediaStreamEvent - ) where -import Language.Javascript.JSaddle.DOM.MediaStreamEvent diff --git a/jsaddle/GHCJS/DOM/MediaStreamTrack.hs b/jsaddle/GHCJS/DOM/MediaStreamTrack.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/MediaStreamTrack.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.MediaStreamTrack ( - module Language.Javascript.JSaddle.DOM.MediaStreamTrack - ) where -import Language.Javascript.JSaddle.DOM.MediaStreamTrack diff --git a/jsaddle/GHCJS/DOM/MediaStreamTrackEvent.hs b/jsaddle/GHCJS/DOM/MediaStreamTrackEvent.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/MediaStreamTrackEvent.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.MediaStreamTrackEvent ( - module Language.Javascript.JSaddle.DOM.MediaStreamTrackEvent - ) where -import Language.Javascript.JSaddle.DOM.MediaStreamTrackEvent diff --git a/jsaddle/GHCJS/DOM/MediaStreamTrackSourcesCallback.hs b/jsaddle/GHCJS/DOM/MediaStreamTrackSourcesCallback.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/MediaStreamTrackSourcesCallback.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.MediaStreamTrackSourcesCallback ( - module Language.Javascript.JSaddle.DOM.MediaStreamTrackSourcesCallback - ) where -import Language.Javascript.JSaddle.DOM.MediaStreamTrackSourcesCallback diff --git a/jsaddle/GHCJS/DOM/MediaTrackConstraints.hs b/jsaddle/GHCJS/DOM/MediaTrackConstraints.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/MediaTrackConstraints.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.MediaTrackConstraints ( - module Language.Javascript.JSaddle.DOM.MediaTrackConstraints - ) where -import Language.Javascript.JSaddle.DOM.MediaTrackConstraints diff --git a/jsaddle/GHCJS/DOM/MemoryInfo.hs b/jsaddle/GHCJS/DOM/MemoryInfo.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/MemoryInfo.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.MemoryInfo ( - module Language.Javascript.JSaddle.DOM.MemoryInfo - ) where -import Language.Javascript.JSaddle.DOM.MemoryInfo diff --git a/jsaddle/GHCJS/DOM/MessageChannel.hs b/jsaddle/GHCJS/DOM/MessageChannel.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/MessageChannel.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.MessageChannel ( - module Language.Javascript.JSaddle.DOM.MessageChannel - ) where -import Language.Javascript.JSaddle.DOM.MessageChannel diff --git a/jsaddle/GHCJS/DOM/MessageEvent.hs b/jsaddle/GHCJS/DOM/MessageEvent.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/MessageEvent.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.MessageEvent ( - module Language.Javascript.JSaddle.DOM.MessageEvent - ) where -import Language.Javascript.JSaddle.DOM.MessageEvent diff --git a/jsaddle/GHCJS/DOM/MessagePort.hs b/jsaddle/GHCJS/DOM/MessagePort.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/MessagePort.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.MessagePort ( - module Language.Javascript.JSaddle.DOM.MessagePort - ) where -import Language.Javascript.JSaddle.DOM.MessagePort diff --git a/jsaddle/GHCJS/DOM/MimeType.hs b/jsaddle/GHCJS/DOM/MimeType.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/MimeType.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.MimeType ( - module Language.Javascript.JSaddle.DOM.MimeType - ) where -import Language.Javascript.JSaddle.DOM.MimeType diff --git a/jsaddle/GHCJS/DOM/MimeTypeArray.hs b/jsaddle/GHCJS/DOM/MimeTypeArray.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/MimeTypeArray.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.MimeTypeArray ( - module Language.Javascript.JSaddle.DOM.MimeTypeArray - ) where -import Language.Javascript.JSaddle.DOM.MimeTypeArray diff --git a/jsaddle/GHCJS/DOM/MouseEvent.hs b/jsaddle/GHCJS/DOM/MouseEvent.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/MouseEvent.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.MouseEvent ( - module Language.Javascript.JSaddle.DOM.MouseEvent - ) where -import Language.Javascript.JSaddle.DOM.MouseEvent diff --git a/jsaddle/GHCJS/DOM/MutationEvent.hs b/jsaddle/GHCJS/DOM/MutationEvent.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/MutationEvent.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.MutationEvent ( - module Language.Javascript.JSaddle.DOM.MutationEvent - ) where -import Language.Javascript.JSaddle.DOM.MutationEvent diff --git a/jsaddle/GHCJS/DOM/MutationObserver.hs b/jsaddle/GHCJS/DOM/MutationObserver.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/MutationObserver.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.MutationObserver ( - module Language.Javascript.JSaddle.DOM.MutationObserver - ) where -import Language.Javascript.JSaddle.DOM.MutationObserver diff --git a/jsaddle/GHCJS/DOM/MutationRecord.hs b/jsaddle/GHCJS/DOM/MutationRecord.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/MutationRecord.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.MutationRecord ( - module Language.Javascript.JSaddle.DOM.MutationRecord - ) where -import Language.Javascript.JSaddle.DOM.MutationRecord diff --git a/jsaddle/GHCJS/DOM/NamedNodeMap.hs b/jsaddle/GHCJS/DOM/NamedNodeMap.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/NamedNodeMap.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.NamedNodeMap ( - module Language.Javascript.JSaddle.DOM.NamedNodeMap - ) where -import Language.Javascript.JSaddle.DOM.NamedNodeMap diff --git a/jsaddle/GHCJS/DOM/Navigator.hs b/jsaddle/GHCJS/DOM/Navigator.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/Navigator.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.Navigator ( - module Language.Javascript.JSaddle.DOM.Navigator - ) where -import Language.Javascript.JSaddle.DOM.Navigator diff --git a/jsaddle/GHCJS/DOM/NavigatorUserMediaError.hs b/jsaddle/GHCJS/DOM/NavigatorUserMediaError.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/NavigatorUserMediaError.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.NavigatorUserMediaError ( - module Language.Javascript.JSaddle.DOM.NavigatorUserMediaError - ) where -import Language.Javascript.JSaddle.DOM.NavigatorUserMediaError diff --git a/jsaddle/GHCJS/DOM/NavigatorUserMediaErrorCallback.hs b/jsaddle/GHCJS/DOM/NavigatorUserMediaErrorCallback.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/NavigatorUserMediaErrorCallback.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.NavigatorUserMediaErrorCallback ( - module Language.Javascript.JSaddle.DOM.NavigatorUserMediaErrorCallback - ) where -import Language.Javascript.JSaddle.DOM.NavigatorUserMediaErrorCallback diff --git a/jsaddle/GHCJS/DOM/NavigatorUserMediaSuccessCallback.hs b/jsaddle/GHCJS/DOM/NavigatorUserMediaSuccessCallback.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/NavigatorUserMediaSuccessCallback.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.NavigatorUserMediaSuccessCallback ( - module Language.Javascript.JSaddle.DOM.NavigatorUserMediaSuccessCallback - ) where -import Language.Javascript.JSaddle.DOM.NavigatorUserMediaSuccessCallback diff --git a/jsaddle/GHCJS/DOM/Node.hs b/jsaddle/GHCJS/DOM/Node.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/Node.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.Node ( - module Language.Javascript.JSaddle.DOM.Node - ) where -import Language.Javascript.JSaddle.DOM.Node diff --git a/jsaddle/GHCJS/DOM/NodeFilter.hs b/jsaddle/GHCJS/DOM/NodeFilter.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/NodeFilter.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.NodeFilter ( - module Language.Javascript.JSaddle.DOM.NodeFilter - ) where -import Language.Javascript.JSaddle.DOM.NodeFilter diff --git a/jsaddle/GHCJS/DOM/NodeIterator.hs b/jsaddle/GHCJS/DOM/NodeIterator.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/NodeIterator.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.NodeIterator ( - module Language.Javascript.JSaddle.DOM.NodeIterator - ) where -import Language.Javascript.JSaddle.DOM.NodeIterator diff --git a/jsaddle/GHCJS/DOM/NodeList.hs b/jsaddle/GHCJS/DOM/NodeList.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/NodeList.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.NodeList ( - module Language.Javascript.JSaddle.DOM.NodeList - ) where -import Language.Javascript.JSaddle.DOM.NodeList diff --git a/jsaddle/GHCJS/DOM/Notification.hs b/jsaddle/GHCJS/DOM/Notification.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/Notification.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.Notification ( - module Language.Javascript.JSaddle.DOM.Notification - ) where -import Language.Javascript.JSaddle.DOM.Notification diff --git a/jsaddle/GHCJS/DOM/NotificationCenter.hs b/jsaddle/GHCJS/DOM/NotificationCenter.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/NotificationCenter.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.NotificationCenter ( - module Language.Javascript.JSaddle.DOM.NotificationCenter - ) where -import Language.Javascript.JSaddle.DOM.NotificationCenter diff --git a/jsaddle/GHCJS/DOM/NotificationPermissionCallback.hs b/jsaddle/GHCJS/DOM/NotificationPermissionCallback.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/NotificationPermissionCallback.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.NotificationPermissionCallback ( - module Language.Javascript.JSaddle.DOM.NotificationPermissionCallback - ) where -import Language.Javascript.JSaddle.DOM.NotificationPermissionCallback diff --git a/jsaddle/GHCJS/DOM/OESStandardDerivatives.hs b/jsaddle/GHCJS/DOM/OESStandardDerivatives.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/OESStandardDerivatives.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.OESStandardDerivatives ( - module Language.Javascript.JSaddle.DOM.OESStandardDerivatives - ) where -import Language.Javascript.JSaddle.DOM.OESStandardDerivatives diff --git a/jsaddle/GHCJS/DOM/OESTextureHalfFloat.hs b/jsaddle/GHCJS/DOM/OESTextureHalfFloat.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/OESTextureHalfFloat.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.OESTextureHalfFloat ( - module Language.Javascript.JSaddle.DOM.OESTextureHalfFloat - ) where -import Language.Javascript.JSaddle.DOM.OESTextureHalfFloat diff --git a/jsaddle/GHCJS/DOM/OESVertexArrayObject.hs b/jsaddle/GHCJS/DOM/OESVertexArrayObject.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/OESVertexArrayObject.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.OESVertexArrayObject ( - module Language.Javascript.JSaddle.DOM.OESVertexArrayObject - ) where -import Language.Javascript.JSaddle.DOM.OESVertexArrayObject diff --git a/jsaddle/GHCJS/DOM/OfflineAudioCompletionEvent.hs b/jsaddle/GHCJS/DOM/OfflineAudioCompletionEvent.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/OfflineAudioCompletionEvent.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.OfflineAudioCompletionEvent ( - module Language.Javascript.JSaddle.DOM.OfflineAudioCompletionEvent - ) where -import Language.Javascript.JSaddle.DOM.OfflineAudioCompletionEvent diff --git a/jsaddle/GHCJS/DOM/OfflineAudioContext.hs b/jsaddle/GHCJS/DOM/OfflineAudioContext.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/OfflineAudioContext.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.OfflineAudioContext ( - module Language.Javascript.JSaddle.DOM.OfflineAudioContext - ) where -import Language.Javascript.JSaddle.DOM.OfflineAudioContext diff --git a/jsaddle/GHCJS/DOM/OscillatorNode.hs b/jsaddle/GHCJS/DOM/OscillatorNode.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/OscillatorNode.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.OscillatorNode ( - module Language.Javascript.JSaddle.DOM.OscillatorNode - ) where -import Language.Javascript.JSaddle.DOM.OscillatorNode diff --git a/jsaddle/GHCJS/DOM/OverflowEvent.hs b/jsaddle/GHCJS/DOM/OverflowEvent.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/OverflowEvent.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.OverflowEvent ( - module Language.Javascript.JSaddle.DOM.OverflowEvent - ) where -import Language.Javascript.JSaddle.DOM.OverflowEvent diff --git a/jsaddle/GHCJS/DOM/PageTransitionEvent.hs b/jsaddle/GHCJS/DOM/PageTransitionEvent.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/PageTransitionEvent.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.PageTransitionEvent ( - module Language.Javascript.JSaddle.DOM.PageTransitionEvent - ) where -import Language.Javascript.JSaddle.DOM.PageTransitionEvent diff --git a/jsaddle/GHCJS/DOM/PannerNode.hs b/jsaddle/GHCJS/DOM/PannerNode.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/PannerNode.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.PannerNode ( - module Language.Javascript.JSaddle.DOM.PannerNode - ) where -import Language.Javascript.JSaddle.DOM.PannerNode diff --git a/jsaddle/GHCJS/DOM/Path2D.hs b/jsaddle/GHCJS/DOM/Path2D.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/Path2D.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.Path2D ( - module Language.Javascript.JSaddle.DOM.Path2D - ) where -import Language.Javascript.JSaddle.DOM.Path2D diff --git a/jsaddle/GHCJS/DOM/Performance.hs b/jsaddle/GHCJS/DOM/Performance.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/Performance.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.Performance ( - module Language.Javascript.JSaddle.DOM.Performance - ) where -import Language.Javascript.JSaddle.DOM.Performance diff --git a/jsaddle/GHCJS/DOM/PerformanceEntry.hs b/jsaddle/GHCJS/DOM/PerformanceEntry.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/PerformanceEntry.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.PerformanceEntry ( - module Language.Javascript.JSaddle.DOM.PerformanceEntry - ) where -import Language.Javascript.JSaddle.DOM.PerformanceEntry diff --git a/jsaddle/GHCJS/DOM/PerformanceEntryList.hs b/jsaddle/GHCJS/DOM/PerformanceEntryList.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/PerformanceEntryList.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.PerformanceEntryList ( - module Language.Javascript.JSaddle.DOM.PerformanceEntryList - ) where -import Language.Javascript.JSaddle.DOM.PerformanceEntryList diff --git a/jsaddle/GHCJS/DOM/PerformanceNavigation.hs b/jsaddle/GHCJS/DOM/PerformanceNavigation.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/PerformanceNavigation.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.PerformanceNavigation ( - module Language.Javascript.JSaddle.DOM.PerformanceNavigation - ) where -import Language.Javascript.JSaddle.DOM.PerformanceNavigation diff --git a/jsaddle/GHCJS/DOM/PerformanceResourceTiming.hs b/jsaddle/GHCJS/DOM/PerformanceResourceTiming.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/PerformanceResourceTiming.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.PerformanceResourceTiming ( - module Language.Javascript.JSaddle.DOM.PerformanceResourceTiming - ) where -import Language.Javascript.JSaddle.DOM.PerformanceResourceTiming diff --git a/jsaddle/GHCJS/DOM/PerformanceTiming.hs b/jsaddle/GHCJS/DOM/PerformanceTiming.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/PerformanceTiming.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.PerformanceTiming ( - module Language.Javascript.JSaddle.DOM.PerformanceTiming - ) where -import Language.Javascript.JSaddle.DOM.PerformanceTiming diff --git a/jsaddle/GHCJS/DOM/Plugin.hs b/jsaddle/GHCJS/DOM/Plugin.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/Plugin.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.Plugin ( - module Language.Javascript.JSaddle.DOM.Plugin - ) where -import Language.Javascript.JSaddle.DOM.Plugin diff --git a/jsaddle/GHCJS/DOM/PluginArray.hs b/jsaddle/GHCJS/DOM/PluginArray.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/PluginArray.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.PluginArray ( - module Language.Javascript.JSaddle.DOM.PluginArray - ) where -import Language.Javascript.JSaddle.DOM.PluginArray diff --git a/jsaddle/GHCJS/DOM/PopStateEvent.hs b/jsaddle/GHCJS/DOM/PopStateEvent.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/PopStateEvent.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.PopStateEvent ( - module Language.Javascript.JSaddle.DOM.PopStateEvent - ) where -import Language.Javascript.JSaddle.DOM.PopStateEvent diff --git a/jsaddle/GHCJS/DOM/PositionCallback.hs b/jsaddle/GHCJS/DOM/PositionCallback.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/PositionCallback.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.PositionCallback ( - module Language.Javascript.JSaddle.DOM.PositionCallback - ) where -import Language.Javascript.JSaddle.DOM.PositionCallback diff --git a/jsaddle/GHCJS/DOM/PositionError.hs b/jsaddle/GHCJS/DOM/PositionError.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/PositionError.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.PositionError ( - module Language.Javascript.JSaddle.DOM.PositionError - ) where -import Language.Javascript.JSaddle.DOM.PositionError diff --git a/jsaddle/GHCJS/DOM/PositionErrorCallback.hs b/jsaddle/GHCJS/DOM/PositionErrorCallback.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/PositionErrorCallback.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.PositionErrorCallback ( - module Language.Javascript.JSaddle.DOM.PositionErrorCallback - ) where -import Language.Javascript.JSaddle.DOM.PositionErrorCallback diff --git a/jsaddle/GHCJS/DOM/ProcessingInstruction.hs b/jsaddle/GHCJS/DOM/ProcessingInstruction.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/ProcessingInstruction.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.ProcessingInstruction ( - module Language.Javascript.JSaddle.DOM.ProcessingInstruction - ) where -import Language.Javascript.JSaddle.DOM.ProcessingInstruction diff --git a/jsaddle/GHCJS/DOM/ProgressEvent.hs b/jsaddle/GHCJS/DOM/ProgressEvent.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/ProgressEvent.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.ProgressEvent ( - module Language.Javascript.JSaddle.DOM.ProgressEvent - ) where -import Language.Javascript.JSaddle.DOM.ProgressEvent diff --git a/jsaddle/GHCJS/DOM/QuickTimePluginReplacement.hs b/jsaddle/GHCJS/DOM/QuickTimePluginReplacement.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/QuickTimePluginReplacement.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.QuickTimePluginReplacement ( - module Language.Javascript.JSaddle.DOM.QuickTimePluginReplacement - ) where -import Language.Javascript.JSaddle.DOM.QuickTimePluginReplacement diff --git a/jsaddle/GHCJS/DOM/RGBColor.hs b/jsaddle/GHCJS/DOM/RGBColor.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/RGBColor.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.RGBColor ( - module Language.Javascript.JSaddle.DOM.RGBColor - ) where -import Language.Javascript.JSaddle.DOM.RGBColor diff --git a/jsaddle/GHCJS/DOM/RTCConfiguration.hs b/jsaddle/GHCJS/DOM/RTCConfiguration.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/RTCConfiguration.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.RTCConfiguration ( - module Language.Javascript.JSaddle.DOM.RTCConfiguration - ) where -import Language.Javascript.JSaddle.DOM.RTCConfiguration diff --git a/jsaddle/GHCJS/DOM/RTCDTMFSender.hs b/jsaddle/GHCJS/DOM/RTCDTMFSender.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/RTCDTMFSender.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.RTCDTMFSender ( - module Language.Javascript.JSaddle.DOM.RTCDTMFSender - ) where -import Language.Javascript.JSaddle.DOM.RTCDTMFSender diff --git a/jsaddle/GHCJS/DOM/RTCDTMFToneChangeEvent.hs b/jsaddle/GHCJS/DOM/RTCDTMFToneChangeEvent.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/RTCDTMFToneChangeEvent.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.RTCDTMFToneChangeEvent ( - module Language.Javascript.JSaddle.DOM.RTCDTMFToneChangeEvent - ) where -import Language.Javascript.JSaddle.DOM.RTCDTMFToneChangeEvent diff --git a/jsaddle/GHCJS/DOM/RTCDataChannel.hs b/jsaddle/GHCJS/DOM/RTCDataChannel.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/RTCDataChannel.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.RTCDataChannel ( - module Language.Javascript.JSaddle.DOM.RTCDataChannel - ) where -import Language.Javascript.JSaddle.DOM.RTCDataChannel diff --git a/jsaddle/GHCJS/DOM/RTCDataChannelEvent.hs b/jsaddle/GHCJS/DOM/RTCDataChannelEvent.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/RTCDataChannelEvent.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.RTCDataChannelEvent ( - module Language.Javascript.JSaddle.DOM.RTCDataChannelEvent - ) where -import Language.Javascript.JSaddle.DOM.RTCDataChannelEvent diff --git a/jsaddle/GHCJS/DOM/RTCIceCandidate.hs b/jsaddle/GHCJS/DOM/RTCIceCandidate.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/RTCIceCandidate.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.RTCIceCandidate ( - module Language.Javascript.JSaddle.DOM.RTCIceCandidate - ) where -import Language.Javascript.JSaddle.DOM.RTCIceCandidate diff --git a/jsaddle/GHCJS/DOM/RTCIceCandidateEvent.hs b/jsaddle/GHCJS/DOM/RTCIceCandidateEvent.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/RTCIceCandidateEvent.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.RTCIceCandidateEvent ( - module Language.Javascript.JSaddle.DOM.RTCIceCandidateEvent - ) where -import Language.Javascript.JSaddle.DOM.RTCIceCandidateEvent diff --git a/jsaddle/GHCJS/DOM/RTCIceServer.hs b/jsaddle/GHCJS/DOM/RTCIceServer.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/RTCIceServer.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.RTCIceServer ( - module Language.Javascript.JSaddle.DOM.RTCIceServer - ) where -import Language.Javascript.JSaddle.DOM.RTCIceServer diff --git a/jsaddle/GHCJS/DOM/RTCPeerConnection.hs b/jsaddle/GHCJS/DOM/RTCPeerConnection.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/RTCPeerConnection.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.RTCPeerConnection ( - module Language.Javascript.JSaddle.DOM.RTCPeerConnection - ) where -import Language.Javascript.JSaddle.DOM.RTCPeerConnection diff --git a/jsaddle/GHCJS/DOM/RTCPeerConnectionErrorCallback.hs b/jsaddle/GHCJS/DOM/RTCPeerConnectionErrorCallback.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/RTCPeerConnectionErrorCallback.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.RTCPeerConnectionErrorCallback ( - module Language.Javascript.JSaddle.DOM.RTCPeerConnectionErrorCallback - ) where -import Language.Javascript.JSaddle.DOM.RTCPeerConnectionErrorCallback diff --git a/jsaddle/GHCJS/DOM/RTCSessionDescription.hs b/jsaddle/GHCJS/DOM/RTCSessionDescription.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/RTCSessionDescription.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.RTCSessionDescription ( - module Language.Javascript.JSaddle.DOM.RTCSessionDescription - ) where -import Language.Javascript.JSaddle.DOM.RTCSessionDescription diff --git a/jsaddle/GHCJS/DOM/RTCSessionDescriptionCallback.hs b/jsaddle/GHCJS/DOM/RTCSessionDescriptionCallback.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/RTCSessionDescriptionCallback.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.RTCSessionDescriptionCallback ( - module Language.Javascript.JSaddle.DOM.RTCSessionDescriptionCallback - ) where -import Language.Javascript.JSaddle.DOM.RTCSessionDescriptionCallback diff --git a/jsaddle/GHCJS/DOM/RTCStatsCallback.hs b/jsaddle/GHCJS/DOM/RTCStatsCallback.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/RTCStatsCallback.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.RTCStatsCallback ( - module Language.Javascript.JSaddle.DOM.RTCStatsCallback - ) where -import Language.Javascript.JSaddle.DOM.RTCStatsCallback diff --git a/jsaddle/GHCJS/DOM/RTCStatsReport.hs b/jsaddle/GHCJS/DOM/RTCStatsReport.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/RTCStatsReport.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.RTCStatsReport ( - module Language.Javascript.JSaddle.DOM.RTCStatsReport - ) where -import Language.Javascript.JSaddle.DOM.RTCStatsReport diff --git a/jsaddle/GHCJS/DOM/RTCStatsResponse.hs b/jsaddle/GHCJS/DOM/RTCStatsResponse.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/RTCStatsResponse.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.RTCStatsResponse ( - module Language.Javascript.JSaddle.DOM.RTCStatsResponse - ) where -import Language.Javascript.JSaddle.DOM.RTCStatsResponse diff --git a/jsaddle/GHCJS/DOM/RadioNodeList.hs b/jsaddle/GHCJS/DOM/RadioNodeList.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/RadioNodeList.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.RadioNodeList ( - module Language.Javascript.JSaddle.DOM.RadioNodeList - ) where -import Language.Javascript.JSaddle.DOM.RadioNodeList diff --git a/jsaddle/GHCJS/DOM/Range.hs b/jsaddle/GHCJS/DOM/Range.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/Range.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.Range ( - module Language.Javascript.JSaddle.DOM.Range - ) where -import Language.Javascript.JSaddle.DOM.Range diff --git a/jsaddle/GHCJS/DOM/ReadableStream.hs b/jsaddle/GHCJS/DOM/ReadableStream.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/ReadableStream.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.ReadableStream ( - module Language.Javascript.JSaddle.DOM.ReadableStream - ) where -import Language.Javascript.JSaddle.DOM.ReadableStream diff --git a/jsaddle/GHCJS/DOM/Rect.hs b/jsaddle/GHCJS/DOM/Rect.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/Rect.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.Rect ( - module Language.Javascript.JSaddle.DOM.Rect - ) where -import Language.Javascript.JSaddle.DOM.Rect diff --git a/jsaddle/GHCJS/DOM/RequestAnimationFrameCallback.hs b/jsaddle/GHCJS/DOM/RequestAnimationFrameCallback.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/RequestAnimationFrameCallback.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.RequestAnimationFrameCallback ( - module Language.Javascript.JSaddle.DOM.RequestAnimationFrameCallback - ) where -import Language.Javascript.JSaddle.DOM.RequestAnimationFrameCallback diff --git a/jsaddle/GHCJS/DOM/SQLError.hs b/jsaddle/GHCJS/DOM/SQLError.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/SQLError.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.SQLError ( - module Language.Javascript.JSaddle.DOM.SQLError - ) where -import Language.Javascript.JSaddle.DOM.SQLError diff --git a/jsaddle/GHCJS/DOM/SQLResultSet.hs b/jsaddle/GHCJS/DOM/SQLResultSet.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/SQLResultSet.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.SQLResultSet ( - module Language.Javascript.JSaddle.DOM.SQLResultSet - ) where -import Language.Javascript.JSaddle.DOM.SQLResultSet diff --git a/jsaddle/GHCJS/DOM/SQLResultSetRowList.hs b/jsaddle/GHCJS/DOM/SQLResultSetRowList.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/SQLResultSetRowList.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.SQLResultSetRowList ( - module Language.Javascript.JSaddle.DOM.SQLResultSetRowList - ) where -import Language.Javascript.JSaddle.DOM.SQLResultSetRowList diff --git a/jsaddle/GHCJS/DOM/SQLStatementCallback.hs b/jsaddle/GHCJS/DOM/SQLStatementCallback.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/SQLStatementCallback.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.SQLStatementCallback ( - module Language.Javascript.JSaddle.DOM.SQLStatementCallback - ) where -import Language.Javascript.JSaddle.DOM.SQLStatementCallback diff --git a/jsaddle/GHCJS/DOM/SQLStatementErrorCallback.hs b/jsaddle/GHCJS/DOM/SQLStatementErrorCallback.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/SQLStatementErrorCallback.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.SQLStatementErrorCallback ( - module Language.Javascript.JSaddle.DOM.SQLStatementErrorCallback - ) where -import Language.Javascript.JSaddle.DOM.SQLStatementErrorCallback diff --git a/jsaddle/GHCJS/DOM/SQLTransaction.hs b/jsaddle/GHCJS/DOM/SQLTransaction.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/SQLTransaction.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.SQLTransaction ( - module Language.Javascript.JSaddle.DOM.SQLTransaction - ) where -import Language.Javascript.JSaddle.DOM.SQLTransaction diff --git a/jsaddle/GHCJS/DOM/SQLTransactionCallback.hs b/jsaddle/GHCJS/DOM/SQLTransactionCallback.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/SQLTransactionCallback.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.SQLTransactionCallback ( - module Language.Javascript.JSaddle.DOM.SQLTransactionCallback - ) where -import Language.Javascript.JSaddle.DOM.SQLTransactionCallback diff --git a/jsaddle/GHCJS/DOM/SQLTransactionErrorCallback.hs b/jsaddle/GHCJS/DOM/SQLTransactionErrorCallback.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/SQLTransactionErrorCallback.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.SQLTransactionErrorCallback ( - module Language.Javascript.JSaddle.DOM.SQLTransactionErrorCallback - ) where -import Language.Javascript.JSaddle.DOM.SQLTransactionErrorCallback diff --git a/jsaddle/GHCJS/DOM/SVGAElement.hs b/jsaddle/GHCJS/DOM/SVGAElement.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/SVGAElement.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.SVGAElement ( - module Language.Javascript.JSaddle.DOM.SVGAElement - ) where -import Language.Javascript.JSaddle.DOM.SVGAElement diff --git a/jsaddle/GHCJS/DOM/SVGAltGlyphElement.hs b/jsaddle/GHCJS/DOM/SVGAltGlyphElement.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/SVGAltGlyphElement.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.SVGAltGlyphElement ( - module Language.Javascript.JSaddle.DOM.SVGAltGlyphElement - ) where -import Language.Javascript.JSaddle.DOM.SVGAltGlyphElement diff --git a/jsaddle/GHCJS/DOM/SVGAngle.hs b/jsaddle/GHCJS/DOM/SVGAngle.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/SVGAngle.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.SVGAngle ( - module Language.Javascript.JSaddle.DOM.SVGAngle - ) where -import Language.Javascript.JSaddle.DOM.SVGAngle diff --git a/jsaddle/GHCJS/DOM/SVGAnimatedAngle.hs b/jsaddle/GHCJS/DOM/SVGAnimatedAngle.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/SVGAnimatedAngle.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.SVGAnimatedAngle ( - module Language.Javascript.JSaddle.DOM.SVGAnimatedAngle - ) where -import Language.Javascript.JSaddle.DOM.SVGAnimatedAngle diff --git a/jsaddle/GHCJS/DOM/SVGAnimatedBoolean.hs b/jsaddle/GHCJS/DOM/SVGAnimatedBoolean.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/SVGAnimatedBoolean.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.SVGAnimatedBoolean ( - module Language.Javascript.JSaddle.DOM.SVGAnimatedBoolean - ) where -import Language.Javascript.JSaddle.DOM.SVGAnimatedBoolean diff --git a/jsaddle/GHCJS/DOM/SVGAnimatedEnumeration.hs b/jsaddle/GHCJS/DOM/SVGAnimatedEnumeration.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/SVGAnimatedEnumeration.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.SVGAnimatedEnumeration ( - module Language.Javascript.JSaddle.DOM.SVGAnimatedEnumeration - ) where -import Language.Javascript.JSaddle.DOM.SVGAnimatedEnumeration diff --git a/jsaddle/GHCJS/DOM/SVGAnimatedInteger.hs b/jsaddle/GHCJS/DOM/SVGAnimatedInteger.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/SVGAnimatedInteger.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.SVGAnimatedInteger ( - module Language.Javascript.JSaddle.DOM.SVGAnimatedInteger - ) where -import Language.Javascript.JSaddle.DOM.SVGAnimatedInteger diff --git a/jsaddle/GHCJS/DOM/SVGAnimatedLength.hs b/jsaddle/GHCJS/DOM/SVGAnimatedLength.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/SVGAnimatedLength.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.SVGAnimatedLength ( - module Language.Javascript.JSaddle.DOM.SVGAnimatedLength - ) where -import Language.Javascript.JSaddle.DOM.SVGAnimatedLength diff --git a/jsaddle/GHCJS/DOM/SVGAnimatedLengthList.hs b/jsaddle/GHCJS/DOM/SVGAnimatedLengthList.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/SVGAnimatedLengthList.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.SVGAnimatedLengthList ( - module Language.Javascript.JSaddle.DOM.SVGAnimatedLengthList - ) where -import Language.Javascript.JSaddle.DOM.SVGAnimatedLengthList diff --git a/jsaddle/GHCJS/DOM/SVGAnimatedNumber.hs b/jsaddle/GHCJS/DOM/SVGAnimatedNumber.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/SVGAnimatedNumber.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.SVGAnimatedNumber ( - module Language.Javascript.JSaddle.DOM.SVGAnimatedNumber - ) where -import Language.Javascript.JSaddle.DOM.SVGAnimatedNumber diff --git a/jsaddle/GHCJS/DOM/SVGAnimatedNumberList.hs b/jsaddle/GHCJS/DOM/SVGAnimatedNumberList.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/SVGAnimatedNumberList.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.SVGAnimatedNumberList ( - module Language.Javascript.JSaddle.DOM.SVGAnimatedNumberList - ) where -import Language.Javascript.JSaddle.DOM.SVGAnimatedNumberList diff --git a/jsaddle/GHCJS/DOM/SVGAnimatedPreserveAspectRatio.hs b/jsaddle/GHCJS/DOM/SVGAnimatedPreserveAspectRatio.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/SVGAnimatedPreserveAspectRatio.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.SVGAnimatedPreserveAspectRatio ( - module Language.Javascript.JSaddle.DOM.SVGAnimatedPreserveAspectRatio - ) where -import Language.Javascript.JSaddle.DOM.SVGAnimatedPreserveAspectRatio diff --git a/jsaddle/GHCJS/DOM/SVGAnimatedRect.hs b/jsaddle/GHCJS/DOM/SVGAnimatedRect.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/SVGAnimatedRect.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.SVGAnimatedRect ( - module Language.Javascript.JSaddle.DOM.SVGAnimatedRect - ) where -import Language.Javascript.JSaddle.DOM.SVGAnimatedRect diff --git a/jsaddle/GHCJS/DOM/SVGAnimatedString.hs b/jsaddle/GHCJS/DOM/SVGAnimatedString.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/SVGAnimatedString.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.SVGAnimatedString ( - module Language.Javascript.JSaddle.DOM.SVGAnimatedString - ) where -import Language.Javascript.JSaddle.DOM.SVGAnimatedString diff --git a/jsaddle/GHCJS/DOM/SVGAnimatedTransformList.hs b/jsaddle/GHCJS/DOM/SVGAnimatedTransformList.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/SVGAnimatedTransformList.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.SVGAnimatedTransformList ( - module Language.Javascript.JSaddle.DOM.SVGAnimatedTransformList - ) where -import Language.Javascript.JSaddle.DOM.SVGAnimatedTransformList diff --git a/jsaddle/GHCJS/DOM/SVGAnimationElement.hs b/jsaddle/GHCJS/DOM/SVGAnimationElement.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/SVGAnimationElement.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.SVGAnimationElement ( - module Language.Javascript.JSaddle.DOM.SVGAnimationElement - ) where -import Language.Javascript.JSaddle.DOM.SVGAnimationElement diff --git a/jsaddle/GHCJS/DOM/SVGCircleElement.hs b/jsaddle/GHCJS/DOM/SVGCircleElement.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/SVGCircleElement.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.SVGCircleElement ( - module Language.Javascript.JSaddle.DOM.SVGCircleElement - ) where -import Language.Javascript.JSaddle.DOM.SVGCircleElement diff --git a/jsaddle/GHCJS/DOM/SVGClipPathElement.hs b/jsaddle/GHCJS/DOM/SVGClipPathElement.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/SVGClipPathElement.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.SVGClipPathElement ( - module Language.Javascript.JSaddle.DOM.SVGClipPathElement - ) where -import Language.Javascript.JSaddle.DOM.SVGClipPathElement diff --git a/jsaddle/GHCJS/DOM/SVGColor.hs b/jsaddle/GHCJS/DOM/SVGColor.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/SVGColor.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.SVGColor ( - module Language.Javascript.JSaddle.DOM.SVGColor - ) where -import Language.Javascript.JSaddle.DOM.SVGColor diff --git a/jsaddle/GHCJS/DOM/SVGComponentTransferFunctionElement.hs b/jsaddle/GHCJS/DOM/SVGComponentTransferFunctionElement.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/SVGComponentTransferFunctionElement.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.SVGComponentTransferFunctionElement ( - module Language.Javascript.JSaddle.DOM.SVGComponentTransferFunctionElement - ) where -import Language.Javascript.JSaddle.DOM.SVGComponentTransferFunctionElement diff --git a/jsaddle/GHCJS/DOM/SVGCursorElement.hs b/jsaddle/GHCJS/DOM/SVGCursorElement.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/SVGCursorElement.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.SVGCursorElement ( - module Language.Javascript.JSaddle.DOM.SVGCursorElement - ) where -import Language.Javascript.JSaddle.DOM.SVGCursorElement diff --git a/jsaddle/GHCJS/DOM/SVGDocument.hs b/jsaddle/GHCJS/DOM/SVGDocument.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/SVGDocument.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.SVGDocument ( - module Language.Javascript.JSaddle.DOM.SVGDocument - ) where -import Language.Javascript.JSaddle.DOM.SVGDocument diff --git a/jsaddle/GHCJS/DOM/SVGElement.hs b/jsaddle/GHCJS/DOM/SVGElement.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/SVGElement.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.SVGElement ( - module Language.Javascript.JSaddle.DOM.SVGElement - ) where -import Language.Javascript.JSaddle.DOM.SVGElement diff --git a/jsaddle/GHCJS/DOM/SVGEllipseElement.hs b/jsaddle/GHCJS/DOM/SVGEllipseElement.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/SVGEllipseElement.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.SVGEllipseElement ( - module Language.Javascript.JSaddle.DOM.SVGEllipseElement - ) where -import Language.Javascript.JSaddle.DOM.SVGEllipseElement diff --git a/jsaddle/GHCJS/DOM/SVGExternalResourcesRequired.hs b/jsaddle/GHCJS/DOM/SVGExternalResourcesRequired.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/SVGExternalResourcesRequired.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.SVGExternalResourcesRequired ( - module Language.Javascript.JSaddle.DOM.SVGExternalResourcesRequired - ) where -import Language.Javascript.JSaddle.DOM.SVGExternalResourcesRequired diff --git a/jsaddle/GHCJS/DOM/SVGFEBlendElement.hs b/jsaddle/GHCJS/DOM/SVGFEBlendElement.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/SVGFEBlendElement.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.SVGFEBlendElement ( - module Language.Javascript.JSaddle.DOM.SVGFEBlendElement - ) where -import Language.Javascript.JSaddle.DOM.SVGFEBlendElement diff --git a/jsaddle/GHCJS/DOM/SVGFEColorMatrixElement.hs b/jsaddle/GHCJS/DOM/SVGFEColorMatrixElement.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/SVGFEColorMatrixElement.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.SVGFEColorMatrixElement ( - module Language.Javascript.JSaddle.DOM.SVGFEColorMatrixElement - ) where -import Language.Javascript.JSaddle.DOM.SVGFEColorMatrixElement diff --git a/jsaddle/GHCJS/DOM/SVGFEComponentTransferElement.hs b/jsaddle/GHCJS/DOM/SVGFEComponentTransferElement.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/SVGFEComponentTransferElement.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.SVGFEComponentTransferElement ( - module Language.Javascript.JSaddle.DOM.SVGFEComponentTransferElement - ) where -import Language.Javascript.JSaddle.DOM.SVGFEComponentTransferElement diff --git a/jsaddle/GHCJS/DOM/SVGFECompositeElement.hs b/jsaddle/GHCJS/DOM/SVGFECompositeElement.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/SVGFECompositeElement.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.SVGFECompositeElement ( - module Language.Javascript.JSaddle.DOM.SVGFECompositeElement - ) where -import Language.Javascript.JSaddle.DOM.SVGFECompositeElement diff --git a/jsaddle/GHCJS/DOM/SVGFEConvolveMatrixElement.hs b/jsaddle/GHCJS/DOM/SVGFEConvolveMatrixElement.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/SVGFEConvolveMatrixElement.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.SVGFEConvolveMatrixElement ( - module Language.Javascript.JSaddle.DOM.SVGFEConvolveMatrixElement - ) where -import Language.Javascript.JSaddle.DOM.SVGFEConvolveMatrixElement diff --git a/jsaddle/GHCJS/DOM/SVGFEDiffuseLightingElement.hs b/jsaddle/GHCJS/DOM/SVGFEDiffuseLightingElement.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/SVGFEDiffuseLightingElement.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.SVGFEDiffuseLightingElement ( - module Language.Javascript.JSaddle.DOM.SVGFEDiffuseLightingElement - ) where -import Language.Javascript.JSaddle.DOM.SVGFEDiffuseLightingElement diff --git a/jsaddle/GHCJS/DOM/SVGFEDisplacementMapElement.hs b/jsaddle/GHCJS/DOM/SVGFEDisplacementMapElement.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/SVGFEDisplacementMapElement.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.SVGFEDisplacementMapElement ( - module Language.Javascript.JSaddle.DOM.SVGFEDisplacementMapElement - ) where -import Language.Javascript.JSaddle.DOM.SVGFEDisplacementMapElement diff --git a/jsaddle/GHCJS/DOM/SVGFEDistantLightElement.hs b/jsaddle/GHCJS/DOM/SVGFEDistantLightElement.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/SVGFEDistantLightElement.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.SVGFEDistantLightElement ( - module Language.Javascript.JSaddle.DOM.SVGFEDistantLightElement - ) where -import Language.Javascript.JSaddle.DOM.SVGFEDistantLightElement diff --git a/jsaddle/GHCJS/DOM/SVGFEDropShadowElement.hs b/jsaddle/GHCJS/DOM/SVGFEDropShadowElement.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/SVGFEDropShadowElement.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.SVGFEDropShadowElement ( - module Language.Javascript.JSaddle.DOM.SVGFEDropShadowElement - ) where -import Language.Javascript.JSaddle.DOM.SVGFEDropShadowElement diff --git a/jsaddle/GHCJS/DOM/SVGFEGaussianBlurElement.hs b/jsaddle/GHCJS/DOM/SVGFEGaussianBlurElement.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/SVGFEGaussianBlurElement.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.SVGFEGaussianBlurElement ( - module Language.Javascript.JSaddle.DOM.SVGFEGaussianBlurElement - ) where -import Language.Javascript.JSaddle.DOM.SVGFEGaussianBlurElement diff --git a/jsaddle/GHCJS/DOM/SVGFEImageElement.hs b/jsaddle/GHCJS/DOM/SVGFEImageElement.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/SVGFEImageElement.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.SVGFEImageElement ( - module Language.Javascript.JSaddle.DOM.SVGFEImageElement - ) where -import Language.Javascript.JSaddle.DOM.SVGFEImageElement diff --git a/jsaddle/GHCJS/DOM/SVGFEMergeNodeElement.hs b/jsaddle/GHCJS/DOM/SVGFEMergeNodeElement.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/SVGFEMergeNodeElement.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.SVGFEMergeNodeElement ( - module Language.Javascript.JSaddle.DOM.SVGFEMergeNodeElement - ) where -import Language.Javascript.JSaddle.DOM.SVGFEMergeNodeElement diff --git a/jsaddle/GHCJS/DOM/SVGFEMorphologyElement.hs b/jsaddle/GHCJS/DOM/SVGFEMorphologyElement.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/SVGFEMorphologyElement.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.SVGFEMorphologyElement ( - module Language.Javascript.JSaddle.DOM.SVGFEMorphologyElement - ) where -import Language.Javascript.JSaddle.DOM.SVGFEMorphologyElement diff --git a/jsaddle/GHCJS/DOM/SVGFEOffsetElement.hs b/jsaddle/GHCJS/DOM/SVGFEOffsetElement.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/SVGFEOffsetElement.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.SVGFEOffsetElement ( - module Language.Javascript.JSaddle.DOM.SVGFEOffsetElement - ) where -import Language.Javascript.JSaddle.DOM.SVGFEOffsetElement diff --git a/jsaddle/GHCJS/DOM/SVGFEPointLightElement.hs b/jsaddle/GHCJS/DOM/SVGFEPointLightElement.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/SVGFEPointLightElement.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.SVGFEPointLightElement ( - module Language.Javascript.JSaddle.DOM.SVGFEPointLightElement - ) where -import Language.Javascript.JSaddle.DOM.SVGFEPointLightElement diff --git a/jsaddle/GHCJS/DOM/SVGFESpecularLightingElement.hs b/jsaddle/GHCJS/DOM/SVGFESpecularLightingElement.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/SVGFESpecularLightingElement.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.SVGFESpecularLightingElement ( - module Language.Javascript.JSaddle.DOM.SVGFESpecularLightingElement - ) where -import Language.Javascript.JSaddle.DOM.SVGFESpecularLightingElement diff --git a/jsaddle/GHCJS/DOM/SVGFESpotLightElement.hs b/jsaddle/GHCJS/DOM/SVGFESpotLightElement.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/SVGFESpotLightElement.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.SVGFESpotLightElement ( - module Language.Javascript.JSaddle.DOM.SVGFESpotLightElement - ) where -import Language.Javascript.JSaddle.DOM.SVGFESpotLightElement diff --git a/jsaddle/GHCJS/DOM/SVGFETileElement.hs b/jsaddle/GHCJS/DOM/SVGFETileElement.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/SVGFETileElement.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.SVGFETileElement ( - module Language.Javascript.JSaddle.DOM.SVGFETileElement - ) where -import Language.Javascript.JSaddle.DOM.SVGFETileElement diff --git a/jsaddle/GHCJS/DOM/SVGFETurbulenceElement.hs b/jsaddle/GHCJS/DOM/SVGFETurbulenceElement.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/SVGFETurbulenceElement.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.SVGFETurbulenceElement ( - module Language.Javascript.JSaddle.DOM.SVGFETurbulenceElement - ) where -import Language.Javascript.JSaddle.DOM.SVGFETurbulenceElement diff --git a/jsaddle/GHCJS/DOM/SVGFilterElement.hs b/jsaddle/GHCJS/DOM/SVGFilterElement.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/SVGFilterElement.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.SVGFilterElement ( - module Language.Javascript.JSaddle.DOM.SVGFilterElement - ) where -import Language.Javascript.JSaddle.DOM.SVGFilterElement diff --git a/jsaddle/GHCJS/DOM/SVGFilterPrimitiveStandardAttributes.hs b/jsaddle/GHCJS/DOM/SVGFilterPrimitiveStandardAttributes.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/SVGFilterPrimitiveStandardAttributes.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.SVGFilterPrimitiveStandardAttributes ( - module Language.Javascript.JSaddle.DOM.SVGFilterPrimitiveStandardAttributes - ) where -import Language.Javascript.JSaddle.DOM.SVGFilterPrimitiveStandardAttributes diff --git a/jsaddle/GHCJS/DOM/SVGFitToViewBox.hs b/jsaddle/GHCJS/DOM/SVGFitToViewBox.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/SVGFitToViewBox.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.SVGFitToViewBox ( - module Language.Javascript.JSaddle.DOM.SVGFitToViewBox - ) where -import Language.Javascript.JSaddle.DOM.SVGFitToViewBox diff --git a/jsaddle/GHCJS/DOM/SVGForeignObjectElement.hs b/jsaddle/GHCJS/DOM/SVGForeignObjectElement.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/SVGForeignObjectElement.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.SVGForeignObjectElement ( - module Language.Javascript.JSaddle.DOM.SVGForeignObjectElement - ) where -import Language.Javascript.JSaddle.DOM.SVGForeignObjectElement diff --git a/jsaddle/GHCJS/DOM/SVGGlyphRefElement.hs b/jsaddle/GHCJS/DOM/SVGGlyphRefElement.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/SVGGlyphRefElement.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.SVGGlyphRefElement ( - module Language.Javascript.JSaddle.DOM.SVGGlyphRefElement - ) where -import Language.Javascript.JSaddle.DOM.SVGGlyphRefElement diff --git a/jsaddle/GHCJS/DOM/SVGGradientElement.hs b/jsaddle/GHCJS/DOM/SVGGradientElement.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/SVGGradientElement.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.SVGGradientElement ( - module Language.Javascript.JSaddle.DOM.SVGGradientElement - ) where -import Language.Javascript.JSaddle.DOM.SVGGradientElement diff --git a/jsaddle/GHCJS/DOM/SVGGraphicsElement.hs b/jsaddle/GHCJS/DOM/SVGGraphicsElement.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/SVGGraphicsElement.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.SVGGraphicsElement ( - module Language.Javascript.JSaddle.DOM.SVGGraphicsElement - ) where -import Language.Javascript.JSaddle.DOM.SVGGraphicsElement diff --git a/jsaddle/GHCJS/DOM/SVGImageElement.hs b/jsaddle/GHCJS/DOM/SVGImageElement.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/SVGImageElement.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.SVGImageElement ( - module Language.Javascript.JSaddle.DOM.SVGImageElement - ) where -import Language.Javascript.JSaddle.DOM.SVGImageElement diff --git a/jsaddle/GHCJS/DOM/SVGLength.hs b/jsaddle/GHCJS/DOM/SVGLength.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/SVGLength.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.SVGLength ( - module Language.Javascript.JSaddle.DOM.SVGLength - ) where -import Language.Javascript.JSaddle.DOM.SVGLength diff --git a/jsaddle/GHCJS/DOM/SVGLengthList.hs b/jsaddle/GHCJS/DOM/SVGLengthList.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/SVGLengthList.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.SVGLengthList ( - module Language.Javascript.JSaddle.DOM.SVGLengthList - ) where -import Language.Javascript.JSaddle.DOM.SVGLengthList diff --git a/jsaddle/GHCJS/DOM/SVGLineElement.hs b/jsaddle/GHCJS/DOM/SVGLineElement.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/SVGLineElement.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.SVGLineElement ( - module Language.Javascript.JSaddle.DOM.SVGLineElement - ) where -import Language.Javascript.JSaddle.DOM.SVGLineElement diff --git a/jsaddle/GHCJS/DOM/SVGLinearGradientElement.hs b/jsaddle/GHCJS/DOM/SVGLinearGradientElement.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/SVGLinearGradientElement.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.SVGLinearGradientElement ( - module Language.Javascript.JSaddle.DOM.SVGLinearGradientElement - ) where -import Language.Javascript.JSaddle.DOM.SVGLinearGradientElement diff --git a/jsaddle/GHCJS/DOM/SVGMarkerElement.hs b/jsaddle/GHCJS/DOM/SVGMarkerElement.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/SVGMarkerElement.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.SVGMarkerElement ( - module Language.Javascript.JSaddle.DOM.SVGMarkerElement - ) where -import Language.Javascript.JSaddle.DOM.SVGMarkerElement diff --git a/jsaddle/GHCJS/DOM/SVGMaskElement.hs b/jsaddle/GHCJS/DOM/SVGMaskElement.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/SVGMaskElement.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.SVGMaskElement ( - module Language.Javascript.JSaddle.DOM.SVGMaskElement - ) where -import Language.Javascript.JSaddle.DOM.SVGMaskElement diff --git a/jsaddle/GHCJS/DOM/SVGMatrix.hs b/jsaddle/GHCJS/DOM/SVGMatrix.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/SVGMatrix.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.SVGMatrix ( - module Language.Javascript.JSaddle.DOM.SVGMatrix - ) where -import Language.Javascript.JSaddle.DOM.SVGMatrix diff --git a/jsaddle/GHCJS/DOM/SVGNumber.hs b/jsaddle/GHCJS/DOM/SVGNumber.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/SVGNumber.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.SVGNumber ( - module Language.Javascript.JSaddle.DOM.SVGNumber - ) where -import Language.Javascript.JSaddle.DOM.SVGNumber diff --git a/jsaddle/GHCJS/DOM/SVGNumberList.hs b/jsaddle/GHCJS/DOM/SVGNumberList.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/SVGNumberList.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.SVGNumberList ( - module Language.Javascript.JSaddle.DOM.SVGNumberList - ) where -import Language.Javascript.JSaddle.DOM.SVGNumberList diff --git a/jsaddle/GHCJS/DOM/SVGPaint.hs b/jsaddle/GHCJS/DOM/SVGPaint.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/SVGPaint.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.SVGPaint ( - module Language.Javascript.JSaddle.DOM.SVGPaint - ) where -import Language.Javascript.JSaddle.DOM.SVGPaint diff --git a/jsaddle/GHCJS/DOM/SVGPathElement.hs b/jsaddle/GHCJS/DOM/SVGPathElement.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/SVGPathElement.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.SVGPathElement ( - module Language.Javascript.JSaddle.DOM.SVGPathElement - ) where -import Language.Javascript.JSaddle.DOM.SVGPathElement diff --git a/jsaddle/GHCJS/DOM/SVGPathSeg.hs b/jsaddle/GHCJS/DOM/SVGPathSeg.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/SVGPathSeg.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.SVGPathSeg ( - module Language.Javascript.JSaddle.DOM.SVGPathSeg - ) where -import Language.Javascript.JSaddle.DOM.SVGPathSeg diff --git a/jsaddle/GHCJS/DOM/SVGPathSegArcAbs.hs b/jsaddle/GHCJS/DOM/SVGPathSegArcAbs.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/SVGPathSegArcAbs.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.SVGPathSegArcAbs ( - module Language.Javascript.JSaddle.DOM.SVGPathSegArcAbs - ) where -import Language.Javascript.JSaddle.DOM.SVGPathSegArcAbs diff --git a/jsaddle/GHCJS/DOM/SVGPathSegArcRel.hs b/jsaddle/GHCJS/DOM/SVGPathSegArcRel.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/SVGPathSegArcRel.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.SVGPathSegArcRel ( - module Language.Javascript.JSaddle.DOM.SVGPathSegArcRel - ) where -import Language.Javascript.JSaddle.DOM.SVGPathSegArcRel diff --git a/jsaddle/GHCJS/DOM/SVGPathSegCurvetoCubicAbs.hs b/jsaddle/GHCJS/DOM/SVGPathSegCurvetoCubicAbs.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/SVGPathSegCurvetoCubicAbs.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.SVGPathSegCurvetoCubicAbs ( - module Language.Javascript.JSaddle.DOM.SVGPathSegCurvetoCubicAbs - ) where -import Language.Javascript.JSaddle.DOM.SVGPathSegCurvetoCubicAbs diff --git a/jsaddle/GHCJS/DOM/SVGPathSegCurvetoCubicRel.hs b/jsaddle/GHCJS/DOM/SVGPathSegCurvetoCubicRel.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/SVGPathSegCurvetoCubicRel.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.SVGPathSegCurvetoCubicRel ( - module Language.Javascript.JSaddle.DOM.SVGPathSegCurvetoCubicRel - ) where -import Language.Javascript.JSaddle.DOM.SVGPathSegCurvetoCubicRel diff --git a/jsaddle/GHCJS/DOM/SVGPathSegCurvetoCubicSmoothAbs.hs b/jsaddle/GHCJS/DOM/SVGPathSegCurvetoCubicSmoothAbs.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/SVGPathSegCurvetoCubicSmoothAbs.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.SVGPathSegCurvetoCubicSmoothAbs ( - module Language.Javascript.JSaddle.DOM.SVGPathSegCurvetoCubicSmoothAbs - ) where -import Language.Javascript.JSaddle.DOM.SVGPathSegCurvetoCubicSmoothAbs diff --git a/jsaddle/GHCJS/DOM/SVGPathSegCurvetoCubicSmoothRel.hs b/jsaddle/GHCJS/DOM/SVGPathSegCurvetoCubicSmoothRel.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/SVGPathSegCurvetoCubicSmoothRel.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.SVGPathSegCurvetoCubicSmoothRel ( - module Language.Javascript.JSaddle.DOM.SVGPathSegCurvetoCubicSmoothRel - ) where -import Language.Javascript.JSaddle.DOM.SVGPathSegCurvetoCubicSmoothRel diff --git a/jsaddle/GHCJS/DOM/SVGPathSegCurvetoQuadraticAbs.hs b/jsaddle/GHCJS/DOM/SVGPathSegCurvetoQuadraticAbs.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/SVGPathSegCurvetoQuadraticAbs.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.SVGPathSegCurvetoQuadraticAbs ( - module Language.Javascript.JSaddle.DOM.SVGPathSegCurvetoQuadraticAbs - ) where -import Language.Javascript.JSaddle.DOM.SVGPathSegCurvetoQuadraticAbs diff --git a/jsaddle/GHCJS/DOM/SVGPathSegCurvetoQuadraticRel.hs b/jsaddle/GHCJS/DOM/SVGPathSegCurvetoQuadraticRel.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/SVGPathSegCurvetoQuadraticRel.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.SVGPathSegCurvetoQuadraticRel ( - module Language.Javascript.JSaddle.DOM.SVGPathSegCurvetoQuadraticRel - ) where -import Language.Javascript.JSaddle.DOM.SVGPathSegCurvetoQuadraticRel diff --git a/jsaddle/GHCJS/DOM/SVGPathSegCurvetoQuadraticSmoothAbs.hs b/jsaddle/GHCJS/DOM/SVGPathSegCurvetoQuadraticSmoothAbs.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/SVGPathSegCurvetoQuadraticSmoothAbs.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.SVGPathSegCurvetoQuadraticSmoothAbs ( - module Language.Javascript.JSaddle.DOM.SVGPathSegCurvetoQuadraticSmoothAbs - ) where -import Language.Javascript.JSaddle.DOM.SVGPathSegCurvetoQuadraticSmoothAbs diff --git a/jsaddle/GHCJS/DOM/SVGPathSegCurvetoQuadraticSmoothRel.hs b/jsaddle/GHCJS/DOM/SVGPathSegCurvetoQuadraticSmoothRel.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/SVGPathSegCurvetoQuadraticSmoothRel.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.SVGPathSegCurvetoQuadraticSmoothRel ( - module Language.Javascript.JSaddle.DOM.SVGPathSegCurvetoQuadraticSmoothRel - ) where -import Language.Javascript.JSaddle.DOM.SVGPathSegCurvetoQuadraticSmoothRel diff --git a/jsaddle/GHCJS/DOM/SVGPathSegLinetoAbs.hs b/jsaddle/GHCJS/DOM/SVGPathSegLinetoAbs.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/SVGPathSegLinetoAbs.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.SVGPathSegLinetoAbs ( - module Language.Javascript.JSaddle.DOM.SVGPathSegLinetoAbs - ) where -import Language.Javascript.JSaddle.DOM.SVGPathSegLinetoAbs diff --git a/jsaddle/GHCJS/DOM/SVGPathSegLinetoHorizontalAbs.hs b/jsaddle/GHCJS/DOM/SVGPathSegLinetoHorizontalAbs.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/SVGPathSegLinetoHorizontalAbs.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.SVGPathSegLinetoHorizontalAbs ( - module Language.Javascript.JSaddle.DOM.SVGPathSegLinetoHorizontalAbs - ) where -import Language.Javascript.JSaddle.DOM.SVGPathSegLinetoHorizontalAbs diff --git a/jsaddle/GHCJS/DOM/SVGPathSegLinetoHorizontalRel.hs b/jsaddle/GHCJS/DOM/SVGPathSegLinetoHorizontalRel.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/SVGPathSegLinetoHorizontalRel.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.SVGPathSegLinetoHorizontalRel ( - module Language.Javascript.JSaddle.DOM.SVGPathSegLinetoHorizontalRel - ) where -import Language.Javascript.JSaddle.DOM.SVGPathSegLinetoHorizontalRel diff --git a/jsaddle/GHCJS/DOM/SVGPathSegLinetoRel.hs b/jsaddle/GHCJS/DOM/SVGPathSegLinetoRel.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/SVGPathSegLinetoRel.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.SVGPathSegLinetoRel ( - module Language.Javascript.JSaddle.DOM.SVGPathSegLinetoRel - ) where -import Language.Javascript.JSaddle.DOM.SVGPathSegLinetoRel diff --git a/jsaddle/GHCJS/DOM/SVGPathSegLinetoVerticalAbs.hs b/jsaddle/GHCJS/DOM/SVGPathSegLinetoVerticalAbs.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/SVGPathSegLinetoVerticalAbs.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.SVGPathSegLinetoVerticalAbs ( - module Language.Javascript.JSaddle.DOM.SVGPathSegLinetoVerticalAbs - ) where -import Language.Javascript.JSaddle.DOM.SVGPathSegLinetoVerticalAbs diff --git a/jsaddle/GHCJS/DOM/SVGPathSegLinetoVerticalRel.hs b/jsaddle/GHCJS/DOM/SVGPathSegLinetoVerticalRel.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/SVGPathSegLinetoVerticalRel.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.SVGPathSegLinetoVerticalRel ( - module Language.Javascript.JSaddle.DOM.SVGPathSegLinetoVerticalRel - ) where -import Language.Javascript.JSaddle.DOM.SVGPathSegLinetoVerticalRel diff --git a/jsaddle/GHCJS/DOM/SVGPathSegList.hs b/jsaddle/GHCJS/DOM/SVGPathSegList.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/SVGPathSegList.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.SVGPathSegList ( - module Language.Javascript.JSaddle.DOM.SVGPathSegList - ) where -import Language.Javascript.JSaddle.DOM.SVGPathSegList diff --git a/jsaddle/GHCJS/DOM/SVGPathSegMovetoAbs.hs b/jsaddle/GHCJS/DOM/SVGPathSegMovetoAbs.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/SVGPathSegMovetoAbs.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.SVGPathSegMovetoAbs ( - module Language.Javascript.JSaddle.DOM.SVGPathSegMovetoAbs - ) where -import Language.Javascript.JSaddle.DOM.SVGPathSegMovetoAbs diff --git a/jsaddle/GHCJS/DOM/SVGPathSegMovetoRel.hs b/jsaddle/GHCJS/DOM/SVGPathSegMovetoRel.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/SVGPathSegMovetoRel.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.SVGPathSegMovetoRel ( - module Language.Javascript.JSaddle.DOM.SVGPathSegMovetoRel - ) where -import Language.Javascript.JSaddle.DOM.SVGPathSegMovetoRel diff --git a/jsaddle/GHCJS/DOM/SVGPatternElement.hs b/jsaddle/GHCJS/DOM/SVGPatternElement.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/SVGPatternElement.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.SVGPatternElement ( - module Language.Javascript.JSaddle.DOM.SVGPatternElement - ) where -import Language.Javascript.JSaddle.DOM.SVGPatternElement diff --git a/jsaddle/GHCJS/DOM/SVGPoint.hs b/jsaddle/GHCJS/DOM/SVGPoint.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/SVGPoint.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.SVGPoint ( - module Language.Javascript.JSaddle.DOM.SVGPoint - ) where -import Language.Javascript.JSaddle.DOM.SVGPoint diff --git a/jsaddle/GHCJS/DOM/SVGPointList.hs b/jsaddle/GHCJS/DOM/SVGPointList.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/SVGPointList.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.SVGPointList ( - module Language.Javascript.JSaddle.DOM.SVGPointList - ) where -import Language.Javascript.JSaddle.DOM.SVGPointList diff --git a/jsaddle/GHCJS/DOM/SVGPolygonElement.hs b/jsaddle/GHCJS/DOM/SVGPolygonElement.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/SVGPolygonElement.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.SVGPolygonElement ( - module Language.Javascript.JSaddle.DOM.SVGPolygonElement - ) where -import Language.Javascript.JSaddle.DOM.SVGPolygonElement diff --git a/jsaddle/GHCJS/DOM/SVGPolylineElement.hs b/jsaddle/GHCJS/DOM/SVGPolylineElement.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/SVGPolylineElement.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.SVGPolylineElement ( - module Language.Javascript.JSaddle.DOM.SVGPolylineElement - ) where -import Language.Javascript.JSaddle.DOM.SVGPolylineElement diff --git a/jsaddle/GHCJS/DOM/SVGPreserveAspectRatio.hs b/jsaddle/GHCJS/DOM/SVGPreserveAspectRatio.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/SVGPreserveAspectRatio.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.SVGPreserveAspectRatio ( - module Language.Javascript.JSaddle.DOM.SVGPreserveAspectRatio - ) where -import Language.Javascript.JSaddle.DOM.SVGPreserveAspectRatio diff --git a/jsaddle/GHCJS/DOM/SVGRadialGradientElement.hs b/jsaddle/GHCJS/DOM/SVGRadialGradientElement.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/SVGRadialGradientElement.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.SVGRadialGradientElement ( - module Language.Javascript.JSaddle.DOM.SVGRadialGradientElement - ) where -import Language.Javascript.JSaddle.DOM.SVGRadialGradientElement diff --git a/jsaddle/GHCJS/DOM/SVGRect.hs b/jsaddle/GHCJS/DOM/SVGRect.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/SVGRect.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.SVGRect ( - module Language.Javascript.JSaddle.DOM.SVGRect - ) where -import Language.Javascript.JSaddle.DOM.SVGRect diff --git a/jsaddle/GHCJS/DOM/SVGRectElement.hs b/jsaddle/GHCJS/DOM/SVGRectElement.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/SVGRectElement.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.SVGRectElement ( - module Language.Javascript.JSaddle.DOM.SVGRectElement - ) where -import Language.Javascript.JSaddle.DOM.SVGRectElement diff --git a/jsaddle/GHCJS/DOM/SVGRenderingIntent.hs b/jsaddle/GHCJS/DOM/SVGRenderingIntent.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/SVGRenderingIntent.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.SVGRenderingIntent ( - module Language.Javascript.JSaddle.DOM.SVGRenderingIntent - ) where -import Language.Javascript.JSaddle.DOM.SVGRenderingIntent diff --git a/jsaddle/GHCJS/DOM/SVGSVGElement.hs b/jsaddle/GHCJS/DOM/SVGSVGElement.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/SVGSVGElement.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.SVGSVGElement ( - module Language.Javascript.JSaddle.DOM.SVGSVGElement - ) where -import Language.Javascript.JSaddle.DOM.SVGSVGElement diff --git a/jsaddle/GHCJS/DOM/SVGScriptElement.hs b/jsaddle/GHCJS/DOM/SVGScriptElement.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/SVGScriptElement.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.SVGScriptElement ( - module Language.Javascript.JSaddle.DOM.SVGScriptElement - ) where -import Language.Javascript.JSaddle.DOM.SVGScriptElement diff --git a/jsaddle/GHCJS/DOM/SVGStopElement.hs b/jsaddle/GHCJS/DOM/SVGStopElement.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/SVGStopElement.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.SVGStopElement ( - module Language.Javascript.JSaddle.DOM.SVGStopElement - ) where -import Language.Javascript.JSaddle.DOM.SVGStopElement diff --git a/jsaddle/GHCJS/DOM/SVGStringList.hs b/jsaddle/GHCJS/DOM/SVGStringList.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/SVGStringList.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.SVGStringList ( - module Language.Javascript.JSaddle.DOM.SVGStringList - ) where -import Language.Javascript.JSaddle.DOM.SVGStringList diff --git a/jsaddle/GHCJS/DOM/SVGStyleElement.hs b/jsaddle/GHCJS/DOM/SVGStyleElement.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/SVGStyleElement.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.SVGStyleElement ( - module Language.Javascript.JSaddle.DOM.SVGStyleElement - ) where -import Language.Javascript.JSaddle.DOM.SVGStyleElement diff --git a/jsaddle/GHCJS/DOM/SVGTests.hs b/jsaddle/GHCJS/DOM/SVGTests.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/SVGTests.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.SVGTests ( - module Language.Javascript.JSaddle.DOM.SVGTests - ) where -import Language.Javascript.JSaddle.DOM.SVGTests diff --git a/jsaddle/GHCJS/DOM/SVGTextContentElement.hs b/jsaddle/GHCJS/DOM/SVGTextContentElement.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/SVGTextContentElement.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.SVGTextContentElement ( - module Language.Javascript.JSaddle.DOM.SVGTextContentElement - ) where -import Language.Javascript.JSaddle.DOM.SVGTextContentElement diff --git a/jsaddle/GHCJS/DOM/SVGTextPathElement.hs b/jsaddle/GHCJS/DOM/SVGTextPathElement.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/SVGTextPathElement.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.SVGTextPathElement ( - module Language.Javascript.JSaddle.DOM.SVGTextPathElement - ) where -import Language.Javascript.JSaddle.DOM.SVGTextPathElement diff --git a/jsaddle/GHCJS/DOM/SVGTextPositioningElement.hs b/jsaddle/GHCJS/DOM/SVGTextPositioningElement.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/SVGTextPositioningElement.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.SVGTextPositioningElement ( - module Language.Javascript.JSaddle.DOM.SVGTextPositioningElement - ) where -import Language.Javascript.JSaddle.DOM.SVGTextPositioningElement diff --git a/jsaddle/GHCJS/DOM/SVGTransform.hs b/jsaddle/GHCJS/DOM/SVGTransform.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/SVGTransform.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.SVGTransform ( - module Language.Javascript.JSaddle.DOM.SVGTransform - ) where -import Language.Javascript.JSaddle.DOM.SVGTransform diff --git a/jsaddle/GHCJS/DOM/SVGTransformList.hs b/jsaddle/GHCJS/DOM/SVGTransformList.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/SVGTransformList.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.SVGTransformList ( - module Language.Javascript.JSaddle.DOM.SVGTransformList - ) where -import Language.Javascript.JSaddle.DOM.SVGTransformList diff --git a/jsaddle/GHCJS/DOM/SVGURIReference.hs b/jsaddle/GHCJS/DOM/SVGURIReference.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/SVGURIReference.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.SVGURIReference ( - module Language.Javascript.JSaddle.DOM.SVGURIReference - ) where -import Language.Javascript.JSaddle.DOM.SVGURIReference diff --git a/jsaddle/GHCJS/DOM/SVGUnitTypes.hs b/jsaddle/GHCJS/DOM/SVGUnitTypes.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/SVGUnitTypes.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.SVGUnitTypes ( - module Language.Javascript.JSaddle.DOM.SVGUnitTypes - ) where -import Language.Javascript.JSaddle.DOM.SVGUnitTypes diff --git a/jsaddle/GHCJS/DOM/SVGUseElement.hs b/jsaddle/GHCJS/DOM/SVGUseElement.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/SVGUseElement.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.SVGUseElement ( - module Language.Javascript.JSaddle.DOM.SVGUseElement - ) where -import Language.Javascript.JSaddle.DOM.SVGUseElement diff --git a/jsaddle/GHCJS/DOM/SVGViewElement.hs b/jsaddle/GHCJS/DOM/SVGViewElement.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/SVGViewElement.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.SVGViewElement ( - module Language.Javascript.JSaddle.DOM.SVGViewElement - ) where -import Language.Javascript.JSaddle.DOM.SVGViewElement diff --git a/jsaddle/GHCJS/DOM/SVGViewSpec.hs b/jsaddle/GHCJS/DOM/SVGViewSpec.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/SVGViewSpec.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.SVGViewSpec ( - module Language.Javascript.JSaddle.DOM.SVGViewSpec - ) where -import Language.Javascript.JSaddle.DOM.SVGViewSpec diff --git a/jsaddle/GHCJS/DOM/SVGZoomAndPan.hs b/jsaddle/GHCJS/DOM/SVGZoomAndPan.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/SVGZoomAndPan.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.SVGZoomAndPan ( - module Language.Javascript.JSaddle.DOM.SVGZoomAndPan - ) where -import Language.Javascript.JSaddle.DOM.SVGZoomAndPan diff --git a/jsaddle/GHCJS/DOM/SVGZoomEvent.hs b/jsaddle/GHCJS/DOM/SVGZoomEvent.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/SVGZoomEvent.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.SVGZoomEvent ( - module Language.Javascript.JSaddle.DOM.SVGZoomEvent - ) where -import Language.Javascript.JSaddle.DOM.SVGZoomEvent diff --git a/jsaddle/GHCJS/DOM/Screen.hs b/jsaddle/GHCJS/DOM/Screen.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/Screen.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.Screen ( - module Language.Javascript.JSaddle.DOM.Screen - ) where -import Language.Javascript.JSaddle.DOM.Screen diff --git a/jsaddle/GHCJS/DOM/ScriptProcessorNode.hs b/jsaddle/GHCJS/DOM/ScriptProcessorNode.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/ScriptProcessorNode.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.ScriptProcessorNode ( - module Language.Javascript.JSaddle.DOM.ScriptProcessorNode - ) where -import Language.Javascript.JSaddle.DOM.ScriptProcessorNode diff --git a/jsaddle/GHCJS/DOM/ScriptProfile.hs b/jsaddle/GHCJS/DOM/ScriptProfile.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/ScriptProfile.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.ScriptProfile ( - module Language.Javascript.JSaddle.DOM.ScriptProfile - ) where -import Language.Javascript.JSaddle.DOM.ScriptProfile diff --git a/jsaddle/GHCJS/DOM/ScriptProfileNode.hs b/jsaddle/GHCJS/DOM/ScriptProfileNode.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/ScriptProfileNode.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.ScriptProfileNode ( - module Language.Javascript.JSaddle.DOM.ScriptProfileNode - ) where -import Language.Javascript.JSaddle.DOM.ScriptProfileNode diff --git a/jsaddle/GHCJS/DOM/SecurityPolicy.hs b/jsaddle/GHCJS/DOM/SecurityPolicy.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/SecurityPolicy.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.SecurityPolicy ( - module Language.Javascript.JSaddle.DOM.SecurityPolicy - ) where -import Language.Javascript.JSaddle.DOM.SecurityPolicy diff --git a/jsaddle/GHCJS/DOM/SecurityPolicyViolationEvent.hs b/jsaddle/GHCJS/DOM/SecurityPolicyViolationEvent.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/SecurityPolicyViolationEvent.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.SecurityPolicyViolationEvent ( - module Language.Javascript.JSaddle.DOM.SecurityPolicyViolationEvent - ) where -import Language.Javascript.JSaddle.DOM.SecurityPolicyViolationEvent diff --git a/jsaddle/GHCJS/DOM/Selection.hs b/jsaddle/GHCJS/DOM/Selection.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/Selection.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.Selection ( - module Language.Javascript.JSaddle.DOM.Selection - ) where -import Language.Javascript.JSaddle.DOM.Selection diff --git a/jsaddle/GHCJS/DOM/SourceBuffer.hs b/jsaddle/GHCJS/DOM/SourceBuffer.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/SourceBuffer.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.SourceBuffer ( - module Language.Javascript.JSaddle.DOM.SourceBuffer - ) where -import Language.Javascript.JSaddle.DOM.SourceBuffer diff --git a/jsaddle/GHCJS/DOM/SourceBufferList.hs b/jsaddle/GHCJS/DOM/SourceBufferList.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/SourceBufferList.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.SourceBufferList ( - module Language.Javascript.JSaddle.DOM.SourceBufferList - ) where -import Language.Javascript.JSaddle.DOM.SourceBufferList diff --git a/jsaddle/GHCJS/DOM/SourceInfo.hs b/jsaddle/GHCJS/DOM/SourceInfo.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/SourceInfo.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.SourceInfo ( - module Language.Javascript.JSaddle.DOM.SourceInfo - ) where -import Language.Javascript.JSaddle.DOM.SourceInfo diff --git a/jsaddle/GHCJS/DOM/SpeechSynthesis.hs b/jsaddle/GHCJS/DOM/SpeechSynthesis.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/SpeechSynthesis.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.SpeechSynthesis ( - module Language.Javascript.JSaddle.DOM.SpeechSynthesis - ) where -import Language.Javascript.JSaddle.DOM.SpeechSynthesis diff --git a/jsaddle/GHCJS/DOM/SpeechSynthesisEvent.hs b/jsaddle/GHCJS/DOM/SpeechSynthesisEvent.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/SpeechSynthesisEvent.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.SpeechSynthesisEvent ( - module Language.Javascript.JSaddle.DOM.SpeechSynthesisEvent - ) where -import Language.Javascript.JSaddle.DOM.SpeechSynthesisEvent diff --git a/jsaddle/GHCJS/DOM/SpeechSynthesisUtterance.hs b/jsaddle/GHCJS/DOM/SpeechSynthesisUtterance.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/SpeechSynthesisUtterance.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.SpeechSynthesisUtterance ( - module Language.Javascript.JSaddle.DOM.SpeechSynthesisUtterance - ) where -import Language.Javascript.JSaddle.DOM.SpeechSynthesisUtterance diff --git a/jsaddle/GHCJS/DOM/SpeechSynthesisVoice.hs b/jsaddle/GHCJS/DOM/SpeechSynthesisVoice.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/SpeechSynthesisVoice.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.SpeechSynthesisVoice ( - module Language.Javascript.JSaddle.DOM.SpeechSynthesisVoice - ) where -import Language.Javascript.JSaddle.DOM.SpeechSynthesisVoice diff --git a/jsaddle/GHCJS/DOM/Storage.hs b/jsaddle/GHCJS/DOM/Storage.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/Storage.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.Storage ( - module Language.Javascript.JSaddle.DOM.Storage - ) where -import Language.Javascript.JSaddle.DOM.Storage diff --git a/jsaddle/GHCJS/DOM/StorageErrorCallback.hs b/jsaddle/GHCJS/DOM/StorageErrorCallback.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/StorageErrorCallback.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.StorageErrorCallback ( - module Language.Javascript.JSaddle.DOM.StorageErrorCallback - ) where -import Language.Javascript.JSaddle.DOM.StorageErrorCallback diff --git a/jsaddle/GHCJS/DOM/StorageEvent.hs b/jsaddle/GHCJS/DOM/StorageEvent.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/StorageEvent.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.StorageEvent ( - module Language.Javascript.JSaddle.DOM.StorageEvent - ) where -import Language.Javascript.JSaddle.DOM.StorageEvent diff --git a/jsaddle/GHCJS/DOM/StorageInfo.hs b/jsaddle/GHCJS/DOM/StorageInfo.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/StorageInfo.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.StorageInfo ( - module Language.Javascript.JSaddle.DOM.StorageInfo - ) where -import Language.Javascript.JSaddle.DOM.StorageInfo diff --git a/jsaddle/GHCJS/DOM/StorageQuota.hs b/jsaddle/GHCJS/DOM/StorageQuota.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/StorageQuota.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.StorageQuota ( - module Language.Javascript.JSaddle.DOM.StorageQuota - ) where -import Language.Javascript.JSaddle.DOM.StorageQuota diff --git a/jsaddle/GHCJS/DOM/StorageQuotaCallback.hs b/jsaddle/GHCJS/DOM/StorageQuotaCallback.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/StorageQuotaCallback.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.StorageQuotaCallback ( - module Language.Javascript.JSaddle.DOM.StorageQuotaCallback - ) where -import Language.Javascript.JSaddle.DOM.StorageQuotaCallback diff --git a/jsaddle/GHCJS/DOM/StorageUsageCallback.hs b/jsaddle/GHCJS/DOM/StorageUsageCallback.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/StorageUsageCallback.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.StorageUsageCallback ( - module Language.Javascript.JSaddle.DOM.StorageUsageCallback - ) where -import Language.Javascript.JSaddle.DOM.StorageUsageCallback diff --git a/jsaddle/GHCJS/DOM/StringCallback.hs b/jsaddle/GHCJS/DOM/StringCallback.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/StringCallback.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.StringCallback ( - module Language.Javascript.JSaddle.DOM.StringCallback - ) where -import Language.Javascript.JSaddle.DOM.StringCallback diff --git a/jsaddle/GHCJS/DOM/StyleMedia.hs b/jsaddle/GHCJS/DOM/StyleMedia.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/StyleMedia.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.StyleMedia ( - module Language.Javascript.JSaddle.DOM.StyleMedia - ) where -import Language.Javascript.JSaddle.DOM.StyleMedia diff --git a/jsaddle/GHCJS/DOM/StyleSheet.hs b/jsaddle/GHCJS/DOM/StyleSheet.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/StyleSheet.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.StyleSheet ( - module Language.Javascript.JSaddle.DOM.StyleSheet - ) where -import Language.Javascript.JSaddle.DOM.StyleSheet diff --git a/jsaddle/GHCJS/DOM/StyleSheetList.hs b/jsaddle/GHCJS/DOM/StyleSheetList.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/StyleSheetList.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.StyleSheetList ( - module Language.Javascript.JSaddle.DOM.StyleSheetList - ) where -import Language.Javascript.JSaddle.DOM.StyleSheetList diff --git a/jsaddle/GHCJS/DOM/SubtleCrypto.hs b/jsaddle/GHCJS/DOM/SubtleCrypto.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/SubtleCrypto.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.SubtleCrypto ( - module Language.Javascript.JSaddle.DOM.SubtleCrypto - ) where -import Language.Javascript.JSaddle.DOM.SubtleCrypto diff --git a/jsaddle/GHCJS/DOM/Text.hs b/jsaddle/GHCJS/DOM/Text.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/Text.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.Text ( - module Language.Javascript.JSaddle.DOM.Text - ) where -import Language.Javascript.JSaddle.DOM.Text diff --git a/jsaddle/GHCJS/DOM/TextEvent.hs b/jsaddle/GHCJS/DOM/TextEvent.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/TextEvent.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.TextEvent ( - module Language.Javascript.JSaddle.DOM.TextEvent - ) where -import Language.Javascript.JSaddle.DOM.TextEvent diff --git a/jsaddle/GHCJS/DOM/TextMetrics.hs b/jsaddle/GHCJS/DOM/TextMetrics.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/TextMetrics.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.TextMetrics ( - module Language.Javascript.JSaddle.DOM.TextMetrics - ) where -import Language.Javascript.JSaddle.DOM.TextMetrics diff --git a/jsaddle/GHCJS/DOM/TextTrack.hs b/jsaddle/GHCJS/DOM/TextTrack.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/TextTrack.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.TextTrack ( - module Language.Javascript.JSaddle.DOM.TextTrack - ) where -import Language.Javascript.JSaddle.DOM.TextTrack diff --git a/jsaddle/GHCJS/DOM/TextTrackCue.hs b/jsaddle/GHCJS/DOM/TextTrackCue.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/TextTrackCue.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.TextTrackCue ( - module Language.Javascript.JSaddle.DOM.TextTrackCue - ) where -import Language.Javascript.JSaddle.DOM.TextTrackCue diff --git a/jsaddle/GHCJS/DOM/TextTrackCueList.hs b/jsaddle/GHCJS/DOM/TextTrackCueList.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/TextTrackCueList.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.TextTrackCueList ( - module Language.Javascript.JSaddle.DOM.TextTrackCueList - ) where -import Language.Javascript.JSaddle.DOM.TextTrackCueList diff --git a/jsaddle/GHCJS/DOM/TextTrackList.hs b/jsaddle/GHCJS/DOM/TextTrackList.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/TextTrackList.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.TextTrackList ( - module Language.Javascript.JSaddle.DOM.TextTrackList - ) where -import Language.Javascript.JSaddle.DOM.TextTrackList diff --git a/jsaddle/GHCJS/DOM/TimeRanges.hs b/jsaddle/GHCJS/DOM/TimeRanges.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/TimeRanges.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.TimeRanges ( - module Language.Javascript.JSaddle.DOM.TimeRanges - ) where -import Language.Javascript.JSaddle.DOM.TimeRanges diff --git a/jsaddle/GHCJS/DOM/Touch.hs b/jsaddle/GHCJS/DOM/Touch.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/Touch.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.Touch ( - module Language.Javascript.JSaddle.DOM.Touch - ) where -import Language.Javascript.JSaddle.DOM.Touch diff --git a/jsaddle/GHCJS/DOM/TouchEvent.hs b/jsaddle/GHCJS/DOM/TouchEvent.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/TouchEvent.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.TouchEvent ( - module Language.Javascript.JSaddle.DOM.TouchEvent - ) where -import Language.Javascript.JSaddle.DOM.TouchEvent diff --git a/jsaddle/GHCJS/DOM/TouchList.hs b/jsaddle/GHCJS/DOM/TouchList.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/TouchList.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.TouchList ( - module Language.Javascript.JSaddle.DOM.TouchList - ) where -import Language.Javascript.JSaddle.DOM.TouchList diff --git a/jsaddle/GHCJS/DOM/TrackEvent.hs b/jsaddle/GHCJS/DOM/TrackEvent.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/TrackEvent.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.TrackEvent ( - module Language.Javascript.JSaddle.DOM.TrackEvent - ) where -import Language.Javascript.JSaddle.DOM.TrackEvent diff --git a/jsaddle/GHCJS/DOM/TransitionEvent.hs b/jsaddle/GHCJS/DOM/TransitionEvent.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/TransitionEvent.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.TransitionEvent ( - module Language.Javascript.JSaddle.DOM.TransitionEvent - ) where -import Language.Javascript.JSaddle.DOM.TransitionEvent diff --git a/jsaddle/GHCJS/DOM/TreeWalker.hs b/jsaddle/GHCJS/DOM/TreeWalker.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/TreeWalker.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.TreeWalker ( - module Language.Javascript.JSaddle.DOM.TreeWalker - ) where -import Language.Javascript.JSaddle.DOM.TreeWalker diff --git a/jsaddle/GHCJS/DOM/TypeConversions.hs b/jsaddle/GHCJS/DOM/TypeConversions.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/TypeConversions.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.TypeConversions ( - module Language.Javascript.JSaddle.DOM.TypeConversions - ) where -import Language.Javascript.JSaddle.DOM.TypeConversions diff --git a/jsaddle/GHCJS/DOM/Types.hs b/jsaddle/GHCJS/DOM/Types.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/Types.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.Types ( - module Language.Javascript.JSaddle.DOM.Types - ) where -import Language.Javascript.JSaddle.DOM.Types diff --git a/jsaddle/GHCJS/DOM/UIEvent.hs b/jsaddle/GHCJS/DOM/UIEvent.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/UIEvent.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.UIEvent ( - module Language.Javascript.JSaddle.DOM.UIEvent - ) where -import Language.Javascript.JSaddle.DOM.UIEvent diff --git a/jsaddle/GHCJS/DOM/UIRequestEvent.hs b/jsaddle/GHCJS/DOM/UIRequestEvent.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/UIRequestEvent.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.UIRequestEvent ( - module Language.Javascript.JSaddle.DOM.UIRequestEvent - ) where -import Language.Javascript.JSaddle.DOM.UIRequestEvent diff --git a/jsaddle/GHCJS/DOM/URL.hs b/jsaddle/GHCJS/DOM/URL.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/URL.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.URL ( - module Language.Javascript.JSaddle.DOM.URL - ) where -import Language.Javascript.JSaddle.DOM.URL diff --git a/jsaddle/GHCJS/DOM/URLUtils.hs b/jsaddle/GHCJS/DOM/URLUtils.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/URLUtils.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.URLUtils ( - module Language.Javascript.JSaddle.DOM.URLUtils - ) where -import Language.Javascript.JSaddle.DOM.URLUtils diff --git a/jsaddle/GHCJS/DOM/UserMessageHandler.hs b/jsaddle/GHCJS/DOM/UserMessageHandler.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/UserMessageHandler.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.UserMessageHandler ( - module Language.Javascript.JSaddle.DOM.UserMessageHandler - ) where -import Language.Javascript.JSaddle.DOM.UserMessageHandler diff --git a/jsaddle/GHCJS/DOM/VTTCue.hs b/jsaddle/GHCJS/DOM/VTTCue.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/VTTCue.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.VTTCue ( - module Language.Javascript.JSaddle.DOM.VTTCue - ) where -import Language.Javascript.JSaddle.DOM.VTTCue diff --git a/jsaddle/GHCJS/DOM/VTTRegion.hs b/jsaddle/GHCJS/DOM/VTTRegion.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/VTTRegion.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.VTTRegion ( - module Language.Javascript.JSaddle.DOM.VTTRegion - ) where -import Language.Javascript.JSaddle.DOM.VTTRegion diff --git a/jsaddle/GHCJS/DOM/VTTRegionList.hs b/jsaddle/GHCJS/DOM/VTTRegionList.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/VTTRegionList.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.VTTRegionList ( - module Language.Javascript.JSaddle.DOM.VTTRegionList - ) where -import Language.Javascript.JSaddle.DOM.VTTRegionList diff --git a/jsaddle/GHCJS/DOM/ValidityState.hs b/jsaddle/GHCJS/DOM/ValidityState.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/ValidityState.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.ValidityState ( - module Language.Javascript.JSaddle.DOM.ValidityState - ) where -import Language.Javascript.JSaddle.DOM.ValidityState diff --git a/jsaddle/GHCJS/DOM/VideoPlaybackQuality.hs b/jsaddle/GHCJS/DOM/VideoPlaybackQuality.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/VideoPlaybackQuality.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.VideoPlaybackQuality ( - module Language.Javascript.JSaddle.DOM.VideoPlaybackQuality - ) where -import Language.Javascript.JSaddle.DOM.VideoPlaybackQuality diff --git a/jsaddle/GHCJS/DOM/VideoStreamTrack.hs b/jsaddle/GHCJS/DOM/VideoStreamTrack.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/VideoStreamTrack.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.VideoStreamTrack ( - module Language.Javascript.JSaddle.DOM.VideoStreamTrack - ) where -import Language.Javascript.JSaddle.DOM.VideoStreamTrack diff --git a/jsaddle/GHCJS/DOM/VideoTrack.hs b/jsaddle/GHCJS/DOM/VideoTrack.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/VideoTrack.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.VideoTrack ( - module Language.Javascript.JSaddle.DOM.VideoTrack - ) where -import Language.Javascript.JSaddle.DOM.VideoTrack diff --git a/jsaddle/GHCJS/DOM/VideoTrackList.hs b/jsaddle/GHCJS/DOM/VideoTrackList.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/VideoTrackList.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.VideoTrackList ( - module Language.Javascript.JSaddle.DOM.VideoTrackList - ) where -import Language.Javascript.JSaddle.DOM.VideoTrackList diff --git a/jsaddle/GHCJS/DOM/VoidCallback.hs b/jsaddle/GHCJS/DOM/VoidCallback.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/VoidCallback.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.VoidCallback ( - module Language.Javascript.JSaddle.DOM.VoidCallback - ) where -import Language.Javascript.JSaddle.DOM.VoidCallback diff --git a/jsaddle/GHCJS/DOM/WaveShaperNode.hs b/jsaddle/GHCJS/DOM/WaveShaperNode.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/WaveShaperNode.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.WaveShaperNode ( - module Language.Javascript.JSaddle.DOM.WaveShaperNode - ) where -import Language.Javascript.JSaddle.DOM.WaveShaperNode diff --git a/jsaddle/GHCJS/DOM/WebGL2RenderingContext.hs b/jsaddle/GHCJS/DOM/WebGL2RenderingContext.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/WebGL2RenderingContext.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.WebGL2RenderingContext ( - module Language.Javascript.JSaddle.DOM.WebGL2RenderingContext - ) where -import Language.Javascript.JSaddle.DOM.WebGL2RenderingContext diff --git a/jsaddle/GHCJS/DOM/WebGLActiveInfo.hs b/jsaddle/GHCJS/DOM/WebGLActiveInfo.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/WebGLActiveInfo.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.WebGLActiveInfo ( - module Language.Javascript.JSaddle.DOM.WebGLActiveInfo - ) where -import Language.Javascript.JSaddle.DOM.WebGLActiveInfo diff --git a/jsaddle/GHCJS/DOM/WebGLCompressedTextureATC.hs b/jsaddle/GHCJS/DOM/WebGLCompressedTextureATC.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/WebGLCompressedTextureATC.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.WebGLCompressedTextureATC ( - module Language.Javascript.JSaddle.DOM.WebGLCompressedTextureATC - ) where -import Language.Javascript.JSaddle.DOM.WebGLCompressedTextureATC diff --git a/jsaddle/GHCJS/DOM/WebGLCompressedTexturePVRTC.hs b/jsaddle/GHCJS/DOM/WebGLCompressedTexturePVRTC.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/WebGLCompressedTexturePVRTC.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.WebGLCompressedTexturePVRTC ( - module Language.Javascript.JSaddle.DOM.WebGLCompressedTexturePVRTC - ) where -import Language.Javascript.JSaddle.DOM.WebGLCompressedTexturePVRTC diff --git a/jsaddle/GHCJS/DOM/WebGLCompressedTextureS3TC.hs b/jsaddle/GHCJS/DOM/WebGLCompressedTextureS3TC.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/WebGLCompressedTextureS3TC.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.WebGLCompressedTextureS3TC ( - module Language.Javascript.JSaddle.DOM.WebGLCompressedTextureS3TC - ) where -import Language.Javascript.JSaddle.DOM.WebGLCompressedTextureS3TC diff --git a/jsaddle/GHCJS/DOM/WebGLContextAttributes.hs b/jsaddle/GHCJS/DOM/WebGLContextAttributes.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/WebGLContextAttributes.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.WebGLContextAttributes ( - module Language.Javascript.JSaddle.DOM.WebGLContextAttributes - ) where -import Language.Javascript.JSaddle.DOM.WebGLContextAttributes diff --git a/jsaddle/GHCJS/DOM/WebGLContextEvent.hs b/jsaddle/GHCJS/DOM/WebGLContextEvent.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/WebGLContextEvent.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.WebGLContextEvent ( - module Language.Javascript.JSaddle.DOM.WebGLContextEvent - ) where -import Language.Javascript.JSaddle.DOM.WebGLContextEvent diff --git a/jsaddle/GHCJS/DOM/WebGLDebugRendererInfo.hs b/jsaddle/GHCJS/DOM/WebGLDebugRendererInfo.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/WebGLDebugRendererInfo.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.WebGLDebugRendererInfo ( - module Language.Javascript.JSaddle.DOM.WebGLDebugRendererInfo - ) where -import Language.Javascript.JSaddle.DOM.WebGLDebugRendererInfo diff --git a/jsaddle/GHCJS/DOM/WebGLDebugShaders.hs b/jsaddle/GHCJS/DOM/WebGLDebugShaders.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/WebGLDebugShaders.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.WebGLDebugShaders ( - module Language.Javascript.JSaddle.DOM.WebGLDebugShaders - ) where -import Language.Javascript.JSaddle.DOM.WebGLDebugShaders diff --git a/jsaddle/GHCJS/DOM/WebGLDepthTexture.hs b/jsaddle/GHCJS/DOM/WebGLDepthTexture.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/WebGLDepthTexture.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.WebGLDepthTexture ( - module Language.Javascript.JSaddle.DOM.WebGLDepthTexture - ) where -import Language.Javascript.JSaddle.DOM.WebGLDepthTexture diff --git a/jsaddle/GHCJS/DOM/WebGLDrawBuffers.hs b/jsaddle/GHCJS/DOM/WebGLDrawBuffers.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/WebGLDrawBuffers.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.WebGLDrawBuffers ( - module Language.Javascript.JSaddle.DOM.WebGLDrawBuffers - ) where -import Language.Javascript.JSaddle.DOM.WebGLDrawBuffers diff --git a/jsaddle/GHCJS/DOM/WebGLLoseContext.hs b/jsaddle/GHCJS/DOM/WebGLLoseContext.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/WebGLLoseContext.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.WebGLLoseContext ( - module Language.Javascript.JSaddle.DOM.WebGLLoseContext - ) where -import Language.Javascript.JSaddle.DOM.WebGLLoseContext diff --git a/jsaddle/GHCJS/DOM/WebGLRenderingContextBase.hs b/jsaddle/GHCJS/DOM/WebGLRenderingContextBase.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/WebGLRenderingContextBase.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.WebGLRenderingContextBase ( - module Language.Javascript.JSaddle.DOM.WebGLRenderingContextBase - ) where -import Language.Javascript.JSaddle.DOM.WebGLRenderingContextBase diff --git a/jsaddle/GHCJS/DOM/WebGLShaderPrecisionFormat.hs b/jsaddle/GHCJS/DOM/WebGLShaderPrecisionFormat.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/WebGLShaderPrecisionFormat.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.WebGLShaderPrecisionFormat ( - module Language.Javascript.JSaddle.DOM.WebGLShaderPrecisionFormat - ) where -import Language.Javascript.JSaddle.DOM.WebGLShaderPrecisionFormat diff --git a/jsaddle/GHCJS/DOM/WebKitAnimationEvent.hs b/jsaddle/GHCJS/DOM/WebKitAnimationEvent.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/WebKitAnimationEvent.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.WebKitAnimationEvent ( - module Language.Javascript.JSaddle.DOM.WebKitAnimationEvent - ) where -import Language.Javascript.JSaddle.DOM.WebKitAnimationEvent diff --git a/jsaddle/GHCJS/DOM/WebKitCSSFilterValue.hs b/jsaddle/GHCJS/DOM/WebKitCSSFilterValue.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/WebKitCSSFilterValue.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.WebKitCSSFilterValue ( - module Language.Javascript.JSaddle.DOM.WebKitCSSFilterValue - ) where -import Language.Javascript.JSaddle.DOM.WebKitCSSFilterValue diff --git a/jsaddle/GHCJS/DOM/WebKitCSSMatrix.hs b/jsaddle/GHCJS/DOM/WebKitCSSMatrix.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/WebKitCSSMatrix.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.WebKitCSSMatrix ( - module Language.Javascript.JSaddle.DOM.WebKitCSSMatrix - ) where -import Language.Javascript.JSaddle.DOM.WebKitCSSMatrix diff --git a/jsaddle/GHCJS/DOM/WebKitCSSRegionRule.hs b/jsaddle/GHCJS/DOM/WebKitCSSRegionRule.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/WebKitCSSRegionRule.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.WebKitCSSRegionRule ( - module Language.Javascript.JSaddle.DOM.WebKitCSSRegionRule - ) where -import Language.Javascript.JSaddle.DOM.WebKitCSSRegionRule diff --git a/jsaddle/GHCJS/DOM/WebKitCSSTransformValue.hs b/jsaddle/GHCJS/DOM/WebKitCSSTransformValue.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/WebKitCSSTransformValue.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.WebKitCSSTransformValue ( - module Language.Javascript.JSaddle.DOM.WebKitCSSTransformValue - ) where -import Language.Javascript.JSaddle.DOM.WebKitCSSTransformValue diff --git a/jsaddle/GHCJS/DOM/WebKitCSSViewportRule.hs b/jsaddle/GHCJS/DOM/WebKitCSSViewportRule.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/WebKitCSSViewportRule.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.WebKitCSSViewportRule ( - module Language.Javascript.JSaddle.DOM.WebKitCSSViewportRule - ) where -import Language.Javascript.JSaddle.DOM.WebKitCSSViewportRule diff --git a/jsaddle/GHCJS/DOM/WebKitNamedFlow.hs b/jsaddle/GHCJS/DOM/WebKitNamedFlow.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/WebKitNamedFlow.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.WebKitNamedFlow ( - module Language.Javascript.JSaddle.DOM.WebKitNamedFlow - ) where -import Language.Javascript.JSaddle.DOM.WebKitNamedFlow diff --git a/jsaddle/GHCJS/DOM/WebKitNamespace.hs b/jsaddle/GHCJS/DOM/WebKitNamespace.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/WebKitNamespace.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.WebKitNamespace ( - module Language.Javascript.JSaddle.DOM.WebKitNamespace - ) where -import Language.Javascript.JSaddle.DOM.WebKitNamespace diff --git a/jsaddle/GHCJS/DOM/WebKitPlaybackTargetAvailabilityEvent.hs b/jsaddle/GHCJS/DOM/WebKitPlaybackTargetAvailabilityEvent.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/WebKitPlaybackTargetAvailabilityEvent.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.WebKitPlaybackTargetAvailabilityEvent ( - module Language.Javascript.JSaddle.DOM.WebKitPlaybackTargetAvailabilityEvent - ) where -import Language.Javascript.JSaddle.DOM.WebKitPlaybackTargetAvailabilityEvent diff --git a/jsaddle/GHCJS/DOM/WebKitPoint.hs b/jsaddle/GHCJS/DOM/WebKitPoint.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/WebKitPoint.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.WebKitPoint ( - module Language.Javascript.JSaddle.DOM.WebKitPoint - ) where -import Language.Javascript.JSaddle.DOM.WebKitPoint diff --git a/jsaddle/GHCJS/DOM/WebKitTransitionEvent.hs b/jsaddle/GHCJS/DOM/WebKitTransitionEvent.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/WebKitTransitionEvent.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.WebKitTransitionEvent ( - module Language.Javascript.JSaddle.DOM.WebKitTransitionEvent - ) where -import Language.Javascript.JSaddle.DOM.WebKitTransitionEvent diff --git a/jsaddle/GHCJS/DOM/WebSocket.hs b/jsaddle/GHCJS/DOM/WebSocket.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/WebSocket.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.WebSocket ( - module Language.Javascript.JSaddle.DOM.WebSocket - ) where -import Language.Javascript.JSaddle.DOM.WebSocket diff --git a/jsaddle/GHCJS/DOM/WheelEvent.hs b/jsaddle/GHCJS/DOM/WheelEvent.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/WheelEvent.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.WheelEvent ( - module Language.Javascript.JSaddle.DOM.WheelEvent - ) where -import Language.Javascript.JSaddle.DOM.WheelEvent diff --git a/jsaddle/GHCJS/DOM/Window.hs b/jsaddle/GHCJS/DOM/Window.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/Window.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.Window ( - module Language.Javascript.JSaddle.DOM.Window - ) where -import Language.Javascript.JSaddle.DOM.Window diff --git a/jsaddle/GHCJS/DOM/WindowBase64.hs b/jsaddle/GHCJS/DOM/WindowBase64.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/WindowBase64.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.WindowBase64 ( - module Language.Javascript.JSaddle.DOM.WindowBase64 - ) where -import Language.Javascript.JSaddle.DOM.WindowBase64 diff --git a/jsaddle/GHCJS/DOM/WindowTimers.hs b/jsaddle/GHCJS/DOM/WindowTimers.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/WindowTimers.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.WindowTimers ( - module Language.Javascript.JSaddle.DOM.WindowTimers - ) where -import Language.Javascript.JSaddle.DOM.WindowTimers diff --git a/jsaddle/GHCJS/DOM/Worker.hs b/jsaddle/GHCJS/DOM/Worker.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/Worker.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.Worker ( - module Language.Javascript.JSaddle.DOM.Worker - ) where -import Language.Javascript.JSaddle.DOM.Worker diff --git a/jsaddle/GHCJS/DOM/WorkerGlobalScope.hs b/jsaddle/GHCJS/DOM/WorkerGlobalScope.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/WorkerGlobalScope.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.WorkerGlobalScope ( - module Language.Javascript.JSaddle.DOM.WorkerGlobalScope - ) where -import Language.Javascript.JSaddle.DOM.WorkerGlobalScope diff --git a/jsaddle/GHCJS/DOM/WorkerLocation.hs b/jsaddle/GHCJS/DOM/WorkerLocation.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/WorkerLocation.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.WorkerLocation ( - module Language.Javascript.JSaddle.DOM.WorkerLocation - ) where -import Language.Javascript.JSaddle.DOM.WorkerLocation diff --git a/jsaddle/GHCJS/DOM/WorkerNavigator.hs b/jsaddle/GHCJS/DOM/WorkerNavigator.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/WorkerNavigator.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.WorkerNavigator ( - module Language.Javascript.JSaddle.DOM.WorkerNavigator - ) where -import Language.Javascript.JSaddle.DOM.WorkerNavigator diff --git a/jsaddle/GHCJS/DOM/XMLHttpRequest.hs b/jsaddle/GHCJS/DOM/XMLHttpRequest.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/XMLHttpRequest.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.XMLHttpRequest ( - module Language.Javascript.JSaddle.DOM.XMLHttpRequest - ) where -import Language.Javascript.JSaddle.DOM.XMLHttpRequest diff --git a/jsaddle/GHCJS/DOM/XMLHttpRequestProgressEvent.hs b/jsaddle/GHCJS/DOM/XMLHttpRequestProgressEvent.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/XMLHttpRequestProgressEvent.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.XMLHttpRequestProgressEvent ( - module Language.Javascript.JSaddle.DOM.XMLHttpRequestProgressEvent - ) where -import Language.Javascript.JSaddle.DOM.XMLHttpRequestProgressEvent diff --git a/jsaddle/GHCJS/DOM/XMLHttpRequestUpload.hs b/jsaddle/GHCJS/DOM/XMLHttpRequestUpload.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/XMLHttpRequestUpload.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.XMLHttpRequestUpload ( - module Language.Javascript.JSaddle.DOM.XMLHttpRequestUpload - ) where -import Language.Javascript.JSaddle.DOM.XMLHttpRequestUpload diff --git a/jsaddle/GHCJS/DOM/XMLSerializer.hs b/jsaddle/GHCJS/DOM/XMLSerializer.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/XMLSerializer.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.XMLSerializer ( - module Language.Javascript.JSaddle.DOM.XMLSerializer - ) where -import Language.Javascript.JSaddle.DOM.XMLSerializer diff --git a/jsaddle/GHCJS/DOM/XPathEvaluator.hs b/jsaddle/GHCJS/DOM/XPathEvaluator.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/XPathEvaluator.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.XPathEvaluator ( - module Language.Javascript.JSaddle.DOM.XPathEvaluator - ) where -import Language.Javascript.JSaddle.DOM.XPathEvaluator diff --git a/jsaddle/GHCJS/DOM/XPathExpression.hs b/jsaddle/GHCJS/DOM/XPathExpression.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/XPathExpression.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.XPathExpression ( - module Language.Javascript.JSaddle.DOM.XPathExpression - ) where -import Language.Javascript.JSaddle.DOM.XPathExpression diff --git a/jsaddle/GHCJS/DOM/XPathNSResolver.hs b/jsaddle/GHCJS/DOM/XPathNSResolver.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/XPathNSResolver.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.XPathNSResolver ( - module Language.Javascript.JSaddle.DOM.XPathNSResolver - ) where -import Language.Javascript.JSaddle.DOM.XPathNSResolver diff --git a/jsaddle/GHCJS/DOM/XPathResult.hs b/jsaddle/GHCJS/DOM/XPathResult.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/XPathResult.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.XPathResult ( - module Language.Javascript.JSaddle.DOM.XPathResult - ) where -import Language.Javascript.JSaddle.DOM.XPathResult diff --git a/jsaddle/GHCJS/DOM/XSLTProcessor.hs b/jsaddle/GHCJS/DOM/XSLTProcessor.hs deleted file mode 100644 --- a/jsaddle/GHCJS/DOM/XSLTProcessor.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.XSLTProcessor ( - module Language.Javascript.JSaddle.DOM.XSLTProcessor - ) where -import Language.Javascript.JSaddle.DOM.XSLTProcessor diff --git a/jsbits/xhr.js b/jsbits/xhr.js deleted file mode 100644 --- a/jsbits/xhr.js +++ /dev/null @@ -1,25 +0,0 @@ -function h$dom$sendXHR(xhr, d, cont) { - var clear; - var error = function () { - clear(); cont(2); - }; - var abort = function () { - clear(); cont(1); - }; - var load = function () { - clear(); cont(0); - }; - clear = function () { - xhr.removeEventListener('error', error); - xhr.removeEventListener('abort', abort); - xhr.removeEventListener('load', load); - } - xhr.addEventListener('error', error); - xhr.addEventListener('abort', abort); - xhr.addEventListener('load', load); - if(d) { - xhr.send(d); - } else { - xhr.send(); - } -} diff --git a/src/GHCJS/DOM.hs b/src/GHCJS/DOM.hs deleted file mode 100644 --- a/src/GHCJS/DOM.hs +++ /dev/null @@ -1,167 +0,0 @@ -{-# LANGUAGE CPP, ForeignFunctionInterface, OverloadedStrings #-} -#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -{-# LANGUAGE JavaScriptFFI #-} -#endif -module GHCJS.DOM ( - currentWindow -, currentDocument -, WebView(..) -, webViewGetDomDocument -, runWebGUI -, enableInspector -, postGUISync -, postGUIAsync -) where - -import qualified Data.Text as T -import Data.Monoid ((<>)) -#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -import GHCJS.Types (JSVal(..)) -import Control.Applicative ((<$>)) -#else -import Graphics.UI.Gtk.WebKit.WebView - (webViewSetWebSettings, webViewGetWebSettings, loadStarted, - webViewLoadUri, loadFinished, webViewNew, webViewGetDomDocument, - webViewGetInspector) -import Graphics.UI.Gtk.WebKit.WebInspector - (showWindow, inspectWebView) -import Graphics.UI.Gtk - (timeoutAddFull, widgetShowAll, mainQuit, objectDestroy, - WindowPosition(..), containerAdd, scrolledWindowNew, - windowSetPosition, windowSetDefaultSize, windowNew, mainGUI, - initGUI, postGUISync, postGUIAsync) -import System.Glib.Signals (on) -import System.Glib.Attributes (get, AttrOp(..), set) -import System.Glib.FFI (maybeNull) -import System.Glib.MainLoop (priorityLow) -import Graphics.UI.Gtk.WebKit.WebSettings - (webSettingsMonospaceFontFamily, webSettingsUserAgent, - webSettingsEnableDeveloperExtras) -import Control.Monad.IO.Class (liftIO) -#endif - -import GHCJS.DOM.Types -import GHCJS.DOM.Window (getNavigator, getDocument) -import GHCJS.DOM.Navigator (getUserAgent) -import Foreign (ForeignPtr, nullPtr, Ptr) -import Control.Monad (unless, forever, liftM) -import Control.Concurrent - (yield, threadDelay, takeMVar, newEmptyMVar) -import System.Environment (getArgs) -import Data.List (isSuffixOf) - -#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -postGUIAsync :: IO () -> IO () -postGUIAsync = id - -postGUISync :: IO a -> IO a -postGUISync = id - -#ifdef ghcjs_HOST_OS -foreign import javascript unsafe "$r = window" - ghcjs_currentWindow :: IO (Nullable Window) -foreign import javascript unsafe "$r = document" - ghcjs_currentDocument :: IO (Nullable Document) -#else -ghcjs_currentWindow :: IO (Nullable Window) -ghcjs_currentWindow = undefined -ghcjs_currentDocument :: IO (Nullable Document) -ghcjs_currentDocument = undefined -#endif - -currentWindow :: IO (Maybe Window) -currentWindow = nullableToMaybe <$> ghcjs_currentWindow -currentDocument :: IO (Maybe Document) -currentDocument = nullableToMaybe <$> ghcjs_currentDocument - -type WebView = Window -castToWebView = id - -webViewGetDomDocument :: Window -> IO (Maybe Document) -webViewGetDomDocument = getDocument -#else -foreign import ccall safe "ghcjs_currentWindow" - ghcjs_currentWindow :: IO (Ptr Window) - -currentWindow :: IO (Maybe Window) -currentWindow = maybeNull (makeNewGObject mkWindow) ghcjs_currentWindow - -foreign import ccall unsafe "ghcjs_currentDocument" - ghcjs_currentDocument :: IO (Ptr Document) - -currentDocument :: IO (Maybe Document) -currentDocument = maybeNull (makeNewGObject mkDocument) ghcjs_currentDocument -#endif - -runWebGUI :: (WebView -> IO ()) -> IO () -runWebGUI = runWebGUI' "GHCJS" - -runWebGUI' :: T.Text -> (WebView -> IO ()) -> IO () -runWebGUI' userAgentKey main = do - -- Are we in a java script inside some kind of browser - mbWindow <- currentWindow - case mbWindow of - Just window -> do - -- Check if we are running in javascript inside the the native version - Just n <- getNavigator window - agent <- getUserAgent n - unless ((" " <> userAgentKey) `T.isSuffixOf` agent) $ main (castToWebView window) - Nothing -> do - makeDefaultWebView userAgentKey main - -makeDefaultWebView :: T.Text -> (WebView -> IO ()) -> IO () -#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -makeDefaultWebView _ _ = error "Unsupported makeDefaultWebView" -#else -makeDefaultWebView userAgentKey main = do - initGUI - window <- windowNew - timeoutAddFull (yield >> return True) priorityLow 10 - windowSetDefaultSize window 900 600 - windowSetPosition window WinPosCenter - scrollWin <- scrolledWindowNew Nothing Nothing - webView <- webViewNew - settings <- webViewGetWebSettings webView - userAgent <- settings `get` webSettingsUserAgent - settings `set` [webSettingsUserAgent := userAgent <> " " <> userAgentKey] - webViewSetWebSettings webView settings - window `containerAdd` scrollWin - scrollWin `containerAdd` webView - on window objectDestroy . liftIO $ mainQuit - widgetShowAll window - webView `on` loadFinished $ \frame -> do - main webView - args <- getArgs - case args of - uri:_ -> webViewLoadUri webView (T.pack uri) - [] -> do - main webView - mainGUI -#endif - -enableInspector :: WebView -> IO () -#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -enableInspector _ = return () -#else -enableInspector webView = do - settings <- webViewGetWebSettings webView - settings `set` [webSettingsEnableDeveloperExtras := True] - webViewSetWebSettings webView settings - inspector <- webViewGetInspector webView - window <- windowNew - windowSetDefaultSize window 900 300 - scrollWin <- scrolledWindowNew Nothing Nothing - inspector `on` inspectWebView $ \view -> do - inspectorView <- webViewNew - settings <- webViewGetWebSettings inspectorView - settings `set` [webSettingsMonospaceFontFamily := ("Consolas" :: String)] - webViewSetWebSettings inspectorView settings - scrollWin `containerAdd` inspectorView - window `containerAdd` scrollWin - widgetShowAll window - return inspectorView - inspector `on` showWindow $ do - widgetShowAll window - return True - return () -#endif diff --git a/src/GHCJS/DOM/ANGLEInstancedArrays.hs b/src/GHCJS/DOM/ANGLEInstancedArrays.hs deleted file mode 100644 --- a/src/GHCJS/DOM/ANGLEInstancedArrays.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.ANGLEInstancedArrays ( - module GHCJS.DOM.JSFFI.Generated.ANGLEInstancedArrays - ) where -import GHCJS.DOM.JSFFI.Generated.ANGLEInstancedArrays diff --git a/src/GHCJS/DOM/AbstractView.hs b/src/GHCJS/DOM/AbstractView.hs deleted file mode 100644 --- a/src/GHCJS/DOM/AbstractView.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.AbstractView ( - module GHCJS.DOM.JSFFI.Generated.AbstractView - ) where -import GHCJS.DOM.JSFFI.Generated.AbstractView diff --git a/src/GHCJS/DOM/AbstractWorker.hs b/src/GHCJS/DOM/AbstractWorker.hs deleted file mode 100644 --- a/src/GHCJS/DOM/AbstractWorker.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.AbstractWorker ( - module GHCJS.DOM.JSFFI.Generated.AbstractWorker - ) where -import GHCJS.DOM.JSFFI.Generated.AbstractWorker diff --git a/src/GHCJS/DOM/AllAudioCapabilities.hs b/src/GHCJS/DOM/AllAudioCapabilities.hs deleted file mode 100644 --- a/src/GHCJS/DOM/AllAudioCapabilities.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.AllAudioCapabilities ( - module GHCJS.DOM.JSFFI.Generated.AllAudioCapabilities - ) where -import GHCJS.DOM.JSFFI.Generated.AllAudioCapabilities diff --git a/src/GHCJS/DOM/AllVideoCapabilities.hs b/src/GHCJS/DOM/AllVideoCapabilities.hs deleted file mode 100644 --- a/src/GHCJS/DOM/AllVideoCapabilities.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.AllVideoCapabilities ( - module GHCJS.DOM.JSFFI.Generated.AllVideoCapabilities - ) where -import GHCJS.DOM.JSFFI.Generated.AllVideoCapabilities diff --git a/src/GHCJS/DOM/AnalyserNode.hs b/src/GHCJS/DOM/AnalyserNode.hs deleted file mode 100644 --- a/src/GHCJS/DOM/AnalyserNode.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.AnalyserNode ( - module GHCJS.DOM.JSFFI.Generated.AnalyserNode - ) where -import GHCJS.DOM.JSFFI.Generated.AnalyserNode diff --git a/src/GHCJS/DOM/AnimationEvent.hs b/src/GHCJS/DOM/AnimationEvent.hs deleted file mode 100644 --- a/src/GHCJS/DOM/AnimationEvent.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.AnimationEvent ( - module GHCJS.DOM.JSFFI.Generated.AnimationEvent - ) where -import GHCJS.DOM.JSFFI.Generated.AnimationEvent diff --git a/src/GHCJS/DOM/ApplicationCache.hs b/src/GHCJS/DOM/ApplicationCache.hs deleted file mode 100644 --- a/src/GHCJS/DOM/ApplicationCache.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.ApplicationCache ( - module GHCJS.DOM.JSFFI.Generated.ApplicationCache - ) where -import GHCJS.DOM.JSFFI.Generated.ApplicationCache diff --git a/src/GHCJS/DOM/Attr.hs b/src/GHCJS/DOM/Attr.hs deleted file mode 100644 --- a/src/GHCJS/DOM/Attr.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.Attr ( - module GHCJS.DOM.JSFFI.Generated.Attr - ) where -import GHCJS.DOM.JSFFI.Generated.Attr diff --git a/src/GHCJS/DOM/AudioBuffer.hs b/src/GHCJS/DOM/AudioBuffer.hs deleted file mode 100644 --- a/src/GHCJS/DOM/AudioBuffer.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.AudioBuffer ( - module GHCJS.DOM.JSFFI.Generated.AudioBuffer - ) where -import GHCJS.DOM.JSFFI.Generated.AudioBuffer diff --git a/src/GHCJS/DOM/AudioBufferCallback.hs b/src/GHCJS/DOM/AudioBufferCallback.hs deleted file mode 100644 --- a/src/GHCJS/DOM/AudioBufferCallback.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.AudioBufferCallback ( - module GHCJS.DOM.JSFFI.Generated.AudioBufferCallback - ) where -import GHCJS.DOM.JSFFI.Generated.AudioBufferCallback diff --git a/src/GHCJS/DOM/AudioBufferSourceNode.hs b/src/GHCJS/DOM/AudioBufferSourceNode.hs deleted file mode 100644 --- a/src/GHCJS/DOM/AudioBufferSourceNode.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.AudioBufferSourceNode ( - module GHCJS.DOM.JSFFI.Generated.AudioBufferSourceNode - ) where -import GHCJS.DOM.JSFFI.Generated.AudioBufferSourceNode diff --git a/src/GHCJS/DOM/AudioContext.hs b/src/GHCJS/DOM/AudioContext.hs deleted file mode 100644 --- a/src/GHCJS/DOM/AudioContext.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.AudioContext ( - module GHCJS.DOM.JSFFI.AudioContext - ) where -import GHCJS.DOM.JSFFI.AudioContext diff --git a/src/GHCJS/DOM/AudioDestinationNode.hs b/src/GHCJS/DOM/AudioDestinationNode.hs deleted file mode 100644 --- a/src/GHCJS/DOM/AudioDestinationNode.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.AudioDestinationNode ( - module GHCJS.DOM.JSFFI.Generated.AudioDestinationNode - ) where -import GHCJS.DOM.JSFFI.Generated.AudioDestinationNode diff --git a/src/GHCJS/DOM/AudioListener.hs b/src/GHCJS/DOM/AudioListener.hs deleted file mode 100644 --- a/src/GHCJS/DOM/AudioListener.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.AudioListener ( - module GHCJS.DOM.JSFFI.Generated.AudioListener - ) where -import GHCJS.DOM.JSFFI.Generated.AudioListener diff --git a/src/GHCJS/DOM/AudioNode.hs b/src/GHCJS/DOM/AudioNode.hs deleted file mode 100644 --- a/src/GHCJS/DOM/AudioNode.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.AudioNode ( - module GHCJS.DOM.JSFFI.Generated.AudioNode - ) where -import GHCJS.DOM.JSFFI.Generated.AudioNode diff --git a/src/GHCJS/DOM/AudioParam.hs b/src/GHCJS/DOM/AudioParam.hs deleted file mode 100644 --- a/src/GHCJS/DOM/AudioParam.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.AudioParam ( - module GHCJS.DOM.JSFFI.Generated.AudioParam - ) where -import GHCJS.DOM.JSFFI.Generated.AudioParam diff --git a/src/GHCJS/DOM/AudioProcessingEvent.hs b/src/GHCJS/DOM/AudioProcessingEvent.hs deleted file mode 100644 --- a/src/GHCJS/DOM/AudioProcessingEvent.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.AudioProcessingEvent ( - module GHCJS.DOM.JSFFI.Generated.AudioProcessingEvent - ) where -import GHCJS.DOM.JSFFI.Generated.AudioProcessingEvent diff --git a/src/GHCJS/DOM/AudioStreamTrack.hs b/src/GHCJS/DOM/AudioStreamTrack.hs deleted file mode 100644 --- a/src/GHCJS/DOM/AudioStreamTrack.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.AudioStreamTrack ( - module GHCJS.DOM.JSFFI.Generated.AudioStreamTrack - ) where -import GHCJS.DOM.JSFFI.Generated.AudioStreamTrack diff --git a/src/GHCJS/DOM/AudioTrack.hs b/src/GHCJS/DOM/AudioTrack.hs deleted file mode 100644 --- a/src/GHCJS/DOM/AudioTrack.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.AudioTrack ( - module GHCJS.DOM.JSFFI.Generated.AudioTrack - ) where -import GHCJS.DOM.JSFFI.Generated.AudioTrack diff --git a/src/GHCJS/DOM/AudioTrackList.hs b/src/GHCJS/DOM/AudioTrackList.hs deleted file mode 100644 --- a/src/GHCJS/DOM/AudioTrackList.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.AudioTrackList ( - module GHCJS.DOM.JSFFI.Generated.AudioTrackList - ) where -import GHCJS.DOM.JSFFI.Generated.AudioTrackList diff --git a/src/GHCJS/DOM/AutocompleteErrorEvent.hs b/src/GHCJS/DOM/AutocompleteErrorEvent.hs deleted file mode 100644 --- a/src/GHCJS/DOM/AutocompleteErrorEvent.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.AutocompleteErrorEvent ( - module GHCJS.DOM.JSFFI.Generated.AutocompleteErrorEvent - ) where -import GHCJS.DOM.JSFFI.Generated.AutocompleteErrorEvent diff --git a/src/GHCJS/DOM/BarProp.hs b/src/GHCJS/DOM/BarProp.hs deleted file mode 100644 --- a/src/GHCJS/DOM/BarProp.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.BarProp ( - module GHCJS.DOM.JSFFI.Generated.BarProp - ) where -import GHCJS.DOM.JSFFI.Generated.BarProp diff --git a/src/GHCJS/DOM/BatteryManager.hs b/src/GHCJS/DOM/BatteryManager.hs deleted file mode 100644 --- a/src/GHCJS/DOM/BatteryManager.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.BatteryManager ( - module GHCJS.DOM.JSFFI.Generated.BatteryManager - ) where -import GHCJS.DOM.JSFFI.Generated.BatteryManager diff --git a/src/GHCJS/DOM/BeforeLoadEvent.hs b/src/GHCJS/DOM/BeforeLoadEvent.hs deleted file mode 100644 --- a/src/GHCJS/DOM/BeforeLoadEvent.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.BeforeLoadEvent ( - module GHCJS.DOM.JSFFI.Generated.BeforeLoadEvent - ) where -import GHCJS.DOM.JSFFI.Generated.BeforeLoadEvent diff --git a/src/GHCJS/DOM/BeforeUnloadEvent.hs b/src/GHCJS/DOM/BeforeUnloadEvent.hs deleted file mode 100644 --- a/src/GHCJS/DOM/BeforeUnloadEvent.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.BeforeUnloadEvent ( - module GHCJS.DOM.JSFFI.Generated.BeforeUnloadEvent - ) where -import GHCJS.DOM.JSFFI.Generated.BeforeUnloadEvent diff --git a/src/GHCJS/DOM/BiquadFilterNode.hs b/src/GHCJS/DOM/BiquadFilterNode.hs deleted file mode 100644 --- a/src/GHCJS/DOM/BiquadFilterNode.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.BiquadFilterNode ( - module GHCJS.DOM.JSFFI.Generated.BiquadFilterNode - ) where -import GHCJS.DOM.JSFFI.Generated.BiquadFilterNode diff --git a/src/GHCJS/DOM/Blob.hs b/src/GHCJS/DOM/Blob.hs deleted file mode 100644 --- a/src/GHCJS/DOM/Blob.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.Blob ( - module GHCJS.DOM.JSFFI.Generated.Blob - ) where -import GHCJS.DOM.JSFFI.Generated.Blob diff --git a/src/GHCJS/DOM/CSS.hs b/src/GHCJS/DOM/CSS.hs deleted file mode 100644 --- a/src/GHCJS/DOM/CSS.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.CSS ( - module GHCJS.DOM.JSFFI.Generated.CSS - ) where -import GHCJS.DOM.JSFFI.Generated.CSS diff --git a/src/GHCJS/DOM/CSSCharsetRule.hs b/src/GHCJS/DOM/CSSCharsetRule.hs deleted file mode 100644 --- a/src/GHCJS/DOM/CSSCharsetRule.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.CSSCharsetRule ( - module GHCJS.DOM.JSFFI.Generated.CSSCharsetRule - ) where -import GHCJS.DOM.JSFFI.Generated.CSSCharsetRule diff --git a/src/GHCJS/DOM/CSSFontFaceLoadEvent.hs b/src/GHCJS/DOM/CSSFontFaceLoadEvent.hs deleted file mode 100644 --- a/src/GHCJS/DOM/CSSFontFaceLoadEvent.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.CSSFontFaceLoadEvent ( - module GHCJS.DOM.JSFFI.Generated.CSSFontFaceLoadEvent - ) where -import GHCJS.DOM.JSFFI.Generated.CSSFontFaceLoadEvent diff --git a/src/GHCJS/DOM/CSSFontFaceRule.hs b/src/GHCJS/DOM/CSSFontFaceRule.hs deleted file mode 100644 --- a/src/GHCJS/DOM/CSSFontFaceRule.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.CSSFontFaceRule ( - module GHCJS.DOM.JSFFI.Generated.CSSFontFaceRule - ) where -import GHCJS.DOM.JSFFI.Generated.CSSFontFaceRule diff --git a/src/GHCJS/DOM/CSSImportRule.hs b/src/GHCJS/DOM/CSSImportRule.hs deleted file mode 100644 --- a/src/GHCJS/DOM/CSSImportRule.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.CSSImportRule ( - module GHCJS.DOM.JSFFI.Generated.CSSImportRule - ) where -import GHCJS.DOM.JSFFI.Generated.CSSImportRule diff --git a/src/GHCJS/DOM/CSSKeyframeRule.hs b/src/GHCJS/DOM/CSSKeyframeRule.hs deleted file mode 100644 --- a/src/GHCJS/DOM/CSSKeyframeRule.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.CSSKeyframeRule ( - module GHCJS.DOM.JSFFI.Generated.CSSKeyframeRule - ) where -import GHCJS.DOM.JSFFI.Generated.CSSKeyframeRule diff --git a/src/GHCJS/DOM/CSSKeyframesRule.hs b/src/GHCJS/DOM/CSSKeyframesRule.hs deleted file mode 100644 --- a/src/GHCJS/DOM/CSSKeyframesRule.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.CSSKeyframesRule ( - module GHCJS.DOM.JSFFI.Generated.CSSKeyframesRule - ) where -import GHCJS.DOM.JSFFI.Generated.CSSKeyframesRule diff --git a/src/GHCJS/DOM/CSSMediaRule.hs b/src/GHCJS/DOM/CSSMediaRule.hs deleted file mode 100644 --- a/src/GHCJS/DOM/CSSMediaRule.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.CSSMediaRule ( - module GHCJS.DOM.JSFFI.Generated.CSSMediaRule - ) where -import GHCJS.DOM.JSFFI.Generated.CSSMediaRule diff --git a/src/GHCJS/DOM/CSSPageRule.hs b/src/GHCJS/DOM/CSSPageRule.hs deleted file mode 100644 --- a/src/GHCJS/DOM/CSSPageRule.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.CSSPageRule ( - module GHCJS.DOM.JSFFI.Generated.CSSPageRule - ) where -import GHCJS.DOM.JSFFI.Generated.CSSPageRule diff --git a/src/GHCJS/DOM/CSSPrimitiveValue.hs b/src/GHCJS/DOM/CSSPrimitiveValue.hs deleted file mode 100644 --- a/src/GHCJS/DOM/CSSPrimitiveValue.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.CSSPrimitiveValue ( - module GHCJS.DOM.JSFFI.Generated.CSSPrimitiveValue - ) where -import GHCJS.DOM.JSFFI.Generated.CSSPrimitiveValue diff --git a/src/GHCJS/DOM/CSSRule.hs b/src/GHCJS/DOM/CSSRule.hs deleted file mode 100644 --- a/src/GHCJS/DOM/CSSRule.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.CSSRule ( - module GHCJS.DOM.JSFFI.Generated.CSSRule - ) where -import GHCJS.DOM.JSFFI.Generated.CSSRule diff --git a/src/GHCJS/DOM/CSSRuleList.hs b/src/GHCJS/DOM/CSSRuleList.hs deleted file mode 100644 --- a/src/GHCJS/DOM/CSSRuleList.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.CSSRuleList ( - module GHCJS.DOM.JSFFI.Generated.CSSRuleList - ) where -import GHCJS.DOM.JSFFI.Generated.CSSRuleList diff --git a/src/GHCJS/DOM/CSSStyleDeclaration.hs b/src/GHCJS/DOM/CSSStyleDeclaration.hs deleted file mode 100644 --- a/src/GHCJS/DOM/CSSStyleDeclaration.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.CSSStyleDeclaration ( - module GHCJS.DOM.JSFFI.Generated.CSSStyleDeclaration - ) where -import GHCJS.DOM.JSFFI.Generated.CSSStyleDeclaration diff --git a/src/GHCJS/DOM/CSSStyleRule.hs b/src/GHCJS/DOM/CSSStyleRule.hs deleted file mode 100644 --- a/src/GHCJS/DOM/CSSStyleRule.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.CSSStyleRule ( - module GHCJS.DOM.JSFFI.Generated.CSSStyleRule - ) where -import GHCJS.DOM.JSFFI.Generated.CSSStyleRule diff --git a/src/GHCJS/DOM/CSSStyleSheet.hs b/src/GHCJS/DOM/CSSStyleSheet.hs deleted file mode 100644 --- a/src/GHCJS/DOM/CSSStyleSheet.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.CSSStyleSheet ( - module GHCJS.DOM.JSFFI.Generated.CSSStyleSheet - ) where -import GHCJS.DOM.JSFFI.Generated.CSSStyleSheet diff --git a/src/GHCJS/DOM/CSSSupportsRule.hs b/src/GHCJS/DOM/CSSSupportsRule.hs deleted file mode 100644 --- a/src/GHCJS/DOM/CSSSupportsRule.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.CSSSupportsRule ( - module GHCJS.DOM.JSFFI.Generated.CSSSupportsRule - ) where -import GHCJS.DOM.JSFFI.Generated.CSSSupportsRule diff --git a/src/GHCJS/DOM/CSSValue.hs b/src/GHCJS/DOM/CSSValue.hs deleted file mode 100644 --- a/src/GHCJS/DOM/CSSValue.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.CSSValue ( - module GHCJS.DOM.JSFFI.Generated.CSSValue - ) where -import GHCJS.DOM.JSFFI.Generated.CSSValue diff --git a/src/GHCJS/DOM/CSSValueList.hs b/src/GHCJS/DOM/CSSValueList.hs deleted file mode 100644 --- a/src/GHCJS/DOM/CSSValueList.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.CSSValueList ( - module GHCJS.DOM.JSFFI.Generated.CSSValueList - ) where -import GHCJS.DOM.JSFFI.Generated.CSSValueList diff --git a/src/GHCJS/DOM/CanvasGradient.hs b/src/GHCJS/DOM/CanvasGradient.hs deleted file mode 100644 --- a/src/GHCJS/DOM/CanvasGradient.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.CanvasGradient ( - module GHCJS.DOM.JSFFI.Generated.CanvasGradient - ) where -import GHCJS.DOM.JSFFI.Generated.CanvasGradient diff --git a/src/GHCJS/DOM/CanvasRenderingContext.hs b/src/GHCJS/DOM/CanvasRenderingContext.hs deleted file mode 100644 --- a/src/GHCJS/DOM/CanvasRenderingContext.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.CanvasRenderingContext ( - module GHCJS.DOM.JSFFI.Generated.CanvasRenderingContext - ) where -import GHCJS.DOM.JSFFI.Generated.CanvasRenderingContext diff --git a/src/GHCJS/DOM/CanvasRenderingContext2D.hs b/src/GHCJS/DOM/CanvasRenderingContext2D.hs deleted file mode 100644 --- a/src/GHCJS/DOM/CanvasRenderingContext2D.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.CanvasRenderingContext2D ( - module GHCJS.DOM.JSFFI.Generated.CanvasRenderingContext2D - ) where -import GHCJS.DOM.JSFFI.Generated.CanvasRenderingContext2D diff --git a/src/GHCJS/DOM/CapabilityRange.hs b/src/GHCJS/DOM/CapabilityRange.hs deleted file mode 100644 --- a/src/GHCJS/DOM/CapabilityRange.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.CapabilityRange ( - module GHCJS.DOM.JSFFI.Generated.CapabilityRange - ) where -import GHCJS.DOM.JSFFI.Generated.CapabilityRange diff --git a/src/GHCJS/DOM/CharacterData.hs b/src/GHCJS/DOM/CharacterData.hs deleted file mode 100644 --- a/src/GHCJS/DOM/CharacterData.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.CharacterData ( - module GHCJS.DOM.JSFFI.Generated.CharacterData - ) where -import GHCJS.DOM.JSFFI.Generated.CharacterData diff --git a/src/GHCJS/DOM/ChildNode.hs b/src/GHCJS/DOM/ChildNode.hs deleted file mode 100644 --- a/src/GHCJS/DOM/ChildNode.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.ChildNode ( - module GHCJS.DOM.JSFFI.Generated.ChildNode - ) where -import GHCJS.DOM.JSFFI.Generated.ChildNode diff --git a/src/GHCJS/DOM/ClientRect.hs b/src/GHCJS/DOM/ClientRect.hs deleted file mode 100644 --- a/src/GHCJS/DOM/ClientRect.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.ClientRect ( - module GHCJS.DOM.JSFFI.Generated.ClientRect - ) where -import GHCJS.DOM.JSFFI.Generated.ClientRect diff --git a/src/GHCJS/DOM/ClientRectList.hs b/src/GHCJS/DOM/ClientRectList.hs deleted file mode 100644 --- a/src/GHCJS/DOM/ClientRectList.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.ClientRectList ( - module GHCJS.DOM.JSFFI.Generated.ClientRectList - ) where -import GHCJS.DOM.JSFFI.Generated.ClientRectList diff --git a/src/GHCJS/DOM/CloseEvent.hs b/src/GHCJS/DOM/CloseEvent.hs deleted file mode 100644 --- a/src/GHCJS/DOM/CloseEvent.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.CloseEvent ( - module GHCJS.DOM.JSFFI.Generated.CloseEvent - ) where -import GHCJS.DOM.JSFFI.Generated.CloseEvent diff --git a/src/GHCJS/DOM/CommandLineAPIHost.hs b/src/GHCJS/DOM/CommandLineAPIHost.hs deleted file mode 100644 --- a/src/GHCJS/DOM/CommandLineAPIHost.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.CommandLineAPIHost ( - module GHCJS.DOM.JSFFI.Generated.CommandLineAPIHost - ) where -import GHCJS.DOM.JSFFI.Generated.CommandLineAPIHost diff --git a/src/GHCJS/DOM/Comment.hs b/src/GHCJS/DOM/Comment.hs deleted file mode 100644 --- a/src/GHCJS/DOM/Comment.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.Comment ( - module GHCJS.DOM.JSFFI.Generated.Comment - ) where -import GHCJS.DOM.JSFFI.Generated.Comment diff --git a/src/GHCJS/DOM/CompositionEvent.hs b/src/GHCJS/DOM/CompositionEvent.hs deleted file mode 100644 --- a/src/GHCJS/DOM/CompositionEvent.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.CompositionEvent ( - module GHCJS.DOM.JSFFI.Generated.CompositionEvent - ) where -import GHCJS.DOM.JSFFI.Generated.CompositionEvent diff --git a/src/GHCJS/DOM/ConvolverNode.hs b/src/GHCJS/DOM/ConvolverNode.hs deleted file mode 100644 --- a/src/GHCJS/DOM/ConvolverNode.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.ConvolverNode ( - module GHCJS.DOM.JSFFI.Generated.ConvolverNode - ) where -import GHCJS.DOM.JSFFI.Generated.ConvolverNode diff --git a/src/GHCJS/DOM/Coordinates.hs b/src/GHCJS/DOM/Coordinates.hs deleted file mode 100644 --- a/src/GHCJS/DOM/Coordinates.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.Coordinates ( - module GHCJS.DOM.JSFFI.Generated.Coordinates - ) where -import GHCJS.DOM.JSFFI.Generated.Coordinates diff --git a/src/GHCJS/DOM/Counter.hs b/src/GHCJS/DOM/Counter.hs deleted file mode 100644 --- a/src/GHCJS/DOM/Counter.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.Counter ( - module GHCJS.DOM.JSFFI.Generated.Counter - ) where -import GHCJS.DOM.JSFFI.Generated.Counter diff --git a/src/GHCJS/DOM/Crypto.hs b/src/GHCJS/DOM/Crypto.hs deleted file mode 100644 --- a/src/GHCJS/DOM/Crypto.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.Crypto ( - module GHCJS.DOM.JSFFI.Generated.Crypto - ) where -import GHCJS.DOM.JSFFI.Generated.Crypto diff --git a/src/GHCJS/DOM/CryptoKey.hs b/src/GHCJS/DOM/CryptoKey.hs deleted file mode 100644 --- a/src/GHCJS/DOM/CryptoKey.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.CryptoKey ( - module GHCJS.DOM.JSFFI.Generated.CryptoKey - ) where -import GHCJS.DOM.JSFFI.Generated.CryptoKey diff --git a/src/GHCJS/DOM/CryptoKeyPair.hs b/src/GHCJS/DOM/CryptoKeyPair.hs deleted file mode 100644 --- a/src/GHCJS/DOM/CryptoKeyPair.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.CryptoKeyPair ( - module GHCJS.DOM.JSFFI.Generated.CryptoKeyPair - ) where -import GHCJS.DOM.JSFFI.Generated.CryptoKeyPair diff --git a/src/GHCJS/DOM/CustomEvent.hs b/src/GHCJS/DOM/CustomEvent.hs deleted file mode 100644 --- a/src/GHCJS/DOM/CustomEvent.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.CustomEvent ( - module GHCJS.DOM.JSFFI.Generated.CustomEvent - ) where -import GHCJS.DOM.JSFFI.Generated.CustomEvent diff --git a/src/GHCJS/DOM/DOMError.hs b/src/GHCJS/DOM/DOMError.hs deleted file mode 100644 --- a/src/GHCJS/DOM/DOMError.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.DOMError ( - module GHCJS.DOM.JSFFI.DOMError - ) where -import GHCJS.DOM.JSFFI.DOMError diff --git a/src/GHCJS/DOM/DOMImplementation.hs b/src/GHCJS/DOM/DOMImplementation.hs deleted file mode 100644 --- a/src/GHCJS/DOM/DOMImplementation.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.DOMImplementation ( - module GHCJS.DOM.JSFFI.Generated.DOMImplementation - ) where -import GHCJS.DOM.JSFFI.Generated.DOMImplementation diff --git a/src/GHCJS/DOM/DOMNamedFlowCollection.hs b/src/GHCJS/DOM/DOMNamedFlowCollection.hs deleted file mode 100644 --- a/src/GHCJS/DOM/DOMNamedFlowCollection.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.DOMNamedFlowCollection ( - module GHCJS.DOM.JSFFI.Generated.DOMNamedFlowCollection - ) where -import GHCJS.DOM.JSFFI.Generated.DOMNamedFlowCollection diff --git a/src/GHCJS/DOM/DOMParser.hs b/src/GHCJS/DOM/DOMParser.hs deleted file mode 100644 --- a/src/GHCJS/DOM/DOMParser.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.DOMParser ( - module GHCJS.DOM.JSFFI.Generated.DOMParser - ) where -import GHCJS.DOM.JSFFI.Generated.DOMParser diff --git a/src/GHCJS/DOM/DOMSettableTokenList.hs b/src/GHCJS/DOM/DOMSettableTokenList.hs deleted file mode 100644 --- a/src/GHCJS/DOM/DOMSettableTokenList.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.DOMSettableTokenList ( - module GHCJS.DOM.JSFFI.Generated.DOMSettableTokenList - ) where -import GHCJS.DOM.JSFFI.Generated.DOMSettableTokenList diff --git a/src/GHCJS/DOM/DOMStringList.hs b/src/GHCJS/DOM/DOMStringList.hs deleted file mode 100644 --- a/src/GHCJS/DOM/DOMStringList.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.DOMStringList ( - module GHCJS.DOM.JSFFI.Generated.DOMStringList - ) where -import GHCJS.DOM.JSFFI.Generated.DOMStringList diff --git a/src/GHCJS/DOM/DOMTokenList.hs b/src/GHCJS/DOM/DOMTokenList.hs deleted file mode 100644 --- a/src/GHCJS/DOM/DOMTokenList.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.DOMTokenList ( - module GHCJS.DOM.JSFFI.Generated.DOMTokenList - ) where -import GHCJS.DOM.JSFFI.Generated.DOMTokenList diff --git a/src/GHCJS/DOM/DataCue.hs b/src/GHCJS/DOM/DataCue.hs deleted file mode 100644 --- a/src/GHCJS/DOM/DataCue.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.DataCue ( - module GHCJS.DOM.JSFFI.Generated.DataCue - ) where -import GHCJS.DOM.JSFFI.Generated.DataCue diff --git a/src/GHCJS/DOM/DataTransfer.hs b/src/GHCJS/DOM/DataTransfer.hs deleted file mode 100644 --- a/src/GHCJS/DOM/DataTransfer.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.DataTransfer ( - module GHCJS.DOM.JSFFI.Generated.DataTransfer - ) where -import GHCJS.DOM.JSFFI.Generated.DataTransfer diff --git a/src/GHCJS/DOM/DataTransferItem.hs b/src/GHCJS/DOM/DataTransferItem.hs deleted file mode 100644 --- a/src/GHCJS/DOM/DataTransferItem.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.DataTransferItem ( - module GHCJS.DOM.JSFFI.Generated.DataTransferItem - ) where -import GHCJS.DOM.JSFFI.Generated.DataTransferItem diff --git a/src/GHCJS/DOM/DataTransferItemList.hs b/src/GHCJS/DOM/DataTransferItemList.hs deleted file mode 100644 --- a/src/GHCJS/DOM/DataTransferItemList.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.DataTransferItemList ( - module GHCJS.DOM.JSFFI.Generated.DataTransferItemList - ) where -import GHCJS.DOM.JSFFI.Generated.DataTransferItemList diff --git a/src/GHCJS/DOM/Database.hs b/src/GHCJS/DOM/Database.hs deleted file mode 100644 --- a/src/GHCJS/DOM/Database.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.Database ( - module GHCJS.DOM.JSFFI.Database - ) where -import GHCJS.DOM.JSFFI.Database diff --git a/src/GHCJS/DOM/DatabaseCallback.hs b/src/GHCJS/DOM/DatabaseCallback.hs deleted file mode 100644 --- a/src/GHCJS/DOM/DatabaseCallback.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.DatabaseCallback ( - module GHCJS.DOM.JSFFI.Generated.DatabaseCallback - ) where -import GHCJS.DOM.JSFFI.Generated.DatabaseCallback diff --git a/src/GHCJS/DOM/DedicatedWorkerGlobalScope.hs b/src/GHCJS/DOM/DedicatedWorkerGlobalScope.hs deleted file mode 100644 --- a/src/GHCJS/DOM/DedicatedWorkerGlobalScope.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.DedicatedWorkerGlobalScope ( - module GHCJS.DOM.JSFFI.Generated.DedicatedWorkerGlobalScope - ) where -import GHCJS.DOM.JSFFI.Generated.DedicatedWorkerGlobalScope diff --git a/src/GHCJS/DOM/DelayNode.hs b/src/GHCJS/DOM/DelayNode.hs deleted file mode 100644 --- a/src/GHCJS/DOM/DelayNode.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.DelayNode ( - module GHCJS.DOM.JSFFI.Generated.DelayNode - ) where -import GHCJS.DOM.JSFFI.Generated.DelayNode diff --git a/src/GHCJS/DOM/DeviceMotionEvent.hs b/src/GHCJS/DOM/DeviceMotionEvent.hs deleted file mode 100644 --- a/src/GHCJS/DOM/DeviceMotionEvent.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.DeviceMotionEvent ( - module GHCJS.DOM.JSFFI.Generated.DeviceMotionEvent - ) where -import GHCJS.DOM.JSFFI.Generated.DeviceMotionEvent diff --git a/src/GHCJS/DOM/DeviceOrientationEvent.hs b/src/GHCJS/DOM/DeviceOrientationEvent.hs deleted file mode 100644 --- a/src/GHCJS/DOM/DeviceOrientationEvent.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.DeviceOrientationEvent ( - module GHCJS.DOM.JSFFI.Generated.DeviceOrientationEvent - ) where -import GHCJS.DOM.JSFFI.Generated.DeviceOrientationEvent diff --git a/src/GHCJS/DOM/DeviceProximityEvent.hs b/src/GHCJS/DOM/DeviceProximityEvent.hs deleted file mode 100644 --- a/src/GHCJS/DOM/DeviceProximityEvent.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.DeviceProximityEvent ( - module GHCJS.DOM.JSFFI.Generated.DeviceProximityEvent - ) where -import GHCJS.DOM.JSFFI.Generated.DeviceProximityEvent diff --git a/src/GHCJS/DOM/Document.hs b/src/GHCJS/DOM/Document.hs deleted file mode 100644 --- a/src/GHCJS/DOM/Document.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.Document ( - module GHCJS.DOM.JSFFI.Generated.Document - ) where -import GHCJS.DOM.JSFFI.Generated.Document diff --git a/src/GHCJS/DOM/DocumentFragment.hs b/src/GHCJS/DOM/DocumentFragment.hs deleted file mode 100644 --- a/src/GHCJS/DOM/DocumentFragment.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.DocumentFragment ( - module GHCJS.DOM.JSFFI.Generated.DocumentFragment - ) where -import GHCJS.DOM.JSFFI.Generated.DocumentFragment diff --git a/src/GHCJS/DOM/DocumentType.hs b/src/GHCJS/DOM/DocumentType.hs deleted file mode 100644 --- a/src/GHCJS/DOM/DocumentType.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.DocumentType ( - module GHCJS.DOM.JSFFI.Generated.DocumentType - ) where -import GHCJS.DOM.JSFFI.Generated.DocumentType diff --git a/src/GHCJS/DOM/DynamicsCompressorNode.hs b/src/GHCJS/DOM/DynamicsCompressorNode.hs deleted file mode 100644 --- a/src/GHCJS/DOM/DynamicsCompressorNode.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.DynamicsCompressorNode ( - module GHCJS.DOM.JSFFI.Generated.DynamicsCompressorNode - ) where -import GHCJS.DOM.JSFFI.Generated.DynamicsCompressorNode diff --git a/src/GHCJS/DOM/EXTBlendMinMax.hs b/src/GHCJS/DOM/EXTBlendMinMax.hs deleted file mode 100644 --- a/src/GHCJS/DOM/EXTBlendMinMax.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.EXTBlendMinMax ( - module GHCJS.DOM.JSFFI.Generated.EXTBlendMinMax - ) where -import GHCJS.DOM.JSFFI.Generated.EXTBlendMinMax diff --git a/src/GHCJS/DOM/EXTTextureFilterAnisotropic.hs b/src/GHCJS/DOM/EXTTextureFilterAnisotropic.hs deleted file mode 100644 --- a/src/GHCJS/DOM/EXTTextureFilterAnisotropic.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.EXTTextureFilterAnisotropic ( - module GHCJS.DOM.JSFFI.Generated.EXTTextureFilterAnisotropic - ) where -import GHCJS.DOM.JSFFI.Generated.EXTTextureFilterAnisotropic diff --git a/src/GHCJS/DOM/EXTsRGB.hs b/src/GHCJS/DOM/EXTsRGB.hs deleted file mode 100644 --- a/src/GHCJS/DOM/EXTsRGB.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.EXTsRGB ( - module GHCJS.DOM.JSFFI.Generated.EXTsRGB - ) where -import GHCJS.DOM.JSFFI.Generated.EXTsRGB diff --git a/src/GHCJS/DOM/Element.hs b/src/GHCJS/DOM/Element.hs deleted file mode 100644 --- a/src/GHCJS/DOM/Element.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.Element ( - module GHCJS.DOM.JSFFI.Generated.Element - ) where -import GHCJS.DOM.JSFFI.Generated.Element diff --git a/src/GHCJS/DOM/Entity.hs b/src/GHCJS/DOM/Entity.hs deleted file mode 100644 --- a/src/GHCJS/DOM/Entity.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.Entity ( - module GHCJS.DOM.JSFFI.Generated.Entity - ) where -import GHCJS.DOM.JSFFI.Generated.Entity diff --git a/src/GHCJS/DOM/Enums.hs b/src/GHCJS/DOM/Enums.hs deleted file mode 100644 --- a/src/GHCJS/DOM/Enums.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.Enums ( - module GHCJS.DOM.JSFFI.Generated.Enums - ) where -import GHCJS.DOM.JSFFI.Generated.Enums diff --git a/src/GHCJS/DOM/ErrorEvent.hs b/src/GHCJS/DOM/ErrorEvent.hs deleted file mode 100644 --- a/src/GHCJS/DOM/ErrorEvent.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.ErrorEvent ( - module GHCJS.DOM.JSFFI.Generated.ErrorEvent - ) where -import GHCJS.DOM.JSFFI.Generated.ErrorEvent diff --git a/src/GHCJS/DOM/Event.hs b/src/GHCJS/DOM/Event.hs deleted file mode 100644 --- a/src/GHCJS/DOM/Event.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.Event ( - module GHCJS.DOM.JSFFI.Generated.Event - ) where -import GHCJS.DOM.JSFFI.Generated.Event diff --git a/src/GHCJS/DOM/EventListener.hs b/src/GHCJS/DOM/EventListener.hs deleted file mode 100644 --- a/src/GHCJS/DOM/EventListener.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.EventListener ( - module GHCJS.DOM.JSFFI.Generated.EventListener - ) where -import GHCJS.DOM.JSFFI.Generated.EventListener diff --git a/src/GHCJS/DOM/EventSource.hs b/src/GHCJS/DOM/EventSource.hs deleted file mode 100644 --- a/src/GHCJS/DOM/EventSource.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.EventSource ( - module GHCJS.DOM.JSFFI.Generated.EventSource - ) where -import GHCJS.DOM.JSFFI.Generated.EventSource diff --git a/src/GHCJS/DOM/EventTarget.hs b/src/GHCJS/DOM/EventTarget.hs deleted file mode 100644 --- a/src/GHCJS/DOM/EventTarget.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.EventTarget ( - module GHCJS.DOM.JSFFI.Generated.EventTarget - ) where -import GHCJS.DOM.JSFFI.Generated.EventTarget diff --git a/src/GHCJS/DOM/EventTargetClosures.hs b/src/GHCJS/DOM/EventTargetClosures.hs deleted file mode 100644 --- a/src/GHCJS/DOM/EventTargetClosures.hs +++ /dev/null @@ -1,37 +0,0 @@ -{-# LANGUAGE JavaScriptFFI, ForeignFunctionInterface #-} -module GHCJS.DOM.EventTargetClosures - (EventName(..), SaferEventListener(..), unsafeEventName, eventListenerNew, eventListenerNewSync, eventListenerNewAsync, eventListenerRelease) where - -import Control.Applicative ((<$>)) -import GHCJS.Types -import GHCJS.Foreign.Callback.Internal -import GHCJS.Foreign.Callback -import GHCJS.Marshal.Pure -import GHCJS.DOM.Types -import GHCJS.Foreign.Callback.Internal - -newtype EventName t e = EventName DOMString -newtype SaferEventListener t e = SaferEventListener EventListener - -instance PToJSVal (SaferEventListener t e) where - pToJSVal (SaferEventListener l) = pToJSVal l - {-# INLINE pToJSVal #-} - -instance PFromJSVal (SaferEventListener t e) where - pFromJSVal = SaferEventListener . pFromJSVal - {-# INLINE pFromJSVal #-} - -unsafeEventName :: DOMString -> EventName t e -unsafeEventName = EventName - -eventListenerNew :: IsEvent event => (event -> IO ()) -> IO EventListener -eventListenerNew callback = (EventListener . jsval) <$> syncCallback1 ContinueAsync (callback . unsafeCastGObject . GObject) - -eventListenerNewSync :: IsEvent event => (event -> IO ()) -> IO EventListener -eventListenerNewSync callback = (EventListener . jsval) <$> syncCallback1 ThrowWouldBlock (callback . unsafeCastGObject . GObject) - -eventListenerNewAsync :: IsEvent event => (event -> IO ()) -> IO EventListener -eventListenerNewAsync callback = (EventListener . jsval) <$> asyncCallback1 (callback . unsafeCastGObject . GObject) - -eventListenerRelease :: EventListener -> IO () -eventListenerRelease (EventListener ref) = releaseCallback (Callback ref) diff --git a/src/GHCJS/DOM/File.hs b/src/GHCJS/DOM/File.hs deleted file mode 100644 --- a/src/GHCJS/DOM/File.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.File ( - module GHCJS.DOM.JSFFI.Generated.File - ) where -import GHCJS.DOM.JSFFI.Generated.File diff --git a/src/GHCJS/DOM/FileError.hs b/src/GHCJS/DOM/FileError.hs deleted file mode 100644 --- a/src/GHCJS/DOM/FileError.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.FileError ( - module GHCJS.DOM.JSFFI.Generated.FileError - ) where -import GHCJS.DOM.JSFFI.Generated.FileError diff --git a/src/GHCJS/DOM/FileList.hs b/src/GHCJS/DOM/FileList.hs deleted file mode 100644 --- a/src/GHCJS/DOM/FileList.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.FileList ( - module GHCJS.DOM.JSFFI.Generated.FileList - ) where -import GHCJS.DOM.JSFFI.Generated.FileList diff --git a/src/GHCJS/DOM/FileReader.hs b/src/GHCJS/DOM/FileReader.hs deleted file mode 100644 --- a/src/GHCJS/DOM/FileReader.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.FileReader ( - module GHCJS.DOM.JSFFI.Generated.FileReader - ) where -import GHCJS.DOM.JSFFI.Generated.FileReader diff --git a/src/GHCJS/DOM/FileReaderSync.hs b/src/GHCJS/DOM/FileReaderSync.hs deleted file mode 100644 --- a/src/GHCJS/DOM/FileReaderSync.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.FileReaderSync ( - module GHCJS.DOM.JSFFI.Generated.FileReaderSync - ) where -import GHCJS.DOM.JSFFI.Generated.FileReaderSync diff --git a/src/GHCJS/DOM/FocusEvent.hs b/src/GHCJS/DOM/FocusEvent.hs deleted file mode 100644 --- a/src/GHCJS/DOM/FocusEvent.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.FocusEvent ( - module GHCJS.DOM.JSFFI.Generated.FocusEvent - ) where -import GHCJS.DOM.JSFFI.Generated.FocusEvent diff --git a/src/GHCJS/DOM/FontLoader.hs b/src/GHCJS/DOM/FontLoader.hs deleted file mode 100644 --- a/src/GHCJS/DOM/FontLoader.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.FontLoader ( - module GHCJS.DOM.JSFFI.Generated.FontLoader - ) where -import GHCJS.DOM.JSFFI.Generated.FontLoader diff --git a/src/GHCJS/DOM/FormData.hs b/src/GHCJS/DOM/FormData.hs deleted file mode 100644 --- a/src/GHCJS/DOM/FormData.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.FormData ( - module GHCJS.DOM.JSFFI.Generated.FormData - ) where -import GHCJS.DOM.JSFFI.Generated.FormData diff --git a/src/GHCJS/DOM/GainNode.hs b/src/GHCJS/DOM/GainNode.hs deleted file mode 100644 --- a/src/GHCJS/DOM/GainNode.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.GainNode ( - module GHCJS.DOM.JSFFI.Generated.GainNode - ) where -import GHCJS.DOM.JSFFI.Generated.GainNode diff --git a/src/GHCJS/DOM/Gamepad.hs b/src/GHCJS/DOM/Gamepad.hs deleted file mode 100644 --- a/src/GHCJS/DOM/Gamepad.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.Gamepad ( - module GHCJS.DOM.JSFFI.Generated.Gamepad - ) where -import GHCJS.DOM.JSFFI.Generated.Gamepad diff --git a/src/GHCJS/DOM/GamepadButton.hs b/src/GHCJS/DOM/GamepadButton.hs deleted file mode 100644 --- a/src/GHCJS/DOM/GamepadButton.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.GamepadButton ( - module GHCJS.DOM.JSFFI.Generated.GamepadButton - ) where -import GHCJS.DOM.JSFFI.Generated.GamepadButton diff --git a/src/GHCJS/DOM/GamepadEvent.hs b/src/GHCJS/DOM/GamepadEvent.hs deleted file mode 100644 --- a/src/GHCJS/DOM/GamepadEvent.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.GamepadEvent ( - module GHCJS.DOM.JSFFI.Generated.GamepadEvent - ) where -import GHCJS.DOM.JSFFI.Generated.GamepadEvent diff --git a/src/GHCJS/DOM/Geolocation.hs b/src/GHCJS/DOM/Geolocation.hs deleted file mode 100644 --- a/src/GHCJS/DOM/Geolocation.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.Geolocation ( - module GHCJS.DOM.JSFFI.Geolocation - ) where -import GHCJS.DOM.JSFFI.Geolocation diff --git a/src/GHCJS/DOM/Geoposition.hs b/src/GHCJS/DOM/Geoposition.hs deleted file mode 100644 --- a/src/GHCJS/DOM/Geoposition.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.Geoposition ( - module GHCJS.DOM.JSFFI.Generated.Geoposition - ) where -import GHCJS.DOM.JSFFI.Generated.Geoposition diff --git a/src/GHCJS/DOM/HTMLAllCollection.hs b/src/GHCJS/DOM/HTMLAllCollection.hs deleted file mode 100644 --- a/src/GHCJS/DOM/HTMLAllCollection.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.HTMLAllCollection ( - module GHCJS.DOM.JSFFI.Generated.HTMLAllCollection - ) where -import GHCJS.DOM.JSFFI.Generated.HTMLAllCollection diff --git a/src/GHCJS/DOM/HTMLAnchorElement.hs b/src/GHCJS/DOM/HTMLAnchorElement.hs deleted file mode 100644 --- a/src/GHCJS/DOM/HTMLAnchorElement.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.HTMLAnchorElement ( - module GHCJS.DOM.JSFFI.Generated.HTMLAnchorElement - ) where -import GHCJS.DOM.JSFFI.Generated.HTMLAnchorElement diff --git a/src/GHCJS/DOM/HTMLAppletElement.hs b/src/GHCJS/DOM/HTMLAppletElement.hs deleted file mode 100644 --- a/src/GHCJS/DOM/HTMLAppletElement.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.HTMLAppletElement ( - module GHCJS.DOM.JSFFI.Generated.HTMLAppletElement - ) where -import GHCJS.DOM.JSFFI.Generated.HTMLAppletElement diff --git a/src/GHCJS/DOM/HTMLAreaElement.hs b/src/GHCJS/DOM/HTMLAreaElement.hs deleted file mode 100644 --- a/src/GHCJS/DOM/HTMLAreaElement.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.HTMLAreaElement ( - module GHCJS.DOM.JSFFI.Generated.HTMLAreaElement - ) where -import GHCJS.DOM.JSFFI.Generated.HTMLAreaElement diff --git a/src/GHCJS/DOM/HTMLBRElement.hs b/src/GHCJS/DOM/HTMLBRElement.hs deleted file mode 100644 --- a/src/GHCJS/DOM/HTMLBRElement.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.HTMLBRElement ( - module GHCJS.DOM.JSFFI.Generated.HTMLBRElement - ) where -import GHCJS.DOM.JSFFI.Generated.HTMLBRElement diff --git a/src/GHCJS/DOM/HTMLBaseElement.hs b/src/GHCJS/DOM/HTMLBaseElement.hs deleted file mode 100644 --- a/src/GHCJS/DOM/HTMLBaseElement.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.HTMLBaseElement ( - module GHCJS.DOM.JSFFI.Generated.HTMLBaseElement - ) where -import GHCJS.DOM.JSFFI.Generated.HTMLBaseElement diff --git a/src/GHCJS/DOM/HTMLBaseFontElement.hs b/src/GHCJS/DOM/HTMLBaseFontElement.hs deleted file mode 100644 --- a/src/GHCJS/DOM/HTMLBaseFontElement.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.HTMLBaseFontElement ( - module GHCJS.DOM.JSFFI.Generated.HTMLBaseFontElement - ) where -import GHCJS.DOM.JSFFI.Generated.HTMLBaseFontElement diff --git a/src/GHCJS/DOM/HTMLBodyElement.hs b/src/GHCJS/DOM/HTMLBodyElement.hs deleted file mode 100644 --- a/src/GHCJS/DOM/HTMLBodyElement.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.HTMLBodyElement ( - module GHCJS.DOM.JSFFI.Generated.HTMLBodyElement - ) where -import GHCJS.DOM.JSFFI.Generated.HTMLBodyElement diff --git a/src/GHCJS/DOM/HTMLButtonElement.hs b/src/GHCJS/DOM/HTMLButtonElement.hs deleted file mode 100644 --- a/src/GHCJS/DOM/HTMLButtonElement.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.HTMLButtonElement ( - module GHCJS.DOM.JSFFI.Generated.HTMLButtonElement - ) where -import GHCJS.DOM.JSFFI.Generated.HTMLButtonElement diff --git a/src/GHCJS/DOM/HTMLCanvasElement.hs b/src/GHCJS/DOM/HTMLCanvasElement.hs deleted file mode 100644 --- a/src/GHCJS/DOM/HTMLCanvasElement.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.HTMLCanvasElement ( - module GHCJS.DOM.JSFFI.Generated.HTMLCanvasElement - ) where -import GHCJS.DOM.JSFFI.Generated.HTMLCanvasElement diff --git a/src/GHCJS/DOM/HTMLCollection.hs b/src/GHCJS/DOM/HTMLCollection.hs deleted file mode 100644 --- a/src/GHCJS/DOM/HTMLCollection.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.HTMLCollection ( - module GHCJS.DOM.JSFFI.Generated.HTMLCollection - ) where -import GHCJS.DOM.JSFFI.Generated.HTMLCollection diff --git a/src/GHCJS/DOM/HTMLDListElement.hs b/src/GHCJS/DOM/HTMLDListElement.hs deleted file mode 100644 --- a/src/GHCJS/DOM/HTMLDListElement.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.HTMLDListElement ( - module GHCJS.DOM.JSFFI.Generated.HTMLDListElement - ) where -import GHCJS.DOM.JSFFI.Generated.HTMLDListElement diff --git a/src/GHCJS/DOM/HTMLDataListElement.hs b/src/GHCJS/DOM/HTMLDataListElement.hs deleted file mode 100644 --- a/src/GHCJS/DOM/HTMLDataListElement.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.HTMLDataListElement ( - module GHCJS.DOM.JSFFI.Generated.HTMLDataListElement - ) where -import GHCJS.DOM.JSFFI.Generated.HTMLDataListElement diff --git a/src/GHCJS/DOM/HTMLDetailsElement.hs b/src/GHCJS/DOM/HTMLDetailsElement.hs deleted file mode 100644 --- a/src/GHCJS/DOM/HTMLDetailsElement.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.HTMLDetailsElement ( - module GHCJS.DOM.JSFFI.Generated.HTMLDetailsElement - ) where -import GHCJS.DOM.JSFFI.Generated.HTMLDetailsElement diff --git a/src/GHCJS/DOM/HTMLDirectoryElement.hs b/src/GHCJS/DOM/HTMLDirectoryElement.hs deleted file mode 100644 --- a/src/GHCJS/DOM/HTMLDirectoryElement.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.HTMLDirectoryElement ( - module GHCJS.DOM.JSFFI.Generated.HTMLDirectoryElement - ) where -import GHCJS.DOM.JSFFI.Generated.HTMLDirectoryElement diff --git a/src/GHCJS/DOM/HTMLDivElement.hs b/src/GHCJS/DOM/HTMLDivElement.hs deleted file mode 100644 --- a/src/GHCJS/DOM/HTMLDivElement.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.HTMLDivElement ( - module GHCJS.DOM.JSFFI.Generated.HTMLDivElement - ) where -import GHCJS.DOM.JSFFI.Generated.HTMLDivElement diff --git a/src/GHCJS/DOM/HTMLDocument.hs b/src/GHCJS/DOM/HTMLDocument.hs deleted file mode 100644 --- a/src/GHCJS/DOM/HTMLDocument.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.HTMLDocument ( - module GHCJS.DOM.JSFFI.Generated.HTMLDocument - ) where -import GHCJS.DOM.JSFFI.Generated.HTMLDocument diff --git a/src/GHCJS/DOM/HTMLElement.hs b/src/GHCJS/DOM/HTMLElement.hs deleted file mode 100644 --- a/src/GHCJS/DOM/HTMLElement.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.HTMLElement ( - module GHCJS.DOM.JSFFI.Generated.HTMLElement - ) where -import GHCJS.DOM.JSFFI.Generated.HTMLElement diff --git a/src/GHCJS/DOM/HTMLEmbedElement.hs b/src/GHCJS/DOM/HTMLEmbedElement.hs deleted file mode 100644 --- a/src/GHCJS/DOM/HTMLEmbedElement.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.HTMLEmbedElement ( - module GHCJS.DOM.JSFFI.Generated.HTMLEmbedElement - ) where -import GHCJS.DOM.JSFFI.Generated.HTMLEmbedElement diff --git a/src/GHCJS/DOM/HTMLFieldSetElement.hs b/src/GHCJS/DOM/HTMLFieldSetElement.hs deleted file mode 100644 --- a/src/GHCJS/DOM/HTMLFieldSetElement.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.HTMLFieldSetElement ( - module GHCJS.DOM.JSFFI.Generated.HTMLFieldSetElement - ) where -import GHCJS.DOM.JSFFI.Generated.HTMLFieldSetElement diff --git a/src/GHCJS/DOM/HTMLFontElement.hs b/src/GHCJS/DOM/HTMLFontElement.hs deleted file mode 100644 --- a/src/GHCJS/DOM/HTMLFontElement.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.HTMLFontElement ( - module GHCJS.DOM.JSFFI.Generated.HTMLFontElement - ) where -import GHCJS.DOM.JSFFI.Generated.HTMLFontElement diff --git a/src/GHCJS/DOM/HTMLFormControlsCollection.hs b/src/GHCJS/DOM/HTMLFormControlsCollection.hs deleted file mode 100644 --- a/src/GHCJS/DOM/HTMLFormControlsCollection.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.HTMLFormControlsCollection ( - module GHCJS.DOM.JSFFI.Generated.HTMLFormControlsCollection - ) where -import GHCJS.DOM.JSFFI.Generated.HTMLFormControlsCollection diff --git a/src/GHCJS/DOM/HTMLFormElement.hs b/src/GHCJS/DOM/HTMLFormElement.hs deleted file mode 100644 --- a/src/GHCJS/DOM/HTMLFormElement.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.HTMLFormElement ( - module GHCJS.DOM.JSFFI.Generated.HTMLFormElement - ) where -import GHCJS.DOM.JSFFI.Generated.HTMLFormElement diff --git a/src/GHCJS/DOM/HTMLFrameElement.hs b/src/GHCJS/DOM/HTMLFrameElement.hs deleted file mode 100644 --- a/src/GHCJS/DOM/HTMLFrameElement.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.HTMLFrameElement ( - module GHCJS.DOM.JSFFI.Generated.HTMLFrameElement - ) where -import GHCJS.DOM.JSFFI.Generated.HTMLFrameElement diff --git a/src/GHCJS/DOM/HTMLFrameSetElement.hs b/src/GHCJS/DOM/HTMLFrameSetElement.hs deleted file mode 100644 --- a/src/GHCJS/DOM/HTMLFrameSetElement.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.HTMLFrameSetElement ( - module GHCJS.DOM.JSFFI.Generated.HTMLFrameSetElement - ) where -import GHCJS.DOM.JSFFI.Generated.HTMLFrameSetElement diff --git a/src/GHCJS/DOM/HTMLHRElement.hs b/src/GHCJS/DOM/HTMLHRElement.hs deleted file mode 100644 --- a/src/GHCJS/DOM/HTMLHRElement.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.HTMLHRElement ( - module GHCJS.DOM.JSFFI.Generated.HTMLHRElement - ) where -import GHCJS.DOM.JSFFI.Generated.HTMLHRElement diff --git a/src/GHCJS/DOM/HTMLHeadElement.hs b/src/GHCJS/DOM/HTMLHeadElement.hs deleted file mode 100644 --- a/src/GHCJS/DOM/HTMLHeadElement.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.HTMLHeadElement ( - module GHCJS.DOM.JSFFI.Generated.HTMLHeadElement - ) where -import GHCJS.DOM.JSFFI.Generated.HTMLHeadElement diff --git a/src/GHCJS/DOM/HTMLHeadingElement.hs b/src/GHCJS/DOM/HTMLHeadingElement.hs deleted file mode 100644 --- a/src/GHCJS/DOM/HTMLHeadingElement.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.HTMLHeadingElement ( - module GHCJS.DOM.JSFFI.Generated.HTMLHeadingElement - ) where -import GHCJS.DOM.JSFFI.Generated.HTMLHeadingElement diff --git a/src/GHCJS/DOM/HTMLHtmlElement.hs b/src/GHCJS/DOM/HTMLHtmlElement.hs deleted file mode 100644 --- a/src/GHCJS/DOM/HTMLHtmlElement.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.HTMLHtmlElement ( - module GHCJS.DOM.JSFFI.Generated.HTMLHtmlElement - ) where -import GHCJS.DOM.JSFFI.Generated.HTMLHtmlElement diff --git a/src/GHCJS/DOM/HTMLIFrameElement.hs b/src/GHCJS/DOM/HTMLIFrameElement.hs deleted file mode 100644 --- a/src/GHCJS/DOM/HTMLIFrameElement.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.HTMLIFrameElement ( - module GHCJS.DOM.JSFFI.Generated.HTMLIFrameElement - ) where -import GHCJS.DOM.JSFFI.Generated.HTMLIFrameElement diff --git a/src/GHCJS/DOM/HTMLImageElement.hs b/src/GHCJS/DOM/HTMLImageElement.hs deleted file mode 100644 --- a/src/GHCJS/DOM/HTMLImageElement.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.HTMLImageElement ( - module GHCJS.DOM.JSFFI.Generated.HTMLImageElement - ) where -import GHCJS.DOM.JSFFI.Generated.HTMLImageElement diff --git a/src/GHCJS/DOM/HTMLInputElement.hs b/src/GHCJS/DOM/HTMLInputElement.hs deleted file mode 100644 --- a/src/GHCJS/DOM/HTMLInputElement.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.HTMLInputElement ( - module GHCJS.DOM.JSFFI.Generated.HTMLInputElement - ) where -import GHCJS.DOM.JSFFI.Generated.HTMLInputElement diff --git a/src/GHCJS/DOM/HTMLKeygenElement.hs b/src/GHCJS/DOM/HTMLKeygenElement.hs deleted file mode 100644 --- a/src/GHCJS/DOM/HTMLKeygenElement.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.HTMLKeygenElement ( - module GHCJS.DOM.JSFFI.Generated.HTMLKeygenElement - ) where -import GHCJS.DOM.JSFFI.Generated.HTMLKeygenElement diff --git a/src/GHCJS/DOM/HTMLLIElement.hs b/src/GHCJS/DOM/HTMLLIElement.hs deleted file mode 100644 --- a/src/GHCJS/DOM/HTMLLIElement.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.HTMLLIElement ( - module GHCJS.DOM.JSFFI.Generated.HTMLLIElement - ) where -import GHCJS.DOM.JSFFI.Generated.HTMLLIElement diff --git a/src/GHCJS/DOM/HTMLLabelElement.hs b/src/GHCJS/DOM/HTMLLabelElement.hs deleted file mode 100644 --- a/src/GHCJS/DOM/HTMLLabelElement.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.HTMLLabelElement ( - module GHCJS.DOM.JSFFI.Generated.HTMLLabelElement - ) where -import GHCJS.DOM.JSFFI.Generated.HTMLLabelElement diff --git a/src/GHCJS/DOM/HTMLLegendElement.hs b/src/GHCJS/DOM/HTMLLegendElement.hs deleted file mode 100644 --- a/src/GHCJS/DOM/HTMLLegendElement.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.HTMLLegendElement ( - module GHCJS.DOM.JSFFI.Generated.HTMLLegendElement - ) where -import GHCJS.DOM.JSFFI.Generated.HTMLLegendElement diff --git a/src/GHCJS/DOM/HTMLLinkElement.hs b/src/GHCJS/DOM/HTMLLinkElement.hs deleted file mode 100644 --- a/src/GHCJS/DOM/HTMLLinkElement.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.HTMLLinkElement ( - module GHCJS.DOM.JSFFI.Generated.HTMLLinkElement - ) where -import GHCJS.DOM.JSFFI.Generated.HTMLLinkElement diff --git a/src/GHCJS/DOM/HTMLMapElement.hs b/src/GHCJS/DOM/HTMLMapElement.hs deleted file mode 100644 --- a/src/GHCJS/DOM/HTMLMapElement.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.HTMLMapElement ( - module GHCJS.DOM.JSFFI.Generated.HTMLMapElement - ) where -import GHCJS.DOM.JSFFI.Generated.HTMLMapElement diff --git a/src/GHCJS/DOM/HTMLMarqueeElement.hs b/src/GHCJS/DOM/HTMLMarqueeElement.hs deleted file mode 100644 --- a/src/GHCJS/DOM/HTMLMarqueeElement.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.HTMLMarqueeElement ( - module GHCJS.DOM.JSFFI.Generated.HTMLMarqueeElement - ) where -import GHCJS.DOM.JSFFI.Generated.HTMLMarqueeElement diff --git a/src/GHCJS/DOM/HTMLMediaElement.hs b/src/GHCJS/DOM/HTMLMediaElement.hs deleted file mode 100644 --- a/src/GHCJS/DOM/HTMLMediaElement.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.HTMLMediaElement ( - module GHCJS.DOM.JSFFI.Generated.HTMLMediaElement - ) where -import GHCJS.DOM.JSFFI.Generated.HTMLMediaElement diff --git a/src/GHCJS/DOM/HTMLMenuElement.hs b/src/GHCJS/DOM/HTMLMenuElement.hs deleted file mode 100644 --- a/src/GHCJS/DOM/HTMLMenuElement.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.HTMLMenuElement ( - module GHCJS.DOM.JSFFI.Generated.HTMLMenuElement - ) where -import GHCJS.DOM.JSFFI.Generated.HTMLMenuElement diff --git a/src/GHCJS/DOM/HTMLMetaElement.hs b/src/GHCJS/DOM/HTMLMetaElement.hs deleted file mode 100644 --- a/src/GHCJS/DOM/HTMLMetaElement.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.HTMLMetaElement ( - module GHCJS.DOM.JSFFI.Generated.HTMLMetaElement - ) where -import GHCJS.DOM.JSFFI.Generated.HTMLMetaElement diff --git a/src/GHCJS/DOM/HTMLMeterElement.hs b/src/GHCJS/DOM/HTMLMeterElement.hs deleted file mode 100644 --- a/src/GHCJS/DOM/HTMLMeterElement.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.HTMLMeterElement ( - module GHCJS.DOM.JSFFI.Generated.HTMLMeterElement - ) where -import GHCJS.DOM.JSFFI.Generated.HTMLMeterElement diff --git a/src/GHCJS/DOM/HTMLModElement.hs b/src/GHCJS/DOM/HTMLModElement.hs deleted file mode 100644 --- a/src/GHCJS/DOM/HTMLModElement.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.HTMLModElement ( - module GHCJS.DOM.JSFFI.Generated.HTMLModElement - ) where -import GHCJS.DOM.JSFFI.Generated.HTMLModElement diff --git a/src/GHCJS/DOM/HTMLOListElement.hs b/src/GHCJS/DOM/HTMLOListElement.hs deleted file mode 100644 --- a/src/GHCJS/DOM/HTMLOListElement.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.HTMLOListElement ( - module GHCJS.DOM.JSFFI.Generated.HTMLOListElement - ) where -import GHCJS.DOM.JSFFI.Generated.HTMLOListElement diff --git a/src/GHCJS/DOM/HTMLObjectElement.hs b/src/GHCJS/DOM/HTMLObjectElement.hs deleted file mode 100644 --- a/src/GHCJS/DOM/HTMLObjectElement.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.HTMLObjectElement ( - module GHCJS.DOM.JSFFI.Generated.HTMLObjectElement - ) where -import GHCJS.DOM.JSFFI.Generated.HTMLObjectElement diff --git a/src/GHCJS/DOM/HTMLOptGroupElement.hs b/src/GHCJS/DOM/HTMLOptGroupElement.hs deleted file mode 100644 --- a/src/GHCJS/DOM/HTMLOptGroupElement.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.HTMLOptGroupElement ( - module GHCJS.DOM.JSFFI.Generated.HTMLOptGroupElement - ) where -import GHCJS.DOM.JSFFI.Generated.HTMLOptGroupElement diff --git a/src/GHCJS/DOM/HTMLOptionElement.hs b/src/GHCJS/DOM/HTMLOptionElement.hs deleted file mode 100644 --- a/src/GHCJS/DOM/HTMLOptionElement.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.HTMLOptionElement ( - module GHCJS.DOM.JSFFI.Generated.HTMLOptionElement - ) where -import GHCJS.DOM.JSFFI.Generated.HTMLOptionElement diff --git a/src/GHCJS/DOM/HTMLOptionsCollection.hs b/src/GHCJS/DOM/HTMLOptionsCollection.hs deleted file mode 100644 --- a/src/GHCJS/DOM/HTMLOptionsCollection.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.HTMLOptionsCollection ( - module GHCJS.DOM.JSFFI.Generated.HTMLOptionsCollection - ) where -import GHCJS.DOM.JSFFI.Generated.HTMLOptionsCollection diff --git a/src/GHCJS/DOM/HTMLOutputElement.hs b/src/GHCJS/DOM/HTMLOutputElement.hs deleted file mode 100644 --- a/src/GHCJS/DOM/HTMLOutputElement.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.HTMLOutputElement ( - module GHCJS.DOM.JSFFI.Generated.HTMLOutputElement - ) where -import GHCJS.DOM.JSFFI.Generated.HTMLOutputElement diff --git a/src/GHCJS/DOM/HTMLParagraphElement.hs b/src/GHCJS/DOM/HTMLParagraphElement.hs deleted file mode 100644 --- a/src/GHCJS/DOM/HTMLParagraphElement.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.HTMLParagraphElement ( - module GHCJS.DOM.JSFFI.Generated.HTMLParagraphElement - ) where -import GHCJS.DOM.JSFFI.Generated.HTMLParagraphElement diff --git a/src/GHCJS/DOM/HTMLParamElement.hs b/src/GHCJS/DOM/HTMLParamElement.hs deleted file mode 100644 --- a/src/GHCJS/DOM/HTMLParamElement.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.HTMLParamElement ( - module GHCJS.DOM.JSFFI.Generated.HTMLParamElement - ) where -import GHCJS.DOM.JSFFI.Generated.HTMLParamElement diff --git a/src/GHCJS/DOM/HTMLPreElement.hs b/src/GHCJS/DOM/HTMLPreElement.hs deleted file mode 100644 --- a/src/GHCJS/DOM/HTMLPreElement.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.HTMLPreElement ( - module GHCJS.DOM.JSFFI.Generated.HTMLPreElement - ) where -import GHCJS.DOM.JSFFI.Generated.HTMLPreElement diff --git a/src/GHCJS/DOM/HTMLProgressElement.hs b/src/GHCJS/DOM/HTMLProgressElement.hs deleted file mode 100644 --- a/src/GHCJS/DOM/HTMLProgressElement.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.HTMLProgressElement ( - module GHCJS.DOM.JSFFI.Generated.HTMLProgressElement - ) where -import GHCJS.DOM.JSFFI.Generated.HTMLProgressElement diff --git a/src/GHCJS/DOM/HTMLQuoteElement.hs b/src/GHCJS/DOM/HTMLQuoteElement.hs deleted file mode 100644 --- a/src/GHCJS/DOM/HTMLQuoteElement.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.HTMLQuoteElement ( - module GHCJS.DOM.JSFFI.Generated.HTMLQuoteElement - ) where -import GHCJS.DOM.JSFFI.Generated.HTMLQuoteElement diff --git a/src/GHCJS/DOM/HTMLScriptElement.hs b/src/GHCJS/DOM/HTMLScriptElement.hs deleted file mode 100644 --- a/src/GHCJS/DOM/HTMLScriptElement.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.HTMLScriptElement ( - module GHCJS.DOM.JSFFI.Generated.HTMLScriptElement - ) where -import GHCJS.DOM.JSFFI.Generated.HTMLScriptElement diff --git a/src/GHCJS/DOM/HTMLSelectElement.hs b/src/GHCJS/DOM/HTMLSelectElement.hs deleted file mode 100644 --- a/src/GHCJS/DOM/HTMLSelectElement.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.HTMLSelectElement ( - module GHCJS.DOM.JSFFI.Generated.HTMLSelectElement - ) where -import GHCJS.DOM.JSFFI.Generated.HTMLSelectElement diff --git a/src/GHCJS/DOM/HTMLSourceElement.hs b/src/GHCJS/DOM/HTMLSourceElement.hs deleted file mode 100644 --- a/src/GHCJS/DOM/HTMLSourceElement.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.HTMLSourceElement ( - module GHCJS.DOM.JSFFI.Generated.HTMLSourceElement - ) where -import GHCJS.DOM.JSFFI.Generated.HTMLSourceElement diff --git a/src/GHCJS/DOM/HTMLStyleElement.hs b/src/GHCJS/DOM/HTMLStyleElement.hs deleted file mode 100644 --- a/src/GHCJS/DOM/HTMLStyleElement.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.HTMLStyleElement ( - module GHCJS.DOM.JSFFI.Generated.HTMLStyleElement - ) where -import GHCJS.DOM.JSFFI.Generated.HTMLStyleElement diff --git a/src/GHCJS/DOM/HTMLTableCaptionElement.hs b/src/GHCJS/DOM/HTMLTableCaptionElement.hs deleted file mode 100644 --- a/src/GHCJS/DOM/HTMLTableCaptionElement.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.HTMLTableCaptionElement ( - module GHCJS.DOM.JSFFI.Generated.HTMLTableCaptionElement - ) where -import GHCJS.DOM.JSFFI.Generated.HTMLTableCaptionElement diff --git a/src/GHCJS/DOM/HTMLTableCellElement.hs b/src/GHCJS/DOM/HTMLTableCellElement.hs deleted file mode 100644 --- a/src/GHCJS/DOM/HTMLTableCellElement.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.HTMLTableCellElement ( - module GHCJS.DOM.JSFFI.Generated.HTMLTableCellElement - ) where -import GHCJS.DOM.JSFFI.Generated.HTMLTableCellElement diff --git a/src/GHCJS/DOM/HTMLTableColElement.hs b/src/GHCJS/DOM/HTMLTableColElement.hs deleted file mode 100644 --- a/src/GHCJS/DOM/HTMLTableColElement.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.HTMLTableColElement ( - module GHCJS.DOM.JSFFI.Generated.HTMLTableColElement - ) where -import GHCJS.DOM.JSFFI.Generated.HTMLTableColElement diff --git a/src/GHCJS/DOM/HTMLTableElement.hs b/src/GHCJS/DOM/HTMLTableElement.hs deleted file mode 100644 --- a/src/GHCJS/DOM/HTMLTableElement.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.HTMLTableElement ( - module GHCJS.DOM.JSFFI.Generated.HTMLTableElement - ) where -import GHCJS.DOM.JSFFI.Generated.HTMLTableElement diff --git a/src/GHCJS/DOM/HTMLTableRowElement.hs b/src/GHCJS/DOM/HTMLTableRowElement.hs deleted file mode 100644 --- a/src/GHCJS/DOM/HTMLTableRowElement.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.HTMLTableRowElement ( - module GHCJS.DOM.JSFFI.Generated.HTMLTableRowElement - ) where -import GHCJS.DOM.JSFFI.Generated.HTMLTableRowElement diff --git a/src/GHCJS/DOM/HTMLTableSectionElement.hs b/src/GHCJS/DOM/HTMLTableSectionElement.hs deleted file mode 100644 --- a/src/GHCJS/DOM/HTMLTableSectionElement.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.HTMLTableSectionElement ( - module GHCJS.DOM.JSFFI.Generated.HTMLTableSectionElement - ) where -import GHCJS.DOM.JSFFI.Generated.HTMLTableSectionElement diff --git a/src/GHCJS/DOM/HTMLTemplateElement.hs b/src/GHCJS/DOM/HTMLTemplateElement.hs deleted file mode 100644 --- a/src/GHCJS/DOM/HTMLTemplateElement.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.HTMLTemplateElement ( - module GHCJS.DOM.JSFFI.Generated.HTMLTemplateElement - ) where -import GHCJS.DOM.JSFFI.Generated.HTMLTemplateElement diff --git a/src/GHCJS/DOM/HTMLTextAreaElement.hs b/src/GHCJS/DOM/HTMLTextAreaElement.hs deleted file mode 100644 --- a/src/GHCJS/DOM/HTMLTextAreaElement.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.HTMLTextAreaElement ( - module GHCJS.DOM.JSFFI.Generated.HTMLTextAreaElement - ) where -import GHCJS.DOM.JSFFI.Generated.HTMLTextAreaElement diff --git a/src/GHCJS/DOM/HTMLTitleElement.hs b/src/GHCJS/DOM/HTMLTitleElement.hs deleted file mode 100644 --- a/src/GHCJS/DOM/HTMLTitleElement.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.HTMLTitleElement ( - module GHCJS.DOM.JSFFI.Generated.HTMLTitleElement - ) where -import GHCJS.DOM.JSFFI.Generated.HTMLTitleElement diff --git a/src/GHCJS/DOM/HTMLTrackElement.hs b/src/GHCJS/DOM/HTMLTrackElement.hs deleted file mode 100644 --- a/src/GHCJS/DOM/HTMLTrackElement.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.HTMLTrackElement ( - module GHCJS.DOM.JSFFI.Generated.HTMLTrackElement - ) where -import GHCJS.DOM.JSFFI.Generated.HTMLTrackElement diff --git a/src/GHCJS/DOM/HTMLUListElement.hs b/src/GHCJS/DOM/HTMLUListElement.hs deleted file mode 100644 --- a/src/GHCJS/DOM/HTMLUListElement.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.HTMLUListElement ( - module GHCJS.DOM.JSFFI.Generated.HTMLUListElement - ) where -import GHCJS.DOM.JSFFI.Generated.HTMLUListElement diff --git a/src/GHCJS/DOM/HTMLVideoElement.hs b/src/GHCJS/DOM/HTMLVideoElement.hs deleted file mode 100644 --- a/src/GHCJS/DOM/HTMLVideoElement.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.HTMLVideoElement ( - module GHCJS.DOM.JSFFI.Generated.HTMLVideoElement - ) where -import GHCJS.DOM.JSFFI.Generated.HTMLVideoElement diff --git a/src/GHCJS/DOM/HashChangeEvent.hs b/src/GHCJS/DOM/HashChangeEvent.hs deleted file mode 100644 --- a/src/GHCJS/DOM/HashChangeEvent.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.HashChangeEvent ( - module GHCJS.DOM.JSFFI.Generated.HashChangeEvent - ) where -import GHCJS.DOM.JSFFI.Generated.HashChangeEvent diff --git a/src/GHCJS/DOM/History.hs b/src/GHCJS/DOM/History.hs deleted file mode 100644 --- a/src/GHCJS/DOM/History.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.History ( - module GHCJS.DOM.JSFFI.Generated.History - ) where -import GHCJS.DOM.JSFFI.Generated.History diff --git a/src/GHCJS/DOM/IDBCursor.hs b/src/GHCJS/DOM/IDBCursor.hs deleted file mode 100644 --- a/src/GHCJS/DOM/IDBCursor.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.IDBCursor ( - module GHCJS.DOM.JSFFI.Generated.IDBCursor - ) where -import GHCJS.DOM.JSFFI.Generated.IDBCursor diff --git a/src/GHCJS/DOM/IDBCursorWithValue.hs b/src/GHCJS/DOM/IDBCursorWithValue.hs deleted file mode 100644 --- a/src/GHCJS/DOM/IDBCursorWithValue.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.IDBCursorWithValue ( - module GHCJS.DOM.JSFFI.Generated.IDBCursorWithValue - ) where -import GHCJS.DOM.JSFFI.Generated.IDBCursorWithValue diff --git a/src/GHCJS/DOM/IDBDatabase.hs b/src/GHCJS/DOM/IDBDatabase.hs deleted file mode 100644 --- a/src/GHCJS/DOM/IDBDatabase.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.IDBDatabase ( - module GHCJS.DOM.JSFFI.Generated.IDBDatabase - ) where -import GHCJS.DOM.JSFFI.Generated.IDBDatabase diff --git a/src/GHCJS/DOM/IDBFactory.hs b/src/GHCJS/DOM/IDBFactory.hs deleted file mode 100644 --- a/src/GHCJS/DOM/IDBFactory.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.IDBFactory ( - module GHCJS.DOM.JSFFI.Generated.IDBFactory - ) where -import GHCJS.DOM.JSFFI.Generated.IDBFactory diff --git a/src/GHCJS/DOM/IDBIndex.hs b/src/GHCJS/DOM/IDBIndex.hs deleted file mode 100644 --- a/src/GHCJS/DOM/IDBIndex.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.IDBIndex ( - module GHCJS.DOM.JSFFI.Generated.IDBIndex - ) where -import GHCJS.DOM.JSFFI.Generated.IDBIndex diff --git a/src/GHCJS/DOM/IDBKeyRange.hs b/src/GHCJS/DOM/IDBKeyRange.hs deleted file mode 100644 --- a/src/GHCJS/DOM/IDBKeyRange.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.IDBKeyRange ( - module GHCJS.DOM.JSFFI.Generated.IDBKeyRange - ) where -import GHCJS.DOM.JSFFI.Generated.IDBKeyRange diff --git a/src/GHCJS/DOM/IDBObjectStore.hs b/src/GHCJS/DOM/IDBObjectStore.hs deleted file mode 100644 --- a/src/GHCJS/DOM/IDBObjectStore.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.IDBObjectStore ( - module GHCJS.DOM.JSFFI.Generated.IDBObjectStore - ) where -import GHCJS.DOM.JSFFI.Generated.IDBObjectStore diff --git a/src/GHCJS/DOM/IDBOpenDBRequest.hs b/src/GHCJS/DOM/IDBOpenDBRequest.hs deleted file mode 100644 --- a/src/GHCJS/DOM/IDBOpenDBRequest.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.IDBOpenDBRequest ( - module GHCJS.DOM.JSFFI.Generated.IDBOpenDBRequest - ) where -import GHCJS.DOM.JSFFI.Generated.IDBOpenDBRequest diff --git a/src/GHCJS/DOM/IDBRequest.hs b/src/GHCJS/DOM/IDBRequest.hs deleted file mode 100644 --- a/src/GHCJS/DOM/IDBRequest.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.IDBRequest ( - module GHCJS.DOM.JSFFI.Generated.IDBRequest - ) where -import GHCJS.DOM.JSFFI.Generated.IDBRequest diff --git a/src/GHCJS/DOM/IDBTransaction.hs b/src/GHCJS/DOM/IDBTransaction.hs deleted file mode 100644 --- a/src/GHCJS/DOM/IDBTransaction.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.IDBTransaction ( - module GHCJS.DOM.JSFFI.Generated.IDBTransaction - ) where -import GHCJS.DOM.JSFFI.Generated.IDBTransaction diff --git a/src/GHCJS/DOM/IDBVersionChangeEvent.hs b/src/GHCJS/DOM/IDBVersionChangeEvent.hs deleted file mode 100644 --- a/src/GHCJS/DOM/IDBVersionChangeEvent.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.IDBVersionChangeEvent ( - module GHCJS.DOM.JSFFI.Generated.IDBVersionChangeEvent - ) where -import GHCJS.DOM.JSFFI.Generated.IDBVersionChangeEvent diff --git a/src/GHCJS/DOM/ImageData.hs b/src/GHCJS/DOM/ImageData.hs deleted file mode 100644 --- a/src/GHCJS/DOM/ImageData.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.ImageData ( - module GHCJS.DOM.JSFFI.Generated.ImageData - ) where -import GHCJS.DOM.JSFFI.Generated.ImageData diff --git a/src/GHCJS/DOM/InspectorFrontendHost.hs b/src/GHCJS/DOM/InspectorFrontendHost.hs deleted file mode 100644 --- a/src/GHCJS/DOM/InspectorFrontendHost.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.InspectorFrontendHost ( - module GHCJS.DOM.JSFFI.Generated.InspectorFrontendHost - ) where -import GHCJS.DOM.JSFFI.Generated.InspectorFrontendHost diff --git a/src/GHCJS/DOM/InternalSettings.hs b/src/GHCJS/DOM/InternalSettings.hs deleted file mode 100644 --- a/src/GHCJS/DOM/InternalSettings.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.InternalSettings ( - module GHCJS.DOM.JSFFI.Generated.InternalSettings - ) where -import GHCJS.DOM.JSFFI.Generated.InternalSettings diff --git a/src/GHCJS/DOM/Internals.hs b/src/GHCJS/DOM/Internals.hs deleted file mode 100644 --- a/src/GHCJS/DOM/Internals.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.Internals ( - module GHCJS.DOM.JSFFI.Generated.Internals - ) where -import GHCJS.DOM.JSFFI.Generated.Internals diff --git a/src/GHCJS/DOM/JSFFI/AudioContext.hs b/src/GHCJS/DOM/JSFFI/AudioContext.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/AudioContext.hs +++ /dev/null @@ -1,35 +0,0 @@ -{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.AudioContext ( - module Generated - , DecodeAudioError(..) - , js_decodeAudioData - , decodeAudioData -) where - -import Control.Exception (Exception(..), throwIO) -import Control.Monad.IO.Class (MonadIO(..)) - -import GHCJS.Types (JSVal) -import GHCJS.Foreign (jsNull) -import GHCJS.Marshal (fromJSVal, fromJSValUnchecked) -import GHCJS.Foreign.Callback (releaseCallback) -import GHCJS.DOM.Types - -import GHCJS.DOM.JSFFI.Generated.AudioContext as Generated hiding (js_decodeAudioData, decodeAudioData) - -data DecodeAudioError = DecodeAudioError deriving (Show, Eq) - -instance Exception DecodeAudioError - -foreign import javascript interruptible - "$1[\"decodeAudioData\"]($2, $c, function() { $c(null); });" js_decodeAudioData :: - AudioContext -> ArrayBuffer -> IO (Nullable AudioBuffer) - --- | -decodeAudioData :: (MonadIO m, IsAudioContext self, IsArrayBuffer audioData) => - self -> audioData -> m AudioBuffer -decodeAudioData self audioData = liftIO $ nullableToMaybe <$> js_decodeAudioData - (toAudioContext self) - (toArrayBuffer audioData) - >>= maybe (throwIO DecodeAudioError) return - diff --git a/src/GHCJS/DOM/JSFFI/DOMError.hs b/src/GHCJS/DOM/JSFFI/DOMError.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/DOMError.hs +++ /dev/null @@ -1,20 +0,0 @@ -{-# LANGUAGE RecordWildCards #-} -module GHCJS.DOM.JSFFI.DOMError ( - module Generated - , DOMErrorException(..) - , throwDOMErrorException -) where - -import Control.Exception (Exception, throwIO) -import Control.Monad.IO.Class (MonadIO(..)) - -import GHCJS.DOM.JSFFI.Generated.DOMError as Generated - -data DOMErrorException = DOMErrorException { domErrorName :: String } deriving (Show, Eq) - -instance Exception DOMErrorException - -throwDOMErrorException :: MonadIO m => DOMError -> m a -throwDOMErrorException error = do - domErrorName <- getName error - liftIO $ throwIO DOMErrorException{..} diff --git a/src/GHCJS/DOM/JSFFI/Database.hs b/src/GHCJS/DOM/JSFFI/Database.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Database.hs +++ /dev/null @@ -1,75 +0,0 @@ -{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Database ( - module Generated - , js_changeVersion - , changeVersion' - , changeVersion - , js_transaction - , transaction' - , transaction - , js_readTransaction - , readTransaction' - , readTransaction -) where - -import Data.Maybe (fromJust, maybe) - -import Control.Monad.IO.Class (MonadIO(..)) -import Control.Exception (Exception, bracket) - -import GHCJS.Types (JSVal, JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (OnBlocked(..)) -import GHCJS.Marshal (fromJSVal) -import GHCJS.Marshal.Pure (pToJSVal) -import GHCJS.Foreign.Callback (releaseCallback) -import GHCJS.DOM.Types - -import GHCJS.DOM.JSFFI.SQLError (throwSQLException) -import GHCJS.DOM.JSFFI.Generated.SQLTransactionCallback (newSQLTransactionCallbackSync) -import GHCJS.DOM.JSFFI.Generated.Database as Generated hiding (js_changeVersion, changeVersion, js_transaction, transaction, js_readTransaction, readTransaction) - -withSQLTransactionCallback :: (SQLTransaction -> IO ()) -> (SQLTransactionCallback -> IO a) -> IO a -withSQLTransactionCallback f = bracket (newSQLTransactionCallbackSync (f . fromJust)) (\(SQLTransactionCallback c) -> releaseCallback c) - -foreign import javascript interruptible - "$1[\"changeVersion\"]($2, $3, $4, $c, function() { $c(null); });" - js_changeVersion :: Database -> JSString -> JSString -> Nullable SQLTransactionCallback -> IO (Nullable SQLError) - --- | -changeVersion' :: (MonadIO m, ToJSString oldVersion, ToJSString newVersion) => - Database -> oldVersion -> newVersion -> Maybe (SQLTransaction -> IO ()) -> m (Maybe SQLError) -changeVersion' self oldVersion newVersion Nothing = liftIO $ nullableToMaybe <$> - js_changeVersion self (toJSString oldVersion) (toJSString newVersion) (Nullable jsNull) -changeVersion' self oldVersion newVersion (Just callback) = liftIO $ nullableToMaybe <$> - withSQLTransactionCallback callback - (js_changeVersion self (toJSString oldVersion) (toJSString newVersion) . Nullable . pToJSVal) - -changeVersion :: (MonadIO m, ToJSString oldVersion, ToJSString newVersion) => - Database -> oldVersion -> newVersion -> Maybe (SQLTransaction -> IO ()) -> m () -changeVersion self oldVersion newVersion callback = - changeVersion' self oldVersion newVersion callback >>= maybe (return ()) throwSQLException - -foreign import javascript interruptible "$1[\"transaction\"]($2, $c, function() { $c(null); });" - js_transaction :: Database -> SQLTransactionCallback -> IO (Nullable SQLError) - --- | -transaction' :: (MonadIO m) => Database -> (SQLTransaction -> IO ()) -> m (Maybe SQLError) -transaction' self callback = liftIO $ nullableToMaybe <$> - withSQLTransactionCallback callback - (js_transaction self) - -transaction :: (MonadIO m) => Database -> (SQLTransaction -> IO ()) -> m () -transaction self callback = transaction' self callback >>= maybe (return ()) throwSQLException - -foreign import javascript interruptible - "$1[\"readTransaction\"]($2, $c, function() { $c(null); });" - js_readTransaction :: Database -> SQLTransactionCallback -> IO (Nullable SQLError) - --- | -readTransaction' :: (MonadIO m) => Database -> (SQLTransaction -> IO ()) -> m (Maybe SQLError) -readTransaction' self callback = liftIO $ nullableToMaybe <$> - withSQLTransactionCallback callback (js_readTransaction self) - -readTransaction :: (MonadIO m) => Database -> (SQLTransaction -> IO ()) -> m () -readTransaction self callback = readTransaction' self callback >>= maybe (return ()) throwSQLException diff --git a/src/GHCJS/DOM/JSFFI/Generated/ANGLEInstancedArrays.hs b/src/GHCJS/DOM/JSFFI/Generated/ANGLEInstancedArrays.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/ANGLEInstancedArrays.hs +++ /dev/null @@ -1,63 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.ANGLEInstancedArrays - (js_drawArraysInstancedANGLE, drawArraysInstancedANGLE, - js_drawElementsInstancedANGLE, drawElementsInstancedANGLE, - js_vertexAttribDivisorANGLE, vertexAttribDivisorANGLE, - pattern VERTEX_ATTRIB_ARRAY_DIVISOR_ANGLE, ANGLEInstancedArrays, - castToANGLEInstancedArrays, gTypeANGLEInstancedArrays) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe - "$1[\"drawArraysInstancedANGLE\"]($2,\n$3, $4, $5)" - js_drawArraysInstancedANGLE :: - ANGLEInstancedArrays -> Word -> Int -> Int -> Int -> IO () - --- | -drawArraysInstancedANGLE :: - (MonadIO m) => - ANGLEInstancedArrays -> Word -> Int -> Int -> Int -> m () -drawArraysInstancedANGLE self mode first count primcount - = liftIO - (js_drawArraysInstancedANGLE (self) mode first count primcount) - -foreign import javascript unsafe - "$1[\"drawElementsInstancedANGLE\"]($2,\n$3, $4, $5, $6)" - js_drawElementsInstancedANGLE :: - ANGLEInstancedArrays -> - Word -> Int -> Word -> Double -> Int -> IO () - --- | -drawElementsInstancedANGLE :: - (MonadIO m) => - ANGLEInstancedArrays -> Word -> Int -> Word -> Int64 -> Int -> m () -drawElementsInstancedANGLE self mode count type' offset primcount - = liftIO - (js_drawElementsInstancedANGLE (self) mode count type' - (fromIntegral offset) - primcount) - -foreign import javascript unsafe - "$1[\"vertexAttribDivisorANGLE\"]($2,\n$3)" - js_vertexAttribDivisorANGLE :: - ANGLEInstancedArrays -> Word -> Word -> IO () - --- | -vertexAttribDivisorANGLE :: - (MonadIO m) => ANGLEInstancedArrays -> Word -> Word -> m () -vertexAttribDivisorANGLE self index divisor - = liftIO (js_vertexAttribDivisorANGLE (self) index divisor) -pattern VERTEX_ATTRIB_ARRAY_DIVISOR_ANGLE = 35070 diff --git a/src/GHCJS/DOM/JSFFI/Generated/AbstractView.hs b/src/GHCJS/DOM/JSFFI/Generated/AbstractView.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/AbstractView.hs +++ /dev/null @@ -1,36 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.AbstractView - (js_getDocument, getDocument, js_getStyleMedia, getStyleMedia, - AbstractView, castToAbstractView, gTypeAbstractView) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"document\"]" js_getDocument - :: AbstractView -> IO (Nullable Document) - --- | -getDocument :: (MonadIO m) => AbstractView -> m (Maybe Document) -getDocument self - = liftIO (nullableToMaybe <$> (js_getDocument (self))) - -foreign import javascript unsafe "$1[\"styleMedia\"]" - js_getStyleMedia :: AbstractView -> IO (Nullable StyleMedia) - --- | -getStyleMedia :: - (MonadIO m) => AbstractView -> m (Maybe StyleMedia) -getStyleMedia self - = liftIO (nullableToMaybe <$> (js_getStyleMedia (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/AbstractWorker.hs b/src/GHCJS/DOM/JSFFI/Generated/AbstractWorker.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/AbstractWorker.hs +++ /dev/null @@ -1,22 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.AbstractWorker - (error, AbstractWorker, castToAbstractWorker, gTypeAbstractWorker) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - --- | -error :: EventName AbstractWorker UIEvent -error = unsafeEventName (toJSString "error") diff --git a/src/GHCJS/DOM/JSFFI/Generated/AllAudioCapabilities.hs b/src/GHCJS/DOM/JSFFI/Generated/AllAudioCapabilities.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/AllAudioCapabilities.hs +++ /dev/null @@ -1,38 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.AllAudioCapabilities - (js_getSourceId, getSourceId, js_getVolume, getVolume, - AllAudioCapabilities, castToAllAudioCapabilities, - gTypeAllAudioCapabilities) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"sourceId\"]" js_getSourceId - :: AllAudioCapabilities -> IO JSVal - --- | -getSourceId :: - (MonadIO m, FromJSString result) => - AllAudioCapabilities -> m [result] -getSourceId self - = liftIO ((js_getSourceId (self)) >>= fromJSValUnchecked) - -foreign import javascript unsafe "$1[\"volume\"]" js_getVolume :: - AllAudioCapabilities -> IO (Nullable CapabilityRange) - --- | -getVolume :: - (MonadIO m) => AllAudioCapabilities -> m (Maybe CapabilityRange) -getVolume self = liftIO (nullableToMaybe <$> (js_getVolume (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/AllVideoCapabilities.hs b/src/GHCJS/DOM/JSFFI/Generated/AllVideoCapabilities.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/AllVideoCapabilities.hs +++ /dev/null @@ -1,88 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.AllVideoCapabilities - (js_getSourceType, getSourceType, js_getSourceId, getSourceId, - js_getWidth, getWidth, js_getHeight, getHeight, js_getFrameRate, - getFrameRate, js_getAspectRatio, getAspectRatio, js_getFacingMode, - getFacingMode, AllVideoCapabilities, castToAllVideoCapabilities, - gTypeAllVideoCapabilities) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"sourceType\"]" - js_getSourceType :: AllVideoCapabilities -> IO JSVal - --- | -getSourceType :: - (MonadIO m, FromJSString result) => - AllVideoCapabilities -> m [result] -getSourceType self - = liftIO ((js_getSourceType (self)) >>= fromJSValUnchecked) - -foreign import javascript unsafe "$1[\"sourceId\"]" js_getSourceId - :: AllVideoCapabilities -> IO JSVal - --- | -getSourceId :: - (MonadIO m, FromJSString result) => - AllVideoCapabilities -> m [result] -getSourceId self - = liftIO ((js_getSourceId (self)) >>= fromJSValUnchecked) - -foreign import javascript unsafe "$1[\"width\"]" js_getWidth :: - AllVideoCapabilities -> IO (Nullable CapabilityRange) - --- | -getWidth :: - (MonadIO m) => AllVideoCapabilities -> m (Maybe CapabilityRange) -getWidth self = liftIO (nullableToMaybe <$> (js_getWidth (self))) - -foreign import javascript unsafe "$1[\"height\"]" js_getHeight :: - AllVideoCapabilities -> IO (Nullable CapabilityRange) - --- | -getHeight :: - (MonadIO m) => AllVideoCapabilities -> m (Maybe CapabilityRange) -getHeight self = liftIO (nullableToMaybe <$> (js_getHeight (self))) - -foreign import javascript unsafe "$1[\"frameRate\"]" - js_getFrameRate :: - AllVideoCapabilities -> IO (Nullable CapabilityRange) - --- | -getFrameRate :: - (MonadIO m) => AllVideoCapabilities -> m (Maybe CapabilityRange) -getFrameRate self - = liftIO (nullableToMaybe <$> (js_getFrameRate (self))) - -foreign import javascript unsafe "$1[\"aspectRatio\"]" - js_getAspectRatio :: - AllVideoCapabilities -> IO (Nullable CapabilityRange) - --- | -getAspectRatio :: - (MonadIO m) => AllVideoCapabilities -> m (Maybe CapabilityRange) -getAspectRatio self - = liftIO (nullableToMaybe <$> (js_getAspectRatio (self))) - -foreign import javascript unsafe "$1[\"facingMode\"]" - js_getFacingMode :: AllVideoCapabilities -> IO JSVal - --- | -getFacingMode :: - (MonadIO m, FromJSString result) => - AllVideoCapabilities -> m [result] -getFacingMode self - = liftIO ((js_getFacingMode (self)) >>= fromJSValUnchecked) diff --git a/src/GHCJS/DOM/JSFFI/Generated/AnalyserNode.hs b/src/GHCJS/DOM/JSFFI/Generated/AnalyserNode.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/AnalyserNode.hs +++ /dev/null @@ -1,133 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.AnalyserNode - (js_getFloatFrequencyData, getFloatFrequencyData, - js_getByteFrequencyData, getByteFrequencyData, - js_getByteTimeDomainData, getByteTimeDomainData, js_setFftSize, - setFftSize, js_getFftSize, getFftSize, js_getFrequencyBinCount, - getFrequencyBinCount, js_setMinDecibels, setMinDecibels, - js_getMinDecibels, getMinDecibels, js_setMaxDecibels, - setMaxDecibels, js_getMaxDecibels, getMaxDecibels, - js_setSmoothingTimeConstant, setSmoothingTimeConstant, - js_getSmoothingTimeConstant, getSmoothingTimeConstant, - AnalyserNode, castToAnalyserNode, gTypeAnalyserNode) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe - "$1[\"getFloatFrequencyData\"]($2)" js_getFloatFrequencyData :: - AnalyserNode -> Nullable Float32Array -> IO () - --- | -getFloatFrequencyData :: - (MonadIO m, IsFloat32Array array) => - AnalyserNode -> Maybe array -> m () -getFloatFrequencyData self array - = liftIO - (js_getFloatFrequencyData (self) - (maybeToNullable (fmap toFloat32Array array))) - -foreign import javascript unsafe "$1[\"getByteFrequencyData\"]($2)" - js_getByteFrequencyData :: - AnalyserNode -> Nullable Uint8Array -> IO () - --- | -getByteFrequencyData :: - (MonadIO m, IsUint8Array array) => - AnalyserNode -> Maybe array -> m () -getByteFrequencyData self array - = liftIO - (js_getByteFrequencyData (self) - (maybeToNullable (fmap toUint8Array array))) - -foreign import javascript unsafe - "$1[\"getByteTimeDomainData\"]($2)" js_getByteTimeDomainData :: - AnalyserNode -> Nullable Uint8Array -> IO () - --- | -getByteTimeDomainData :: - (MonadIO m, IsUint8Array array) => - AnalyserNode -> Maybe array -> m () -getByteTimeDomainData self array - = liftIO - (js_getByteTimeDomainData (self) - (maybeToNullable (fmap toUint8Array array))) - -foreign import javascript unsafe "$1[\"fftSize\"] = $2;" - js_setFftSize :: AnalyserNode -> Word -> IO () - --- | -setFftSize :: (MonadIO m) => AnalyserNode -> Word -> m () -setFftSize self val = liftIO (js_setFftSize (self) val) - -foreign import javascript unsafe "$1[\"fftSize\"]" js_getFftSize :: - AnalyserNode -> IO Word - --- | -getFftSize :: (MonadIO m) => AnalyserNode -> m Word -getFftSize self = liftIO (js_getFftSize (self)) - -foreign import javascript unsafe "$1[\"frequencyBinCount\"]" - js_getFrequencyBinCount :: AnalyserNode -> IO Word - --- | -getFrequencyBinCount :: (MonadIO m) => AnalyserNode -> m Word -getFrequencyBinCount self = liftIO (js_getFrequencyBinCount (self)) - -foreign import javascript unsafe "$1[\"minDecibels\"] = $2;" - js_setMinDecibels :: AnalyserNode -> Double -> IO () - --- | -setMinDecibels :: (MonadIO m) => AnalyserNode -> Double -> m () -setMinDecibels self val = liftIO (js_setMinDecibels (self) val) - -foreign import javascript unsafe "$1[\"minDecibels\"]" - js_getMinDecibels :: AnalyserNode -> IO Double - --- | -getMinDecibels :: (MonadIO m) => AnalyserNode -> m Double -getMinDecibels self = liftIO (js_getMinDecibels (self)) - -foreign import javascript unsafe "$1[\"maxDecibels\"] = $2;" - js_setMaxDecibels :: AnalyserNode -> Double -> IO () - --- | -setMaxDecibels :: (MonadIO m) => AnalyserNode -> Double -> m () -setMaxDecibels self val = liftIO (js_setMaxDecibels (self) val) - -foreign import javascript unsafe "$1[\"maxDecibels\"]" - js_getMaxDecibels :: AnalyserNode -> IO Double - --- | -getMaxDecibels :: (MonadIO m) => AnalyserNode -> m Double -getMaxDecibels self = liftIO (js_getMaxDecibels (self)) - -foreign import javascript unsafe - "$1[\"smoothingTimeConstant\"] = $2;" js_setSmoothingTimeConstant - :: AnalyserNode -> Double -> IO () - --- | -setSmoothingTimeConstant :: - (MonadIO m) => AnalyserNode -> Double -> m () -setSmoothingTimeConstant self val - = liftIO (js_setSmoothingTimeConstant (self) val) - -foreign import javascript unsafe "$1[\"smoothingTimeConstant\"]" - js_getSmoothingTimeConstant :: AnalyserNode -> IO Double - --- | -getSmoothingTimeConstant :: (MonadIO m) => AnalyserNode -> m Double -getSmoothingTimeConstant self - = liftIO (js_getSmoothingTimeConstant (self)) diff --git a/src/GHCJS/DOM/JSFFI/Generated/AnimationEvent.hs b/src/GHCJS/DOM/JSFFI/Generated/AnimationEvent.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/AnimationEvent.hs +++ /dev/null @@ -1,36 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.AnimationEvent - (js_getAnimationName, getAnimationName, js_getElapsedTime, - getElapsedTime, AnimationEvent, castToAnimationEvent, - gTypeAnimationEvent) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"animationName\"]" - js_getAnimationName :: AnimationEvent -> IO JSString - --- | -getAnimationName :: - (MonadIO m, FromJSString result) => AnimationEvent -> m result -getAnimationName self - = liftIO (fromJSString <$> (js_getAnimationName (self))) - -foreign import javascript unsafe "$1[\"elapsedTime\"]" - js_getElapsedTime :: AnimationEvent -> IO Double - --- | -getElapsedTime :: (MonadIO m) => AnimationEvent -> m Double -getElapsedTime self = liftIO (js_getElapsedTime (self)) diff --git a/src/GHCJS/DOM/JSFFI/Generated/ApplicationCache.hs b/src/GHCJS/DOM/JSFFI/Generated/ApplicationCache.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/ApplicationCache.hs +++ /dev/null @@ -1,89 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.ApplicationCache - (js_update, update, js_swapCache, swapCache, js_abort, abort, - pattern UNCACHED, pattern IDLE, pattern CHECKING, - pattern DOWNLOADING, pattern UPDATEREADY, pattern OBSOLETE, - js_getStatus, getStatus, checking, error, noUpdate, downloading, - progress, updateReady, cached, obsolete, ApplicationCache, - castToApplicationCache, gTypeApplicationCache) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"update\"]()" js_update :: - ApplicationCache -> IO () - --- | -update :: (MonadIO m) => ApplicationCache -> m () -update self = liftIO (js_update (self)) - -foreign import javascript unsafe "$1[\"swapCache\"]()" js_swapCache - :: ApplicationCache -> IO () - --- | -swapCache :: (MonadIO m) => ApplicationCache -> m () -swapCache self = liftIO (js_swapCache (self)) - -foreign import javascript unsafe "$1[\"abort\"]()" js_abort :: - ApplicationCache -> IO () - --- | -abort :: (MonadIO m) => ApplicationCache -> m () -abort self = liftIO (js_abort (self)) -pattern UNCACHED = 0 -pattern IDLE = 1 -pattern CHECKING = 2 -pattern DOWNLOADING = 3 -pattern UPDATEREADY = 4 -pattern OBSOLETE = 5 - -foreign import javascript unsafe "$1[\"status\"]" js_getStatus :: - ApplicationCache -> IO Word - --- | -getStatus :: (MonadIO m) => ApplicationCache -> m Word -getStatus self = liftIO (js_getStatus (self)) - --- | -checking :: EventName ApplicationCache Event -checking = unsafeEventName (toJSString "checking") - --- | -error :: EventName ApplicationCache UIEvent -error = unsafeEventName (toJSString "error") - --- | -noUpdate :: EventName ApplicationCache Event -noUpdate = unsafeEventName (toJSString "noupdate") - --- | -downloading :: EventName ApplicationCache Event -downloading = unsafeEventName (toJSString "downloading") - --- | -progress :: EventName ApplicationCache ProgressEvent -progress = unsafeEventName (toJSString "progress") - --- | -updateReady :: EventName ApplicationCache Event -updateReady = unsafeEventName (toJSString "updateready") - --- | -cached :: EventName ApplicationCache Event -cached = unsafeEventName (toJSString "cached") - --- | -obsolete :: EventName ApplicationCache Event -obsolete = unsafeEventName (toJSString "obsolete") diff --git a/src/GHCJS/DOM/JSFFI/Generated/Attr.hs b/src/GHCJS/DOM/JSFFI/Generated/Attr.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/Attr.hs +++ /dev/null @@ -1,67 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.Attr - (js_getName, getName, js_getSpecified, getSpecified, js_setValue, - setValue, js_getValue, getValue, js_getOwnerElement, - getOwnerElement, js_getIsId, getIsId, Attr, castToAttr, gTypeAttr) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"name\"]" js_getName :: - Attr -> IO (Nullable JSString) - --- | -getName :: - (MonadIO m, FromJSString result) => Attr -> m (Maybe result) -getName self = liftIO (fromMaybeJSString <$> (js_getName (self))) - -foreign import javascript unsafe "($1[\"specified\"] ? 1 : 0)" - js_getSpecified :: Attr -> IO Bool - --- | -getSpecified :: (MonadIO m) => Attr -> m Bool -getSpecified self = liftIO (js_getSpecified (self)) - -foreign import javascript unsafe "$1[\"value\"] = $2;" js_setValue - :: Attr -> Nullable JSString -> IO () - --- | -setValue :: - (MonadIO m, ToJSString val) => Attr -> Maybe val -> m () -setValue self val - = liftIO (js_setValue (self) (toMaybeJSString val)) - -foreign import javascript unsafe "$1[\"value\"]" js_getValue :: - Attr -> IO (Nullable JSString) - --- | -getValue :: - (MonadIO m, FromJSString result) => Attr -> m (Maybe result) -getValue self = liftIO (fromMaybeJSString <$> (js_getValue (self))) - -foreign import javascript unsafe "$1[\"ownerElement\"]" - js_getOwnerElement :: Attr -> IO (Nullable Element) - --- | -getOwnerElement :: (MonadIO m) => Attr -> m (Maybe Element) -getOwnerElement self - = liftIO (nullableToMaybe <$> (js_getOwnerElement (self))) - -foreign import javascript unsafe "($1[\"isId\"] ? 1 : 0)" - js_getIsId :: Attr -> IO Bool - --- | -getIsId :: (MonadIO m) => Attr -> m Bool -getIsId self = liftIO (js_getIsId (self)) diff --git a/src/GHCJS/DOM/JSFFI/Generated/AudioBuffer.hs b/src/GHCJS/DOM/JSFFI/Generated/AudioBuffer.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/AudioBuffer.hs +++ /dev/null @@ -1,75 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.AudioBuffer - (js_getChannelData, getChannelData, js_getLength, getLength, - js_getDuration, getDuration, js_getSampleRate, getSampleRate, - js_setGain, setGain, js_getGain, getGain, js_getNumberOfChannels, - getNumberOfChannels, AudioBuffer, castToAudioBuffer, - gTypeAudioBuffer) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"getChannelData\"]($2)" - js_getChannelData :: - AudioBuffer -> Word -> IO (Nullable Float32Array) - --- | -getChannelData :: - (MonadIO m) => AudioBuffer -> Word -> m (Maybe Float32Array) -getChannelData self channelIndex - = liftIO - (nullableToMaybe <$> (js_getChannelData (self) channelIndex)) - -foreign import javascript unsafe "$1[\"length\"]" js_getLength :: - AudioBuffer -> IO Int - --- | -getLength :: (MonadIO m) => AudioBuffer -> m Int -getLength self = liftIO (js_getLength (self)) - -foreign import javascript unsafe "$1[\"duration\"]" js_getDuration - :: AudioBuffer -> IO Float - --- | -getDuration :: (MonadIO m) => AudioBuffer -> m Float -getDuration self = liftIO (js_getDuration (self)) - -foreign import javascript unsafe "$1[\"sampleRate\"]" - js_getSampleRate :: AudioBuffer -> IO Float - --- | -getSampleRate :: (MonadIO m) => AudioBuffer -> m Float -getSampleRate self = liftIO (js_getSampleRate (self)) - -foreign import javascript unsafe "$1[\"gain\"] = $2;" js_setGain :: - AudioBuffer -> Float -> IO () - --- | -setGain :: (MonadIO m) => AudioBuffer -> Float -> m () -setGain self val = liftIO (js_setGain (self) val) - -foreign import javascript unsafe "$1[\"gain\"]" js_getGain :: - AudioBuffer -> IO Float - --- | -getGain :: (MonadIO m) => AudioBuffer -> m Float -getGain self = liftIO (js_getGain (self)) - -foreign import javascript unsafe "$1[\"numberOfChannels\"]" - js_getNumberOfChannels :: AudioBuffer -> IO Word - --- | -getNumberOfChannels :: (MonadIO m) => AudioBuffer -> m Word -getNumberOfChannels self = liftIO (js_getNumberOfChannels (self)) diff --git a/src/GHCJS/DOM/JSFFI/Generated/AudioBufferCallback.hs b/src/GHCJS/DOM/JSFFI/Generated/AudioBufferCallback.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/AudioBufferCallback.hs +++ /dev/null @@ -1,55 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.AudioBufferCallback - (newAudioBufferCallback, newAudioBufferCallbackSync, - newAudioBufferCallbackAsync, AudioBufferCallback) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - --- | -newAudioBufferCallback :: - (MonadIO m) => - (Maybe AudioBuffer -> IO ()) -> m AudioBufferCallback -newAudioBufferCallback callback - = liftIO - (AudioBufferCallback <$> - syncCallback1 ThrowWouldBlock - (\ audioBuffer -> - fromJSValUnchecked audioBuffer >>= - \ audioBuffer' -> callback audioBuffer')) - --- | -newAudioBufferCallbackSync :: - (MonadIO m) => - (Maybe AudioBuffer -> IO ()) -> m AudioBufferCallback -newAudioBufferCallbackSync callback - = liftIO - (AudioBufferCallback <$> - syncCallback1 ContinueAsync - (\ audioBuffer -> - fromJSValUnchecked audioBuffer >>= - \ audioBuffer' -> callback audioBuffer')) - --- | -newAudioBufferCallbackAsync :: - (MonadIO m) => - (Maybe AudioBuffer -> IO ()) -> m AudioBufferCallback -newAudioBufferCallbackAsync callback - = liftIO - (AudioBufferCallback <$> - asyncCallback1 - (\ audioBuffer -> - fromJSValUnchecked audioBuffer >>= - \ audioBuffer' -> callback audioBuffer')) diff --git a/src/GHCJS/DOM/JSFFI/Generated/AudioBufferSourceNode.hs b/src/GHCJS/DOM/JSFFI/Generated/AudioBufferSourceNode.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/AudioBufferSourceNode.hs +++ /dev/null @@ -1,180 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.AudioBufferSourceNode - (js_start, start, js_stop, stop, js_noteOn, noteOn, js_noteGrainOn, - noteGrainOn, js_noteOff, noteOff, pattern UNSCHEDULED_STATE, - pattern SCHEDULED_STATE, pattern PLAYING_STATE, - pattern FINISHED_STATE, js_setBuffer, setBuffer, js_getBuffer, - getBuffer, js_getPlaybackState, getPlaybackState, js_getGain, - getGain, js_getPlaybackRate, getPlaybackRate, js_setLoop, setLoop, - js_getLoop, getLoop, js_setLoopStart, setLoopStart, - js_getLoopStart, getLoopStart, js_setLoopEnd, setLoopEnd, - js_getLoopEnd, getLoopEnd, js_setLooping, setLooping, - js_getLooping, getLooping, ended, AudioBufferSourceNode, - castToAudioBufferSourceNode, gTypeAudioBufferSourceNode) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"start\"]($2, $3, $4)" - js_start :: - AudioBufferSourceNode -> Double -> Double -> Double -> IO () - --- | -start :: - (MonadIO m) => - AudioBufferSourceNode -> Double -> Double -> Double -> m () -start self when grainOffset grainDuration - = liftIO (js_start (self) when grainOffset grainDuration) - -foreign import javascript unsafe "$1[\"stop\"]($2)" js_stop :: - AudioBufferSourceNode -> Double -> IO () - --- | -stop :: (MonadIO m) => AudioBufferSourceNode -> Double -> m () -stop self when = liftIO (js_stop (self) when) - -foreign import javascript unsafe "$1[\"noteOn\"]($2)" js_noteOn :: - AudioBufferSourceNode -> Double -> IO () - --- | -noteOn :: (MonadIO m) => AudioBufferSourceNode -> Double -> m () -noteOn self when = liftIO (js_noteOn (self) when) - -foreign import javascript unsafe "$1[\"noteGrainOn\"]($2, $3, $4)" - js_noteGrainOn :: - AudioBufferSourceNode -> Double -> Double -> Double -> IO () - --- | -noteGrainOn :: - (MonadIO m) => - AudioBufferSourceNode -> Double -> Double -> Double -> m () -noteGrainOn self when grainOffset grainDuration - = liftIO (js_noteGrainOn (self) when grainOffset grainDuration) - -foreign import javascript unsafe "$1[\"noteOff\"]($2)" js_noteOff - :: AudioBufferSourceNode -> Double -> IO () - --- | -noteOff :: (MonadIO m) => AudioBufferSourceNode -> Double -> m () -noteOff self when = liftIO (js_noteOff (self) when) -pattern UNSCHEDULED_STATE = 0 -pattern SCHEDULED_STATE = 1 -pattern PLAYING_STATE = 2 -pattern FINISHED_STATE = 3 - -foreign import javascript unsafe "$1[\"buffer\"] = $2;" - js_setBuffer :: - AudioBufferSourceNode -> Nullable AudioBuffer -> IO () - --- | -setBuffer :: - (MonadIO m) => AudioBufferSourceNode -> Maybe AudioBuffer -> m () -setBuffer self val - = liftIO (js_setBuffer (self) (maybeToNullable val)) - -foreign import javascript unsafe "$1[\"buffer\"]" js_getBuffer :: - AudioBufferSourceNode -> IO (Nullable AudioBuffer) - --- | -getBuffer :: - (MonadIO m) => AudioBufferSourceNode -> m (Maybe AudioBuffer) -getBuffer self = liftIO (nullableToMaybe <$> (js_getBuffer (self))) - -foreign import javascript unsafe "$1[\"playbackState\"]" - js_getPlaybackState :: AudioBufferSourceNode -> IO Word - --- | -getPlaybackState :: (MonadIO m) => AudioBufferSourceNode -> m Word -getPlaybackState self = liftIO (js_getPlaybackState (self)) - -foreign import javascript unsafe "$1[\"gain\"]" js_getGain :: - AudioBufferSourceNode -> IO (Nullable AudioParam) - --- | -getGain :: - (MonadIO m) => AudioBufferSourceNode -> m (Maybe AudioParam) -getGain self = liftIO (nullableToMaybe <$> (js_getGain (self))) - -foreign import javascript unsafe "$1[\"playbackRate\"]" - js_getPlaybackRate :: - AudioBufferSourceNode -> IO (Nullable AudioParam) - --- | -getPlaybackRate :: - (MonadIO m) => AudioBufferSourceNode -> m (Maybe AudioParam) -getPlaybackRate self - = liftIO (nullableToMaybe <$> (js_getPlaybackRate (self))) - -foreign import javascript unsafe "$1[\"loop\"] = $2;" js_setLoop :: - AudioBufferSourceNode -> Bool -> IO () - --- | -setLoop :: (MonadIO m) => AudioBufferSourceNode -> Bool -> m () -setLoop self val = liftIO (js_setLoop (self) val) - -foreign import javascript unsafe "($1[\"loop\"] ? 1 : 0)" - js_getLoop :: AudioBufferSourceNode -> IO Bool - --- | -getLoop :: (MonadIO m) => AudioBufferSourceNode -> m Bool -getLoop self = liftIO (js_getLoop (self)) - -foreign import javascript unsafe "$1[\"loopStart\"] = $2;" - js_setLoopStart :: AudioBufferSourceNode -> Double -> IO () - --- | -setLoopStart :: - (MonadIO m) => AudioBufferSourceNode -> Double -> m () -setLoopStart self val = liftIO (js_setLoopStart (self) val) - -foreign import javascript unsafe "$1[\"loopStart\"]" - js_getLoopStart :: AudioBufferSourceNode -> IO Double - --- | -getLoopStart :: (MonadIO m) => AudioBufferSourceNode -> m Double -getLoopStart self = liftIO (js_getLoopStart (self)) - -foreign import javascript unsafe "$1[\"loopEnd\"] = $2;" - js_setLoopEnd :: AudioBufferSourceNode -> Double -> IO () - --- | -setLoopEnd :: - (MonadIO m) => AudioBufferSourceNode -> Double -> m () -setLoopEnd self val = liftIO (js_setLoopEnd (self) val) - -foreign import javascript unsafe "$1[\"loopEnd\"]" js_getLoopEnd :: - AudioBufferSourceNode -> IO Double - --- | -getLoopEnd :: (MonadIO m) => AudioBufferSourceNode -> m Double -getLoopEnd self = liftIO (js_getLoopEnd (self)) - -foreign import javascript unsafe "$1[\"looping\"] = $2;" - js_setLooping :: AudioBufferSourceNode -> Bool -> IO () - --- | -setLooping :: (MonadIO m) => AudioBufferSourceNode -> Bool -> m () -setLooping self val = liftIO (js_setLooping (self) val) - -foreign import javascript unsafe "($1[\"looping\"] ? 1 : 0)" - js_getLooping :: AudioBufferSourceNode -> IO Bool - --- | -getLooping :: (MonadIO m) => AudioBufferSourceNode -> m Bool -getLooping self = liftIO (js_getLooping (self)) - --- | -ended :: EventName AudioBufferSourceNode Event -ended = unsafeEventName (toJSString "ended") diff --git a/src/GHCJS/DOM/JSFFI/Generated/AudioContext.hs b/src/GHCJS/DOM/JSFFI/Generated/AudioContext.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/AudioContext.hs +++ /dev/null @@ -1,424 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.AudioContext - (js_newAudioContext, newAudioContext, js_createBuffer, - createBuffer, js_createBufferFromArrayBuffer, - createBufferFromArrayBuffer, js_decodeAudioData, decodeAudioData, - js_createBufferSource, createBufferSource, - js_createMediaElementSource, createMediaElementSource, - js_createMediaStreamSource, createMediaStreamSource, - js_createMediaStreamDestination, createMediaStreamDestination, - js_createGain, createGain, js_createDelay, createDelay, - js_createBiquadFilter, createBiquadFilter, js_createWaveShaper, - createWaveShaper, js_createPanner, createPanner, - js_createConvolver, createConvolver, js_createDynamicsCompressor, - createDynamicsCompressor, js_createAnalyser, createAnalyser, - js_createScriptProcessor, createScriptProcessor, - js_createOscillator, createOscillator, js_createPeriodicWave, - createPeriodicWave, js_createChannelSplitter, - createChannelSplitter, js_createChannelMerger, createChannelMerger, - js_startRendering, startRendering, js_createGainNode, - createGainNode, js_createDelayNode, createDelayNode, - js_createJavaScriptNode, createJavaScriptNode, js_getDestination, - getDestination, js_getCurrentTime, getCurrentTime, - js_getSampleRate, getSampleRate, js_getListener, getListener, - js_getActiveSourceCount, getActiveSourceCount, complete, - AudioContext, castToAudioContext, gTypeAudioContext, - IsAudioContext, toAudioContext) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe - "new (window[\"AudioContext\"]\n||\nwindow[\"webkitAudioContext\"])()" - js_newAudioContext :: IO AudioContext - --- | -newAudioContext :: (MonadIO m) => m AudioContext -newAudioContext = liftIO (js_newAudioContext) - -foreign import javascript unsafe "$1[\"createBuffer\"]($2, $3, $4)" - js_createBuffer :: - AudioContext -> Word -> Word -> Float -> IO (Nullable AudioBuffer) - --- | -createBuffer :: - (MonadIO m, IsAudioContext self) => - self -> Word -> Word -> Float -> m (Maybe AudioBuffer) -createBuffer self numberOfChannels numberOfFrames sampleRate - = liftIO - (nullableToMaybe <$> - (js_createBuffer (toAudioContext self) numberOfChannels - numberOfFrames - sampleRate)) - -foreign import javascript unsafe "$1[\"createBuffer\"]($2, $3)" - js_createBufferFromArrayBuffer :: - AudioContext -> - Nullable ArrayBuffer -> Bool -> IO (Nullable AudioBuffer) - --- | -createBufferFromArrayBuffer :: - (MonadIO m, IsAudioContext self, IsArrayBuffer buffer) => - self -> Maybe buffer -> Bool -> m (Maybe AudioBuffer) -createBufferFromArrayBuffer self buffer mixToMono - = liftIO - (nullableToMaybe <$> - (js_createBufferFromArrayBuffer (toAudioContext self) - (maybeToNullable (fmap toArrayBuffer buffer)) - mixToMono)) - -foreign import javascript unsafe - "$1[\"decodeAudioData\"]($2, $3,\n$4)" js_decodeAudioData :: - AudioContext -> - Nullable ArrayBuffer -> - Nullable AudioBufferCallback -> - Nullable AudioBufferCallback -> IO () - --- | -decodeAudioData :: - (MonadIO m, IsAudioContext self, IsArrayBuffer audioData) => - self -> - Maybe audioData -> - Maybe AudioBufferCallback -> Maybe AudioBufferCallback -> m () -decodeAudioData self audioData successCallback errorCallback - = liftIO - (js_decodeAudioData (toAudioContext self) - (maybeToNullable (fmap toArrayBuffer audioData)) - (maybeToNullable successCallback) - (maybeToNullable errorCallback)) - -foreign import javascript unsafe "$1[\"createBufferSource\"]()" - js_createBufferSource :: - AudioContext -> IO (Nullable AudioBufferSourceNode) - --- | -createBufferSource :: - (MonadIO m, IsAudioContext self) => - self -> m (Maybe AudioBufferSourceNode) -createBufferSource self - = liftIO - (nullableToMaybe <$> (js_createBufferSource (toAudioContext self))) - -foreign import javascript unsafe - "$1[\"createMediaElementSource\"]($2)" js_createMediaElementSource - :: - AudioContext -> - Nullable HTMLMediaElement -> - IO (Nullable MediaElementAudioSourceNode) - --- | -createMediaElementSource :: - (MonadIO m, IsAudioContext self, - IsHTMLMediaElement mediaElement) => - self -> Maybe mediaElement -> m (Maybe MediaElementAudioSourceNode) -createMediaElementSource self mediaElement - = liftIO - (nullableToMaybe <$> - (js_createMediaElementSource (toAudioContext self) - (maybeToNullable (fmap toHTMLMediaElement mediaElement)))) - -foreign import javascript unsafe - "$1[\"createMediaStreamSource\"]($2)" js_createMediaStreamSource :: - AudioContext -> - Nullable MediaStream -> IO (Nullable MediaStreamAudioSourceNode) - --- | -createMediaStreamSource :: - (MonadIO m, IsAudioContext self) => - self -> Maybe MediaStream -> m (Maybe MediaStreamAudioSourceNode) -createMediaStreamSource self mediaStream - = liftIO - (nullableToMaybe <$> - (js_createMediaStreamSource (toAudioContext self) - (maybeToNullable mediaStream))) - -foreign import javascript unsafe - "$1[\"createMediaStreamDestination\"]()" - js_createMediaStreamDestination :: - AudioContext -> IO (Nullable MediaStreamAudioDestinationNode) - --- | -createMediaStreamDestination :: - (MonadIO m, IsAudioContext self) => - self -> m (Maybe MediaStreamAudioDestinationNode) -createMediaStreamDestination self - = liftIO - (nullableToMaybe <$> - (js_createMediaStreamDestination (toAudioContext self))) - -foreign import javascript unsafe "$1[\"createGain\"]()" - js_createGain :: AudioContext -> IO (Nullable GainNode) - --- | -createGain :: - (MonadIO m, IsAudioContext self) => self -> m (Maybe GainNode) -createGain self - = liftIO - (nullableToMaybe <$> (js_createGain (toAudioContext self))) - -foreign import javascript unsafe "$1[\"createDelay\"]($2)" - js_createDelay :: AudioContext -> Double -> IO (Nullable DelayNode) - --- | -createDelay :: - (MonadIO m, IsAudioContext self) => - self -> Double -> m (Maybe DelayNode) -createDelay self maxDelayTime - = liftIO - (nullableToMaybe <$> - (js_createDelay (toAudioContext self) maxDelayTime)) - -foreign import javascript unsafe "$1[\"createBiquadFilter\"]()" - js_createBiquadFilter :: - AudioContext -> IO (Nullable BiquadFilterNode) - --- | -createBiquadFilter :: - (MonadIO m, IsAudioContext self) => - self -> m (Maybe BiquadFilterNode) -createBiquadFilter self - = liftIO - (nullableToMaybe <$> (js_createBiquadFilter (toAudioContext self))) - -foreign import javascript unsafe "$1[\"createWaveShaper\"]()" - js_createWaveShaper :: AudioContext -> IO (Nullable WaveShaperNode) - --- | -createWaveShaper :: - (MonadIO m, IsAudioContext self) => - self -> m (Maybe WaveShaperNode) -createWaveShaper self - = liftIO - (nullableToMaybe <$> (js_createWaveShaper (toAudioContext self))) - -foreign import javascript unsafe "$1[\"createPanner\"]()" - js_createPanner :: AudioContext -> IO (Nullable PannerNode) - --- | -createPanner :: - (MonadIO m, IsAudioContext self) => self -> m (Maybe PannerNode) -createPanner self - = liftIO - (nullableToMaybe <$> (js_createPanner (toAudioContext self))) - -foreign import javascript unsafe "$1[\"createConvolver\"]()" - js_createConvolver :: AudioContext -> IO (Nullable ConvolverNode) - --- | -createConvolver :: - (MonadIO m, IsAudioContext self) => self -> m (Maybe ConvolverNode) -createConvolver self - = liftIO - (nullableToMaybe <$> (js_createConvolver (toAudioContext self))) - -foreign import javascript unsafe - "$1[\"createDynamicsCompressor\"]()" js_createDynamicsCompressor :: - AudioContext -> IO (Nullable DynamicsCompressorNode) - --- | -createDynamicsCompressor :: - (MonadIO m, IsAudioContext self) => - self -> m (Maybe DynamicsCompressorNode) -createDynamicsCompressor self - = liftIO - (nullableToMaybe <$> - (js_createDynamicsCompressor (toAudioContext self))) - -foreign import javascript unsafe "$1[\"createAnalyser\"]()" - js_createAnalyser :: AudioContext -> IO (Nullable AnalyserNode) - --- | -createAnalyser :: - (MonadIO m, IsAudioContext self) => self -> m (Maybe AnalyserNode) -createAnalyser self - = liftIO - (nullableToMaybe <$> (js_createAnalyser (toAudioContext self))) - -foreign import javascript unsafe - "$1[\"createScriptProcessor\"]($2,\n$3, $4)" - js_createScriptProcessor :: - AudioContext -> - Word -> Word -> Word -> IO (Nullable ScriptProcessorNode) - --- | -createScriptProcessor :: - (MonadIO m, IsAudioContext self) => - self -> Word -> Word -> Word -> m (Maybe ScriptProcessorNode) -createScriptProcessor self bufferSize numberOfInputChannels - numberOfOutputChannels - = liftIO - (nullableToMaybe <$> - (js_createScriptProcessor (toAudioContext self) bufferSize - numberOfInputChannels - numberOfOutputChannels)) - -foreign import javascript unsafe "$1[\"createOscillator\"]()" - js_createOscillator :: AudioContext -> IO (Nullable OscillatorNode) - --- | -createOscillator :: - (MonadIO m, IsAudioContext self) => - self -> m (Maybe OscillatorNode) -createOscillator self - = liftIO - (nullableToMaybe <$> (js_createOscillator (toAudioContext self))) - -foreign import javascript unsafe - "$1[\"createPeriodicWave\"]($2, $3)" js_createPeriodicWave :: - AudioContext -> - Nullable Float32Array -> - Nullable Float32Array -> IO (Nullable PeriodicWave) - --- | -createPeriodicWave :: - (MonadIO m, IsAudioContext self, IsFloat32Array real, - IsFloat32Array imag) => - self -> Maybe real -> Maybe imag -> m (Maybe PeriodicWave) -createPeriodicWave self real imag - = liftIO - (nullableToMaybe <$> - (js_createPeriodicWave (toAudioContext self) - (maybeToNullable (fmap toFloat32Array real)) - (maybeToNullable (fmap toFloat32Array imag)))) - -foreign import javascript unsafe - "$1[\"createChannelSplitter\"]($2)" js_createChannelSplitter :: - AudioContext -> Word -> IO (Nullable ChannelSplitterNode) - --- | -createChannelSplitter :: - (MonadIO m, IsAudioContext self) => - self -> Word -> m (Maybe ChannelSplitterNode) -createChannelSplitter self numberOfOutputs - = liftIO - (nullableToMaybe <$> - (js_createChannelSplitter (toAudioContext self) numberOfOutputs)) - -foreign import javascript unsafe "$1[\"createChannelMerger\"]($2)" - js_createChannelMerger :: - AudioContext -> Word -> IO (Nullable ChannelMergerNode) - --- | -createChannelMerger :: - (MonadIO m, IsAudioContext self) => - self -> Word -> m (Maybe ChannelMergerNode) -createChannelMerger self numberOfInputs - = liftIO - (nullableToMaybe <$> - (js_createChannelMerger (toAudioContext self) numberOfInputs)) - -foreign import javascript unsafe "$1[\"startRendering\"]()" - js_startRendering :: AudioContext -> IO () - --- | -startRendering :: (MonadIO m, IsAudioContext self) => self -> m () -startRendering self - = liftIO (js_startRendering (toAudioContext self)) - -foreign import javascript unsafe "$1[\"createGainNode\"]()" - js_createGainNode :: AudioContext -> IO (Nullable GainNode) - --- | -createGainNode :: - (MonadIO m, IsAudioContext self) => self -> m (Maybe GainNode) -createGainNode self - = liftIO - (nullableToMaybe <$> (js_createGainNode (toAudioContext self))) - -foreign import javascript unsafe "$1[\"createDelayNode\"]($2)" - js_createDelayNode :: - AudioContext -> Double -> IO (Nullable DelayNode) - --- | -createDelayNode :: - (MonadIO m, IsAudioContext self) => - self -> Double -> m (Maybe DelayNode) -createDelayNode self maxDelayTime - = liftIO - (nullableToMaybe <$> - (js_createDelayNode (toAudioContext self) maxDelayTime)) - -foreign import javascript unsafe - "$1[\"createJavaScriptNode\"]($2,\n$3, $4)" js_createJavaScriptNode - :: - AudioContext -> - Word -> Word -> Word -> IO (Nullable ScriptProcessorNode) - --- | -createJavaScriptNode :: - (MonadIO m, IsAudioContext self) => - self -> Word -> Word -> Word -> m (Maybe ScriptProcessorNode) -createJavaScriptNode self bufferSize numberOfInputChannels - numberOfOutputChannels - = liftIO - (nullableToMaybe <$> - (js_createJavaScriptNode (toAudioContext self) bufferSize - numberOfInputChannels - numberOfOutputChannels)) - -foreign import javascript unsafe "$1[\"destination\"]" - js_getDestination :: - AudioContext -> IO (Nullable AudioDestinationNode) - --- | -getDestination :: - (MonadIO m, IsAudioContext self) => - self -> m (Maybe AudioDestinationNode) -getDestination self - = liftIO - (nullableToMaybe <$> (js_getDestination (toAudioContext self))) - -foreign import javascript unsafe "$1[\"currentTime\"]" - js_getCurrentTime :: AudioContext -> IO Double - --- | -getCurrentTime :: - (MonadIO m, IsAudioContext self) => self -> m Double -getCurrentTime self - = liftIO (js_getCurrentTime (toAudioContext self)) - -foreign import javascript unsafe "$1[\"sampleRate\"]" - js_getSampleRate :: AudioContext -> IO Float - --- | -getSampleRate :: - (MonadIO m, IsAudioContext self) => self -> m Float -getSampleRate self - = liftIO (js_getSampleRate (toAudioContext self)) - -foreign import javascript unsafe "$1[\"listener\"]" js_getListener - :: AudioContext -> IO (Nullable AudioListener) - --- | -getListener :: - (MonadIO m, IsAudioContext self) => self -> m (Maybe AudioListener) -getListener self - = liftIO - (nullableToMaybe <$> (js_getListener (toAudioContext self))) - -foreign import javascript unsafe "$1[\"activeSourceCount\"]" - js_getActiveSourceCount :: AudioContext -> IO Word - --- | -getActiveSourceCount :: - (MonadIO m, IsAudioContext self) => self -> m Word -getActiveSourceCount self - = liftIO (js_getActiveSourceCount (toAudioContext self)) - --- | -complete :: - (IsAudioContext self, IsEventTarget self) => - EventName self OfflineAudioCompletionEvent -complete = unsafeEventName (toJSString "complete") diff --git a/src/GHCJS/DOM/JSFFI/Generated/AudioDestinationNode.hs b/src/GHCJS/DOM/JSFFI/Generated/AudioDestinationNode.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/AudioDestinationNode.hs +++ /dev/null @@ -1,26 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.AudioDestinationNode - (js_getMaxChannelCount, getMaxChannelCount, AudioDestinationNode, - castToAudioDestinationNode, gTypeAudioDestinationNode) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"maxChannelCount\"]" - js_getMaxChannelCount :: AudioDestinationNode -> IO Word - --- | -getMaxChannelCount :: (MonadIO m) => AudioDestinationNode -> m Word -getMaxChannelCount self = liftIO (js_getMaxChannelCount (self)) diff --git a/src/GHCJS/DOM/JSFFI/Generated/AudioListener.hs b/src/GHCJS/DOM/JSFFI/Generated/AudioListener.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/AudioListener.hs +++ /dev/null @@ -1,80 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.AudioListener - (js_setPosition, setPosition, js_setOrientation, setOrientation, - js_setVelocity, setVelocity, js_setDopplerFactor, setDopplerFactor, - js_getDopplerFactor, getDopplerFactor, js_setSpeedOfSound, - setSpeedOfSound, js_getSpeedOfSound, getSpeedOfSound, - AudioListener, castToAudioListener, gTypeAudioListener) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"setPosition\"]($2, $3, $4)" - js_setPosition :: AudioListener -> Float -> Float -> Float -> IO () - --- | -setPosition :: - (MonadIO m) => AudioListener -> Float -> Float -> Float -> m () -setPosition self x y z = liftIO (js_setPosition (self) x y z) - -foreign import javascript unsafe - "$1[\"setOrientation\"]($2, $3, $4,\n$5, $6, $7)" js_setOrientation - :: - AudioListener -> - Float -> Float -> Float -> Float -> Float -> Float -> IO () - --- | -setOrientation :: - (MonadIO m) => - AudioListener -> - Float -> Float -> Float -> Float -> Float -> Float -> m () -setOrientation self x y z xUp yUp zUp - = liftIO (js_setOrientation (self) x y z xUp yUp zUp) - -foreign import javascript unsafe "$1[\"setVelocity\"]($2, $3, $4)" - js_setVelocity :: AudioListener -> Float -> Float -> Float -> IO () - --- | -setVelocity :: - (MonadIO m) => AudioListener -> Float -> Float -> Float -> m () -setVelocity self x y z = liftIO (js_setVelocity (self) x y z) - -foreign import javascript unsafe "$1[\"dopplerFactor\"] = $2;" - js_setDopplerFactor :: AudioListener -> Float -> IO () - --- | -setDopplerFactor :: (MonadIO m) => AudioListener -> Float -> m () -setDopplerFactor self val = liftIO (js_setDopplerFactor (self) val) - -foreign import javascript unsafe "$1[\"dopplerFactor\"]" - js_getDopplerFactor :: AudioListener -> IO Float - --- | -getDopplerFactor :: (MonadIO m) => AudioListener -> m Float -getDopplerFactor self = liftIO (js_getDopplerFactor (self)) - -foreign import javascript unsafe "$1[\"speedOfSound\"] = $2;" - js_setSpeedOfSound :: AudioListener -> Float -> IO () - --- | -setSpeedOfSound :: (MonadIO m) => AudioListener -> Float -> m () -setSpeedOfSound self val = liftIO (js_setSpeedOfSound (self) val) - -foreign import javascript unsafe "$1[\"speedOfSound\"]" - js_getSpeedOfSound :: AudioListener -> IO Float - --- | -getSpeedOfSound :: (MonadIO m) => AudioListener -> m Float -getSpeedOfSound self = liftIO (js_getSpeedOfSound (self)) diff --git a/src/GHCJS/DOM/JSFFI/Generated/AudioNode.hs b/src/GHCJS/DOM/JSFFI/Generated/AudioNode.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/AudioNode.hs +++ /dev/null @@ -1,151 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.AudioNode - (js_connect, connect, js_connectParam, connectParam, js_disconnect, - disconnect, js_getContext, getContext, js_getNumberOfInputs, - getNumberOfInputs, js_getNumberOfOutputs, getNumberOfOutputs, - js_setChannelCount, setChannelCount, js_getChannelCount, - getChannelCount, js_setChannelCountMode, setChannelCountMode, - js_getChannelCountMode, getChannelCountMode, - js_setChannelInterpretation, setChannelInterpretation, - js_getChannelInterpretation, getChannelInterpretation, AudioNode, - castToAudioNode, gTypeAudioNode, IsAudioNode, toAudioNode) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"connect\"]($2, $3, $4)" - js_connect :: - AudioNode -> Nullable AudioNode -> Word -> Word -> IO () - --- | -connect :: - (MonadIO m, IsAudioNode self, IsAudioNode destination) => - self -> Maybe destination -> Word -> Word -> m () -connect self destination output input - = liftIO - (js_connect (toAudioNode self) - (maybeToNullable (fmap toAudioNode destination)) - output - input) - -foreign import javascript unsafe "$1[\"connect\"]($2, $3)" - js_connectParam :: - AudioNode -> Nullable AudioParam -> Word -> IO () - --- | -connectParam :: - (MonadIO m, IsAudioNode self) => - self -> Maybe AudioParam -> Word -> m () -connectParam self destination output - = liftIO - (js_connectParam (toAudioNode self) (maybeToNullable destination) - output) - -foreign import javascript unsafe "$1[\"disconnect\"]($2)" - js_disconnect :: AudioNode -> Word -> IO () - --- | -disconnect :: (MonadIO m, IsAudioNode self) => self -> Word -> m () -disconnect self output - = liftIO (js_disconnect (toAudioNode self) output) - -foreign import javascript unsafe "$1[\"context\"]" js_getContext :: - AudioNode -> IO (Nullable AudioContext) - --- | -getContext :: - (MonadIO m, IsAudioNode self) => self -> m (Maybe AudioContext) -getContext self - = liftIO (nullableToMaybe <$> (js_getContext (toAudioNode self))) - -foreign import javascript unsafe "$1[\"numberOfInputs\"]" - js_getNumberOfInputs :: AudioNode -> IO Word - --- | -getNumberOfInputs :: - (MonadIO m, IsAudioNode self) => self -> m Word -getNumberOfInputs self - = liftIO (js_getNumberOfInputs (toAudioNode self)) - -foreign import javascript unsafe "$1[\"numberOfOutputs\"]" - js_getNumberOfOutputs :: AudioNode -> IO Word - --- | -getNumberOfOutputs :: - (MonadIO m, IsAudioNode self) => self -> m Word -getNumberOfOutputs self - = liftIO (js_getNumberOfOutputs (toAudioNode self)) - -foreign import javascript unsafe "$1[\"channelCount\"] = $2;" - js_setChannelCount :: AudioNode -> Word -> IO () - --- | -setChannelCount :: - (MonadIO m, IsAudioNode self) => self -> Word -> m () -setChannelCount self val - = liftIO (js_setChannelCount (toAudioNode self) val) - -foreign import javascript unsafe "$1[\"channelCount\"]" - js_getChannelCount :: AudioNode -> IO Word - --- | -getChannelCount :: (MonadIO m, IsAudioNode self) => self -> m Word -getChannelCount self - = liftIO (js_getChannelCount (toAudioNode self)) - -foreign import javascript unsafe "$1[\"channelCountMode\"] = $2;" - js_setChannelCountMode :: AudioNode -> JSString -> IO () - --- | -setChannelCountMode :: - (MonadIO m, IsAudioNode self, ToJSString val) => - self -> val -> m () -setChannelCountMode self val - = liftIO - (js_setChannelCountMode (toAudioNode self) (toJSString val)) - -foreign import javascript unsafe "$1[\"channelCountMode\"]" - js_getChannelCountMode :: AudioNode -> IO JSString - --- | -getChannelCountMode :: - (MonadIO m, IsAudioNode self, FromJSString result) => - self -> m result -getChannelCountMode self - = liftIO - (fromJSString <$> (js_getChannelCountMode (toAudioNode self))) - -foreign import javascript unsafe - "$1[\"channelInterpretation\"] = $2;" js_setChannelInterpretation - :: AudioNode -> JSString -> IO () - --- | -setChannelInterpretation :: - (MonadIO m, IsAudioNode self, ToJSString val) => - self -> val -> m () -setChannelInterpretation self val - = liftIO - (js_setChannelInterpretation (toAudioNode self) (toJSString val)) - -foreign import javascript unsafe "$1[\"channelInterpretation\"]" - js_getChannelInterpretation :: AudioNode -> IO JSString - --- | -getChannelInterpretation :: - (MonadIO m, IsAudioNode self, FromJSString result) => - self -> m result -getChannelInterpretation self - = liftIO - (fromJSString <$> (js_getChannelInterpretation (toAudioNode self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/AudioParam.hs b/src/GHCJS/DOM/JSFFI/Generated/AudioParam.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/AudioParam.hs +++ /dev/null @@ -1,152 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.AudioParam - (js_setValueAtTime, setValueAtTime, js_linearRampToValueAtTime, - linearRampToValueAtTime, js_exponentialRampToValueAtTime, - exponentialRampToValueAtTime, js_setTargetAtTime, setTargetAtTime, - js_setValueCurveAtTime, setValueCurveAtTime, - js_cancelScheduledValues, cancelScheduledValues, - js_setTargetValueAtTime, setTargetValueAtTime, js_setValue, - setValue, js_getValue, getValue, js_getMinValue, getMinValue, - js_getMaxValue, getMaxValue, js_getDefaultValue, getDefaultValue, - js_getName, getName, js_getUnits, getUnits, AudioParam, - castToAudioParam, gTypeAudioParam) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"setValueAtTime\"]($2, $3)" - js_setValueAtTime :: AudioParam -> Float -> Float -> IO () - --- | -setValueAtTime :: - (MonadIO m) => AudioParam -> Float -> Float -> m () -setValueAtTime self value time - = liftIO (js_setValueAtTime (self) value time) - -foreign import javascript unsafe - "$1[\"linearRampToValueAtTime\"]($2,\n$3)" - js_linearRampToValueAtTime :: AudioParam -> Float -> Float -> IO () - --- | -linearRampToValueAtTime :: - (MonadIO m) => AudioParam -> Float -> Float -> m () -linearRampToValueAtTime self value time - = liftIO (js_linearRampToValueAtTime (self) value time) - -foreign import javascript unsafe - "$1[\"exponentialRampToValueAtTime\"]($2,\n$3)" - js_exponentialRampToValueAtTime :: - AudioParam -> Float -> Float -> IO () - --- | -exponentialRampToValueAtTime :: - (MonadIO m) => AudioParam -> Float -> Float -> m () -exponentialRampToValueAtTime self value time - = liftIO (js_exponentialRampToValueAtTime (self) value time) - -foreign import javascript unsafe - "$1[\"setTargetAtTime\"]($2, $3,\n$4)" js_setTargetAtTime :: - AudioParam -> Float -> Float -> Float -> IO () - --- | -setTargetAtTime :: - (MonadIO m) => AudioParam -> Float -> Float -> Float -> m () -setTargetAtTime self target time timeConstant - = liftIO (js_setTargetAtTime (self) target time timeConstant) - -foreign import javascript unsafe - "$1[\"setValueCurveAtTime\"]($2,\n$3, $4)" js_setValueCurveAtTime - :: AudioParam -> Nullable Float32Array -> Float -> Float -> IO () - --- | -setValueCurveAtTime :: - (MonadIO m, IsFloat32Array values) => - AudioParam -> Maybe values -> Float -> Float -> m () -setValueCurveAtTime self values time duration - = liftIO - (js_setValueCurveAtTime (self) - (maybeToNullable (fmap toFloat32Array values)) - time - duration) - -foreign import javascript unsafe - "$1[\"cancelScheduledValues\"]($2)" js_cancelScheduledValues :: - AudioParam -> Float -> IO () - --- | -cancelScheduledValues :: (MonadIO m) => AudioParam -> Float -> m () -cancelScheduledValues self startTime - = liftIO (js_cancelScheduledValues (self) startTime) - -foreign import javascript unsafe - "$1[\"setTargetValueAtTime\"]($2,\n$3, $4)" js_setTargetValueAtTime - :: AudioParam -> Float -> Float -> Float -> IO () - --- | -setTargetValueAtTime :: - (MonadIO m) => AudioParam -> Float -> Float -> Float -> m () -setTargetValueAtTime self targetValue time timeConstant - = liftIO - (js_setTargetValueAtTime (self) targetValue time timeConstant) - -foreign import javascript unsafe "$1[\"value\"] = $2;" js_setValue - :: AudioParam -> Float -> IO () - --- | -setValue :: (MonadIO m) => AudioParam -> Float -> m () -setValue self val = liftIO (js_setValue (self) val) - -foreign import javascript unsafe "$1[\"value\"]" js_getValue :: - AudioParam -> IO Float - --- | -getValue :: (MonadIO m) => AudioParam -> m Float -getValue self = liftIO (js_getValue (self)) - -foreign import javascript unsafe "$1[\"minValue\"]" js_getMinValue - :: AudioParam -> IO Float - --- | -getMinValue :: (MonadIO m) => AudioParam -> m Float -getMinValue self = liftIO (js_getMinValue (self)) - -foreign import javascript unsafe "$1[\"maxValue\"]" js_getMaxValue - :: AudioParam -> IO Float - --- | -getMaxValue :: (MonadIO m) => AudioParam -> m Float -getMaxValue self = liftIO (js_getMaxValue (self)) - -foreign import javascript unsafe "$1[\"defaultValue\"]" - js_getDefaultValue :: AudioParam -> IO Float - --- | -getDefaultValue :: (MonadIO m) => AudioParam -> m Float -getDefaultValue self = liftIO (js_getDefaultValue (self)) - -foreign import javascript unsafe "$1[\"name\"]" js_getName :: - AudioParam -> IO JSString - --- | -getName :: - (MonadIO m, FromJSString result) => AudioParam -> m result -getName self = liftIO (fromJSString <$> (js_getName (self))) - -foreign import javascript unsafe "$1[\"units\"]" js_getUnits :: - AudioParam -> IO Word - --- | -getUnits :: (MonadIO m) => AudioParam -> m Word -getUnits self = liftIO (js_getUnits (self)) diff --git a/src/GHCJS/DOM/JSFFI/Generated/AudioProcessingEvent.hs b/src/GHCJS/DOM/JSFFI/Generated/AudioProcessingEvent.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/AudioProcessingEvent.hs +++ /dev/null @@ -1,48 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.AudioProcessingEvent - (js_getPlaybackTime, getPlaybackTime, js_getInputBuffer, - getInputBuffer, js_getOutputBuffer, getOutputBuffer, - AudioProcessingEvent, castToAudioProcessingEvent, - gTypeAudioProcessingEvent) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"playbackTime\"]" - js_getPlaybackTime :: AudioProcessingEvent -> IO Double - --- | -getPlaybackTime :: (MonadIO m) => AudioProcessingEvent -> m Double -getPlaybackTime self = liftIO (js_getPlaybackTime (self)) - -foreign import javascript unsafe "$1[\"inputBuffer\"]" - js_getInputBuffer :: - AudioProcessingEvent -> IO (Nullable AudioBuffer) - --- | -getInputBuffer :: - (MonadIO m) => AudioProcessingEvent -> m (Maybe AudioBuffer) -getInputBuffer self - = liftIO (nullableToMaybe <$> (js_getInputBuffer (self))) - -foreign import javascript unsafe "$1[\"outputBuffer\"]" - js_getOutputBuffer :: - AudioProcessingEvent -> IO (Nullable AudioBuffer) - --- | -getOutputBuffer :: - (MonadIO m) => AudioProcessingEvent -> m (Maybe AudioBuffer) -getOutputBuffer self - = liftIO (nullableToMaybe <$> (js_getOutputBuffer (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/AudioStreamTrack.hs b/src/GHCJS/DOM/JSFFI/Generated/AudioStreamTrack.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/AudioStreamTrack.hs +++ /dev/null @@ -1,32 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.AudioStreamTrack - (js_newAudioStreamTrack, newAudioStreamTrack, AudioStreamTrack, - castToAudioStreamTrack, gTypeAudioStreamTrack) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe - "new window[\"AudioStreamTrack\"]($1)" js_newAudioStreamTrack :: - Nullable Dictionary -> IO AudioStreamTrack - --- | -newAudioStreamTrack :: - (MonadIO m, IsDictionary audioConstraints) => - Maybe audioConstraints -> m AudioStreamTrack -newAudioStreamTrack audioConstraints - = liftIO - (js_newAudioStreamTrack - (maybeToNullable (fmap toDictionary audioConstraints))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/AudioTrack.hs b/src/GHCJS/DOM/JSFFI/Generated/AudioTrack.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/AudioTrack.hs +++ /dev/null @@ -1,93 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.AudioTrack - (js_getId, getId, js_setKind, setKind, js_getKind, getKind, - js_getLabel, getLabel, js_setLanguage, setLanguage, js_getLanguage, - getLanguage, js_setEnabled, setEnabled, js_getEnabled, getEnabled, - js_getSourceBuffer, getSourceBuffer, AudioTrack, castToAudioTrack, - gTypeAudioTrack) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"id\"]" js_getId :: - AudioTrack -> IO JSString - --- | -getId :: (MonadIO m, FromJSString result) => AudioTrack -> m result -getId self = liftIO (fromJSString <$> (js_getId (self))) - -foreign import javascript unsafe "$1[\"kind\"] = $2;" js_setKind :: - AudioTrack -> JSString -> IO () - --- | -setKind :: (MonadIO m, ToJSString val) => AudioTrack -> val -> m () -setKind self val = liftIO (js_setKind (self) (toJSString val)) - -foreign import javascript unsafe "$1[\"kind\"]" js_getKind :: - AudioTrack -> IO JSString - --- | -getKind :: - (MonadIO m, FromJSString result) => AudioTrack -> m result -getKind self = liftIO (fromJSString <$> (js_getKind (self))) - -foreign import javascript unsafe "$1[\"label\"]" js_getLabel :: - AudioTrack -> IO JSString - --- | -getLabel :: - (MonadIO m, FromJSString result) => AudioTrack -> m result -getLabel self = liftIO (fromJSString <$> (js_getLabel (self))) - -foreign import javascript unsafe "$1[\"language\"] = $2;" - js_setLanguage :: AudioTrack -> JSString -> IO () - --- | -setLanguage :: - (MonadIO m, ToJSString val) => AudioTrack -> val -> m () -setLanguage self val - = liftIO (js_setLanguage (self) (toJSString val)) - -foreign import javascript unsafe "$1[\"language\"]" js_getLanguage - :: AudioTrack -> IO JSString - --- | -getLanguage :: - (MonadIO m, FromJSString result) => AudioTrack -> m result -getLanguage self - = liftIO (fromJSString <$> (js_getLanguage (self))) - -foreign import javascript unsafe "$1[\"enabled\"] = $2;" - js_setEnabled :: AudioTrack -> Bool -> IO () - --- | -setEnabled :: (MonadIO m) => AudioTrack -> Bool -> m () -setEnabled self val = liftIO (js_setEnabled (self) val) - -foreign import javascript unsafe "($1[\"enabled\"] ? 1 : 0)" - js_getEnabled :: AudioTrack -> IO Bool - --- | -getEnabled :: (MonadIO m) => AudioTrack -> m Bool -getEnabled self = liftIO (js_getEnabled (self)) - -foreign import javascript unsafe "$1[\"sourceBuffer\"]" - js_getSourceBuffer :: AudioTrack -> IO (Nullable SourceBuffer) - --- | -getSourceBuffer :: - (MonadIO m) => AudioTrack -> m (Maybe SourceBuffer) -getSourceBuffer self - = liftIO (nullableToMaybe <$> (js_getSourceBuffer (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/AudioTrackList.hs b/src/GHCJS/DOM/JSFFI/Generated/AudioTrackList.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/AudioTrackList.hs +++ /dev/null @@ -1,60 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.AudioTrackList - (js_item, item, js_getTrackById, getTrackById, js_getLength, - getLength, change, addTrack, removeTrack, AudioTrackList, - castToAudioTrackList, gTypeAudioTrackList) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"item\"]($2)" js_item :: - AudioTrackList -> Word -> IO (Nullable AudioTrack) - --- | -item :: - (MonadIO m) => AudioTrackList -> Word -> m (Maybe AudioTrack) -item self index - = liftIO (nullableToMaybe <$> (js_item (self) index)) - -foreign import javascript unsafe "$1[\"getTrackById\"]($2)" - js_getTrackById :: - AudioTrackList -> JSString -> IO (Nullable AudioTrack) - --- | -getTrackById :: - (MonadIO m, ToJSString id) => - AudioTrackList -> id -> m (Maybe AudioTrack) -getTrackById self id - = liftIO - (nullableToMaybe <$> (js_getTrackById (self) (toJSString id))) - -foreign import javascript unsafe "$1[\"length\"]" js_getLength :: - AudioTrackList -> IO Word - --- | -getLength :: (MonadIO m) => AudioTrackList -> m Word -getLength self = liftIO (js_getLength (self)) - --- | -change :: EventName AudioTrackList Event -change = unsafeEventName (toJSString "change") - --- | -addTrack :: EventName AudioTrackList Event -addTrack = unsafeEventName (toJSString "addtrack") - --- | -removeTrack :: EventName AudioTrackList Event -removeTrack = unsafeEventName (toJSString "removetrack") diff --git a/src/GHCJS/DOM/JSFFI/Generated/AutocompleteErrorEvent.hs b/src/GHCJS/DOM/JSFFI/Generated/AutocompleteErrorEvent.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/AutocompleteErrorEvent.hs +++ /dev/null @@ -1,28 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.AutocompleteErrorEvent - (js_getReason, getReason, AutocompleteErrorEvent, - castToAutocompleteErrorEvent, gTypeAutocompleteErrorEvent) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"reason\"]" js_getReason :: - AutocompleteErrorEvent -> IO JSString - --- | -getReason :: - (MonadIO m, FromJSString result) => - AutocompleteErrorEvent -> m result -getReason self = liftIO (fromJSString <$> (js_getReason (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/BarProp.hs b/src/GHCJS/DOM/JSFFI/Generated/BarProp.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/BarProp.hs +++ /dev/null @@ -1,25 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.BarProp - (js_getVisible, getVisible, BarProp, castToBarProp, gTypeBarProp) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "($1[\"visible\"] ? 1 : 0)" - js_getVisible :: BarProp -> IO Bool - --- | -getVisible :: (MonadIO m) => BarProp -> m Bool -getVisible self = liftIO (js_getVisible (self)) diff --git a/src/GHCJS/DOM/JSFFI/Generated/BatteryManager.hs b/src/GHCJS/DOM/JSFFI/Generated/BatteryManager.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/BatteryManager.hs +++ /dev/null @@ -1,68 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.BatteryManager - (js_getCharging, getCharging, js_getChargingTime, getChargingTime, - js_getDischargingTime, getDischargingTime, js_getLevel, getLevel, - chargingChange, chargingTimeChange, dischargingTimeChange, - levelChange, BatteryManager, castToBatteryManager, - gTypeBatteryManager) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "($1[\"charging\"] ? 1 : 0)" - js_getCharging :: BatteryManager -> IO Bool - --- | -getCharging :: (MonadIO m) => BatteryManager -> m Bool -getCharging self = liftIO (js_getCharging (self)) - -foreign import javascript unsafe "$1[\"chargingTime\"]" - js_getChargingTime :: BatteryManager -> IO Double - --- | -getChargingTime :: (MonadIO m) => BatteryManager -> m Double -getChargingTime self = liftIO (js_getChargingTime (self)) - -foreign import javascript unsafe "$1[\"dischargingTime\"]" - js_getDischargingTime :: BatteryManager -> IO Double - --- | -getDischargingTime :: (MonadIO m) => BatteryManager -> m Double -getDischargingTime self = liftIO (js_getDischargingTime (self)) - -foreign import javascript unsafe "$1[\"level\"]" js_getLevel :: - BatteryManager -> IO Double - --- | -getLevel :: (MonadIO m) => BatteryManager -> m Double -getLevel self = liftIO (js_getLevel (self)) - --- | -chargingChange :: EventName BatteryManager Event -chargingChange = unsafeEventName (toJSString "chargingchange") - --- | -chargingTimeChange :: EventName BatteryManager Event -chargingTimeChange - = unsafeEventName (toJSString "chargingtimechange") - --- | -dischargingTimeChange :: EventName BatteryManager Event -dischargingTimeChange - = unsafeEventName (toJSString "dischargingtimechange") - --- | -levelChange :: EventName BatteryManager Event -levelChange = unsafeEventName (toJSString "levelchange") diff --git a/src/GHCJS/DOM/JSFFI/Generated/BeforeLoadEvent.hs b/src/GHCJS/DOM/JSFFI/Generated/BeforeLoadEvent.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/BeforeLoadEvent.hs +++ /dev/null @@ -1,27 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.BeforeLoadEvent - (js_getUrl, getUrl, BeforeLoadEvent, castToBeforeLoadEvent, - gTypeBeforeLoadEvent) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"url\"]" js_getUrl :: - BeforeLoadEvent -> IO JSString - --- | -getUrl :: - (MonadIO m, FromJSString result) => BeforeLoadEvent -> m result -getUrl self = liftIO (fromJSString <$> (js_getUrl (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/BeforeUnloadEvent.hs b/src/GHCJS/DOM/JSFFI/Generated/BeforeUnloadEvent.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/BeforeUnloadEvent.hs +++ /dev/null @@ -1,38 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.BeforeUnloadEvent - (js_setReturnValue, setReturnValue, js_getReturnValue, - getReturnValue, BeforeUnloadEvent, castToBeforeUnloadEvent, - gTypeBeforeUnloadEvent) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"returnValue\"] = $2;" - js_setReturnValue :: BeforeUnloadEvent -> JSString -> IO () - --- | -setReturnValue :: - (MonadIO m, ToJSString val) => BeforeUnloadEvent -> val -> m () -setReturnValue self val - = liftIO (js_setReturnValue (self) (toJSString val)) - -foreign import javascript unsafe "$1[\"returnValue\"]" - js_getReturnValue :: BeforeUnloadEvent -> IO JSString - --- | -getReturnValue :: - (MonadIO m, FromJSString result) => BeforeUnloadEvent -> m result -getReturnValue self - = liftIO (fromJSString <$> (js_getReturnValue (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/BiquadFilterNode.hs b/src/GHCJS/DOM/JSFFI/Generated/BiquadFilterNode.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/BiquadFilterNode.hs +++ /dev/null @@ -1,100 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.BiquadFilterNode - (js_getFrequencyResponse, getFrequencyResponse, pattern LOWPASS, - pattern HIGHPASS, pattern BANDPASS, pattern LOWSHELF, - pattern HIGHSHELF, pattern PEAKING, pattern NOTCH, pattern ALLPASS, - js_setType, setType, js_getType, getType, js_getFrequency, - getFrequency, js_getDetune, getDetune, js_getQ, getQ, js_getGain, - getGain, BiquadFilterNode, castToBiquadFilterNode, - gTypeBiquadFilterNode) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe - "$1[\"getFrequencyResponse\"]($2,\n$3, $4)" js_getFrequencyResponse - :: - BiquadFilterNode -> - Nullable Float32Array -> - Nullable Float32Array -> Nullable Float32Array -> IO () - --- | -getFrequencyResponse :: - (MonadIO m, IsFloat32Array frequencyHz, IsFloat32Array magResponse, - IsFloat32Array phaseResponse) => - BiquadFilterNode -> - Maybe frequencyHz -> - Maybe magResponse -> Maybe phaseResponse -> m () -getFrequencyResponse self frequencyHz magResponse phaseResponse - = liftIO - (js_getFrequencyResponse (self) - (maybeToNullable (fmap toFloat32Array frequencyHz)) - (maybeToNullable (fmap toFloat32Array magResponse)) - (maybeToNullable (fmap toFloat32Array phaseResponse))) -pattern LOWPASS = 0 -pattern HIGHPASS = 1 -pattern BANDPASS = 2 -pattern LOWSHELF = 3 -pattern HIGHSHELF = 4 -pattern PEAKING = 5 -pattern NOTCH = 6 -pattern ALLPASS = 7 - -foreign import javascript unsafe "$1[\"type\"] = $2;" js_setType :: - BiquadFilterNode -> JSString -> IO () - --- | -setType :: - (MonadIO m, ToJSString val) => BiquadFilterNode -> val -> m () -setType self val = liftIO (js_setType (self) (toJSString val)) - -foreign import javascript unsafe "$1[\"type\"]" js_getType :: - BiquadFilterNode -> IO JSString - --- | -getType :: - (MonadIO m, FromJSString result) => BiquadFilterNode -> m result -getType self = liftIO (fromJSString <$> (js_getType (self))) - -foreign import javascript unsafe "$1[\"frequency\"]" - js_getFrequency :: BiquadFilterNode -> IO (Nullable AudioParam) - --- | -getFrequency :: - (MonadIO m) => BiquadFilterNode -> m (Maybe AudioParam) -getFrequency self - = liftIO (nullableToMaybe <$> (js_getFrequency (self))) - -foreign import javascript unsafe "$1[\"detune\"]" js_getDetune :: - BiquadFilterNode -> IO (Nullable AudioParam) - --- | -getDetune :: - (MonadIO m) => BiquadFilterNode -> m (Maybe AudioParam) -getDetune self = liftIO (nullableToMaybe <$> (js_getDetune (self))) - -foreign import javascript unsafe "$1[\"Q\"]" js_getQ :: - BiquadFilterNode -> IO (Nullable AudioParam) - --- | -getQ :: (MonadIO m) => BiquadFilterNode -> m (Maybe AudioParam) -getQ self = liftIO (nullableToMaybe <$> (js_getQ (self))) - -foreign import javascript unsafe "$1[\"gain\"]" js_getGain :: - BiquadFilterNode -> IO (Nullable AudioParam) - --- | -getGain :: (MonadIO m) => BiquadFilterNode -> m (Maybe AudioParam) -getGain self = liftIO (nullableToMaybe <$> (js_getGain (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/Blob.hs b/src/GHCJS/DOM/JSFFI/Generated/Blob.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/Blob.hs +++ /dev/null @@ -1,68 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.Blob - (js_newBlob, newBlob, js_newBlob', newBlob', js_slice, slice, - js_getSize, getSize, js_getType, getType, Blob, castToBlob, - gTypeBlob, IsBlob, toBlob) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "new window[\"Blob\"]()" - js_newBlob :: IO Blob - --- | -newBlob :: (MonadIO m) => m Blob -newBlob = liftIO (js_newBlob) - -foreign import javascript unsafe "new window[\"Blob\"]($1, $2)" - js_newBlob' :: JSVal -> Nullable BlobPropertyBag -> IO Blob - --- | -newBlob' :: - (MonadIO m, IsBlobPropertyBag options) => - [JSVal] -> Maybe options -> m Blob -newBlob' blobParts options - = liftIO - (toJSVal blobParts >>= \ blobParts' -> js_newBlob' blobParts' - (maybeToNullable (fmap toBlobPropertyBag options))) - -foreign import javascript unsafe "$1[\"slice\"]($2, $3, $4)" - js_slice :: - Blob -> Double -> Double -> Nullable JSString -> IO (Nullable Blob) - --- | -slice :: - (MonadIO m, IsBlob self, ToJSString contentType) => - self -> Int64 -> Int64 -> Maybe contentType -> m (Maybe Blob) -slice self start end contentType - = liftIO - (nullableToMaybe <$> - (js_slice (toBlob self) (fromIntegral start) (fromIntegral end) - (toMaybeJSString contentType))) - -foreign import javascript unsafe "$1[\"size\"]" js_getSize :: - Blob -> IO Double - --- | -getSize :: (MonadIO m, IsBlob self) => self -> m Word64 -getSize self = liftIO (round <$> (js_getSize (toBlob self))) - -foreign import javascript unsafe "$1[\"type\"]" js_getType :: - Blob -> IO JSString - --- | -getType :: - (MonadIO m, IsBlob self, FromJSString result) => self -> m result -getType self = liftIO (fromJSString <$> (js_getType (toBlob self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/CSS.hs b/src/GHCJS/DOM/JSFFI/Generated/CSS.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/CSS.hs +++ /dev/null @@ -1,41 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.CSS - (js_supports2, supports2, js_supports, supports, CSS, castToCSS, - gTypeCSS) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe - "($1[\"supports\"]($2, $3) ? 1 : 0)" js_supports2 :: - CSS -> JSString -> JSString -> IO Bool - --- | -supports2 :: - (MonadIO m, ToJSString property, ToJSString value) => - CSS -> property -> value -> m Bool -supports2 self property value - = liftIO - (js_supports2 (self) (toJSString property) (toJSString value)) - -foreign import javascript unsafe "($1[\"supports\"]($2) ? 1 : 0)" - js_supports :: CSS -> JSString -> IO Bool - --- | -supports :: - (MonadIO m, ToJSString conditionText) => - CSS -> conditionText -> m Bool -supports self conditionText - = liftIO (js_supports (self) (toJSString conditionText)) diff --git a/src/GHCJS/DOM/JSFFI/Generated/CSSCharsetRule.hs b/src/GHCJS/DOM/JSFFI/Generated/CSSCharsetRule.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/CSSCharsetRule.hs +++ /dev/null @@ -1,38 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.CSSCharsetRule - (js_setEncoding, setEncoding, js_getEncoding, getEncoding, - CSSCharsetRule, castToCSSCharsetRule, gTypeCSSCharsetRule) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"encoding\"] = $2;" - js_setEncoding :: CSSCharsetRule -> Nullable JSString -> IO () - --- | -setEncoding :: - (MonadIO m, ToJSString val) => CSSCharsetRule -> Maybe val -> m () -setEncoding self val - = liftIO (js_setEncoding (self) (toMaybeJSString val)) - -foreign import javascript unsafe "$1[\"encoding\"]" js_getEncoding - :: CSSCharsetRule -> IO (Nullable JSString) - --- | -getEncoding :: - (MonadIO m, FromJSString result) => - CSSCharsetRule -> m (Maybe result) -getEncoding self - = liftIO (fromMaybeJSString <$> (js_getEncoding (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/CSSFontFaceLoadEvent.hs b/src/GHCJS/DOM/JSFFI/Generated/CSSFontFaceLoadEvent.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/CSSFontFaceLoadEvent.hs +++ /dev/null @@ -1,37 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.CSSFontFaceLoadEvent - (js_getFontface, getFontface, js_getError, getError, - CSSFontFaceLoadEvent, castToCSSFontFaceLoadEvent, - gTypeCSSFontFaceLoadEvent) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"fontface\"]" js_getFontface - :: CSSFontFaceLoadEvent -> IO (Nullable CSSFontFaceRule) - --- | -getFontface :: - (MonadIO m) => CSSFontFaceLoadEvent -> m (Maybe CSSFontFaceRule) -getFontface self - = liftIO (nullableToMaybe <$> (js_getFontface (self))) - -foreign import javascript unsafe "$1[\"error\"]" js_getError :: - CSSFontFaceLoadEvent -> IO (Nullable DOMError) - --- | -getError :: - (MonadIO m) => CSSFontFaceLoadEvent -> m (Maybe DOMError) -getError self = liftIO (nullableToMaybe <$> (js_getError (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/CSSFontFaceRule.hs b/src/GHCJS/DOM/JSFFI/Generated/CSSFontFaceRule.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/CSSFontFaceRule.hs +++ /dev/null @@ -1,27 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.CSSFontFaceRule - (js_getStyle, getStyle, CSSFontFaceRule, castToCSSFontFaceRule, - gTypeCSSFontFaceRule) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"style\"]" js_getStyle :: - CSSFontFaceRule -> IO (Nullable CSSStyleDeclaration) - --- | -getStyle :: - (MonadIO m) => CSSFontFaceRule -> m (Maybe CSSStyleDeclaration) -getStyle self = liftIO (nullableToMaybe <$> (js_getStyle (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/CSSImportRule.hs b/src/GHCJS/DOM/JSFFI/Generated/CSSImportRule.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/CSSImportRule.hs +++ /dev/null @@ -1,45 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.CSSImportRule - (js_getHref, getHref, js_getMedia, getMedia, js_getStyleSheet, - getStyleSheet, CSSImportRule, castToCSSImportRule, - gTypeCSSImportRule) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"href\"]" js_getHref :: - CSSImportRule -> IO (Nullable JSString) - --- | -getHref :: - (MonadIO m, FromJSString result) => - CSSImportRule -> m (Maybe result) -getHref self = liftIO (fromMaybeJSString <$> (js_getHref (self))) - -foreign import javascript unsafe "$1[\"media\"]" js_getMedia :: - CSSImportRule -> IO (Nullable MediaList) - --- | -getMedia :: (MonadIO m) => CSSImportRule -> m (Maybe MediaList) -getMedia self = liftIO (nullableToMaybe <$> (js_getMedia (self))) - -foreign import javascript unsafe "$1[\"styleSheet\"]" - js_getStyleSheet :: CSSImportRule -> IO (Nullable CSSStyleSheet) - --- | -getStyleSheet :: - (MonadIO m) => CSSImportRule -> m (Maybe CSSStyleSheet) -getStyleSheet self - = liftIO (nullableToMaybe <$> (js_getStyleSheet (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/CSSKeyframeRule.hs b/src/GHCJS/DOM/JSFFI/Generated/CSSKeyframeRule.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/CSSKeyframeRule.hs +++ /dev/null @@ -1,45 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.CSSKeyframeRule - (js_setKeyText, setKeyText, js_getKeyText, getKeyText, js_getStyle, - getStyle, CSSKeyframeRule, castToCSSKeyframeRule, - gTypeCSSKeyframeRule) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"keyText\"] = $2;" - js_setKeyText :: CSSKeyframeRule -> JSString -> IO () - --- | -setKeyText :: - (MonadIO m, ToJSString val) => CSSKeyframeRule -> val -> m () -setKeyText self val - = liftIO (js_setKeyText (self) (toJSString val)) - -foreign import javascript unsafe "$1[\"keyText\"]" js_getKeyText :: - CSSKeyframeRule -> IO JSString - --- | -getKeyText :: - (MonadIO m, FromJSString result) => CSSKeyframeRule -> m result -getKeyText self = liftIO (fromJSString <$> (js_getKeyText (self))) - -foreign import javascript unsafe "$1[\"style\"]" js_getStyle :: - CSSKeyframeRule -> IO (Nullable CSSStyleDeclaration) - --- | -getStyle :: - (MonadIO m) => CSSKeyframeRule -> m (Maybe CSSStyleDeclaration) -getStyle self = liftIO (nullableToMaybe <$> (js_getStyle (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/CSSKeyframesRule.hs b/src/GHCJS/DOM/JSFFI/Generated/CSSKeyframesRule.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/CSSKeyframesRule.hs +++ /dev/null @@ -1,97 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.CSSKeyframesRule - (js_insertRule, insertRule, js_appendRule, appendRule, - js_deleteRule, deleteRule, js_findRule, findRule, js__get, _get, - js_setName, setName, js_getName, getName, js_getCssRules, - getCssRules, CSSKeyframesRule, castToCSSKeyframesRule, - gTypeCSSKeyframesRule) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"insertRule\"]($2)" - js_insertRule :: CSSKeyframesRule -> JSString -> IO () - --- | -insertRule :: - (MonadIO m, ToJSString rule) => CSSKeyframesRule -> rule -> m () -insertRule self rule - = liftIO (js_insertRule (self) (toJSString rule)) - -foreign import javascript unsafe "$1[\"appendRule\"]($2)" - js_appendRule :: CSSKeyframesRule -> JSString -> IO () - --- | -appendRule :: - (MonadIO m, ToJSString rule) => CSSKeyframesRule -> rule -> m () -appendRule self rule - = liftIO (js_appendRule (self) (toJSString rule)) - -foreign import javascript unsafe "$1[\"deleteRule\"]($2)" - js_deleteRule :: CSSKeyframesRule -> JSString -> IO () - --- | -deleteRule :: - (MonadIO m, ToJSString key) => CSSKeyframesRule -> key -> m () -deleteRule self key - = liftIO (js_deleteRule (self) (toJSString key)) - -foreign import javascript unsafe "$1[\"findRule\"]($2)" js_findRule - :: CSSKeyframesRule -> JSString -> IO (Nullable CSSKeyframeRule) - --- | -findRule :: - (MonadIO m, ToJSString key) => - CSSKeyframesRule -> key -> m (Maybe CSSKeyframeRule) -findRule self key - = liftIO - (nullableToMaybe <$> (js_findRule (self) (toJSString key))) - -foreign import javascript unsafe "$1[\"_get\"]($2)" js__get :: - CSSKeyframesRule -> Word -> IO (Nullable CSSKeyframeRule) - --- | -_get :: - (MonadIO m) => - CSSKeyframesRule -> Word -> m (Maybe CSSKeyframeRule) -_get self index - = liftIO (nullableToMaybe <$> (js__get (self) index)) - -foreign import javascript unsafe "$1[\"name\"] = $2;" js_setName :: - CSSKeyframesRule -> Nullable JSString -> IO () - --- | -setName :: - (MonadIO m, ToJSString val) => - CSSKeyframesRule -> Maybe val -> m () -setName self val = liftIO (js_setName (self) (toMaybeJSString val)) - -foreign import javascript unsafe "$1[\"name\"]" js_getName :: - CSSKeyframesRule -> IO (Nullable JSString) - --- | -getName :: - (MonadIO m, FromJSString result) => - CSSKeyframesRule -> m (Maybe result) -getName self = liftIO (fromMaybeJSString <$> (js_getName (self))) - -foreign import javascript unsafe "$1[\"cssRules\"]" js_getCssRules - :: CSSKeyframesRule -> IO (Nullable CSSRuleList) - --- | -getCssRules :: - (MonadIO m) => CSSKeyframesRule -> m (Maybe CSSRuleList) -getCssRules self - = liftIO (nullableToMaybe <$> (js_getCssRules (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/CSSMediaRule.hs b/src/GHCJS/DOM/JSFFI/Generated/CSSMediaRule.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/CSSMediaRule.hs +++ /dev/null @@ -1,52 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.CSSMediaRule - (js_insertRule, insertRule, js_deleteRule, deleteRule, js_getMedia, - getMedia, js_getCssRules, getCssRules, CSSMediaRule, - castToCSSMediaRule, gTypeCSSMediaRule) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"insertRule\"]($2, $3)" - js_insertRule :: CSSMediaRule -> JSString -> Word -> IO Word - --- | -insertRule :: - (MonadIO m, ToJSString rule) => - CSSMediaRule -> rule -> Word -> m Word -insertRule self rule index - = liftIO (js_insertRule (self) (toJSString rule) index) - -foreign import javascript unsafe "$1[\"deleteRule\"]($2)" - js_deleteRule :: CSSMediaRule -> Word -> IO () - --- | -deleteRule :: (MonadIO m) => CSSMediaRule -> Word -> m () -deleteRule self index = liftIO (js_deleteRule (self) index) - -foreign import javascript unsafe "$1[\"media\"]" js_getMedia :: - CSSMediaRule -> IO (Nullable MediaList) - --- | -getMedia :: (MonadIO m) => CSSMediaRule -> m (Maybe MediaList) -getMedia self = liftIO (nullableToMaybe <$> (js_getMedia (self))) - -foreign import javascript unsafe "$1[\"cssRules\"]" js_getCssRules - :: CSSMediaRule -> IO (Nullable CSSRuleList) - --- | -getCssRules :: (MonadIO m) => CSSMediaRule -> m (Maybe CSSRuleList) -getCssRules self - = liftIO (nullableToMaybe <$> (js_getCssRules (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/CSSPageRule.hs b/src/GHCJS/DOM/JSFFI/Generated/CSSPageRule.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/CSSPageRule.hs +++ /dev/null @@ -1,46 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.CSSPageRule - (js_setSelectorText, setSelectorText, js_getSelectorText, - getSelectorText, js_getStyle, getStyle, CSSPageRule, - castToCSSPageRule, gTypeCSSPageRule) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"selectorText\"] = $2;" - js_setSelectorText :: CSSPageRule -> Nullable JSString -> IO () - --- | -setSelectorText :: - (MonadIO m, ToJSString val) => CSSPageRule -> Maybe val -> m () -setSelectorText self val - = liftIO (js_setSelectorText (self) (toMaybeJSString val)) - -foreign import javascript unsafe "$1[\"selectorText\"]" - js_getSelectorText :: CSSPageRule -> IO (Nullable JSString) - --- | -getSelectorText :: - (MonadIO m, FromJSString result) => CSSPageRule -> m (Maybe result) -getSelectorText self - = liftIO (fromMaybeJSString <$> (js_getSelectorText (self))) - -foreign import javascript unsafe "$1[\"style\"]" js_getStyle :: - CSSPageRule -> IO (Nullable CSSStyleDeclaration) - --- | -getStyle :: - (MonadIO m) => CSSPageRule -> m (Maybe CSSStyleDeclaration) -getStyle self = liftIO (nullableToMaybe <$> (js_getStyle (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/CSSPrimitiveValue.hs b/src/GHCJS/DOM/JSFFI/Generated/CSSPrimitiveValue.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/CSSPrimitiveValue.hs +++ /dev/null @@ -1,133 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.CSSPrimitiveValue - (js_setFloatValue, setFloatValue, js_getFloatValue, getFloatValue, - js_setStringValue, setStringValue, js_getStringValue, - getStringValue, js_getCounterValue, getCounterValue, - js_getRectValue, getRectValue, js_getRGBColorValue, - getRGBColorValue, pattern CSS_UNKNOWN, pattern CSS_NUMBER, - pattern CSS_PERCENTAGE, pattern CSS_EMS, pattern CSS_EXS, - pattern CSS_PX, pattern CSS_CM, pattern CSS_MM, pattern CSS_IN, - pattern CSS_PT, pattern CSS_PC, pattern CSS_DEG, pattern CSS_RAD, - pattern CSS_GRAD, pattern CSS_MS, pattern CSS_S, pattern CSS_HZ, - pattern CSS_KHZ, pattern CSS_DIMENSION, pattern CSS_STRING, - pattern CSS_URI, pattern CSS_IDENT, pattern CSS_ATTR, - pattern CSS_COUNTER, pattern CSS_RECT, pattern CSS_RGBCOLOR, - pattern CSS_VW, pattern CSS_VH, pattern CSS_VMIN, pattern CSS_VMAX, - js_getPrimitiveType, getPrimitiveType, CSSPrimitiveValue, - castToCSSPrimitiveValue, gTypeCSSPrimitiveValue) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"setFloatValue\"]($2, $3)" - js_setFloatValue :: CSSPrimitiveValue -> Word -> Float -> IO () - --- | -setFloatValue :: - (MonadIO m) => CSSPrimitiveValue -> Word -> Float -> m () -setFloatValue self unitType floatValue - = liftIO (js_setFloatValue (self) unitType floatValue) - -foreign import javascript unsafe "$1[\"getFloatValue\"]($2)" - js_getFloatValue :: CSSPrimitiveValue -> Word -> IO Float - --- | -getFloatValue :: - (MonadIO m) => CSSPrimitiveValue -> Word -> m Float -getFloatValue self unitType - = liftIO (js_getFloatValue (self) unitType) - -foreign import javascript unsafe "$1[\"setStringValue\"]($2, $3)" - js_setStringValue :: CSSPrimitiveValue -> Word -> JSString -> IO () - --- | -setStringValue :: - (MonadIO m, ToJSString stringValue) => - CSSPrimitiveValue -> Word -> stringValue -> m () -setStringValue self stringType stringValue - = liftIO - (js_setStringValue (self) stringType (toJSString stringValue)) - -foreign import javascript unsafe "$1[\"getStringValue\"]()" - js_getStringValue :: CSSPrimitiveValue -> IO JSString - --- | -getStringValue :: - (MonadIO m, FromJSString result) => CSSPrimitiveValue -> m result -getStringValue self - = liftIO (fromJSString <$> (js_getStringValue (self))) - -foreign import javascript unsafe "$1[\"getCounterValue\"]()" - js_getCounterValue :: CSSPrimitiveValue -> IO (Nullable Counter) - --- | -getCounterValue :: - (MonadIO m) => CSSPrimitiveValue -> m (Maybe Counter) -getCounterValue self - = liftIO (nullableToMaybe <$> (js_getCounterValue (self))) - -foreign import javascript unsafe "$1[\"getRectValue\"]()" - js_getRectValue :: CSSPrimitiveValue -> IO (Nullable Rect) - --- | -getRectValue :: (MonadIO m) => CSSPrimitiveValue -> m (Maybe Rect) -getRectValue self - = liftIO (nullableToMaybe <$> (js_getRectValue (self))) - -foreign import javascript unsafe "$1[\"getRGBColorValue\"]()" - js_getRGBColorValue :: CSSPrimitiveValue -> IO (Nullable RGBColor) - --- | -getRGBColorValue :: - (MonadIO m) => CSSPrimitiveValue -> m (Maybe RGBColor) -getRGBColorValue self - = liftIO (nullableToMaybe <$> (js_getRGBColorValue (self))) -pattern CSS_UNKNOWN = 0 -pattern CSS_NUMBER = 1 -pattern CSS_PERCENTAGE = 2 -pattern CSS_EMS = 3 -pattern CSS_EXS = 4 -pattern CSS_PX = 5 -pattern CSS_CM = 6 -pattern CSS_MM = 7 -pattern CSS_IN = 8 -pattern CSS_PT = 9 -pattern CSS_PC = 10 -pattern CSS_DEG = 11 -pattern CSS_RAD = 12 -pattern CSS_GRAD = 13 -pattern CSS_MS = 14 -pattern CSS_S = 15 -pattern CSS_HZ = 16 -pattern CSS_KHZ = 17 -pattern CSS_DIMENSION = 18 -pattern CSS_STRING = 19 -pattern CSS_URI = 20 -pattern CSS_IDENT = 21 -pattern CSS_ATTR = 22 -pattern CSS_COUNTER = 23 -pattern CSS_RECT = 24 -pattern CSS_RGBCOLOR = 25 -pattern CSS_VW = 26 -pattern CSS_VH = 27 -pattern CSS_VMIN = 28 -pattern CSS_VMAX = 29 - -foreign import javascript unsafe "$1[\"primitiveType\"]" - js_getPrimitiveType :: CSSPrimitiveValue -> IO Word - --- | -getPrimitiveType :: (MonadIO m) => CSSPrimitiveValue -> m Word -getPrimitiveType self = liftIO (js_getPrimitiveType (self)) diff --git a/src/GHCJS/DOM/JSFFI/Generated/CSSRule.hs b/src/GHCJS/DOM/JSFFI/Generated/CSSRule.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/CSSRule.hs +++ /dev/null @@ -1,86 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.CSSRule - (pattern UNKNOWN_RULE, pattern STYLE_RULE, pattern CHARSET_RULE, - pattern IMPORT_RULE, pattern MEDIA_RULE, pattern FONT_FACE_RULE, - pattern PAGE_RULE, pattern KEYFRAMES_RULE, pattern KEYFRAME_RULE, - pattern SUPPORTS_RULE, pattern WEBKIT_VIEWPORT_RULE, - pattern WEBKIT_REGION_RULE, pattern WEBKIT_KEYFRAMES_RULE, - pattern WEBKIT_KEYFRAME_RULE, js_getType, getType, js_setCssText, - setCssText, js_getCssText, getCssText, js_getParentStyleSheet, - getParentStyleSheet, js_getParentRule, getParentRule, CSSRule, - castToCSSRule, gTypeCSSRule, IsCSSRule, toCSSRule) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums -pattern UNKNOWN_RULE = 0 -pattern STYLE_RULE = 1 -pattern CHARSET_RULE = 2 -pattern IMPORT_RULE = 3 -pattern MEDIA_RULE = 4 -pattern FONT_FACE_RULE = 5 -pattern PAGE_RULE = 6 -pattern KEYFRAMES_RULE = 7 -pattern KEYFRAME_RULE = 8 -pattern SUPPORTS_RULE = 12 -pattern WEBKIT_VIEWPORT_RULE = 15 -pattern WEBKIT_REGION_RULE = 16 -pattern WEBKIT_KEYFRAMES_RULE = 7 -pattern WEBKIT_KEYFRAME_RULE = 8 - -foreign import javascript unsafe "$1[\"type\"]" js_getType :: - CSSRule -> IO Word - --- | -getType :: (MonadIO m, IsCSSRule self) => self -> m Word -getType self = liftIO (js_getType (toCSSRule self)) - -foreign import javascript unsafe "$1[\"cssText\"] = $2;" - js_setCssText :: CSSRule -> Nullable JSString -> IO () - --- | -setCssText :: - (MonadIO m, IsCSSRule self, ToJSString val) => - self -> Maybe val -> m () -setCssText self val - = liftIO (js_setCssText (toCSSRule self) (toMaybeJSString val)) - -foreign import javascript unsafe "$1[\"cssText\"]" js_getCssText :: - CSSRule -> IO (Nullable JSString) - --- | -getCssText :: - (MonadIO m, IsCSSRule self, FromJSString result) => - self -> m (Maybe result) -getCssText self - = liftIO (fromMaybeJSString <$> (js_getCssText (toCSSRule self))) - -foreign import javascript unsafe "$1[\"parentStyleSheet\"]" - js_getParentStyleSheet :: CSSRule -> IO (Nullable CSSStyleSheet) - --- | -getParentStyleSheet :: - (MonadIO m, IsCSSRule self) => self -> m (Maybe CSSStyleSheet) -getParentStyleSheet self - = liftIO - (nullableToMaybe <$> (js_getParentStyleSheet (toCSSRule self))) - -foreign import javascript unsafe "$1[\"parentRule\"]" - js_getParentRule :: CSSRule -> IO (Nullable CSSRule) - --- | -getParentRule :: - (MonadIO m, IsCSSRule self) => self -> m (Maybe CSSRule) -getParentRule self - = liftIO (nullableToMaybe <$> (js_getParentRule (toCSSRule self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/CSSRuleList.hs b/src/GHCJS/DOM/JSFFI/Generated/CSSRuleList.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/CSSRuleList.hs +++ /dev/null @@ -1,34 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.CSSRuleList - (js_item, item, js_getLength, getLength, CSSRuleList, - castToCSSRuleList, gTypeCSSRuleList) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"item\"]($2)" js_item :: - CSSRuleList -> Word -> IO (Nullable CSSRule) - --- | -item :: (MonadIO m) => CSSRuleList -> Word -> m (Maybe CSSRule) -item self index - = liftIO (nullableToMaybe <$> (js_item (self) index)) - -foreign import javascript unsafe "$1[\"length\"]" js_getLength :: - CSSRuleList -> IO Word - --- | -getLength :: (MonadIO m) => CSSRuleList -> m Word -getLength self = liftIO (js_getLength (self)) diff --git a/src/GHCJS/DOM/JSFFI/Generated/CSSStyleDeclaration.hs b/src/GHCJS/DOM/JSFFI/Generated/CSSStyleDeclaration.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/CSSStyleDeclaration.hs +++ /dev/null @@ -1,163 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.CSSStyleDeclaration - (js_getPropertyValue, getPropertyValue, js_getPropertyCSSValue, - getPropertyCSSValue, js_removeProperty, removeProperty, - js_getPropertyPriority, getPropertyPriority, js_setProperty, - setProperty, js_item, item, js_getPropertyShorthand, - getPropertyShorthand, js_isPropertyImplicit, isPropertyImplicit, - js_setCssText, setCssText, js_getCssText, getCssText, js_getLength, - getLength, js_getParentRule, getParentRule, CSSStyleDeclaration, - castToCSSStyleDeclaration, gTypeCSSStyleDeclaration) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"getPropertyValue\"]($2)" - js_getPropertyValue :: - CSSStyleDeclaration -> JSString -> IO (Nullable JSString) - --- | -getPropertyValue :: - (MonadIO m, ToJSString propertyName, FromJSString result) => - CSSStyleDeclaration -> propertyName -> m (Maybe result) -getPropertyValue self propertyName - = liftIO - (fromMaybeJSString <$> - (js_getPropertyValue (self) (toJSString propertyName))) - -foreign import javascript unsafe "$1[\"getPropertyCSSValue\"]($2)" - js_getPropertyCSSValue :: - CSSStyleDeclaration -> JSString -> IO (Nullable CSSValue) - --- | -getPropertyCSSValue :: - (MonadIO m, ToJSString propertyName) => - CSSStyleDeclaration -> propertyName -> m (Maybe CSSValue) -getPropertyCSSValue self propertyName - = liftIO - (nullableToMaybe <$> - (js_getPropertyCSSValue (self) (toJSString propertyName))) - -foreign import javascript unsafe "$1[\"removeProperty\"]($2)" - js_removeProperty :: - CSSStyleDeclaration -> JSString -> IO (Nullable JSString) - --- | -removeProperty :: - (MonadIO m, ToJSString propertyName, FromJSString result) => - CSSStyleDeclaration -> propertyName -> m (Maybe result) -removeProperty self propertyName - = liftIO - (fromMaybeJSString <$> - (js_removeProperty (self) (toJSString propertyName))) - -foreign import javascript unsafe "$1[\"getPropertyPriority\"]($2)" - js_getPropertyPriority :: - CSSStyleDeclaration -> JSString -> IO (Nullable JSString) - --- | -getPropertyPriority :: - (MonadIO m, ToJSString propertyName, FromJSString result) => - CSSStyleDeclaration -> propertyName -> m (Maybe result) -getPropertyPriority self propertyName - = liftIO - (fromMaybeJSString <$> - (js_getPropertyPriority (self) (toJSString propertyName))) - -foreign import javascript unsafe "$1[\"setProperty\"]($2, $3, $4)" - js_setProperty :: - CSSStyleDeclaration -> - JSString -> Nullable JSString -> JSString -> IO () - --- | -setProperty :: - (MonadIO m, ToJSString propertyName, ToJSString value, - ToJSString priority) => - CSSStyleDeclaration -> - propertyName -> Maybe value -> priority -> m () -setProperty self propertyName value priority - = liftIO - (js_setProperty (self) (toJSString propertyName) - (toMaybeJSString value) - (toJSString priority)) - -foreign import javascript unsafe "$1[\"item\"]($2)" js_item :: - CSSStyleDeclaration -> Word -> IO JSString - --- | -item :: - (MonadIO m, FromJSString result) => - CSSStyleDeclaration -> Word -> m result -item self index = liftIO (fromJSString <$> (js_item (self) index)) - -foreign import javascript unsafe "$1[\"getPropertyShorthand\"]($2)" - js_getPropertyShorthand :: - CSSStyleDeclaration -> JSString -> IO (Nullable JSString) - --- | -getPropertyShorthand :: - (MonadIO m, ToJSString propertyName, FromJSString result) => - CSSStyleDeclaration -> propertyName -> m (Maybe result) -getPropertyShorthand self propertyName - = liftIO - (fromMaybeJSString <$> - (js_getPropertyShorthand (self) (toJSString propertyName))) - -foreign import javascript unsafe - "($1[\"isPropertyImplicit\"]($2) ? 1 : 0)" js_isPropertyImplicit :: - CSSStyleDeclaration -> JSString -> IO Bool - --- | -isPropertyImplicit :: - (MonadIO m, ToJSString propertyName) => - CSSStyleDeclaration -> propertyName -> m Bool -isPropertyImplicit self propertyName - = liftIO (js_isPropertyImplicit (self) (toJSString propertyName)) - -foreign import javascript unsafe "$1[\"cssText\"] = $2;" - js_setCssText :: CSSStyleDeclaration -> Nullable JSString -> IO () - --- | -setCssText :: - (MonadIO m, ToJSString val) => - CSSStyleDeclaration -> Maybe val -> m () -setCssText self val - = liftIO (js_setCssText (self) (toMaybeJSString val)) - -foreign import javascript unsafe "$1[\"cssText\"]" js_getCssText :: - CSSStyleDeclaration -> IO (Nullable JSString) - --- | -getCssText :: - (MonadIO m, FromJSString result) => - CSSStyleDeclaration -> m (Maybe result) -getCssText self - = liftIO (fromMaybeJSString <$> (js_getCssText (self))) - -foreign import javascript unsafe "$1[\"length\"]" js_getLength :: - CSSStyleDeclaration -> IO Word - --- | -getLength :: (MonadIO m) => CSSStyleDeclaration -> m Word -getLength self = liftIO (js_getLength (self)) - -foreign import javascript unsafe "$1[\"parentRule\"]" - js_getParentRule :: CSSStyleDeclaration -> IO (Nullable CSSRule) - --- | -getParentRule :: - (MonadIO m) => CSSStyleDeclaration -> m (Maybe CSSRule) -getParentRule self - = liftIO (nullableToMaybe <$> (js_getParentRule (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/CSSStyleRule.hs b/src/GHCJS/DOM/JSFFI/Generated/CSSStyleRule.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/CSSStyleRule.hs +++ /dev/null @@ -1,47 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.CSSStyleRule - (js_setSelectorText, setSelectorText, js_getSelectorText, - getSelectorText, js_getStyle, getStyle, CSSStyleRule, - castToCSSStyleRule, gTypeCSSStyleRule) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"selectorText\"] = $2;" - js_setSelectorText :: CSSStyleRule -> Nullable JSString -> IO () - --- | -setSelectorText :: - (MonadIO m, ToJSString val) => CSSStyleRule -> Maybe val -> m () -setSelectorText self val - = liftIO (js_setSelectorText (self) (toMaybeJSString val)) - -foreign import javascript unsafe "$1[\"selectorText\"]" - js_getSelectorText :: CSSStyleRule -> IO (Nullable JSString) - --- | -getSelectorText :: - (MonadIO m, FromJSString result) => - CSSStyleRule -> m (Maybe result) -getSelectorText self - = liftIO (fromMaybeJSString <$> (js_getSelectorText (self))) - -foreign import javascript unsafe "$1[\"style\"]" js_getStyle :: - CSSStyleRule -> IO (Nullable CSSStyleDeclaration) - --- | -getStyle :: - (MonadIO m) => CSSStyleRule -> m (Maybe CSSStyleDeclaration) -getStyle self = liftIO (nullableToMaybe <$> (js_getStyle (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/CSSStyleSheet.hs b/src/GHCJS/DOM/JSFFI/Generated/CSSStyleSheet.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/CSSStyleSheet.hs +++ /dev/null @@ -1,81 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.CSSStyleSheet - (js_insertRule, insertRule, js_deleteRule, deleteRule, js_addRule, - addRule, js_removeRule, removeRule, js_getOwnerRule, getOwnerRule, - js_getCssRules, getCssRules, js_getRules, getRules, CSSStyleSheet, - castToCSSStyleSheet, gTypeCSSStyleSheet) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"insertRule\"]($2, $3)" - js_insertRule :: CSSStyleSheet -> JSString -> Word -> IO Word - --- | -insertRule :: - (MonadIO m, ToJSString rule) => - CSSStyleSheet -> rule -> Word -> m Word -insertRule self rule index - = liftIO (js_insertRule (self) (toJSString rule) index) - -foreign import javascript unsafe "$1[\"deleteRule\"]($2)" - js_deleteRule :: CSSStyleSheet -> Word -> IO () - --- | -deleteRule :: (MonadIO m) => CSSStyleSheet -> Word -> m () -deleteRule self index = liftIO (js_deleteRule (self) index) - -foreign import javascript unsafe "$1[\"addRule\"]($2, $3, $4)" - js_addRule :: - CSSStyleSheet -> JSString -> JSString -> Word -> IO Int - --- | -addRule :: - (MonadIO m, ToJSString selector, ToJSString style) => - CSSStyleSheet -> selector -> style -> Word -> m Int -addRule self selector style index - = liftIO - (js_addRule (self) (toJSString selector) (toJSString style) index) - -foreign import javascript unsafe "$1[\"removeRule\"]($2)" - js_removeRule :: CSSStyleSheet -> Word -> IO () - --- | -removeRule :: (MonadIO m) => CSSStyleSheet -> Word -> m () -removeRule self index = liftIO (js_removeRule (self) index) - -foreign import javascript unsafe "$1[\"ownerRule\"]" - js_getOwnerRule :: CSSStyleSheet -> IO (Nullable CSSRule) - --- | -getOwnerRule :: (MonadIO m) => CSSStyleSheet -> m (Maybe CSSRule) -getOwnerRule self - = liftIO (nullableToMaybe <$> (js_getOwnerRule (self))) - -foreign import javascript unsafe "$1[\"cssRules\"]" js_getCssRules - :: CSSStyleSheet -> IO (Nullable CSSRuleList) - --- | -getCssRules :: - (MonadIO m) => CSSStyleSheet -> m (Maybe CSSRuleList) -getCssRules self - = liftIO (nullableToMaybe <$> (js_getCssRules (self))) - -foreign import javascript unsafe "$1[\"rules\"]" js_getRules :: - CSSStyleSheet -> IO (Nullable CSSRuleList) - --- | -getRules :: (MonadIO m) => CSSStyleSheet -> m (Maybe CSSRuleList) -getRules self = liftIO (nullableToMaybe <$> (js_getRules (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/CSSSupportsRule.hs b/src/GHCJS/DOM/JSFFI/Generated/CSSSupportsRule.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/CSSSupportsRule.hs +++ /dev/null @@ -1,55 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.CSSSupportsRule - (js_insertRule, insertRule, js_deleteRule, deleteRule, - js_getCssRules, getCssRules, js_getConditionText, getConditionText, - CSSSupportsRule, castToCSSSupportsRule, gTypeCSSSupportsRule) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"insertRule\"]($2, $3)" - js_insertRule :: CSSSupportsRule -> JSString -> Word -> IO Word - --- | -insertRule :: - (MonadIO m, ToJSString rule) => - CSSSupportsRule -> rule -> Word -> m Word -insertRule self rule index - = liftIO (js_insertRule (self) (toJSString rule) index) - -foreign import javascript unsafe "$1[\"deleteRule\"]($2)" - js_deleteRule :: CSSSupportsRule -> Word -> IO () - --- | -deleteRule :: (MonadIO m) => CSSSupportsRule -> Word -> m () -deleteRule self index = liftIO (js_deleteRule (self) index) - -foreign import javascript unsafe "$1[\"cssRules\"]" js_getCssRules - :: CSSSupportsRule -> IO (Nullable CSSRuleList) - --- | -getCssRules :: - (MonadIO m) => CSSSupportsRule -> m (Maybe CSSRuleList) -getCssRules self - = liftIO (nullableToMaybe <$> (js_getCssRules (self))) - -foreign import javascript unsafe "$1[\"conditionText\"]" - js_getConditionText :: CSSSupportsRule -> IO JSString - --- | -getConditionText :: - (MonadIO m, FromJSString result) => CSSSupportsRule -> m result -getConditionText self - = liftIO (fromJSString <$> (js_getConditionText (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/CSSValue.hs b/src/GHCJS/DOM/JSFFI/Generated/CSSValue.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/CSSValue.hs +++ /dev/null @@ -1,54 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.CSSValue - (pattern CSS_INHERIT, pattern CSS_PRIMITIVE_VALUE, - pattern CSS_VALUE_LIST, pattern CSS_CUSTOM, js_setCssText, - setCssText, js_getCssText, getCssText, js_getCssValueType, - getCssValueType, CSSValue, castToCSSValue, gTypeCSSValue, - IsCSSValue, toCSSValue) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums -pattern CSS_INHERIT = 0 -pattern CSS_PRIMITIVE_VALUE = 1 -pattern CSS_VALUE_LIST = 2 -pattern CSS_CUSTOM = 3 - -foreign import javascript unsafe "$1[\"cssText\"] = $2;" - js_setCssText :: CSSValue -> Nullable JSString -> IO () - --- | -setCssText :: - (MonadIO m, IsCSSValue self, ToJSString val) => - self -> Maybe val -> m () -setCssText self val - = liftIO (js_setCssText (toCSSValue self) (toMaybeJSString val)) - -foreign import javascript unsafe "$1[\"cssText\"]" js_getCssText :: - CSSValue -> IO (Nullable JSString) - --- | -getCssText :: - (MonadIO m, IsCSSValue self, FromJSString result) => - self -> m (Maybe result) -getCssText self - = liftIO (fromMaybeJSString <$> (js_getCssText (toCSSValue self))) - -foreign import javascript unsafe "$1[\"cssValueType\"]" - js_getCssValueType :: CSSValue -> IO Word - --- | -getCssValueType :: (MonadIO m, IsCSSValue self) => self -> m Word -getCssValueType self - = liftIO (js_getCssValueType (toCSSValue self)) diff --git a/src/GHCJS/DOM/JSFFI/Generated/CSSValueList.hs b/src/GHCJS/DOM/JSFFI/Generated/CSSValueList.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/CSSValueList.hs +++ /dev/null @@ -1,38 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.CSSValueList - (js_item, item, js_getLength, getLength, CSSValueList, - castToCSSValueList, gTypeCSSValueList, IsCSSValueList, - toCSSValueList) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"item\"]($2)" js_item :: - CSSValueList -> Word -> IO (Nullable CSSValue) - --- | -item :: - (MonadIO m, IsCSSValueList self) => - self -> Word -> m (Maybe CSSValue) -item self index - = liftIO - (nullableToMaybe <$> (js_item (toCSSValueList self) index)) - -foreign import javascript unsafe "$1[\"length\"]" js_getLength :: - CSSValueList -> IO Word - --- | -getLength :: (MonadIO m, IsCSSValueList self) => self -> m Word -getLength self = liftIO (js_getLength (toCSSValueList self)) diff --git a/src/GHCJS/DOM/JSFFI/Generated/CanvasGradient.hs b/src/GHCJS/DOM/JSFFI/Generated/CanvasGradient.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/CanvasGradient.hs +++ /dev/null @@ -1,29 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.CanvasGradient - (js_addColorStop, addColorStop, CanvasGradient, - castToCanvasGradient, gTypeCanvasGradient) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"addColorStop\"]($2, $3)" - js_addColorStop :: CanvasGradient -> Float -> JSString -> IO () - --- | -addColorStop :: - (MonadIO m, ToJSString color) => - CanvasGradient -> Float -> color -> m () -addColorStop self offset color - = liftIO (js_addColorStop (self) offset (toJSString color)) diff --git a/src/GHCJS/DOM/JSFFI/Generated/CanvasRenderingContext.hs b/src/GHCJS/DOM/JSFFI/Generated/CanvasRenderingContext.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/CanvasRenderingContext.hs +++ /dev/null @@ -1,32 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.CanvasRenderingContext - (js_getCanvas, getCanvas, CanvasRenderingContext, - castToCanvasRenderingContext, gTypeCanvasRenderingContext, - IsCanvasRenderingContext, toCanvasRenderingContext) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"canvas\"]" js_getCanvas :: - CanvasRenderingContext -> IO (Nullable HTMLCanvasElement) - --- | -getCanvas :: - (MonadIO m, IsCanvasRenderingContext self) => - self -> m (Maybe HTMLCanvasElement) -getCanvas self - = liftIO - (nullableToMaybe <$> - (js_getCanvas (toCanvasRenderingContext self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/CanvasRenderingContext2D.hs b/src/GHCJS/DOM/JSFFI/Generated/CanvasRenderingContext2D.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/CanvasRenderingContext2D.hs +++ /dev/null @@ -1,1489 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.CanvasRenderingContext2D - (js_save, save, js_restore, restore, js_scale, scale, js_rotate, - rotate, js_translate, translate, js_transform, transform, - js_setTransform, setTransform, js_createLinearGradient, - createLinearGradient, js_createRadialGradient, - createRadialGradient, js_setLineDash, setLineDash, js_getLineDash, - getLineDash, js_clearRect, clearRect, js_fillRect, fillRect, - js_beginPath, beginPath, js_closePath, closePath, js_moveTo, - moveTo, js_lineTo, lineTo, js_quadraticCurveTo, quadraticCurveTo, - js_bezierCurveTo, bezierCurveTo, js_arcTo, arcTo, js_rect, rect, - js_arc, arc, js_fillPath, fillPath, js_strokePath, strokePath, - js_clipPath, clipPath, js_fill, fill, js_stroke, stroke, js_clip, - clip, js_isPointInPathPath, isPointInPathPath, - js_isPointInStrokePath, isPointInStrokePath, js_isPointInPath, - isPointInPath, js_isPointInStroke, isPointInStroke, js_measureText, - measureText, js_setAlpha, setAlpha, js_setCompositeOperation, - setCompositeOperation, js_setLineWidthFunction, - setLineWidthFunction, js_setLineCapFunction, setLineCapFunction, - js_setLineJoinFunction, setLineJoinFunction, - js_setMiterLimitFunction, setMiterLimitFunction, js_clearShadow, - clearShadow, js_fillText, fillText, js_strokeText, strokeText, - js_setStrokeColor, setStrokeColor, js_setStrokeColorGray, - setStrokeColorGray, js_setStrokeColorRGB, setStrokeColorRGB, - js_setStrokeColorCYMK, setStrokeColorCYMK, js_setFillColor, - setFillColor, js_setFillColorGray, setFillColorGray, - js_setFillColorRGB, setFillColorRGB, js_setFillColorCYMK, - setFillColorCYMK, js_strokeRect, strokeRect, js_drawImage, - drawImage, js_drawImageScaled, drawImageScaled, js_drawImagePart, - drawImagePart, js_drawImageFromCanvas, drawImageFromCanvas, - js_drawImageFromCanvasScaled, drawImageFromCanvasScaled, - js_drawImageFromCanvasPart, drawImageFromCanvasPart, - js_drawImageFromVideo, drawImageFromVideo, - js_drawImageFromVideoScaled, drawImageFromVideoScaled, - js_drawImageFromVideoPart, drawImageFromVideoPart, - js_drawImageFromRect, drawImageFromRect, js_setShadow, setShadow, - js_setShadowGray, setShadowGray, js_setShadowRGB, setShadowRGB, - js_setShadowCYMK, setShadowCYMK, js_putImageData, putImageData, - js_putImageDataDirty, putImageDataDirty, js_webkitPutImageDataHD, - webkitPutImageDataHD, js_webkitPutImageDataHDDirty, - webkitPutImageDataHDDirty, js_createPatternFromCanvas, - createPatternFromCanvas, js_createPattern, createPattern, - js_createImageData, createImageData, js_createImageDataSize, - createImageDataSize, js_getImageData, getImageData, - js_webkitGetImageDataHD, webkitGetImageDataHD, - js_drawFocusIfNeeded, drawFocusIfNeeded, js_drawFocusIfNeededPath, - drawFocusIfNeededPath, js_setGlobalAlpha, setGlobalAlpha, - js_getGlobalAlpha, getGlobalAlpha, js_setGlobalCompositeOperation, - setGlobalCompositeOperation, js_getGlobalCompositeOperation, - getGlobalCompositeOperation, js_setLineWidth, setLineWidth, - js_getLineWidth, getLineWidth, js_setLineCap, setLineCap, - js_getLineCap, getLineCap, js_setLineJoin, setLineJoin, - js_getLineJoin, getLineJoin, js_setMiterLimit, setMiterLimit, - js_getMiterLimit, getMiterLimit, js_setShadowOffsetX, - setShadowOffsetX, js_getShadowOffsetX, getShadowOffsetX, - js_setShadowOffsetY, setShadowOffsetY, js_getShadowOffsetY, - getShadowOffsetY, js_setShadowBlur, setShadowBlur, - js_getShadowBlur, getShadowBlur, js_setShadowColor, setShadowColor, - js_getShadowColor, getShadowColor, js_setLineDashOffset, - setLineDashOffset, js_getLineDashOffset, getLineDashOffset, - js_setWebkitLineDash, setWebkitLineDash, js_getWebkitLineDash, - getWebkitLineDash, js_setWebkitLineDashOffset, - setWebkitLineDashOffset, js_getWebkitLineDashOffset, - getWebkitLineDashOffset, js_setFont, setFont, js_getFont, getFont, - js_setTextAlign, setTextAlign, js_getTextAlign, getTextAlign, - js_setTextBaseline, setTextBaseline, js_getTextBaseline, - getTextBaseline, js_setDirection, setDirection, js_getDirection, - getDirection, js_setStrokeStyle, setStrokeStyle, js_getStrokeStyle, - getStrokeStyle, js_setFillStyle, setFillStyle, js_getFillStyle, - getFillStyle, js_getWebkitBackingStorePixelRatio, - getWebkitBackingStorePixelRatio, js_setWebkitImageSmoothingEnabled, - setWebkitImageSmoothingEnabled, js_getWebkitImageSmoothingEnabled, - getWebkitImageSmoothingEnabled, CanvasRenderingContext2D, - castToCanvasRenderingContext2D, gTypeCanvasRenderingContext2D) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"save\"]()" js_save :: - CanvasRenderingContext2D -> IO () - --- | -save :: (MonadIO m) => CanvasRenderingContext2D -> m () -save self = liftIO (js_save (self)) - -foreign import javascript unsafe "$1[\"restore\"]()" js_restore :: - CanvasRenderingContext2D -> IO () - --- | -restore :: (MonadIO m) => CanvasRenderingContext2D -> m () -restore self = liftIO (js_restore (self)) - -foreign import javascript unsafe "$1[\"scale\"]($2, $3)" js_scale - :: CanvasRenderingContext2D -> Float -> Float -> IO () - --- | -scale :: - (MonadIO m) => CanvasRenderingContext2D -> Float -> Float -> m () -scale self sx sy = liftIO (js_scale (self) sx sy) - -foreign import javascript unsafe "$1[\"rotate\"]($2)" js_rotate :: - CanvasRenderingContext2D -> Float -> IO () - --- | -rotate :: (MonadIO m) => CanvasRenderingContext2D -> Float -> m () -rotate self angle = liftIO (js_rotate (self) angle) - -foreign import javascript unsafe "$1[\"translate\"]($2, $3)" - js_translate :: CanvasRenderingContext2D -> Float -> Float -> IO () - --- | -translate :: - (MonadIO m) => CanvasRenderingContext2D -> Float -> Float -> m () -translate self tx ty = liftIO (js_translate (self) tx ty) - -foreign import javascript unsafe - "$1[\"transform\"]($2, $3, $4, $5,\n$6, $7)" js_transform :: - CanvasRenderingContext2D -> - Float -> Float -> Float -> Float -> Float -> Float -> IO () - --- | -transform :: - (MonadIO m) => - CanvasRenderingContext2D -> - Float -> Float -> Float -> Float -> Float -> Float -> m () -transform self m11 m12 m21 m22 dx dy - = liftIO (js_transform (self) m11 m12 m21 m22 dx dy) - -foreign import javascript unsafe - "$1[\"setTransform\"]($2, $3, $4,\n$5, $6, $7)" js_setTransform :: - CanvasRenderingContext2D -> - Float -> Float -> Float -> Float -> Float -> Float -> IO () - --- | -setTransform :: - (MonadIO m) => - CanvasRenderingContext2D -> - Float -> Float -> Float -> Float -> Float -> Float -> m () -setTransform self m11 m12 m21 m22 dx dy - = liftIO (js_setTransform (self) m11 m12 m21 m22 dx dy) - -foreign import javascript unsafe - "$1[\"createLinearGradient\"]($2,\n$3, $4, $5)" - js_createLinearGradient :: - CanvasRenderingContext2D -> - Float -> Float -> Float -> Float -> IO (Nullable CanvasGradient) - --- | -createLinearGradient :: - (MonadIO m) => - CanvasRenderingContext2D -> - Float -> Float -> Float -> Float -> m (Maybe CanvasGradient) -createLinearGradient self x0 y0 x1 y1 - = liftIO - (nullableToMaybe <$> (js_createLinearGradient (self) x0 y0 x1 y1)) - -foreign import javascript unsafe - "$1[\"createRadialGradient\"]($2,\n$3, $4, $5, $6, $7)" - js_createRadialGradient :: - CanvasRenderingContext2D -> - Float -> - Float -> - Float -> Float -> Float -> Float -> IO (Nullable CanvasGradient) - --- | -createRadialGradient :: - (MonadIO m) => - CanvasRenderingContext2D -> - Float -> - Float -> - Float -> Float -> Float -> Float -> m (Maybe CanvasGradient) -createRadialGradient self x0 y0 r0 x1 y1 r1 - = liftIO - (nullableToMaybe <$> - (js_createRadialGradient (self) x0 y0 r0 x1 y1 r1)) - -foreign import javascript unsafe "$1[\"setLineDash\"]($2)" - js_setLineDash :: CanvasRenderingContext2D -> JSVal -> IO () - --- | -setLineDash :: - (MonadIO m) => CanvasRenderingContext2D -> [Float] -> m () -setLineDash self dash - = liftIO (toJSVal dash >>= \ dash' -> js_setLineDash (self) dash') - -foreign import javascript unsafe "$1[\"getLineDash\"]()" - js_getLineDash :: CanvasRenderingContext2D -> IO JSVal - --- | -getLineDash :: (MonadIO m) => CanvasRenderingContext2D -> m [Float] -getLineDash self - = liftIO ((js_getLineDash (self)) >>= fromJSValUnchecked) - -foreign import javascript unsafe - "$1[\"clearRect\"]($2, $3, $4, $5)" js_clearRect :: - CanvasRenderingContext2D -> - Float -> Float -> Float -> Float -> IO () - --- | -clearRect :: - (MonadIO m) => - CanvasRenderingContext2D -> - Float -> Float -> Float -> Float -> m () -clearRect self x y width height - = liftIO (js_clearRect (self) x y width height) - -foreign import javascript unsafe "$1[\"fillRect\"]($2, $3, $4, $5)" - js_fillRect :: - CanvasRenderingContext2D -> - Float -> Float -> Float -> Float -> IO () - --- | -fillRect :: - (MonadIO m) => - CanvasRenderingContext2D -> - Float -> Float -> Float -> Float -> m () -fillRect self x y width height - = liftIO (js_fillRect (self) x y width height) - -foreign import javascript unsafe "$1[\"beginPath\"]()" js_beginPath - :: CanvasRenderingContext2D -> IO () - --- | -beginPath :: (MonadIO m) => CanvasRenderingContext2D -> m () -beginPath self = liftIO (js_beginPath (self)) - -foreign import javascript unsafe "$1[\"closePath\"]()" js_closePath - :: CanvasRenderingContext2D -> IO () - --- | -closePath :: (MonadIO m) => CanvasRenderingContext2D -> m () -closePath self = liftIO (js_closePath (self)) - -foreign import javascript unsafe "$1[\"moveTo\"]($2, $3)" js_moveTo - :: CanvasRenderingContext2D -> Float -> Float -> IO () - --- | -moveTo :: - (MonadIO m) => CanvasRenderingContext2D -> Float -> Float -> m () -moveTo self x y = liftIO (js_moveTo (self) x y) - -foreign import javascript unsafe "$1[\"lineTo\"]($2, $3)" js_lineTo - :: CanvasRenderingContext2D -> Float -> Float -> IO () - --- | -lineTo :: - (MonadIO m) => CanvasRenderingContext2D -> Float -> Float -> m () -lineTo self x y = liftIO (js_lineTo (self) x y) - -foreign import javascript unsafe - "$1[\"quadraticCurveTo\"]($2, $3,\n$4, $5)" js_quadraticCurveTo :: - CanvasRenderingContext2D -> - Float -> Float -> Float -> Float -> IO () - --- | -quadraticCurveTo :: - (MonadIO m) => - CanvasRenderingContext2D -> - Float -> Float -> Float -> Float -> m () -quadraticCurveTo self cpx cpy x y - = liftIO (js_quadraticCurveTo (self) cpx cpy x y) - -foreign import javascript unsafe - "$1[\"bezierCurveTo\"]($2, $3, $4,\n$5, $6, $7)" js_bezierCurveTo - :: - CanvasRenderingContext2D -> - Float -> Float -> Float -> Float -> Float -> Float -> IO () - --- | -bezierCurveTo :: - (MonadIO m) => - CanvasRenderingContext2D -> - Float -> Float -> Float -> Float -> Float -> Float -> m () -bezierCurveTo self cp1x cp1y cp2x cp2y x y - = liftIO (js_bezierCurveTo (self) cp1x cp1y cp2x cp2y x y) - -foreign import javascript unsafe - "$1[\"arcTo\"]($2, $3, $4, $5, $6)" js_arcTo :: - CanvasRenderingContext2D -> - Float -> Float -> Float -> Float -> Float -> IO () - --- | -arcTo :: - (MonadIO m) => - CanvasRenderingContext2D -> - Float -> Float -> Float -> Float -> Float -> m () -arcTo self x1 y1 x2 y2 radius - = liftIO (js_arcTo (self) x1 y1 x2 y2 radius) - -foreign import javascript unsafe "$1[\"rect\"]($2, $3, $4, $5)" - js_rect :: - CanvasRenderingContext2D -> - Float -> Float -> Float -> Float -> IO () - --- | -rect :: - (MonadIO m) => - CanvasRenderingContext2D -> - Float -> Float -> Float -> Float -> m () -rect self x y width height - = liftIO (js_rect (self) x y width height) - -foreign import javascript unsafe - "$1[\"arc\"]($2, $3, $4, $5, $6,\n$7)" js_arc :: - CanvasRenderingContext2D -> - Float -> Float -> Float -> Float -> Float -> Bool -> IO () - --- | -arc :: - (MonadIO m) => - CanvasRenderingContext2D -> - Float -> Float -> Float -> Float -> Float -> Bool -> m () -arc self x y radius startAngle endAngle anticlockwise - = liftIO - (js_arc (self) x y radius startAngle endAngle anticlockwise) - -foreign import javascript unsafe "$1[\"fill\"]($2, $3)" js_fillPath - :: CanvasRenderingContext2D -> Nullable Path2D -> JSVal -> IO () - --- | -fillPath :: - (MonadIO m) => - CanvasRenderingContext2D -> - Maybe Path2D -> CanvasWindingRule -> m () -fillPath self path winding - = liftIO - (js_fillPath (self) (maybeToNullable path) (pToJSVal winding)) - -foreign import javascript unsafe "$1[\"stroke\"]($2)" js_strokePath - :: CanvasRenderingContext2D -> Nullable Path2D -> IO () - --- | -strokePath :: - (MonadIO m) => CanvasRenderingContext2D -> Maybe Path2D -> m () -strokePath self path - = liftIO (js_strokePath (self) (maybeToNullable path)) - -foreign import javascript unsafe "$1[\"clip\"]($2, $3)" js_clipPath - :: CanvasRenderingContext2D -> Nullable Path2D -> JSVal -> IO () - --- | -clipPath :: - (MonadIO m) => - CanvasRenderingContext2D -> - Maybe Path2D -> CanvasWindingRule -> m () -clipPath self path winding - = liftIO - (js_clipPath (self) (maybeToNullable path) (pToJSVal winding)) - -foreign import javascript unsafe "$1[\"fill\"]($2)" js_fill :: - CanvasRenderingContext2D -> JSVal -> IO () - --- | -fill :: - (MonadIO m) => - CanvasRenderingContext2D -> CanvasWindingRule -> m () -fill self winding = liftIO (js_fill (self) (pToJSVal winding)) - -foreign import javascript unsafe "$1[\"stroke\"]()" js_stroke :: - CanvasRenderingContext2D -> IO () - --- | -stroke :: (MonadIO m) => CanvasRenderingContext2D -> m () -stroke self = liftIO (js_stroke (self)) - -foreign import javascript unsafe "$1[\"clip\"]($2)" js_clip :: - CanvasRenderingContext2D -> JSVal -> IO () - --- | -clip :: - (MonadIO m) => - CanvasRenderingContext2D -> CanvasWindingRule -> m () -clip self winding = liftIO (js_clip (self) (pToJSVal winding)) - -foreign import javascript unsafe - "($1[\"isPointInPath\"]($2, $3, $4,\n$5) ? 1 : 0)" - js_isPointInPathPath :: - CanvasRenderingContext2D -> - Nullable Path2D -> Float -> Float -> JSVal -> IO Bool - --- | -isPointInPathPath :: - (MonadIO m) => - CanvasRenderingContext2D -> - Maybe Path2D -> Float -> Float -> CanvasWindingRule -> m Bool -isPointInPathPath self path x y winding - = liftIO - (js_isPointInPathPath (self) (maybeToNullable path) x y - (pToJSVal winding)) - -foreign import javascript unsafe - "($1[\"isPointInStroke\"]($2, $3,\n$4) ? 1 : 0)" - js_isPointInStrokePath :: - CanvasRenderingContext2D -> - Nullable Path2D -> Float -> Float -> IO Bool - --- | -isPointInStrokePath :: - (MonadIO m) => - CanvasRenderingContext2D -> - Maybe Path2D -> Float -> Float -> m Bool -isPointInStrokePath self path x y - = liftIO (js_isPointInStrokePath (self) (maybeToNullable path) x y) - -foreign import javascript unsafe - "($1[\"isPointInPath\"]($2, $3,\n$4) ? 1 : 0)" js_isPointInPath :: - CanvasRenderingContext2D -> Float -> Float -> JSVal -> IO Bool - --- | -isPointInPath :: - (MonadIO m) => - CanvasRenderingContext2D -> - Float -> Float -> CanvasWindingRule -> m Bool -isPointInPath self x y winding - = liftIO (js_isPointInPath (self) x y (pToJSVal winding)) - -foreign import javascript unsafe - "($1[\"isPointInStroke\"]($2,\n$3) ? 1 : 0)" js_isPointInStroke :: - CanvasRenderingContext2D -> Float -> Float -> IO Bool - --- | -isPointInStroke :: - (MonadIO m) => CanvasRenderingContext2D -> Float -> Float -> m Bool -isPointInStroke self x y = liftIO (js_isPointInStroke (self) x y) - -foreign import javascript unsafe "$1[\"measureText\"]($2)" - js_measureText :: - CanvasRenderingContext2D -> JSString -> IO (Nullable TextMetrics) - --- | -measureText :: - (MonadIO m, ToJSString text) => - CanvasRenderingContext2D -> text -> m (Maybe TextMetrics) -measureText self text - = liftIO - (nullableToMaybe <$> (js_measureText (self) (toJSString text))) - -foreign import javascript unsafe "$1[\"setAlpha\"]($2)" js_setAlpha - :: CanvasRenderingContext2D -> Float -> IO () - --- | -setAlpha :: - (MonadIO m) => CanvasRenderingContext2D -> Float -> m () -setAlpha self alpha = liftIO (js_setAlpha (self) alpha) - -foreign import javascript unsafe - "$1[\"setCompositeOperation\"]($2)" js_setCompositeOperation :: - CanvasRenderingContext2D -> JSString -> IO () - --- | -setCompositeOperation :: - (MonadIO m, ToJSString compositeOperation) => - CanvasRenderingContext2D -> compositeOperation -> m () -setCompositeOperation self compositeOperation - = liftIO - (js_setCompositeOperation (self) (toJSString compositeOperation)) - -foreign import javascript unsafe "$1[\"setLineWidth\"]($2)" - js_setLineWidthFunction :: - CanvasRenderingContext2D -> Float -> IO () - --- | -setLineWidthFunction :: - (MonadIO m) => CanvasRenderingContext2D -> Float -> m () -setLineWidthFunction self width - = liftIO (js_setLineWidthFunction (self) width) - -foreign import javascript unsafe "$1[\"setLineCap\"]($2)" - js_setLineCapFunction :: - CanvasRenderingContext2D -> JSString -> IO () - --- | -setLineCapFunction :: - (MonadIO m, ToJSString cap) => - CanvasRenderingContext2D -> cap -> m () -setLineCapFunction self cap - = liftIO (js_setLineCapFunction (self) (toJSString cap)) - -foreign import javascript unsafe "$1[\"setLineJoin\"]($2)" - js_setLineJoinFunction :: - CanvasRenderingContext2D -> JSString -> IO () - --- | -setLineJoinFunction :: - (MonadIO m, ToJSString join) => - CanvasRenderingContext2D -> join -> m () -setLineJoinFunction self join - = liftIO (js_setLineJoinFunction (self) (toJSString join)) - -foreign import javascript unsafe "$1[\"setMiterLimit\"]($2)" - js_setMiterLimitFunction :: - CanvasRenderingContext2D -> Float -> IO () - --- | -setMiterLimitFunction :: - (MonadIO m) => CanvasRenderingContext2D -> Float -> m () -setMiterLimitFunction self limit - = liftIO (js_setMiterLimitFunction (self) limit) - -foreign import javascript unsafe "$1[\"clearShadow\"]()" - js_clearShadow :: CanvasRenderingContext2D -> IO () - --- | -clearShadow :: (MonadIO m) => CanvasRenderingContext2D -> m () -clearShadow self = liftIO (js_clearShadow (self)) - -foreign import javascript unsafe "$1[\"fillText\"]($2, $3, $4, $5)" - js_fillText :: - CanvasRenderingContext2D -> - JSString -> Float -> Float -> Float -> IO () - --- | -fillText :: - (MonadIO m, ToJSString text) => - CanvasRenderingContext2D -> text -> Float -> Float -> Float -> m () -fillText self text x y maxWidth - = liftIO (js_fillText (self) (toJSString text) x y maxWidth) - -foreign import javascript unsafe - "$1[\"strokeText\"]($2, $3, $4, $5)" js_strokeText :: - CanvasRenderingContext2D -> - JSString -> Float -> Float -> Float -> IO () - --- | -strokeText :: - (MonadIO m, ToJSString text) => - CanvasRenderingContext2D -> text -> Float -> Float -> Float -> m () -strokeText self text x y maxWidth - = liftIO (js_strokeText (self) (toJSString text) x y maxWidth) - -foreign import javascript unsafe "$1[\"setStrokeColor\"]($2, $3)" - js_setStrokeColor :: - CanvasRenderingContext2D -> JSString -> Float -> IO () - --- | -setStrokeColor :: - (MonadIO m, ToJSString color) => - CanvasRenderingContext2D -> color -> Float -> m () -setStrokeColor self color alpha - = liftIO (js_setStrokeColor (self) (toJSString color) alpha) - -foreign import javascript unsafe "$1[\"setStrokeColor\"]($2, $3)" - js_setStrokeColorGray :: - CanvasRenderingContext2D -> Float -> Float -> IO () - --- | -setStrokeColorGray :: - (MonadIO m) => CanvasRenderingContext2D -> Float -> Float -> m () -setStrokeColorGray self grayLevel alpha - = liftIO (js_setStrokeColorGray (self) grayLevel alpha) - -foreign import javascript unsafe - "$1[\"setStrokeColor\"]($2, $3, $4,\n$5)" js_setStrokeColorRGB :: - CanvasRenderingContext2D -> - Float -> Float -> Float -> Float -> IO () - --- | -setStrokeColorRGB :: - (MonadIO m) => - CanvasRenderingContext2D -> - Float -> Float -> Float -> Float -> m () -setStrokeColorRGB self r g b a - = liftIO (js_setStrokeColorRGB (self) r g b a) - -foreign import javascript unsafe - "$1[\"setStrokeColor\"]($2, $3, $4,\n$5, $6)" js_setStrokeColorCYMK - :: - CanvasRenderingContext2D -> - Float -> Float -> Float -> Float -> Float -> IO () - --- | -setStrokeColorCYMK :: - (MonadIO m) => - CanvasRenderingContext2D -> - Float -> Float -> Float -> Float -> Float -> m () -setStrokeColorCYMK self c m y k a - = liftIO (js_setStrokeColorCYMK (self) c m y k a) - -foreign import javascript unsafe "$1[\"setFillColor\"]($2, $3)" - js_setFillColor :: - CanvasRenderingContext2D -> JSString -> Float -> IO () - --- | -setFillColor :: - (MonadIO m, ToJSString color) => - CanvasRenderingContext2D -> color -> Float -> m () -setFillColor self color alpha - = liftIO (js_setFillColor (self) (toJSString color) alpha) - -foreign import javascript unsafe "$1[\"setFillColor\"]($2, $3)" - js_setFillColorGray :: - CanvasRenderingContext2D -> Float -> Float -> IO () - --- | -setFillColorGray :: - (MonadIO m) => CanvasRenderingContext2D -> Float -> Float -> m () -setFillColorGray self grayLevel alpha - = liftIO (js_setFillColorGray (self) grayLevel alpha) - -foreign import javascript unsafe - "$1[\"setFillColor\"]($2, $3, $4,\n$5)" js_setFillColorRGB :: - CanvasRenderingContext2D -> - Float -> Float -> Float -> Float -> IO () - --- | -setFillColorRGB :: - (MonadIO m) => - CanvasRenderingContext2D -> - Float -> Float -> Float -> Float -> m () -setFillColorRGB self r g b a - = liftIO (js_setFillColorRGB (self) r g b a) - -foreign import javascript unsafe - "$1[\"setFillColor\"]($2, $3, $4,\n$5, $6)" js_setFillColorCYMK :: - CanvasRenderingContext2D -> - Float -> Float -> Float -> Float -> Float -> IO () - --- | -setFillColorCYMK :: - (MonadIO m) => - CanvasRenderingContext2D -> - Float -> Float -> Float -> Float -> Float -> m () -setFillColorCYMK self c m y k a - = liftIO (js_setFillColorCYMK (self) c m y k a) - -foreign import javascript unsafe - "$1[\"strokeRect\"]($2, $3, $4, $5)" js_strokeRect :: - CanvasRenderingContext2D -> - Float -> Float -> Float -> Float -> IO () - --- | -strokeRect :: - (MonadIO m) => - CanvasRenderingContext2D -> - Float -> Float -> Float -> Float -> m () -strokeRect self x y width height - = liftIO (js_strokeRect (self) x y width height) - -foreign import javascript unsafe "$1[\"drawImage\"]($2, $3, $4)" - js_drawImage :: - CanvasRenderingContext2D -> - Nullable HTMLImageElement -> Float -> Float -> IO () - --- | -drawImage :: - (MonadIO m) => - CanvasRenderingContext2D -> - Maybe HTMLImageElement -> Float -> Float -> m () -drawImage self image x y - = liftIO (js_drawImage (self) (maybeToNullable image) x y) - -foreign import javascript unsafe - "$1[\"drawImage\"]($2, $3, $4, $5,\n$6)" js_drawImageScaled :: - CanvasRenderingContext2D -> - Nullable HTMLImageElement -> - Float -> Float -> Float -> Float -> IO () - --- | -drawImageScaled :: - (MonadIO m) => - CanvasRenderingContext2D -> - Maybe HTMLImageElement -> Float -> Float -> Float -> Float -> m () -drawImageScaled self image x y width height - = liftIO - (js_drawImageScaled (self) (maybeToNullable image) x y width - height) - -foreign import javascript unsafe - "$1[\"drawImage\"]($2, $3, $4, $5,\n$6, $7, $8, $9, $10)" - js_drawImagePart :: - CanvasRenderingContext2D -> - Nullable HTMLImageElement -> - Float -> - Float -> - Float -> Float -> Float -> Float -> Float -> Float -> IO () - --- | -drawImagePart :: - (MonadIO m) => - CanvasRenderingContext2D -> - Maybe HTMLImageElement -> - Float -> - Float -> Float -> Float -> Float -> Float -> Float -> Float -> m () -drawImagePart self image sx sy sw sh dx dy dw dh - = liftIO - (js_drawImagePart (self) (maybeToNullable image) sx sy sw sh dx dy - dw - dh) - -foreign import javascript unsafe "$1[\"drawImage\"]($2, $3, $4)" - js_drawImageFromCanvas :: - CanvasRenderingContext2D -> - Nullable HTMLCanvasElement -> Float -> Float -> IO () - --- | -drawImageFromCanvas :: - (MonadIO m) => - CanvasRenderingContext2D -> - Maybe HTMLCanvasElement -> Float -> Float -> m () -drawImageFromCanvas self canvas x y - = liftIO - (js_drawImageFromCanvas (self) (maybeToNullable canvas) x y) - -foreign import javascript unsafe - "$1[\"drawImage\"]($2, $3, $4, $5,\n$6)" - js_drawImageFromCanvasScaled :: - CanvasRenderingContext2D -> - Nullable HTMLCanvasElement -> - Float -> Float -> Float -> Float -> IO () - --- | -drawImageFromCanvasScaled :: - (MonadIO m) => - CanvasRenderingContext2D -> - Maybe HTMLCanvasElement -> Float -> Float -> Float -> Float -> m () -drawImageFromCanvasScaled self canvas x y width height - = liftIO - (js_drawImageFromCanvasScaled (self) (maybeToNullable canvas) x y - width - height) - -foreign import javascript unsafe - "$1[\"drawImage\"]($2, $3, $4, $5,\n$6, $7, $8, $9, $10)" - js_drawImageFromCanvasPart :: - CanvasRenderingContext2D -> - Nullable HTMLCanvasElement -> - Float -> - Float -> - Float -> Float -> Float -> Float -> Float -> Float -> IO () - --- | -drawImageFromCanvasPart :: - (MonadIO m) => - CanvasRenderingContext2D -> - Maybe HTMLCanvasElement -> - Float -> - Float -> Float -> Float -> Float -> Float -> Float -> Float -> m () -drawImageFromCanvasPart self canvas sx sy sw sh dx dy dw dh - = liftIO - (js_drawImageFromCanvasPart (self) (maybeToNullable canvas) sx sy - sw - sh - dx - dy - dw - dh) - -foreign import javascript unsafe "$1[\"drawImage\"]($2, $3, $4)" - js_drawImageFromVideo :: - CanvasRenderingContext2D -> - Nullable HTMLVideoElement -> Float -> Float -> IO () - --- | -drawImageFromVideo :: - (MonadIO m) => - CanvasRenderingContext2D -> - Maybe HTMLVideoElement -> Float -> Float -> m () -drawImageFromVideo self video x y - = liftIO (js_drawImageFromVideo (self) (maybeToNullable video) x y) - -foreign import javascript unsafe - "$1[\"drawImage\"]($2, $3, $4, $5,\n$6)" - js_drawImageFromVideoScaled :: - CanvasRenderingContext2D -> - Nullable HTMLVideoElement -> - Float -> Float -> Float -> Float -> IO () - --- | -drawImageFromVideoScaled :: - (MonadIO m) => - CanvasRenderingContext2D -> - Maybe HTMLVideoElement -> Float -> Float -> Float -> Float -> m () -drawImageFromVideoScaled self video x y width height - = liftIO - (js_drawImageFromVideoScaled (self) (maybeToNullable video) x y - width - height) - -foreign import javascript unsafe - "$1[\"drawImage\"]($2, $3, $4, $5,\n$6, $7, $8, $9, $10)" - js_drawImageFromVideoPart :: - CanvasRenderingContext2D -> - Nullable HTMLVideoElement -> - Float -> - Float -> - Float -> Float -> Float -> Float -> Float -> Float -> IO () - --- | -drawImageFromVideoPart :: - (MonadIO m) => - CanvasRenderingContext2D -> - Maybe HTMLVideoElement -> - Float -> - Float -> Float -> Float -> Float -> Float -> Float -> Float -> m () -drawImageFromVideoPart self video sx sy sw sh dx dy dw dh - = liftIO - (js_drawImageFromVideoPart (self) (maybeToNullable video) sx sy sw - sh - dx - dy - dw - dh) - -foreign import javascript unsafe - "$1[\"drawImageFromRect\"]($2, $3,\n$4, $5, $6, $7, $8, $9, $10,\n$11)" - js_drawImageFromRect :: - CanvasRenderingContext2D -> - Nullable HTMLImageElement -> - Float -> - Float -> - Float -> - Float -> Float -> Float -> Float -> Float -> JSString -> IO () - --- | -drawImageFromRect :: - (MonadIO m, ToJSString compositeOperation) => - CanvasRenderingContext2D -> - Maybe HTMLImageElement -> - Float -> - Float -> - Float -> - Float -> - Float -> Float -> Float -> Float -> compositeOperation -> m () -drawImageFromRect self image sx sy sw sh dx dy dw dh - compositeOperation - = liftIO - (js_drawImageFromRect (self) (maybeToNullable image) sx sy sw sh dx - dy - dw - dh - (toJSString compositeOperation)) - -foreign import javascript unsafe - "$1[\"setShadow\"]($2, $3, $4, $5,\n$6)" js_setShadow :: - CanvasRenderingContext2D -> - Float -> Float -> Float -> JSString -> Float -> IO () - --- | -setShadow :: - (MonadIO m, ToJSString color) => - CanvasRenderingContext2D -> - Float -> Float -> Float -> color -> Float -> m () -setShadow self width height blur color alpha - = liftIO - (js_setShadow (self) width height blur (toJSString color) alpha) - -foreign import javascript unsafe - "$1[\"setShadow\"]($2, $3, $4, $5,\n$6)" js_setShadowGray :: - CanvasRenderingContext2D -> - Float -> Float -> Float -> Float -> Float -> IO () - --- | -setShadowGray :: - (MonadIO m) => - CanvasRenderingContext2D -> - Float -> Float -> Float -> Float -> Float -> m () -setShadowGray self width height blur grayLevel alpha - = liftIO - (js_setShadowGray (self) width height blur grayLevel alpha) - -foreign import javascript unsafe - "$1[\"setShadow\"]($2, $3, $4, $5,\n$6, $7, $8)" js_setShadowRGB :: - CanvasRenderingContext2D -> - Float -> - Float -> Float -> Float -> Float -> Float -> Float -> IO () - --- | -setShadowRGB :: - (MonadIO m) => - CanvasRenderingContext2D -> - Float -> Float -> Float -> Float -> Float -> Float -> Float -> m () -setShadowRGB self width height blur r g b a - = liftIO (js_setShadowRGB (self) width height blur r g b a) - -foreign import javascript unsafe - "$1[\"setShadow\"]($2, $3, $4, $5,\n$6, $7, $8, $9)" - js_setShadowCYMK :: - CanvasRenderingContext2D -> - Float -> - Float -> - Float -> Float -> Float -> Float -> Float -> Float -> IO () - --- | -setShadowCYMK :: - (MonadIO m) => - CanvasRenderingContext2D -> - Float -> - Float -> Float -> Float -> Float -> Float -> Float -> Float -> m () -setShadowCYMK self width height blur c m y k a - = liftIO (js_setShadowCYMK (self) width height blur c m y k a) - -foreign import javascript unsafe "$1[\"putImageData\"]($2, $3, $4)" - js_putImageData :: - CanvasRenderingContext2D -> - Nullable ImageData -> Float -> Float -> IO () - --- | -putImageData :: - (MonadIO m) => - CanvasRenderingContext2D -> - Maybe ImageData -> Float -> Float -> m () -putImageData self imagedata dx dy - = liftIO (js_putImageData (self) (maybeToNullable imagedata) dx dy) - -foreign import javascript unsafe - "$1[\"putImageData\"]($2, $3, $4,\n$5, $6, $7, $8)" - js_putImageDataDirty :: - CanvasRenderingContext2D -> - Nullable ImageData -> - Float -> Float -> Float -> Float -> Float -> Float -> IO () - --- | -putImageDataDirty :: - (MonadIO m) => - CanvasRenderingContext2D -> - Maybe ImageData -> - Float -> Float -> Float -> Float -> Float -> Float -> m () -putImageDataDirty self imagedata dx dy dirtyX dirtyY dirtyWidth - dirtyHeight - = liftIO - (js_putImageDataDirty (self) (maybeToNullable imagedata) dx dy - dirtyX - dirtyY - dirtyWidth - dirtyHeight) - -foreign import javascript unsafe - "$1[\"webkitPutImageDataHD\"]($2,\n$3, $4)" js_webkitPutImageDataHD - :: - CanvasRenderingContext2D -> - Nullable ImageData -> Float -> Float -> IO () - --- | -webkitPutImageDataHD :: - (MonadIO m) => - CanvasRenderingContext2D -> - Maybe ImageData -> Float -> Float -> m () -webkitPutImageDataHD self imagedata dx dy - = liftIO - (js_webkitPutImageDataHD (self) (maybeToNullable imagedata) dx dy) - -foreign import javascript unsafe - "$1[\"webkitPutImageDataHD\"]($2,\n$3, $4, $5, $6, $7, $8)" - js_webkitPutImageDataHDDirty :: - CanvasRenderingContext2D -> - Nullable ImageData -> - Float -> Float -> Float -> Float -> Float -> Float -> IO () - --- | -webkitPutImageDataHDDirty :: - (MonadIO m) => - CanvasRenderingContext2D -> - Maybe ImageData -> - Float -> Float -> Float -> Float -> Float -> Float -> m () -webkitPutImageDataHDDirty self imagedata dx dy dirtyX dirtyY - dirtyWidth dirtyHeight - = liftIO - (js_webkitPutImageDataHDDirty (self) (maybeToNullable imagedata) dx - dy - dirtyX - dirtyY - dirtyWidth - dirtyHeight) - -foreign import javascript unsafe "$1[\"createPattern\"]($2, $3)" - js_createPatternFromCanvas :: - CanvasRenderingContext2D -> - Nullable HTMLCanvasElement -> - Nullable JSString -> IO (Nullable CanvasPattern) - --- | -createPatternFromCanvas :: - (MonadIO m, ToJSString repetitionType) => - CanvasRenderingContext2D -> - Maybe HTMLCanvasElement -> - Maybe repetitionType -> m (Maybe CanvasPattern) -createPatternFromCanvas self canvas repetitionType - = liftIO - (nullableToMaybe <$> - (js_createPatternFromCanvas (self) (maybeToNullable canvas) - (toMaybeJSString repetitionType))) - -foreign import javascript unsafe "$1[\"createPattern\"]($2, $3)" - js_createPattern :: - CanvasRenderingContext2D -> - Nullable HTMLImageElement -> - Nullable JSString -> IO (Nullable CanvasPattern) - --- | -createPattern :: - (MonadIO m, ToJSString repetitionType) => - CanvasRenderingContext2D -> - Maybe HTMLImageElement -> - Maybe repetitionType -> m (Maybe CanvasPattern) -createPattern self image repetitionType - = liftIO - (nullableToMaybe <$> - (js_createPattern (self) (maybeToNullable image) - (toMaybeJSString repetitionType))) - -foreign import javascript unsafe "$1[\"createImageData\"]($2)" - js_createImageData :: - CanvasRenderingContext2D -> - Nullable ImageData -> IO (Nullable ImageData) - --- | -createImageData :: - (MonadIO m) => - CanvasRenderingContext2D -> Maybe ImageData -> m (Maybe ImageData) -createImageData self imagedata - = liftIO - (nullableToMaybe <$> - (js_createImageData (self) (maybeToNullable imagedata))) - -foreign import javascript unsafe "$1[\"createImageData\"]($2, $3)" - js_createImageDataSize :: - CanvasRenderingContext2D -> - Float -> Float -> IO (Nullable ImageData) - --- | -createImageDataSize :: - (MonadIO m) => - CanvasRenderingContext2D -> Float -> Float -> m (Maybe ImageData) -createImageDataSize self sw sh - = liftIO - (nullableToMaybe <$> (js_createImageDataSize (self) sw sh)) - -foreign import javascript unsafe - "$1[\"getImageData\"]($2, $3, $4,\n$5)" js_getImageData :: - CanvasRenderingContext2D -> - Float -> Float -> Float -> Float -> IO (Nullable ImageData) - --- | -getImageData :: - (MonadIO m) => - CanvasRenderingContext2D -> - Float -> Float -> Float -> Float -> m (Maybe ImageData) -getImageData self sx sy sw sh - = liftIO (nullableToMaybe <$> (js_getImageData (self) sx sy sw sh)) - -foreign import javascript unsafe - "$1[\"webkitGetImageDataHD\"]($2,\n$3, $4, $5)" - js_webkitGetImageDataHD :: - CanvasRenderingContext2D -> - Float -> Float -> Float -> Float -> IO (Nullable ImageData) - --- | -webkitGetImageDataHD :: - (MonadIO m) => - CanvasRenderingContext2D -> - Float -> Float -> Float -> Float -> m (Maybe ImageData) -webkitGetImageDataHD self sx sy sw sh - = liftIO - (nullableToMaybe <$> (js_webkitGetImageDataHD (self) sx sy sw sh)) - -foreign import javascript unsafe "$1[\"drawFocusIfNeeded\"]($2)" - js_drawFocusIfNeeded :: - CanvasRenderingContext2D -> Nullable Element -> IO () - --- | -drawFocusIfNeeded :: - (MonadIO m, IsElement element) => - CanvasRenderingContext2D -> Maybe element -> m () -drawFocusIfNeeded self element - = liftIO - (js_drawFocusIfNeeded (self) - (maybeToNullable (fmap toElement element))) - -foreign import javascript unsafe - "$1[\"drawFocusIfNeeded\"]($2, $3)" js_drawFocusIfNeededPath :: - CanvasRenderingContext2D -> - Nullable Path2D -> Nullable Element -> IO () - --- | -drawFocusIfNeededPath :: - (MonadIO m, IsElement element) => - CanvasRenderingContext2D -> Maybe Path2D -> Maybe element -> m () -drawFocusIfNeededPath self path element - = liftIO - (js_drawFocusIfNeededPath (self) (maybeToNullable path) - (maybeToNullable (fmap toElement element))) - -foreign import javascript unsafe "$1[\"globalAlpha\"] = $2;" - js_setGlobalAlpha :: CanvasRenderingContext2D -> Float -> IO () - --- | -setGlobalAlpha :: - (MonadIO m) => CanvasRenderingContext2D -> Float -> m () -setGlobalAlpha self val = liftIO (js_setGlobalAlpha (self) val) - -foreign import javascript unsafe "$1[\"globalAlpha\"]" - js_getGlobalAlpha :: CanvasRenderingContext2D -> IO Float - --- | -getGlobalAlpha :: - (MonadIO m) => CanvasRenderingContext2D -> m Float -getGlobalAlpha self = liftIO (js_getGlobalAlpha (self)) - -foreign import javascript unsafe - "$1[\"globalCompositeOperation\"] = $2;" - js_setGlobalCompositeOperation :: - CanvasRenderingContext2D -> Nullable JSString -> IO () - --- | -setGlobalCompositeOperation :: - (MonadIO m, ToJSString val) => - CanvasRenderingContext2D -> Maybe val -> m () -setGlobalCompositeOperation self val - = liftIO - (js_setGlobalCompositeOperation (self) (toMaybeJSString val)) - -foreign import javascript unsafe "$1[\"globalCompositeOperation\"]" - js_getGlobalCompositeOperation :: - CanvasRenderingContext2D -> IO (Nullable JSString) - --- | -getGlobalCompositeOperation :: - (MonadIO m, FromJSString result) => - CanvasRenderingContext2D -> m (Maybe result) -getGlobalCompositeOperation self - = liftIO - (fromMaybeJSString <$> (js_getGlobalCompositeOperation (self))) - -foreign import javascript unsafe "$1[\"lineWidth\"] = $2;" - js_setLineWidth :: CanvasRenderingContext2D -> Float -> IO () - --- | -setLineWidth :: - (MonadIO m) => CanvasRenderingContext2D -> Float -> m () -setLineWidth self val = liftIO (js_setLineWidth (self) val) - -foreign import javascript unsafe "$1[\"lineWidth\"]" - js_getLineWidth :: CanvasRenderingContext2D -> IO Float - --- | -getLineWidth :: (MonadIO m) => CanvasRenderingContext2D -> m Float -getLineWidth self = liftIO (js_getLineWidth (self)) - -foreign import javascript unsafe "$1[\"lineCap\"] = $2;" - js_setLineCap :: - CanvasRenderingContext2D -> Nullable JSString -> IO () - --- | -setLineCap :: - (MonadIO m, ToJSString val) => - CanvasRenderingContext2D -> Maybe val -> m () -setLineCap self val - = liftIO (js_setLineCap (self) (toMaybeJSString val)) - -foreign import javascript unsafe "$1[\"lineCap\"]" js_getLineCap :: - CanvasRenderingContext2D -> IO (Nullable JSString) - --- | -getLineCap :: - (MonadIO m, FromJSString result) => - CanvasRenderingContext2D -> m (Maybe result) -getLineCap self - = liftIO (fromMaybeJSString <$> (js_getLineCap (self))) - -foreign import javascript unsafe "$1[\"lineJoin\"] = $2;" - js_setLineJoin :: - CanvasRenderingContext2D -> Nullable JSString -> IO () - --- | -setLineJoin :: - (MonadIO m, ToJSString val) => - CanvasRenderingContext2D -> Maybe val -> m () -setLineJoin self val - = liftIO (js_setLineJoin (self) (toMaybeJSString val)) - -foreign import javascript unsafe "$1[\"lineJoin\"]" js_getLineJoin - :: CanvasRenderingContext2D -> IO (Nullable JSString) - --- | -getLineJoin :: - (MonadIO m, FromJSString result) => - CanvasRenderingContext2D -> m (Maybe result) -getLineJoin self - = liftIO (fromMaybeJSString <$> (js_getLineJoin (self))) - -foreign import javascript unsafe "$1[\"miterLimit\"] = $2;" - js_setMiterLimit :: CanvasRenderingContext2D -> Float -> IO () - --- | -setMiterLimit :: - (MonadIO m) => CanvasRenderingContext2D -> Float -> m () -setMiterLimit self val = liftIO (js_setMiterLimit (self) val) - -foreign import javascript unsafe "$1[\"miterLimit\"]" - js_getMiterLimit :: CanvasRenderingContext2D -> IO Float - --- | -getMiterLimit :: (MonadIO m) => CanvasRenderingContext2D -> m Float -getMiterLimit self = liftIO (js_getMiterLimit (self)) - -foreign import javascript unsafe "$1[\"shadowOffsetX\"] = $2;" - js_setShadowOffsetX :: CanvasRenderingContext2D -> Float -> IO () - --- | -setShadowOffsetX :: - (MonadIO m) => CanvasRenderingContext2D -> Float -> m () -setShadowOffsetX self val = liftIO (js_setShadowOffsetX (self) val) - -foreign import javascript unsafe "$1[\"shadowOffsetX\"]" - js_getShadowOffsetX :: CanvasRenderingContext2D -> IO Float - --- | -getShadowOffsetX :: - (MonadIO m) => CanvasRenderingContext2D -> m Float -getShadowOffsetX self = liftIO (js_getShadowOffsetX (self)) - -foreign import javascript unsafe "$1[\"shadowOffsetY\"] = $2;" - js_setShadowOffsetY :: CanvasRenderingContext2D -> Float -> IO () - --- | -setShadowOffsetY :: - (MonadIO m) => CanvasRenderingContext2D -> Float -> m () -setShadowOffsetY self val = liftIO (js_setShadowOffsetY (self) val) - -foreign import javascript unsafe "$1[\"shadowOffsetY\"]" - js_getShadowOffsetY :: CanvasRenderingContext2D -> IO Float - --- | -getShadowOffsetY :: - (MonadIO m) => CanvasRenderingContext2D -> m Float -getShadowOffsetY self = liftIO (js_getShadowOffsetY (self)) - -foreign import javascript unsafe "$1[\"shadowBlur\"] = $2;" - js_setShadowBlur :: CanvasRenderingContext2D -> Float -> IO () - --- | -setShadowBlur :: - (MonadIO m) => CanvasRenderingContext2D -> Float -> m () -setShadowBlur self val = liftIO (js_setShadowBlur (self) val) - -foreign import javascript unsafe "$1[\"shadowBlur\"]" - js_getShadowBlur :: CanvasRenderingContext2D -> IO Float - --- | -getShadowBlur :: (MonadIO m) => CanvasRenderingContext2D -> m Float -getShadowBlur self = liftIO (js_getShadowBlur (self)) - -foreign import javascript unsafe "$1[\"shadowColor\"] = $2;" - js_setShadowColor :: - CanvasRenderingContext2D -> Nullable JSString -> IO () - --- | -setShadowColor :: - (MonadIO m, ToJSString val) => - CanvasRenderingContext2D -> Maybe val -> m () -setShadowColor self val - = liftIO (js_setShadowColor (self) (toMaybeJSString val)) - -foreign import javascript unsafe "$1[\"shadowColor\"]" - js_getShadowColor :: - CanvasRenderingContext2D -> IO (Nullable JSString) - --- | -getShadowColor :: - (MonadIO m, FromJSString result) => - CanvasRenderingContext2D -> m (Maybe result) -getShadowColor self - = liftIO (fromMaybeJSString <$> (js_getShadowColor (self))) - -foreign import javascript unsafe "$1[\"lineDashOffset\"] = $2;" - js_setLineDashOffset :: CanvasRenderingContext2D -> Float -> IO () - --- | -setLineDashOffset :: - (MonadIO m) => CanvasRenderingContext2D -> Float -> m () -setLineDashOffset self val - = liftIO (js_setLineDashOffset (self) val) - -foreign import javascript unsafe "$1[\"lineDashOffset\"]" - js_getLineDashOffset :: CanvasRenderingContext2D -> IO Float - --- | -getLineDashOffset :: - (MonadIO m) => CanvasRenderingContext2D -> m Float -getLineDashOffset self = liftIO (js_getLineDashOffset (self)) - -foreign import javascript unsafe "$1[\"webkitLineDash\"] = $2;" - js_setWebkitLineDash :: - CanvasRenderingContext2D -> Nullable Array -> IO () - --- | -setWebkitLineDash :: - (MonadIO m, IsArray val) => - CanvasRenderingContext2D -> Maybe val -> m () -setWebkitLineDash self val - = liftIO - (js_setWebkitLineDash (self) (maybeToNullable (fmap toArray val))) - -foreign import javascript unsafe "$1[\"webkitLineDash\"]" - js_getWebkitLineDash :: - CanvasRenderingContext2D -> IO (Nullable Array) - --- | -getWebkitLineDash :: - (MonadIO m) => CanvasRenderingContext2D -> m (Maybe Array) -getWebkitLineDash self - = liftIO (nullableToMaybe <$> (js_getWebkitLineDash (self))) - -foreign import javascript unsafe - "$1[\"webkitLineDashOffset\"] = $2;" js_setWebkitLineDashOffset :: - CanvasRenderingContext2D -> Float -> IO () - --- | -setWebkitLineDashOffset :: - (MonadIO m) => CanvasRenderingContext2D -> Float -> m () -setWebkitLineDashOffset self val - = liftIO (js_setWebkitLineDashOffset (self) val) - -foreign import javascript unsafe "$1[\"webkitLineDashOffset\"]" - js_getWebkitLineDashOffset :: CanvasRenderingContext2D -> IO Float - --- | -getWebkitLineDashOffset :: - (MonadIO m) => CanvasRenderingContext2D -> m Float -getWebkitLineDashOffset self - = liftIO (js_getWebkitLineDashOffset (self)) - -foreign import javascript unsafe "$1[\"font\"] = $2;" js_setFont :: - CanvasRenderingContext2D -> JSString -> IO () - --- | -setFont :: - (MonadIO m, ToJSString val) => - CanvasRenderingContext2D -> val -> m () -setFont self val = liftIO (js_setFont (self) (toJSString val)) - -foreign import javascript unsafe "$1[\"font\"]" js_getFont :: - CanvasRenderingContext2D -> IO JSString - --- | -getFont :: - (MonadIO m, FromJSString result) => - CanvasRenderingContext2D -> m result -getFont self = liftIO (fromJSString <$> (js_getFont (self))) - -foreign import javascript unsafe "$1[\"textAlign\"] = $2;" - js_setTextAlign :: CanvasRenderingContext2D -> JSString -> IO () - --- | -setTextAlign :: - (MonadIO m, ToJSString val) => - CanvasRenderingContext2D -> val -> m () -setTextAlign self val - = liftIO (js_setTextAlign (self) (toJSString val)) - -foreign import javascript unsafe "$1[\"textAlign\"]" - js_getTextAlign :: CanvasRenderingContext2D -> IO JSString - --- | -getTextAlign :: - (MonadIO m, FromJSString result) => - CanvasRenderingContext2D -> m result -getTextAlign self - = liftIO (fromJSString <$> (js_getTextAlign (self))) - -foreign import javascript unsafe "$1[\"textBaseline\"] = $2;" - js_setTextBaseline :: CanvasRenderingContext2D -> JSString -> IO () - --- | -setTextBaseline :: - (MonadIO m, ToJSString val) => - CanvasRenderingContext2D -> val -> m () -setTextBaseline self val - = liftIO (js_setTextBaseline (self) (toJSString val)) - -foreign import javascript unsafe "$1[\"textBaseline\"]" - js_getTextBaseline :: CanvasRenderingContext2D -> IO JSString - --- | -getTextBaseline :: - (MonadIO m, FromJSString result) => - CanvasRenderingContext2D -> m result -getTextBaseline self - = liftIO (fromJSString <$> (js_getTextBaseline (self))) - -foreign import javascript unsafe "$1[\"direction\"] = $2;" - js_setDirection :: CanvasRenderingContext2D -> JSString -> IO () - --- | -setDirection :: - (MonadIO m, ToJSString val) => - CanvasRenderingContext2D -> val -> m () -setDirection self val - = liftIO (js_setDirection (self) (toJSString val)) - -foreign import javascript unsafe "$1[\"direction\"]" - js_getDirection :: CanvasRenderingContext2D -> IO JSString - --- | -getDirection :: - (MonadIO m, FromJSString result) => - CanvasRenderingContext2D -> m result -getDirection self - = liftIO (fromJSString <$> (js_getDirection (self))) - -foreign import javascript unsafe "$1[\"strokeStyle\"] = $2;" - js_setStrokeStyle :: - CanvasRenderingContext2D -> Nullable CanvasStyle -> IO () - --- | -setStrokeStyle :: - (MonadIO m, IsCanvasStyle val) => - CanvasRenderingContext2D -> Maybe val -> m () -setStrokeStyle self val - = liftIO - (js_setStrokeStyle (self) - (maybeToNullable (fmap toCanvasStyle val))) - -foreign import javascript unsafe "$1[\"strokeStyle\"]" - js_getStrokeStyle :: - CanvasRenderingContext2D -> IO (Nullable CanvasStyle) - --- | -getStrokeStyle :: - (MonadIO m) => CanvasRenderingContext2D -> m (Maybe CanvasStyle) -getStrokeStyle self - = liftIO (nullableToMaybe <$> (js_getStrokeStyle (self))) - -foreign import javascript unsafe "$1[\"fillStyle\"] = $2;" - js_setFillStyle :: - CanvasRenderingContext2D -> Nullable CanvasStyle -> IO () - --- | -setFillStyle :: - (MonadIO m, IsCanvasStyle val) => - CanvasRenderingContext2D -> Maybe val -> m () -setFillStyle self val - = liftIO - (js_setFillStyle (self) (maybeToNullable (fmap toCanvasStyle val))) - -foreign import javascript unsafe "$1[\"fillStyle\"]" - js_getFillStyle :: - CanvasRenderingContext2D -> IO (Nullable CanvasStyle) - --- | -getFillStyle :: - (MonadIO m) => CanvasRenderingContext2D -> m (Maybe CanvasStyle) -getFillStyle self - = liftIO (nullableToMaybe <$> (js_getFillStyle (self))) - -foreign import javascript unsafe - "$1[\"webkitBackingStorePixelRatio\"]" - js_getWebkitBackingStorePixelRatio :: - CanvasRenderingContext2D -> IO Float - --- | -getWebkitBackingStorePixelRatio :: - (MonadIO m) => CanvasRenderingContext2D -> m Float -getWebkitBackingStorePixelRatio self - = liftIO (js_getWebkitBackingStorePixelRatio (self)) - -foreign import javascript unsafe - "$1[\"webkitImageSmoothingEnabled\"] = $2;" - js_setWebkitImageSmoothingEnabled :: - CanvasRenderingContext2D -> Bool -> IO () - --- | -setWebkitImageSmoothingEnabled :: - (MonadIO m) => CanvasRenderingContext2D -> Bool -> m () -setWebkitImageSmoothingEnabled self val - = liftIO (js_setWebkitImageSmoothingEnabled (self) val) - -foreign import javascript unsafe - "($1[\"webkitImageSmoothingEnabled\"] ? 1 : 0)" - js_getWebkitImageSmoothingEnabled :: - CanvasRenderingContext2D -> IO Bool - --- | -getWebkitImageSmoothingEnabled :: - (MonadIO m) => CanvasRenderingContext2D -> m Bool -getWebkitImageSmoothingEnabled self - = liftIO (js_getWebkitImageSmoothingEnabled (self)) diff --git a/src/GHCJS/DOM/JSFFI/Generated/CapabilityRange.hs b/src/GHCJS/DOM/JSFFI/Generated/CapabilityRange.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/CapabilityRange.hs +++ /dev/null @@ -1,41 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.CapabilityRange - (js_getMax, getMax, js_getMin, getMin, js_getSupported, - getSupported, CapabilityRange, castToCapabilityRange, - gTypeCapabilityRange) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"max\"]" js_getMax :: - CapabilityRange -> IO JSVal - --- | -getMax :: (MonadIO m) => CapabilityRange -> m JSVal -getMax self = liftIO (js_getMax (self)) - -foreign import javascript unsafe "$1[\"min\"]" js_getMin :: - CapabilityRange -> IO JSVal - --- | -getMin :: (MonadIO m) => CapabilityRange -> m JSVal -getMin self = liftIO (js_getMin (self)) - -foreign import javascript unsafe "($1[\"supported\"] ? 1 : 0)" - js_getSupported :: CapabilityRange -> IO Bool - --- | -getSupported :: (MonadIO m) => CapabilityRange -> m Bool -getSupported self = liftIO (js_getSupported (self)) diff --git a/src/GHCJS/DOM/JSFFI/Generated/CharacterData.hs b/src/GHCJS/DOM/JSFFI/Generated/CharacterData.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/CharacterData.hs +++ /dev/null @@ -1,107 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.CharacterData - (js_substringData, substringData, js_appendData, appendData, - js_insertData, insertData, js_deleteData, deleteData, - js_replaceData, replaceData, js_setData, setData, js_getData, - getData, js_getLength, getLength, CharacterData, - castToCharacterData, gTypeCharacterData, IsCharacterData, - toCharacterData) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"substringData\"]($2, $3)" - js_substringData :: - CharacterData -> Word -> Word -> IO (Nullable JSString) - --- | -substringData :: - (MonadIO m, IsCharacterData self, FromJSString result) => - self -> Word -> Word -> m (Maybe result) -substringData self offset length - = liftIO - (fromMaybeJSString <$> - (js_substringData (toCharacterData self) offset length)) - -foreign import javascript unsafe "$1[\"appendData\"]($2)" - js_appendData :: CharacterData -> JSString -> IO () - --- | -appendData :: - (MonadIO m, IsCharacterData self, ToJSString data') => - self -> data' -> m () -appendData self data' - = liftIO (js_appendData (toCharacterData self) (toJSString data')) - -foreign import javascript unsafe "$1[\"insertData\"]($2, $3)" - js_insertData :: CharacterData -> Word -> JSString -> IO () - --- | -insertData :: - (MonadIO m, IsCharacterData self, ToJSString data') => - self -> Word -> data' -> m () -insertData self offset data' - = liftIO - (js_insertData (toCharacterData self) offset (toJSString data')) - -foreign import javascript unsafe "$1[\"deleteData\"]($2, $3)" - js_deleteData :: CharacterData -> Word -> Word -> IO () - --- | -deleteData :: - (MonadIO m, IsCharacterData self) => self -> Word -> Word -> m () -deleteData self offset length - = liftIO (js_deleteData (toCharacterData self) offset length) - -foreign import javascript unsafe "$1[\"replaceData\"]($2, $3, $4)" - js_replaceData :: - CharacterData -> Word -> Word -> JSString -> IO () - --- | -replaceData :: - (MonadIO m, IsCharacterData self, ToJSString data') => - self -> Word -> Word -> data' -> m () -replaceData self offset length data' - = liftIO - (js_replaceData (toCharacterData self) offset length - (toJSString data')) - -foreign import javascript unsafe "$1[\"data\"] = $2;" js_setData :: - CharacterData -> Nullable JSString -> IO () - --- | -setData :: - (MonadIO m, IsCharacterData self, ToJSString val) => - self -> Maybe val -> m () -setData self val - = liftIO (js_setData (toCharacterData self) (toMaybeJSString val)) - -foreign import javascript unsafe "$1[\"data\"]" js_getData :: - CharacterData -> IO (Nullable JSString) - --- | -getData :: - (MonadIO m, IsCharacterData self, FromJSString result) => - self -> m (Maybe result) -getData self - = liftIO - (fromMaybeJSString <$> (js_getData (toCharacterData self))) - -foreign import javascript unsafe "$1[\"length\"]" js_getLength :: - CharacterData -> IO Word - --- | -getLength :: (MonadIO m, IsCharacterData self) => self -> m Word -getLength self = liftIO (js_getLength (toCharacterData self)) diff --git a/src/GHCJS/DOM/JSFFI/Generated/ChildNode.hs b/src/GHCJS/DOM/JSFFI/Generated/ChildNode.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/ChildNode.hs +++ /dev/null @@ -1,25 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.ChildNode - (js_remove, remove, ChildNode, castToChildNode, gTypeChildNode) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"remove\"]()" js_remove :: - ChildNode -> IO () - --- | -remove :: (MonadIO m) => ChildNode -> m () -remove self = liftIO (js_remove (self)) diff --git a/src/GHCJS/DOM/JSFFI/Generated/ClientRect.hs b/src/GHCJS/DOM/JSFFI/Generated/ClientRect.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/ClientRect.hs +++ /dev/null @@ -1,62 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.ClientRect - (js_getTop, getTop, js_getRight, getRight, js_getBottom, getBottom, - js_getLeft, getLeft, js_getWidth, getWidth, js_getHeight, - getHeight, ClientRect, castToClientRect, gTypeClientRect) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"top\"]" js_getTop :: - ClientRect -> IO Float - --- | -getTop :: (MonadIO m) => ClientRect -> m Float -getTop self = liftIO (js_getTop (self)) - -foreign import javascript unsafe "$1[\"right\"]" js_getRight :: - ClientRect -> IO Float - --- | -getRight :: (MonadIO m) => ClientRect -> m Float -getRight self = liftIO (js_getRight (self)) - -foreign import javascript unsafe "$1[\"bottom\"]" js_getBottom :: - ClientRect -> IO Float - --- | -getBottom :: (MonadIO m) => ClientRect -> m Float -getBottom self = liftIO (js_getBottom (self)) - -foreign import javascript unsafe "$1[\"left\"]" js_getLeft :: - ClientRect -> IO Float - --- | -getLeft :: (MonadIO m) => ClientRect -> m Float -getLeft self = liftIO (js_getLeft (self)) - -foreign import javascript unsafe "$1[\"width\"]" js_getWidth :: - ClientRect -> IO Float - --- | -getWidth :: (MonadIO m) => ClientRect -> m Float -getWidth self = liftIO (js_getWidth (self)) - -foreign import javascript unsafe "$1[\"height\"]" js_getHeight :: - ClientRect -> IO Float - --- | -getHeight :: (MonadIO m) => ClientRect -> m Float -getHeight self = liftIO (js_getHeight (self)) diff --git a/src/GHCJS/DOM/JSFFI/Generated/ClientRectList.hs b/src/GHCJS/DOM/JSFFI/Generated/ClientRectList.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/ClientRectList.hs +++ /dev/null @@ -1,35 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.ClientRectList - (js_item, item, js_getLength, getLength, ClientRectList, - castToClientRectList, gTypeClientRectList) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"item\"]($2)" js_item :: - ClientRectList -> Word -> IO (Nullable ClientRect) - --- | -item :: - (MonadIO m) => ClientRectList -> Word -> m (Maybe ClientRect) -item self index - = liftIO (nullableToMaybe <$> (js_item (self) index)) - -foreign import javascript unsafe "$1[\"length\"]" js_getLength :: - ClientRectList -> IO Word - --- | -getLength :: (MonadIO m) => ClientRectList -> m Word -getLength self = liftIO (js_getLength (self)) diff --git a/src/GHCJS/DOM/JSFFI/Generated/CloseEvent.hs b/src/GHCJS/DOM/JSFFI/Generated/CloseEvent.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/CloseEvent.hs +++ /dev/null @@ -1,41 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.CloseEvent - (js_getWasClean, getWasClean, js_getCode, getCode, js_getReason, - getReason, CloseEvent, castToCloseEvent, gTypeCloseEvent) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "($1[\"wasClean\"] ? 1 : 0)" - js_getWasClean :: CloseEvent -> IO Bool - --- | -getWasClean :: (MonadIO m) => CloseEvent -> m Bool -getWasClean self = liftIO (js_getWasClean (self)) - -foreign import javascript unsafe "$1[\"code\"]" js_getCode :: - CloseEvent -> IO Word - --- | -getCode :: (MonadIO m) => CloseEvent -> m Word -getCode self = liftIO (js_getCode (self)) - -foreign import javascript unsafe "$1[\"reason\"]" js_getReason :: - CloseEvent -> IO JSString - --- | -getReason :: - (MonadIO m, FromJSString result) => CloseEvent -> m result -getReason self = liftIO (fromJSString <$> (js_getReason (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/CommandLineAPIHost.hs b/src/GHCJS/DOM/JSFFI/Generated/CommandLineAPIHost.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/CommandLineAPIHost.hs +++ /dev/null @@ -1,87 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.CommandLineAPIHost - (js_clearConsoleMessages, clearConsoleMessages, js_copyText, - copyText, js_inspect, inspect, js_inspectedObject, inspectedObject, - js_getEventListeners, getEventListeners, js_databaseId, databaseId, - js_storageId, storageId, CommandLineAPIHost, - castToCommandLineAPIHost, gTypeCommandLineAPIHost) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"clearConsoleMessages\"]()" - js_clearConsoleMessages :: CommandLineAPIHost -> IO () - --- | -clearConsoleMessages :: (MonadIO m) => CommandLineAPIHost -> m () -clearConsoleMessages self = liftIO (js_clearConsoleMessages (self)) - -foreign import javascript unsafe "$1[\"copyText\"]($2)" js_copyText - :: CommandLineAPIHost -> JSString -> IO () - --- | -copyText :: - (MonadIO m, ToJSString text) => CommandLineAPIHost -> text -> m () -copyText self text = liftIO (js_copyText (self) (toJSString text)) - -foreign import javascript unsafe "$1[\"inspect\"]($2, $3)" - js_inspect :: CommandLineAPIHost -> JSVal -> JSVal -> IO () - --- | -inspect :: - (MonadIO m) => CommandLineAPIHost -> JSVal -> JSVal -> m () -inspect self objectId hints - = liftIO (js_inspect (self) objectId hints) - -foreign import javascript unsafe "$1[\"inspectedObject\"]($2)" - js_inspectedObject :: CommandLineAPIHost -> Int -> IO JSVal - --- | -inspectedObject :: - (MonadIO m) => CommandLineAPIHost -> Int -> m JSVal -inspectedObject self num = liftIO (js_inspectedObject (self) num) - -foreign import javascript unsafe "$1[\"getEventListeners\"]($2)" - js_getEventListeners :: - CommandLineAPIHost -> Nullable Node -> IO (Nullable Array) - --- | -getEventListeners :: - (MonadIO m, IsNode node) => - CommandLineAPIHost -> Maybe node -> m (Maybe Array) -getEventListeners self node - = liftIO - (nullableToMaybe <$> - (js_getEventListeners (self) (maybeToNullable (fmap toNode node)))) - -foreign import javascript unsafe "$1[\"databaseId\"]($2)" - js_databaseId :: CommandLineAPIHost -> JSVal -> IO JSString - --- | -databaseId :: - (MonadIO m, FromJSString result) => - CommandLineAPIHost -> JSVal -> m result -databaseId self database - = liftIO (fromJSString <$> (js_databaseId (self) database)) - -foreign import javascript unsafe "$1[\"storageId\"]($2)" - js_storageId :: CommandLineAPIHost -> JSVal -> IO JSString - --- | -storageId :: - (MonadIO m, FromJSString result) => - CommandLineAPIHost -> JSVal -> m result -storageId self storage - = liftIO (fromJSString <$> (js_storageId (self) storage)) diff --git a/src/GHCJS/DOM/JSFFI/Generated/Comment.hs b/src/GHCJS/DOM/JSFFI/Generated/Comment.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/Comment.hs +++ /dev/null @@ -1,25 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.Comment - (js_newComment, newComment, Comment, castToComment, gTypeComment) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "new window[\"Comment\"]($1)" - js_newComment :: JSString -> IO Comment - --- | -newComment :: (MonadIO m, ToJSString data') => data' -> m Comment -newComment data' = liftIO (js_newComment (toJSString data')) diff --git a/src/GHCJS/DOM/JSFFI/Generated/CompositionEvent.hs b/src/GHCJS/DOM/JSFFI/Generated/CompositionEvent.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/CompositionEvent.hs +++ /dev/null @@ -1,47 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.CompositionEvent - (js_initCompositionEvent, initCompositionEvent, js_getData, - getData, CompositionEvent, castToCompositionEvent, - gTypeCompositionEvent) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe - "$1[\"initCompositionEvent\"]($2,\n$3, $4, $5, $6)" - js_initCompositionEvent :: - CompositionEvent -> - JSString -> Bool -> Bool -> Nullable Window -> JSString -> IO () - --- | -initCompositionEvent :: - (MonadIO m, ToJSString typeArg, ToJSString dataArg) => - CompositionEvent -> - typeArg -> Bool -> Bool -> Maybe Window -> dataArg -> m () -initCompositionEvent self typeArg canBubbleArg cancelableArg - viewArg dataArg - = liftIO - (js_initCompositionEvent (self) (toJSString typeArg) canBubbleArg - cancelableArg - (maybeToNullable viewArg) - (toJSString dataArg)) - -foreign import javascript unsafe "$1[\"data\"]" js_getData :: - CompositionEvent -> IO JSString - --- | -getData :: - (MonadIO m, FromJSString result) => CompositionEvent -> m result -getData self = liftIO (fromJSString <$> (js_getData (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/ConvolverNode.hs b/src/GHCJS/DOM/JSFFI/Generated/ConvolverNode.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/ConvolverNode.hs +++ /dev/null @@ -1,50 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.ConvolverNode - (js_setBuffer, setBuffer, js_getBuffer, getBuffer, js_setNormalize, - setNormalize, js_getNormalize, getNormalize, ConvolverNode, - castToConvolverNode, gTypeConvolverNode) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"buffer\"] = $2;" - js_setBuffer :: ConvolverNode -> Nullable AudioBuffer -> IO () - --- | -setBuffer :: - (MonadIO m) => ConvolverNode -> Maybe AudioBuffer -> m () -setBuffer self val - = liftIO (js_setBuffer (self) (maybeToNullable val)) - -foreign import javascript unsafe "$1[\"buffer\"]" js_getBuffer :: - ConvolverNode -> IO (Nullable AudioBuffer) - --- | -getBuffer :: (MonadIO m) => ConvolverNode -> m (Maybe AudioBuffer) -getBuffer self = liftIO (nullableToMaybe <$> (js_getBuffer (self))) - -foreign import javascript unsafe "$1[\"normalize\"] = $2;" - js_setNormalize :: ConvolverNode -> Bool -> IO () - --- | -setNormalize :: (MonadIO m) => ConvolverNode -> Bool -> m () -setNormalize self val = liftIO (js_setNormalize (self) val) - -foreign import javascript unsafe "($1[\"normalize\"] ? 1 : 0)" - js_getNormalize :: ConvolverNode -> IO Bool - --- | -getNormalize :: (MonadIO m) => ConvolverNode -> m Bool -getNormalize self = liftIO (js_getNormalize (self)) diff --git a/src/GHCJS/DOM/JSFFI/Generated/Coordinates.hs b/src/GHCJS/DOM/JSFFI/Generated/Coordinates.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/Coordinates.hs +++ /dev/null @@ -1,76 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.Coordinates - (js_getLatitude, getLatitude, js_getLongitude, getLongitude, - js_getAltitude, getAltitude, js_getAccuracy, getAccuracy, - js_getAltitudeAccuracy, getAltitudeAccuracy, js_getHeading, - getHeading, js_getSpeed, getSpeed, Coordinates, castToCoordinates, - gTypeCoordinates) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"latitude\"]" js_getLatitude - :: Coordinates -> IO Double - --- | -getLatitude :: (MonadIO m) => Coordinates -> m Double -getLatitude self = liftIO (js_getLatitude (self)) - -foreign import javascript unsafe "$1[\"longitude\"]" - js_getLongitude :: Coordinates -> IO Double - --- | -getLongitude :: (MonadIO m) => Coordinates -> m Double -getLongitude self = liftIO (js_getLongitude (self)) - -foreign import javascript unsafe "$1[\"altitude\"]" js_getAltitude - :: Coordinates -> IO JSVal - --- | -getAltitude :: (MonadIO m) => Coordinates -> m (Maybe Double) -getAltitude self - = liftIO ((js_getAltitude (self)) >>= fromJSValUnchecked) - -foreign import javascript unsafe "$1[\"accuracy\"]" js_getAccuracy - :: Coordinates -> IO Double - --- | -getAccuracy :: (MonadIO m) => Coordinates -> m Double -getAccuracy self = liftIO (js_getAccuracy (self)) - -foreign import javascript unsafe "$1[\"altitudeAccuracy\"]" - js_getAltitudeAccuracy :: Coordinates -> IO JSVal - --- | -getAltitudeAccuracy :: - (MonadIO m) => Coordinates -> m (Maybe Double) -getAltitudeAccuracy self - = liftIO ((js_getAltitudeAccuracy (self)) >>= fromJSValUnchecked) - -foreign import javascript unsafe "$1[\"heading\"]" js_getHeading :: - Coordinates -> IO JSVal - --- | -getHeading :: (MonadIO m) => Coordinates -> m (Maybe Double) -getHeading self - = liftIO ((js_getHeading (self)) >>= fromJSValUnchecked) - -foreign import javascript unsafe "$1[\"speed\"]" js_getSpeed :: - Coordinates -> IO JSVal - --- | -getSpeed :: (MonadIO m) => Coordinates -> m (Maybe Double) -getSpeed self - = liftIO ((js_getSpeed (self)) >>= fromJSValUnchecked) diff --git a/src/GHCJS/DOM/JSFFI/Generated/Counter.hs b/src/GHCJS/DOM/JSFFI/Generated/Counter.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/Counter.hs +++ /dev/null @@ -1,47 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.Counter - (js_getIdentifier, getIdentifier, js_getListStyle, getListStyle, - js_getSeparator, getSeparator, Counter, castToCounter, - gTypeCounter) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"identifier\"]" - js_getIdentifier :: Counter -> IO JSString - --- | -getIdentifier :: - (MonadIO m, FromJSString result) => Counter -> m result -getIdentifier self - = liftIO (fromJSString <$> (js_getIdentifier (self))) - -foreign import javascript unsafe "$1[\"listStyle\"]" - js_getListStyle :: Counter -> IO JSString - --- | -getListStyle :: - (MonadIO m, FromJSString result) => Counter -> m result -getListStyle self - = liftIO (fromJSString <$> (js_getListStyle (self))) - -foreign import javascript unsafe "$1[\"separator\"]" - js_getSeparator :: Counter -> IO JSString - --- | -getSeparator :: - (MonadIO m, FromJSString result) => Counter -> m result -getSeparator self - = liftIO (fromJSString <$> (js_getSeparator (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/Crypto.hs b/src/GHCJS/DOM/JSFFI/Generated/Crypto.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/Crypto.hs +++ /dev/null @@ -1,41 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.Crypto - (js_getRandomValues, getRandomValues, js_getWebkitSubtle, - getWebkitSubtle, Crypto, castToCrypto, gTypeCrypto) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"getRandomValues\"]($2)" - js_getRandomValues :: - Crypto -> Nullable ArrayBufferView -> IO (Nullable ArrayBufferView) - --- | -getRandomValues :: - (MonadIO m, IsArrayBufferView array) => - Crypto -> Maybe array -> m (Maybe ArrayBufferView) -getRandomValues self array - = liftIO - (nullableToMaybe <$> - (js_getRandomValues (self) - (maybeToNullable (fmap toArrayBufferView array)))) - -foreign import javascript unsafe "$1[\"webkitSubtle\"]" - js_getWebkitSubtle :: Crypto -> IO (Nullable SubtleCrypto) - --- | -getWebkitSubtle :: (MonadIO m) => Crypto -> m (Maybe SubtleCrypto) -getWebkitSubtle self - = liftIO (nullableToMaybe <$> (js_getWebkitSubtle (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/CryptoKey.hs b/src/GHCJS/DOM/JSFFI/Generated/CryptoKey.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/CryptoKey.hs +++ /dev/null @@ -1,50 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.CryptoKey - (js_getType, getType, js_getExtractable, getExtractable, - js_getAlgorithm, getAlgorithm, js_getUsages, getUsages, CryptoKey, - castToCryptoKey, gTypeCryptoKey) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"type\"]" js_getType :: - CryptoKey -> IO JSVal - --- | -getType :: (MonadIO m) => CryptoKey -> m KeyType -getType self = liftIO ((js_getType (self)) >>= fromJSValUnchecked) - -foreign import javascript unsafe "($1[\"extractable\"] ? 1 : 0)" - js_getExtractable :: CryptoKey -> IO Bool - --- | -getExtractable :: (MonadIO m) => CryptoKey -> m Bool -getExtractable self = liftIO (js_getExtractable (self)) - -foreign import javascript unsafe "$1[\"algorithm\"]" - js_getAlgorithm :: CryptoKey -> IO (Nullable Algorithm) - --- | -getAlgorithm :: (MonadIO m) => CryptoKey -> m (Maybe Algorithm) -getAlgorithm self - = liftIO (nullableToMaybe <$> (js_getAlgorithm (self))) - -foreign import javascript unsafe "$1[\"usages\"]" js_getUsages :: - CryptoKey -> IO JSVal - --- | -getUsages :: (MonadIO m) => CryptoKey -> m [KeyUsage] -getUsages self - = liftIO ((js_getUsages (self)) >>= fromJSValUnchecked) diff --git a/src/GHCJS/DOM/JSFFI/Generated/CryptoKeyPair.hs b/src/GHCJS/DOM/JSFFI/Generated/CryptoKeyPair.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/CryptoKeyPair.hs +++ /dev/null @@ -1,36 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.CryptoKeyPair - (js_getPublicKey, getPublicKey, js_getPrivateKey, getPrivateKey, - CryptoKeyPair, castToCryptoKeyPair, gTypeCryptoKeyPair) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"publicKey\"]" - js_getPublicKey :: CryptoKeyPair -> IO (Nullable CryptoKey) - --- | -getPublicKey :: (MonadIO m) => CryptoKeyPair -> m (Maybe CryptoKey) -getPublicKey self - = liftIO (nullableToMaybe <$> (js_getPublicKey (self))) - -foreign import javascript unsafe "$1[\"privateKey\"]" - js_getPrivateKey :: CryptoKeyPair -> IO (Nullable CryptoKey) - --- | -getPrivateKey :: - (MonadIO m) => CryptoKeyPair -> m (Maybe CryptoKey) -getPrivateKey self - = liftIO (nullableToMaybe <$> (js_getPrivateKey (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/CustomEvent.hs b/src/GHCJS/DOM/JSFFI/Generated/CustomEvent.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/CustomEvent.hs +++ /dev/null @@ -1,40 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.CustomEvent - (js_initCustomEvent, initCustomEvent, js_getDetail, getDetail, - CustomEvent, castToCustomEvent, gTypeCustomEvent) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe - "$1[\"initCustomEvent\"]($2, $3,\n$4, $5)" js_initCustomEvent :: - CustomEvent -> JSString -> Bool -> Bool -> JSVal -> IO () - --- | -initCustomEvent :: - (MonadIO m, ToJSString typeArg) => - CustomEvent -> typeArg -> Bool -> Bool -> JSVal -> m () -initCustomEvent self typeArg canBubbleArg cancelableArg detailArg - = liftIO - (js_initCustomEvent (self) (toJSString typeArg) canBubbleArg - cancelableArg - detailArg) - -foreign import javascript unsafe "$1[\"detail\"]" js_getDetail :: - CustomEvent -> IO JSVal - --- | -getDetail :: (MonadIO m) => CustomEvent -> m JSVal -getDetail self = liftIO (js_getDetail (self)) diff --git a/src/GHCJS/DOM/JSFFI/Generated/DOMError.hs b/src/GHCJS/DOM/JSFFI/Generated/DOMError.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/DOMError.hs +++ /dev/null @@ -1,29 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.DOMError - (js_getName, getName, DOMError, castToDOMError, gTypeDOMError, - IsDOMError, toDOMError) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"name\"]" js_getName :: - DOMError -> IO JSString - --- | -getName :: - (MonadIO m, IsDOMError self, FromJSString result) => - self -> m result -getName self - = liftIO (fromJSString <$> (js_getName (toDOMError self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/DOMImplementation.hs b/src/GHCJS/DOM/JSFFI/Generated/DOMImplementation.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/DOMImplementation.hs +++ /dev/null @@ -1,104 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.DOMImplementation - (js_hasFeature, hasFeature, js_createDocumentType, - createDocumentType, js_createDocument, createDocument, - js_createCSSStyleSheet, createCSSStyleSheet, js_createHTMLDocument, - createHTMLDocument, DOMImplementation, castToDOMImplementation, - gTypeDOMImplementation) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe - "($1[\"hasFeature\"]($2,\n$3) ? 1 : 0)" js_hasFeature :: - DOMImplementation -> JSString -> Nullable JSString -> IO Bool - --- | -hasFeature :: - (MonadIO m, ToJSString feature, ToJSString version) => - DOMImplementation -> feature -> Maybe version -> m Bool -hasFeature self feature version - = liftIO - (js_hasFeature (self) (toJSString feature) - (toMaybeJSString version)) - -foreign import javascript unsafe - "$1[\"createDocumentType\"]($2, $3,\n$4)" js_createDocumentType :: - DOMImplementation -> - Nullable JSString -> - Nullable JSString -> - Nullable JSString -> IO (Nullable DocumentType) - --- | -createDocumentType :: - (MonadIO m, ToJSString qualifiedName, ToJSString publicId, - ToJSString systemId) => - DOMImplementation -> - Maybe qualifiedName -> - Maybe publicId -> Maybe systemId -> m (Maybe DocumentType) -createDocumentType self qualifiedName publicId systemId - = liftIO - (nullableToMaybe <$> - (js_createDocumentType (self) (toMaybeJSString qualifiedName) - (toMaybeJSString publicId) - (toMaybeJSString systemId))) - -foreign import javascript unsafe - "$1[\"createDocument\"]($2, $3, $4)" js_createDocument :: - DOMImplementation -> - Nullable JSString -> - Nullable JSString -> - Nullable DocumentType -> IO (Nullable Document) - --- | -createDocument :: - (MonadIO m, ToJSString namespaceURI, ToJSString qualifiedName) => - DOMImplementation -> - Maybe namespaceURI -> - Maybe qualifiedName -> Maybe DocumentType -> m (Maybe Document) -createDocument self namespaceURI qualifiedName doctype - = liftIO - (nullableToMaybe <$> - (js_createDocument (self) (toMaybeJSString namespaceURI) - (toMaybeJSString qualifiedName) - (maybeToNullable doctype))) - -foreign import javascript unsafe - "$1[\"createCSSStyleSheet\"]($2,\n$3)" js_createCSSStyleSheet :: - DOMImplementation -> - JSString -> JSString -> IO (Nullable CSSStyleSheet) - --- | -createCSSStyleSheet :: - (MonadIO m, ToJSString title, ToJSString media) => - DOMImplementation -> title -> media -> m (Maybe CSSStyleSheet) -createCSSStyleSheet self title media - = liftIO - (nullableToMaybe <$> - (js_createCSSStyleSheet (self) (toJSString title) - (toJSString media))) - -foreign import javascript unsafe "$1[\"createHTMLDocument\"]($2)" - js_createHTMLDocument :: - DOMImplementation -> JSString -> IO (Nullable HTMLDocument) - --- | -createHTMLDocument :: - (MonadIO m, ToJSString title) => - DOMImplementation -> title -> m (Maybe HTMLDocument) -createHTMLDocument self title - = liftIO - (nullableToMaybe <$> - (js_createHTMLDocument (self) (toJSString title))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/DOMNamedFlowCollection.hs b/src/GHCJS/DOM/JSFFI/Generated/DOMNamedFlowCollection.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/DOMNamedFlowCollection.hs +++ /dev/null @@ -1,49 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.DOMNamedFlowCollection - (js_item, item, js_namedItem, namedItem, js_getLength, getLength, - DOMNamedFlowCollection, castToDOMNamedFlowCollection, - gTypeDOMNamedFlowCollection) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"item\"]($2)" js_item :: - DOMNamedFlowCollection -> Word -> IO (Nullable WebKitNamedFlow) - --- | -item :: - (MonadIO m) => - DOMNamedFlowCollection -> Word -> m (Maybe WebKitNamedFlow) -item self index - = liftIO (nullableToMaybe <$> (js_item (self) index)) - -foreign import javascript unsafe "$1[\"namedItem\"]($2)" - js_namedItem :: - DOMNamedFlowCollection -> JSString -> IO (Nullable WebKitNamedFlow) - --- | -namedItem :: - (MonadIO m, ToJSString name) => - DOMNamedFlowCollection -> name -> m (Maybe WebKitNamedFlow) -namedItem self name - = liftIO - (nullableToMaybe <$> (js_namedItem (self) (toJSString name))) - -foreign import javascript unsafe "$1[\"length\"]" js_getLength :: - DOMNamedFlowCollection -> IO Word - --- | -getLength :: (MonadIO m) => DOMNamedFlowCollection -> m Word -getLength self = liftIO (js_getLength (self)) diff --git a/src/GHCJS/DOM/JSFFI/Generated/DOMParser.hs b/src/GHCJS/DOM/JSFFI/Generated/DOMParser.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/DOMParser.hs +++ /dev/null @@ -1,40 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.DOMParser - (js_newDOMParser, newDOMParser, js_parseFromString, - parseFromString, DOMParser, castToDOMParser, gTypeDOMParser) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "new window[\"DOMParser\"]()" - js_newDOMParser :: IO DOMParser - --- | -newDOMParser :: (MonadIO m) => m DOMParser -newDOMParser = liftIO (js_newDOMParser) - -foreign import javascript unsafe "$1[\"parseFromString\"]($2, $3)" - js_parseFromString :: - DOMParser -> JSString -> JSString -> IO (Nullable Document) - --- | -parseFromString :: - (MonadIO m, ToJSString str, ToJSString contentType) => - DOMParser -> str -> contentType -> m (Maybe Document) -parseFromString self str contentType - = liftIO - (nullableToMaybe <$> - (js_parseFromString (self) (toJSString str) - (toJSString contentType))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/DOMSettableTokenList.hs b/src/GHCJS/DOM/JSFFI/Generated/DOMSettableTokenList.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/DOMSettableTokenList.hs +++ /dev/null @@ -1,47 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.DOMSettableTokenList - (js__get, _get, js_setValue, setValue, js_getValue, getValue, - DOMSettableTokenList, castToDOMSettableTokenList, - gTypeDOMSettableTokenList) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"_get\"]($2)" js__get :: - DOMSettableTokenList -> Word -> IO (Nullable JSString) - --- | -_get :: - (MonadIO m, FromJSString result) => - DOMSettableTokenList -> Word -> m (Maybe result) -_get self index - = liftIO (fromMaybeJSString <$> (js__get (self) index)) - -foreign import javascript unsafe "$1[\"value\"] = $2;" js_setValue - :: DOMSettableTokenList -> JSString -> IO () - --- | -setValue :: - (MonadIO m, ToJSString val) => DOMSettableTokenList -> val -> m () -setValue self val = liftIO (js_setValue (self) (toJSString val)) - -foreign import javascript unsafe "$1[\"value\"]" js_getValue :: - DOMSettableTokenList -> IO JSString - --- | -getValue :: - (MonadIO m, FromJSString result) => - DOMSettableTokenList -> m result -getValue self = liftIO (fromJSString <$> (js_getValue (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/DOMStringList.hs b/src/GHCJS/DOM/JSFFI/Generated/DOMStringList.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/DOMStringList.hs +++ /dev/null @@ -1,45 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.DOMStringList - (js_item, item, js_contains, contains, js_getLength, getLength, - DOMStringList, castToDOMStringList, gTypeDOMStringList) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"item\"]($2)" js_item :: - DOMStringList -> Word -> IO (Nullable JSString) - --- | -item :: - (MonadIO m, FromJSString result) => - DOMStringList -> Word -> m (Maybe result) -item self index - = liftIO (fromMaybeJSString <$> (js_item (self) index)) - -foreign import javascript unsafe "($1[\"contains\"]($2) ? 1 : 0)" - js_contains :: DOMStringList -> JSString -> IO Bool - --- | -contains :: - (MonadIO m, ToJSString string) => DOMStringList -> string -> m Bool -contains self string - = liftIO (js_contains (self) (toJSString string)) - -foreign import javascript unsafe "$1[\"length\"]" js_getLength :: - DOMStringList -> IO Word - --- | -getLength :: (MonadIO m) => DOMStringList -> m Word -getLength self = liftIO (js_getLength (self)) diff --git a/src/GHCJS/DOM/JSFFI/Generated/DOMTokenList.hs b/src/GHCJS/DOM/JSFFI/Generated/DOMTokenList.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/DOMTokenList.hs +++ /dev/null @@ -1,95 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.DOMTokenList - (js_item, item, js_contains, contains, js_add, add, js_remove, - remove, js_toggle, toggle, js_toString, toString, js_getLength, - getLength, DOMTokenList, castToDOMTokenList, gTypeDOMTokenList, - IsDOMTokenList, toDOMTokenList) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"item\"]($2)" js_item :: - DOMTokenList -> Word -> IO (Nullable JSString) - --- | -item :: - (MonadIO m, IsDOMTokenList self, FromJSString result) => - self -> Word -> m (Maybe result) -item self index - = liftIO - (fromMaybeJSString <$> (js_item (toDOMTokenList self) index)) - -foreign import javascript unsafe "($1[\"contains\"]($2) ? 1 : 0)" - js_contains :: DOMTokenList -> JSString -> IO Bool - --- | -contains :: - (MonadIO m, IsDOMTokenList self, ToJSString token) => - self -> token -> m Bool -contains self token - = liftIO (js_contains (toDOMTokenList self) (toJSString token)) - -foreign import javascript unsafe "$1[\"add\"].apply($1, $2)" js_add - :: DOMTokenList -> JSVal -> IO () - --- | -add :: - (MonadIO m, IsDOMTokenList self, ToJSString tokens, - ToJSVal tokens) => - self -> [tokens] -> m () -add self tokens - = liftIO - (toJSVal tokens >>= - \ tokens' -> js_add (toDOMTokenList self) tokens') - -foreign import javascript unsafe "$1[\"remove\"].apply($1, $2)" - js_remove :: DOMTokenList -> JSVal -> IO () - --- | -remove :: - (MonadIO m, IsDOMTokenList self, ToJSString tokens, - ToJSVal tokens) => - self -> [tokens] -> m () -remove self tokens - = liftIO - (toJSVal tokens >>= - \ tokens' -> js_remove (toDOMTokenList self) tokens') - -foreign import javascript unsafe "($1[\"toggle\"]($2, $3) ? 1 : 0)" - js_toggle :: DOMTokenList -> JSString -> Bool -> IO Bool - --- | -toggle :: - (MonadIO m, IsDOMTokenList self, ToJSString token) => - self -> token -> Bool -> m Bool -toggle self token force - = liftIO (js_toggle (toDOMTokenList self) (toJSString token) force) - -foreign import javascript unsafe "$1[\"toString\"]()" js_toString - :: DOMTokenList -> IO JSString - --- | -toString :: - (MonadIO m, IsDOMTokenList self, FromJSString result) => - self -> m result -toString self - = liftIO (fromJSString <$> (js_toString (toDOMTokenList self))) - -foreign import javascript unsafe "$1[\"length\"]" js_getLength :: - DOMTokenList -> IO Word - --- | -getLength :: (MonadIO m, IsDOMTokenList self) => self -> m Word -getLength self = liftIO (js_getLength (toDOMTokenList self)) diff --git a/src/GHCJS/DOM/JSFFI/Generated/DataCue.hs b/src/GHCJS/DOM/JSFFI/Generated/DataCue.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/DataCue.hs +++ /dev/null @@ -1,78 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.DataCue - (js_newDataCue, newDataCue, js_newDataCue', newDataCue', - js_setData, setData, js_getData, getData, js_setValue, setValue, - js_getValue, getValue, js_getType, getType, DataCue, castToDataCue, - gTypeDataCue) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "new window[\"WebKitDataCue\"]()" - js_newDataCue :: IO DataCue - --- | -newDataCue :: (MonadIO m) => m DataCue -newDataCue = liftIO (js_newDataCue) - -foreign import javascript unsafe - "new window[\"WebKitDataCue\"]($1,\n$2, $3, $4)" js_newDataCue' :: - Double -> Double -> JSVal -> JSString -> IO DataCue - --- | -newDataCue' :: - (MonadIO m, ToJSString type') => - Double -> Double -> JSVal -> type' -> m DataCue -newDataCue' startTime endTime value type' - = liftIO - (js_newDataCue' startTime endTime value (toJSString type')) - -foreign import javascript unsafe "$1[\"data\"] = $2;" js_setData :: - DataCue -> Nullable ArrayBuffer -> IO () - --- | -setData :: - (MonadIO m, IsArrayBuffer val) => DataCue -> Maybe val -> m () -setData self val - = liftIO - (js_setData (self) (maybeToNullable (fmap toArrayBuffer val))) - -foreign import javascript unsafe "$1[\"data\"]" js_getData :: - DataCue -> IO (Nullable ArrayBuffer) - --- | -getData :: (MonadIO m) => DataCue -> m (Maybe ArrayBuffer) -getData self = liftIO (nullableToMaybe <$> (js_getData (self))) - -foreign import javascript unsafe "$1[\"value\"] = $2;" js_setValue - :: DataCue -> JSVal -> IO () - --- | -setValue :: (MonadIO m) => DataCue -> JSVal -> m () -setValue self val = liftIO (js_setValue (self) val) - -foreign import javascript unsafe "$1[\"value\"]" js_getValue :: - DataCue -> IO JSVal - --- | -getValue :: (MonadIO m) => DataCue -> m JSVal -getValue self = liftIO (js_getValue (self)) - -foreign import javascript unsafe "$1[\"type\"]" js_getType :: - DataCue -> IO JSString - --- | -getType :: (MonadIO m, FromJSString result) => DataCue -> m result -getType self = liftIO (fromJSString <$> (js_getType (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/DataTransfer.hs b/src/GHCJS/DOM/JSFFI/Generated/DataTransfer.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/DataTransfer.hs +++ /dev/null @@ -1,123 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.DataTransfer - (js_clearData, clearData, js_getData, getData, js_setData, setData, - js_setDragImage, setDragImage, js_setDropEffect, setDropEffect, - js_getDropEffect, getDropEffect, js_setEffectAllowed, - setEffectAllowed, js_getEffectAllowed, getEffectAllowed, - js_getTypes, getTypes, js_getFiles, getFiles, js_getItems, - getItems, DataTransfer, castToDataTransfer, gTypeDataTransfer) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"clearData\"]($2)" - js_clearData :: DataTransfer -> JSString -> IO () - --- | -clearData :: - (MonadIO m, ToJSString type') => DataTransfer -> type' -> m () -clearData self type' - = liftIO (js_clearData (self) (toJSString type')) - -foreign import javascript unsafe "$1[\"getData\"]($2)" js_getData - :: DataTransfer -> JSString -> IO JSString - --- | -getData :: - (MonadIO m, ToJSString type', FromJSString result) => - DataTransfer -> type' -> m result -getData self type' - = liftIO (fromJSString <$> (js_getData (self) (toJSString type'))) - -foreign import javascript unsafe "$1[\"setData\"]($2, $3)" - js_setData :: DataTransfer -> JSString -> JSString -> IO () - --- | -setData :: - (MonadIO m, ToJSString type', ToJSString data') => - DataTransfer -> type' -> data' -> m () -setData self type' data' - = liftIO (js_setData (self) (toJSString type') (toJSString data')) - -foreign import javascript unsafe "$1[\"setDragImage\"]($2, $3, $4)" - js_setDragImage :: - DataTransfer -> Nullable Element -> Int -> Int -> IO () - --- | -setDragImage :: - (MonadIO m, IsElement image) => - DataTransfer -> Maybe image -> Int -> Int -> m () -setDragImage self image x y - = liftIO - (js_setDragImage (self) (maybeToNullable (fmap toElement image)) x - y) - -foreign import javascript unsafe "$1[\"dropEffect\"] = $2;" - js_setDropEffect :: DataTransfer -> JSString -> IO () - --- | -setDropEffect :: - (MonadIO m, ToJSString val) => DataTransfer -> val -> m () -setDropEffect self val - = liftIO (js_setDropEffect (self) (toJSString val)) - -foreign import javascript unsafe "$1[\"dropEffect\"]" - js_getDropEffect :: DataTransfer -> IO JSString - --- | -getDropEffect :: - (MonadIO m, FromJSString result) => DataTransfer -> m result -getDropEffect self - = liftIO (fromJSString <$> (js_getDropEffect (self))) - -foreign import javascript unsafe "$1[\"effectAllowed\"] = $2;" - js_setEffectAllowed :: DataTransfer -> JSString -> IO () - --- | -setEffectAllowed :: - (MonadIO m, ToJSString val) => DataTransfer -> val -> m () -setEffectAllowed self val - = liftIO (js_setEffectAllowed (self) (toJSString val)) - -foreign import javascript unsafe "$1[\"effectAllowed\"]" - js_getEffectAllowed :: DataTransfer -> IO JSString - --- | -getEffectAllowed :: - (MonadIO m, FromJSString result) => DataTransfer -> m result -getEffectAllowed self - = liftIO (fromJSString <$> (js_getEffectAllowed (self))) - -foreign import javascript unsafe "$1[\"types\"]" js_getTypes :: - DataTransfer -> IO (Nullable Array) - --- | -getTypes :: (MonadIO m) => DataTransfer -> m (Maybe Array) -getTypes self = liftIO (nullableToMaybe <$> (js_getTypes (self))) - -foreign import javascript unsafe "$1[\"files\"]" js_getFiles :: - DataTransfer -> IO (Nullable FileList) - --- | -getFiles :: (MonadIO m) => DataTransfer -> m (Maybe FileList) -getFiles self = liftIO (nullableToMaybe <$> (js_getFiles (self))) - -foreign import javascript unsafe "$1[\"items\"]" js_getItems :: - DataTransfer -> IO (Nullable DataTransferItemList) - --- | -getItems :: - (MonadIO m) => DataTransfer -> m (Maybe DataTransferItemList) -getItems self = liftIO (nullableToMaybe <$> (js_getItems (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/DataTransferItem.hs b/src/GHCJS/DOM/JSFFI/Generated/DataTransferItem.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/DataTransferItem.hs +++ /dev/null @@ -1,54 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.DataTransferItem - (js_getAsString, getAsString, js_getAsFile, getAsFile, js_getKind, - getKind, js_getType, getType, DataTransferItem, - castToDataTransferItem, gTypeDataTransferItem) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"getAsString\"]($2)" - js_getAsString :: - DataTransferItem -> Nullable (StringCallback callback) -> IO () - --- | -getAsString :: - (MonadIO m, ToJSString callback) => - DataTransferItem -> Maybe (StringCallback callback) -> m () -getAsString self callback - = liftIO (js_getAsString (self) (maybeToNullable callback)) - -foreign import javascript unsafe "$1[\"getAsFile\"]()" js_getAsFile - :: DataTransferItem -> IO (Nullable Blob) - --- | -getAsFile :: (MonadIO m) => DataTransferItem -> m (Maybe Blob) -getAsFile self = liftIO (nullableToMaybe <$> (js_getAsFile (self))) - -foreign import javascript unsafe "$1[\"kind\"]" js_getKind :: - DataTransferItem -> IO JSString - --- | -getKind :: - (MonadIO m, FromJSString result) => DataTransferItem -> m result -getKind self = liftIO (fromJSString <$> (js_getKind (self))) - -foreign import javascript unsafe "$1[\"type\"]" js_getType :: - DataTransferItem -> IO JSString - --- | -getType :: - (MonadIO m, FromJSString result) => DataTransferItem -> m result -getType self = liftIO (fromJSString <$> (js_getType (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/DataTransferItemList.hs b/src/GHCJS/DOM/JSFFI/Generated/DataTransferItemList.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/DataTransferItemList.hs +++ /dev/null @@ -1,63 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.DataTransferItemList - (js_item, item, js_clear, clear, js_addFile, addFile, js_add, add, - js_getLength, getLength, DataTransferItemList, - castToDataTransferItemList, gTypeDataTransferItemList) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"item\"]($2)" js_item :: - DataTransferItemList -> Word -> IO (Nullable DataTransferItem) - --- | -item :: - (MonadIO m) => - DataTransferItemList -> Word -> m (Maybe DataTransferItem) -item self index - = liftIO (nullableToMaybe <$> (js_item (self) index)) - -foreign import javascript unsafe "$1[\"clear\"]()" js_clear :: - DataTransferItemList -> IO () - --- | -clear :: (MonadIO m) => DataTransferItemList -> m () -clear self = liftIO (js_clear (self)) - -foreign import javascript unsafe "$1[\"add\"]($2)" js_addFile :: - DataTransferItemList -> Nullable File -> IO () - --- | -addFile :: - (MonadIO m) => DataTransferItemList -> Maybe File -> m () -addFile self file - = liftIO (js_addFile (self) (maybeToNullable file)) - -foreign import javascript unsafe "$1[\"add\"]($2, $3)" js_add :: - DataTransferItemList -> JSString -> JSString -> IO () - --- | -add :: - (MonadIO m, ToJSString data', ToJSString type') => - DataTransferItemList -> data' -> type' -> m () -add self data' type' - = liftIO (js_add (self) (toJSString data') (toJSString type')) - -foreign import javascript unsafe "$1[\"length\"]" js_getLength :: - DataTransferItemList -> IO Int - --- | -getLength :: (MonadIO m) => DataTransferItemList -> m Int -getLength self = liftIO (js_getLength (self)) diff --git a/src/GHCJS/DOM/JSFFI/Generated/Database.hs b/src/GHCJS/DOM/JSFFI/Generated/Database.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/Database.hs +++ /dev/null @@ -1,92 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.Database - (js_changeVersion, changeVersion, js_transaction, transaction, - js_readTransaction, readTransaction, js_getVersion, getVersion, - Database, castToDatabase, gTypeDatabase) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe - "$1[\"changeVersion\"]($2, $3, $4,\n$5, $6)" js_changeVersion :: - Database -> - JSString -> - JSString -> - Nullable SQLTransactionCallback -> - Nullable SQLTransactionErrorCallback -> - Nullable VoidCallback -> IO () - --- | -changeVersion :: - (MonadIO m, ToJSString oldVersion, ToJSString newVersion) => - Database -> - oldVersion -> - newVersion -> - Maybe SQLTransactionCallback -> - Maybe SQLTransactionErrorCallback -> Maybe VoidCallback -> m () -changeVersion self oldVersion newVersion callback errorCallback - successCallback - = liftIO - (js_changeVersion (self) (toJSString oldVersion) - (toJSString newVersion) - (maybeToNullable callback) - (maybeToNullable errorCallback) - (maybeToNullable successCallback)) - -foreign import javascript unsafe "$1[\"transaction\"]($2, $3, $4)" - js_transaction :: - Database -> - Nullable SQLTransactionCallback -> - Nullable SQLTransactionErrorCallback -> - Nullable VoidCallback -> IO () - --- | -transaction :: - (MonadIO m) => - Database -> - Maybe SQLTransactionCallback -> - Maybe SQLTransactionErrorCallback -> Maybe VoidCallback -> m () -transaction self callback errorCallback successCallback - = liftIO - (js_transaction (self) (maybeToNullable callback) - (maybeToNullable errorCallback) - (maybeToNullable successCallback)) - -foreign import javascript unsafe - "$1[\"readTransaction\"]($2, $3,\n$4)" js_readTransaction :: - Database -> - Nullable SQLTransactionCallback -> - Nullable SQLTransactionErrorCallback -> - Nullable VoidCallback -> IO () - --- | -readTransaction :: - (MonadIO m) => - Database -> - Maybe SQLTransactionCallback -> - Maybe SQLTransactionErrorCallback -> Maybe VoidCallback -> m () -readTransaction self callback errorCallback successCallback - = liftIO - (js_readTransaction (self) (maybeToNullable callback) - (maybeToNullable errorCallback) - (maybeToNullable successCallback)) - -foreign import javascript unsafe "$1[\"version\"]" js_getVersion :: - Database -> IO JSString - --- | -getVersion :: - (MonadIO m, FromJSString result) => Database -> m result -getVersion self = liftIO (fromJSString <$> (js_getVersion (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/DatabaseCallback.hs b/src/GHCJS/DOM/JSFFI/Generated/DatabaseCallback.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/DatabaseCallback.hs +++ /dev/null @@ -1,49 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.DatabaseCallback - (newDatabaseCallback, newDatabaseCallbackSync, - newDatabaseCallbackAsync, DatabaseCallback) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - --- | -newDatabaseCallback :: - (MonadIO m) => (Maybe Database -> IO ()) -> m DatabaseCallback -newDatabaseCallback callback - = liftIO - (DatabaseCallback <$> - syncCallback1 ThrowWouldBlock - (\ database -> - fromJSValUnchecked database >>= \ database' -> callback database')) - --- | -newDatabaseCallbackSync :: - (MonadIO m) => (Maybe Database -> IO ()) -> m DatabaseCallback -newDatabaseCallbackSync callback - = liftIO - (DatabaseCallback <$> - syncCallback1 ContinueAsync - (\ database -> - fromJSValUnchecked database >>= \ database' -> callback database')) - --- | -newDatabaseCallbackAsync :: - (MonadIO m) => (Maybe Database -> IO ()) -> m DatabaseCallback -newDatabaseCallbackAsync callback - = liftIO - (DatabaseCallback <$> - asyncCallback1 - (\ database -> - fromJSValUnchecked database >>= \ database' -> callback database')) diff --git a/src/GHCJS/DOM/JSFFI/Generated/DedicatedWorkerGlobalScope.hs b/src/GHCJS/DOM/JSFFI/Generated/DedicatedWorkerGlobalScope.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/DedicatedWorkerGlobalScope.hs +++ /dev/null @@ -1,36 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.DedicatedWorkerGlobalScope - (js_postMessage, postMessage, message, DedicatedWorkerGlobalScope, - castToDedicatedWorkerGlobalScope, gTypeDedicatedWorkerGlobalScope) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"postMessage\"]($2, $3)" - js_postMessage :: - DedicatedWorkerGlobalScope -> JSVal -> Nullable Array -> IO () - --- | -postMessage :: - (MonadIO m, IsArray messagePorts) => - DedicatedWorkerGlobalScope -> JSVal -> Maybe messagePorts -> m () -postMessage self message messagePorts - = liftIO - (js_postMessage (self) message - (maybeToNullable (fmap toArray messagePorts))) - --- | -message :: EventName DedicatedWorkerGlobalScope MessageEvent -message = unsafeEventName (toJSString "message") diff --git a/src/GHCJS/DOM/JSFFI/Generated/DelayNode.hs b/src/GHCJS/DOM/JSFFI/Generated/DelayNode.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/DelayNode.hs +++ /dev/null @@ -1,27 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.DelayNode - (js_getDelayTime, getDelayTime, DelayNode, castToDelayNode, - gTypeDelayNode) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"delayTime\"]" - js_getDelayTime :: DelayNode -> IO (Nullable AudioParam) - --- | -getDelayTime :: (MonadIO m) => DelayNode -> m (Maybe AudioParam) -getDelayTime self - = liftIO (nullableToMaybe <$> (js_getDelayTime (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/DeviceMotionEvent.hs b/src/GHCJS/DOM/JSFFI/Generated/DeviceMotionEvent.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/DeviceMotionEvent.hs +++ /dev/null @@ -1,95 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.DeviceMotionEvent - (js_initDeviceMotionEvent, initDeviceMotionEvent, - js_getAcceleration, getAcceleration, - js_getAccelerationIncludingGravity, - getAccelerationIncludingGravity, js_getRotationRate, - getRotationRate, js_getInterval, getInterval, DeviceMotionEvent, - castToDeviceMotionEvent, gTypeDeviceMotionEvent) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe - "$1[\"initDeviceMotionEvent\"]($2,\n$3, $4, $5, $6, $7, $8)" - js_initDeviceMotionEvent :: - DeviceMotionEvent -> - JSString -> - Bool -> - Bool -> - Nullable Acceleration -> - Nullable Acceleration -> Nullable RotationRate -> Double -> IO () - --- | -initDeviceMotionEvent :: - (MonadIO m, ToJSString type', IsAcceleration acceleration, - IsAcceleration accelerationIncludingGravity, - IsRotationRate rotationRate) => - DeviceMotionEvent -> - type' -> - Bool -> - Bool -> - Maybe acceleration -> - Maybe accelerationIncludingGravity -> - Maybe rotationRate -> Double -> m () -initDeviceMotionEvent self type' bubbles cancelable acceleration - accelerationIncludingGravity rotationRate interval - = liftIO - (js_initDeviceMotionEvent (self) (toJSString type') bubbles - cancelable - (maybeToNullable (fmap toAcceleration acceleration)) - (maybeToNullable - (fmap toAcceleration accelerationIncludingGravity)) - (maybeToNullable (fmap toRotationRate rotationRate)) - interval) - -foreign import javascript unsafe "$1[\"acceleration\"]" - js_getAcceleration :: - DeviceMotionEvent -> IO (Nullable Acceleration) - --- | -getAcceleration :: - (MonadIO m) => DeviceMotionEvent -> m (Maybe Acceleration) -getAcceleration self - = liftIO (nullableToMaybe <$> (js_getAcceleration (self))) - -foreign import javascript unsafe - "$1[\"accelerationIncludingGravity\"]" - js_getAccelerationIncludingGravity :: - DeviceMotionEvent -> IO (Nullable Acceleration) - --- | -getAccelerationIncludingGravity :: - (MonadIO m) => DeviceMotionEvent -> m (Maybe Acceleration) -getAccelerationIncludingGravity self - = liftIO - (nullableToMaybe <$> (js_getAccelerationIncludingGravity (self))) - -foreign import javascript unsafe "$1[\"rotationRate\"]" - js_getRotationRate :: - DeviceMotionEvent -> IO (Nullable RotationRate) - --- | -getRotationRate :: - (MonadIO m) => DeviceMotionEvent -> m (Maybe RotationRate) -getRotationRate self - = liftIO (nullableToMaybe <$> (js_getRotationRate (self))) - -foreign import javascript unsafe "$1[\"interval\"]" js_getInterval - :: DeviceMotionEvent -> IO Double - --- | -getInterval :: (MonadIO m) => DeviceMotionEvent -> m Double -getInterval self = liftIO (js_getInterval (self)) diff --git a/src/GHCJS/DOM/JSFFI/Generated/DeviceOrientationEvent.hs b/src/GHCJS/DOM/JSFFI/Generated/DeviceOrientationEvent.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/DeviceOrientationEvent.hs +++ /dev/null @@ -1,71 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.DeviceOrientationEvent - (js_initDeviceOrientationEvent, initDeviceOrientationEvent, - js_getAlpha, getAlpha, js_getBeta, getBeta, js_getGamma, getGamma, - js_getAbsolute, getAbsolute, DeviceOrientationEvent, - castToDeviceOrientationEvent, gTypeDeviceOrientationEvent) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe - "$1[\"initDeviceOrientationEvent\"]($2,\n$3, $4, $5, $6, $7, $8)" - js_initDeviceOrientationEvent :: - DeviceOrientationEvent -> - JSString -> - Bool -> Bool -> Double -> Double -> Double -> Bool -> IO () - --- | -initDeviceOrientationEvent :: - (MonadIO m, ToJSString type') => - DeviceOrientationEvent -> - type' -> Bool -> Bool -> Double -> Double -> Double -> Bool -> m () -initDeviceOrientationEvent self type' bubbles cancelable alpha beta - gamma absolute - = liftIO - (js_initDeviceOrientationEvent (self) (toJSString type') bubbles - cancelable - alpha - beta - gamma - absolute) - -foreign import javascript unsafe "$1[\"alpha\"]" js_getAlpha :: - DeviceOrientationEvent -> IO Double - --- | -getAlpha :: (MonadIO m) => DeviceOrientationEvent -> m Double -getAlpha self = liftIO (js_getAlpha (self)) - -foreign import javascript unsafe "$1[\"beta\"]" js_getBeta :: - DeviceOrientationEvent -> IO Double - --- | -getBeta :: (MonadIO m) => DeviceOrientationEvent -> m Double -getBeta self = liftIO (js_getBeta (self)) - -foreign import javascript unsafe "$1[\"gamma\"]" js_getGamma :: - DeviceOrientationEvent -> IO Double - --- | -getGamma :: (MonadIO m) => DeviceOrientationEvent -> m Double -getGamma self = liftIO (js_getGamma (self)) - -foreign import javascript unsafe "($1[\"absolute\"] ? 1 : 0)" - js_getAbsolute :: DeviceOrientationEvent -> IO Bool - --- | -getAbsolute :: (MonadIO m) => DeviceOrientationEvent -> m Bool -getAbsolute self = liftIO (js_getAbsolute (self)) diff --git a/src/GHCJS/DOM/JSFFI/Generated/DeviceProximityEvent.hs b/src/GHCJS/DOM/JSFFI/Generated/DeviceProximityEvent.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/DeviceProximityEvent.hs +++ /dev/null @@ -1,41 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.DeviceProximityEvent - (js_getValue, getValue, js_getMin, getMin, js_getMax, getMax, - DeviceProximityEvent, castToDeviceProximityEvent, - gTypeDeviceProximityEvent) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"value\"]" js_getValue :: - DeviceProximityEvent -> IO Double - --- | -getValue :: (MonadIO m) => DeviceProximityEvent -> m Double -getValue self = liftIO (js_getValue (self)) - -foreign import javascript unsafe "$1[\"min\"]" js_getMin :: - DeviceProximityEvent -> IO Double - --- | -getMin :: (MonadIO m) => DeviceProximityEvent -> m Double -getMin self = liftIO (js_getMin (self)) - -foreign import javascript unsafe "$1[\"max\"]" js_getMax :: - DeviceProximityEvent -> IO Double - --- | -getMax :: (MonadIO m) => DeviceProximityEvent -> m Double -getMax self = liftIO (js_getMax (self)) diff --git a/src/GHCJS/DOM/JSFFI/Generated/Document.hs b/src/GHCJS/DOM/JSFFI/Generated/Document.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/Document.hs +++ /dev/null @@ -1,1565 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.Document - (js_newDocument, newDocument, js_createElement, createElement, - js_createDocumentFragment, createDocumentFragment, - js_createTextNode, createTextNode, js_createComment, createComment, - js_createCDATASection, createCDATASection, - js_createProcessingInstruction, createProcessingInstruction, - js_createAttribute, createAttribute, js_createEntityReference, - createEntityReference, js_getElementsByTagName, - getElementsByTagName, js_importNode, importNode, - js_createElementNS, createElementNS, js_createAttributeNS, - createAttributeNS, js_getElementsByTagNameNS, - getElementsByTagNameNS, js_getElementById, getElementById, - js_adoptNode, adoptNode, js_createEvent, createEvent, - js_createRange, createRange, js_createNodeIterator, - createNodeIterator, js_createTreeWalker, createTreeWalker, - js_getOverrideStyle, getOverrideStyle, js_createExpression, - createExpression, js_createNSResolver, createNSResolver, - js_evaluate, evaluate, js_execCommand, execCommand, - js_queryCommandEnabled, queryCommandEnabled, - js_queryCommandIndeterm, queryCommandIndeterm, - js_queryCommandState, queryCommandState, js_queryCommandSupported, - queryCommandSupported, js_queryCommandValue, queryCommandValue, - js_getElementsByName, getElementsByName, js_elementFromPoint, - elementFromPoint, js_caretRangeFromPoint, caretRangeFromPoint, - js_getSelection, getSelection, js_getCSSCanvasContext, - getCSSCanvasContext, js_getElementsByClassName, - getElementsByClassName, js_hasFocus, hasFocus, js_querySelector, - querySelector, js_querySelectorAll, querySelectorAll, - js_webkitCancelFullScreen, webkitCancelFullScreen, - js_webkitExitFullscreen, webkitExitFullscreen, js_exitPointerLock, - exitPointerLock, js_webkitGetNamedFlows, webkitGetNamedFlows, - js_createTouch, createTouch, js_createTouchList, createTouchList, - js_getDoctype, getDoctype, js_getImplementation, getImplementation, - js_getDocumentElement, getDocumentElement, js_getInputEncoding, - getInputEncoding, js_getXmlEncoding, getXmlEncoding, - js_setXmlVersion, setXmlVersion, js_getXmlVersion, getXmlVersion, - js_setXmlStandalone, setXmlStandalone, js_getXmlStandalone, - getXmlStandalone, js_getDocumentURI, getDocumentURI, - js_getDefaultView, getDefaultView, js_getStyleSheets, - getStyleSheets, js_getContentType, getContentType, js_setTitle, - setTitle, js_getTitle, getTitle, js_getReferrer, getReferrer, - js_setDomain, setDomain, js_getDomain, getDomain, js_getURL, - getURL, js_setCookie, setCookie, js_getCookie, getCookie, - js_setBody, setBody, js_getBody, getBody, js_getHead, getHead, - js_getImages, getImages, js_getApplets, getApplets, js_getLinks, - getLinks, js_getForms, getForms, js_getAnchors, getAnchors, - js_getLastModified, getLastModified, js_setLocation, setLocation, - js_getLocation, getLocation, js_setCharset, setCharset, - js_getCharset, getCharset, js_getDefaultCharset, getDefaultCharset, - js_getReadyState, getReadyState, js_getCharacterSet, - getCharacterSet, js_getPreferredStylesheetSet, - getPreferredStylesheetSet, js_setSelectedStylesheetSet, - setSelectedStylesheetSet, js_getSelectedStylesheetSet, - getSelectedStylesheetSet, js_getActiveElement, getActiveElement, - js_getCompatMode, getCompatMode, js_getWebkitIsFullScreen, - getWebkitIsFullScreen, js_getWebkitFullScreenKeyboardInputAllowed, - getWebkitFullScreenKeyboardInputAllowed, - js_getWebkitCurrentFullScreenElement, - getWebkitCurrentFullScreenElement, js_getWebkitFullscreenEnabled, - getWebkitFullscreenEnabled, js_getWebkitFullscreenElement, - getWebkitFullscreenElement, js_getPointerLockElement, - getPointerLockElement, js_getFonts, getFonts, abort, blur, change, - click, contextMenu, dblClick, drag, dragEnd, dragEnter, dragLeave, - dragOver, dragStart, drop, error, focus, input, invalid, keyDown, - keyPress, keyUp, load, mouseDown, mouseEnter, mouseLeave, - mouseMove, mouseOut, mouseOver, mouseUp, mouseWheel, - readyStateChange, scroll, select, submit, wheel, beforeCut, cut, - beforeCopy, copy, beforePaste, paste, reset, search, selectStart, - selectionchange, touchStart, touchMove, touchEnd, touchCancel, - webKitFullscreenChange, webKitFullscreenError, pointerlockchange, - pointerlockerror, securitypolicyviolation, webKitWillRevealBottom, - webKitWillRevealLeft, webKitWillRevealRight, webKitWillRevealTop, - js_getVisibilityState, getVisibilityState, js_getHidden, getHidden, - js_getSecurityPolicy, getSecurityPolicy, js_getCurrentScript, - getCurrentScript, js_getOrigin, getOrigin, Document, - castToDocument, gTypeDocument, IsDocument, toDocument) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "new window[\"Document\"]()" - js_newDocument :: IO Document - --- | -newDocument :: (MonadIO m) => m Document -newDocument = liftIO (js_newDocument) - -foreign import javascript unsafe "$1[\"createElement\"]($2)" - js_createElement :: - Document -> Nullable JSString -> IO (Nullable Element) - --- | -createElement :: - (MonadIO m, IsDocument self, ToJSString tagName) => - self -> Maybe tagName -> m (Maybe Element) -createElement self tagName - = liftIO - (nullableToMaybe <$> - (js_createElement (toDocument self) (toMaybeJSString tagName))) - -foreign import javascript unsafe "$1[\"createDocumentFragment\"]()" - js_createDocumentFragment :: - Document -> IO (Nullable DocumentFragment) - --- | -createDocumentFragment :: - (MonadIO m, IsDocument self) => self -> m (Maybe DocumentFragment) -createDocumentFragment self - = liftIO - (nullableToMaybe <$> (js_createDocumentFragment (toDocument self))) - -foreign import javascript unsafe "$1[\"createTextNode\"]($2)" - js_createTextNode :: Document -> JSString -> IO (Nullable Text) - --- | -createTextNode :: - (MonadIO m, IsDocument self, ToJSString data') => - self -> data' -> m (Maybe Text) -createTextNode self data' - = liftIO - (nullableToMaybe <$> - (js_createTextNode (toDocument self) (toJSString data'))) - -foreign import javascript unsafe "$1[\"createComment\"]($2)" - js_createComment :: Document -> JSString -> IO (Nullable Comment) - --- | -createComment :: - (MonadIO m, IsDocument self, ToJSString data') => - self -> data' -> m (Maybe Comment) -createComment self data' - = liftIO - (nullableToMaybe <$> - (js_createComment (toDocument self) (toJSString data'))) - -foreign import javascript unsafe "$1[\"createCDATASection\"]($2)" - js_createCDATASection :: - Document -> JSString -> IO (Nullable CDATASection) - --- | -createCDATASection :: - (MonadIO m, IsDocument self, ToJSString data') => - self -> data' -> m (Maybe CDATASection) -createCDATASection self data' - = liftIO - (nullableToMaybe <$> - (js_createCDATASection (toDocument self) (toJSString data'))) - -foreign import javascript unsafe - "$1[\"createProcessingInstruction\"]($2,\n$3)" - js_createProcessingInstruction :: - Document -> - JSString -> JSString -> IO (Nullable ProcessingInstruction) - --- | -createProcessingInstruction :: - (MonadIO m, IsDocument self, ToJSString target, - ToJSString data') => - self -> target -> data' -> m (Maybe ProcessingInstruction) -createProcessingInstruction self target data' - = liftIO - (nullableToMaybe <$> - (js_createProcessingInstruction (toDocument self) - (toJSString target) - (toJSString data'))) - -foreign import javascript unsafe "$1[\"createAttribute\"]($2)" - js_createAttribute :: Document -> JSString -> IO (Nullable Attr) - --- | -createAttribute :: - (MonadIO m, IsDocument self, ToJSString name) => - self -> name -> m (Maybe Attr) -createAttribute self name - = liftIO - (nullableToMaybe <$> - (js_createAttribute (toDocument self) (toJSString name))) - -foreign import javascript unsafe - "$1[\"createEntityReference\"]($2)" js_createEntityReference :: - Document -> JSString -> IO (Nullable EntityReference) - --- | -createEntityReference :: - (MonadIO m, IsDocument self, ToJSString name) => - self -> name -> m (Maybe EntityReference) -createEntityReference self name - = liftIO - (nullableToMaybe <$> - (js_createEntityReference (toDocument self) (toJSString name))) - -foreign import javascript unsafe "$1[\"getElementsByTagName\"]($2)" - js_getElementsByTagName :: - Document -> JSString -> IO (Nullable NodeList) - --- | -getElementsByTagName :: - (MonadIO m, IsDocument self, ToJSString tagname) => - self -> tagname -> m (Maybe NodeList) -getElementsByTagName self tagname - = liftIO - (nullableToMaybe <$> - (js_getElementsByTagName (toDocument self) (toJSString tagname))) - -foreign import javascript unsafe "$1[\"importNode\"]($2, $3)" - js_importNode :: - Document -> Nullable Node -> Bool -> IO (Nullable Node) - --- | -importNode :: - (MonadIO m, IsDocument self, IsNode importedNode) => - self -> Maybe importedNode -> Bool -> m (Maybe Node) -importNode self importedNode deep - = liftIO - (nullableToMaybe <$> - (js_importNode (toDocument self) - (maybeToNullable (fmap toNode importedNode)) - deep)) - -foreign import javascript unsafe "$1[\"createElementNS\"]($2, $3)" - js_createElementNS :: - Document -> - Nullable JSString -> Nullable JSString -> IO (Nullable Element) - --- | -createElementNS :: - (MonadIO m, IsDocument self, ToJSString namespaceURI, - ToJSString qualifiedName) => - self -> - Maybe namespaceURI -> Maybe qualifiedName -> m (Maybe Element) -createElementNS self namespaceURI qualifiedName - = liftIO - (nullableToMaybe <$> - (js_createElementNS (toDocument self) - (toMaybeJSString namespaceURI) - (toMaybeJSString qualifiedName))) - -foreign import javascript unsafe - "$1[\"createAttributeNS\"]($2, $3)" js_createAttributeNS :: - Document -> - Nullable JSString -> Nullable JSString -> IO (Nullable Attr) - --- | -createAttributeNS :: - (MonadIO m, IsDocument self, ToJSString namespaceURI, - ToJSString qualifiedName) => - self -> Maybe namespaceURI -> Maybe qualifiedName -> m (Maybe Attr) -createAttributeNS self namespaceURI qualifiedName - = liftIO - (nullableToMaybe <$> - (js_createAttributeNS (toDocument self) - (toMaybeJSString namespaceURI) - (toMaybeJSString qualifiedName))) - -foreign import javascript unsafe - "$1[\"getElementsByTagNameNS\"]($2,\n$3)" js_getElementsByTagNameNS - :: - Document -> Nullable JSString -> JSString -> IO (Nullable NodeList) - --- | -getElementsByTagNameNS :: - (MonadIO m, IsDocument self, ToJSString namespaceURI, - ToJSString localName) => - self -> Maybe namespaceURI -> localName -> m (Maybe NodeList) -getElementsByTagNameNS self namespaceURI localName - = liftIO - (nullableToMaybe <$> - (js_getElementsByTagNameNS (toDocument self) - (toMaybeJSString namespaceURI) - (toJSString localName))) - -foreign import javascript unsafe "$1[\"getElementById\"]($2)" - js_getElementById :: Document -> JSString -> IO (Nullable Element) - --- | -getElementById :: - (MonadIO m, IsDocument self, ToJSString elementId) => - self -> elementId -> m (Maybe Element) -getElementById self elementId - = liftIO - (nullableToMaybe <$> - (js_getElementById (toDocument self) (toJSString elementId))) - -foreign import javascript unsafe "$1[\"adoptNode\"]($2)" - js_adoptNode :: Document -> Nullable Node -> IO (Nullable Node) - --- | -adoptNode :: - (MonadIO m, IsDocument self, IsNode source) => - self -> Maybe source -> m (Maybe Node) -adoptNode self source - = liftIO - (nullableToMaybe <$> - (js_adoptNode (toDocument self) - (maybeToNullable (fmap toNode source)))) - -foreign import javascript unsafe "$1[\"createEvent\"]($2)" - js_createEvent :: Document -> JSString -> IO (Nullable Event) - --- | -createEvent :: - (MonadIO m, IsDocument self, ToJSString eventType) => - self -> eventType -> m (Maybe Event) -createEvent self eventType - = liftIO - (nullableToMaybe <$> - (js_createEvent (toDocument self) (toJSString eventType))) - -foreign import javascript unsafe "$1[\"createRange\"]()" - js_createRange :: Document -> IO (Nullable Range) - --- | -createRange :: - (MonadIO m, IsDocument self) => self -> m (Maybe Range) -createRange self - = liftIO (nullableToMaybe <$> (js_createRange (toDocument self))) - -foreign import javascript unsafe - "$1[\"createNodeIterator\"]($2, $3,\n$4, $5)" js_createNodeIterator - :: - Document -> - Nullable Node -> - Word -> Nullable NodeFilter -> Bool -> IO (Nullable NodeIterator) - --- | -createNodeIterator :: - (MonadIO m, IsDocument self, IsNode root) => - self -> - Maybe root -> - Word -> Maybe NodeFilter -> Bool -> m (Maybe NodeIterator) -createNodeIterator self root whatToShow filter - expandEntityReferences - = liftIO - (nullableToMaybe <$> - (js_createNodeIterator (toDocument self) - (maybeToNullable (fmap toNode root)) - whatToShow - (maybeToNullable filter) - expandEntityReferences)) - -foreign import javascript unsafe - "$1[\"createTreeWalker\"]($2, $3,\n$4, $5)" js_createTreeWalker :: - Document -> - Nullable Node -> - Word -> Nullable NodeFilter -> Bool -> IO (Nullable TreeWalker) - --- | -createTreeWalker :: - (MonadIO m, IsDocument self, IsNode root) => - self -> - Maybe root -> - Word -> Maybe NodeFilter -> Bool -> m (Maybe TreeWalker) -createTreeWalker self root whatToShow filter expandEntityReferences - = liftIO - (nullableToMaybe <$> - (js_createTreeWalker (toDocument self) - (maybeToNullable (fmap toNode root)) - whatToShow - (maybeToNullable filter) - expandEntityReferences)) - -foreign import javascript unsafe "$1[\"getOverrideStyle\"]($2, $3)" - js_getOverrideStyle :: - Document -> - Nullable Element -> JSString -> IO (Nullable CSSStyleDeclaration) - --- | -getOverrideStyle :: - (MonadIO m, IsDocument self, IsElement element, - ToJSString pseudoElement) => - self -> - Maybe element -> pseudoElement -> m (Maybe CSSStyleDeclaration) -getOverrideStyle self element pseudoElement - = liftIO - (nullableToMaybe <$> - (js_getOverrideStyle (toDocument self) - (maybeToNullable (fmap toElement element)) - (toJSString pseudoElement))) - -foreign import javascript unsafe "$1[\"createExpression\"]($2, $3)" - js_createExpression :: - Document -> - JSString -> - Nullable XPathNSResolver -> IO (Nullable XPathExpression) - --- | -createExpression :: - (MonadIO m, IsDocument self, ToJSString expression) => - self -> - expression -> Maybe XPathNSResolver -> m (Maybe XPathExpression) -createExpression self expression resolver - = liftIO - (nullableToMaybe <$> - (js_createExpression (toDocument self) (toJSString expression) - (maybeToNullable resolver))) - -foreign import javascript unsafe "$1[\"createNSResolver\"]($2)" - js_createNSResolver :: - Document -> Nullable Node -> IO (Nullable XPathNSResolver) - --- | -createNSResolver :: - (MonadIO m, IsDocument self, IsNode nodeResolver) => - self -> Maybe nodeResolver -> m (Maybe XPathNSResolver) -createNSResolver self nodeResolver - = liftIO - (nullableToMaybe <$> - (js_createNSResolver (toDocument self) - (maybeToNullable (fmap toNode nodeResolver)))) - -foreign import javascript unsafe - "$1[\"evaluate\"]($2, $3, $4, $5,\n$6)" js_evaluate :: - Document -> - JSString -> - Nullable Node -> - Nullable XPathNSResolver -> - Word -> Nullable XPathResult -> IO (Nullable XPathResult) - --- | -evaluate :: - (MonadIO m, IsDocument self, ToJSString expression, - IsNode contextNode) => - self -> - expression -> - Maybe contextNode -> - Maybe XPathNSResolver -> - Word -> Maybe XPathResult -> m (Maybe XPathResult) -evaluate self expression contextNode resolver type' inResult - = liftIO - (nullableToMaybe <$> - (js_evaluate (toDocument self) (toJSString expression) - (maybeToNullable (fmap toNode contextNode)) - (maybeToNullable resolver) - type' - (maybeToNullable inResult))) - -foreign import javascript unsafe - "($1[\"execCommand\"]($2, $3,\n$4) ? 1 : 0)" js_execCommand :: - Document -> JSString -> Bool -> Nullable JSString -> IO Bool - --- | -execCommand :: - (MonadIO m, IsDocument self, ToJSString command, - ToJSString value) => - self -> command -> Bool -> Maybe value -> m Bool -execCommand self command userInterface value - = liftIO - (js_execCommand (toDocument self) (toJSString command) - userInterface - (toMaybeJSString value)) - -foreign import javascript unsafe - "($1[\"queryCommandEnabled\"]($2) ? 1 : 0)" js_queryCommandEnabled - :: Document -> JSString -> IO Bool - --- | -queryCommandEnabled :: - (MonadIO m, IsDocument self, ToJSString command) => - self -> command -> m Bool -queryCommandEnabled self command - = liftIO - (js_queryCommandEnabled (toDocument self) (toJSString command)) - -foreign import javascript unsafe - "($1[\"queryCommandIndeterm\"]($2) ? 1 : 0)" - js_queryCommandIndeterm :: Document -> JSString -> IO Bool - --- | -queryCommandIndeterm :: - (MonadIO m, IsDocument self, ToJSString command) => - self -> command -> m Bool -queryCommandIndeterm self command - = liftIO - (js_queryCommandIndeterm (toDocument self) (toJSString command)) - -foreign import javascript unsafe - "($1[\"queryCommandState\"]($2) ? 1 : 0)" js_queryCommandState :: - Document -> JSString -> IO Bool - --- | -queryCommandState :: - (MonadIO m, IsDocument self, ToJSString command) => - self -> command -> m Bool -queryCommandState self command - = liftIO - (js_queryCommandState (toDocument self) (toJSString command)) - -foreign import javascript unsafe - "($1[\"queryCommandSupported\"]($2) ? 1 : 0)" - js_queryCommandSupported :: Document -> JSString -> IO Bool - --- | -queryCommandSupported :: - (MonadIO m, IsDocument self, ToJSString command) => - self -> command -> m Bool -queryCommandSupported self command - = liftIO - (js_queryCommandSupported (toDocument self) (toJSString command)) - -foreign import javascript unsafe "$1[\"queryCommandValue\"]($2)" - js_queryCommandValue :: Document -> JSString -> IO JSString - --- | -queryCommandValue :: - (MonadIO m, IsDocument self, ToJSString command, - FromJSString result) => - self -> command -> m result -queryCommandValue self command - = liftIO - (fromJSString <$> - (js_queryCommandValue (toDocument self) (toJSString command))) - -foreign import javascript unsafe "$1[\"getElementsByName\"]($2)" - js_getElementsByName :: - Document -> JSString -> IO (Nullable NodeList) - --- | -getElementsByName :: - (MonadIO m, IsDocument self, ToJSString elementName) => - self -> elementName -> m (Maybe NodeList) -getElementsByName self elementName - = liftIO - (nullableToMaybe <$> - (js_getElementsByName (toDocument self) (toJSString elementName))) - -foreign import javascript unsafe "$1[\"elementFromPoint\"]($2, $3)" - js_elementFromPoint :: - Document -> Int -> Int -> IO (Nullable Element) - --- | -elementFromPoint :: - (MonadIO m, IsDocument self) => - self -> Int -> Int -> m (Maybe Element) -elementFromPoint self x y - = liftIO - (nullableToMaybe <$> (js_elementFromPoint (toDocument self) x y)) - -foreign import javascript unsafe - "$1[\"caretRangeFromPoint\"]($2,\n$3)" js_caretRangeFromPoint :: - Document -> Int -> Int -> IO (Nullable Range) - --- | -caretRangeFromPoint :: - (MonadIO m, IsDocument self) => - self -> Int -> Int -> m (Maybe Range) -caretRangeFromPoint self x y - = liftIO - (nullableToMaybe <$> - (js_caretRangeFromPoint (toDocument self) x y)) - -foreign import javascript unsafe "$1[\"getSelection\"]()" - js_getSelection :: Document -> IO (Nullable Selection) - --- | -getSelection :: - (MonadIO m, IsDocument self) => self -> m (Maybe Selection) -getSelection self - = liftIO (nullableToMaybe <$> (js_getSelection (toDocument self))) - -foreign import javascript unsafe - "$1[\"getCSSCanvasContext\"]($2,\n$3, $4, $5)" - js_getCSSCanvasContext :: - Document -> - JSString -> - JSString -> Int -> Int -> IO (Nullable CanvasRenderingContext) - --- | -getCSSCanvasContext :: - (MonadIO m, IsDocument self, ToJSString contextId, - ToJSString name) => - self -> - contextId -> name -> Int -> Int -> m (Maybe CanvasRenderingContext) -getCSSCanvasContext self contextId name width height - = liftIO - (nullableToMaybe <$> - (js_getCSSCanvasContext (toDocument self) (toJSString contextId) - (toJSString name) - width - height)) - -foreign import javascript unsafe - "$1[\"getElementsByClassName\"]($2)" js_getElementsByClassName :: - Document -> JSString -> IO (Nullable NodeList) - --- | -getElementsByClassName :: - (MonadIO m, IsDocument self, ToJSString tagname) => - self -> tagname -> m (Maybe NodeList) -getElementsByClassName self tagname - = liftIO - (nullableToMaybe <$> - (js_getElementsByClassName (toDocument self) (toJSString tagname))) - -foreign import javascript unsafe "($1[\"hasFocus\"]() ? 1 : 0)" - js_hasFocus :: Document -> IO Bool - --- | -hasFocus :: (MonadIO m, IsDocument self) => self -> m Bool -hasFocus self = liftIO (js_hasFocus (toDocument self)) - -foreign import javascript unsafe "$1[\"querySelector\"]($2)" - js_querySelector :: Document -> JSString -> IO (Nullable Element) - --- | -querySelector :: - (MonadIO m, IsDocument self, ToJSString selectors) => - self -> selectors -> m (Maybe Element) -querySelector self selectors - = liftIO - (nullableToMaybe <$> - (js_querySelector (toDocument self) (toJSString selectors))) - -foreign import javascript unsafe "$1[\"querySelectorAll\"]($2)" - js_querySelectorAll :: - Document -> JSString -> IO (Nullable NodeList) - --- | -querySelectorAll :: - (MonadIO m, IsDocument self, ToJSString selectors) => - self -> selectors -> m (Maybe NodeList) -querySelectorAll self selectors - = liftIO - (nullableToMaybe <$> - (js_querySelectorAll (toDocument self) (toJSString selectors))) - -foreign import javascript unsafe "$1[\"webkitCancelFullScreen\"]()" - js_webkitCancelFullScreen :: Document -> IO () - --- | -webkitCancelFullScreen :: - (MonadIO m, IsDocument self) => self -> m () -webkitCancelFullScreen self - = liftIO (js_webkitCancelFullScreen (toDocument self)) - -foreign import javascript unsafe "$1[\"webkitExitFullscreen\"]()" - js_webkitExitFullscreen :: Document -> IO () - --- | -webkitExitFullscreen :: - (MonadIO m, IsDocument self) => self -> m () -webkitExitFullscreen self - = liftIO (js_webkitExitFullscreen (toDocument self)) - -foreign import javascript unsafe "$1[\"exitPointerLock\"]()" - js_exitPointerLock :: Document -> IO () - --- | -exitPointerLock :: (MonadIO m, IsDocument self) => self -> m () -exitPointerLock self - = liftIO (js_exitPointerLock (toDocument self)) - -foreign import javascript unsafe "$1[\"webkitGetNamedFlows\"]()" - js_webkitGetNamedFlows :: - Document -> IO (Nullable DOMNamedFlowCollection) - --- | -webkitGetNamedFlows :: - (MonadIO m, IsDocument self) => - self -> m (Maybe DOMNamedFlowCollection) -webkitGetNamedFlows self - = liftIO - (nullableToMaybe <$> (js_webkitGetNamedFlows (toDocument self))) - -foreign import javascript unsafe - "$1[\"createTouch\"]($2, $3, $4,\n$5, $6, $7, $8, $9, $10, $11,\n$12)" - js_createTouch :: - Document -> - Nullable Window -> - Nullable EventTarget -> - Int -> - Int -> - Int -> - Int -> Int -> Int -> Int -> Float -> Float -> IO (Nullable Touch) - --- | -createTouch :: - (MonadIO m, IsDocument self, IsEventTarget target) => - self -> - Maybe Window -> - Maybe target -> - Int -> - Int -> - Int -> - Int -> Int -> Int -> Int -> Float -> Float -> m (Maybe Touch) -createTouch self window target identifier pageX pageY screenX - screenY webkitRadiusX webkitRadiusY webkitRotationAngle webkitForce - = liftIO - (nullableToMaybe <$> - (js_createTouch (toDocument self) (maybeToNullable window) - (maybeToNullable (fmap toEventTarget target)) - identifier - pageX - pageY - screenX - screenY - webkitRadiusX - webkitRadiusY - webkitRotationAngle - webkitForce)) - -foreign import javascript unsafe "$1[\"createTouchList\"]()" - js_createTouchList :: Document -> IO (Nullable TouchList) - --- | -createTouchList :: - (MonadIO m, IsDocument self) => self -> m (Maybe TouchList) -createTouchList self - = liftIO - (nullableToMaybe <$> (js_createTouchList (toDocument self))) - -foreign import javascript unsafe "$1[\"doctype\"]" js_getDoctype :: - Document -> IO (Nullable DocumentType) - --- | -getDoctype :: - (MonadIO m, IsDocument self) => self -> m (Maybe DocumentType) -getDoctype self - = liftIO (nullableToMaybe <$> (js_getDoctype (toDocument self))) - -foreign import javascript unsafe "$1[\"implementation\"]" - js_getImplementation :: Document -> IO (Nullable DOMImplementation) - --- | -getImplementation :: - (MonadIO m, IsDocument self) => self -> m (Maybe DOMImplementation) -getImplementation self - = liftIO - (nullableToMaybe <$> (js_getImplementation (toDocument self))) - -foreign import javascript unsafe "$1[\"documentElement\"]" - js_getDocumentElement :: Document -> IO (Nullable Element) - --- | -getDocumentElement :: - (MonadIO m, IsDocument self) => self -> m (Maybe Element) -getDocumentElement self - = liftIO - (nullableToMaybe <$> (js_getDocumentElement (toDocument self))) - -foreign import javascript unsafe "$1[\"inputEncoding\"]" - js_getInputEncoding :: Document -> IO (Nullable JSString) - --- | -getInputEncoding :: - (MonadIO m, IsDocument self, FromJSString result) => - self -> m (Maybe result) -getInputEncoding self - = liftIO - (fromMaybeJSString <$> (js_getInputEncoding (toDocument self))) - -foreign import javascript unsafe "$1[\"xmlEncoding\"]" - js_getXmlEncoding :: Document -> IO (Nullable JSString) - --- | -getXmlEncoding :: - (MonadIO m, IsDocument self, FromJSString result) => - self -> m (Maybe result) -getXmlEncoding self - = liftIO - (fromMaybeJSString <$> (js_getXmlEncoding (toDocument self))) - -foreign import javascript unsafe "$1[\"xmlVersion\"] = $2;" - js_setXmlVersion :: Document -> Nullable JSString -> IO () - --- | -setXmlVersion :: - (MonadIO m, IsDocument self, ToJSString val) => - self -> Maybe val -> m () -setXmlVersion self val - = liftIO (js_setXmlVersion (toDocument self) (toMaybeJSString val)) - -foreign import javascript unsafe "$1[\"xmlVersion\"]" - js_getXmlVersion :: Document -> IO (Nullable JSString) - --- | -getXmlVersion :: - (MonadIO m, IsDocument self, FromJSString result) => - self -> m (Maybe result) -getXmlVersion self - = liftIO - (fromMaybeJSString <$> (js_getXmlVersion (toDocument self))) - -foreign import javascript unsafe "$1[\"xmlStandalone\"] = $2;" - js_setXmlStandalone :: Document -> Bool -> IO () - --- | -setXmlStandalone :: - (MonadIO m, IsDocument self) => self -> Bool -> m () -setXmlStandalone self val - = liftIO (js_setXmlStandalone (toDocument self) val) - -foreign import javascript unsafe "($1[\"xmlStandalone\"] ? 1 : 0)" - js_getXmlStandalone :: Document -> IO Bool - --- | -getXmlStandalone :: (MonadIO m, IsDocument self) => self -> m Bool -getXmlStandalone self - = liftIO (js_getXmlStandalone (toDocument self)) - -foreign import javascript unsafe "$1[\"documentURI\"]" - js_getDocumentURI :: Document -> IO (Nullable JSString) - --- | -getDocumentURI :: - (MonadIO m, IsDocument self, FromJSString result) => - self -> m (Maybe result) -getDocumentURI self - = liftIO - (fromMaybeJSString <$> (js_getDocumentURI (toDocument self))) - -foreign import javascript unsafe "$1[\"defaultView\"]" - js_getDefaultView :: Document -> IO (Nullable Window) - --- | -getDefaultView :: - (MonadIO m, IsDocument self) => self -> m (Maybe Window) -getDefaultView self - = liftIO - (nullableToMaybe <$> (js_getDefaultView (toDocument self))) - -foreign import javascript unsafe "$1[\"styleSheets\"]" - js_getStyleSheets :: Document -> IO (Nullable StyleSheetList) - --- | -getStyleSheets :: - (MonadIO m, IsDocument self) => self -> m (Maybe StyleSheetList) -getStyleSheets self - = liftIO - (nullableToMaybe <$> (js_getStyleSheets (toDocument self))) - -foreign import javascript unsafe "$1[\"contentType\"]" - js_getContentType :: Document -> IO JSString - --- | -getContentType :: - (MonadIO m, IsDocument self, FromJSString result) => - self -> m result -getContentType self - = liftIO (fromJSString <$> (js_getContentType (toDocument self))) - -foreign import javascript unsafe "$1[\"title\"] = $2;" js_setTitle - :: Document -> Nullable JSString -> IO () - --- | -setTitle :: - (MonadIO m, IsDocument self, ToJSString val) => - self -> Maybe val -> m () -setTitle self val - = liftIO (js_setTitle (toDocument self) (toMaybeJSString val)) - -foreign import javascript unsafe "$1[\"title\"]" js_getTitle :: - Document -> IO (Nullable JSString) - --- | -getTitle :: - (MonadIO m, IsDocument self, FromJSString result) => - self -> m (Maybe result) -getTitle self - = liftIO (fromMaybeJSString <$> (js_getTitle (toDocument self))) - -foreign import javascript unsafe "$1[\"referrer\"]" js_getReferrer - :: Document -> IO JSString - --- | -getReferrer :: - (MonadIO m, IsDocument self, FromJSString result) => - self -> m result -getReferrer self - = liftIO (fromJSString <$> (js_getReferrer (toDocument self))) - -foreign import javascript unsafe "$1[\"domain\"] = $2;" - js_setDomain :: Document -> Nullable JSString -> IO () - --- | -setDomain :: - (MonadIO m, IsDocument self, ToJSString val) => - self -> Maybe val -> m () -setDomain self val - = liftIO (js_setDomain (toDocument self) (toMaybeJSString val)) - -foreign import javascript unsafe "$1[\"domain\"]" js_getDomain :: - Document -> IO (Nullable JSString) - --- | -getDomain :: - (MonadIO m, IsDocument self, FromJSString result) => - self -> m (Maybe result) -getDomain self - = liftIO (fromMaybeJSString <$> (js_getDomain (toDocument self))) - -foreign import javascript unsafe "$1[\"URL\"]" js_getURL :: - Document -> IO JSString - --- | -getURL :: - (MonadIO m, IsDocument self, FromJSString result) => - self -> m result -getURL self - = liftIO (fromJSString <$> (js_getURL (toDocument self))) - -foreign import javascript unsafe "$1[\"cookie\"] = $2;" - js_setCookie :: Document -> Nullable JSString -> IO () - --- | -setCookie :: - (MonadIO m, IsDocument self, ToJSString val) => - self -> Maybe val -> m () -setCookie self val - = liftIO (js_setCookie (toDocument self) (toMaybeJSString val)) - -foreign import javascript unsafe "$1[\"cookie\"]" js_getCookie :: - Document -> IO (Nullable JSString) - --- | -getCookie :: - (MonadIO m, IsDocument self, FromJSString result) => - self -> m (Maybe result) -getCookie self - = liftIO (fromMaybeJSString <$> (js_getCookie (toDocument self))) - -foreign import javascript unsafe "$1[\"body\"] = $2;" js_setBody :: - Document -> Nullable HTMLElement -> IO () - --- | -setBody :: - (MonadIO m, IsDocument self, IsHTMLElement val) => - self -> Maybe val -> m () -setBody self val - = liftIO - (js_setBody (toDocument self) - (maybeToNullable (fmap toHTMLElement val))) - -foreign import javascript unsafe "$1[\"body\"]" js_getBody :: - Document -> IO (Nullable HTMLElement) - --- | -getBody :: - (MonadIO m, IsDocument self) => self -> m (Maybe HTMLElement) -getBody self - = liftIO (nullableToMaybe <$> (js_getBody (toDocument self))) - -foreign import javascript unsafe "$1[\"head\"]" js_getHead :: - Document -> IO (Nullable HTMLHeadElement) - --- | -getHead :: - (MonadIO m, IsDocument self) => self -> m (Maybe HTMLHeadElement) -getHead self - = liftIO (nullableToMaybe <$> (js_getHead (toDocument self))) - -foreign import javascript unsafe "$1[\"images\"]" js_getImages :: - Document -> IO (Nullable HTMLCollection) - --- | -getImages :: - (MonadIO m, IsDocument self) => self -> m (Maybe HTMLCollection) -getImages self - = liftIO (nullableToMaybe <$> (js_getImages (toDocument self))) - -foreign import javascript unsafe "$1[\"applets\"]" js_getApplets :: - Document -> IO (Nullable HTMLCollection) - --- | -getApplets :: - (MonadIO m, IsDocument self) => self -> m (Maybe HTMLCollection) -getApplets self - = liftIO (nullableToMaybe <$> (js_getApplets (toDocument self))) - -foreign import javascript unsafe "$1[\"links\"]" js_getLinks :: - Document -> IO (Nullable HTMLCollection) - --- | -getLinks :: - (MonadIO m, IsDocument self) => self -> m (Maybe HTMLCollection) -getLinks self - = liftIO (nullableToMaybe <$> (js_getLinks (toDocument self))) - -foreign import javascript unsafe "$1[\"forms\"]" js_getForms :: - Document -> IO (Nullable HTMLCollection) - --- | -getForms :: - (MonadIO m, IsDocument self) => self -> m (Maybe HTMLCollection) -getForms self - = liftIO (nullableToMaybe <$> (js_getForms (toDocument self))) - -foreign import javascript unsafe "$1[\"anchors\"]" js_getAnchors :: - Document -> IO (Nullable HTMLCollection) - --- | -getAnchors :: - (MonadIO m, IsDocument self) => self -> m (Maybe HTMLCollection) -getAnchors self - = liftIO (nullableToMaybe <$> (js_getAnchors (toDocument self))) - -foreign import javascript unsafe "$1[\"lastModified\"]" - js_getLastModified :: Document -> IO JSString - --- | -getLastModified :: - (MonadIO m, IsDocument self, FromJSString result) => - self -> m result -getLastModified self - = liftIO (fromJSString <$> (js_getLastModified (toDocument self))) - -foreign import javascript unsafe "$1[\"location\"] = $2;" - js_setLocation :: Document -> Nullable Location -> IO () - --- | -setLocation :: - (MonadIO m, IsDocument self) => self -> Maybe Location -> m () -setLocation self val - = liftIO (js_setLocation (toDocument self) (maybeToNullable val)) - -foreign import javascript unsafe "$1[\"location\"]" js_getLocation - :: Document -> IO (Nullable Location) - --- | -getLocation :: - (MonadIO m, IsDocument self) => self -> m (Maybe Location) -getLocation self - = liftIO (nullableToMaybe <$> (js_getLocation (toDocument self))) - -foreign import javascript unsafe "$1[\"charset\"] = $2;" - js_setCharset :: Document -> Nullable JSString -> IO () - --- | -setCharset :: - (MonadIO m, IsDocument self, ToJSString val) => - self -> Maybe val -> m () -setCharset self val - = liftIO (js_setCharset (toDocument self) (toMaybeJSString val)) - -foreign import javascript unsafe "$1[\"charset\"]" js_getCharset :: - Document -> IO (Nullable JSString) - --- | -getCharset :: - (MonadIO m, IsDocument self, FromJSString result) => - self -> m (Maybe result) -getCharset self - = liftIO (fromMaybeJSString <$> (js_getCharset (toDocument self))) - -foreign import javascript unsafe "$1[\"defaultCharset\"]" - js_getDefaultCharset :: Document -> IO (Nullable JSString) - --- | -getDefaultCharset :: - (MonadIO m, IsDocument self, FromJSString result) => - self -> m (Maybe result) -getDefaultCharset self - = liftIO - (fromMaybeJSString <$> (js_getDefaultCharset (toDocument self))) - -foreign import javascript unsafe "$1[\"readyState\"]" - js_getReadyState :: Document -> IO (Nullable JSString) - --- | -getReadyState :: - (MonadIO m, IsDocument self, FromJSString result) => - self -> m (Maybe result) -getReadyState self - = liftIO - (fromMaybeJSString <$> (js_getReadyState (toDocument self))) - -foreign import javascript unsafe "$1[\"characterSet\"]" - js_getCharacterSet :: Document -> IO (Nullable JSString) - --- | -getCharacterSet :: - (MonadIO m, IsDocument self, FromJSString result) => - self -> m (Maybe result) -getCharacterSet self - = liftIO - (fromMaybeJSString <$> (js_getCharacterSet (toDocument self))) - -foreign import javascript unsafe "$1[\"preferredStylesheetSet\"]" - js_getPreferredStylesheetSet :: Document -> IO (Nullable JSString) - --- | -getPreferredStylesheetSet :: - (MonadIO m, IsDocument self, FromJSString result) => - self -> m (Maybe result) -getPreferredStylesheetSet self - = liftIO - (fromMaybeJSString <$> - (js_getPreferredStylesheetSet (toDocument self))) - -foreign import javascript unsafe - "$1[\"selectedStylesheetSet\"] = $2;" js_setSelectedStylesheetSet - :: Document -> Nullable JSString -> IO () - --- | -setSelectedStylesheetSet :: - (MonadIO m, IsDocument self, ToJSString val) => - self -> Maybe val -> m () -setSelectedStylesheetSet self val - = liftIO - (js_setSelectedStylesheetSet (toDocument self) - (toMaybeJSString val)) - -foreign import javascript unsafe "$1[\"selectedStylesheetSet\"]" - js_getSelectedStylesheetSet :: Document -> IO (Nullable JSString) - --- | -getSelectedStylesheetSet :: - (MonadIO m, IsDocument self, FromJSString result) => - self -> m (Maybe result) -getSelectedStylesheetSet self - = liftIO - (fromMaybeJSString <$> - (js_getSelectedStylesheetSet (toDocument self))) - -foreign import javascript unsafe "$1[\"activeElement\"]" - js_getActiveElement :: Document -> IO (Nullable Element) - --- | -getActiveElement :: - (MonadIO m, IsDocument self) => self -> m (Maybe Element) -getActiveElement self - = liftIO - (nullableToMaybe <$> (js_getActiveElement (toDocument self))) - -foreign import javascript unsafe "$1[\"compatMode\"]" - js_getCompatMode :: Document -> IO JSString - --- | -getCompatMode :: - (MonadIO m, IsDocument self, FromJSString result) => - self -> m result -getCompatMode self - = liftIO (fromJSString <$> (js_getCompatMode (toDocument self))) - -foreign import javascript unsafe - "($1[\"webkitIsFullScreen\"] ? 1 : 0)" js_getWebkitIsFullScreen :: - Document -> IO Bool - --- | -getWebkitIsFullScreen :: - (MonadIO m, IsDocument self) => self -> m Bool -getWebkitIsFullScreen self - = liftIO (js_getWebkitIsFullScreen (toDocument self)) - -foreign import javascript unsafe - "($1[\"webkitFullScreenKeyboardInputAllowed\"] ? 1 : 0)" - js_getWebkitFullScreenKeyboardInputAllowed :: Document -> IO Bool - --- | -getWebkitFullScreenKeyboardInputAllowed :: - (MonadIO m, IsDocument self) => self -> m Bool -getWebkitFullScreenKeyboardInputAllowed self - = liftIO - (js_getWebkitFullScreenKeyboardInputAllowed (toDocument self)) - -foreign import javascript unsafe - "$1[\"webkitCurrentFullScreenElement\"]" - js_getWebkitCurrentFullScreenElement :: - Document -> IO (Nullable Element) - --- | -getWebkitCurrentFullScreenElement :: - (MonadIO m, IsDocument self) => self -> m (Maybe Element) -getWebkitCurrentFullScreenElement self - = liftIO - (nullableToMaybe <$> - (js_getWebkitCurrentFullScreenElement (toDocument self))) - -foreign import javascript unsafe - "($1[\"webkitFullscreenEnabled\"] ? 1 : 0)" - js_getWebkitFullscreenEnabled :: Document -> IO Bool - --- | -getWebkitFullscreenEnabled :: - (MonadIO m, IsDocument self) => self -> m Bool -getWebkitFullscreenEnabled self - = liftIO (js_getWebkitFullscreenEnabled (toDocument self)) - -foreign import javascript unsafe "$1[\"webkitFullscreenElement\"]" - js_getWebkitFullscreenElement :: Document -> IO (Nullable Element) - --- | -getWebkitFullscreenElement :: - (MonadIO m, IsDocument self) => self -> m (Maybe Element) -getWebkitFullscreenElement self - = liftIO - (nullableToMaybe <$> - (js_getWebkitFullscreenElement (toDocument self))) - -foreign import javascript unsafe "$1[\"pointerLockElement\"]" - js_getPointerLockElement :: Document -> IO (Nullable Element) - --- | -getPointerLockElement :: - (MonadIO m, IsDocument self) => self -> m (Maybe Element) -getPointerLockElement self - = liftIO - (nullableToMaybe <$> (js_getPointerLockElement (toDocument self))) - -foreign import javascript unsafe "$1[\"fonts\"]" js_getFonts :: - Document -> IO (Nullable FontLoader) - --- | -getFonts :: - (MonadIO m, IsDocument self) => self -> m (Maybe FontLoader) -getFonts self - = liftIO (nullableToMaybe <$> (js_getFonts (toDocument self))) - --- | -abort :: - (IsDocument self, IsEventTarget self) => EventName self UIEvent -abort = unsafeEventName (toJSString "abort") - --- | -blur :: - (IsDocument self, IsEventTarget self) => EventName self FocusEvent -blur = unsafeEventName (toJSString "blur") - --- | -change :: - (IsDocument self, IsEventTarget self) => EventName self Event -change = unsafeEventName (toJSString "change") - --- | -click :: - (IsDocument self, IsEventTarget self) => EventName self MouseEvent -click = unsafeEventName (toJSString "click") - --- | -contextMenu :: - (IsDocument self, IsEventTarget self) => EventName self MouseEvent -contextMenu = unsafeEventName (toJSString "contextmenu") - --- | -dblClick :: - (IsDocument self, IsEventTarget self) => EventName self MouseEvent -dblClick = unsafeEventName (toJSString "dblclick") - --- | -drag :: - (IsDocument self, IsEventTarget self) => EventName self MouseEvent -drag = unsafeEventName (toJSString "drag") - --- | -dragEnd :: - (IsDocument self, IsEventTarget self) => EventName self MouseEvent -dragEnd = unsafeEventName (toJSString "dragend") - --- | -dragEnter :: - (IsDocument self, IsEventTarget self) => EventName self MouseEvent -dragEnter = unsafeEventName (toJSString "dragenter") - --- | -dragLeave :: - (IsDocument self, IsEventTarget self) => EventName self MouseEvent -dragLeave = unsafeEventName (toJSString "dragleave") - --- | -dragOver :: - (IsDocument self, IsEventTarget self) => EventName self MouseEvent -dragOver = unsafeEventName (toJSString "dragover") - --- | -dragStart :: - (IsDocument self, IsEventTarget self) => EventName self MouseEvent -dragStart = unsafeEventName (toJSString "dragstart") - --- | -drop :: - (IsDocument self, IsEventTarget self) => EventName self MouseEvent -drop = unsafeEventName (toJSString "drop") - --- | -error :: - (IsDocument self, IsEventTarget self) => EventName self UIEvent -error = unsafeEventName (toJSString "error") - --- | -focus :: - (IsDocument self, IsEventTarget self) => EventName self FocusEvent -focus = unsafeEventName (toJSString "focus") - --- | -input :: - (IsDocument self, IsEventTarget self) => EventName self Event -input = unsafeEventName (toJSString "input") - --- | -invalid :: - (IsDocument self, IsEventTarget self) => EventName self Event -invalid = unsafeEventName (toJSString "invalid") - --- | -keyDown :: - (IsDocument self, IsEventTarget self) => - EventName self KeyboardEvent -keyDown = unsafeEventName (toJSString "keydown") - --- | -keyPress :: - (IsDocument self, IsEventTarget self) => - EventName self KeyboardEvent -keyPress = unsafeEventName (toJSString "keypress") - --- | -keyUp :: - (IsDocument self, IsEventTarget self) => - EventName self KeyboardEvent -keyUp = unsafeEventName (toJSString "keyup") - --- | -load :: - (IsDocument self, IsEventTarget self) => EventName self UIEvent -load = unsafeEventName (toJSString "load") - --- | -mouseDown :: - (IsDocument self, IsEventTarget self) => EventName self MouseEvent -mouseDown = unsafeEventName (toJSString "mousedown") - --- | -mouseEnter :: - (IsDocument self, IsEventTarget self) => EventName self MouseEvent -mouseEnter = unsafeEventName (toJSString "mouseenter") - --- | -mouseLeave :: - (IsDocument self, IsEventTarget self) => EventName self MouseEvent -mouseLeave = unsafeEventName (toJSString "mouseleave") - --- | -mouseMove :: - (IsDocument self, IsEventTarget self) => EventName self MouseEvent -mouseMove = unsafeEventName (toJSString "mousemove") - --- | -mouseOut :: - (IsDocument self, IsEventTarget self) => EventName self MouseEvent -mouseOut = unsafeEventName (toJSString "mouseout") - --- | -mouseOver :: - (IsDocument self, IsEventTarget self) => EventName self MouseEvent -mouseOver = unsafeEventName (toJSString "mouseover") - --- | -mouseUp :: - (IsDocument self, IsEventTarget self) => EventName self MouseEvent -mouseUp = unsafeEventName (toJSString "mouseup") - --- | -mouseWheel :: - (IsDocument self, IsEventTarget self) => EventName self MouseEvent -mouseWheel = unsafeEventName (toJSString "mousewheel") - --- | -readyStateChange :: - (IsDocument self, IsEventTarget self) => EventName self Event -readyStateChange = unsafeEventName (toJSString "readystatechange") - --- | -scroll :: - (IsDocument self, IsEventTarget self) => EventName self UIEvent -scroll = unsafeEventName (toJSString "scroll") - --- | -select :: - (IsDocument self, IsEventTarget self) => EventName self UIEvent -select = unsafeEventName (toJSString "select") - --- | -submit :: - (IsDocument self, IsEventTarget self) => EventName self Event -submit = unsafeEventName (toJSString "submit") - --- | -wheel :: - (IsDocument self, IsEventTarget self) => EventName self WheelEvent -wheel = unsafeEventName (toJSString "wheel") - --- | -beforeCut :: - (IsDocument self, IsEventTarget self) => EventName self Event -beforeCut = unsafeEventName (toJSString "beforecut") - --- | -cut :: - (IsDocument self, IsEventTarget self) => EventName self Event -cut = unsafeEventName (toJSString "cut") - --- | -beforeCopy :: - (IsDocument self, IsEventTarget self) => EventName self Event -beforeCopy = unsafeEventName (toJSString "beforecopy") - --- | -copy :: - (IsDocument self, IsEventTarget self) => EventName self Event -copy = unsafeEventName (toJSString "copy") - --- | -beforePaste :: - (IsDocument self, IsEventTarget self) => EventName self Event -beforePaste = unsafeEventName (toJSString "beforepaste") - --- | -paste :: - (IsDocument self, IsEventTarget self) => EventName self Event -paste = unsafeEventName (toJSString "paste") - --- | -reset :: - (IsDocument self, IsEventTarget self) => EventName self Event -reset = unsafeEventName (toJSString "reset") - --- | -search :: - (IsDocument self, IsEventTarget self) => EventName self Event -search = unsafeEventName (toJSString "search") - --- | -selectStart :: - (IsDocument self, IsEventTarget self) => EventName self Event -selectStart = unsafeEventName (toJSString "selectstart") - --- | -selectionchange :: - (IsDocument self, IsEventTarget self) => - EventName self onselectionchange -selectionchange = unsafeEventName (toJSString "selectionchange") - --- | -touchStart :: - (IsDocument self, IsEventTarget self) => EventName self TouchEvent -touchStart = unsafeEventName (toJSString "touchstart") - --- | -touchMove :: - (IsDocument self, IsEventTarget self) => EventName self TouchEvent -touchMove = unsafeEventName (toJSString "touchmove") - --- | -touchEnd :: - (IsDocument self, IsEventTarget self) => EventName self TouchEvent -touchEnd = unsafeEventName (toJSString "touchend") - --- | -touchCancel :: - (IsDocument self, IsEventTarget self) => EventName self TouchEvent -touchCancel = unsafeEventName (toJSString "touchcancel") - --- | -webKitFullscreenChange :: - (IsDocument self, IsEventTarget self) => EventName self Event -webKitFullscreenChange - = unsafeEventName (toJSString "webkitfullscreenchange") - --- | -webKitFullscreenError :: - (IsDocument self, IsEventTarget self) => EventName self Event -webKitFullscreenError - = unsafeEventName (toJSString "webkitfullscreenerror") - --- | -pointerlockchange :: - (IsDocument self, IsEventTarget self) => EventName self Event -pointerlockchange - = unsafeEventName (toJSString "pointerlockchange") - --- | -pointerlockerror :: - (IsDocument self, IsEventTarget self) => EventName self Event -pointerlockerror = unsafeEventName (toJSString "pointerlockerror") - --- | -securitypolicyviolation :: - (IsDocument self, IsEventTarget self) => - EventName self onsecuritypolicyviolation -securitypolicyviolation - = unsafeEventName (toJSString "securitypolicyviolation") - --- | -webKitWillRevealBottom :: - (IsDocument self, IsEventTarget self) => EventName self Event -webKitWillRevealBottom - = unsafeEventName (toJSString "webkitwillrevealbottom") - --- | -webKitWillRevealLeft :: - (IsDocument self, IsEventTarget self) => EventName self Event -webKitWillRevealLeft - = unsafeEventName (toJSString "webkitwillrevealleft") - --- | -webKitWillRevealRight :: - (IsDocument self, IsEventTarget self) => EventName self Event -webKitWillRevealRight - = unsafeEventName (toJSString "webkitwillrevealright") - --- | -webKitWillRevealTop :: - (IsDocument self, IsEventTarget self) => EventName self Event -webKitWillRevealTop - = unsafeEventName (toJSString "webkitwillrevealtop") - -foreign import javascript unsafe "$1[\"visibilityState\"]" - js_getVisibilityState :: Document -> IO JSString - --- | -getVisibilityState :: - (MonadIO m, IsDocument self, FromJSString result) => - self -> m result -getVisibilityState self - = liftIO - (fromJSString <$> (js_getVisibilityState (toDocument self))) - -foreign import javascript unsafe "($1[\"hidden\"] ? 1 : 0)" - js_getHidden :: Document -> IO Bool - --- | -getHidden :: (MonadIO m, IsDocument self) => self -> m Bool -getHidden self = liftIO (js_getHidden (toDocument self)) - -foreign import javascript unsafe "$1[\"securityPolicy\"]" - js_getSecurityPolicy :: Document -> IO (Nullable SecurityPolicy) - --- | -getSecurityPolicy :: - (MonadIO m, IsDocument self) => self -> m (Maybe SecurityPolicy) -getSecurityPolicy self - = liftIO - (nullableToMaybe <$> (js_getSecurityPolicy (toDocument self))) - -foreign import javascript unsafe "$1[\"currentScript\"]" - js_getCurrentScript :: Document -> IO (Nullable HTMLScriptElement) - --- | -getCurrentScript :: - (MonadIO m, IsDocument self) => self -> m (Maybe HTMLScriptElement) -getCurrentScript self - = liftIO - (nullableToMaybe <$> (js_getCurrentScript (toDocument self))) - -foreign import javascript unsafe "$1[\"origin\"]" js_getOrigin :: - Document -> IO JSString - --- | -getOrigin :: - (MonadIO m, IsDocument self, FromJSString result) => - self -> m result -getOrigin self - = liftIO (fromJSString <$> (js_getOrigin (toDocument self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/DocumentFragment.hs b/src/GHCJS/DOM/JSFFI/Generated/DocumentFragment.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/DocumentFragment.hs +++ /dev/null @@ -1,54 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.DocumentFragment - (js_newDocumentFragment, newDocumentFragment, js_querySelector, - querySelector, js_querySelectorAll, querySelectorAll, - DocumentFragment, castToDocumentFragment, gTypeDocumentFragment) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe - "new window[\"DocumentFragment\"]()" js_newDocumentFragment :: - IO DocumentFragment - --- | -newDocumentFragment :: (MonadIO m) => m DocumentFragment -newDocumentFragment = liftIO (js_newDocumentFragment) - -foreign import javascript unsafe "$1[\"querySelector\"]($2)" - js_querySelector :: - DocumentFragment -> JSString -> IO (Nullable Element) - --- | -querySelector :: - (MonadIO m, ToJSString selectors) => - DocumentFragment -> selectors -> m (Maybe Element) -querySelector self selectors - = liftIO - (nullableToMaybe <$> - (js_querySelector (self) (toJSString selectors))) - -foreign import javascript unsafe "$1[\"querySelectorAll\"]($2)" - js_querySelectorAll :: - DocumentFragment -> JSString -> IO (Nullable NodeList) - --- | -querySelectorAll :: - (MonadIO m, ToJSString selectors) => - DocumentFragment -> selectors -> m (Maybe NodeList) -querySelectorAll self selectors - = liftIO - (nullableToMaybe <$> - (js_querySelectorAll (self) (toJSString selectors))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/DocumentType.hs b/src/GHCJS/DOM/JSFFI/Generated/DocumentType.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/DocumentType.hs +++ /dev/null @@ -1,77 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.DocumentType - (js_getName, getName, js_getEntities, getEntities, js_getNotations, - getNotations, js_getPublicId, getPublicId, js_getSystemId, - getSystemId, js_getInternalSubset, getInternalSubset, DocumentType, - castToDocumentType, gTypeDocumentType) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"name\"]" js_getName :: - DocumentType -> IO JSString - --- | -getName :: - (MonadIO m, FromJSString result) => DocumentType -> m result -getName self = liftIO (fromJSString <$> (js_getName (self))) - -foreign import javascript unsafe "$1[\"entities\"]" js_getEntities - :: DocumentType -> IO (Nullable NamedNodeMap) - --- | -getEntities :: - (MonadIO m) => DocumentType -> m (Maybe NamedNodeMap) -getEntities self - = liftIO (nullableToMaybe <$> (js_getEntities (self))) - -foreign import javascript unsafe "$1[\"notations\"]" - js_getNotations :: DocumentType -> IO (Nullable NamedNodeMap) - --- | -getNotations :: - (MonadIO m) => DocumentType -> m (Maybe NamedNodeMap) -getNotations self - = liftIO (nullableToMaybe <$> (js_getNotations (self))) - -foreign import javascript unsafe "$1[\"publicId\"]" js_getPublicId - :: DocumentType -> IO (Nullable JSString) - --- | -getPublicId :: - (MonadIO m, FromJSString result) => - DocumentType -> m (Maybe result) -getPublicId self - = liftIO (fromMaybeJSString <$> (js_getPublicId (self))) - -foreign import javascript unsafe "$1[\"systemId\"]" js_getSystemId - :: DocumentType -> IO (Nullable JSString) - --- | -getSystemId :: - (MonadIO m, FromJSString result) => - DocumentType -> m (Maybe result) -getSystemId self - = liftIO (fromMaybeJSString <$> (js_getSystemId (self))) - -foreign import javascript unsafe "$1[\"internalSubset\"]" - js_getInternalSubset :: DocumentType -> IO (Nullable JSString) - --- | -getInternalSubset :: - (MonadIO m, FromJSString result) => - DocumentType -> m (Maybe result) -getInternalSubset self - = liftIO (fromMaybeJSString <$> (js_getInternalSubset (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/DynamicsCompressorNode.hs b/src/GHCJS/DOM/JSFFI/Generated/DynamicsCompressorNode.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/DynamicsCompressorNode.hs +++ /dev/null @@ -1,74 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.DynamicsCompressorNode - (js_getThreshold, getThreshold, js_getKnee, getKnee, js_getRatio, - getRatio, js_getReduction, getReduction, js_getAttack, getAttack, - js_getRelease, getRelease, DynamicsCompressorNode, - castToDynamicsCompressorNode, gTypeDynamicsCompressorNode) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"threshold\"]" - js_getThreshold :: - DynamicsCompressorNode -> IO (Nullable AudioParam) - --- | -getThreshold :: - (MonadIO m) => DynamicsCompressorNode -> m (Maybe AudioParam) -getThreshold self - = liftIO (nullableToMaybe <$> (js_getThreshold (self))) - -foreign import javascript unsafe "$1[\"knee\"]" js_getKnee :: - DynamicsCompressorNode -> IO (Nullable AudioParam) - --- | -getKnee :: - (MonadIO m) => DynamicsCompressorNode -> m (Maybe AudioParam) -getKnee self = liftIO (nullableToMaybe <$> (js_getKnee (self))) - -foreign import javascript unsafe "$1[\"ratio\"]" js_getRatio :: - DynamicsCompressorNode -> IO (Nullable AudioParam) - --- | -getRatio :: - (MonadIO m) => DynamicsCompressorNode -> m (Maybe AudioParam) -getRatio self = liftIO (nullableToMaybe <$> (js_getRatio (self))) - -foreign import javascript unsafe "$1[\"reduction\"]" - js_getReduction :: - DynamicsCompressorNode -> IO (Nullable AudioParam) - --- | -getReduction :: - (MonadIO m) => DynamicsCompressorNode -> m (Maybe AudioParam) -getReduction self - = liftIO (nullableToMaybe <$> (js_getReduction (self))) - -foreign import javascript unsafe "$1[\"attack\"]" js_getAttack :: - DynamicsCompressorNode -> IO (Nullable AudioParam) - --- | -getAttack :: - (MonadIO m) => DynamicsCompressorNode -> m (Maybe AudioParam) -getAttack self = liftIO (nullableToMaybe <$> (js_getAttack (self))) - -foreign import javascript unsafe "$1[\"release\"]" js_getRelease :: - DynamicsCompressorNode -> IO (Nullable AudioParam) - --- | -getRelease :: - (MonadIO m) => DynamicsCompressorNode -> m (Maybe AudioParam) -getRelease self - = liftIO (nullableToMaybe <$> (js_getRelease (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/EXTBlendMinMax.hs b/src/GHCJS/DOM/JSFFI/Generated/EXTBlendMinMax.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/EXTBlendMinMax.hs +++ /dev/null @@ -1,21 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.EXTBlendMinMax - (pattern MIN_EXT, pattern MAX_EXT, EXTBlendMinMax, - castToEXTBlendMinMax, gTypeEXTBlendMinMax) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums -pattern MIN_EXT = 32775 -pattern MAX_EXT = 32776 diff --git a/src/GHCJS/DOM/JSFFI/Generated/EXTTextureFilterAnisotropic.hs b/src/GHCJS/DOM/JSFFI/Generated/EXTTextureFilterAnisotropic.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/EXTTextureFilterAnisotropic.hs +++ /dev/null @@ -1,23 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.EXTTextureFilterAnisotropic - (pattern TEXTURE_MAX_ANISOTROPY_EXT, - pattern MAX_TEXTURE_MAX_ANISOTROPY_EXT, - EXTTextureFilterAnisotropic, castToEXTTextureFilterAnisotropic, - gTypeEXTTextureFilterAnisotropic) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums -pattern TEXTURE_MAX_ANISOTROPY_EXT = 34046 -pattern MAX_TEXTURE_MAX_ANISOTROPY_EXT = 34047 diff --git a/src/GHCJS/DOM/JSFFI/Generated/EXTsRGB.hs b/src/GHCJS/DOM/JSFFI/Generated/EXTsRGB.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/EXTsRGB.hs +++ /dev/null @@ -1,25 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.EXTsRGB - (pattern SRGB_EXT, pattern SRGB_ALPHA_EXT, - pattern SRGB8_ALPHA8_EXT, - pattern FRAMEBUFFER_ATTACHMENT_COLOR_ENCODING_EXT, EXTsRGB, - castToEXTsRGB, gTypeEXTsRGB) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums -pattern SRGB_EXT = 35904 -pattern SRGB_ALPHA_EXT = 35906 -pattern SRGB8_ALPHA8_EXT = 35907 -pattern FRAMEBUFFER_ATTACHMENT_COLOR_ENCODING_EXT = 33296 diff --git a/src/GHCJS/DOM/JSFFI/Generated/Element.hs b/src/GHCJS/DOM/JSFFI/Generated/Element.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/Element.hs +++ /dev/null @@ -1,1045 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.Element - (js_getAttribute, getAttribute, js_setAttribute, setAttribute, - js_removeAttribute, removeAttribute, js_getAttributeNode, - getAttributeNode, js_setAttributeNode, setAttributeNode, - js_removeAttributeNode, removeAttributeNode, - js_getElementsByTagName, getElementsByTagName, js_hasAttributes, - hasAttributes, js_getAttributeNS, getAttributeNS, - js_setAttributeNS, setAttributeNS, js_removeAttributeNS, - removeAttributeNS, js_getElementsByTagNameNS, - getElementsByTagNameNS, js_getAttributeNodeNS, getAttributeNodeNS, - js_setAttributeNodeNS, setAttributeNodeNS, js_hasAttribute, - hasAttribute, js_hasAttributeNS, hasAttributeNS, js_focus, focus, - js_blur, blur, js_scrollIntoView, scrollIntoView, - js_scrollIntoViewIfNeeded, scrollIntoViewIfNeeded, - js_scrollByLines, scrollByLines, js_scrollByPages, scrollByPages, - js_getElementsByClassName, getElementsByClassName, - js_querySelector, querySelector, js_querySelectorAll, - querySelectorAll, js_matches, matches, js_closest, closest, - js_webkitMatchesSelector, webkitMatchesSelector, js_getClientRects, - getClientRects, js_getBoundingClientRect, getBoundingClientRect, - js_webkitRequestFullScreen, webkitRequestFullScreen, - js_webkitRequestFullscreen, webkitRequestFullscreen, - js_requestPointerLock, requestPointerLock, - js_webkitGetRegionFlowRanges, webkitGetRegionFlowRanges, - pattern ALLOW_KEYBOARD_INPUT, js_getTagName, getTagName, - js_getAttributes, getAttributes, js_getStyle, getStyle, js_setId, - setId, js_getId, getId, js_getOffsetLeft, getOffsetLeft, - js_getOffsetTop, getOffsetTop, js_getOffsetWidth, getOffsetWidth, - js_getOffsetHeight, getOffsetHeight, js_getClientLeft, - getClientLeft, js_getClientTop, getClientTop, js_getClientWidth, - getClientWidth, js_getClientHeight, getClientHeight, - js_setScrollLeft, setScrollLeft, js_getScrollLeft, getScrollLeft, - js_setScrollTop, setScrollTop, js_getScrollTop, getScrollTop, - js_getScrollWidth, getScrollWidth, js_getScrollHeight, - getScrollHeight, js_getOffsetParent, getOffsetParent, - js_setInnerHTML, setInnerHTML, js_getInnerHTML, getInnerHTML, - js_setOuterHTML, setOuterHTML, js_getOuterHTML, getOuterHTML, - js_setClassName, setClassName, js_getClassName, getClassName, - js_getClassList, getClassList, js_getDataset, getDataset, - js_getFirstElementChild, getFirstElementChild, - js_getLastElementChild, getLastElementChild, - js_getPreviousElementSibling, getPreviousElementSibling, - js_getNextElementSibling, getNextElementSibling, - js_getChildElementCount, getChildElementCount, js_setUiactions, - setUiactions, js_getUiactions, getUiactions, - js_getWebkitRegionOverset, getWebkitRegionOverset, abort, - blurEvent, change, click, contextMenu, dblClick, drag, dragEnd, - dragEnter, dragLeave, dragOver, dragStart, drop, error, focusEvent, - input, invalid, keyDown, keyPress, keyUp, load, mouseDown, - mouseEnter, mouseLeave, mouseMove, mouseOut, mouseOver, mouseUp, - mouseWheel, scroll, select, submit, wheel, beforeCut, cut, - beforeCopy, copy, beforePaste, paste, reset, search, selectStart, - touchStart, touchMove, touchEnd, touchCancel, - webKitFullscreenChange, webKitFullscreenError, - webKitWillRevealBottom, webKitWillRevealLeft, - webKitWillRevealRight, webKitWillRevealTop, Element, castToElement, - gTypeElement, IsElement, toElement) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"getAttribute\"]($2)" - js_getAttribute :: Element -> JSString -> IO (Nullable JSString) - --- | -getAttribute :: - (MonadIO m, IsElement self, ToJSString name, - FromJSString result) => - self -> name -> m (Maybe result) -getAttribute self name - = liftIO - (fromMaybeJSString <$> - (js_getAttribute (toElement self) (toJSString name))) - -foreign import javascript unsafe "$1[\"setAttribute\"]($2, $3)" - js_setAttribute :: Element -> JSString -> JSString -> IO () - --- | -setAttribute :: - (MonadIO m, IsElement self, ToJSString name, ToJSString value) => - self -> name -> value -> m () -setAttribute self name value - = liftIO - (js_setAttribute (toElement self) (toJSString name) - (toJSString value)) - -foreign import javascript unsafe "$1[\"removeAttribute\"]($2)" - js_removeAttribute :: Element -> JSString -> IO () - --- | -removeAttribute :: - (MonadIO m, IsElement self, ToJSString name) => - self -> name -> m () -removeAttribute self name - = liftIO (js_removeAttribute (toElement self) (toJSString name)) - -foreign import javascript unsafe "$1[\"getAttributeNode\"]($2)" - js_getAttributeNode :: Element -> JSString -> IO (Nullable Attr) - --- | -getAttributeNode :: - (MonadIO m, IsElement self, ToJSString name) => - self -> name -> m (Maybe Attr) -getAttributeNode self name - = liftIO - (nullableToMaybe <$> - (js_getAttributeNode (toElement self) (toJSString name))) - -foreign import javascript unsafe "$1[\"setAttributeNode\"]($2)" - js_setAttributeNode :: - Element -> Nullable Attr -> IO (Nullable Attr) - --- | -setAttributeNode :: - (MonadIO m, IsElement self) => self -> Maybe Attr -> m (Maybe Attr) -setAttributeNode self newAttr - = liftIO - (nullableToMaybe <$> - (js_setAttributeNode (toElement self) (maybeToNullable newAttr))) - -foreign import javascript unsafe "$1[\"removeAttributeNode\"]($2)" - js_removeAttributeNode :: - Element -> Nullable Attr -> IO (Nullable Attr) - --- | -removeAttributeNode :: - (MonadIO m, IsElement self) => self -> Maybe Attr -> m (Maybe Attr) -removeAttributeNode self oldAttr - = liftIO - (nullableToMaybe <$> - (js_removeAttributeNode (toElement self) - (maybeToNullable oldAttr))) - -foreign import javascript unsafe "$1[\"getElementsByTagName\"]($2)" - js_getElementsByTagName :: - Element -> JSString -> IO (Nullable NodeList) - --- | -getElementsByTagName :: - (MonadIO m, IsElement self, ToJSString name) => - self -> name -> m (Maybe NodeList) -getElementsByTagName self name - = liftIO - (nullableToMaybe <$> - (js_getElementsByTagName (toElement self) (toJSString name))) - -foreign import javascript unsafe - "($1[\"hasAttributes\"]() ? 1 : 0)" js_hasAttributes :: - Element -> IO Bool - --- | -hasAttributes :: (MonadIO m, IsElement self) => self -> m Bool -hasAttributes self = liftIO (js_hasAttributes (toElement self)) - -foreign import javascript unsafe "$1[\"getAttributeNS\"]($2, $3)" - js_getAttributeNS :: - Element -> Nullable JSString -> JSString -> IO JSString - --- | -getAttributeNS :: - (MonadIO m, IsElement self, ToJSString namespaceURI, - ToJSString localName, FromJSString result) => - self -> Maybe namespaceURI -> localName -> m result -getAttributeNS self namespaceURI localName - = liftIO - (fromJSString <$> - (js_getAttributeNS (toElement self) (toMaybeJSString namespaceURI) - (toJSString localName))) - -foreign import javascript unsafe - "$1[\"setAttributeNS\"]($2, $3, $4)" js_setAttributeNS :: - Element -> Nullable JSString -> JSString -> JSString -> IO () - --- | -setAttributeNS :: - (MonadIO m, IsElement self, ToJSString namespaceURI, - ToJSString qualifiedName, ToJSString value) => - self -> Maybe namespaceURI -> qualifiedName -> value -> m () -setAttributeNS self namespaceURI qualifiedName value - = liftIO - (js_setAttributeNS (toElement self) (toMaybeJSString namespaceURI) - (toJSString qualifiedName) - (toJSString value)) - -foreign import javascript unsafe - "$1[\"removeAttributeNS\"]($2, $3)" js_removeAttributeNS :: - Element -> Nullable JSString -> JSString -> IO () - --- | -removeAttributeNS :: - (MonadIO m, IsElement self, ToJSString namespaceURI, - ToJSString localName) => - self -> Maybe namespaceURI -> localName -> m () -removeAttributeNS self namespaceURI localName - = liftIO - (js_removeAttributeNS (toElement self) - (toMaybeJSString namespaceURI) - (toJSString localName)) - -foreign import javascript unsafe - "$1[\"getElementsByTagNameNS\"]($2,\n$3)" js_getElementsByTagNameNS - :: - Element -> Nullable JSString -> JSString -> IO (Nullable NodeList) - --- | -getElementsByTagNameNS :: - (MonadIO m, IsElement self, ToJSString namespaceURI, - ToJSString localName) => - self -> Maybe namespaceURI -> localName -> m (Maybe NodeList) -getElementsByTagNameNS self namespaceURI localName - = liftIO - (nullableToMaybe <$> - (js_getElementsByTagNameNS (toElement self) - (toMaybeJSString namespaceURI) - (toJSString localName))) - -foreign import javascript unsafe - "$1[\"getAttributeNodeNS\"]($2, $3)" js_getAttributeNodeNS :: - Element -> Nullable JSString -> JSString -> IO (Nullable Attr) - --- | -getAttributeNodeNS :: - (MonadIO m, IsElement self, ToJSString namespaceURI, - ToJSString localName) => - self -> Maybe namespaceURI -> localName -> m (Maybe Attr) -getAttributeNodeNS self namespaceURI localName - = liftIO - (nullableToMaybe <$> - (js_getAttributeNodeNS (toElement self) - (toMaybeJSString namespaceURI) - (toJSString localName))) - -foreign import javascript unsafe "$1[\"setAttributeNodeNS\"]($2)" - js_setAttributeNodeNS :: - Element -> Nullable Attr -> IO (Nullable Attr) - --- | -setAttributeNodeNS :: - (MonadIO m, IsElement self) => self -> Maybe Attr -> m (Maybe Attr) -setAttributeNodeNS self newAttr - = liftIO - (nullableToMaybe <$> - (js_setAttributeNodeNS (toElement self) (maybeToNullable newAttr))) - -foreign import javascript unsafe - "($1[\"hasAttribute\"]($2) ? 1 : 0)" js_hasAttribute :: - Element -> JSString -> IO Bool - --- | -hasAttribute :: - (MonadIO m, IsElement self, ToJSString name) => - self -> name -> m Bool -hasAttribute self name - = liftIO (js_hasAttribute (toElement self) (toJSString name)) - -foreign import javascript unsafe - "($1[\"hasAttributeNS\"]($2,\n$3) ? 1 : 0)" js_hasAttributeNS :: - Element -> Nullable JSString -> JSString -> IO Bool - --- | -hasAttributeNS :: - (MonadIO m, IsElement self, ToJSString namespaceURI, - ToJSString localName) => - self -> Maybe namespaceURI -> localName -> m Bool -hasAttributeNS self namespaceURI localName - = liftIO - (js_hasAttributeNS (toElement self) (toMaybeJSString namespaceURI) - (toJSString localName)) - -foreign import javascript unsafe "$1[\"focus\"]()" js_focus :: - Element -> IO () - --- | -focus :: (MonadIO m, IsElement self) => self -> m () -focus self = liftIO (js_focus (toElement self)) - -foreign import javascript unsafe "$1[\"blur\"]()" js_blur :: - Element -> IO () - --- | -blur :: (MonadIO m, IsElement self) => self -> m () -blur self = liftIO (js_blur (toElement self)) - -foreign import javascript unsafe "$1[\"scrollIntoView\"]($2)" - js_scrollIntoView :: Element -> Bool -> IO () - --- | -scrollIntoView :: - (MonadIO m, IsElement self) => self -> Bool -> m () -scrollIntoView self alignWithTop - = liftIO (js_scrollIntoView (toElement self) alignWithTop) - -foreign import javascript unsafe - "$1[\"scrollIntoViewIfNeeded\"]($2)" js_scrollIntoViewIfNeeded :: - Element -> Bool -> IO () - --- | -scrollIntoViewIfNeeded :: - (MonadIO m, IsElement self) => self -> Bool -> m () -scrollIntoViewIfNeeded self centerIfNeeded - = liftIO - (js_scrollIntoViewIfNeeded (toElement self) centerIfNeeded) - -foreign import javascript unsafe "$1[\"scrollByLines\"]($2)" - js_scrollByLines :: Element -> Int -> IO () - --- | -scrollByLines :: (MonadIO m, IsElement self) => self -> Int -> m () -scrollByLines self lines - = liftIO (js_scrollByLines (toElement self) lines) - -foreign import javascript unsafe "$1[\"scrollByPages\"]($2)" - js_scrollByPages :: Element -> Int -> IO () - --- | -scrollByPages :: (MonadIO m, IsElement self) => self -> Int -> m () -scrollByPages self pages - = liftIO (js_scrollByPages (toElement self) pages) - -foreign import javascript unsafe - "$1[\"getElementsByClassName\"]($2)" js_getElementsByClassName :: - Element -> JSString -> IO (Nullable NodeList) - --- | -getElementsByClassName :: - (MonadIO m, IsElement self, ToJSString name) => - self -> name -> m (Maybe NodeList) -getElementsByClassName self name - = liftIO - (nullableToMaybe <$> - (js_getElementsByClassName (toElement self) (toJSString name))) - -foreign import javascript unsafe "$1[\"querySelector\"]($2)" - js_querySelector :: Element -> JSString -> IO (Nullable Element) - --- | -querySelector :: - (MonadIO m, IsElement self, ToJSString selectors) => - self -> selectors -> m (Maybe Element) -querySelector self selectors - = liftIO - (nullableToMaybe <$> - (js_querySelector (toElement self) (toJSString selectors))) - -foreign import javascript unsafe "$1[\"querySelectorAll\"]($2)" - js_querySelectorAll :: - Element -> JSString -> IO (Nullable NodeList) - --- | -querySelectorAll :: - (MonadIO m, IsElement self, ToJSString selectors) => - self -> selectors -> m (Maybe NodeList) -querySelectorAll self selectors - = liftIO - (nullableToMaybe <$> - (js_querySelectorAll (toElement self) (toJSString selectors))) - -foreign import javascript unsafe "($1[\"matches\"]($2) ? 1 : 0)" - js_matches :: Element -> JSString -> IO Bool - --- | -matches :: - (MonadIO m, IsElement self, ToJSString selectors) => - self -> selectors -> m Bool -matches self selectors - = liftIO (js_matches (toElement self) (toJSString selectors)) - -foreign import javascript unsafe "$1[\"closest\"]($2)" js_closest - :: Element -> JSString -> IO (Nullable Element) - --- | -closest :: - (MonadIO m, IsElement self, ToJSString selectors) => - self -> selectors -> m (Maybe Element) -closest self selectors - = liftIO - (nullableToMaybe <$> - (js_closest (toElement self) (toJSString selectors))) - -foreign import javascript unsafe - "($1[\"webkitMatchesSelector\"]($2) ? 1 : 0)" - js_webkitMatchesSelector :: Element -> JSString -> IO Bool - --- | -webkitMatchesSelector :: - (MonadIO m, IsElement self, ToJSString selectors) => - self -> selectors -> m Bool -webkitMatchesSelector self selectors - = liftIO - (js_webkitMatchesSelector (toElement self) (toJSString selectors)) - -foreign import javascript unsafe "$1[\"getClientRects\"]()" - js_getClientRects :: Element -> IO (Nullable ClientRectList) - --- | -getClientRects :: - (MonadIO m, IsElement self) => self -> m (Maybe ClientRectList) -getClientRects self - = liftIO (nullableToMaybe <$> (js_getClientRects (toElement self))) - -foreign import javascript unsafe "$1[\"getBoundingClientRect\"]()" - js_getBoundingClientRect :: Element -> IO (Nullable ClientRect) - --- | -getBoundingClientRect :: - (MonadIO m, IsElement self) => self -> m (Maybe ClientRect) -getBoundingClientRect self - = liftIO - (nullableToMaybe <$> (js_getBoundingClientRect (toElement self))) - -foreign import javascript unsafe - "$1[\"webkitRequestFullScreen\"]($2)" js_webkitRequestFullScreen :: - Element -> Word -> IO () - --- | -webkitRequestFullScreen :: - (MonadIO m, IsElement self) => self -> Word -> m () -webkitRequestFullScreen self flags - = liftIO (js_webkitRequestFullScreen (toElement self) flags) - -foreign import javascript unsafe - "$1[\"webkitRequestFullscreen\"]()" js_webkitRequestFullscreen :: - Element -> IO () - --- | -webkitRequestFullscreen :: - (MonadIO m, IsElement self) => self -> m () -webkitRequestFullscreen self - = liftIO (js_webkitRequestFullscreen (toElement self)) - -foreign import javascript unsafe "$1[\"requestPointerLock\"]()" - js_requestPointerLock :: Element -> IO () - --- | -requestPointerLock :: (MonadIO m, IsElement self) => self -> m () -requestPointerLock self - = liftIO (js_requestPointerLock (toElement self)) - -foreign import javascript unsafe - "$1[\"webkitGetRegionFlowRanges\"]()" js_webkitGetRegionFlowRanges - :: Element -> IO JSVal - --- | -webkitGetRegionFlowRanges :: - (MonadIO m, IsElement self) => self -> m [Maybe Range] -webkitGetRegionFlowRanges self - = liftIO - ((js_webkitGetRegionFlowRanges (toElement self)) >>= - fromJSValUnchecked) -pattern ALLOW_KEYBOARD_INPUT = 1 - -foreign import javascript unsafe "$1[\"tagName\"]" js_getTagName :: - Element -> IO (Nullable JSString) - --- | -getTagName :: - (MonadIO m, IsElement self, FromJSString result) => - self -> m (Maybe result) -getTagName self - = liftIO (fromMaybeJSString <$> (js_getTagName (toElement self))) - -foreign import javascript unsafe "$1[\"attributes\"]" - js_getAttributes :: Element -> IO (Nullable NamedNodeMap) - --- | -getAttributes :: - (MonadIO m, IsElement self) => self -> m (Maybe NamedNodeMap) -getAttributes self - = liftIO (nullableToMaybe <$> (js_getAttributes (toElement self))) - -foreign import javascript unsafe "$1[\"style\"]" js_getStyle :: - Element -> IO (Nullable CSSStyleDeclaration) - --- | -getStyle :: - (MonadIO m, IsElement self) => - self -> m (Maybe CSSStyleDeclaration) -getStyle self - = liftIO (nullableToMaybe <$> (js_getStyle (toElement self))) - -foreign import javascript unsafe "$1[\"id\"] = $2;" js_setId :: - Element -> JSString -> IO () - --- | -setId :: - (MonadIO m, IsElement self, ToJSString val) => self -> val -> m () -setId self val - = liftIO (js_setId (toElement self) (toJSString val)) - -foreign import javascript unsafe "$1[\"id\"]" js_getId :: - Element -> IO JSString - --- | -getId :: - (MonadIO m, IsElement self, FromJSString result) => - self -> m result -getId self = liftIO (fromJSString <$> (js_getId (toElement self))) - -foreign import javascript unsafe "$1[\"offsetLeft\"]" - js_getOffsetLeft :: Element -> IO Double - --- | -getOffsetLeft :: (MonadIO m, IsElement self) => self -> m Double -getOffsetLeft self = liftIO (js_getOffsetLeft (toElement self)) - -foreign import javascript unsafe "$1[\"offsetTop\"]" - js_getOffsetTop :: Element -> IO Double - --- | -getOffsetTop :: (MonadIO m, IsElement self) => self -> m Double -getOffsetTop self = liftIO (js_getOffsetTop (toElement self)) - -foreign import javascript unsafe "$1[\"offsetWidth\"]" - js_getOffsetWidth :: Element -> IO Double - --- | -getOffsetWidth :: (MonadIO m, IsElement self) => self -> m Double -getOffsetWidth self = liftIO (js_getOffsetWidth (toElement self)) - -foreign import javascript unsafe "$1[\"offsetHeight\"]" - js_getOffsetHeight :: Element -> IO Double - --- | -getOffsetHeight :: (MonadIO m, IsElement self) => self -> m Double -getOffsetHeight self = liftIO (js_getOffsetHeight (toElement self)) - -foreign import javascript unsafe "$1[\"clientLeft\"]" - js_getClientLeft :: Element -> IO Double - --- | -getClientLeft :: (MonadIO m, IsElement self) => self -> m Double -getClientLeft self = liftIO (js_getClientLeft (toElement self)) - -foreign import javascript unsafe "$1[\"clientTop\"]" - js_getClientTop :: Element -> IO Double - --- | -getClientTop :: (MonadIO m, IsElement self) => self -> m Double -getClientTop self = liftIO (js_getClientTop (toElement self)) - -foreign import javascript unsafe "$1[\"clientWidth\"]" - js_getClientWidth :: Element -> IO Double - --- | -getClientWidth :: (MonadIO m, IsElement self) => self -> m Double -getClientWidth self = liftIO (js_getClientWidth (toElement self)) - -foreign import javascript unsafe "$1[\"clientHeight\"]" - js_getClientHeight :: Element -> IO Double - --- | -getClientHeight :: (MonadIO m, IsElement self) => self -> m Double -getClientHeight self = liftIO (js_getClientHeight (toElement self)) - -foreign import javascript unsafe "$1[\"scrollLeft\"] = $2;" - js_setScrollLeft :: Element -> Int -> IO () - --- | -setScrollLeft :: (MonadIO m, IsElement self) => self -> Int -> m () -setScrollLeft self val - = liftIO (js_setScrollLeft (toElement self) val) - -foreign import javascript unsafe "$1[\"scrollLeft\"]" - js_getScrollLeft :: Element -> IO Int - --- | -getScrollLeft :: (MonadIO m, IsElement self) => self -> m Int -getScrollLeft self = liftIO (js_getScrollLeft (toElement self)) - -foreign import javascript unsafe "$1[\"scrollTop\"] = $2;" - js_setScrollTop :: Element -> Int -> IO () - --- | -setScrollTop :: (MonadIO m, IsElement self) => self -> Int -> m () -setScrollTop self val - = liftIO (js_setScrollTop (toElement self) val) - -foreign import javascript unsafe "$1[\"scrollTop\"]" - js_getScrollTop :: Element -> IO Int - --- | -getScrollTop :: (MonadIO m, IsElement self) => self -> m Int -getScrollTop self = liftIO (js_getScrollTop (toElement self)) - -foreign import javascript unsafe "$1[\"scrollWidth\"]" - js_getScrollWidth :: Element -> IO Int - --- | -getScrollWidth :: (MonadIO m, IsElement self) => self -> m Int -getScrollWidth self = liftIO (js_getScrollWidth (toElement self)) - -foreign import javascript unsafe "$1[\"scrollHeight\"]" - js_getScrollHeight :: Element -> IO Int - --- | -getScrollHeight :: (MonadIO m, IsElement self) => self -> m Int -getScrollHeight self = liftIO (js_getScrollHeight (toElement self)) - -foreign import javascript unsafe "$1[\"offsetParent\"]" - js_getOffsetParent :: Element -> IO (Nullable Element) - --- | -getOffsetParent :: - (MonadIO m, IsElement self) => self -> m (Maybe Element) -getOffsetParent self - = liftIO - (nullableToMaybe <$> (js_getOffsetParent (toElement self))) - -foreign import javascript unsafe "$1[\"innerHTML\"] = $2;" - js_setInnerHTML :: Element -> Nullable JSString -> IO () - --- | -setInnerHTML :: - (MonadIO m, IsElement self, ToJSString val) => - self -> Maybe val -> m () -setInnerHTML self val - = liftIO (js_setInnerHTML (toElement self) (toMaybeJSString val)) - -foreign import javascript unsafe "$1[\"innerHTML\"]" - js_getInnerHTML :: Element -> IO (Nullable JSString) - --- | -getInnerHTML :: - (MonadIO m, IsElement self, FromJSString result) => - self -> m (Maybe result) -getInnerHTML self - = liftIO (fromMaybeJSString <$> (js_getInnerHTML (toElement self))) - -foreign import javascript unsafe "$1[\"outerHTML\"] = $2;" - js_setOuterHTML :: Element -> Nullable JSString -> IO () - --- | -setOuterHTML :: - (MonadIO m, IsElement self, ToJSString val) => - self -> Maybe val -> m () -setOuterHTML self val - = liftIO (js_setOuterHTML (toElement self) (toMaybeJSString val)) - -foreign import javascript unsafe "$1[\"outerHTML\"]" - js_getOuterHTML :: Element -> IO (Nullable JSString) - --- | -getOuterHTML :: - (MonadIO m, IsElement self, FromJSString result) => - self -> m (Maybe result) -getOuterHTML self - = liftIO (fromMaybeJSString <$> (js_getOuterHTML (toElement self))) - -foreign import javascript unsafe "$1[\"className\"] = $2;" - js_setClassName :: Element -> JSString -> IO () - --- | -setClassName :: - (MonadIO m, IsElement self, ToJSString val) => self -> val -> m () -setClassName self val - = liftIO (js_setClassName (toElement self) (toJSString val)) - -foreign import javascript unsafe "$1[\"className\"]" - js_getClassName :: Element -> IO JSString - --- | -getClassName :: - (MonadIO m, IsElement self, FromJSString result) => - self -> m result -getClassName self - = liftIO (fromJSString <$> (js_getClassName (toElement self))) - -foreign import javascript unsafe "$1[\"classList\"]" - js_getClassList :: Element -> IO (Nullable DOMTokenList) - --- | -getClassList :: - (MonadIO m, IsElement self) => self -> m (Maybe DOMTokenList) -getClassList self - = liftIO (nullableToMaybe <$> (js_getClassList (toElement self))) - -foreign import javascript unsafe "$1[\"dataset\"]" js_getDataset :: - Element -> IO (Nullable DOMStringMap) - --- | -getDataset :: - (MonadIO m, IsElement self) => self -> m (Maybe DOMStringMap) -getDataset self - = liftIO (nullableToMaybe <$> (js_getDataset (toElement self))) - -foreign import javascript unsafe "$1[\"firstElementChild\"]" - js_getFirstElementChild :: Element -> IO (Nullable Element) - --- | -getFirstElementChild :: - (MonadIO m, IsElement self) => self -> m (Maybe Element) -getFirstElementChild self - = liftIO - (nullableToMaybe <$> (js_getFirstElementChild (toElement self))) - -foreign import javascript unsafe "$1[\"lastElementChild\"]" - js_getLastElementChild :: Element -> IO (Nullable Element) - --- | -getLastElementChild :: - (MonadIO m, IsElement self) => self -> m (Maybe Element) -getLastElementChild self - = liftIO - (nullableToMaybe <$> (js_getLastElementChild (toElement self))) - -foreign import javascript unsafe "$1[\"previousElementSibling\"]" - js_getPreviousElementSibling :: Element -> IO (Nullable Element) - --- | -getPreviousElementSibling :: - (MonadIO m, IsElement self) => self -> m (Maybe Element) -getPreviousElementSibling self - = liftIO - (nullableToMaybe <$> - (js_getPreviousElementSibling (toElement self))) - -foreign import javascript unsafe "$1[\"nextElementSibling\"]" - js_getNextElementSibling :: Element -> IO (Nullable Element) - --- | -getNextElementSibling :: - (MonadIO m, IsElement self) => self -> m (Maybe Element) -getNextElementSibling self - = liftIO - (nullableToMaybe <$> (js_getNextElementSibling (toElement self))) - -foreign import javascript unsafe "$1[\"childElementCount\"]" - js_getChildElementCount :: Element -> IO Word - --- | -getChildElementCount :: - (MonadIO m, IsElement self) => self -> m Word -getChildElementCount self - = liftIO (js_getChildElementCount (toElement self)) - -foreign import javascript unsafe "$1[\"uiactions\"] = $2;" - js_setUiactions :: Element -> JSString -> IO () - --- | -setUiactions :: - (MonadIO m, IsElement self, ToJSString val) => self -> val -> m () -setUiactions self val - = liftIO (js_setUiactions (toElement self) (toJSString val)) - -foreign import javascript unsafe "$1[\"uiactions\"]" - js_getUiactions :: Element -> IO JSString - --- | -getUiactions :: - (MonadIO m, IsElement self, FromJSString result) => - self -> m result -getUiactions self - = liftIO (fromJSString <$> (js_getUiactions (toElement self))) - -foreign import javascript unsafe "$1[\"webkitRegionOverset\"]" - js_getWebkitRegionOverset :: Element -> IO JSString - --- | -getWebkitRegionOverset :: - (MonadIO m, IsElement self, FromJSString result) => - self -> m result -getWebkitRegionOverset self - = liftIO - (fromJSString <$> (js_getWebkitRegionOverset (toElement self))) - --- | -abort :: - (IsElement self, IsEventTarget self) => EventName self UIEvent -abort = unsafeEventName (toJSString "abort") - --- | -blurEvent :: - (IsElement self, IsEventTarget self) => EventName self FocusEvent -blurEvent = unsafeEventName (toJSString "blur") - --- | -change :: - (IsElement self, IsEventTarget self) => EventName self Event -change = unsafeEventName (toJSString "change") - --- | -click :: - (IsElement self, IsEventTarget self) => EventName self MouseEvent -click = unsafeEventName (toJSString "click") - --- | -contextMenu :: - (IsElement self, IsEventTarget self) => EventName self MouseEvent -contextMenu = unsafeEventName (toJSString "contextmenu") - --- | -dblClick :: - (IsElement self, IsEventTarget self) => EventName self MouseEvent -dblClick = unsafeEventName (toJSString "dblclick") - --- | -drag :: - (IsElement self, IsEventTarget self) => EventName self MouseEvent -drag = unsafeEventName (toJSString "drag") - --- | -dragEnd :: - (IsElement self, IsEventTarget self) => EventName self MouseEvent -dragEnd = unsafeEventName (toJSString "dragend") - --- | -dragEnter :: - (IsElement self, IsEventTarget self) => EventName self MouseEvent -dragEnter = unsafeEventName (toJSString "dragenter") - --- | -dragLeave :: - (IsElement self, IsEventTarget self) => EventName self MouseEvent -dragLeave = unsafeEventName (toJSString "dragleave") - --- | -dragOver :: - (IsElement self, IsEventTarget self) => EventName self MouseEvent -dragOver = unsafeEventName (toJSString "dragover") - --- | -dragStart :: - (IsElement self, IsEventTarget self) => EventName self MouseEvent -dragStart = unsafeEventName (toJSString "dragstart") - --- | -drop :: - (IsElement self, IsEventTarget self) => EventName self MouseEvent -drop = unsafeEventName (toJSString "drop") - --- | -error :: - (IsElement self, IsEventTarget self) => EventName self UIEvent -error = unsafeEventName (toJSString "error") - --- | -focusEvent :: - (IsElement self, IsEventTarget self) => EventName self FocusEvent -focusEvent = unsafeEventName (toJSString "focus") - --- | -input :: - (IsElement self, IsEventTarget self) => EventName self Event -input = unsafeEventName (toJSString "input") - --- | -invalid :: - (IsElement self, IsEventTarget self) => EventName self Event -invalid = unsafeEventName (toJSString "invalid") - --- | -keyDown :: - (IsElement self, IsEventTarget self) => - EventName self KeyboardEvent -keyDown = unsafeEventName (toJSString "keydown") - --- | -keyPress :: - (IsElement self, IsEventTarget self) => - EventName self KeyboardEvent -keyPress = unsafeEventName (toJSString "keypress") - --- | -keyUp :: - (IsElement self, IsEventTarget self) => - EventName self KeyboardEvent -keyUp = unsafeEventName (toJSString "keyup") - --- | -load :: - (IsElement self, IsEventTarget self) => EventName self UIEvent -load = unsafeEventName (toJSString "load") - --- | -mouseDown :: - (IsElement self, IsEventTarget self) => EventName self MouseEvent -mouseDown = unsafeEventName (toJSString "mousedown") - --- | -mouseEnter :: - (IsElement self, IsEventTarget self) => EventName self MouseEvent -mouseEnter = unsafeEventName (toJSString "mouseenter") - --- | -mouseLeave :: - (IsElement self, IsEventTarget self) => EventName self MouseEvent -mouseLeave = unsafeEventName (toJSString "mouseleave") - --- | -mouseMove :: - (IsElement self, IsEventTarget self) => EventName self MouseEvent -mouseMove = unsafeEventName (toJSString "mousemove") - --- | -mouseOut :: - (IsElement self, IsEventTarget self) => EventName self MouseEvent -mouseOut = unsafeEventName (toJSString "mouseout") - --- | -mouseOver :: - (IsElement self, IsEventTarget self) => EventName self MouseEvent -mouseOver = unsafeEventName (toJSString "mouseover") - --- | -mouseUp :: - (IsElement self, IsEventTarget self) => EventName self MouseEvent -mouseUp = unsafeEventName (toJSString "mouseup") - --- | -mouseWheel :: - (IsElement self, IsEventTarget self) => EventName self MouseEvent -mouseWheel = unsafeEventName (toJSString "mousewheel") - --- | -scroll :: - (IsElement self, IsEventTarget self) => EventName self UIEvent -scroll = unsafeEventName (toJSString "scroll") - --- | -select :: - (IsElement self, IsEventTarget self) => EventName self UIEvent -select = unsafeEventName (toJSString "select") - --- | -submit :: - (IsElement self, IsEventTarget self) => EventName self Event -submit = unsafeEventName (toJSString "submit") - --- | -wheel :: - (IsElement self, IsEventTarget self) => EventName self WheelEvent -wheel = unsafeEventName (toJSString "wheel") - --- | -beforeCut :: - (IsElement self, IsEventTarget self) => EventName self Event -beforeCut = unsafeEventName (toJSString "beforecut") - --- | -cut :: (IsElement self, IsEventTarget self) => EventName self Event -cut = unsafeEventName (toJSString "cut") - --- | -beforeCopy :: - (IsElement self, IsEventTarget self) => EventName self Event -beforeCopy = unsafeEventName (toJSString "beforecopy") - --- | -copy :: - (IsElement self, IsEventTarget self) => EventName self Event -copy = unsafeEventName (toJSString "copy") - --- | -beforePaste :: - (IsElement self, IsEventTarget self) => EventName self Event -beforePaste = unsafeEventName (toJSString "beforepaste") - --- | -paste :: - (IsElement self, IsEventTarget self) => EventName self Event -paste = unsafeEventName (toJSString "paste") - --- | -reset :: - (IsElement self, IsEventTarget self) => EventName self Event -reset = unsafeEventName (toJSString "reset") - --- | -search :: - (IsElement self, IsEventTarget self) => EventName self Event -search = unsafeEventName (toJSString "search") - --- | -selectStart :: - (IsElement self, IsEventTarget self) => EventName self Event -selectStart = unsafeEventName (toJSString "selectstart") - --- | -touchStart :: - (IsElement self, IsEventTarget self) => EventName self TouchEvent -touchStart = unsafeEventName (toJSString "touchstart") - --- | -touchMove :: - (IsElement self, IsEventTarget self) => EventName self TouchEvent -touchMove = unsafeEventName (toJSString "touchmove") - --- | -touchEnd :: - (IsElement self, IsEventTarget self) => EventName self TouchEvent -touchEnd = unsafeEventName (toJSString "touchend") - --- | -touchCancel :: - (IsElement self, IsEventTarget self) => EventName self TouchEvent -touchCancel = unsafeEventName (toJSString "touchcancel") - --- | -webKitFullscreenChange :: - (IsElement self, IsEventTarget self) => EventName self Event -webKitFullscreenChange - = unsafeEventName (toJSString "webkitfullscreenchange") - --- | -webKitFullscreenError :: - (IsElement self, IsEventTarget self) => EventName self Event -webKitFullscreenError - = unsafeEventName (toJSString "webkitfullscreenerror") - --- | -webKitWillRevealBottom :: - (IsElement self, IsEventTarget self) => EventName self Event -webKitWillRevealBottom - = unsafeEventName (toJSString "webkitwillrevealbottom") - --- | -webKitWillRevealLeft :: - (IsElement self, IsEventTarget self) => EventName self Event -webKitWillRevealLeft - = unsafeEventName (toJSString "webkitwillrevealleft") - --- | -webKitWillRevealRight :: - (IsElement self, IsEventTarget self) => EventName self Event -webKitWillRevealRight - = unsafeEventName (toJSString "webkitwillrevealright") - --- | -webKitWillRevealTop :: - (IsElement self, IsEventTarget self) => EventName self Event -webKitWillRevealTop - = unsafeEventName (toJSString "webkitwillrevealtop") diff --git a/src/GHCJS/DOM/JSFFI/Generated/Entity.hs b/src/GHCJS/DOM/JSFFI/Generated/Entity.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/Entity.hs +++ /dev/null @@ -1,47 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.Entity - (js_getPublicId, getPublicId, js_getSystemId, getSystemId, - js_getNotationName, getNotationName, Entity, castToEntity, - gTypeEntity) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"publicId\"]" js_getPublicId - :: Entity -> IO (Nullable JSString) - --- | -getPublicId :: - (MonadIO m, FromJSString result) => Entity -> m (Maybe result) -getPublicId self - = liftIO (fromMaybeJSString <$> (js_getPublicId (self))) - -foreign import javascript unsafe "$1[\"systemId\"]" js_getSystemId - :: Entity -> IO (Nullable JSString) - --- | -getSystemId :: - (MonadIO m, FromJSString result) => Entity -> m (Maybe result) -getSystemId self - = liftIO (fromMaybeJSString <$> (js_getSystemId (self))) - -foreign import javascript unsafe "$1[\"notationName\"]" - js_getNotationName :: Entity -> IO (Nullable JSString) - --- | -getNotationName :: - (MonadIO m, FromJSString result) => Entity -> m (Maybe result) -getNotationName self - = liftIO (fromMaybeJSString <$> (js_getNotationName (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/Enums.hs b/src/GHCJS/DOM/JSFFI/Generated/Enums.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/Enums.hs +++ /dev/null @@ -1,771 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.Enums - (KeyType(..), PToJSVal, ToJSVal, PFromJSVal, FromJSVal, - js_KeyTypeSecret, js_KeyTypePublic, js_KeyTypePrivate, - KeyUsage(..), js_KeyUsageEncrypt, js_KeyUsageDecrypt, - js_KeyUsageSign, js_KeyUsageVerify, js_KeyUsageDeriveKey, - js_KeyUsageDeriveBits, js_KeyUsageWrapKey, js_KeyUsageUnwrapKey, - CanvasWindingRule(..), js_CanvasWindingRuleNonzero, - js_CanvasWindingRuleEvenodd, VideoPresentationMode(..), - js_VideoPresentationModeFullscreen, - js_VideoPresentationModeOptimized, js_VideoPresentationModeInline, - TextTrackMode(..), js_TextTrackModeDisabled, - js_TextTrackModeHidden, js_TextTrackModeShowing, TextTrackKind(..), - js_TextTrackKindSubtitles, js_TextTrackKindCaptions, - js_TextTrackKindDescriptions, js_TextTrackKindChapters, - js_TextTrackKindMetadata, DeviceType(..), js_DeviceTypeNone, - js_DeviceTypeAirplay, js_DeviceTypeTvout, MediaUIPartID(..), - js_MediaUIPartIDOptimizedFullscreenButton, - js_MediaUIPartIDOptimizedFullscreenPlaceholder, - EndOfStreamError(..), js_EndOfStreamErrorNetwork, - js_EndOfStreamErrorDecode, AppendMode(..), js_AppendModeSegments, - js_AppendModeSequence, SourceTypeEnum(..), js_SourceTypeEnumNone, - js_SourceTypeEnumCamera, js_SourceTypeEnumMicrophone, - VideoFacingModeEnum(..), js_VideoFacingModeEnumUser, - js_VideoFacingModeEnumEnvironment, js_VideoFacingModeEnumLeft, - js_VideoFacingModeEnumRight, MediaStreamTrackState(..), - js_MediaStreamTrackStateNew, js_MediaStreamTrackStateLive, - js_MediaStreamTrackStateEnded, RTCIceTransportsEnum(..), - js_RTCIceTransportsEnumNone, js_RTCIceTransportsEnumRelay, - js_RTCIceTransportsEnumAll, RTCIdentityOptionEnum(..), - js_RTCIdentityOptionEnumYes, js_RTCIdentityOptionEnumNo, - js_RTCIdentityOptionEnumIfconfigured, ReadableStreamStateType(..), - js_ReadableStreamStateTypeReadable, - js_ReadableStreamStateTypeWaiting, - js_ReadableStreamStateTypeClosed, - js_ReadableStreamStateTypeErrored, OverSampleType(..), - js_OverSampleTypeNone, js_OverSampleType2x, js_OverSampleType4x, - PageOverlayType(..), js_PageOverlayTypeView, - js_PageOverlayTypeDocument, XMLHttpRequestResponseType(..), - js_XMLHttpRequestResponseType, - js_XMLHttpRequestResponseTypeArraybuffer, - js_XMLHttpRequestResponseTypeBlob, - js_XMLHttpRequestResponseTypeDocument, - js_XMLHttpRequestResponseTypeJson, - js_XMLHttpRequestResponseTypeText) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) - -data KeyType = KeyTypeSecret - | KeyTypePublic - | KeyTypePrivate - deriving (Show, Read, Eq, Ord, Typeable) - -instance PToJSVal KeyType where - pToJSVal KeyTypeSecret = js_KeyTypeSecret - pToJSVal KeyTypePublic = js_KeyTypePublic - pToJSVal KeyTypePrivate = js_KeyTypePrivate - -instance ToJSVal KeyType where - toJSVal = return . pToJSVal - -instance PFromJSVal KeyType where - pFromJSVal x | x `js_eq` js_KeyTypeSecret = KeyTypeSecret - pFromJSVal x | x `js_eq` js_KeyTypePublic = KeyTypePublic - pFromJSVal x | x `js_eq` js_KeyTypePrivate = KeyTypePrivate - -instance FromJSVal KeyType where - fromJSValUnchecked = return . pFromJSVal - fromJSVal = return . pFromJSVal - -foreign import javascript unsafe "\"secret\"" js_KeyTypeSecret :: - JSVal - -foreign import javascript unsafe "\"public\"" js_KeyTypePublic :: - JSVal - -foreign import javascript unsafe "\"private\"" js_KeyTypePrivate :: - JSVal - -data KeyUsage = KeyUsageEncrypt - | KeyUsageDecrypt - | KeyUsageSign - | KeyUsageVerify - | KeyUsageDeriveKey - | KeyUsageDeriveBits - | KeyUsageWrapKey - | KeyUsageUnwrapKey - deriving (Show, Read, Eq, Ord, Typeable) - -instance PToJSVal KeyUsage where - pToJSVal KeyUsageEncrypt = js_KeyUsageEncrypt - pToJSVal KeyUsageDecrypt = js_KeyUsageDecrypt - pToJSVal KeyUsageSign = js_KeyUsageSign - pToJSVal KeyUsageVerify = js_KeyUsageVerify - pToJSVal KeyUsageDeriveKey = js_KeyUsageDeriveKey - pToJSVal KeyUsageDeriveBits = js_KeyUsageDeriveBits - pToJSVal KeyUsageWrapKey = js_KeyUsageWrapKey - pToJSVal KeyUsageUnwrapKey = js_KeyUsageUnwrapKey - -instance ToJSVal KeyUsage where - toJSVal = return . pToJSVal - -instance PFromJSVal KeyUsage where - pFromJSVal x | x `js_eq` js_KeyUsageEncrypt = KeyUsageEncrypt - pFromJSVal x | x `js_eq` js_KeyUsageDecrypt = KeyUsageDecrypt - pFromJSVal x | x `js_eq` js_KeyUsageSign = KeyUsageSign - pFromJSVal x | x `js_eq` js_KeyUsageVerify = KeyUsageVerify - pFromJSVal x | x `js_eq` js_KeyUsageDeriveKey = KeyUsageDeriveKey - pFromJSVal x | x `js_eq` js_KeyUsageDeriveBits = KeyUsageDeriveBits - pFromJSVal x | x `js_eq` js_KeyUsageWrapKey = KeyUsageWrapKey - pFromJSVal x | x `js_eq` js_KeyUsageUnwrapKey = KeyUsageUnwrapKey - -instance FromJSVal KeyUsage where - fromJSValUnchecked = return . pFromJSVal - fromJSVal = return . pFromJSVal - -foreign import javascript unsafe "\"encrypt\"" js_KeyUsageEncrypt - :: JSVal - -foreign import javascript unsafe "\"decrypt\"" js_KeyUsageDecrypt - :: JSVal - -foreign import javascript unsafe "\"sign\"" js_KeyUsageSign :: - JSVal - -foreign import javascript unsafe "\"verify\"" js_KeyUsageVerify :: - JSVal - -foreign import javascript unsafe "\"deriveKey\"" - js_KeyUsageDeriveKey :: JSVal - -foreign import javascript unsafe "\"deriveBits\"" - js_KeyUsageDeriveBits :: JSVal - -foreign import javascript unsafe "\"wrapKey\"" js_KeyUsageWrapKey - :: JSVal - -foreign import javascript unsafe "\"unwrapKey\"" - js_KeyUsageUnwrapKey :: JSVal - -data CanvasWindingRule = CanvasWindingRuleNonzero - | CanvasWindingRuleEvenodd - deriving (Show, Read, Eq, Ord, Typeable) - -instance PToJSVal CanvasWindingRule where - pToJSVal CanvasWindingRuleNonzero = js_CanvasWindingRuleNonzero - pToJSVal CanvasWindingRuleEvenodd = js_CanvasWindingRuleEvenodd - -instance ToJSVal CanvasWindingRule where - toJSVal = return . pToJSVal - -instance PFromJSVal CanvasWindingRule where - pFromJSVal x - | x `js_eq` js_CanvasWindingRuleNonzero = CanvasWindingRuleNonzero - pFromJSVal x - | x `js_eq` js_CanvasWindingRuleEvenodd = CanvasWindingRuleEvenodd - -instance FromJSVal CanvasWindingRule where - fromJSValUnchecked = return . pFromJSVal - fromJSVal = return . pFromJSVal - -foreign import javascript unsafe "\"nonzero\"" - js_CanvasWindingRuleNonzero :: JSVal - -foreign import javascript unsafe "\"evenodd\"" - js_CanvasWindingRuleEvenodd :: JSVal - -data VideoPresentationMode = VideoPresentationModeFullscreen - | VideoPresentationModeOptimized - | VideoPresentationModeInline - deriving (Show, Read, Eq, Ord, Typeable) - -instance PToJSVal VideoPresentationMode where - pToJSVal VideoPresentationModeFullscreen - = js_VideoPresentationModeFullscreen - pToJSVal VideoPresentationModeOptimized - = js_VideoPresentationModeOptimized - pToJSVal VideoPresentationModeInline - = js_VideoPresentationModeInline - -instance ToJSVal VideoPresentationMode where - toJSVal = return . pToJSVal - -instance PFromJSVal VideoPresentationMode where - pFromJSVal x - | x `js_eq` js_VideoPresentationModeFullscreen = - VideoPresentationModeFullscreen - pFromJSVal x - | x `js_eq` js_VideoPresentationModeOptimized = - VideoPresentationModeOptimized - pFromJSVal x - | x `js_eq` js_VideoPresentationModeInline = - VideoPresentationModeInline - -instance FromJSVal VideoPresentationMode where - fromJSValUnchecked = return . pFromJSVal - fromJSVal = return . pFromJSVal - -foreign import javascript unsafe "\"fullscreen\"" - js_VideoPresentationModeFullscreen :: JSVal - -foreign import javascript unsafe "\"optimized\"" - js_VideoPresentationModeOptimized :: JSVal - -foreign import javascript unsafe "\"inline\"" - js_VideoPresentationModeInline :: JSVal - -data TextTrackMode = TextTrackModeDisabled - | TextTrackModeHidden - | TextTrackModeShowing - deriving (Show, Read, Eq, Ord, Typeable) - -instance PToJSVal TextTrackMode where - pToJSVal TextTrackModeDisabled = js_TextTrackModeDisabled - pToJSVal TextTrackModeHidden = js_TextTrackModeHidden - pToJSVal TextTrackModeShowing = js_TextTrackModeShowing - -instance ToJSVal TextTrackMode where - toJSVal = return . pToJSVal - -instance PFromJSVal TextTrackMode where - pFromJSVal x - | x `js_eq` js_TextTrackModeDisabled = TextTrackModeDisabled - pFromJSVal x - | x `js_eq` js_TextTrackModeHidden = TextTrackModeHidden - pFromJSVal x - | x `js_eq` js_TextTrackModeShowing = TextTrackModeShowing - -instance FromJSVal TextTrackMode where - fromJSValUnchecked = return . pFromJSVal - fromJSVal = return . pFromJSVal - -foreign import javascript unsafe "\"disabled\"" - js_TextTrackModeDisabled :: JSVal - -foreign import javascript unsafe "\"hidden\"" - js_TextTrackModeHidden :: JSVal - -foreign import javascript unsafe "\"showing\"" - js_TextTrackModeShowing :: JSVal - -data TextTrackKind = TextTrackKindSubtitles - | TextTrackKindCaptions - | TextTrackKindDescriptions - | TextTrackKindChapters - | TextTrackKindMetadata - deriving (Show, Read, Eq, Ord, Typeable) - -instance PToJSVal TextTrackKind where - pToJSVal TextTrackKindSubtitles = js_TextTrackKindSubtitles - pToJSVal TextTrackKindCaptions = js_TextTrackKindCaptions - pToJSVal TextTrackKindDescriptions = js_TextTrackKindDescriptions - pToJSVal TextTrackKindChapters = js_TextTrackKindChapters - pToJSVal TextTrackKindMetadata = js_TextTrackKindMetadata - -instance ToJSVal TextTrackKind where - toJSVal = return . pToJSVal - -instance PFromJSVal TextTrackKind where - pFromJSVal x - | x `js_eq` js_TextTrackKindSubtitles = TextTrackKindSubtitles - pFromJSVal x - | x `js_eq` js_TextTrackKindCaptions = TextTrackKindCaptions - pFromJSVal x - | x `js_eq` js_TextTrackKindDescriptions = - TextTrackKindDescriptions - pFromJSVal x - | x `js_eq` js_TextTrackKindChapters = TextTrackKindChapters - pFromJSVal x - | x `js_eq` js_TextTrackKindMetadata = TextTrackKindMetadata - -instance FromJSVal TextTrackKind where - fromJSValUnchecked = return . pFromJSVal - fromJSVal = return . pFromJSVal - -foreign import javascript unsafe "\"subtitles\"" - js_TextTrackKindSubtitles :: JSVal - -foreign import javascript unsafe "\"captions\"" - js_TextTrackKindCaptions :: JSVal - -foreign import javascript unsafe "\"descriptions\"" - js_TextTrackKindDescriptions :: JSVal - -foreign import javascript unsafe "\"chapters\"" - js_TextTrackKindChapters :: JSVal - -foreign import javascript unsafe "\"metadata\"" - js_TextTrackKindMetadata :: JSVal - -data DeviceType = DeviceTypeNone - | DeviceTypeAirplay - | DeviceTypeTvout - deriving (Show, Read, Eq, Ord, Typeable) - -instance PToJSVal DeviceType where - pToJSVal DeviceTypeNone = js_DeviceTypeNone - pToJSVal DeviceTypeAirplay = js_DeviceTypeAirplay - pToJSVal DeviceTypeTvout = js_DeviceTypeTvout - -instance ToJSVal DeviceType where - toJSVal = return . pToJSVal - -instance PFromJSVal DeviceType where - pFromJSVal x | x `js_eq` js_DeviceTypeNone = DeviceTypeNone - pFromJSVal x | x `js_eq` js_DeviceTypeAirplay = DeviceTypeAirplay - pFromJSVal x | x `js_eq` js_DeviceTypeTvout = DeviceTypeTvout - -instance FromJSVal DeviceType where - fromJSValUnchecked = return . pFromJSVal - fromJSVal = return . pFromJSVal - -foreign import javascript unsafe "\"none\"" js_DeviceTypeNone :: - JSVal - -foreign import javascript unsafe "\"airplay\"" js_DeviceTypeAirplay - :: JSVal - -foreign import javascript unsafe "\"tvout\"" js_DeviceTypeTvout :: - JSVal - -data MediaUIPartID = MediaUIPartIDOptimizedFullscreenButton - | MediaUIPartIDOptimizedFullscreenPlaceholder - deriving (Show, Read, Eq, Ord, Typeable) - -instance PToJSVal MediaUIPartID where - pToJSVal MediaUIPartIDOptimizedFullscreenButton - = js_MediaUIPartIDOptimizedFullscreenButton - pToJSVal MediaUIPartIDOptimizedFullscreenPlaceholder - = js_MediaUIPartIDOptimizedFullscreenPlaceholder - -instance ToJSVal MediaUIPartID where - toJSVal = return . pToJSVal - -instance PFromJSVal MediaUIPartID where - pFromJSVal x - | x `js_eq` js_MediaUIPartIDOptimizedFullscreenButton = - MediaUIPartIDOptimizedFullscreenButton - pFromJSVal x - | x `js_eq` js_MediaUIPartIDOptimizedFullscreenPlaceholder = - MediaUIPartIDOptimizedFullscreenPlaceholder - -instance FromJSVal MediaUIPartID where - fromJSValUnchecked = return . pFromJSVal - fromJSVal = return . pFromJSVal - -foreign import javascript unsafe "\"optimized-fullscreen-button\"" - js_MediaUIPartIDOptimizedFullscreenButton :: JSVal - -foreign import javascript unsafe - "\"optimized-fullscreen-placeholder\"" - js_MediaUIPartIDOptimizedFullscreenPlaceholder :: JSVal - -data EndOfStreamError = EndOfStreamErrorNetwork - | EndOfStreamErrorDecode - deriving (Show, Read, Eq, Ord, Typeable) - -instance PToJSVal EndOfStreamError where - pToJSVal EndOfStreamErrorNetwork = js_EndOfStreamErrorNetwork - pToJSVal EndOfStreamErrorDecode = js_EndOfStreamErrorDecode - -instance ToJSVal EndOfStreamError where - toJSVal = return . pToJSVal - -instance PFromJSVal EndOfStreamError where - pFromJSVal x - | x `js_eq` js_EndOfStreamErrorNetwork = EndOfStreamErrorNetwork - pFromJSVal x - | x `js_eq` js_EndOfStreamErrorDecode = EndOfStreamErrorDecode - -instance FromJSVal EndOfStreamError where - fromJSValUnchecked = return . pFromJSVal - fromJSVal = return . pFromJSVal - -foreign import javascript unsafe "\"network\"" - js_EndOfStreamErrorNetwork :: JSVal - -foreign import javascript unsafe "\"decode\"" - js_EndOfStreamErrorDecode :: JSVal - -data AppendMode = AppendModeSegments - | AppendModeSequence - deriving (Show, Read, Eq, Ord, Typeable) - -instance PToJSVal AppendMode where - pToJSVal AppendModeSegments = js_AppendModeSegments - pToJSVal AppendModeSequence = js_AppendModeSequence - -instance ToJSVal AppendMode where - toJSVal = return . pToJSVal - -instance PFromJSVal AppendMode where - pFromJSVal x | x `js_eq` js_AppendModeSegments = AppendModeSegments - pFromJSVal x | x `js_eq` js_AppendModeSequence = AppendModeSequence - -instance FromJSVal AppendMode where - fromJSValUnchecked = return . pFromJSVal - fromJSVal = return . pFromJSVal - -foreign import javascript unsafe "\"segments\"" - js_AppendModeSegments :: JSVal - -foreign import javascript unsafe "\"sequence\"" - js_AppendModeSequence :: JSVal - -data SourceTypeEnum = SourceTypeEnumNone - | SourceTypeEnumCamera - | SourceTypeEnumMicrophone - deriving (Show, Read, Eq, Ord, Typeable) - -instance PToJSVal SourceTypeEnum where - pToJSVal SourceTypeEnumNone = js_SourceTypeEnumNone - pToJSVal SourceTypeEnumCamera = js_SourceTypeEnumCamera - pToJSVal SourceTypeEnumMicrophone = js_SourceTypeEnumMicrophone - -instance ToJSVal SourceTypeEnum where - toJSVal = return . pToJSVal - -instance PFromJSVal SourceTypeEnum where - pFromJSVal x | x `js_eq` js_SourceTypeEnumNone = SourceTypeEnumNone - pFromJSVal x - | x `js_eq` js_SourceTypeEnumCamera = SourceTypeEnumCamera - pFromJSVal x - | x `js_eq` js_SourceTypeEnumMicrophone = SourceTypeEnumMicrophone - -instance FromJSVal SourceTypeEnum where - fromJSValUnchecked = return . pFromJSVal - fromJSVal = return . pFromJSVal - -foreign import javascript unsafe "\"none\"" js_SourceTypeEnumNone - :: JSVal - -foreign import javascript unsafe "\"camera\"" - js_SourceTypeEnumCamera :: JSVal - -foreign import javascript unsafe "\"microphone\"" - js_SourceTypeEnumMicrophone :: JSVal - -data VideoFacingModeEnum = VideoFacingModeEnumUser - | VideoFacingModeEnumEnvironment - | VideoFacingModeEnumLeft - | VideoFacingModeEnumRight - deriving (Show, Read, Eq, Ord, Typeable) - -instance PToJSVal VideoFacingModeEnum where - pToJSVal VideoFacingModeEnumUser = js_VideoFacingModeEnumUser - pToJSVal VideoFacingModeEnumEnvironment - = js_VideoFacingModeEnumEnvironment - pToJSVal VideoFacingModeEnumLeft = js_VideoFacingModeEnumLeft - pToJSVal VideoFacingModeEnumRight = js_VideoFacingModeEnumRight - -instance ToJSVal VideoFacingModeEnum where - toJSVal = return . pToJSVal - -instance PFromJSVal VideoFacingModeEnum where - pFromJSVal x - | x `js_eq` js_VideoFacingModeEnumUser = VideoFacingModeEnumUser - pFromJSVal x - | x `js_eq` js_VideoFacingModeEnumEnvironment = - VideoFacingModeEnumEnvironment - pFromJSVal x - | x `js_eq` js_VideoFacingModeEnumLeft = VideoFacingModeEnumLeft - pFromJSVal x - | x `js_eq` js_VideoFacingModeEnumRight = VideoFacingModeEnumRight - -instance FromJSVal VideoFacingModeEnum where - fromJSValUnchecked = return . pFromJSVal - fromJSVal = return . pFromJSVal - -foreign import javascript unsafe "\"user\"" - js_VideoFacingModeEnumUser :: JSVal - -foreign import javascript unsafe "\"environment\"" - js_VideoFacingModeEnumEnvironment :: JSVal - -foreign import javascript unsafe "\"left\"" - js_VideoFacingModeEnumLeft :: JSVal - -foreign import javascript unsafe "\"right\"" - js_VideoFacingModeEnumRight :: JSVal - -data MediaStreamTrackState = MediaStreamTrackStateNew - | MediaStreamTrackStateLive - | MediaStreamTrackStateEnded - deriving (Show, Read, Eq, Ord, Typeable) - -instance PToJSVal MediaStreamTrackState where - pToJSVal MediaStreamTrackStateNew = js_MediaStreamTrackStateNew - pToJSVal MediaStreamTrackStateLive = js_MediaStreamTrackStateLive - pToJSVal MediaStreamTrackStateEnded = js_MediaStreamTrackStateEnded - -instance ToJSVal MediaStreamTrackState where - toJSVal = return . pToJSVal - -instance PFromJSVal MediaStreamTrackState where - pFromJSVal x - | x `js_eq` js_MediaStreamTrackStateNew = MediaStreamTrackStateNew - pFromJSVal x - | x `js_eq` js_MediaStreamTrackStateLive = - MediaStreamTrackStateLive - pFromJSVal x - | x `js_eq` js_MediaStreamTrackStateEnded = - MediaStreamTrackStateEnded - -instance FromJSVal MediaStreamTrackState where - fromJSValUnchecked = return . pFromJSVal - fromJSVal = return . pFromJSVal - -foreign import javascript unsafe "\"new\"" - js_MediaStreamTrackStateNew :: JSVal - -foreign import javascript unsafe "\"live\"" - js_MediaStreamTrackStateLive :: JSVal - -foreign import javascript unsafe "\"ended\"" - js_MediaStreamTrackStateEnded :: JSVal - -data RTCIceTransportsEnum = RTCIceTransportsEnumNone - | RTCIceTransportsEnumRelay - | RTCIceTransportsEnumAll - deriving (Show, Read, Eq, Ord, Typeable) - -instance PToJSVal RTCIceTransportsEnum where - pToJSVal RTCIceTransportsEnumNone = js_RTCIceTransportsEnumNone - pToJSVal RTCIceTransportsEnumRelay = js_RTCIceTransportsEnumRelay - pToJSVal RTCIceTransportsEnumAll = js_RTCIceTransportsEnumAll - -instance ToJSVal RTCIceTransportsEnum where - toJSVal = return . pToJSVal - -instance PFromJSVal RTCIceTransportsEnum where - pFromJSVal x - | x `js_eq` js_RTCIceTransportsEnumNone = RTCIceTransportsEnumNone - pFromJSVal x - | x `js_eq` js_RTCIceTransportsEnumRelay = - RTCIceTransportsEnumRelay - pFromJSVal x - | x `js_eq` js_RTCIceTransportsEnumAll = RTCIceTransportsEnumAll - -instance FromJSVal RTCIceTransportsEnum where - fromJSValUnchecked = return . pFromJSVal - fromJSVal = return . pFromJSVal - -foreign import javascript unsafe "\"none\"" - js_RTCIceTransportsEnumNone :: JSVal - -foreign import javascript unsafe "\"relay\"" - js_RTCIceTransportsEnumRelay :: JSVal - -foreign import javascript unsafe "\"all\"" - js_RTCIceTransportsEnumAll :: JSVal - -data RTCIdentityOptionEnum = RTCIdentityOptionEnumYes - | RTCIdentityOptionEnumNo - | RTCIdentityOptionEnumIfconfigured - deriving (Show, Read, Eq, Ord, Typeable) - -instance PToJSVal RTCIdentityOptionEnum where - pToJSVal RTCIdentityOptionEnumYes = js_RTCIdentityOptionEnumYes - pToJSVal RTCIdentityOptionEnumNo = js_RTCIdentityOptionEnumNo - pToJSVal RTCIdentityOptionEnumIfconfigured - = js_RTCIdentityOptionEnumIfconfigured - -instance ToJSVal RTCIdentityOptionEnum where - toJSVal = return . pToJSVal - -instance PFromJSVal RTCIdentityOptionEnum where - pFromJSVal x - | x `js_eq` js_RTCIdentityOptionEnumYes = RTCIdentityOptionEnumYes - pFromJSVal x - | x `js_eq` js_RTCIdentityOptionEnumNo = RTCIdentityOptionEnumNo - pFromJSVal x - | x `js_eq` js_RTCIdentityOptionEnumIfconfigured = - RTCIdentityOptionEnumIfconfigured - -instance FromJSVal RTCIdentityOptionEnum where - fromJSValUnchecked = return . pFromJSVal - fromJSVal = return . pFromJSVal - -foreign import javascript unsafe "\"yes\"" - js_RTCIdentityOptionEnumYes :: JSVal - -foreign import javascript unsafe "\"no\"" - js_RTCIdentityOptionEnumNo :: JSVal - -foreign import javascript unsafe "\"ifconfigured\"" - js_RTCIdentityOptionEnumIfconfigured :: JSVal - -data ReadableStreamStateType = ReadableStreamStateTypeReadable - | ReadableStreamStateTypeWaiting - | ReadableStreamStateTypeClosed - | ReadableStreamStateTypeErrored - deriving (Show, Read, Eq, Ord, Typeable) - -instance PToJSVal ReadableStreamStateType where - pToJSVal ReadableStreamStateTypeReadable - = js_ReadableStreamStateTypeReadable - pToJSVal ReadableStreamStateTypeWaiting - = js_ReadableStreamStateTypeWaiting - pToJSVal ReadableStreamStateTypeClosed - = js_ReadableStreamStateTypeClosed - pToJSVal ReadableStreamStateTypeErrored - = js_ReadableStreamStateTypeErrored - -instance ToJSVal ReadableStreamStateType where - toJSVal = return . pToJSVal - -instance PFromJSVal ReadableStreamStateType where - pFromJSVal x - | x `js_eq` js_ReadableStreamStateTypeReadable = - ReadableStreamStateTypeReadable - pFromJSVal x - | x `js_eq` js_ReadableStreamStateTypeWaiting = - ReadableStreamStateTypeWaiting - pFromJSVal x - | x `js_eq` js_ReadableStreamStateTypeClosed = - ReadableStreamStateTypeClosed - pFromJSVal x - | x `js_eq` js_ReadableStreamStateTypeErrored = - ReadableStreamStateTypeErrored - -instance FromJSVal ReadableStreamStateType where - fromJSValUnchecked = return . pFromJSVal - fromJSVal = return . pFromJSVal - -foreign import javascript unsafe "\"readable\"" - js_ReadableStreamStateTypeReadable :: JSVal - -foreign import javascript unsafe "\"waiting\"" - js_ReadableStreamStateTypeWaiting :: JSVal - -foreign import javascript unsafe "\"closed\"" - js_ReadableStreamStateTypeClosed :: JSVal - -foreign import javascript unsafe "\"errored\"" - js_ReadableStreamStateTypeErrored :: JSVal - -data OverSampleType = OverSampleTypeNone - | OverSampleType2x - | OverSampleType4x - deriving (Show, Read, Eq, Ord, Typeable) - -instance PToJSVal OverSampleType where - pToJSVal OverSampleTypeNone = js_OverSampleTypeNone - pToJSVal OverSampleType2x = js_OverSampleType2x - pToJSVal OverSampleType4x = js_OverSampleType4x - -instance ToJSVal OverSampleType where - toJSVal = return . pToJSVal - -instance PFromJSVal OverSampleType where - pFromJSVal x | x `js_eq` js_OverSampleTypeNone = OverSampleTypeNone - pFromJSVal x | x `js_eq` js_OverSampleType2x = OverSampleType2x - pFromJSVal x | x `js_eq` js_OverSampleType4x = OverSampleType4x - -instance FromJSVal OverSampleType where - fromJSValUnchecked = return . pFromJSVal - fromJSVal = return . pFromJSVal - -foreign import javascript unsafe "\"none\"" js_OverSampleTypeNone - :: JSVal - -foreign import javascript unsafe "\"2x\"" js_OverSampleType2x :: - JSVal - -foreign import javascript unsafe "\"4x\"" js_OverSampleType4x :: - JSVal - -data PageOverlayType = PageOverlayTypeView - | PageOverlayTypeDocument - deriving (Show, Read, Eq, Ord, Typeable) - -instance PToJSVal PageOverlayType where - pToJSVal PageOverlayTypeView = js_PageOverlayTypeView - pToJSVal PageOverlayTypeDocument = js_PageOverlayTypeDocument - -instance ToJSVal PageOverlayType where - toJSVal = return . pToJSVal - -instance PFromJSVal PageOverlayType where - pFromJSVal x - | x `js_eq` js_PageOverlayTypeView = PageOverlayTypeView - pFromJSVal x - | x `js_eq` js_PageOverlayTypeDocument = PageOverlayTypeDocument - -instance FromJSVal PageOverlayType where - fromJSValUnchecked = return . pFromJSVal - fromJSVal = return . pFromJSVal - -foreign import javascript unsafe "\"view\"" js_PageOverlayTypeView - :: JSVal - -foreign import javascript unsafe "\"document\"" - js_PageOverlayTypeDocument :: JSVal - -data XMLHttpRequestResponseType = XMLHttpRequestResponseType - | XMLHttpRequestResponseTypeArraybuffer - | XMLHttpRequestResponseTypeBlob - | XMLHttpRequestResponseTypeDocument - | XMLHttpRequestResponseTypeJson - | XMLHttpRequestResponseTypeText - deriving (Show, Read, Eq, Ord, Typeable) - -instance PToJSVal XMLHttpRequestResponseType where - pToJSVal XMLHttpRequestResponseType = js_XMLHttpRequestResponseType - pToJSVal XMLHttpRequestResponseTypeArraybuffer - = js_XMLHttpRequestResponseTypeArraybuffer - pToJSVal XMLHttpRequestResponseTypeBlob - = js_XMLHttpRequestResponseTypeBlob - pToJSVal XMLHttpRequestResponseTypeDocument - = js_XMLHttpRequestResponseTypeDocument - pToJSVal XMLHttpRequestResponseTypeJson - = js_XMLHttpRequestResponseTypeJson - pToJSVal XMLHttpRequestResponseTypeText - = js_XMLHttpRequestResponseTypeText - -instance ToJSVal XMLHttpRequestResponseType where - toJSVal = return . pToJSVal - -instance PFromJSVal XMLHttpRequestResponseType where - pFromJSVal x - | x `js_eq` js_XMLHttpRequestResponseType = - XMLHttpRequestResponseType - pFromJSVal x - | x `js_eq` js_XMLHttpRequestResponseTypeArraybuffer = - XMLHttpRequestResponseTypeArraybuffer - pFromJSVal x - | x `js_eq` js_XMLHttpRequestResponseTypeBlob = - XMLHttpRequestResponseTypeBlob - pFromJSVal x - | x `js_eq` js_XMLHttpRequestResponseTypeDocument = - XMLHttpRequestResponseTypeDocument - pFromJSVal x - | x `js_eq` js_XMLHttpRequestResponseTypeJson = - XMLHttpRequestResponseTypeJson - pFromJSVal x - | x `js_eq` js_XMLHttpRequestResponseTypeText = - XMLHttpRequestResponseTypeText - -instance FromJSVal XMLHttpRequestResponseType where - fromJSValUnchecked = return . pFromJSVal - fromJSVal = return . pFromJSVal - -foreign import javascript unsafe "\"\"" - js_XMLHttpRequestResponseType :: JSVal - -foreign import javascript unsafe "\"arraybuffer\"" - js_XMLHttpRequestResponseTypeArraybuffer :: JSVal - -foreign import javascript unsafe "\"blob\"" - js_XMLHttpRequestResponseTypeBlob :: JSVal - -foreign import javascript unsafe "\"document\"" - js_XMLHttpRequestResponseTypeDocument :: JSVal - -foreign import javascript unsafe "\"json\"" - js_XMLHttpRequestResponseTypeJson :: JSVal - -foreign import javascript unsafe "\"text\"" - js_XMLHttpRequestResponseTypeText :: JSVal diff --git a/src/GHCJS/DOM/JSFFI/Generated/ErrorEvent.hs b/src/GHCJS/DOM/JSFFI/Generated/ErrorEvent.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/ErrorEvent.hs +++ /dev/null @@ -1,51 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.ErrorEvent - (js_getMessage, getMessage, js_getFilename, getFilename, - js_getLineno, getLineno, js_getColno, getColno, ErrorEvent, - castToErrorEvent, gTypeErrorEvent) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"message\"]" js_getMessage :: - ErrorEvent -> IO JSString - --- | -getMessage :: - (MonadIO m, FromJSString result) => ErrorEvent -> m result -getMessage self = liftIO (fromJSString <$> (js_getMessage (self))) - -foreign import javascript unsafe "$1[\"filename\"]" js_getFilename - :: ErrorEvent -> IO JSString - --- | -getFilename :: - (MonadIO m, FromJSString result) => ErrorEvent -> m result -getFilename self - = liftIO (fromJSString <$> (js_getFilename (self))) - -foreign import javascript unsafe "$1[\"lineno\"]" js_getLineno :: - ErrorEvent -> IO Word - --- | -getLineno :: (MonadIO m) => ErrorEvent -> m Word -getLineno self = liftIO (js_getLineno (self)) - -foreign import javascript unsafe "$1[\"colno\"]" js_getColno :: - ErrorEvent -> IO Word - --- | -getColno :: (MonadIO m) => ErrorEvent -> m Word -getColno self = liftIO (js_getColno (self)) diff --git a/src/GHCJS/DOM/JSFFI/Generated/Event.hs b/src/GHCJS/DOM/JSFFI/Generated/Event.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/Event.hs +++ /dev/null @@ -1,203 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.Event - (js_stopPropagation, stopPropagation, js_preventDefault, - preventDefault, js_initEvent, initEvent, - js_stopImmediatePropagation, stopImmediatePropagation, - pattern NONE, pattern CAPTURING_PHASE, pattern AT_TARGET, - pattern BUBBLING_PHASE, pattern MOUSEDOWN, pattern MOUSEUP, - pattern MOUSEOVER, pattern MOUSEOUT, pattern MOUSEMOVE, - pattern MOUSEDRAG, pattern CLICK, pattern DBLCLICK, - pattern KEYDOWN, pattern KEYUP, pattern KEYPRESS, pattern DRAGDROP, - pattern FOCUS, pattern BLUR, pattern SELECT, pattern CHANGE, - js_getType, getType, js_getTarget, getTarget, js_getCurrentTarget, - getCurrentTarget, js_getEventPhase, getEventPhase, js_getBubbles, - getBubbles, js_getCancelable, getCancelable, js_getTimeStamp, - getTimeStamp, js_getDefaultPrevented, getDefaultPrevented, - js_getSrcElement, getSrcElement, js_setReturnValue, setReturnValue, - js_getReturnValue, getReturnValue, js_setCancelBubble, - setCancelBubble, js_getCancelBubble, getCancelBubble, - js_getClipboardData, getClipboardData, Event, castToEvent, - gTypeEvent, IsEvent, toEvent) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"stopPropagation\"]()" - js_stopPropagation :: Event -> IO () - --- | -stopPropagation :: (MonadIO m, IsEvent self) => self -> m () -stopPropagation self = liftIO (js_stopPropagation (toEvent self)) - -foreign import javascript unsafe "$1[\"preventDefault\"]()" - js_preventDefault :: Event -> IO () - --- | -preventDefault :: (MonadIO m, IsEvent self) => self -> m () -preventDefault self = liftIO (js_preventDefault (toEvent self)) - -foreign import javascript unsafe "$1[\"initEvent\"]($2, $3, $4)" - js_initEvent :: Event -> JSString -> Bool -> Bool -> IO () - --- | -initEvent :: - (MonadIO m, IsEvent self, ToJSString eventTypeArg) => - self -> eventTypeArg -> Bool -> Bool -> m () -initEvent self eventTypeArg canBubbleArg cancelableArg - = liftIO - (js_initEvent (toEvent self) (toJSString eventTypeArg) canBubbleArg - cancelableArg) - -foreign import javascript unsafe - "$1[\"stopImmediatePropagation\"]()" js_stopImmediatePropagation :: - Event -> IO () - --- | -stopImmediatePropagation :: - (MonadIO m, IsEvent self) => self -> m () -stopImmediatePropagation self - = liftIO (js_stopImmediatePropagation (toEvent self)) -pattern NONE = 0 -pattern CAPTURING_PHASE = 1 -pattern AT_TARGET = 2 -pattern BUBBLING_PHASE = 3 -pattern MOUSEDOWN = 1 -pattern MOUSEUP = 2 -pattern MOUSEOVER = 4 -pattern MOUSEOUT = 8 -pattern MOUSEMOVE = 16 -pattern MOUSEDRAG = 32 -pattern CLICK = 64 -pattern DBLCLICK = 128 -pattern KEYDOWN = 256 -pattern KEYUP = 512 -pattern KEYPRESS = 1024 -pattern DRAGDROP = 2048 -pattern FOCUS = 4096 -pattern BLUR = 8192 -pattern SELECT = 16384 -pattern CHANGE = 32768 - -foreign import javascript unsafe "$1[\"type\"]" js_getType :: - Event -> IO JSString - --- | -getType :: - (MonadIO m, IsEvent self, FromJSString result) => self -> m result -getType self - = liftIO (fromJSString <$> (js_getType (toEvent self))) - -foreign import javascript unsafe "$1[\"target\"]" js_getTarget :: - Event -> IO (Nullable EventTarget) - --- | -getTarget :: - (MonadIO m, IsEvent self) => self -> m (Maybe EventTarget) -getTarget self - = liftIO (nullableToMaybe <$> (js_getTarget (toEvent self))) - -foreign import javascript unsafe "$1[\"currentTarget\"]" - js_getCurrentTarget :: Event -> IO (Nullable EventTarget) - --- | -getCurrentTarget :: - (MonadIO m, IsEvent self) => self -> m (Maybe EventTarget) -getCurrentTarget self - = liftIO (nullableToMaybe <$> (js_getCurrentTarget (toEvent self))) - -foreign import javascript unsafe "$1[\"eventPhase\"]" - js_getEventPhase :: Event -> IO Word - --- | -getEventPhase :: (MonadIO m, IsEvent self) => self -> m Word -getEventPhase self = liftIO (js_getEventPhase (toEvent self)) - -foreign import javascript unsafe "($1[\"bubbles\"] ? 1 : 0)" - js_getBubbles :: Event -> IO Bool - --- | -getBubbles :: (MonadIO m, IsEvent self) => self -> m Bool -getBubbles self = liftIO (js_getBubbles (toEvent self)) - -foreign import javascript unsafe "($1[\"cancelable\"] ? 1 : 0)" - js_getCancelable :: Event -> IO Bool - --- | -getCancelable :: (MonadIO m, IsEvent self) => self -> m Bool -getCancelable self = liftIO (js_getCancelable (toEvent self)) - -foreign import javascript unsafe "$1[\"timeStamp\"]" - js_getTimeStamp :: Event -> IO Word - --- | -getTimeStamp :: (MonadIO m, IsEvent self) => self -> m Word -getTimeStamp self = liftIO (js_getTimeStamp (toEvent self)) - -foreign import javascript unsafe - "($1[\"defaultPrevented\"] ? 1 : 0)" js_getDefaultPrevented :: - Event -> IO Bool - --- | -getDefaultPrevented :: (MonadIO m, IsEvent self) => self -> m Bool -getDefaultPrevented self - = liftIO (js_getDefaultPrevented (toEvent self)) - -foreign import javascript unsafe "$1[\"srcElement\"]" - js_getSrcElement :: Event -> IO (Nullable EventTarget) - --- | -getSrcElement :: - (MonadIO m, IsEvent self) => self -> m (Maybe EventTarget) -getSrcElement self - = liftIO (nullableToMaybe <$> (js_getSrcElement (toEvent self))) - -foreign import javascript unsafe "$1[\"returnValue\"] = $2;" - js_setReturnValue :: Event -> Bool -> IO () - --- | -setReturnValue :: (MonadIO m, IsEvent self) => self -> Bool -> m () -setReturnValue self val - = liftIO (js_setReturnValue (toEvent self) val) - -foreign import javascript unsafe "($1[\"returnValue\"] ? 1 : 0)" - js_getReturnValue :: Event -> IO Bool - --- | -getReturnValue :: (MonadIO m, IsEvent self) => self -> m Bool -getReturnValue self = liftIO (js_getReturnValue (toEvent self)) - -foreign import javascript unsafe "$1[\"cancelBubble\"] = $2;" - js_setCancelBubble :: Event -> Bool -> IO () - --- | -setCancelBubble :: - (MonadIO m, IsEvent self) => self -> Bool -> m () -setCancelBubble self val - = liftIO (js_setCancelBubble (toEvent self) val) - -foreign import javascript unsafe "($1[\"cancelBubble\"] ? 1 : 0)" - js_getCancelBubble :: Event -> IO Bool - --- | -getCancelBubble :: (MonadIO m, IsEvent self) => self -> m Bool -getCancelBubble self = liftIO (js_getCancelBubble (toEvent self)) - -foreign import javascript unsafe "$1[\"clipboardData\"]" - js_getClipboardData :: Event -> IO (Nullable DataTransfer) - --- | -getClipboardData :: - (MonadIO m, IsEvent self) => self -> m (Maybe DataTransfer) -getClipboardData self - = liftIO (nullableToMaybe <$> (js_getClipboardData (toEvent self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/EventListener.hs b/src/GHCJS/DOM/JSFFI/Generated/EventListener.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/EventListener.hs +++ /dev/null @@ -1,29 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.EventListener - (js_handleEvent, handleEvent, EventListener, castToEventListener, - gTypeEventListener) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"handleEvent\"]($2)" - js_handleEvent :: EventListener -> Nullable Event -> IO () - --- | -handleEvent :: - (MonadIO m, IsEvent evt) => EventListener -> Maybe evt -> m () -handleEvent self evt - = liftIO - (js_handleEvent (self) (maybeToNullable (fmap toEvent evt))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/EventSource.hs b/src/GHCJS/DOM/JSFFI/Generated/EventSource.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/EventSource.hs +++ /dev/null @@ -1,80 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.EventSource - (js_newEventSource, newEventSource, js_close, close, - pattern CONNECTING, pattern OPEN, pattern CLOSED, js_getUrl, - getUrl, js_getWithCredentials, getWithCredentials, - js_getReadyState, getReadyState, open, message, error, EventSource, - castToEventSource, gTypeEventSource) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe - "new window[\"EventSource\"]($1,\n$2)" js_newEventSource :: - JSString -> Nullable Dictionary -> IO EventSource - --- | -newEventSource :: - (MonadIO m, ToJSString url, IsDictionary eventSourceInit) => - url -> Maybe eventSourceInit -> m EventSource -newEventSource url eventSourceInit - = liftIO - (js_newEventSource (toJSString url) - (maybeToNullable (fmap toDictionary eventSourceInit))) - -foreign import javascript unsafe "$1[\"close\"]()" js_close :: - EventSource -> IO () - --- | -close :: (MonadIO m) => EventSource -> m () -close self = liftIO (js_close (self)) -pattern CONNECTING = 0 -pattern OPEN = 1 -pattern CLOSED = 2 - -foreign import javascript unsafe "$1[\"url\"]" js_getUrl :: - EventSource -> IO JSString - --- | -getUrl :: - (MonadIO m, FromJSString result) => EventSource -> m result -getUrl self = liftIO (fromJSString <$> (js_getUrl (self))) - -foreign import javascript unsafe - "($1[\"withCredentials\"] ? 1 : 0)" js_getWithCredentials :: - EventSource -> IO Bool - --- | -getWithCredentials :: (MonadIO m) => EventSource -> m Bool -getWithCredentials self = liftIO (js_getWithCredentials (self)) - -foreign import javascript unsafe "$1[\"readyState\"]" - js_getReadyState :: EventSource -> IO Word - --- | -getReadyState :: (MonadIO m) => EventSource -> m Word -getReadyState self = liftIO (js_getReadyState (self)) - --- | -open :: EventName EventSource Event -open = unsafeEventName (toJSString "open") - --- | -message :: EventName EventSource MessageEvent -message = unsafeEventName (toJSString "message") - --- | -error :: EventName EventSource UIEvent -error = unsafeEventName (toJSString "error") diff --git a/src/GHCJS/DOM/JSFFI/Generated/EventTarget.hs b/src/GHCJS/DOM/JSFFI/Generated/EventTarget.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/EventTarget.hs +++ /dev/null @@ -1,61 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.EventTarget - (js_addEventListener, addEventListener, js_removeEventListener, - removeEventListener, js_dispatchEvent, dispatchEvent, EventTarget, - castToEventTarget, gTypeEventTarget, IsEventTarget, toEventTarget) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.Enums - -foreign import javascript unsafe - "$1[\"addEventListener\"]($2, $3,\n$4)" js_addEventListener :: - EventTarget -> JSString -> Nullable EventListener -> Bool -> IO () - --- | -addEventListener :: - (MonadIO m, IsEventTarget self, ToJSString type') => - self -> type' -> Maybe EventListener -> Bool -> m () -addEventListener self type' listener useCapture - = liftIO - (js_addEventListener (toEventTarget self) (toJSString type') - (maybeToNullable listener) - useCapture) - -foreign import javascript unsafe - "$1[\"removeEventListener\"]($2,\n$3, $4)" js_removeEventListener - :: - EventTarget -> JSString -> Nullable EventListener -> Bool -> IO () - --- | -removeEventListener :: - (MonadIO m, IsEventTarget self, ToJSString type') => - self -> type' -> Maybe EventListener -> Bool -> m () -removeEventListener self type' listener useCapture - = liftIO - (js_removeEventListener (toEventTarget self) (toJSString type') - (maybeToNullable listener) - useCapture) - -foreign import javascript unsafe - "($1[\"dispatchEvent\"]($2) ? 1 : 0)" js_dispatchEvent :: - EventTarget -> Nullable Event -> IO Bool - --- | -dispatchEvent :: - (MonadIO m, IsEventTarget self, IsEvent event) => - self -> Maybe event -> m Bool -dispatchEvent self event - = liftIO - (js_dispatchEvent (toEventTarget self) - (maybeToNullable (fmap toEvent event))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/File.hs b/src/GHCJS/DOM/JSFFI/Generated/File.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/File.hs +++ /dev/null @@ -1,34 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.File - (js_getName, getName, js_getLastModifiedDate, getLastModifiedDate, - File, castToFile, gTypeFile) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"name\"]" js_getName :: - File -> IO JSString - --- | -getName :: (MonadIO m, FromJSString result) => File -> m result -getName self = liftIO (fromJSString <$> (js_getName (self))) - -foreign import javascript unsafe "$1[\"lastModifiedDate\"]" - js_getLastModifiedDate :: File -> IO (Nullable Date) - --- | -getLastModifiedDate :: (MonadIO m) => File -> m (Maybe Date) -getLastModifiedDate self - = liftIO (nullableToMaybe <$> (js_getLastModifiedDate (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/FileError.hs b/src/GHCJS/DOM/JSFFI/Generated/FileError.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/FileError.hs +++ /dev/null @@ -1,43 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.FileError - (pattern NOT_FOUND_ERR, pattern SECURITY_ERR, pattern ABORT_ERR, - pattern NOT_READABLE_ERR, pattern ENCODING_ERR, - pattern NO_MODIFICATION_ALLOWED_ERR, pattern INVALID_STATE_ERR, - pattern SYNTAX_ERR, pattern INVALID_MODIFICATION_ERR, - pattern QUOTA_EXCEEDED_ERR, pattern TYPE_MISMATCH_ERR, - pattern PATH_EXISTS_ERR, js_getCode, getCode, FileError, - castToFileError, gTypeFileError) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums -pattern NOT_FOUND_ERR = 1 -pattern SECURITY_ERR = 2 -pattern ABORT_ERR = 3 -pattern NOT_READABLE_ERR = 4 -pattern ENCODING_ERR = 5 -pattern NO_MODIFICATION_ALLOWED_ERR = 6 -pattern INVALID_STATE_ERR = 7 -pattern SYNTAX_ERR = 8 -pattern INVALID_MODIFICATION_ERR = 9 -pattern QUOTA_EXCEEDED_ERR = 10 -pattern TYPE_MISMATCH_ERR = 11 -pattern PATH_EXISTS_ERR = 12 - -foreign import javascript unsafe "$1[\"code\"]" js_getCode :: - FileError -> IO Word - --- | -getCode :: (MonadIO m) => FileError -> m Word -getCode self = liftIO (js_getCode (self)) diff --git a/src/GHCJS/DOM/JSFFI/Generated/FileList.hs b/src/GHCJS/DOM/JSFFI/Generated/FileList.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/FileList.hs +++ /dev/null @@ -1,34 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.FileList - (js_item, item, js_getLength, getLength, FileList, castToFileList, - gTypeFileList) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"item\"]($2)" js_item :: - FileList -> Word -> IO (Nullable File) - --- | -item :: (MonadIO m) => FileList -> Word -> m (Maybe File) -item self index - = liftIO (nullableToMaybe <$> (js_item (self) index)) - -foreign import javascript unsafe "$1[\"length\"]" js_getLength :: - FileList -> IO Word - --- | -getLength :: (MonadIO m) => FileList -> m Word -getLength self = liftIO (js_getLength (self)) diff --git a/src/GHCJS/DOM/JSFFI/Generated/FileReader.hs b/src/GHCJS/DOM/JSFFI/Generated/FileReader.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/FileReader.hs +++ /dev/null @@ -1,128 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.FileReader - (js_newFileReader, newFileReader, js_readAsArrayBuffer, - readAsArrayBuffer, js_readAsBinaryString, readAsBinaryString, - js_readAsText, readAsText, js_readAsDataURL, readAsDataURL, - js_abort, abort, pattern EMPTY, pattern LOADING, pattern DONE, - js_getReadyState, getReadyState, js_getResult, getResult, - js_getError, getError, loadStart, progress, load, abortEvent, - error, loadEnd, FileReader, castToFileReader, gTypeFileReader) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "new window[\"FileReader\"]()" - js_newFileReader :: IO FileReader - --- | -newFileReader :: (MonadIO m) => m FileReader -newFileReader = liftIO (js_newFileReader) - -foreign import javascript unsafe "$1[\"readAsArrayBuffer\"]($2)" - js_readAsArrayBuffer :: FileReader -> Nullable Blob -> IO () - --- | -readAsArrayBuffer :: - (MonadIO m, IsBlob blob) => FileReader -> Maybe blob -> m () -readAsArrayBuffer self blob - = liftIO - (js_readAsArrayBuffer (self) (maybeToNullable (fmap toBlob blob))) - -foreign import javascript unsafe "$1[\"readAsBinaryString\"]($2)" - js_readAsBinaryString :: FileReader -> Nullable Blob -> IO () - --- | -readAsBinaryString :: - (MonadIO m, IsBlob blob) => FileReader -> Maybe blob -> m () -readAsBinaryString self blob - = liftIO - (js_readAsBinaryString (self) (maybeToNullable (fmap toBlob blob))) - -foreign import javascript unsafe "$1[\"readAsText\"]($2, $3)" - js_readAsText :: FileReader -> Nullable Blob -> JSString -> IO () - --- | -readAsText :: - (MonadIO m, IsBlob blob, ToJSString encoding) => - FileReader -> Maybe blob -> encoding -> m () -readAsText self blob encoding - = liftIO - (js_readAsText (self) (maybeToNullable (fmap toBlob blob)) - (toJSString encoding)) - -foreign import javascript unsafe "$1[\"readAsDataURL\"]($2)" - js_readAsDataURL :: FileReader -> Nullable Blob -> IO () - --- | -readAsDataURL :: - (MonadIO m, IsBlob blob) => FileReader -> Maybe blob -> m () -readAsDataURL self blob - = liftIO - (js_readAsDataURL (self) (maybeToNullable (fmap toBlob blob))) - -foreign import javascript unsafe "$1[\"abort\"]()" js_abort :: - FileReader -> IO () - --- | -abort :: (MonadIO m) => FileReader -> m () -abort self = liftIO (js_abort (self)) -pattern EMPTY = 0 -pattern LOADING = 1 -pattern DONE = 2 - -foreign import javascript unsafe "$1[\"readyState\"]" - js_getReadyState :: FileReader -> IO Word - --- | -getReadyState :: (MonadIO m) => FileReader -> m Word -getReadyState self = liftIO (js_getReadyState (self)) - -foreign import javascript unsafe "$1[\"result\"]" js_getResult :: - FileReader -> IO JSVal - --- | -getResult :: (MonadIO m) => FileReader -> m JSVal -getResult self = liftIO (js_getResult (self)) - -foreign import javascript unsafe "$1[\"error\"]" js_getError :: - FileReader -> IO (Nullable FileError) - --- | -getError :: (MonadIO m) => FileReader -> m (Maybe FileError) -getError self = liftIO (nullableToMaybe <$> (js_getError (self))) - --- | -loadStart :: EventName FileReader ProgressEvent -loadStart = unsafeEventName (toJSString "loadstart") - --- | -progress :: EventName FileReader ProgressEvent -progress = unsafeEventName (toJSString "progress") - --- | -load :: EventName FileReader UIEvent -load = unsafeEventName (toJSString "load") - --- | -abortEvent :: EventName FileReader UIEvent -abortEvent = unsafeEventName (toJSString "abort") - --- | -error :: EventName FileReader UIEvent -error = unsafeEventName (toJSString "error") - --- | -loadEnd :: EventName FileReader ProgressEvent -loadEnd = unsafeEventName (toJSString "loadend") diff --git a/src/GHCJS/DOM/JSFFI/Generated/FileReaderSync.hs b/src/GHCJS/DOM/JSFFI/Generated/FileReaderSync.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/FileReaderSync.hs +++ /dev/null @@ -1,82 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.FileReaderSync - (js_newFileReaderSync, newFileReaderSync, js_readAsArrayBuffer, - readAsArrayBuffer, js_readAsBinaryString, readAsBinaryString, - js_readAsText, readAsText, js_readAsDataURL, readAsDataURL, - FileReaderSync, castToFileReaderSync, gTypeFileReaderSync) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "new window[\"FileReaderSync\"]()" - js_newFileReaderSync :: IO FileReaderSync - --- | -newFileReaderSync :: (MonadIO m) => m FileReaderSync -newFileReaderSync = liftIO (js_newFileReaderSync) - -foreign import javascript unsafe "$1[\"readAsArrayBuffer\"]($2)" - js_readAsArrayBuffer :: - FileReaderSync -> Nullable Blob -> IO (Nullable ArrayBuffer) - --- | -readAsArrayBuffer :: - (MonadIO m, IsBlob blob) => - FileReaderSync -> Maybe blob -> m (Maybe ArrayBuffer) -readAsArrayBuffer self blob - = liftIO - (nullableToMaybe <$> - (js_readAsArrayBuffer (self) (maybeToNullable (fmap toBlob blob)))) - -foreign import javascript unsafe "$1[\"readAsBinaryString\"]($2)" - js_readAsBinaryString :: - FileReaderSync -> Nullable Blob -> IO JSString - --- | -readAsBinaryString :: - (MonadIO m, IsBlob blob, FromJSString result) => - FileReaderSync -> Maybe blob -> m result -readAsBinaryString self blob - = liftIO - (fromJSString <$> - (js_readAsBinaryString (self) - (maybeToNullable (fmap toBlob blob)))) - -foreign import javascript unsafe "$1[\"readAsText\"]($2, $3)" - js_readAsText :: - FileReaderSync -> Nullable Blob -> JSString -> IO JSString - --- | -readAsText :: - (MonadIO m, IsBlob blob, ToJSString encoding, - FromJSString result) => - FileReaderSync -> Maybe blob -> encoding -> m result -readAsText self blob encoding - = liftIO - (fromJSString <$> - (js_readAsText (self) (maybeToNullable (fmap toBlob blob)) - (toJSString encoding))) - -foreign import javascript unsafe "$1[\"readAsDataURL\"]($2)" - js_readAsDataURL :: FileReaderSync -> Nullable Blob -> IO JSString - --- | -readAsDataURL :: - (MonadIO m, IsBlob blob, FromJSString result) => - FileReaderSync -> Maybe blob -> m result -readAsDataURL self blob - = liftIO - (fromJSString <$> - (js_readAsDataURL (self) (maybeToNullable (fmap toBlob blob)))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/FocusEvent.hs b/src/GHCJS/DOM/JSFFI/Generated/FocusEvent.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/FocusEvent.hs +++ /dev/null @@ -1,28 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.FocusEvent - (js_getRelatedTarget, getRelatedTarget, FocusEvent, - castToFocusEvent, gTypeFocusEvent) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"relatedTarget\"]" - js_getRelatedTarget :: FocusEvent -> IO (Nullable EventTarget) - --- | -getRelatedTarget :: - (MonadIO m) => FocusEvent -> m (Maybe EventTarget) -getRelatedTarget self - = liftIO (nullableToMaybe <$> (js_getRelatedTarget (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/FontLoader.hs b/src/GHCJS/DOM/JSFFI/Generated/FontLoader.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/FontLoader.hs +++ /dev/null @@ -1,81 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.FontLoader - (js_checkFont, checkFont, js_loadFont, loadFont, - js_notifyWhenFontsReady, notifyWhenFontsReady, loading, - loadingDone, loadStart, load, error, js_getLoading, getLoading, - FontLoader, castToFontLoader, gTypeFontLoader) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe - "($1[\"checkFont\"]($2,\n$3) ? 1 : 0)" js_checkFont :: - FontLoader -> JSString -> JSString -> IO Bool - --- | -checkFont :: - (MonadIO m, ToJSString font, ToJSString text) => - FontLoader -> font -> text -> m Bool -checkFont self font text - = liftIO (js_checkFont (self) (toJSString font) (toJSString text)) - -foreign import javascript unsafe "$1[\"loadFont\"]($2)" js_loadFont - :: FontLoader -> Nullable Dictionary -> IO () - --- | -loadFont :: - (MonadIO m, IsDictionary params) => - FontLoader -> Maybe params -> m () -loadFont self params - = liftIO - (js_loadFont (self) (maybeToNullable (fmap toDictionary params))) - -foreign import javascript unsafe "$1[\"notifyWhenFontsReady\"]($2)" - js_notifyWhenFontsReady :: - FontLoader -> Nullable VoidCallback -> IO () - --- | -notifyWhenFontsReady :: - (MonadIO m) => FontLoader -> Maybe VoidCallback -> m () -notifyWhenFontsReady self callback - = liftIO - (js_notifyWhenFontsReady (self) (maybeToNullable callback)) - --- | -loading :: EventName FontLoader Event -loading = unsafeEventName (toJSString "loading") - --- | -loadingDone :: EventName FontLoader Event -loadingDone = unsafeEventName (toJSString "loadingdone") - --- | -loadStart :: EventName FontLoader ProgressEvent -loadStart = unsafeEventName (toJSString "loadstart") - --- | -load :: EventName FontLoader UIEvent -load = unsafeEventName (toJSString "load") - --- | -error :: EventName FontLoader UIEvent -error = unsafeEventName (toJSString "error") - -foreign import javascript unsafe "($1[\"loading\"] ? 1 : 0)" - js_getLoading :: FontLoader -> IO Bool - --- | -getLoading :: (MonadIO m) => FontLoader -> m Bool -getLoading self = liftIO (js_getLoading (self)) diff --git a/src/GHCJS/DOM/JSFFI/Generated/FormData.hs b/src/GHCJS/DOM/JSFFI/Generated/FormData.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/FormData.hs +++ /dev/null @@ -1,39 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.FormData - (js_newFormData, newFormData, js_append, append, FormData, - castToFormData, gTypeFormData) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "new window[\"FormData\"]($1)" - js_newFormData :: Nullable HTMLFormElement -> IO FormData - --- | -newFormData :: (MonadIO m) => Maybe HTMLFormElement -> m FormData -newFormData form = liftIO (js_newFormData (maybeToNullable form)) - -foreign import javascript unsafe "$1[\"append\"]($2, $3, $4)" - js_append :: FormData -> JSString -> JSString -> JSString -> IO () - --- | -append :: - (MonadIO m, ToJSString name, ToJSString value, - ToJSString filename) => - FormData -> name -> value -> filename -> m () -append self name value filename - = liftIO - (js_append (self) (toJSString name) (toJSString value) - (toJSString filename)) diff --git a/src/GHCJS/DOM/JSFFI/Generated/GainNode.hs b/src/GHCJS/DOM/JSFFI/Generated/GainNode.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/GainNode.hs +++ /dev/null @@ -1,25 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.GainNode - (js_getGain, getGain, GainNode, castToGainNode, gTypeGainNode) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"gain\"]" js_getGain :: - GainNode -> IO (Nullable AudioParam) - --- | -getGain :: (MonadIO m) => GainNode -> m (Maybe AudioParam) -getGain self = liftIO (nullableToMaybe <$> (js_getGain (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/Gamepad.hs b/src/GHCJS/DOM/JSFFI/Generated/Gamepad.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/Gamepad.hs +++ /dev/null @@ -1,72 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.Gamepad - (js_getId, getId, js_getIndex, getIndex, js_getConnected, - getConnected, js_getTimestamp, getTimestamp, js_getMapping, - getMapping, js_getAxes, getAxes, js_getButtons, getButtons, - Gamepad, castToGamepad, gTypeGamepad) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"id\"]" js_getId :: - Gamepad -> IO JSString - --- | -getId :: (MonadIO m, FromJSString result) => Gamepad -> m result -getId self = liftIO (fromJSString <$> (js_getId (self))) - -foreign import javascript unsafe "$1[\"index\"]" js_getIndex :: - Gamepad -> IO Word - --- | -getIndex :: (MonadIO m) => Gamepad -> m Word -getIndex self = liftIO (js_getIndex (self)) - -foreign import javascript unsafe "($1[\"connected\"] ? 1 : 0)" - js_getConnected :: Gamepad -> IO Bool - --- | -getConnected :: (MonadIO m) => Gamepad -> m Bool -getConnected self = liftIO (js_getConnected (self)) - -foreign import javascript unsafe "$1[\"timestamp\"]" - js_getTimestamp :: Gamepad -> IO Double - --- | -getTimestamp :: (MonadIO m) => Gamepad -> m Double -getTimestamp self = liftIO (js_getTimestamp (self)) - -foreign import javascript unsafe "$1[\"mapping\"]" js_getMapping :: - Gamepad -> IO JSString - --- | -getMapping :: - (MonadIO m, FromJSString result) => Gamepad -> m result -getMapping self = liftIO (fromJSString <$> (js_getMapping (self))) - -foreign import javascript unsafe "$1[\"axes\"]" js_getAxes :: - Gamepad -> IO JSVal - --- | -getAxes :: (MonadIO m) => Gamepad -> m [Double] -getAxes self = liftIO ((js_getAxes (self)) >>= fromJSValUnchecked) - -foreign import javascript unsafe "$1[\"buttons\"]" js_getButtons :: - Gamepad -> IO JSVal - --- | -getButtons :: (MonadIO m) => Gamepad -> m [Maybe GamepadButton] -getButtons self - = liftIO ((js_getButtons (self)) >>= fromJSValUnchecked) diff --git a/src/GHCJS/DOM/JSFFI/Generated/GamepadButton.hs b/src/GHCJS/DOM/JSFFI/Generated/GamepadButton.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/GamepadButton.hs +++ /dev/null @@ -1,33 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.GamepadButton - (js_getPressed, getPressed, js_getValue, getValue, GamepadButton, - castToGamepadButton, gTypeGamepadButton) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "($1[\"pressed\"] ? 1 : 0)" - js_getPressed :: GamepadButton -> IO Bool - --- | -getPressed :: (MonadIO m) => GamepadButton -> m Bool -getPressed self = liftIO (js_getPressed (self)) - -foreign import javascript unsafe "$1[\"value\"]" js_getValue :: - GamepadButton -> IO Double - --- | -getValue :: (MonadIO m) => GamepadButton -> m Double -getValue self = liftIO (js_getValue (self)) diff --git a/src/GHCJS/DOM/JSFFI/Generated/GamepadEvent.hs b/src/GHCJS/DOM/JSFFI/Generated/GamepadEvent.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/GamepadEvent.hs +++ /dev/null @@ -1,27 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.GamepadEvent - (js_getGamepad, getGamepad, GamepadEvent, castToGamepadEvent, - gTypeGamepadEvent) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"gamepad\"]" js_getGamepad :: - GamepadEvent -> IO (Nullable Gamepad) - --- | -getGamepad :: (MonadIO m) => GamepadEvent -> m (Maybe Gamepad) -getGamepad self - = liftIO (nullableToMaybe <$> (js_getGamepad (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/Geolocation.hs b/src/GHCJS/DOM/JSFFI/Generated/Geolocation.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/Geolocation.hs +++ /dev/null @@ -1,64 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.Geolocation - (js_getCurrentPosition, getCurrentPosition, js_watchPosition, - watchPosition, js_clearWatch, clearWatch, Geolocation, - castToGeolocation, gTypeGeolocation) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe - "$1[\"getCurrentPosition\"]($2, $3,\n$4)" js_getCurrentPosition :: - Geolocation -> - Nullable PositionCallback -> - Nullable PositionErrorCallback -> Nullable PositionOptions -> IO () - --- | -getCurrentPosition :: - (MonadIO m, IsPositionOptions options) => - Geolocation -> - Maybe PositionCallback -> - Maybe PositionErrorCallback -> Maybe options -> m () -getCurrentPosition self successCallback errorCallback options - = liftIO - (js_getCurrentPosition (self) (maybeToNullable successCallback) - (maybeToNullable errorCallback) - (maybeToNullable (fmap toPositionOptions options))) - -foreign import javascript unsafe - "$1[\"watchPosition\"]($2, $3, $4)" js_watchPosition :: - Geolocation -> - Nullable PositionCallback -> - Nullable PositionErrorCallback -> - Nullable PositionOptions -> IO Int - --- | -watchPosition :: - (MonadIO m, IsPositionOptions options) => - Geolocation -> - Maybe PositionCallback -> - Maybe PositionErrorCallback -> Maybe options -> m Int -watchPosition self successCallback errorCallback options - = liftIO - (js_watchPosition (self) (maybeToNullable successCallback) - (maybeToNullable errorCallback) - (maybeToNullable (fmap toPositionOptions options))) - -foreign import javascript unsafe "$1[\"clearWatch\"]($2)" - js_clearWatch :: Geolocation -> Int -> IO () - --- | -clearWatch :: (MonadIO m) => Geolocation -> Int -> m () -clearWatch self watchID = liftIO (js_clearWatch (self) watchID) diff --git a/src/GHCJS/DOM/JSFFI/Generated/Geoposition.hs b/src/GHCJS/DOM/JSFFI/Generated/Geoposition.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/Geoposition.hs +++ /dev/null @@ -1,33 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.Geoposition - (js_getCoords, getCoords, js_getTimestamp, getTimestamp, - Geoposition, castToGeoposition, gTypeGeoposition) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"coords\"]" js_getCoords :: - Geoposition -> IO (Nullable Coordinates) - --- | -getCoords :: (MonadIO m) => Geoposition -> m (Maybe Coordinates) -getCoords self = liftIO (nullableToMaybe <$> (js_getCoords (self))) - -foreign import javascript unsafe "$1[\"timestamp\"]" - js_getTimestamp :: Geoposition -> IO Word - --- | -getTimestamp :: (MonadIO m) => Geoposition -> m Word -getTimestamp self = liftIO (js_getTimestamp (self)) diff --git a/src/GHCJS/DOM/JSFFI/Generated/HTMLAllCollection.hs b/src/GHCJS/DOM/JSFFI/Generated/HTMLAllCollection.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/HTMLAllCollection.hs +++ /dev/null @@ -1,56 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.HTMLAllCollection - (js_item, item, js_namedItem, namedItem, js_tags, tags, - js_getLength, getLength, HTMLAllCollection, - castToHTMLAllCollection, gTypeHTMLAllCollection) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"item\"]($2)" js_item :: - HTMLAllCollection -> Word -> IO (Nullable Node) - --- | -item :: (MonadIO m) => HTMLAllCollection -> Word -> m (Maybe Node) -item self index - = liftIO (nullableToMaybe <$> (js_item (self) index)) - -foreign import javascript unsafe "$1[\"namedItem\"]($2)" - js_namedItem :: HTMLAllCollection -> JSString -> IO (Nullable Node) - --- | -namedItem :: - (MonadIO m, ToJSString name) => - HTMLAllCollection -> name -> m (Maybe Node) -namedItem self name - = liftIO - (nullableToMaybe <$> (js_namedItem (self) (toJSString name))) - -foreign import javascript unsafe "$1[\"tags\"]($2)" js_tags :: - HTMLAllCollection -> JSString -> IO (Nullable NodeList) - --- | -tags :: - (MonadIO m, ToJSString name) => - HTMLAllCollection -> name -> m (Maybe NodeList) -tags self name - = liftIO (nullableToMaybe <$> (js_tags (self) (toJSString name))) - -foreign import javascript unsafe "$1[\"length\"]" js_getLength :: - HTMLAllCollection -> IO Word - --- | -getLength :: (MonadIO m) => HTMLAllCollection -> m Word -getLength self = liftIO (js_getLength (self)) diff --git a/src/GHCJS/DOM/JSFFI/Generated/HTMLAnchorElement.hs b/src/GHCJS/DOM/JSFFI/Generated/HTMLAnchorElement.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/HTMLAnchorElement.hs +++ /dev/null @@ -1,409 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.HTMLAnchorElement - (js_toString, toString, js_setCharset, setCharset, js_getCharset, - getCharset, js_setCoords, setCoords, js_getCoords, getCoords, - js_setDownload, setDownload, js_getDownload, getDownload, - js_setHref, setHref, js_getHref, getHref, js_setHreflang, - setHreflang, js_getHreflang, getHreflang, js_setName, setName, - js_getName, getName, js_setPing, setPing, js_getPing, getPing, - js_setRel, setRel, js_getRel, getRel, js_setRev, setRev, js_getRev, - getRev, js_setShape, setShape, js_getShape, getShape, js_setTarget, - setTarget, js_getTarget, getTarget, js_setType, setType, - js_getType, getType, js_setHash, setHash, js_getHash, getHash, - js_setHost, setHost, js_getHost, getHost, js_setHostname, - setHostname, js_getHostname, getHostname, js_setPathname, - setPathname, js_getPathname, getPathname, js_setPort, setPort, - js_getPort, getPort, js_setProtocol, setProtocol, js_getProtocol, - getProtocol, js_setSearch, setSearch, js_getSearch, getSearch, - js_getOrigin, getOrigin, js_setText, setText, js_getText, getText, - js_getRelList, getRelList, HTMLAnchorElement, - castToHTMLAnchorElement, gTypeHTMLAnchorElement) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"toString\"]()" js_toString - :: HTMLAnchorElement -> IO JSString - --- | -toString :: - (MonadIO m, FromJSString result) => HTMLAnchorElement -> m result -toString self = liftIO (fromJSString <$> (js_toString (self))) - -foreign import javascript unsafe "$1[\"charset\"] = $2;" - js_setCharset :: HTMLAnchorElement -> JSString -> IO () - --- | -setCharset :: - (MonadIO m, ToJSString val) => HTMLAnchorElement -> val -> m () -setCharset self val - = liftIO (js_setCharset (self) (toJSString val)) - -foreign import javascript unsafe "$1[\"charset\"]" js_getCharset :: - HTMLAnchorElement -> IO JSString - --- | -getCharset :: - (MonadIO m, FromJSString result) => HTMLAnchorElement -> m result -getCharset self = liftIO (fromJSString <$> (js_getCharset (self))) - -foreign import javascript unsafe "$1[\"coords\"] = $2;" - js_setCoords :: HTMLAnchorElement -> JSString -> IO () - --- | -setCoords :: - (MonadIO m, ToJSString val) => HTMLAnchorElement -> val -> m () -setCoords self val = liftIO (js_setCoords (self) (toJSString val)) - -foreign import javascript unsafe "$1[\"coords\"]" js_getCoords :: - HTMLAnchorElement -> IO JSString - --- | -getCoords :: - (MonadIO m, FromJSString result) => HTMLAnchorElement -> m result -getCoords self = liftIO (fromJSString <$> (js_getCoords (self))) - -foreign import javascript unsafe "$1[\"download\"] = $2;" - js_setDownload :: HTMLAnchorElement -> JSString -> IO () - --- | -setDownload :: - (MonadIO m, ToJSString val) => HTMLAnchorElement -> val -> m () -setDownload self val - = liftIO (js_setDownload (self) (toJSString val)) - -foreign import javascript unsafe "$1[\"download\"]" js_getDownload - :: HTMLAnchorElement -> IO JSString - --- | -getDownload :: - (MonadIO m, FromJSString result) => HTMLAnchorElement -> m result -getDownload self - = liftIO (fromJSString <$> (js_getDownload (self))) - -foreign import javascript unsafe "$1[\"href\"] = $2;" js_setHref :: - HTMLAnchorElement -> JSString -> IO () - --- | -setHref :: - (MonadIO m, ToJSString val) => HTMLAnchorElement -> val -> m () -setHref self val = liftIO (js_setHref (self) (toJSString val)) - -foreign import javascript unsafe "$1[\"href\"]" js_getHref :: - HTMLAnchorElement -> IO JSString - --- | -getHref :: - (MonadIO m, FromJSString result) => HTMLAnchorElement -> m result -getHref self = liftIO (fromJSString <$> (js_getHref (self))) - -foreign import javascript unsafe "$1[\"hreflang\"] = $2;" - js_setHreflang :: HTMLAnchorElement -> JSString -> IO () - --- | -setHreflang :: - (MonadIO m, ToJSString val) => HTMLAnchorElement -> val -> m () -setHreflang self val - = liftIO (js_setHreflang (self) (toJSString val)) - -foreign import javascript unsafe "$1[\"hreflang\"]" js_getHreflang - :: HTMLAnchorElement -> IO JSString - --- | -getHreflang :: - (MonadIO m, FromJSString result) => HTMLAnchorElement -> m result -getHreflang self - = liftIO (fromJSString <$> (js_getHreflang (self))) - -foreign import javascript unsafe "$1[\"name\"] = $2;" js_setName :: - HTMLAnchorElement -> JSString -> IO () - --- | -setName :: - (MonadIO m, ToJSString val) => HTMLAnchorElement -> val -> m () -setName self val = liftIO (js_setName (self) (toJSString val)) - -foreign import javascript unsafe "$1[\"name\"]" js_getName :: - HTMLAnchorElement -> IO JSString - --- | -getName :: - (MonadIO m, FromJSString result) => HTMLAnchorElement -> m result -getName self = liftIO (fromJSString <$> (js_getName (self))) - -foreign import javascript unsafe "$1[\"ping\"] = $2;" js_setPing :: - HTMLAnchorElement -> JSString -> IO () - --- | -setPing :: - (MonadIO m, ToJSString val) => HTMLAnchorElement -> val -> m () -setPing self val = liftIO (js_setPing (self) (toJSString val)) - -foreign import javascript unsafe "$1[\"ping\"]" js_getPing :: - HTMLAnchorElement -> IO JSString - --- | -getPing :: - (MonadIO m, FromJSString result) => HTMLAnchorElement -> m result -getPing self = liftIO (fromJSString <$> (js_getPing (self))) - -foreign import javascript unsafe "$1[\"rel\"] = $2;" js_setRel :: - HTMLAnchorElement -> JSString -> IO () - --- | -setRel :: - (MonadIO m, ToJSString val) => HTMLAnchorElement -> val -> m () -setRel self val = liftIO (js_setRel (self) (toJSString val)) - -foreign import javascript unsafe "$1[\"rel\"]" js_getRel :: - HTMLAnchorElement -> IO JSString - --- | -getRel :: - (MonadIO m, FromJSString result) => HTMLAnchorElement -> m result -getRel self = liftIO (fromJSString <$> (js_getRel (self))) - -foreign import javascript unsafe "$1[\"rev\"] = $2;" js_setRev :: - HTMLAnchorElement -> JSString -> IO () - --- | -setRev :: - (MonadIO m, ToJSString val) => HTMLAnchorElement -> val -> m () -setRev self val = liftIO (js_setRev (self) (toJSString val)) - -foreign import javascript unsafe "$1[\"rev\"]" js_getRev :: - HTMLAnchorElement -> IO JSString - --- | -getRev :: - (MonadIO m, FromJSString result) => HTMLAnchorElement -> m result -getRev self = liftIO (fromJSString <$> (js_getRev (self))) - -foreign import javascript unsafe "$1[\"shape\"] = $2;" js_setShape - :: HTMLAnchorElement -> JSString -> IO () - --- | -setShape :: - (MonadIO m, ToJSString val) => HTMLAnchorElement -> val -> m () -setShape self val = liftIO (js_setShape (self) (toJSString val)) - -foreign import javascript unsafe "$1[\"shape\"]" js_getShape :: - HTMLAnchorElement -> IO JSString - --- | -getShape :: - (MonadIO m, FromJSString result) => HTMLAnchorElement -> m result -getShape self = liftIO (fromJSString <$> (js_getShape (self))) - -foreign import javascript unsafe "$1[\"target\"] = $2;" - js_setTarget :: HTMLAnchorElement -> JSString -> IO () - --- | -setTarget :: - (MonadIO m, ToJSString val) => HTMLAnchorElement -> val -> m () -setTarget self val = liftIO (js_setTarget (self) (toJSString val)) - -foreign import javascript unsafe "$1[\"target\"]" js_getTarget :: - HTMLAnchorElement -> IO JSString - --- | -getTarget :: - (MonadIO m, FromJSString result) => HTMLAnchorElement -> m result -getTarget self = liftIO (fromJSString <$> (js_getTarget (self))) - -foreign import javascript unsafe "$1[\"type\"] = $2;" js_setType :: - HTMLAnchorElement -> JSString -> IO () - --- | -setType :: - (MonadIO m, ToJSString val) => HTMLAnchorElement -> val -> m () -setType self val = liftIO (js_setType (self) (toJSString val)) - -foreign import javascript unsafe "$1[\"type\"]" js_getType :: - HTMLAnchorElement -> IO JSString - --- | -getType :: - (MonadIO m, FromJSString result) => HTMLAnchorElement -> m result -getType self = liftIO (fromJSString <$> (js_getType (self))) - -foreign import javascript unsafe "$1[\"hash\"] = $2;" js_setHash :: - HTMLAnchorElement -> Nullable JSString -> IO () - --- | -setHash :: - (MonadIO m, ToJSString val) => - HTMLAnchorElement -> Maybe val -> m () -setHash self val = liftIO (js_setHash (self) (toMaybeJSString val)) - -foreign import javascript unsafe "$1[\"hash\"]" js_getHash :: - HTMLAnchorElement -> IO (Nullable JSString) - --- | -getHash :: - (MonadIO m, FromJSString result) => - HTMLAnchorElement -> m (Maybe result) -getHash self = liftIO (fromMaybeJSString <$> (js_getHash (self))) - -foreign import javascript unsafe "$1[\"host\"] = $2;" js_setHost :: - HTMLAnchorElement -> Nullable JSString -> IO () - --- | -setHost :: - (MonadIO m, ToJSString val) => - HTMLAnchorElement -> Maybe val -> m () -setHost self val = liftIO (js_setHost (self) (toMaybeJSString val)) - -foreign import javascript unsafe "$1[\"host\"]" js_getHost :: - HTMLAnchorElement -> IO (Nullable JSString) - --- | -getHost :: - (MonadIO m, FromJSString result) => - HTMLAnchorElement -> m (Maybe result) -getHost self = liftIO (fromMaybeJSString <$> (js_getHost (self))) - -foreign import javascript unsafe "$1[\"hostname\"] = $2;" - js_setHostname :: HTMLAnchorElement -> Nullable JSString -> IO () - --- | -setHostname :: - (MonadIO m, ToJSString val) => - HTMLAnchorElement -> Maybe val -> m () -setHostname self val - = liftIO (js_setHostname (self) (toMaybeJSString val)) - -foreign import javascript unsafe "$1[\"hostname\"]" js_getHostname - :: HTMLAnchorElement -> IO (Nullable JSString) - --- | -getHostname :: - (MonadIO m, FromJSString result) => - HTMLAnchorElement -> m (Maybe result) -getHostname self - = liftIO (fromMaybeJSString <$> (js_getHostname (self))) - -foreign import javascript unsafe "$1[\"pathname\"] = $2;" - js_setPathname :: HTMLAnchorElement -> Nullable JSString -> IO () - --- | -setPathname :: - (MonadIO m, ToJSString val) => - HTMLAnchorElement -> Maybe val -> m () -setPathname self val - = liftIO (js_setPathname (self) (toMaybeJSString val)) - -foreign import javascript unsafe "$1[\"pathname\"]" js_getPathname - :: HTMLAnchorElement -> IO (Nullable JSString) - --- | -getPathname :: - (MonadIO m, FromJSString result) => - HTMLAnchorElement -> m (Maybe result) -getPathname self - = liftIO (fromMaybeJSString <$> (js_getPathname (self))) - -foreign import javascript unsafe "$1[\"port\"] = $2;" js_setPort :: - HTMLAnchorElement -> Nullable JSString -> IO () - --- | -setPort :: - (MonadIO m, ToJSString val) => - HTMLAnchorElement -> Maybe val -> m () -setPort self val = liftIO (js_setPort (self) (toMaybeJSString val)) - -foreign import javascript unsafe "$1[\"port\"]" js_getPort :: - HTMLAnchorElement -> IO (Nullable JSString) - --- | -getPort :: - (MonadIO m, FromJSString result) => - HTMLAnchorElement -> m (Maybe result) -getPort self = liftIO (fromMaybeJSString <$> (js_getPort (self))) - -foreign import javascript unsafe "$1[\"protocol\"] = $2;" - js_setProtocol :: HTMLAnchorElement -> Nullable JSString -> IO () - --- | -setProtocol :: - (MonadIO m, ToJSString val) => - HTMLAnchorElement -> Maybe val -> m () -setProtocol self val - = liftIO (js_setProtocol (self) (toMaybeJSString val)) - -foreign import javascript unsafe "$1[\"protocol\"]" js_getProtocol - :: HTMLAnchorElement -> IO (Nullable JSString) - --- | -getProtocol :: - (MonadIO m, FromJSString result) => - HTMLAnchorElement -> m (Maybe result) -getProtocol self - = liftIO (fromMaybeJSString <$> (js_getProtocol (self))) - -foreign import javascript unsafe "$1[\"search\"] = $2;" - js_setSearch :: HTMLAnchorElement -> Nullable JSString -> IO () - --- | -setSearch :: - (MonadIO m, ToJSString val) => - HTMLAnchorElement -> Maybe val -> m () -setSearch self val - = liftIO (js_setSearch (self) (toMaybeJSString val)) - -foreign import javascript unsafe "$1[\"search\"]" js_getSearch :: - HTMLAnchorElement -> IO (Nullable JSString) - --- | -getSearch :: - (MonadIO m, FromJSString result) => - HTMLAnchorElement -> m (Maybe result) -getSearch self - = liftIO (fromMaybeJSString <$> (js_getSearch (self))) - -foreign import javascript unsafe "$1[\"origin\"]" js_getOrigin :: - HTMLAnchorElement -> IO (Nullable JSString) - --- | -getOrigin :: - (MonadIO m, FromJSString result) => - HTMLAnchorElement -> m (Maybe result) -getOrigin self - = liftIO (fromMaybeJSString <$> (js_getOrigin (self))) - -foreign import javascript unsafe "$1[\"text\"] = $2;" js_setText :: - HTMLAnchorElement -> JSString -> IO () - --- | -setText :: - (MonadIO m, ToJSString val) => HTMLAnchorElement -> val -> m () -setText self val = liftIO (js_setText (self) (toJSString val)) - -foreign import javascript unsafe "$1[\"text\"]" js_getText :: - HTMLAnchorElement -> IO JSString - --- | -getText :: - (MonadIO m, FromJSString result) => HTMLAnchorElement -> m result -getText self = liftIO (fromJSString <$> (js_getText (self))) - -foreign import javascript unsafe "$1[\"relList\"]" js_getRelList :: - HTMLAnchorElement -> IO (Nullable DOMTokenList) - --- | -getRelList :: - (MonadIO m) => HTMLAnchorElement -> m (Maybe DOMTokenList) -getRelList self - = liftIO (nullableToMaybe <$> (js_getRelList (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/HTMLAppletElement.hs b/src/GHCJS/DOM/JSFFI/Generated/HTMLAppletElement.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/HTMLAppletElement.hs +++ /dev/null @@ -1,206 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.HTMLAppletElement - (js_setAlign, setAlign, js_getAlign, getAlign, js_setAlt, setAlt, - js_getAlt, getAlt, js_setArchive, setArchive, js_getArchive, - getArchive, js_setCode, setCode, js_getCode, getCode, - js_setCodeBase, setCodeBase, js_getCodeBase, getCodeBase, - js_setHeight, setHeight, js_getHeight, getHeight, js_setHspace, - setHspace, js_getHspace, getHspace, js_setName, setName, - js_getName, getName, js_setObject, setObject, js_getObject, - getObject, js_setVspace, setVspace, js_getVspace, getVspace, - js_setWidth, setWidth, js_getWidth, getWidth, HTMLAppletElement, - castToHTMLAppletElement, gTypeHTMLAppletElement) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"align\"] = $2;" js_setAlign - :: HTMLAppletElement -> JSString -> IO () - --- | -setAlign :: - (MonadIO m, ToJSString val) => HTMLAppletElement -> val -> m () -setAlign self val = liftIO (js_setAlign (self) (toJSString val)) - -foreign import javascript unsafe "$1[\"align\"]" js_getAlign :: - HTMLAppletElement -> IO JSString - --- | -getAlign :: - (MonadIO m, FromJSString result) => HTMLAppletElement -> m result -getAlign self = liftIO (fromJSString <$> (js_getAlign (self))) - -foreign import javascript unsafe "$1[\"alt\"] = $2;" js_setAlt :: - HTMLAppletElement -> JSString -> IO () - --- | -setAlt :: - (MonadIO m, ToJSString val) => HTMLAppletElement -> val -> m () -setAlt self val = liftIO (js_setAlt (self) (toJSString val)) - -foreign import javascript unsafe "$1[\"alt\"]" js_getAlt :: - HTMLAppletElement -> IO JSString - --- | -getAlt :: - (MonadIO m, FromJSString result) => HTMLAppletElement -> m result -getAlt self = liftIO (fromJSString <$> (js_getAlt (self))) - -foreign import javascript unsafe "$1[\"archive\"] = $2;" - js_setArchive :: HTMLAppletElement -> JSString -> IO () - --- | -setArchive :: - (MonadIO m, ToJSString val) => HTMLAppletElement -> val -> m () -setArchive self val - = liftIO (js_setArchive (self) (toJSString val)) - -foreign import javascript unsafe "$1[\"archive\"]" js_getArchive :: - HTMLAppletElement -> IO JSString - --- | -getArchive :: - (MonadIO m, FromJSString result) => HTMLAppletElement -> m result -getArchive self = liftIO (fromJSString <$> (js_getArchive (self))) - -foreign import javascript unsafe "$1[\"code\"] = $2;" js_setCode :: - HTMLAppletElement -> JSString -> IO () - --- | -setCode :: - (MonadIO m, ToJSString val) => HTMLAppletElement -> val -> m () -setCode self val = liftIO (js_setCode (self) (toJSString val)) - -foreign import javascript unsafe "$1[\"code\"]" js_getCode :: - HTMLAppletElement -> IO JSString - --- | -getCode :: - (MonadIO m, FromJSString result) => HTMLAppletElement -> m result -getCode self = liftIO (fromJSString <$> (js_getCode (self))) - -foreign import javascript unsafe "$1[\"codeBase\"] = $2;" - js_setCodeBase :: HTMLAppletElement -> JSString -> IO () - --- | -setCodeBase :: - (MonadIO m, ToJSString val) => HTMLAppletElement -> val -> m () -setCodeBase self val - = liftIO (js_setCodeBase (self) (toJSString val)) - -foreign import javascript unsafe "$1[\"codeBase\"]" js_getCodeBase - :: HTMLAppletElement -> IO JSString - --- | -getCodeBase :: - (MonadIO m, FromJSString result) => HTMLAppletElement -> m result -getCodeBase self - = liftIO (fromJSString <$> (js_getCodeBase (self))) - -foreign import javascript unsafe "$1[\"height\"] = $2;" - js_setHeight :: HTMLAppletElement -> JSString -> IO () - --- | -setHeight :: - (MonadIO m, ToJSString val) => HTMLAppletElement -> val -> m () -setHeight self val = liftIO (js_setHeight (self) (toJSString val)) - -foreign import javascript unsafe "$1[\"height\"]" js_getHeight :: - HTMLAppletElement -> IO JSString - --- | -getHeight :: - (MonadIO m, FromJSString result) => HTMLAppletElement -> m result -getHeight self = liftIO (fromJSString <$> (js_getHeight (self))) - -foreign import javascript unsafe "$1[\"hspace\"] = $2;" - js_setHspace :: HTMLAppletElement -> JSString -> IO () - --- | -setHspace :: - (MonadIO m, ToJSString val) => HTMLAppletElement -> val -> m () -setHspace self val = liftIO (js_setHspace (self) (toJSString val)) - -foreign import javascript unsafe "$1[\"hspace\"]" js_getHspace :: - HTMLAppletElement -> IO JSString - --- | -getHspace :: - (MonadIO m, FromJSString result) => HTMLAppletElement -> m result -getHspace self = liftIO (fromJSString <$> (js_getHspace (self))) - -foreign import javascript unsafe "$1[\"name\"] = $2;" js_setName :: - HTMLAppletElement -> JSString -> IO () - --- | -setName :: - (MonadIO m, ToJSString val) => HTMLAppletElement -> val -> m () -setName self val = liftIO (js_setName (self) (toJSString val)) - -foreign import javascript unsafe "$1[\"name\"]" js_getName :: - HTMLAppletElement -> IO JSString - --- | -getName :: - (MonadIO m, FromJSString result) => HTMLAppletElement -> m result -getName self = liftIO (fromJSString <$> (js_getName (self))) - -foreign import javascript unsafe "$1[\"object\"] = $2;" - js_setObject :: HTMLAppletElement -> JSString -> IO () - --- | -setObject :: - (MonadIO m, ToJSString val) => HTMLAppletElement -> val -> m () -setObject self val = liftIO (js_setObject (self) (toJSString val)) - -foreign import javascript unsafe "$1[\"object\"]" js_getObject :: - HTMLAppletElement -> IO JSString - --- | -getObject :: - (MonadIO m, FromJSString result) => HTMLAppletElement -> m result -getObject self = liftIO (fromJSString <$> (js_getObject (self))) - -foreign import javascript unsafe "$1[\"vspace\"] = $2;" - js_setVspace :: HTMLAppletElement -> JSString -> IO () - --- | -setVspace :: - (MonadIO m, ToJSString val) => HTMLAppletElement -> val -> m () -setVspace self val = liftIO (js_setVspace (self) (toJSString val)) - -foreign import javascript unsafe "$1[\"vspace\"]" js_getVspace :: - HTMLAppletElement -> IO JSString - --- | -getVspace :: - (MonadIO m, FromJSString result) => HTMLAppletElement -> m result -getVspace self = liftIO (fromJSString <$> (js_getVspace (self))) - -foreign import javascript unsafe "$1[\"width\"] = $2;" js_setWidth - :: HTMLAppletElement -> JSString -> IO () - --- | -setWidth :: - (MonadIO m, ToJSString val) => HTMLAppletElement -> val -> m () -setWidth self val = liftIO (js_setWidth (self) (toJSString val)) - -foreign import javascript unsafe "$1[\"width\"]" js_getWidth :: - HTMLAppletElement -> IO JSString - --- | -getWidth :: - (MonadIO m, FromJSString result) => HTMLAppletElement -> m result -getWidth self = liftIO (fromJSString <$> (js_getWidth (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/HTMLAreaElement.hs b/src/GHCJS/DOM/JSFFI/Generated/HTMLAreaElement.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/HTMLAreaElement.hs +++ /dev/null @@ -1,221 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.HTMLAreaElement - (js_setAlt, setAlt, js_getAlt, getAlt, js_setCoords, setCoords, - js_getCoords, getCoords, js_setHref, setHref, js_getHref, getHref, - js_setNoHref, setNoHref, js_getNoHref, getNoHref, js_setPing, - setPing, js_getPing, getPing, js_setRel, setRel, js_getRel, getRel, - js_setShape, setShape, js_getShape, getShape, js_setTarget, - setTarget, js_getTarget, getTarget, js_getHash, getHash, - js_getHost, getHost, js_getHostname, getHostname, js_getPathname, - getPathname, js_getPort, getPort, js_getProtocol, getProtocol, - js_getSearch, getSearch, js_getRelList, getRelList, - HTMLAreaElement, castToHTMLAreaElement, gTypeHTMLAreaElement) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"alt\"] = $2;" js_setAlt :: - HTMLAreaElement -> JSString -> IO () - --- | -setAlt :: - (MonadIO m, ToJSString val) => HTMLAreaElement -> val -> m () -setAlt self val = liftIO (js_setAlt (self) (toJSString val)) - -foreign import javascript unsafe "$1[\"alt\"]" js_getAlt :: - HTMLAreaElement -> IO JSString - --- | -getAlt :: - (MonadIO m, FromJSString result) => HTMLAreaElement -> m result -getAlt self = liftIO (fromJSString <$> (js_getAlt (self))) - -foreign import javascript unsafe "$1[\"coords\"] = $2;" - js_setCoords :: HTMLAreaElement -> JSString -> IO () - --- | -setCoords :: - (MonadIO m, ToJSString val) => HTMLAreaElement -> val -> m () -setCoords self val = liftIO (js_setCoords (self) (toJSString val)) - -foreign import javascript unsafe "$1[\"coords\"]" js_getCoords :: - HTMLAreaElement -> IO JSString - --- | -getCoords :: - (MonadIO m, FromJSString result) => HTMLAreaElement -> m result -getCoords self = liftIO (fromJSString <$> (js_getCoords (self))) - -foreign import javascript unsafe "$1[\"href\"] = $2;" js_setHref :: - HTMLAreaElement -> JSString -> IO () - --- | -setHref :: - (MonadIO m, ToJSString val) => HTMLAreaElement -> val -> m () -setHref self val = liftIO (js_setHref (self) (toJSString val)) - -foreign import javascript unsafe "$1[\"href\"]" js_getHref :: - HTMLAreaElement -> IO JSString - --- | -getHref :: - (MonadIO m, FromJSString result) => HTMLAreaElement -> m result -getHref self = liftIO (fromJSString <$> (js_getHref (self))) - -foreign import javascript unsafe "$1[\"noHref\"] = $2;" - js_setNoHref :: HTMLAreaElement -> Bool -> IO () - --- | -setNoHref :: (MonadIO m) => HTMLAreaElement -> Bool -> m () -setNoHref self val = liftIO (js_setNoHref (self) val) - -foreign import javascript unsafe "($1[\"noHref\"] ? 1 : 0)" - js_getNoHref :: HTMLAreaElement -> IO Bool - --- | -getNoHref :: (MonadIO m) => HTMLAreaElement -> m Bool -getNoHref self = liftIO (js_getNoHref (self)) - -foreign import javascript unsafe "$1[\"ping\"] = $2;" js_setPing :: - HTMLAreaElement -> JSString -> IO () - --- | -setPing :: - (MonadIO m, ToJSString val) => HTMLAreaElement -> val -> m () -setPing self val = liftIO (js_setPing (self) (toJSString val)) - -foreign import javascript unsafe "$1[\"ping\"]" js_getPing :: - HTMLAreaElement -> IO JSString - --- | -getPing :: - (MonadIO m, FromJSString result) => HTMLAreaElement -> m result -getPing self = liftIO (fromJSString <$> (js_getPing (self))) - -foreign import javascript unsafe "$1[\"rel\"] = $2;" js_setRel :: - HTMLAreaElement -> JSString -> IO () - --- | -setRel :: - (MonadIO m, ToJSString val) => HTMLAreaElement -> val -> m () -setRel self val = liftIO (js_setRel (self) (toJSString val)) - -foreign import javascript unsafe "$1[\"rel\"]" js_getRel :: - HTMLAreaElement -> IO JSString - --- | -getRel :: - (MonadIO m, FromJSString result) => HTMLAreaElement -> m result -getRel self = liftIO (fromJSString <$> (js_getRel (self))) - -foreign import javascript unsafe "$1[\"shape\"] = $2;" js_setShape - :: HTMLAreaElement -> JSString -> IO () - --- | -setShape :: - (MonadIO m, ToJSString val) => HTMLAreaElement -> val -> m () -setShape self val = liftIO (js_setShape (self) (toJSString val)) - -foreign import javascript unsafe "$1[\"shape\"]" js_getShape :: - HTMLAreaElement -> IO JSString - --- | -getShape :: - (MonadIO m, FromJSString result) => HTMLAreaElement -> m result -getShape self = liftIO (fromJSString <$> (js_getShape (self))) - -foreign import javascript unsafe "$1[\"target\"] = $2;" - js_setTarget :: HTMLAreaElement -> JSString -> IO () - --- | -setTarget :: - (MonadIO m, ToJSString val) => HTMLAreaElement -> val -> m () -setTarget self val = liftIO (js_setTarget (self) (toJSString val)) - -foreign import javascript unsafe "$1[\"target\"]" js_getTarget :: - HTMLAreaElement -> IO JSString - --- | -getTarget :: - (MonadIO m, FromJSString result) => HTMLAreaElement -> m result -getTarget self = liftIO (fromJSString <$> (js_getTarget (self))) - -foreign import javascript unsafe "$1[\"hash\"]" js_getHash :: - HTMLAreaElement -> IO JSString - --- | -getHash :: - (MonadIO m, FromJSString result) => HTMLAreaElement -> m result -getHash self = liftIO (fromJSString <$> (js_getHash (self))) - -foreign import javascript unsafe "$1[\"host\"]" js_getHost :: - HTMLAreaElement -> IO JSString - --- | -getHost :: - (MonadIO m, FromJSString result) => HTMLAreaElement -> m result -getHost self = liftIO (fromJSString <$> (js_getHost (self))) - -foreign import javascript unsafe "$1[\"hostname\"]" js_getHostname - :: HTMLAreaElement -> IO JSString - --- | -getHostname :: - (MonadIO m, FromJSString result) => HTMLAreaElement -> m result -getHostname self - = liftIO (fromJSString <$> (js_getHostname (self))) - -foreign import javascript unsafe "$1[\"pathname\"]" js_getPathname - :: HTMLAreaElement -> IO JSString - --- | -getPathname :: - (MonadIO m, FromJSString result) => HTMLAreaElement -> m result -getPathname self - = liftIO (fromJSString <$> (js_getPathname (self))) - -foreign import javascript unsafe "$1[\"port\"]" js_getPort :: - HTMLAreaElement -> IO JSString - --- | -getPort :: - (MonadIO m, FromJSString result) => HTMLAreaElement -> m result -getPort self = liftIO (fromJSString <$> (js_getPort (self))) - -foreign import javascript unsafe "$1[\"protocol\"]" js_getProtocol - :: HTMLAreaElement -> IO JSString - --- | -getProtocol :: - (MonadIO m, FromJSString result) => HTMLAreaElement -> m result -getProtocol self - = liftIO (fromJSString <$> (js_getProtocol (self))) - -foreign import javascript unsafe "$1[\"search\"]" js_getSearch :: - HTMLAreaElement -> IO JSString - --- | -getSearch :: - (MonadIO m, FromJSString result) => HTMLAreaElement -> m result -getSearch self = liftIO (fromJSString <$> (js_getSearch (self))) - -foreign import javascript unsafe "$1[\"relList\"]" js_getRelList :: - HTMLAreaElement -> IO (Nullable DOMTokenList) - --- | -getRelList :: - (MonadIO m) => HTMLAreaElement -> m (Maybe DOMTokenList) -getRelList self - = liftIO (nullableToMaybe <$> (js_getRelList (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/HTMLBRElement.hs b/src/GHCJS/DOM/JSFFI/Generated/HTMLBRElement.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/HTMLBRElement.hs +++ /dev/null @@ -1,35 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.HTMLBRElement - (js_setClear, setClear, js_getClear, getClear, HTMLBRElement, - castToHTMLBRElement, gTypeHTMLBRElement) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"clear\"] = $2;" js_setClear - :: HTMLBRElement -> JSString -> IO () - --- | -setClear :: - (MonadIO m, ToJSString val) => HTMLBRElement -> val -> m () -setClear self val = liftIO (js_setClear (self) (toJSString val)) - -foreign import javascript unsafe "$1[\"clear\"]" js_getClear :: - HTMLBRElement -> IO JSString - --- | -getClear :: - (MonadIO m, FromJSString result) => HTMLBRElement -> m result -getClear self = liftIO (fromJSString <$> (js_getClear (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/HTMLBaseElement.hs b/src/GHCJS/DOM/JSFFI/Generated/HTMLBaseElement.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/HTMLBaseElement.hs +++ /dev/null @@ -1,53 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.HTMLBaseElement - (js_setHref, setHref, js_getHref, getHref, js_setTarget, setTarget, - js_getTarget, getTarget, HTMLBaseElement, castToHTMLBaseElement, - gTypeHTMLBaseElement) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"href\"] = $2;" js_setHref :: - HTMLBaseElement -> Nullable JSString -> IO () - --- | -setHref :: - (MonadIO m, ToJSString val) => HTMLBaseElement -> Maybe val -> m () -setHref self val = liftIO (js_setHref (self) (toMaybeJSString val)) - -foreign import javascript unsafe "$1[\"href\"]" js_getHref :: - HTMLBaseElement -> IO (Nullable JSString) - --- | -getHref :: - (MonadIO m, FromJSString result) => - HTMLBaseElement -> m (Maybe result) -getHref self = liftIO (fromMaybeJSString <$> (js_getHref (self))) - -foreign import javascript unsafe "$1[\"target\"] = $2;" - js_setTarget :: HTMLBaseElement -> JSString -> IO () - --- | -setTarget :: - (MonadIO m, ToJSString val) => HTMLBaseElement -> val -> m () -setTarget self val = liftIO (js_setTarget (self) (toJSString val)) - -foreign import javascript unsafe "$1[\"target\"]" js_getTarget :: - HTMLBaseElement -> IO JSString - --- | -getTarget :: - (MonadIO m, FromJSString result) => HTMLBaseElement -> m result -getTarget self = liftIO (fromJSString <$> (js_getTarget (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/HTMLBaseFontElement.hs b/src/GHCJS/DOM/JSFFI/Generated/HTMLBaseFontElement.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/HTMLBaseFontElement.hs +++ /dev/null @@ -1,67 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.HTMLBaseFontElement - (js_setColor, setColor, js_getColor, getColor, js_setFace, setFace, - js_getFace, getFace, js_setSize, setSize, js_getSize, getSize, - HTMLBaseFontElement, castToHTMLBaseFontElement, - gTypeHTMLBaseFontElement) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"color\"] = $2;" js_setColor - :: HTMLBaseFontElement -> JSString -> IO () - --- | -setColor :: - (MonadIO m, ToJSString val) => HTMLBaseFontElement -> val -> m () -setColor self val = liftIO (js_setColor (self) (toJSString val)) - -foreign import javascript unsafe "$1[\"color\"]" js_getColor :: - HTMLBaseFontElement -> IO JSString - --- | -getColor :: - (MonadIO m, FromJSString result) => HTMLBaseFontElement -> m result -getColor self = liftIO (fromJSString <$> (js_getColor (self))) - -foreign import javascript unsafe "$1[\"face\"] = $2;" js_setFace :: - HTMLBaseFontElement -> JSString -> IO () - --- | -setFace :: - (MonadIO m, ToJSString val) => HTMLBaseFontElement -> val -> m () -setFace self val = liftIO (js_setFace (self) (toJSString val)) - -foreign import javascript unsafe "$1[\"face\"]" js_getFace :: - HTMLBaseFontElement -> IO JSString - --- | -getFace :: - (MonadIO m, FromJSString result) => HTMLBaseFontElement -> m result -getFace self = liftIO (fromJSString <$> (js_getFace (self))) - -foreign import javascript unsafe "$1[\"size\"] = $2;" js_setSize :: - HTMLBaseFontElement -> Int -> IO () - --- | -setSize :: (MonadIO m) => HTMLBaseFontElement -> Int -> m () -setSize self val = liftIO (js_setSize (self) val) - -foreign import javascript unsafe "$1[\"size\"]" js_getSize :: - HTMLBaseFontElement -> IO Int - --- | -getSize :: (MonadIO m) => HTMLBaseFontElement -> m Int -getSize self = liftIO (js_getSize (self)) diff --git a/src/GHCJS/DOM/JSFFI/Generated/HTMLBodyElement.hs b/src/GHCJS/DOM/JSFFI/Generated/HTMLBodyElement.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/HTMLBodyElement.hs +++ /dev/null @@ -1,181 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.HTMLBodyElement - (js_setALink, setALink, js_getALink, getALink, js_setBackground, - setBackground, js_getBackground, getBackground, js_setBgColor, - setBgColor, js_getBgColor, getBgColor, js_setLink, setLink, - js_getLink, getLink, js_setText, setText, js_getText, getText, - js_setVLink, setVLink, js_getVLink, getVLink, beforeUnload, - hashChange, message, offline, online, popState, resize, storage, - unload, orientationChange, blur, error, focus, load, - HTMLBodyElement, castToHTMLBodyElement, gTypeHTMLBodyElement) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"aLink\"] = $2;" js_setALink - :: HTMLBodyElement -> JSString -> IO () - --- | -setALink :: - (MonadIO m, ToJSString val) => HTMLBodyElement -> val -> m () -setALink self val = liftIO (js_setALink (self) (toJSString val)) - -foreign import javascript unsafe "$1[\"aLink\"]" js_getALink :: - HTMLBodyElement -> IO JSString - --- | -getALink :: - (MonadIO m, FromJSString result) => HTMLBodyElement -> m result -getALink self = liftIO (fromJSString <$> (js_getALink (self))) - -foreign import javascript unsafe "$1[\"background\"] = $2;" - js_setBackground :: HTMLBodyElement -> JSString -> IO () - --- | -setBackground :: - (MonadIO m, ToJSString val) => HTMLBodyElement -> val -> m () -setBackground self val - = liftIO (js_setBackground (self) (toJSString val)) - -foreign import javascript unsafe "$1[\"background\"]" - js_getBackground :: HTMLBodyElement -> IO JSString - --- | -getBackground :: - (MonadIO m, FromJSString result) => HTMLBodyElement -> m result -getBackground self - = liftIO (fromJSString <$> (js_getBackground (self))) - -foreign import javascript unsafe "$1[\"bgColor\"] = $2;" - js_setBgColor :: HTMLBodyElement -> JSString -> IO () - --- | -setBgColor :: - (MonadIO m, ToJSString val) => HTMLBodyElement -> val -> m () -setBgColor self val - = liftIO (js_setBgColor (self) (toJSString val)) - -foreign import javascript unsafe "$1[\"bgColor\"]" js_getBgColor :: - HTMLBodyElement -> IO JSString - --- | -getBgColor :: - (MonadIO m, FromJSString result) => HTMLBodyElement -> m result -getBgColor self = liftIO (fromJSString <$> (js_getBgColor (self))) - -foreign import javascript unsafe "$1[\"link\"] = $2;" js_setLink :: - HTMLBodyElement -> JSString -> IO () - --- | -setLink :: - (MonadIO m, ToJSString val) => HTMLBodyElement -> val -> m () -setLink self val = liftIO (js_setLink (self) (toJSString val)) - -foreign import javascript unsafe "$1[\"link\"]" js_getLink :: - HTMLBodyElement -> IO JSString - --- | -getLink :: - (MonadIO m, FromJSString result) => HTMLBodyElement -> m result -getLink self = liftIO (fromJSString <$> (js_getLink (self))) - -foreign import javascript unsafe "$1[\"text\"] = $2;" js_setText :: - HTMLBodyElement -> JSString -> IO () - --- | -setText :: - (MonadIO m, ToJSString val) => HTMLBodyElement -> val -> m () -setText self val = liftIO (js_setText (self) (toJSString val)) - -foreign import javascript unsafe "$1[\"text\"]" js_getText :: - HTMLBodyElement -> IO JSString - --- | -getText :: - (MonadIO m, FromJSString result) => HTMLBodyElement -> m result -getText self = liftIO (fromJSString <$> (js_getText (self))) - -foreign import javascript unsafe "$1[\"vLink\"] = $2;" js_setVLink - :: HTMLBodyElement -> JSString -> IO () - --- | -setVLink :: - (MonadIO m, ToJSString val) => HTMLBodyElement -> val -> m () -setVLink self val = liftIO (js_setVLink (self) (toJSString val)) - -foreign import javascript unsafe "$1[\"vLink\"]" js_getVLink :: - HTMLBodyElement -> IO JSString - --- | -getVLink :: - (MonadIO m, FromJSString result) => HTMLBodyElement -> m result -getVLink self = liftIO (fromJSString <$> (js_getVLink (self))) - --- | -beforeUnload :: EventName HTMLBodyElement BeforeUnloadEvent -beforeUnload = unsafeEventName (toJSString "beforeunload") - --- | -hashChange :: EventName HTMLBodyElement HashChangeEvent -hashChange = unsafeEventName (toJSString "hashchange") - --- | -message :: EventName HTMLBodyElement MessageEvent -message = unsafeEventName (toJSString "message") - --- | -offline :: EventName HTMLBodyElement Event -offline = unsafeEventName (toJSString "offline") - --- | -online :: EventName HTMLBodyElement Event -online = unsafeEventName (toJSString "online") - --- | -popState :: EventName HTMLBodyElement PopStateEvent -popState = unsafeEventName (toJSString "popstate") - --- | -resize :: EventName HTMLBodyElement UIEvent -resize = unsafeEventName (toJSString "resize") - --- | -storage :: EventName HTMLBodyElement StorageEvent -storage = unsafeEventName (toJSString "storage") - --- | -unload :: EventName HTMLBodyElement UIEvent -unload = unsafeEventName (toJSString "unload") - --- | -orientationChange :: EventName HTMLBodyElement Event -orientationChange - = unsafeEventName (toJSString "orientationchange") - --- | -blur :: EventName HTMLBodyElement FocusEvent -blur = unsafeEventName (toJSString "blur") - --- | -error :: EventName HTMLBodyElement UIEvent -error = unsafeEventName (toJSString "error") - --- | -focus :: EventName HTMLBodyElement FocusEvent -focus = unsafeEventName (toJSString "focus") - --- | -load :: EventName HTMLBodyElement UIEvent -load = unsafeEventName (toJSString "load") diff --git a/src/GHCJS/DOM/JSFFI/Generated/HTMLButtonElement.hs b/src/GHCJS/DOM/JSFFI/Generated/HTMLButtonElement.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/HTMLButtonElement.hs +++ /dev/null @@ -1,262 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.HTMLButtonElement - (js_checkValidity, checkValidity, js_setCustomValidity, - setCustomValidity, js_setAutofocus, setAutofocus, js_getAutofocus, - getAutofocus, js_setDisabled, setDisabled, js_getDisabled, - getDisabled, js_getForm, getForm, js_setFormAction, setFormAction, - js_getFormAction, getFormAction, js_setFormEnctype, setFormEnctype, - js_getFormEnctype, getFormEnctype, js_setFormMethod, setFormMethod, - js_getFormMethod, getFormMethod, js_setFormNoValidate, - setFormNoValidate, js_getFormNoValidate, getFormNoValidate, - js_setFormTarget, setFormTarget, js_getFormTarget, getFormTarget, - js_setName, setName, js_getName, getName, js_setType, setType, - js_getType, getType, js_setValue, setValue, js_getValue, getValue, - js_getWillValidate, getWillValidate, js_getValidity, getValidity, - js_getValidationMessage, getValidationMessage, js_getLabels, - getLabels, HTMLButtonElement, castToHTMLButtonElement, - gTypeHTMLButtonElement) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe - "($1[\"checkValidity\"]() ? 1 : 0)" js_checkValidity :: - HTMLButtonElement -> IO Bool - --- | -checkValidity :: (MonadIO m) => HTMLButtonElement -> m Bool -checkValidity self = liftIO (js_checkValidity (self)) - -foreign import javascript unsafe "$1[\"setCustomValidity\"]($2)" - js_setCustomValidity :: - HTMLButtonElement -> Nullable JSString -> IO () - --- | -setCustomValidity :: - (MonadIO m, ToJSString error) => - HTMLButtonElement -> Maybe error -> m () -setCustomValidity self error - = liftIO (js_setCustomValidity (self) (toMaybeJSString error)) - -foreign import javascript unsafe "$1[\"autofocus\"] = $2;" - js_setAutofocus :: HTMLButtonElement -> Bool -> IO () - --- | -setAutofocus :: (MonadIO m) => HTMLButtonElement -> Bool -> m () -setAutofocus self val = liftIO (js_setAutofocus (self) val) - -foreign import javascript unsafe "($1[\"autofocus\"] ? 1 : 0)" - js_getAutofocus :: HTMLButtonElement -> IO Bool - --- | -getAutofocus :: (MonadIO m) => HTMLButtonElement -> m Bool -getAutofocus self = liftIO (js_getAutofocus (self)) - -foreign import javascript unsafe "$1[\"disabled\"] = $2;" - js_setDisabled :: HTMLButtonElement -> Bool -> IO () - --- | -setDisabled :: (MonadIO m) => HTMLButtonElement -> Bool -> m () -setDisabled self val = liftIO (js_setDisabled (self) val) - -foreign import javascript unsafe "($1[\"disabled\"] ? 1 : 0)" - js_getDisabled :: HTMLButtonElement -> IO Bool - --- | -getDisabled :: (MonadIO m) => HTMLButtonElement -> m Bool -getDisabled self = liftIO (js_getDisabled (self)) - -foreign import javascript unsafe "$1[\"form\"]" js_getForm :: - HTMLButtonElement -> IO (Nullable HTMLFormElement) - --- | -getForm :: - (MonadIO m) => HTMLButtonElement -> m (Maybe HTMLFormElement) -getForm self = liftIO (nullableToMaybe <$> (js_getForm (self))) - -foreign import javascript unsafe "$1[\"formAction\"] = $2;" - js_setFormAction :: HTMLButtonElement -> JSString -> IO () - --- | -setFormAction :: - (MonadIO m, ToJSString val) => HTMLButtonElement -> val -> m () -setFormAction self val - = liftIO (js_setFormAction (self) (toJSString val)) - -foreign import javascript unsafe "$1[\"formAction\"]" - js_getFormAction :: HTMLButtonElement -> IO JSString - --- | -getFormAction :: - (MonadIO m, FromJSString result) => HTMLButtonElement -> m result -getFormAction self - = liftIO (fromJSString <$> (js_getFormAction (self))) - -foreign import javascript unsafe "$1[\"formEnctype\"] = $2;" - js_setFormEnctype :: - HTMLButtonElement -> Nullable JSString -> IO () - --- | -setFormEnctype :: - (MonadIO m, ToJSString val) => - HTMLButtonElement -> Maybe val -> m () -setFormEnctype self val - = liftIO (js_setFormEnctype (self) (toMaybeJSString val)) - -foreign import javascript unsafe "$1[\"formEnctype\"]" - js_getFormEnctype :: HTMLButtonElement -> IO (Nullable JSString) - --- | -getFormEnctype :: - (MonadIO m, FromJSString result) => - HTMLButtonElement -> m (Maybe result) -getFormEnctype self - = liftIO (fromMaybeJSString <$> (js_getFormEnctype (self))) - -foreign import javascript unsafe "$1[\"formMethod\"] = $2;" - js_setFormMethod :: HTMLButtonElement -> Nullable JSString -> IO () - --- | -setFormMethod :: - (MonadIO m, ToJSString val) => - HTMLButtonElement -> Maybe val -> m () -setFormMethod self val - = liftIO (js_setFormMethod (self) (toMaybeJSString val)) - -foreign import javascript unsafe "$1[\"formMethod\"]" - js_getFormMethod :: HTMLButtonElement -> IO (Nullable JSString) - --- | -getFormMethod :: - (MonadIO m, FromJSString result) => - HTMLButtonElement -> m (Maybe result) -getFormMethod self - = liftIO (fromMaybeJSString <$> (js_getFormMethod (self))) - -foreign import javascript unsafe "$1[\"formNoValidate\"] = $2;" - js_setFormNoValidate :: HTMLButtonElement -> Bool -> IO () - --- | -setFormNoValidate :: - (MonadIO m) => HTMLButtonElement -> Bool -> m () -setFormNoValidate self val - = liftIO (js_setFormNoValidate (self) val) - -foreign import javascript unsafe "($1[\"formNoValidate\"] ? 1 : 0)" - js_getFormNoValidate :: HTMLButtonElement -> IO Bool - --- | -getFormNoValidate :: (MonadIO m) => HTMLButtonElement -> m Bool -getFormNoValidate self = liftIO (js_getFormNoValidate (self)) - -foreign import javascript unsafe "$1[\"formTarget\"] = $2;" - js_setFormTarget :: HTMLButtonElement -> JSString -> IO () - --- | -setFormTarget :: - (MonadIO m, ToJSString val) => HTMLButtonElement -> val -> m () -setFormTarget self val - = liftIO (js_setFormTarget (self) (toJSString val)) - -foreign import javascript unsafe "$1[\"formTarget\"]" - js_getFormTarget :: HTMLButtonElement -> IO JSString - --- | -getFormTarget :: - (MonadIO m, FromJSString result) => HTMLButtonElement -> m result -getFormTarget self - = liftIO (fromJSString <$> (js_getFormTarget (self))) - -foreign import javascript unsafe "$1[\"name\"] = $2;" js_setName :: - HTMLButtonElement -> JSString -> IO () - --- | -setName :: - (MonadIO m, ToJSString val) => HTMLButtonElement -> val -> m () -setName self val = liftIO (js_setName (self) (toJSString val)) - -foreign import javascript unsafe "$1[\"name\"]" js_getName :: - HTMLButtonElement -> IO JSString - --- | -getName :: - (MonadIO m, FromJSString result) => HTMLButtonElement -> m result -getName self = liftIO (fromJSString <$> (js_getName (self))) - -foreign import javascript unsafe "$1[\"type\"] = $2;" js_setType :: - HTMLButtonElement -> Nullable JSString -> IO () - --- | -setType :: - (MonadIO m, ToJSString val) => - HTMLButtonElement -> Maybe val -> m () -setType self val = liftIO (js_setType (self) (toMaybeJSString val)) - -foreign import javascript unsafe "$1[\"type\"]" js_getType :: - HTMLButtonElement -> IO (Nullable JSString) - --- | -getType :: - (MonadIO m, FromJSString result) => - HTMLButtonElement -> m (Maybe result) -getType self = liftIO (fromMaybeJSString <$> (js_getType (self))) - -foreign import javascript unsafe "$1[\"value\"] = $2;" js_setValue - :: HTMLButtonElement -> JSString -> IO () - --- | -setValue :: - (MonadIO m, ToJSString val) => HTMLButtonElement -> val -> m () -setValue self val = liftIO (js_setValue (self) (toJSString val)) - -foreign import javascript unsafe "$1[\"value\"]" js_getValue :: - HTMLButtonElement -> IO JSString - --- | -getValue :: - (MonadIO m, FromJSString result) => HTMLButtonElement -> m result -getValue self = liftIO (fromJSString <$> (js_getValue (self))) - -foreign import javascript unsafe "($1[\"willValidate\"] ? 1 : 0)" - js_getWillValidate :: HTMLButtonElement -> IO Bool - --- | -getWillValidate :: (MonadIO m) => HTMLButtonElement -> m Bool -getWillValidate self = liftIO (js_getWillValidate (self)) - -foreign import javascript unsafe "$1[\"validity\"]" js_getValidity - :: HTMLButtonElement -> IO (Nullable ValidityState) - --- | -getValidity :: - (MonadIO m) => HTMLButtonElement -> m (Maybe ValidityState) -getValidity self - = liftIO (nullableToMaybe <$> (js_getValidity (self))) - -foreign import javascript unsafe "$1[\"validationMessage\"]" - js_getValidationMessage :: HTMLButtonElement -> IO JSString - --- | -getValidationMessage :: - (MonadIO m, FromJSString result) => HTMLButtonElement -> m result -getValidationMessage self - = liftIO (fromJSString <$> (js_getValidationMessage (self))) - -foreign import javascript unsafe "$1[\"labels\"]" js_getLabels :: - HTMLButtonElement -> IO (Nullable NodeList) - --- | -getLabels :: (MonadIO m) => HTMLButtonElement -> m (Maybe NodeList) -getLabels self = liftIO (nullableToMaybe <$> (js_getLabels (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/HTMLCanvasElement.hs b/src/GHCJS/DOM/JSFFI/Generated/HTMLCanvasElement.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/HTMLCanvasElement.hs +++ /dev/null @@ -1,83 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.HTMLCanvasElement - (js_toDataURL, toDataURL, js_getContext, getContext, - js_probablySupportsContext, probablySupportsContext, js_setWidth, - setWidth, js_getWidth, getWidth, js_setHeight, setHeight, - js_getHeight, getHeight, HTMLCanvasElement, - castToHTMLCanvasElement, gTypeHTMLCanvasElement) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"toDataURL\"]($2)" - js_toDataURL :: - HTMLCanvasElement -> Nullable JSString -> IO JSString - --- | -toDataURL :: - (MonadIO m, ToJSString type', FromJSString result) => - HTMLCanvasElement -> Maybe type' -> m result -toDataURL self type' - = liftIO - (fromJSString <$> (js_toDataURL (self) (toMaybeJSString type'))) - -foreign import javascript unsafe "$1[\"getContext\"]($2)" - js_getContext :: HTMLCanvasElement -> JSString -> IO JSVal - --- | -getContext :: - (MonadIO m, ToJSString contextId) => - HTMLCanvasElement -> contextId -> m JSVal -getContext self contextId - = liftIO (js_getContext (self) (toJSString contextId)) - -foreign import javascript unsafe - "$1[\"probablySupportsContext\"]($2)" js_probablySupportsContext :: - HTMLCanvasElement -> JSString -> IO JSVal - --- | -probablySupportsContext :: - (MonadIO m, ToJSString contextId) => - HTMLCanvasElement -> contextId -> m JSVal -probablySupportsContext self contextId - = liftIO (js_probablySupportsContext (self) (toJSString contextId)) - -foreign import javascript unsafe "$1[\"width\"] = $2;" js_setWidth - :: HTMLCanvasElement -> Int -> IO () - --- | -setWidth :: (MonadIO m) => HTMLCanvasElement -> Int -> m () -setWidth self val = liftIO (js_setWidth (self) val) - -foreign import javascript unsafe "$1[\"width\"]" js_getWidth :: - HTMLCanvasElement -> IO Int - --- | -getWidth :: (MonadIO m) => HTMLCanvasElement -> m Int -getWidth self = liftIO (js_getWidth (self)) - -foreign import javascript unsafe "$1[\"height\"] = $2;" - js_setHeight :: HTMLCanvasElement -> Int -> IO () - --- | -setHeight :: (MonadIO m) => HTMLCanvasElement -> Int -> m () -setHeight self val = liftIO (js_setHeight (self) val) - -foreign import javascript unsafe "$1[\"height\"]" js_getHeight :: - HTMLCanvasElement -> IO Int - --- | -getHeight :: (MonadIO m) => HTMLCanvasElement -> m Int -getHeight self = liftIO (js_getHeight (self)) diff --git a/src/GHCJS/DOM/JSFFI/Generated/HTMLCollection.hs b/src/GHCJS/DOM/JSFFI/Generated/HTMLCollection.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/HTMLCollection.hs +++ /dev/null @@ -1,50 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.HTMLCollection - (js_item, item, js_namedItem, namedItem, js_getLength, getLength, - HTMLCollection, castToHTMLCollection, gTypeHTMLCollection, - IsHTMLCollection, toHTMLCollection) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"item\"]($2)" js_item :: - HTMLCollection -> Word -> IO (Nullable Node) - --- | -item :: - (MonadIO m, IsHTMLCollection self) => - self -> Word -> m (Maybe Node) -item self index - = liftIO - (nullableToMaybe <$> (js_item (toHTMLCollection self) index)) - -foreign import javascript unsafe "$1[\"namedItem\"]($2)" - js_namedItem :: HTMLCollection -> JSString -> IO (Nullable Node) - --- | -namedItem :: - (MonadIO m, IsHTMLCollection self, ToJSString name) => - self -> name -> m (Maybe Node) -namedItem self name - = liftIO - (nullableToMaybe <$> - (js_namedItem (toHTMLCollection self) (toJSString name))) - -foreign import javascript unsafe "$1[\"length\"]" js_getLength :: - HTMLCollection -> IO Word - --- | -getLength :: (MonadIO m, IsHTMLCollection self) => self -> m Word -getLength self = liftIO (js_getLength (toHTMLCollection self)) diff --git a/src/GHCJS/DOM/JSFFI/Generated/HTMLDListElement.hs b/src/GHCJS/DOM/JSFFI/Generated/HTMLDListElement.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/HTMLDListElement.hs +++ /dev/null @@ -1,33 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.HTMLDListElement - (js_setCompact, setCompact, js_getCompact, getCompact, - HTMLDListElement, castToHTMLDListElement, gTypeHTMLDListElement) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"compact\"] = $2;" - js_setCompact :: HTMLDListElement -> Bool -> IO () - --- | -setCompact :: (MonadIO m) => HTMLDListElement -> Bool -> m () -setCompact self val = liftIO (js_setCompact (self) val) - -foreign import javascript unsafe "($1[\"compact\"] ? 1 : 0)" - js_getCompact :: HTMLDListElement -> IO Bool - --- | -getCompact :: (MonadIO m) => HTMLDListElement -> m Bool -getCompact self = liftIO (js_getCompact (self)) diff --git a/src/GHCJS/DOM/JSFFI/Generated/HTMLDataListElement.hs b/src/GHCJS/DOM/JSFFI/Generated/HTMLDataListElement.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/HTMLDataListElement.hs +++ /dev/null @@ -1,28 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.HTMLDataListElement - (js_getOptions, getOptions, HTMLDataListElement, - castToHTMLDataListElement, gTypeHTMLDataListElement) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"options\"]" js_getOptions :: - HTMLDataListElement -> IO (Nullable HTMLCollection) - --- | -getOptions :: - (MonadIO m) => HTMLDataListElement -> m (Maybe HTMLCollection) -getOptions self - = liftIO (nullableToMaybe <$> (js_getOptions (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/HTMLDetailsElement.hs b/src/GHCJS/DOM/JSFFI/Generated/HTMLDetailsElement.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/HTMLDetailsElement.hs +++ /dev/null @@ -1,33 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.HTMLDetailsElement - (js_setOpen, setOpen, js_getOpen, getOpen, HTMLDetailsElement, - castToHTMLDetailsElement, gTypeHTMLDetailsElement) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"open\"] = $2;" js_setOpen :: - HTMLDetailsElement -> Bool -> IO () - --- | -setOpen :: (MonadIO m) => HTMLDetailsElement -> Bool -> m () -setOpen self val = liftIO (js_setOpen (self) val) - -foreign import javascript unsafe "($1[\"open\"] ? 1 : 0)" - js_getOpen :: HTMLDetailsElement -> IO Bool - --- | -getOpen :: (MonadIO m) => HTMLDetailsElement -> m Bool -getOpen self = liftIO (js_getOpen (self)) diff --git a/src/GHCJS/DOM/JSFFI/Generated/HTMLDirectoryElement.hs b/src/GHCJS/DOM/JSFFI/Generated/HTMLDirectoryElement.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/HTMLDirectoryElement.hs +++ /dev/null @@ -1,34 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.HTMLDirectoryElement - (js_setCompact, setCompact, js_getCompact, getCompact, - HTMLDirectoryElement, castToHTMLDirectoryElement, - gTypeHTMLDirectoryElement) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"compact\"] = $2;" - js_setCompact :: HTMLDirectoryElement -> Bool -> IO () - --- | -setCompact :: (MonadIO m) => HTMLDirectoryElement -> Bool -> m () -setCompact self val = liftIO (js_setCompact (self) val) - -foreign import javascript unsafe "($1[\"compact\"] ? 1 : 0)" - js_getCompact :: HTMLDirectoryElement -> IO Bool - --- | -getCompact :: (MonadIO m) => HTMLDirectoryElement -> m Bool -getCompact self = liftIO (js_getCompact (self)) diff --git a/src/GHCJS/DOM/JSFFI/Generated/HTMLDivElement.hs b/src/GHCJS/DOM/JSFFI/Generated/HTMLDivElement.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/HTMLDivElement.hs +++ /dev/null @@ -1,35 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.HTMLDivElement - (js_setAlign, setAlign, js_getAlign, getAlign, HTMLDivElement, - castToHTMLDivElement, gTypeHTMLDivElement) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"align\"] = $2;" js_setAlign - :: HTMLDivElement -> JSString -> IO () - --- | -setAlign :: - (MonadIO m, ToJSString val) => HTMLDivElement -> val -> m () -setAlign self val = liftIO (js_setAlign (self) (toJSString val)) - -foreign import javascript unsafe "$1[\"align\"]" js_getAlign :: - HTMLDivElement -> IO JSString - --- | -getAlign :: - (MonadIO m, FromJSString result) => HTMLDivElement -> m result -getAlign self = liftIO (fromJSString <$> (js_getAlign (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/HTMLDocument.hs b/src/GHCJS/DOM/JSFFI/Generated/HTMLDocument.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/HTMLDocument.hs +++ /dev/null @@ -1,269 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.HTMLDocument - (js_open, open, js_close, close, js_write, write, js_writeln, - writeln, js_clear, clear, js_captureEvents, captureEvents, - js_releaseEvents, releaseEvents, js_getEmbeds, getEmbeds, - js_getPlugins, getPlugins, js_getScripts, getScripts, js_getAll, - getAll, js_getWidth, getWidth, js_getHeight, getHeight, js_setDir, - setDir, js_getDir, getDir, js_setDesignMode, setDesignMode, - js_getDesignMode, getDesignMode, js_getCompatMode, getCompatMode, - js_setBgColor, setBgColor, js_getBgColor, getBgColor, - js_setFgColor, setFgColor, js_getFgColor, getFgColor, - js_setAlinkColor, setAlinkColor, js_getAlinkColor, getAlinkColor, - js_setLinkColor, setLinkColor, js_getLinkColor, getLinkColor, - js_setVlinkColor, setVlinkColor, js_getVlinkColor, getVlinkColor, - HTMLDocument, castToHTMLDocument, gTypeHTMLDocument) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"open\"]()" js_open :: - HTMLDocument -> IO () - --- | -open :: (MonadIO m) => HTMLDocument -> m () -open self = liftIO (js_open (self)) - -foreign import javascript unsafe "$1[\"close\"]()" js_close :: - HTMLDocument -> IO () - --- | -close :: (MonadIO m) => HTMLDocument -> m () -close self = liftIO (js_close (self)) - -foreign import javascript unsafe "$1[\"write\"]($2)" js_write :: - HTMLDocument -> JSString -> IO () - --- | -write :: - (MonadIO m, ToJSString text) => HTMLDocument -> text -> m () -write self text = liftIO (js_write (self) (toJSString text)) - -foreign import javascript unsafe "$1[\"writeln\"]($2)" js_writeln - :: HTMLDocument -> JSString -> IO () - --- | -writeln :: - (MonadIO m, ToJSString text) => HTMLDocument -> text -> m () -writeln self text = liftIO (js_writeln (self) (toJSString text)) - -foreign import javascript unsafe "$1[\"clear\"]()" js_clear :: - HTMLDocument -> IO () - --- | -clear :: (MonadIO m) => HTMLDocument -> m () -clear self = liftIO (js_clear (self)) - -foreign import javascript unsafe "$1[\"captureEvents\"]()" - js_captureEvents :: HTMLDocument -> IO () - --- | -captureEvents :: (MonadIO m) => HTMLDocument -> m () -captureEvents self = liftIO (js_captureEvents (self)) - -foreign import javascript unsafe "$1[\"releaseEvents\"]()" - js_releaseEvents :: HTMLDocument -> IO () - --- | -releaseEvents :: (MonadIO m) => HTMLDocument -> m () -releaseEvents self = liftIO (js_releaseEvents (self)) - -foreign import javascript unsafe "$1[\"embeds\"]" js_getEmbeds :: - HTMLDocument -> IO (Nullable HTMLCollection) - --- | -getEmbeds :: - (MonadIO m) => HTMLDocument -> m (Maybe HTMLCollection) -getEmbeds self = liftIO (nullableToMaybe <$> (js_getEmbeds (self))) - -foreign import javascript unsafe "$1[\"plugins\"]" js_getPlugins :: - HTMLDocument -> IO (Nullable HTMLCollection) - --- | -getPlugins :: - (MonadIO m) => HTMLDocument -> m (Maybe HTMLCollection) -getPlugins self - = liftIO (nullableToMaybe <$> (js_getPlugins (self))) - -foreign import javascript unsafe "$1[\"scripts\"]" js_getScripts :: - HTMLDocument -> IO (Nullable HTMLCollection) - --- | -getScripts :: - (MonadIO m) => HTMLDocument -> m (Maybe HTMLCollection) -getScripts self - = liftIO (nullableToMaybe <$> (js_getScripts (self))) - -foreign import javascript unsafe "$1[\"all\"]" js_getAll :: - HTMLDocument -> IO (Nullable HTMLAllCollection) - --- | -getAll :: - (MonadIO m) => HTMLDocument -> m (Maybe HTMLAllCollection) -getAll self = liftIO (nullableToMaybe <$> (js_getAll (self))) - -foreign import javascript unsafe "$1[\"width\"]" js_getWidth :: - HTMLDocument -> IO Int - --- | -getWidth :: (MonadIO m) => HTMLDocument -> m Int -getWidth self = liftIO (js_getWidth (self)) - -foreign import javascript unsafe "$1[\"height\"]" js_getHeight :: - HTMLDocument -> IO Int - --- | -getHeight :: (MonadIO m) => HTMLDocument -> m Int -getHeight self = liftIO (js_getHeight (self)) - -foreign import javascript unsafe "$1[\"dir\"] = $2;" js_setDir :: - HTMLDocument -> Nullable JSString -> IO () - --- | -setDir :: - (MonadIO m, ToJSString val) => HTMLDocument -> Maybe val -> m () -setDir self val = liftIO (js_setDir (self) (toMaybeJSString val)) - -foreign import javascript unsafe "$1[\"dir\"]" js_getDir :: - HTMLDocument -> IO (Nullable JSString) - --- | -getDir :: - (MonadIO m, FromJSString result) => - HTMLDocument -> m (Maybe result) -getDir self = liftIO (fromMaybeJSString <$> (js_getDir (self))) - -foreign import javascript unsafe "$1[\"designMode\"] = $2;" - js_setDesignMode :: HTMLDocument -> Nullable JSString -> IO () - --- | -setDesignMode :: - (MonadIO m, ToJSString val) => HTMLDocument -> Maybe val -> m () -setDesignMode self val - = liftIO (js_setDesignMode (self) (toMaybeJSString val)) - -foreign import javascript unsafe "$1[\"designMode\"]" - js_getDesignMode :: HTMLDocument -> IO (Nullable JSString) - --- | -getDesignMode :: - (MonadIO m, FromJSString result) => - HTMLDocument -> m (Maybe result) -getDesignMode self - = liftIO (fromMaybeJSString <$> (js_getDesignMode (self))) - -foreign import javascript unsafe "$1[\"compatMode\"]" - js_getCompatMode :: HTMLDocument -> IO JSString - --- | -getCompatMode :: - (MonadIO m, FromJSString result) => HTMLDocument -> m result -getCompatMode self - = liftIO (fromJSString <$> (js_getCompatMode (self))) - -foreign import javascript unsafe "$1[\"bgColor\"] = $2;" - js_setBgColor :: HTMLDocument -> Nullable JSString -> IO () - --- | -setBgColor :: - (MonadIO m, ToJSString val) => HTMLDocument -> Maybe val -> m () -setBgColor self val - = liftIO (js_setBgColor (self) (toMaybeJSString val)) - -foreign import javascript unsafe "$1[\"bgColor\"]" js_getBgColor :: - HTMLDocument -> IO (Nullable JSString) - --- | -getBgColor :: - (MonadIO m, FromJSString result) => - HTMLDocument -> m (Maybe result) -getBgColor self - = liftIO (fromMaybeJSString <$> (js_getBgColor (self))) - -foreign import javascript unsafe "$1[\"fgColor\"] = $2;" - js_setFgColor :: HTMLDocument -> Nullable JSString -> IO () - --- | -setFgColor :: - (MonadIO m, ToJSString val) => HTMLDocument -> Maybe val -> m () -setFgColor self val - = liftIO (js_setFgColor (self) (toMaybeJSString val)) - -foreign import javascript unsafe "$1[\"fgColor\"]" js_getFgColor :: - HTMLDocument -> IO (Nullable JSString) - --- | -getFgColor :: - (MonadIO m, FromJSString result) => - HTMLDocument -> m (Maybe result) -getFgColor self - = liftIO (fromMaybeJSString <$> (js_getFgColor (self))) - -foreign import javascript unsafe "$1[\"alinkColor\"] = $2;" - js_setAlinkColor :: HTMLDocument -> Nullable JSString -> IO () - --- | -setAlinkColor :: - (MonadIO m, ToJSString val) => HTMLDocument -> Maybe val -> m () -setAlinkColor self val - = liftIO (js_setAlinkColor (self) (toMaybeJSString val)) - -foreign import javascript unsafe "$1[\"alinkColor\"]" - js_getAlinkColor :: HTMLDocument -> IO (Nullable JSString) - --- | -getAlinkColor :: - (MonadIO m, FromJSString result) => - HTMLDocument -> m (Maybe result) -getAlinkColor self - = liftIO (fromMaybeJSString <$> (js_getAlinkColor (self))) - -foreign import javascript unsafe "$1[\"linkColor\"] = $2;" - js_setLinkColor :: HTMLDocument -> Nullable JSString -> IO () - --- | -setLinkColor :: - (MonadIO m, ToJSString val) => HTMLDocument -> Maybe val -> m () -setLinkColor self val - = liftIO (js_setLinkColor (self) (toMaybeJSString val)) - -foreign import javascript unsafe "$1[\"linkColor\"]" - js_getLinkColor :: HTMLDocument -> IO (Nullable JSString) - --- | -getLinkColor :: - (MonadIO m, FromJSString result) => - HTMLDocument -> m (Maybe result) -getLinkColor self - = liftIO (fromMaybeJSString <$> (js_getLinkColor (self))) - -foreign import javascript unsafe "$1[\"vlinkColor\"] = $2;" - js_setVlinkColor :: HTMLDocument -> Nullable JSString -> IO () - --- | -setVlinkColor :: - (MonadIO m, ToJSString val) => HTMLDocument -> Maybe val -> m () -setVlinkColor self val - = liftIO (js_setVlinkColor (self) (toMaybeJSString val)) - -foreign import javascript unsafe "$1[\"vlinkColor\"]" - js_getVlinkColor :: HTMLDocument -> IO (Nullable JSString) - --- | -getVlinkColor :: - (MonadIO m, FromJSString result) => - HTMLDocument -> m (Maybe result) -getVlinkColor self - = liftIO (fromMaybeJSString <$> (js_getVlinkColor (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/HTMLElement.hs b/src/GHCJS/DOM/JSFFI/Generated/HTMLElement.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/HTMLElement.hs +++ /dev/null @@ -1,355 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.HTMLElement - (js_insertAdjacentElement, insertAdjacentElement, - js_insertAdjacentHTML, insertAdjacentHTML, js_insertAdjacentText, - insertAdjacentText, js_click, click, js_setTitle, setTitle, - js_getTitle, getTitle, js_setLang, setLang, js_getLang, getLang, - js_setTranslate, setTranslate, js_getTranslate, getTranslate, - js_setDir, setDir, js_getDir, getDir, js_setTabIndex, setTabIndex, - js_getTabIndex, getTabIndex, js_setDraggable, setDraggable, - js_getDraggable, getDraggable, js_setWebkitdropzone, - setWebkitdropzone, js_getWebkitdropzone, getWebkitdropzone, - js_setHidden, setHidden, js_getHidden, getHidden, js_setAccessKey, - setAccessKey, js_getAccessKey, getAccessKey, js_setInnerText, - setInnerText, js_getInnerText, getInnerText, js_setOuterText, - setOuterText, js_getOuterText, getOuterText, js_getChildren, - getChildren, js_setContentEditable, setContentEditable, - js_getContentEditable, getContentEditable, js_getIsContentEditable, - getIsContentEditable, js_setSpellcheck, setSpellcheck, - js_getSpellcheck, getSpellcheck, HTMLElement, castToHTMLElement, - gTypeHTMLElement, IsHTMLElement, toHTMLElement) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe - "$1[\"insertAdjacentElement\"]($2,\n$3)" js_insertAdjacentElement - :: - HTMLElement -> - JSString -> Nullable Element -> IO (Nullable Element) - --- | -insertAdjacentElement :: - (MonadIO m, IsHTMLElement self, ToJSString where', - IsElement element) => - self -> where' -> Maybe element -> m (Maybe Element) -insertAdjacentElement self where' element - = liftIO - (nullableToMaybe <$> - (js_insertAdjacentElement (toHTMLElement self) (toJSString where') - (maybeToNullable (fmap toElement element)))) - -foreign import javascript unsafe - "$1[\"insertAdjacentHTML\"]($2, $3)" js_insertAdjacentHTML :: - HTMLElement -> JSString -> JSString -> IO () - --- | -insertAdjacentHTML :: - (MonadIO m, IsHTMLElement self, ToJSString where', - ToJSString html) => - self -> where' -> html -> m () -insertAdjacentHTML self where' html - = liftIO - (js_insertAdjacentHTML (toHTMLElement self) (toJSString where') - (toJSString html)) - -foreign import javascript unsafe - "$1[\"insertAdjacentText\"]($2, $3)" js_insertAdjacentText :: - HTMLElement -> JSString -> JSString -> IO () - --- | -insertAdjacentText :: - (MonadIO m, IsHTMLElement self, ToJSString where', - ToJSString text) => - self -> where' -> text -> m () -insertAdjacentText self where' text - = liftIO - (js_insertAdjacentText (toHTMLElement self) (toJSString where') - (toJSString text)) - -foreign import javascript unsafe "$1[\"click\"]()" js_click :: - HTMLElement -> IO () - --- | -click :: (MonadIO m, IsHTMLElement self) => self -> m () -click self = liftIO (js_click (toHTMLElement self)) - -foreign import javascript unsafe "$1[\"title\"] = $2;" js_setTitle - :: HTMLElement -> JSString -> IO () - --- | -setTitle :: - (MonadIO m, IsHTMLElement self, ToJSString val) => - self -> val -> m () -setTitle self val - = liftIO (js_setTitle (toHTMLElement self) (toJSString val)) - -foreign import javascript unsafe "$1[\"title\"]" js_getTitle :: - HTMLElement -> IO JSString - --- | -getTitle :: - (MonadIO m, IsHTMLElement self, FromJSString result) => - self -> m result -getTitle self - = liftIO (fromJSString <$> (js_getTitle (toHTMLElement self))) - -foreign import javascript unsafe "$1[\"lang\"] = $2;" js_setLang :: - HTMLElement -> JSString -> IO () - --- | -setLang :: - (MonadIO m, IsHTMLElement self, ToJSString val) => - self -> val -> m () -setLang self val - = liftIO (js_setLang (toHTMLElement self) (toJSString val)) - -foreign import javascript unsafe "$1[\"lang\"]" js_getLang :: - HTMLElement -> IO JSString - --- | -getLang :: - (MonadIO m, IsHTMLElement self, FromJSString result) => - self -> m result -getLang self - = liftIO (fromJSString <$> (js_getLang (toHTMLElement self))) - -foreign import javascript unsafe "$1[\"translate\"] = $2;" - js_setTranslate :: HTMLElement -> Bool -> IO () - --- | -setTranslate :: - (MonadIO m, IsHTMLElement self) => self -> Bool -> m () -setTranslate self val - = liftIO (js_setTranslate (toHTMLElement self) val) - -foreign import javascript unsafe "($1[\"translate\"] ? 1 : 0)" - js_getTranslate :: HTMLElement -> IO Bool - --- | -getTranslate :: (MonadIO m, IsHTMLElement self) => self -> m Bool -getTranslate self = liftIO (js_getTranslate (toHTMLElement self)) - -foreign import javascript unsafe "$1[\"dir\"] = $2;" js_setDir :: - HTMLElement -> JSString -> IO () - --- | -setDir :: - (MonadIO m, IsHTMLElement self, ToJSString val) => - self -> val -> m () -setDir self val - = liftIO (js_setDir (toHTMLElement self) (toJSString val)) - -foreign import javascript unsafe "$1[\"dir\"]" js_getDir :: - HTMLElement -> IO JSString - --- | -getDir :: - (MonadIO m, IsHTMLElement self, FromJSString result) => - self -> m result -getDir self - = liftIO (fromJSString <$> (js_getDir (toHTMLElement self))) - -foreign import javascript unsafe "$1[\"tabIndex\"] = $2;" - js_setTabIndex :: HTMLElement -> Int -> IO () - --- | -setTabIndex :: - (MonadIO m, IsHTMLElement self) => self -> Int -> m () -setTabIndex self val - = liftIO (js_setTabIndex (toHTMLElement self) val) - -foreign import javascript unsafe "$1[\"tabIndex\"]" js_getTabIndex - :: HTMLElement -> IO Int - --- | -getTabIndex :: (MonadIO m, IsHTMLElement self) => self -> m Int -getTabIndex self = liftIO (js_getTabIndex (toHTMLElement self)) - -foreign import javascript unsafe "$1[\"draggable\"] = $2;" - js_setDraggable :: HTMLElement -> Bool -> IO () - --- | -setDraggable :: - (MonadIO m, IsHTMLElement self) => self -> Bool -> m () -setDraggable self val - = liftIO (js_setDraggable (toHTMLElement self) val) - -foreign import javascript unsafe "($1[\"draggable\"] ? 1 : 0)" - js_getDraggable :: HTMLElement -> IO Bool - --- | -getDraggable :: (MonadIO m, IsHTMLElement self) => self -> m Bool -getDraggable self = liftIO (js_getDraggable (toHTMLElement self)) - -foreign import javascript unsafe "$1[\"webkitdropzone\"] = $2;" - js_setWebkitdropzone :: HTMLElement -> JSString -> IO () - --- | -setWebkitdropzone :: - (MonadIO m, IsHTMLElement self, ToJSString val) => - self -> val -> m () -setWebkitdropzone self val - = liftIO - (js_setWebkitdropzone (toHTMLElement self) (toJSString val)) - -foreign import javascript unsafe "$1[\"webkitdropzone\"]" - js_getWebkitdropzone :: HTMLElement -> IO JSString - --- | -getWebkitdropzone :: - (MonadIO m, IsHTMLElement self, FromJSString result) => - self -> m result -getWebkitdropzone self - = liftIO - (fromJSString <$> (js_getWebkitdropzone (toHTMLElement self))) - -foreign import javascript unsafe "$1[\"hidden\"] = $2;" - js_setHidden :: HTMLElement -> Bool -> IO () - --- | -setHidden :: - (MonadIO m, IsHTMLElement self) => self -> Bool -> m () -setHidden self val = liftIO (js_setHidden (toHTMLElement self) val) - -foreign import javascript unsafe "($1[\"hidden\"] ? 1 : 0)" - js_getHidden :: HTMLElement -> IO Bool - --- | -getHidden :: (MonadIO m, IsHTMLElement self) => self -> m Bool -getHidden self = liftIO (js_getHidden (toHTMLElement self)) - -foreign import javascript unsafe "$1[\"accessKey\"] = $2;" - js_setAccessKey :: HTMLElement -> JSString -> IO () - --- | -setAccessKey :: - (MonadIO m, IsHTMLElement self, ToJSString val) => - self -> val -> m () -setAccessKey self val - = liftIO (js_setAccessKey (toHTMLElement self) (toJSString val)) - -foreign import javascript unsafe "$1[\"accessKey\"]" - js_getAccessKey :: HTMLElement -> IO JSString - --- | -getAccessKey :: - (MonadIO m, IsHTMLElement self, FromJSString result) => - self -> m result -getAccessKey self - = liftIO (fromJSString <$> (js_getAccessKey (toHTMLElement self))) - -foreign import javascript unsafe "$1[\"innerText\"] = $2;" - js_setInnerText :: HTMLElement -> Nullable JSString -> IO () - --- | -setInnerText :: - (MonadIO m, IsHTMLElement self, ToJSString val) => - self -> Maybe val -> m () -setInnerText self val - = liftIO - (js_setInnerText (toHTMLElement self) (toMaybeJSString val)) - -foreign import javascript unsafe "$1[\"innerText\"]" - js_getInnerText :: HTMLElement -> IO (Nullable JSString) - --- | -getInnerText :: - (MonadIO m, IsHTMLElement self, FromJSString result) => - self -> m (Maybe result) -getInnerText self - = liftIO - (fromMaybeJSString <$> (js_getInnerText (toHTMLElement self))) - -foreign import javascript unsafe "$1[\"outerText\"] = $2;" - js_setOuterText :: HTMLElement -> Nullable JSString -> IO () - --- | -setOuterText :: - (MonadIO m, IsHTMLElement self, ToJSString val) => - self -> Maybe val -> m () -setOuterText self val - = liftIO - (js_setOuterText (toHTMLElement self) (toMaybeJSString val)) - -foreign import javascript unsafe "$1[\"outerText\"]" - js_getOuterText :: HTMLElement -> IO (Nullable JSString) - --- | -getOuterText :: - (MonadIO m, IsHTMLElement self, FromJSString result) => - self -> m (Maybe result) -getOuterText self - = liftIO - (fromMaybeJSString <$> (js_getOuterText (toHTMLElement self))) - -foreign import javascript unsafe "$1[\"children\"]" js_getChildren - :: HTMLElement -> IO (Nullable HTMLCollection) - --- | -getChildren :: - (MonadIO m, IsHTMLElement self) => self -> m (Maybe HTMLCollection) -getChildren self - = liftIO - (nullableToMaybe <$> (js_getChildren (toHTMLElement self))) - -foreign import javascript unsafe "$1[\"contentEditable\"] = $2;" - js_setContentEditable :: HTMLElement -> Nullable JSString -> IO () - --- | -setContentEditable :: - (MonadIO m, IsHTMLElement self, ToJSString val) => - self -> Maybe val -> m () -setContentEditable self val - = liftIO - (js_setContentEditable (toHTMLElement self) (toMaybeJSString val)) - -foreign import javascript unsafe "$1[\"contentEditable\"]" - js_getContentEditable :: HTMLElement -> IO (Nullable JSString) - --- | -getContentEditable :: - (MonadIO m, IsHTMLElement self, FromJSString result) => - self -> m (Maybe result) -getContentEditable self - = liftIO - (fromMaybeJSString <$> - (js_getContentEditable (toHTMLElement self))) - -foreign import javascript unsafe - "($1[\"isContentEditable\"] ? 1 : 0)" js_getIsContentEditable :: - HTMLElement -> IO Bool - --- | -getIsContentEditable :: - (MonadIO m, IsHTMLElement self) => self -> m Bool -getIsContentEditable self - = liftIO (js_getIsContentEditable (toHTMLElement self)) - -foreign import javascript unsafe "$1[\"spellcheck\"] = $2;" - js_setSpellcheck :: HTMLElement -> Bool -> IO () - --- | -setSpellcheck :: - (MonadIO m, IsHTMLElement self) => self -> Bool -> m () -setSpellcheck self val - = liftIO (js_setSpellcheck (toHTMLElement self) val) - -foreign import javascript unsafe "($1[\"spellcheck\"] ? 1 : 0)" - js_getSpellcheck :: HTMLElement -> IO Bool - --- | -getSpellcheck :: (MonadIO m, IsHTMLElement self) => self -> m Bool -getSpellcheck self = liftIO (js_getSpellcheck (toHTMLElement self)) diff --git a/src/GHCJS/DOM/JSFFI/Generated/HTMLEmbedElement.hs b/src/GHCJS/DOM/JSFFI/Generated/HTMLEmbedElement.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/HTMLEmbedElement.hs +++ /dev/null @@ -1,128 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.HTMLEmbedElement - (js_getSVGDocument, getSVGDocument, js_setAlign, setAlign, - js_getAlign, getAlign, js_setHeight, setHeight, js_getHeight, - getHeight, js_setName, setName, js_getName, getName, js_setSrc, - setSrc, js_getSrc, getSrc, js_setType, setType, js_getType, - getType, js_setWidth, setWidth, js_getWidth, getWidth, - HTMLEmbedElement, castToHTMLEmbedElement, gTypeHTMLEmbedElement) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"getSVGDocument\"]()" - js_getSVGDocument :: HTMLEmbedElement -> IO (Nullable SVGDocument) - --- | -getSVGDocument :: - (MonadIO m) => HTMLEmbedElement -> m (Maybe SVGDocument) -getSVGDocument self - = liftIO (nullableToMaybe <$> (js_getSVGDocument (self))) - -foreign import javascript unsafe "$1[\"align\"] = $2;" js_setAlign - :: HTMLEmbedElement -> JSString -> IO () - --- | -setAlign :: - (MonadIO m, ToJSString val) => HTMLEmbedElement -> val -> m () -setAlign self val = liftIO (js_setAlign (self) (toJSString val)) - -foreign import javascript unsafe "$1[\"align\"]" js_getAlign :: - HTMLEmbedElement -> IO JSString - --- | -getAlign :: - (MonadIO m, FromJSString result) => HTMLEmbedElement -> m result -getAlign self = liftIO (fromJSString <$> (js_getAlign (self))) - -foreign import javascript unsafe "$1[\"height\"] = $2;" - js_setHeight :: HTMLEmbedElement -> JSString -> IO () - --- | -setHeight :: - (MonadIO m, ToJSString val) => HTMLEmbedElement -> val -> m () -setHeight self val = liftIO (js_setHeight (self) (toJSString val)) - -foreign import javascript unsafe "$1[\"height\"]" js_getHeight :: - HTMLEmbedElement -> IO JSString - --- | -getHeight :: - (MonadIO m, FromJSString result) => HTMLEmbedElement -> m result -getHeight self = liftIO (fromJSString <$> (js_getHeight (self))) - -foreign import javascript unsafe "$1[\"name\"] = $2;" js_setName :: - HTMLEmbedElement -> JSString -> IO () - --- | -setName :: - (MonadIO m, ToJSString val) => HTMLEmbedElement -> val -> m () -setName self val = liftIO (js_setName (self) (toJSString val)) - -foreign import javascript unsafe "$1[\"name\"]" js_getName :: - HTMLEmbedElement -> IO JSString - --- | -getName :: - (MonadIO m, FromJSString result) => HTMLEmbedElement -> m result -getName self = liftIO (fromJSString <$> (js_getName (self))) - -foreign import javascript unsafe "$1[\"src\"] = $2;" js_setSrc :: - HTMLEmbedElement -> JSString -> IO () - --- | -setSrc :: - (MonadIO m, ToJSString val) => HTMLEmbedElement -> val -> m () -setSrc self val = liftIO (js_setSrc (self) (toJSString val)) - -foreign import javascript unsafe "$1[\"src\"]" js_getSrc :: - HTMLEmbedElement -> IO JSString - --- | -getSrc :: - (MonadIO m, FromJSString result) => HTMLEmbedElement -> m result -getSrc self = liftIO (fromJSString <$> (js_getSrc (self))) - -foreign import javascript unsafe "$1[\"type\"] = $2;" js_setType :: - HTMLEmbedElement -> JSString -> IO () - --- | -setType :: - (MonadIO m, ToJSString val) => HTMLEmbedElement -> val -> m () -setType self val = liftIO (js_setType (self) (toJSString val)) - -foreign import javascript unsafe "$1[\"type\"]" js_getType :: - HTMLEmbedElement -> IO JSString - --- | -getType :: - (MonadIO m, FromJSString result) => HTMLEmbedElement -> m result -getType self = liftIO (fromJSString <$> (js_getType (self))) - -foreign import javascript unsafe "$1[\"width\"] = $2;" js_setWidth - :: HTMLEmbedElement -> JSString -> IO () - --- | -setWidth :: - (MonadIO m, ToJSString val) => HTMLEmbedElement -> val -> m () -setWidth self val = liftIO (js_setWidth (self) (toJSString val)) - -foreign import javascript unsafe "$1[\"width\"]" js_getWidth :: - HTMLEmbedElement -> IO JSString - --- | -getWidth :: - (MonadIO m, FromJSString result) => HTMLEmbedElement -> m result -getWidth self = liftIO (fromJSString <$> (js_getWidth (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/HTMLFieldSetElement.hs b/src/GHCJS/DOM/JSFFI/Generated/HTMLFieldSetElement.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/HTMLFieldSetElement.hs +++ /dev/null @@ -1,123 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.HTMLFieldSetElement - (js_checkValidity, checkValidity, js_setCustomValidity, - setCustomValidity, js_setDisabled, setDisabled, js_getDisabled, - getDisabled, js_getForm, getForm, js_setName, setName, js_getName, - getName, js_getType, getType, js_getElements, getElements, - js_getWillValidate, getWillValidate, js_getValidity, getValidity, - js_getValidationMessage, getValidationMessage, HTMLFieldSetElement, - castToHTMLFieldSetElement, gTypeHTMLFieldSetElement) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe - "($1[\"checkValidity\"]() ? 1 : 0)" js_checkValidity :: - HTMLFieldSetElement -> IO Bool - --- | -checkValidity :: (MonadIO m) => HTMLFieldSetElement -> m Bool -checkValidity self = liftIO (js_checkValidity (self)) - -foreign import javascript unsafe "$1[\"setCustomValidity\"]($2)" - js_setCustomValidity :: - HTMLFieldSetElement -> Nullable JSString -> IO () - --- | -setCustomValidity :: - (MonadIO m, ToJSString error) => - HTMLFieldSetElement -> Maybe error -> m () -setCustomValidity self error - = liftIO (js_setCustomValidity (self) (toMaybeJSString error)) - -foreign import javascript unsafe "$1[\"disabled\"] = $2;" - js_setDisabled :: HTMLFieldSetElement -> Bool -> IO () - --- | -setDisabled :: (MonadIO m) => HTMLFieldSetElement -> Bool -> m () -setDisabled self val = liftIO (js_setDisabled (self) val) - -foreign import javascript unsafe "($1[\"disabled\"] ? 1 : 0)" - js_getDisabled :: HTMLFieldSetElement -> IO Bool - --- | -getDisabled :: (MonadIO m) => HTMLFieldSetElement -> m Bool -getDisabled self = liftIO (js_getDisabled (self)) - -foreign import javascript unsafe "$1[\"form\"]" js_getForm :: - HTMLFieldSetElement -> IO (Nullable HTMLFormElement) - --- | -getForm :: - (MonadIO m) => HTMLFieldSetElement -> m (Maybe HTMLFormElement) -getForm self = liftIO (nullableToMaybe <$> (js_getForm (self))) - -foreign import javascript unsafe "$1[\"name\"] = $2;" js_setName :: - HTMLFieldSetElement -> JSString -> IO () - --- | -setName :: - (MonadIO m, ToJSString val) => HTMLFieldSetElement -> val -> m () -setName self val = liftIO (js_setName (self) (toJSString val)) - -foreign import javascript unsafe "$1[\"name\"]" js_getName :: - HTMLFieldSetElement -> IO JSString - --- | -getName :: - (MonadIO m, FromJSString result) => HTMLFieldSetElement -> m result -getName self = liftIO (fromJSString <$> (js_getName (self))) - -foreign import javascript unsafe "$1[\"type\"]" js_getType :: - HTMLFieldSetElement -> IO JSString - --- | -getType :: - (MonadIO m, FromJSString result) => HTMLFieldSetElement -> m result -getType self = liftIO (fromJSString <$> (js_getType (self))) - -foreign import javascript unsafe "$1[\"elements\"]" js_getElements - :: HTMLFieldSetElement -> IO (Nullable HTMLCollection) - --- | -getElements :: - (MonadIO m) => HTMLFieldSetElement -> m (Maybe HTMLCollection) -getElements self - = liftIO (nullableToMaybe <$> (js_getElements (self))) - -foreign import javascript unsafe "($1[\"willValidate\"] ? 1 : 0)" - js_getWillValidate :: HTMLFieldSetElement -> IO Bool - --- | -getWillValidate :: (MonadIO m) => HTMLFieldSetElement -> m Bool -getWillValidate self = liftIO (js_getWillValidate (self)) - -foreign import javascript unsafe "$1[\"validity\"]" js_getValidity - :: HTMLFieldSetElement -> IO (Nullable ValidityState) - --- | -getValidity :: - (MonadIO m) => HTMLFieldSetElement -> m (Maybe ValidityState) -getValidity self - = liftIO (nullableToMaybe <$> (js_getValidity (self))) - -foreign import javascript unsafe "$1[\"validationMessage\"]" - js_getValidationMessage :: HTMLFieldSetElement -> IO JSString - --- | -getValidationMessage :: - (MonadIO m, FromJSString result) => HTMLFieldSetElement -> m result -getValidationMessage self - = liftIO (fromJSString <$> (js_getValidationMessage (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/HTMLFontElement.hs b/src/GHCJS/DOM/JSFFI/Generated/HTMLFontElement.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/HTMLFontElement.hs +++ /dev/null @@ -1,68 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.HTMLFontElement - (js_setColor, setColor, js_getColor, getColor, js_setFace, setFace, - js_getFace, getFace, js_setSize, setSize, js_getSize, getSize, - HTMLFontElement, castToHTMLFontElement, gTypeHTMLFontElement) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"color\"] = $2;" js_setColor - :: HTMLFontElement -> JSString -> IO () - --- | -setColor :: - (MonadIO m, ToJSString val) => HTMLFontElement -> val -> m () -setColor self val = liftIO (js_setColor (self) (toJSString val)) - -foreign import javascript unsafe "$1[\"color\"]" js_getColor :: - HTMLFontElement -> IO JSString - --- | -getColor :: - (MonadIO m, FromJSString result) => HTMLFontElement -> m result -getColor self = liftIO (fromJSString <$> (js_getColor (self))) - -foreign import javascript unsafe "$1[\"face\"] = $2;" js_setFace :: - HTMLFontElement -> JSString -> IO () - --- | -setFace :: - (MonadIO m, ToJSString val) => HTMLFontElement -> val -> m () -setFace self val = liftIO (js_setFace (self) (toJSString val)) - -foreign import javascript unsafe "$1[\"face\"]" js_getFace :: - HTMLFontElement -> IO JSString - --- | -getFace :: - (MonadIO m, FromJSString result) => HTMLFontElement -> m result -getFace self = liftIO (fromJSString <$> (js_getFace (self))) - -foreign import javascript unsafe "$1[\"size\"] = $2;" js_setSize :: - HTMLFontElement -> JSString -> IO () - --- | -setSize :: - (MonadIO m, ToJSString val) => HTMLFontElement -> val -> m () -setSize self val = liftIO (js_setSize (self) (toJSString val)) - -foreign import javascript unsafe "$1[\"size\"]" js_getSize :: - HTMLFontElement -> IO JSString - --- | -getSize :: - (MonadIO m, FromJSString result) => HTMLFontElement -> m result -getSize self = liftIO (fromJSString <$> (js_getSize (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/HTMLFormControlsCollection.hs b/src/GHCJS/DOM/JSFFI/Generated/HTMLFormControlsCollection.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/HTMLFormControlsCollection.hs +++ /dev/null @@ -1,41 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.HTMLFormControlsCollection - (js__get, _get, js_namedItem, namedItem, - HTMLFormControlsCollection, castToHTMLFormControlsCollection, - gTypeHTMLFormControlsCollection) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"_get\"]($2)" js__get :: - HTMLFormControlsCollection -> Word -> IO (Nullable Node) - --- | -_get :: - (MonadIO m) => HTMLFormControlsCollection -> Word -> m (Maybe Node) -_get self index - = liftIO (nullableToMaybe <$> (js__get (self) index)) - -foreign import javascript unsafe "$1[\"namedItem\"]($2)" - js_namedItem :: - HTMLFormControlsCollection -> JSString -> IO (Nullable Node) - --- | -namedItem :: - (MonadIO m, ToJSString name) => - HTMLFormControlsCollection -> name -> m (Maybe Node) -namedItem self name - = liftIO - (nullableToMaybe <$> (js_namedItem (self) (toJSString name))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/HTMLFormElement.hs b/src/GHCJS/DOM/JSFFI/Generated/HTMLFormElement.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/HTMLFormElement.hs +++ /dev/null @@ -1,284 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.HTMLFormElement - (js__get, _get, js_submit, submit, js_reset, reset, - js_checkValidity, checkValidity, js_requestAutocomplete, - requestAutocomplete, js_setAcceptCharset, setAcceptCharset, - js_getAcceptCharset, getAcceptCharset, js_setAction, setAction, - js_getAction, getAction, js_setAutocomplete, setAutocomplete, - js_getAutocomplete, getAutocomplete, js_setEnctype, setEnctype, - js_getEnctype, getEnctype, js_setEncoding, setEncoding, - js_getEncoding, getEncoding, js_setMethod, setMethod, js_getMethod, - getMethod, js_setName, setName, js_getName, getName, - js_setNoValidate, setNoValidate, js_getNoValidate, getNoValidate, - js_setTarget, setTarget, js_getTarget, getTarget, js_getElements, - getElements, js_getLength, getLength, js_setAutocorrect, - setAutocorrect, js_getAutocorrect, getAutocorrect, - js_setAutocapitalize, setAutocapitalize, js_getAutocapitalize, - getAutocapitalize, autocomplete, autocompleteerror, - HTMLFormElement, castToHTMLFormElement, gTypeHTMLFormElement) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"_get\"]($2)" js__get :: - HTMLFormElement -> Word -> IO (Nullable Element) - --- | -_get :: (MonadIO m) => HTMLFormElement -> Word -> m (Maybe Element) -_get self index - = liftIO (nullableToMaybe <$> (js__get (self) index)) - -foreign import javascript unsafe "$1[\"submit\"]()" js_submit :: - HTMLFormElement -> IO () - --- | -submit :: (MonadIO m) => HTMLFormElement -> m () -submit self = liftIO (js_submit (self)) - -foreign import javascript unsafe "$1[\"reset\"]()" js_reset :: - HTMLFormElement -> IO () - --- | -reset :: (MonadIO m) => HTMLFormElement -> m () -reset self = liftIO (js_reset (self)) - -foreign import javascript unsafe - "($1[\"checkValidity\"]() ? 1 : 0)" js_checkValidity :: - HTMLFormElement -> IO Bool - --- | -checkValidity :: (MonadIO m) => HTMLFormElement -> m Bool -checkValidity self = liftIO (js_checkValidity (self)) - -foreign import javascript unsafe "$1[\"requestAutocomplete\"]()" - js_requestAutocomplete :: HTMLFormElement -> IO () - --- | -requestAutocomplete :: (MonadIO m) => HTMLFormElement -> m () -requestAutocomplete self = liftIO (js_requestAutocomplete (self)) - -foreign import javascript unsafe "$1[\"acceptCharset\"] = $2;" - js_setAcceptCharset :: HTMLFormElement -> JSString -> IO () - --- | -setAcceptCharset :: - (MonadIO m, ToJSString val) => HTMLFormElement -> val -> m () -setAcceptCharset self val - = liftIO (js_setAcceptCharset (self) (toJSString val)) - -foreign import javascript unsafe "$1[\"acceptCharset\"]" - js_getAcceptCharset :: HTMLFormElement -> IO JSString - --- | -getAcceptCharset :: - (MonadIO m, FromJSString result) => HTMLFormElement -> m result -getAcceptCharset self - = liftIO (fromJSString <$> (js_getAcceptCharset (self))) - -foreign import javascript unsafe "$1[\"action\"] = $2;" - js_setAction :: HTMLFormElement -> JSString -> IO () - --- | -setAction :: - (MonadIO m, ToJSString val) => HTMLFormElement -> val -> m () -setAction self val = liftIO (js_setAction (self) (toJSString val)) - -foreign import javascript unsafe "$1[\"action\"]" js_getAction :: - HTMLFormElement -> IO JSString - --- | -getAction :: - (MonadIO m, FromJSString result) => HTMLFormElement -> m result -getAction self = liftIO (fromJSString <$> (js_getAction (self))) - -foreign import javascript unsafe "$1[\"autocomplete\"] = $2;" - js_setAutocomplete :: HTMLFormElement -> JSString -> IO () - --- | -setAutocomplete :: - (MonadIO m, ToJSString val) => HTMLFormElement -> val -> m () -setAutocomplete self val - = liftIO (js_setAutocomplete (self) (toJSString val)) - -foreign import javascript unsafe "$1[\"autocomplete\"]" - js_getAutocomplete :: HTMLFormElement -> IO JSString - --- | -getAutocomplete :: - (MonadIO m, FromJSString result) => HTMLFormElement -> m result -getAutocomplete self - = liftIO (fromJSString <$> (js_getAutocomplete (self))) - -foreign import javascript unsafe "$1[\"enctype\"] = $2;" - js_setEnctype :: HTMLFormElement -> Nullable JSString -> IO () - --- | -setEnctype :: - (MonadIO m, ToJSString val) => HTMLFormElement -> Maybe val -> m () -setEnctype self val - = liftIO (js_setEnctype (self) (toMaybeJSString val)) - -foreign import javascript unsafe "$1[\"enctype\"]" js_getEnctype :: - HTMLFormElement -> IO (Nullable JSString) - --- | -getEnctype :: - (MonadIO m, FromJSString result) => - HTMLFormElement -> m (Maybe result) -getEnctype self - = liftIO (fromMaybeJSString <$> (js_getEnctype (self))) - -foreign import javascript unsafe "$1[\"encoding\"] = $2;" - js_setEncoding :: HTMLFormElement -> Nullable JSString -> IO () - --- | -setEncoding :: - (MonadIO m, ToJSString val) => HTMLFormElement -> Maybe val -> m () -setEncoding self val - = liftIO (js_setEncoding (self) (toMaybeJSString val)) - -foreign import javascript unsafe "$1[\"encoding\"]" js_getEncoding - :: HTMLFormElement -> IO (Nullable JSString) - --- | -getEncoding :: - (MonadIO m, FromJSString result) => - HTMLFormElement -> m (Maybe result) -getEncoding self - = liftIO (fromMaybeJSString <$> (js_getEncoding (self))) - -foreign import javascript unsafe "$1[\"method\"] = $2;" - js_setMethod :: HTMLFormElement -> Nullable JSString -> IO () - --- | -setMethod :: - (MonadIO m, ToJSString val) => HTMLFormElement -> Maybe val -> m () -setMethod self val - = liftIO (js_setMethod (self) (toMaybeJSString val)) - -foreign import javascript unsafe "$1[\"method\"]" js_getMethod :: - HTMLFormElement -> IO (Nullable JSString) - --- | -getMethod :: - (MonadIO m, FromJSString result) => - HTMLFormElement -> m (Maybe result) -getMethod self - = liftIO (fromMaybeJSString <$> (js_getMethod (self))) - -foreign import javascript unsafe "$1[\"name\"] = $2;" js_setName :: - HTMLFormElement -> JSString -> IO () - --- | -setName :: - (MonadIO m, ToJSString val) => HTMLFormElement -> val -> m () -setName self val = liftIO (js_setName (self) (toJSString val)) - -foreign import javascript unsafe "$1[\"name\"]" js_getName :: - HTMLFormElement -> IO JSString - --- | -getName :: - (MonadIO m, FromJSString result) => HTMLFormElement -> m result -getName self = liftIO (fromJSString <$> (js_getName (self))) - -foreign import javascript unsafe "$1[\"noValidate\"] = $2;" - js_setNoValidate :: HTMLFormElement -> Bool -> IO () - --- | -setNoValidate :: (MonadIO m) => HTMLFormElement -> Bool -> m () -setNoValidate self val = liftIO (js_setNoValidate (self) val) - -foreign import javascript unsafe "($1[\"noValidate\"] ? 1 : 0)" - js_getNoValidate :: HTMLFormElement -> IO Bool - --- | -getNoValidate :: (MonadIO m) => HTMLFormElement -> m Bool -getNoValidate self = liftIO (js_getNoValidate (self)) - -foreign import javascript unsafe "$1[\"target\"] = $2;" - js_setTarget :: HTMLFormElement -> JSString -> IO () - --- | -setTarget :: - (MonadIO m, ToJSString val) => HTMLFormElement -> val -> m () -setTarget self val = liftIO (js_setTarget (self) (toJSString val)) - -foreign import javascript unsafe "$1[\"target\"]" js_getTarget :: - HTMLFormElement -> IO JSString - --- | -getTarget :: - (MonadIO m, FromJSString result) => HTMLFormElement -> m result -getTarget self = liftIO (fromJSString <$> (js_getTarget (self))) - -foreign import javascript unsafe "$1[\"elements\"]" js_getElements - :: HTMLFormElement -> IO (Nullable HTMLCollection) - --- | -getElements :: - (MonadIO m) => HTMLFormElement -> m (Maybe HTMLCollection) -getElements self - = liftIO (nullableToMaybe <$> (js_getElements (self))) - -foreign import javascript unsafe "$1[\"length\"]" js_getLength :: - HTMLFormElement -> IO Int - --- | -getLength :: (MonadIO m) => HTMLFormElement -> m Int -getLength self = liftIO (js_getLength (self)) - -foreign import javascript unsafe "$1[\"autocorrect\"] = $2;" - js_setAutocorrect :: HTMLFormElement -> Bool -> IO () - --- | -setAutocorrect :: (MonadIO m) => HTMLFormElement -> Bool -> m () -setAutocorrect self val = liftIO (js_setAutocorrect (self) val) - -foreign import javascript unsafe "($1[\"autocorrect\"] ? 1 : 0)" - js_getAutocorrect :: HTMLFormElement -> IO Bool - --- | -getAutocorrect :: (MonadIO m) => HTMLFormElement -> m Bool -getAutocorrect self = liftIO (js_getAutocorrect (self)) - -foreign import javascript unsafe "$1[\"autocapitalize\"] = $2;" - js_setAutocapitalize :: - HTMLFormElement -> Nullable JSString -> IO () - --- | -setAutocapitalize :: - (MonadIO m, ToJSString val) => HTMLFormElement -> Maybe val -> m () -setAutocapitalize self val - = liftIO (js_setAutocapitalize (self) (toMaybeJSString val)) - -foreign import javascript unsafe "$1[\"autocapitalize\"]" - js_getAutocapitalize :: HTMLFormElement -> IO (Nullable JSString) - --- | -getAutocapitalize :: - (MonadIO m, FromJSString result) => - HTMLFormElement -> m (Maybe result) -getAutocapitalize self - = liftIO (fromMaybeJSString <$> (js_getAutocapitalize (self))) - --- | -autocomplete :: EventName HTMLFormElement onautocomplete -autocomplete = unsafeEventName (toJSString "autocomplete") - --- | -autocompleteerror :: EventName HTMLFormElement onautocompleteerror -autocompleteerror - = unsafeEventName (toJSString "autocompleteerror") diff --git a/src/GHCJS/DOM/JSFFI/Generated/HTMLFrameElement.hs b/src/GHCJS/DOM/JSFFI/Generated/HTMLFrameElement.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/HTMLFrameElement.hs +++ /dev/null @@ -1,227 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.HTMLFrameElement - (js_getSVGDocument, getSVGDocument, js_setFrameBorder, - setFrameBorder, js_getFrameBorder, getFrameBorder, js_setLongDesc, - setLongDesc, js_getLongDesc, getLongDesc, js_setMarginHeight, - setMarginHeight, js_getMarginHeight, getMarginHeight, - js_setMarginWidth, setMarginWidth, js_getMarginWidth, - getMarginWidth, js_setName, setName, js_getName, getName, - js_setNoResize, setNoResize, js_getNoResize, getNoResize, - js_setScrolling, setScrolling, js_getScrolling, getScrolling, - js_setSrc, setSrc, js_getSrc, getSrc, js_getContentDocument, - getContentDocument, js_getContentWindow, getContentWindow, - js_setLocation, setLocation, js_getLocation, getLocation, - js_getWidth, getWidth, js_getHeight, getHeight, HTMLFrameElement, - castToHTMLFrameElement, gTypeHTMLFrameElement) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"getSVGDocument\"]()" - js_getSVGDocument :: HTMLFrameElement -> IO (Nullable SVGDocument) - --- | -getSVGDocument :: - (MonadIO m) => HTMLFrameElement -> m (Maybe SVGDocument) -getSVGDocument self - = liftIO (nullableToMaybe <$> (js_getSVGDocument (self))) - -foreign import javascript unsafe "$1[\"frameBorder\"] = $2;" - js_setFrameBorder :: HTMLFrameElement -> JSString -> IO () - --- | -setFrameBorder :: - (MonadIO m, ToJSString val) => HTMLFrameElement -> val -> m () -setFrameBorder self val - = liftIO (js_setFrameBorder (self) (toJSString val)) - -foreign import javascript unsafe "$1[\"frameBorder\"]" - js_getFrameBorder :: HTMLFrameElement -> IO JSString - --- | -getFrameBorder :: - (MonadIO m, FromJSString result) => HTMLFrameElement -> m result -getFrameBorder self - = liftIO (fromJSString <$> (js_getFrameBorder (self))) - -foreign import javascript unsafe "$1[\"longDesc\"] = $2;" - js_setLongDesc :: HTMLFrameElement -> JSString -> IO () - --- | -setLongDesc :: - (MonadIO m, ToJSString val) => HTMLFrameElement -> val -> m () -setLongDesc self val - = liftIO (js_setLongDesc (self) (toJSString val)) - -foreign import javascript unsafe "$1[\"longDesc\"]" js_getLongDesc - :: HTMLFrameElement -> IO JSString - --- | -getLongDesc :: - (MonadIO m, FromJSString result) => HTMLFrameElement -> m result -getLongDesc self - = liftIO (fromJSString <$> (js_getLongDesc (self))) - -foreign import javascript unsafe "$1[\"marginHeight\"] = $2;" - js_setMarginHeight :: HTMLFrameElement -> JSString -> IO () - --- | -setMarginHeight :: - (MonadIO m, ToJSString val) => HTMLFrameElement -> val -> m () -setMarginHeight self val - = liftIO (js_setMarginHeight (self) (toJSString val)) - -foreign import javascript unsafe "$1[\"marginHeight\"]" - js_getMarginHeight :: HTMLFrameElement -> IO JSString - --- | -getMarginHeight :: - (MonadIO m, FromJSString result) => HTMLFrameElement -> m result -getMarginHeight self - = liftIO (fromJSString <$> (js_getMarginHeight (self))) - -foreign import javascript unsafe "$1[\"marginWidth\"] = $2;" - js_setMarginWidth :: HTMLFrameElement -> JSString -> IO () - --- | -setMarginWidth :: - (MonadIO m, ToJSString val) => HTMLFrameElement -> val -> m () -setMarginWidth self val - = liftIO (js_setMarginWidth (self) (toJSString val)) - -foreign import javascript unsafe "$1[\"marginWidth\"]" - js_getMarginWidth :: HTMLFrameElement -> IO JSString - --- | -getMarginWidth :: - (MonadIO m, FromJSString result) => HTMLFrameElement -> m result -getMarginWidth self - = liftIO (fromJSString <$> (js_getMarginWidth (self))) - -foreign import javascript unsafe "$1[\"name\"] = $2;" js_setName :: - HTMLFrameElement -> JSString -> IO () - --- | -setName :: - (MonadIO m, ToJSString val) => HTMLFrameElement -> val -> m () -setName self val = liftIO (js_setName (self) (toJSString val)) - -foreign import javascript unsafe "$1[\"name\"]" js_getName :: - HTMLFrameElement -> IO JSString - --- | -getName :: - (MonadIO m, FromJSString result) => HTMLFrameElement -> m result -getName self = liftIO (fromJSString <$> (js_getName (self))) - -foreign import javascript unsafe "$1[\"noResize\"] = $2;" - js_setNoResize :: HTMLFrameElement -> Bool -> IO () - --- | -setNoResize :: (MonadIO m) => HTMLFrameElement -> Bool -> m () -setNoResize self val = liftIO (js_setNoResize (self) val) - -foreign import javascript unsafe "($1[\"noResize\"] ? 1 : 0)" - js_getNoResize :: HTMLFrameElement -> IO Bool - --- | -getNoResize :: (MonadIO m) => HTMLFrameElement -> m Bool -getNoResize self = liftIO (js_getNoResize (self)) - -foreign import javascript unsafe "$1[\"scrolling\"] = $2;" - js_setScrolling :: HTMLFrameElement -> JSString -> IO () - --- | -setScrolling :: - (MonadIO m, ToJSString val) => HTMLFrameElement -> val -> m () -setScrolling self val - = liftIO (js_setScrolling (self) (toJSString val)) - -foreign import javascript unsafe "$1[\"scrolling\"]" - js_getScrolling :: HTMLFrameElement -> IO JSString - --- | -getScrolling :: - (MonadIO m, FromJSString result) => HTMLFrameElement -> m result -getScrolling self - = liftIO (fromJSString <$> (js_getScrolling (self))) - -foreign import javascript unsafe "$1[\"src\"] = $2;" js_setSrc :: - HTMLFrameElement -> JSString -> IO () - --- | -setSrc :: - (MonadIO m, ToJSString val) => HTMLFrameElement -> val -> m () -setSrc self val = liftIO (js_setSrc (self) (toJSString val)) - -foreign import javascript unsafe "$1[\"src\"]" js_getSrc :: - HTMLFrameElement -> IO JSString - --- | -getSrc :: - (MonadIO m, FromJSString result) => HTMLFrameElement -> m result -getSrc self = liftIO (fromJSString <$> (js_getSrc (self))) - -foreign import javascript unsafe "$1[\"contentDocument\"]" - js_getContentDocument :: HTMLFrameElement -> IO (Nullable Document) - --- | -getContentDocument :: - (MonadIO m) => HTMLFrameElement -> m (Maybe Document) -getContentDocument self - = liftIO (nullableToMaybe <$> (js_getContentDocument (self))) - -foreign import javascript unsafe "$1[\"contentWindow\"]" - js_getContentWindow :: HTMLFrameElement -> IO (Nullable Window) - --- | -getContentWindow :: - (MonadIO m) => HTMLFrameElement -> m (Maybe Window) -getContentWindow self - = liftIO (nullableToMaybe <$> (js_getContentWindow (self))) - -foreign import javascript unsafe "$1[\"location\"] = $2;" - js_setLocation :: HTMLFrameElement -> Nullable JSString -> IO () - --- | -setLocation :: - (MonadIO m, ToJSString val) => - HTMLFrameElement -> Maybe val -> m () -setLocation self val - = liftIO (js_setLocation (self) (toMaybeJSString val)) - -foreign import javascript unsafe "$1[\"location\"]" js_getLocation - :: HTMLFrameElement -> IO (Nullable JSString) - --- | -getLocation :: - (MonadIO m, FromJSString result) => - HTMLFrameElement -> m (Maybe result) -getLocation self - = liftIO (fromMaybeJSString <$> (js_getLocation (self))) - -foreign import javascript unsafe "$1[\"width\"]" js_getWidth :: - HTMLFrameElement -> IO Int - --- | -getWidth :: (MonadIO m) => HTMLFrameElement -> m Int -getWidth self = liftIO (js_getWidth (self)) - -foreign import javascript unsafe "$1[\"height\"]" js_getHeight :: - HTMLFrameElement -> IO Int - --- | -getHeight :: (MonadIO m) => HTMLFrameElement -> m Int -getHeight self = liftIO (js_getHeight (self)) diff --git a/src/GHCJS/DOM/JSFFI/Generated/HTMLFrameSetElement.hs b/src/GHCJS/DOM/JSFFI/Generated/HTMLFrameSetElement.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/HTMLFrameSetElement.hs +++ /dev/null @@ -1,111 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.HTMLFrameSetElement - (js_setCols, setCols, js_getCols, getCols, js_setRows, setRows, - js_getRows, getRows, beforeUnload, hashChange, message, offline, - online, popState, resize, storage, unload, orientationChange, blur, - error, focus, load, HTMLFrameSetElement, castToHTMLFrameSetElement, - gTypeHTMLFrameSetElement) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"cols\"] = $2;" js_setCols :: - HTMLFrameSetElement -> JSString -> IO () - --- | -setCols :: - (MonadIO m, ToJSString val) => HTMLFrameSetElement -> val -> m () -setCols self val = liftIO (js_setCols (self) (toJSString val)) - -foreign import javascript unsafe "$1[\"cols\"]" js_getCols :: - HTMLFrameSetElement -> IO JSString - --- | -getCols :: - (MonadIO m, FromJSString result) => HTMLFrameSetElement -> m result -getCols self = liftIO (fromJSString <$> (js_getCols (self))) - -foreign import javascript unsafe "$1[\"rows\"] = $2;" js_setRows :: - HTMLFrameSetElement -> JSString -> IO () - --- | -setRows :: - (MonadIO m, ToJSString val) => HTMLFrameSetElement -> val -> m () -setRows self val = liftIO (js_setRows (self) (toJSString val)) - -foreign import javascript unsafe "$1[\"rows\"]" js_getRows :: - HTMLFrameSetElement -> IO JSString - --- | -getRows :: - (MonadIO m, FromJSString result) => HTMLFrameSetElement -> m result -getRows self = liftIO (fromJSString <$> (js_getRows (self))) - --- | -beforeUnload :: EventName HTMLFrameSetElement BeforeUnloadEvent -beforeUnload = unsafeEventName (toJSString "beforeunload") - --- | -hashChange :: EventName HTMLFrameSetElement HashChangeEvent -hashChange = unsafeEventName (toJSString "hashchange") - --- | -message :: EventName HTMLFrameSetElement MessageEvent -message = unsafeEventName (toJSString "message") - --- | -offline :: EventName HTMLFrameSetElement Event -offline = unsafeEventName (toJSString "offline") - --- | -online :: EventName HTMLFrameSetElement Event -online = unsafeEventName (toJSString "online") - --- | -popState :: EventName HTMLFrameSetElement PopStateEvent -popState = unsafeEventName (toJSString "popstate") - --- | -resize :: EventName HTMLFrameSetElement UIEvent -resize = unsafeEventName (toJSString "resize") - --- | -storage :: EventName HTMLFrameSetElement StorageEvent -storage = unsafeEventName (toJSString "storage") - --- | -unload :: EventName HTMLFrameSetElement UIEvent -unload = unsafeEventName (toJSString "unload") - --- | -orientationChange :: EventName HTMLFrameSetElement Event -orientationChange - = unsafeEventName (toJSString "orientationchange") - --- | -blur :: EventName HTMLFrameSetElement FocusEvent -blur = unsafeEventName (toJSString "blur") - --- | -error :: EventName HTMLFrameSetElement UIEvent -error = unsafeEventName (toJSString "error") - --- | -focus :: EventName HTMLFrameSetElement FocusEvent -focus = unsafeEventName (toJSString "focus") - --- | -load :: EventName HTMLFrameSetElement UIEvent -load = unsafeEventName (toJSString "load") diff --git a/src/GHCJS/DOM/JSFFI/Generated/HTMLHRElement.hs b/src/GHCJS/DOM/JSFFI/Generated/HTMLHRElement.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/HTMLHRElement.hs +++ /dev/null @@ -1,83 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.HTMLHRElement - (js_setAlign, setAlign, js_getAlign, getAlign, js_setNoShade, - setNoShade, js_getNoShade, getNoShade, js_setSize, setSize, - js_getSize, getSize, js_setWidth, setWidth, js_getWidth, getWidth, - HTMLHRElement, castToHTMLHRElement, gTypeHTMLHRElement) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"align\"] = $2;" js_setAlign - :: HTMLHRElement -> JSString -> IO () - --- | -setAlign :: - (MonadIO m, ToJSString val) => HTMLHRElement -> val -> m () -setAlign self val = liftIO (js_setAlign (self) (toJSString val)) - -foreign import javascript unsafe "$1[\"align\"]" js_getAlign :: - HTMLHRElement -> IO JSString - --- | -getAlign :: - (MonadIO m, FromJSString result) => HTMLHRElement -> m result -getAlign self = liftIO (fromJSString <$> (js_getAlign (self))) - -foreign import javascript unsafe "$1[\"noShade\"] = $2;" - js_setNoShade :: HTMLHRElement -> Bool -> IO () - --- | -setNoShade :: (MonadIO m) => HTMLHRElement -> Bool -> m () -setNoShade self val = liftIO (js_setNoShade (self) val) - -foreign import javascript unsafe "($1[\"noShade\"] ? 1 : 0)" - js_getNoShade :: HTMLHRElement -> IO Bool - --- | -getNoShade :: (MonadIO m) => HTMLHRElement -> m Bool -getNoShade self = liftIO (js_getNoShade (self)) - -foreign import javascript unsafe "$1[\"size\"] = $2;" js_setSize :: - HTMLHRElement -> JSString -> IO () - --- | -setSize :: - (MonadIO m, ToJSString val) => HTMLHRElement -> val -> m () -setSize self val = liftIO (js_setSize (self) (toJSString val)) - -foreign import javascript unsafe "$1[\"size\"]" js_getSize :: - HTMLHRElement -> IO JSString - --- | -getSize :: - (MonadIO m, FromJSString result) => HTMLHRElement -> m result -getSize self = liftIO (fromJSString <$> (js_getSize (self))) - -foreign import javascript unsafe "$1[\"width\"] = $2;" js_setWidth - :: HTMLHRElement -> JSString -> IO () - --- | -setWidth :: - (MonadIO m, ToJSString val) => HTMLHRElement -> val -> m () -setWidth self val = liftIO (js_setWidth (self) (toJSString val)) - -foreign import javascript unsafe "$1[\"width\"]" js_getWidth :: - HTMLHRElement -> IO JSString - --- | -getWidth :: - (MonadIO m, FromJSString result) => HTMLHRElement -> m result -getWidth self = liftIO (fromJSString <$> (js_getWidth (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/HTMLHeadElement.hs b/src/GHCJS/DOM/JSFFI/Generated/HTMLHeadElement.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/HTMLHeadElement.hs +++ /dev/null @@ -1,36 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.HTMLHeadElement - (js_setProfile, setProfile, js_getProfile, getProfile, - HTMLHeadElement, castToHTMLHeadElement, gTypeHTMLHeadElement) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"profile\"] = $2;" - js_setProfile :: HTMLHeadElement -> JSString -> IO () - --- | -setProfile :: - (MonadIO m, ToJSString val) => HTMLHeadElement -> val -> m () -setProfile self val - = liftIO (js_setProfile (self) (toJSString val)) - -foreign import javascript unsafe "$1[\"profile\"]" js_getProfile :: - HTMLHeadElement -> IO JSString - --- | -getProfile :: - (MonadIO m, FromJSString result) => HTMLHeadElement -> m result -getProfile self = liftIO (fromJSString <$> (js_getProfile (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/HTMLHeadingElement.hs b/src/GHCJS/DOM/JSFFI/Generated/HTMLHeadingElement.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/HTMLHeadingElement.hs +++ /dev/null @@ -1,35 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.HTMLHeadingElement - (js_setAlign, setAlign, js_getAlign, getAlign, HTMLHeadingElement, - castToHTMLHeadingElement, gTypeHTMLHeadingElement) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"align\"] = $2;" js_setAlign - :: HTMLHeadingElement -> JSString -> IO () - --- | -setAlign :: - (MonadIO m, ToJSString val) => HTMLHeadingElement -> val -> m () -setAlign self val = liftIO (js_setAlign (self) (toJSString val)) - -foreign import javascript unsafe "$1[\"align\"]" js_getAlign :: - HTMLHeadingElement -> IO JSString - --- | -getAlign :: - (MonadIO m, FromJSString result) => HTMLHeadingElement -> m result -getAlign self = liftIO (fromJSString <$> (js_getAlign (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/HTMLHtmlElement.hs b/src/GHCJS/DOM/JSFFI/Generated/HTMLHtmlElement.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/HTMLHtmlElement.hs +++ /dev/null @@ -1,55 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.HTMLHtmlElement - (js_setVersion, setVersion, js_getVersion, getVersion, - js_setManifest, setManifest, js_getManifest, getManifest, - HTMLHtmlElement, castToHTMLHtmlElement, gTypeHTMLHtmlElement) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"version\"] = $2;" - js_setVersion :: HTMLHtmlElement -> JSString -> IO () - --- | -setVersion :: - (MonadIO m, ToJSString val) => HTMLHtmlElement -> val -> m () -setVersion self val - = liftIO (js_setVersion (self) (toJSString val)) - -foreign import javascript unsafe "$1[\"version\"]" js_getVersion :: - HTMLHtmlElement -> IO JSString - --- | -getVersion :: - (MonadIO m, FromJSString result) => HTMLHtmlElement -> m result -getVersion self = liftIO (fromJSString <$> (js_getVersion (self))) - -foreign import javascript unsafe "$1[\"manifest\"] = $2;" - js_setManifest :: HTMLHtmlElement -> JSString -> IO () - --- | -setManifest :: - (MonadIO m, ToJSString val) => HTMLHtmlElement -> val -> m () -setManifest self val - = liftIO (js_setManifest (self) (toJSString val)) - -foreign import javascript unsafe "$1[\"manifest\"]" js_getManifest - :: HTMLHtmlElement -> IO JSString - --- | -getManifest :: - (MonadIO m, FromJSString result) => HTMLHtmlElement -> m result -getManifest self - = liftIO (fromJSString <$> (js_getManifest (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/HTMLIFrameElement.hs b/src/GHCJS/DOM/JSFFI/Generated/HTMLIFrameElement.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/HTMLIFrameElement.hs +++ /dev/null @@ -1,263 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.HTMLIFrameElement - (js_getSVGDocument, getSVGDocument, js_setAlign, setAlign, - js_getAlign, getAlign, js_setFrameBorder, setFrameBorder, - js_getFrameBorder, getFrameBorder, js_setHeight, setHeight, - js_getHeight, getHeight, js_setLongDesc, setLongDesc, - js_getLongDesc, getLongDesc, js_setMarginHeight, setMarginHeight, - js_getMarginHeight, getMarginHeight, js_setMarginWidth, - setMarginWidth, js_getMarginWidth, getMarginWidth, js_setName, - setName, js_getName, getName, js_setSandbox, setSandbox, - js_getSandbox, getSandbox, js_setScrolling, setScrolling, - js_getScrolling, getScrolling, js_setSrc, setSrc, js_getSrc, - getSrc, js_setSrcdoc, setSrcdoc, js_getSrcdoc, getSrcdoc, - js_setWidth, setWidth, js_getWidth, getWidth, - js_getContentDocument, getContentDocument, js_getContentWindow, - getContentWindow, HTMLIFrameElement, castToHTMLIFrameElement, - gTypeHTMLIFrameElement) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"getSVGDocument\"]()" - js_getSVGDocument :: HTMLIFrameElement -> IO (Nullable SVGDocument) - --- | -getSVGDocument :: - (MonadIO m) => HTMLIFrameElement -> m (Maybe SVGDocument) -getSVGDocument self - = liftIO (nullableToMaybe <$> (js_getSVGDocument (self))) - -foreign import javascript unsafe "$1[\"align\"] = $2;" js_setAlign - :: HTMLIFrameElement -> JSString -> IO () - --- | -setAlign :: - (MonadIO m, ToJSString val) => HTMLIFrameElement -> val -> m () -setAlign self val = liftIO (js_setAlign (self) (toJSString val)) - -foreign import javascript unsafe "$1[\"align\"]" js_getAlign :: - HTMLIFrameElement -> IO JSString - --- | -getAlign :: - (MonadIO m, FromJSString result) => HTMLIFrameElement -> m result -getAlign self = liftIO (fromJSString <$> (js_getAlign (self))) - -foreign import javascript unsafe "$1[\"frameBorder\"] = $2;" - js_setFrameBorder :: HTMLIFrameElement -> JSString -> IO () - --- | -setFrameBorder :: - (MonadIO m, ToJSString val) => HTMLIFrameElement -> val -> m () -setFrameBorder self val - = liftIO (js_setFrameBorder (self) (toJSString val)) - -foreign import javascript unsafe "$1[\"frameBorder\"]" - js_getFrameBorder :: HTMLIFrameElement -> IO JSString - --- | -getFrameBorder :: - (MonadIO m, FromJSString result) => HTMLIFrameElement -> m result -getFrameBorder self - = liftIO (fromJSString <$> (js_getFrameBorder (self))) - -foreign import javascript unsafe "$1[\"height\"] = $2;" - js_setHeight :: HTMLIFrameElement -> JSString -> IO () - --- | -setHeight :: - (MonadIO m, ToJSString val) => HTMLIFrameElement -> val -> m () -setHeight self val = liftIO (js_setHeight (self) (toJSString val)) - -foreign import javascript unsafe "$1[\"height\"]" js_getHeight :: - HTMLIFrameElement -> IO JSString - --- | -getHeight :: - (MonadIO m, FromJSString result) => HTMLIFrameElement -> m result -getHeight self = liftIO (fromJSString <$> (js_getHeight (self))) - -foreign import javascript unsafe "$1[\"longDesc\"] = $2;" - js_setLongDesc :: HTMLIFrameElement -> JSString -> IO () - --- | -setLongDesc :: - (MonadIO m, ToJSString val) => HTMLIFrameElement -> val -> m () -setLongDesc self val - = liftIO (js_setLongDesc (self) (toJSString val)) - -foreign import javascript unsafe "$1[\"longDesc\"]" js_getLongDesc - :: HTMLIFrameElement -> IO JSString - --- | -getLongDesc :: - (MonadIO m, FromJSString result) => HTMLIFrameElement -> m result -getLongDesc self - = liftIO (fromJSString <$> (js_getLongDesc (self))) - -foreign import javascript unsafe "$1[\"marginHeight\"] = $2;" - js_setMarginHeight :: HTMLIFrameElement -> JSString -> IO () - --- | -setMarginHeight :: - (MonadIO m, ToJSString val) => HTMLIFrameElement -> val -> m () -setMarginHeight self val - = liftIO (js_setMarginHeight (self) (toJSString val)) - -foreign import javascript unsafe "$1[\"marginHeight\"]" - js_getMarginHeight :: HTMLIFrameElement -> IO JSString - --- | -getMarginHeight :: - (MonadIO m, FromJSString result) => HTMLIFrameElement -> m result -getMarginHeight self - = liftIO (fromJSString <$> (js_getMarginHeight (self))) - -foreign import javascript unsafe "$1[\"marginWidth\"] = $2;" - js_setMarginWidth :: HTMLIFrameElement -> JSString -> IO () - --- | -setMarginWidth :: - (MonadIO m, ToJSString val) => HTMLIFrameElement -> val -> m () -setMarginWidth self val - = liftIO (js_setMarginWidth (self) (toJSString val)) - -foreign import javascript unsafe "$1[\"marginWidth\"]" - js_getMarginWidth :: HTMLIFrameElement -> IO JSString - --- | -getMarginWidth :: - (MonadIO m, FromJSString result) => HTMLIFrameElement -> m result -getMarginWidth self - = liftIO (fromJSString <$> (js_getMarginWidth (self))) - -foreign import javascript unsafe "$1[\"name\"] = $2;" js_setName :: - HTMLIFrameElement -> JSString -> IO () - --- | -setName :: - (MonadIO m, ToJSString val) => HTMLIFrameElement -> val -> m () -setName self val = liftIO (js_setName (self) (toJSString val)) - -foreign import javascript unsafe "$1[\"name\"]" js_getName :: - HTMLIFrameElement -> IO JSString - --- | -getName :: - (MonadIO m, FromJSString result) => HTMLIFrameElement -> m result -getName self = liftIO (fromJSString <$> (js_getName (self))) - -foreign import javascript unsafe "$1[\"sandbox\"] = $2;" - js_setSandbox :: HTMLIFrameElement -> JSString -> IO () - --- | -setSandbox :: - (MonadIO m, ToJSString val) => HTMLIFrameElement -> val -> m () -setSandbox self val - = liftIO (js_setSandbox (self) (toJSString val)) - -foreign import javascript unsafe "$1[\"sandbox\"]" js_getSandbox :: - HTMLIFrameElement -> IO JSString - --- | -getSandbox :: - (MonadIO m, FromJSString result) => HTMLIFrameElement -> m result -getSandbox self = liftIO (fromJSString <$> (js_getSandbox (self))) - -foreign import javascript unsafe "$1[\"scrolling\"] = $2;" - js_setScrolling :: HTMLIFrameElement -> JSString -> IO () - --- | -setScrolling :: - (MonadIO m, ToJSString val) => HTMLIFrameElement -> val -> m () -setScrolling self val - = liftIO (js_setScrolling (self) (toJSString val)) - -foreign import javascript unsafe "$1[\"scrolling\"]" - js_getScrolling :: HTMLIFrameElement -> IO JSString - --- | -getScrolling :: - (MonadIO m, FromJSString result) => HTMLIFrameElement -> m result -getScrolling self - = liftIO (fromJSString <$> (js_getScrolling (self))) - -foreign import javascript unsafe "$1[\"src\"] = $2;" js_setSrc :: - HTMLIFrameElement -> JSString -> IO () - --- | -setSrc :: - (MonadIO m, ToJSString val) => HTMLIFrameElement -> val -> m () -setSrc self val = liftIO (js_setSrc (self) (toJSString val)) - -foreign import javascript unsafe "$1[\"src\"]" js_getSrc :: - HTMLIFrameElement -> IO JSString - --- | -getSrc :: - (MonadIO m, FromJSString result) => HTMLIFrameElement -> m result -getSrc self = liftIO (fromJSString <$> (js_getSrc (self))) - -foreign import javascript unsafe "$1[\"srcdoc\"] = $2;" - js_setSrcdoc :: HTMLIFrameElement -> JSString -> IO () - --- | -setSrcdoc :: - (MonadIO m, ToJSString val) => HTMLIFrameElement -> val -> m () -setSrcdoc self val = liftIO (js_setSrcdoc (self) (toJSString val)) - -foreign import javascript unsafe "$1[\"srcdoc\"]" js_getSrcdoc :: - HTMLIFrameElement -> IO JSString - --- | -getSrcdoc :: - (MonadIO m, FromJSString result) => HTMLIFrameElement -> m result -getSrcdoc self = liftIO (fromJSString <$> (js_getSrcdoc (self))) - -foreign import javascript unsafe "$1[\"width\"] = $2;" js_setWidth - :: HTMLIFrameElement -> JSString -> IO () - --- | -setWidth :: - (MonadIO m, ToJSString val) => HTMLIFrameElement -> val -> m () -setWidth self val = liftIO (js_setWidth (self) (toJSString val)) - -foreign import javascript unsafe "$1[\"width\"]" js_getWidth :: - HTMLIFrameElement -> IO JSString - --- | -getWidth :: - (MonadIO m, FromJSString result) => HTMLIFrameElement -> m result -getWidth self = liftIO (fromJSString <$> (js_getWidth (self))) - -foreign import javascript unsafe "$1[\"contentDocument\"]" - js_getContentDocument :: - HTMLIFrameElement -> IO (Nullable Document) - --- | -getContentDocument :: - (MonadIO m) => HTMLIFrameElement -> m (Maybe Document) -getContentDocument self - = liftIO (nullableToMaybe <$> (js_getContentDocument (self))) - -foreign import javascript unsafe "$1[\"contentWindow\"]" - js_getContentWindow :: HTMLIFrameElement -> IO (Nullable Window) - --- | -getContentWindow :: - (MonadIO m) => HTMLIFrameElement -> m (Maybe Window) -getContentWindow self - = liftIO (nullableToMaybe <$> (js_getContentWindow (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/HTMLImageElement.hs b/src/GHCJS/DOM/JSFFI/Generated/HTMLImageElement.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/HTMLImageElement.hs +++ /dev/null @@ -1,328 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.HTMLImageElement - (js_setName, setName, js_getName, getName, js_setAlign, setAlign, - js_getAlign, getAlign, js_setAlt, setAlt, js_getAlt, getAlt, - js_setBorder, setBorder, js_getBorder, getBorder, - js_setCrossOrigin, setCrossOrigin, js_getCrossOrigin, - getCrossOrigin, js_setHeight, setHeight, js_getHeight, getHeight, - js_setHspace, setHspace, js_getHspace, getHspace, js_setIsMap, - setIsMap, js_getIsMap, getIsMap, js_setLongDesc, setLongDesc, - js_getLongDesc, getLongDesc, js_setSrc, setSrc, js_getSrc, getSrc, - js_setSrcset, setSrcset, js_getSrcset, getSrcset, js_setSizes, - setSizes, js_getSizes, getSizes, js_getCurrentSrc, getCurrentSrc, - js_setUseMap, setUseMap, js_getUseMap, getUseMap, js_setVspace, - setVspace, js_getVspace, getVspace, js_setWidth, setWidth, - js_getWidth, getWidth, js_getComplete, getComplete, js_setLowsrc, - setLowsrc, js_getLowsrc, getLowsrc, js_getNaturalHeight, - getNaturalHeight, js_getNaturalWidth, getNaturalWidth, js_getX, - getX, js_getY, getY, HTMLImageElement, castToHTMLImageElement, - gTypeHTMLImageElement) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"name\"] = $2;" js_setName :: - HTMLImageElement -> JSString -> IO () - --- | -setName :: - (MonadIO m, ToJSString val) => HTMLImageElement -> val -> m () -setName self val = liftIO (js_setName (self) (toJSString val)) - -foreign import javascript unsafe "$1[\"name\"]" js_getName :: - HTMLImageElement -> IO JSString - --- | -getName :: - (MonadIO m, FromJSString result) => HTMLImageElement -> m result -getName self = liftIO (fromJSString <$> (js_getName (self))) - -foreign import javascript unsafe "$1[\"align\"] = $2;" js_setAlign - :: HTMLImageElement -> JSString -> IO () - --- | -setAlign :: - (MonadIO m, ToJSString val) => HTMLImageElement -> val -> m () -setAlign self val = liftIO (js_setAlign (self) (toJSString val)) - -foreign import javascript unsafe "$1[\"align\"]" js_getAlign :: - HTMLImageElement -> IO JSString - --- | -getAlign :: - (MonadIO m, FromJSString result) => HTMLImageElement -> m result -getAlign self = liftIO (fromJSString <$> (js_getAlign (self))) - -foreign import javascript unsafe "$1[\"alt\"] = $2;" js_setAlt :: - HTMLImageElement -> JSString -> IO () - --- | -setAlt :: - (MonadIO m, ToJSString val) => HTMLImageElement -> val -> m () -setAlt self val = liftIO (js_setAlt (self) (toJSString val)) - -foreign import javascript unsafe "$1[\"alt\"]" js_getAlt :: - HTMLImageElement -> IO JSString - --- | -getAlt :: - (MonadIO m, FromJSString result) => HTMLImageElement -> m result -getAlt self = liftIO (fromJSString <$> (js_getAlt (self))) - -foreign import javascript unsafe "$1[\"border\"] = $2;" - js_setBorder :: HTMLImageElement -> JSString -> IO () - --- | -setBorder :: - (MonadIO m, ToJSString val) => HTMLImageElement -> val -> m () -setBorder self val = liftIO (js_setBorder (self) (toJSString val)) - -foreign import javascript unsafe "$1[\"border\"]" js_getBorder :: - HTMLImageElement -> IO JSString - --- | -getBorder :: - (MonadIO m, FromJSString result) => HTMLImageElement -> m result -getBorder self = liftIO (fromJSString <$> (js_getBorder (self))) - -foreign import javascript unsafe "$1[\"crossOrigin\"] = $2;" - js_setCrossOrigin :: HTMLImageElement -> JSString -> IO () - --- | -setCrossOrigin :: - (MonadIO m, ToJSString val) => HTMLImageElement -> val -> m () -setCrossOrigin self val - = liftIO (js_setCrossOrigin (self) (toJSString val)) - -foreign import javascript unsafe "$1[\"crossOrigin\"]" - js_getCrossOrigin :: HTMLImageElement -> IO JSString - --- | -getCrossOrigin :: - (MonadIO m, FromJSString result) => HTMLImageElement -> m result -getCrossOrigin self - = liftIO (fromJSString <$> (js_getCrossOrigin (self))) - -foreign import javascript unsafe "$1[\"height\"] = $2;" - js_setHeight :: HTMLImageElement -> Int -> IO () - --- | -setHeight :: (MonadIO m) => HTMLImageElement -> Int -> m () -setHeight self val = liftIO (js_setHeight (self) val) - -foreign import javascript unsafe "$1[\"height\"]" js_getHeight :: - HTMLImageElement -> IO Int - --- | -getHeight :: (MonadIO m) => HTMLImageElement -> m Int -getHeight self = liftIO (js_getHeight (self)) - -foreign import javascript unsafe "$1[\"hspace\"] = $2;" - js_setHspace :: HTMLImageElement -> Int -> IO () - --- | -setHspace :: (MonadIO m) => HTMLImageElement -> Int -> m () -setHspace self val = liftIO (js_setHspace (self) val) - -foreign import javascript unsafe "$1[\"hspace\"]" js_getHspace :: - HTMLImageElement -> IO Int - --- | -getHspace :: (MonadIO m) => HTMLImageElement -> m Int -getHspace self = liftIO (js_getHspace (self)) - -foreign import javascript unsafe "$1[\"isMap\"] = $2;" js_setIsMap - :: HTMLImageElement -> Bool -> IO () - --- | -setIsMap :: (MonadIO m) => HTMLImageElement -> Bool -> m () -setIsMap self val = liftIO (js_setIsMap (self) val) - -foreign import javascript unsafe "($1[\"isMap\"] ? 1 : 0)" - js_getIsMap :: HTMLImageElement -> IO Bool - --- | -getIsMap :: (MonadIO m) => HTMLImageElement -> m Bool -getIsMap self = liftIO (js_getIsMap (self)) - -foreign import javascript unsafe "$1[\"longDesc\"] = $2;" - js_setLongDesc :: HTMLImageElement -> JSString -> IO () - --- | -setLongDesc :: - (MonadIO m, ToJSString val) => HTMLImageElement -> val -> m () -setLongDesc self val - = liftIO (js_setLongDesc (self) (toJSString val)) - -foreign import javascript unsafe "$1[\"longDesc\"]" js_getLongDesc - :: HTMLImageElement -> IO JSString - --- | -getLongDesc :: - (MonadIO m, FromJSString result) => HTMLImageElement -> m result -getLongDesc self - = liftIO (fromJSString <$> (js_getLongDesc (self))) - -foreign import javascript unsafe "$1[\"src\"] = $2;" js_setSrc :: - HTMLImageElement -> JSString -> IO () - --- | -setSrc :: - (MonadIO m, ToJSString val) => HTMLImageElement -> val -> m () -setSrc self val = liftIO (js_setSrc (self) (toJSString val)) - -foreign import javascript unsafe "$1[\"src\"]" js_getSrc :: - HTMLImageElement -> IO JSString - --- | -getSrc :: - (MonadIO m, FromJSString result) => HTMLImageElement -> m result -getSrc self = liftIO (fromJSString <$> (js_getSrc (self))) - -foreign import javascript unsafe "$1[\"srcset\"] = $2;" - js_setSrcset :: HTMLImageElement -> JSString -> IO () - --- | -setSrcset :: - (MonadIO m, ToJSString val) => HTMLImageElement -> val -> m () -setSrcset self val = liftIO (js_setSrcset (self) (toJSString val)) - -foreign import javascript unsafe "$1[\"srcset\"]" js_getSrcset :: - HTMLImageElement -> IO JSString - --- | -getSrcset :: - (MonadIO m, FromJSString result) => HTMLImageElement -> m result -getSrcset self = liftIO (fromJSString <$> (js_getSrcset (self))) - -foreign import javascript unsafe "$1[\"sizes\"] = $2;" js_setSizes - :: HTMLImageElement -> JSString -> IO () - --- | -setSizes :: - (MonadIO m, ToJSString val) => HTMLImageElement -> val -> m () -setSizes self val = liftIO (js_setSizes (self) (toJSString val)) - -foreign import javascript unsafe "$1[\"sizes\"]" js_getSizes :: - HTMLImageElement -> IO JSString - --- | -getSizes :: - (MonadIO m, FromJSString result) => HTMLImageElement -> m result -getSizes self = liftIO (fromJSString <$> (js_getSizes (self))) - -foreign import javascript unsafe "$1[\"currentSrc\"]" - js_getCurrentSrc :: HTMLImageElement -> IO JSString - --- | -getCurrentSrc :: - (MonadIO m, FromJSString result) => HTMLImageElement -> m result -getCurrentSrc self - = liftIO (fromJSString <$> (js_getCurrentSrc (self))) - -foreign import javascript unsafe "$1[\"useMap\"] = $2;" - js_setUseMap :: HTMLImageElement -> JSString -> IO () - --- | -setUseMap :: - (MonadIO m, ToJSString val) => HTMLImageElement -> val -> m () -setUseMap self val = liftIO (js_setUseMap (self) (toJSString val)) - -foreign import javascript unsafe "$1[\"useMap\"]" js_getUseMap :: - HTMLImageElement -> IO JSString - --- | -getUseMap :: - (MonadIO m, FromJSString result) => HTMLImageElement -> m result -getUseMap self = liftIO (fromJSString <$> (js_getUseMap (self))) - -foreign import javascript unsafe "$1[\"vspace\"] = $2;" - js_setVspace :: HTMLImageElement -> Int -> IO () - --- | -setVspace :: (MonadIO m) => HTMLImageElement -> Int -> m () -setVspace self val = liftIO (js_setVspace (self) val) - -foreign import javascript unsafe "$1[\"vspace\"]" js_getVspace :: - HTMLImageElement -> IO Int - --- | -getVspace :: (MonadIO m) => HTMLImageElement -> m Int -getVspace self = liftIO (js_getVspace (self)) - -foreign import javascript unsafe "$1[\"width\"] = $2;" js_setWidth - :: HTMLImageElement -> Int -> IO () - --- | -setWidth :: (MonadIO m) => HTMLImageElement -> Int -> m () -setWidth self val = liftIO (js_setWidth (self) val) - -foreign import javascript unsafe "$1[\"width\"]" js_getWidth :: - HTMLImageElement -> IO Int - --- | -getWidth :: (MonadIO m) => HTMLImageElement -> m Int -getWidth self = liftIO (js_getWidth (self)) - -foreign import javascript unsafe "($1[\"complete\"] ? 1 : 0)" - js_getComplete :: HTMLImageElement -> IO Bool - --- | -getComplete :: (MonadIO m) => HTMLImageElement -> m Bool -getComplete self = liftIO (js_getComplete (self)) - -foreign import javascript unsafe "$1[\"lowsrc\"] = $2;" - js_setLowsrc :: HTMLImageElement -> JSString -> IO () - --- | -setLowsrc :: - (MonadIO m, ToJSString val) => HTMLImageElement -> val -> m () -setLowsrc self val = liftIO (js_setLowsrc (self) (toJSString val)) - -foreign import javascript unsafe "$1[\"lowsrc\"]" js_getLowsrc :: - HTMLImageElement -> IO JSString - --- | -getLowsrc :: - (MonadIO m, FromJSString result) => HTMLImageElement -> m result -getLowsrc self = liftIO (fromJSString <$> (js_getLowsrc (self))) - -foreign import javascript unsafe "$1[\"naturalHeight\"]" - js_getNaturalHeight :: HTMLImageElement -> IO Int - --- | -getNaturalHeight :: (MonadIO m) => HTMLImageElement -> m Int -getNaturalHeight self = liftIO (js_getNaturalHeight (self)) - -foreign import javascript unsafe "$1[\"naturalWidth\"]" - js_getNaturalWidth :: HTMLImageElement -> IO Int - --- | -getNaturalWidth :: (MonadIO m) => HTMLImageElement -> m Int -getNaturalWidth self = liftIO (js_getNaturalWidth (self)) - -foreign import javascript unsafe "$1[\"x\"]" js_getX :: - HTMLImageElement -> IO Int - --- | -getX :: (MonadIO m) => HTMLImageElement -> m Int -getX self = liftIO (js_getX (self)) - -foreign import javascript unsafe "$1[\"y\"]" js_getY :: - HTMLImageElement -> IO Int - --- | -getY :: (MonadIO m) => HTMLImageElement -> m Int -getY self = liftIO (js_getY (self)) diff --git a/src/GHCJS/DOM/JSFFI/Generated/HTMLInputElement.hs b/src/GHCJS/DOM/JSFFI/Generated/HTMLInputElement.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/HTMLInputElement.hs +++ /dev/null @@ -1,883 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.HTMLInputElement - (js_stepUp, stepUp, js_stepDown, stepDown, js_checkValidity, - checkValidity, js_setCustomValidity, setCustomValidity, js_select, - select, js_setRangeText, setRangeText, js_setRangeText4, - setRangeText4, js_setSelectionRange, setSelectionRange, - js_setAccept, setAccept, js_getAccept, getAccept, js_setAlt, - setAlt, js_getAlt, getAlt, js_setAutocomplete, setAutocomplete, - js_getAutocomplete, getAutocomplete, js_setAutofocus, setAutofocus, - js_getAutofocus, getAutofocus, js_setDefaultChecked, - setDefaultChecked, js_getDefaultChecked, getDefaultChecked, - js_setChecked, setChecked, js_getChecked, getChecked, - js_setDirName, setDirName, js_getDirName, getDirName, - js_setDisabled, setDisabled, js_getDisabled, getDisabled, - js_getForm, getForm, js_setFiles, setFiles, js_getFiles, getFiles, - js_setFormAction, setFormAction, js_getFormAction, getFormAction, - js_setFormEnctype, setFormEnctype, js_getFormEnctype, - getFormEnctype, js_setFormMethod, setFormMethod, js_getFormMethod, - getFormMethod, js_setFormNoValidate, setFormNoValidate, - js_getFormNoValidate, getFormNoValidate, js_setFormTarget, - setFormTarget, js_getFormTarget, getFormTarget, js_setHeight, - setHeight, js_getHeight, getHeight, js_setIndeterminate, - setIndeterminate, js_getIndeterminate, getIndeterminate, - js_getList, getList, js_setMax, setMax, js_getMax, getMax, - js_setMaxLength, setMaxLength, js_getMaxLength, getMaxLength, - js_setMin, setMin, js_getMin, getMin, js_setMultiple, setMultiple, - js_getMultiple, getMultiple, js_setName, setName, js_getName, - getName, js_setPattern, setPattern, js_getPattern, getPattern, - js_setPlaceholder, setPlaceholder, js_getPlaceholder, - getPlaceholder, js_setReadOnly, setReadOnly, js_getReadOnly, - getReadOnly, js_setRequired, setRequired, js_getRequired, - getRequired, js_setSize, setSize, js_getSize, getSize, js_setSrc, - setSrc, js_getSrc, getSrc, js_setStep, setStep, js_getStep, - getStep, js_setType, setType, js_getType, getType, - js_setDefaultValue, setDefaultValue, js_getDefaultValue, - getDefaultValue, js_setValue, setValue, js_getValue, getValue, - js_setValueAsDate, setValueAsDate, js_getValueAsDate, - getValueAsDate, js_setValueAsNumber, setValueAsNumber, - js_getValueAsNumber, getValueAsNumber, js_setWidth, setWidth, - js_getWidth, getWidth, js_getWillValidate, getWillValidate, - js_getValidity, getValidity, js_getValidationMessage, - getValidationMessage, js_getLabels, getLabels, - js_setSelectionStart, setSelectionStart, js_getSelectionStart, - getSelectionStart, js_setSelectionEnd, setSelectionEnd, - js_getSelectionEnd, getSelectionEnd, js_setSelectionDirection, - setSelectionDirection, js_getSelectionDirection, - getSelectionDirection, js_setAlign, setAlign, js_getAlign, - getAlign, js_setUseMap, setUseMap, js_getUseMap, getUseMap, - js_setIncremental, setIncremental, js_getIncremental, - getIncremental, js_setAutocorrect, setAutocorrect, - js_getAutocorrect, getAutocorrect, js_setAutocapitalize, - setAutocapitalize, js_getAutocapitalize, getAutocapitalize, - js_setCapture, setCapture, js_getCapture, getCapture, - HTMLInputElement, castToHTMLInputElement, gTypeHTMLInputElement) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"stepUp\"]($2)" js_stepUp :: - HTMLInputElement -> Int -> IO () - --- | -stepUp :: (MonadIO m) => HTMLInputElement -> Int -> m () -stepUp self n = liftIO (js_stepUp (self) n) - -foreign import javascript unsafe "$1[\"stepDown\"]($2)" js_stepDown - :: HTMLInputElement -> Int -> IO () - --- | -stepDown :: (MonadIO m) => HTMLInputElement -> Int -> m () -stepDown self n = liftIO (js_stepDown (self) n) - -foreign import javascript unsafe - "($1[\"checkValidity\"]() ? 1 : 0)" js_checkValidity :: - HTMLInputElement -> IO Bool - --- | -checkValidity :: (MonadIO m) => HTMLInputElement -> m Bool -checkValidity self = liftIO (js_checkValidity (self)) - -foreign import javascript unsafe "$1[\"setCustomValidity\"]($2)" - js_setCustomValidity :: - HTMLInputElement -> Nullable JSString -> IO () - --- | -setCustomValidity :: - (MonadIO m, ToJSString error) => - HTMLInputElement -> Maybe error -> m () -setCustomValidity self error - = liftIO (js_setCustomValidity (self) (toMaybeJSString error)) - -foreign import javascript unsafe "$1[\"select\"]()" js_select :: - HTMLInputElement -> IO () - --- | -select :: (MonadIO m) => HTMLInputElement -> m () -select self = liftIO (js_select (self)) - -foreign import javascript unsafe "$1[\"setRangeText\"]($2)" - js_setRangeText :: HTMLInputElement -> JSString -> IO () - --- | -setRangeText :: - (MonadIO m, ToJSString replacement) => - HTMLInputElement -> replacement -> m () -setRangeText self replacement - = liftIO (js_setRangeText (self) (toJSString replacement)) - -foreign import javascript unsafe - "$1[\"setRangeText\"]($2, $3, $4,\n$5)" js_setRangeText4 :: - HTMLInputElement -> JSString -> Word -> Word -> JSString -> IO () - --- | -setRangeText4 :: - (MonadIO m, ToJSString replacement, ToJSString selectionMode) => - HTMLInputElement -> - replacement -> Word -> Word -> selectionMode -> m () -setRangeText4 self replacement start end selectionMode - = liftIO - (js_setRangeText4 (self) (toJSString replacement) start end - (toJSString selectionMode)) - -foreign import javascript unsafe - "$1[\"setSelectionRange\"]($2, $3,\n$4)" js_setSelectionRange :: - HTMLInputElement -> Int -> Int -> JSString -> IO () - --- | -setSelectionRange :: - (MonadIO m, ToJSString direction) => - HTMLInputElement -> Int -> Int -> direction -> m () -setSelectionRange self start end direction - = liftIO - (js_setSelectionRange (self) start end (toJSString direction)) - -foreign import javascript unsafe "$1[\"accept\"] = $2;" - js_setAccept :: HTMLInputElement -> JSString -> IO () - --- | -setAccept :: - (MonadIO m, ToJSString val) => HTMLInputElement -> val -> m () -setAccept self val = liftIO (js_setAccept (self) (toJSString val)) - -foreign import javascript unsafe "$1[\"accept\"]" js_getAccept :: - HTMLInputElement -> IO JSString - --- | -getAccept :: - (MonadIO m, FromJSString result) => HTMLInputElement -> m result -getAccept self = liftIO (fromJSString <$> (js_getAccept (self))) - -foreign import javascript unsafe "$1[\"alt\"] = $2;" js_setAlt :: - HTMLInputElement -> JSString -> IO () - --- | -setAlt :: - (MonadIO m, ToJSString val) => HTMLInputElement -> val -> m () -setAlt self val = liftIO (js_setAlt (self) (toJSString val)) - -foreign import javascript unsafe "$1[\"alt\"]" js_getAlt :: - HTMLInputElement -> IO JSString - --- | -getAlt :: - (MonadIO m, FromJSString result) => HTMLInputElement -> m result -getAlt self = liftIO (fromJSString <$> (js_getAlt (self))) - -foreign import javascript unsafe "$1[\"autocomplete\"] = $2;" - js_setAutocomplete :: HTMLInputElement -> JSString -> IO () - --- | -setAutocomplete :: - (MonadIO m, ToJSString val) => HTMLInputElement -> val -> m () -setAutocomplete self val - = liftIO (js_setAutocomplete (self) (toJSString val)) - -foreign import javascript unsafe "$1[\"autocomplete\"]" - js_getAutocomplete :: HTMLInputElement -> IO JSString - --- | -getAutocomplete :: - (MonadIO m, FromJSString result) => HTMLInputElement -> m result -getAutocomplete self - = liftIO (fromJSString <$> (js_getAutocomplete (self))) - -foreign import javascript unsafe "$1[\"autofocus\"] = $2;" - js_setAutofocus :: HTMLInputElement -> Bool -> IO () - --- | -setAutofocus :: (MonadIO m) => HTMLInputElement -> Bool -> m () -setAutofocus self val = liftIO (js_setAutofocus (self) val) - -foreign import javascript unsafe "($1[\"autofocus\"] ? 1 : 0)" - js_getAutofocus :: HTMLInputElement -> IO Bool - --- | -getAutofocus :: (MonadIO m) => HTMLInputElement -> m Bool -getAutofocus self = liftIO (js_getAutofocus (self)) - -foreign import javascript unsafe "$1[\"defaultChecked\"] = $2;" - js_setDefaultChecked :: HTMLInputElement -> Bool -> IO () - --- | -setDefaultChecked :: - (MonadIO m) => HTMLInputElement -> Bool -> m () -setDefaultChecked self val - = liftIO (js_setDefaultChecked (self) val) - -foreign import javascript unsafe "($1[\"defaultChecked\"] ? 1 : 0)" - js_getDefaultChecked :: HTMLInputElement -> IO Bool - --- | -getDefaultChecked :: (MonadIO m) => HTMLInputElement -> m Bool -getDefaultChecked self = liftIO (js_getDefaultChecked (self)) - -foreign import javascript unsafe "$1[\"checked\"] = $2;" - js_setChecked :: HTMLInputElement -> Bool -> IO () - --- | -setChecked :: (MonadIO m) => HTMLInputElement -> Bool -> m () -setChecked self val = liftIO (js_setChecked (self) val) - -foreign import javascript unsafe "($1[\"checked\"] ? 1 : 0)" - js_getChecked :: HTMLInputElement -> IO Bool - --- | -getChecked :: (MonadIO m) => HTMLInputElement -> m Bool -getChecked self = liftIO (js_getChecked (self)) - -foreign import javascript unsafe "$1[\"dirName\"] = $2;" - js_setDirName :: HTMLInputElement -> JSString -> IO () - --- | -setDirName :: - (MonadIO m, ToJSString val) => HTMLInputElement -> val -> m () -setDirName self val - = liftIO (js_setDirName (self) (toJSString val)) - -foreign import javascript unsafe "$1[\"dirName\"]" js_getDirName :: - HTMLInputElement -> IO JSString - --- | -getDirName :: - (MonadIO m, FromJSString result) => HTMLInputElement -> m result -getDirName self = liftIO (fromJSString <$> (js_getDirName (self))) - -foreign import javascript unsafe "$1[\"disabled\"] = $2;" - js_setDisabled :: HTMLInputElement -> Bool -> IO () - --- | -setDisabled :: (MonadIO m) => HTMLInputElement -> Bool -> m () -setDisabled self val = liftIO (js_setDisabled (self) val) - -foreign import javascript unsafe "($1[\"disabled\"] ? 1 : 0)" - js_getDisabled :: HTMLInputElement -> IO Bool - --- | -getDisabled :: (MonadIO m) => HTMLInputElement -> m Bool -getDisabled self = liftIO (js_getDisabled (self)) - -foreign import javascript unsafe "$1[\"form\"]" js_getForm :: - HTMLInputElement -> IO (Nullable HTMLFormElement) - --- | -getForm :: - (MonadIO m) => HTMLInputElement -> m (Maybe HTMLFormElement) -getForm self = liftIO (nullableToMaybe <$> (js_getForm (self))) - -foreign import javascript unsafe "$1[\"files\"] = $2;" js_setFiles - :: HTMLInputElement -> Nullable FileList -> IO () - --- | -setFiles :: - (MonadIO m) => HTMLInputElement -> Maybe FileList -> m () -setFiles self val - = liftIO (js_setFiles (self) (maybeToNullable val)) - -foreign import javascript unsafe "$1[\"files\"]" js_getFiles :: - HTMLInputElement -> IO (Nullable FileList) - --- | -getFiles :: (MonadIO m) => HTMLInputElement -> m (Maybe FileList) -getFiles self = liftIO (nullableToMaybe <$> (js_getFiles (self))) - -foreign import javascript unsafe "$1[\"formAction\"] = $2;" - js_setFormAction :: HTMLInputElement -> JSString -> IO () - --- | -setFormAction :: - (MonadIO m, ToJSString val) => HTMLInputElement -> val -> m () -setFormAction self val - = liftIO (js_setFormAction (self) (toJSString val)) - -foreign import javascript unsafe "$1[\"formAction\"]" - js_getFormAction :: HTMLInputElement -> IO JSString - --- | -getFormAction :: - (MonadIO m, FromJSString result) => HTMLInputElement -> m result -getFormAction self - = liftIO (fromJSString <$> (js_getFormAction (self))) - -foreign import javascript unsafe "$1[\"formEnctype\"] = $2;" - js_setFormEnctype :: HTMLInputElement -> Nullable JSString -> IO () - --- | -setFormEnctype :: - (MonadIO m, ToJSString val) => - HTMLInputElement -> Maybe val -> m () -setFormEnctype self val - = liftIO (js_setFormEnctype (self) (toMaybeJSString val)) - -foreign import javascript unsafe "$1[\"formEnctype\"]" - js_getFormEnctype :: HTMLInputElement -> IO (Nullable JSString) - --- | -getFormEnctype :: - (MonadIO m, FromJSString result) => - HTMLInputElement -> m (Maybe result) -getFormEnctype self - = liftIO (fromMaybeJSString <$> (js_getFormEnctype (self))) - -foreign import javascript unsafe "$1[\"formMethod\"] = $2;" - js_setFormMethod :: HTMLInputElement -> Nullable JSString -> IO () - --- | -setFormMethod :: - (MonadIO m, ToJSString val) => - HTMLInputElement -> Maybe val -> m () -setFormMethod self val - = liftIO (js_setFormMethod (self) (toMaybeJSString val)) - -foreign import javascript unsafe "$1[\"formMethod\"]" - js_getFormMethod :: HTMLInputElement -> IO (Nullable JSString) - --- | -getFormMethod :: - (MonadIO m, FromJSString result) => - HTMLInputElement -> m (Maybe result) -getFormMethod self - = liftIO (fromMaybeJSString <$> (js_getFormMethod (self))) - -foreign import javascript unsafe "$1[\"formNoValidate\"] = $2;" - js_setFormNoValidate :: HTMLInputElement -> Bool -> IO () - --- | -setFormNoValidate :: - (MonadIO m) => HTMLInputElement -> Bool -> m () -setFormNoValidate self val - = liftIO (js_setFormNoValidate (self) val) - -foreign import javascript unsafe "($1[\"formNoValidate\"] ? 1 : 0)" - js_getFormNoValidate :: HTMLInputElement -> IO Bool - --- | -getFormNoValidate :: (MonadIO m) => HTMLInputElement -> m Bool -getFormNoValidate self = liftIO (js_getFormNoValidate (self)) - -foreign import javascript unsafe "$1[\"formTarget\"] = $2;" - js_setFormTarget :: HTMLInputElement -> JSString -> IO () - --- | -setFormTarget :: - (MonadIO m, ToJSString val) => HTMLInputElement -> val -> m () -setFormTarget self val - = liftIO (js_setFormTarget (self) (toJSString val)) - -foreign import javascript unsafe "$1[\"formTarget\"]" - js_getFormTarget :: HTMLInputElement -> IO JSString - --- | -getFormTarget :: - (MonadIO m, FromJSString result) => HTMLInputElement -> m result -getFormTarget self - = liftIO (fromJSString <$> (js_getFormTarget (self))) - -foreign import javascript unsafe "$1[\"height\"] = $2;" - js_setHeight :: HTMLInputElement -> Word -> IO () - --- | -setHeight :: (MonadIO m) => HTMLInputElement -> Word -> m () -setHeight self val = liftIO (js_setHeight (self) val) - -foreign import javascript unsafe "$1[\"height\"]" js_getHeight :: - HTMLInputElement -> IO Word - --- | -getHeight :: (MonadIO m) => HTMLInputElement -> m Word -getHeight self = liftIO (js_getHeight (self)) - -foreign import javascript unsafe "$1[\"indeterminate\"] = $2;" - js_setIndeterminate :: HTMLInputElement -> Bool -> IO () - --- | -setIndeterminate :: (MonadIO m) => HTMLInputElement -> Bool -> m () -setIndeterminate self val = liftIO (js_setIndeterminate (self) val) - -foreign import javascript unsafe "($1[\"indeterminate\"] ? 1 : 0)" - js_getIndeterminate :: HTMLInputElement -> IO Bool - --- | -getIndeterminate :: (MonadIO m) => HTMLInputElement -> m Bool -getIndeterminate self = liftIO (js_getIndeterminate (self)) - -foreign import javascript unsafe "$1[\"list\"]" js_getList :: - HTMLInputElement -> IO (Nullable HTMLElement) - --- | -getList :: (MonadIO m) => HTMLInputElement -> m (Maybe HTMLElement) -getList self = liftIO (nullableToMaybe <$> (js_getList (self))) - -foreign import javascript unsafe "$1[\"max\"] = $2;" js_setMax :: - HTMLInputElement -> JSString -> IO () - --- | -setMax :: - (MonadIO m, ToJSString val) => HTMLInputElement -> val -> m () -setMax self val = liftIO (js_setMax (self) (toJSString val)) - -foreign import javascript unsafe "$1[\"max\"]" js_getMax :: - HTMLInputElement -> IO JSString - --- | -getMax :: - (MonadIO m, FromJSString result) => HTMLInputElement -> m result -getMax self = liftIO (fromJSString <$> (js_getMax (self))) - -foreign import javascript unsafe "$1[\"maxLength\"] = $2;" - js_setMaxLength :: HTMLInputElement -> Int -> IO () - --- | -setMaxLength :: (MonadIO m) => HTMLInputElement -> Int -> m () -setMaxLength self val = liftIO (js_setMaxLength (self) val) - -foreign import javascript unsafe "$1[\"maxLength\"]" - js_getMaxLength :: HTMLInputElement -> IO Int - --- | -getMaxLength :: (MonadIO m) => HTMLInputElement -> m Int -getMaxLength self = liftIO (js_getMaxLength (self)) - -foreign import javascript unsafe "$1[\"min\"] = $2;" js_setMin :: - HTMLInputElement -> JSString -> IO () - --- | -setMin :: - (MonadIO m, ToJSString val) => HTMLInputElement -> val -> m () -setMin self val = liftIO (js_setMin (self) (toJSString val)) - -foreign import javascript unsafe "$1[\"min\"]" js_getMin :: - HTMLInputElement -> IO JSString - --- | -getMin :: - (MonadIO m, FromJSString result) => HTMLInputElement -> m result -getMin self = liftIO (fromJSString <$> (js_getMin (self))) - -foreign import javascript unsafe "$1[\"multiple\"] = $2;" - js_setMultiple :: HTMLInputElement -> Bool -> IO () - --- | -setMultiple :: (MonadIO m) => HTMLInputElement -> Bool -> m () -setMultiple self val = liftIO (js_setMultiple (self) val) - -foreign import javascript unsafe "($1[\"multiple\"] ? 1 : 0)" - js_getMultiple :: HTMLInputElement -> IO Bool - --- | -getMultiple :: (MonadIO m) => HTMLInputElement -> m Bool -getMultiple self = liftIO (js_getMultiple (self)) - -foreign import javascript unsafe "$1[\"name\"] = $2;" js_setName :: - HTMLInputElement -> JSString -> IO () - --- | -setName :: - (MonadIO m, ToJSString val) => HTMLInputElement -> val -> m () -setName self val = liftIO (js_setName (self) (toJSString val)) - -foreign import javascript unsafe "$1[\"name\"]" js_getName :: - HTMLInputElement -> IO JSString - --- | -getName :: - (MonadIO m, FromJSString result) => HTMLInputElement -> m result -getName self = liftIO (fromJSString <$> (js_getName (self))) - -foreign import javascript unsafe "$1[\"pattern\"] = $2;" - js_setPattern :: HTMLInputElement -> JSString -> IO () - --- | -setPattern :: - (MonadIO m, ToJSString val) => HTMLInputElement -> val -> m () -setPattern self val - = liftIO (js_setPattern (self) (toJSString val)) - -foreign import javascript unsafe "$1[\"pattern\"]" js_getPattern :: - HTMLInputElement -> IO JSString - --- | -getPattern :: - (MonadIO m, FromJSString result) => HTMLInputElement -> m result -getPattern self = liftIO (fromJSString <$> (js_getPattern (self))) - -foreign import javascript unsafe "$1[\"placeholder\"] = $2;" - js_setPlaceholder :: HTMLInputElement -> JSString -> IO () - --- | -setPlaceholder :: - (MonadIO m, ToJSString val) => HTMLInputElement -> val -> m () -setPlaceholder self val - = liftIO (js_setPlaceholder (self) (toJSString val)) - -foreign import javascript unsafe "$1[\"placeholder\"]" - js_getPlaceholder :: HTMLInputElement -> IO JSString - --- | -getPlaceholder :: - (MonadIO m, FromJSString result) => HTMLInputElement -> m result -getPlaceholder self - = liftIO (fromJSString <$> (js_getPlaceholder (self))) - -foreign import javascript unsafe "$1[\"readOnly\"] = $2;" - js_setReadOnly :: HTMLInputElement -> Bool -> IO () - --- | -setReadOnly :: (MonadIO m) => HTMLInputElement -> Bool -> m () -setReadOnly self val = liftIO (js_setReadOnly (self) val) - -foreign import javascript unsafe "($1[\"readOnly\"] ? 1 : 0)" - js_getReadOnly :: HTMLInputElement -> IO Bool - --- | -getReadOnly :: (MonadIO m) => HTMLInputElement -> m Bool -getReadOnly self = liftIO (js_getReadOnly (self)) - -foreign import javascript unsafe "$1[\"required\"] = $2;" - js_setRequired :: HTMLInputElement -> Bool -> IO () - --- | -setRequired :: (MonadIO m) => HTMLInputElement -> Bool -> m () -setRequired self val = liftIO (js_setRequired (self) val) - -foreign import javascript unsafe "($1[\"required\"] ? 1 : 0)" - js_getRequired :: HTMLInputElement -> IO Bool - --- | -getRequired :: (MonadIO m) => HTMLInputElement -> m Bool -getRequired self = liftIO (js_getRequired (self)) - -foreign import javascript unsafe "$1[\"size\"] = $2;" js_setSize :: - HTMLInputElement -> Word -> IO () - --- | -setSize :: (MonadIO m) => HTMLInputElement -> Word -> m () -setSize self val = liftIO (js_setSize (self) val) - -foreign import javascript unsafe "$1[\"size\"]" js_getSize :: - HTMLInputElement -> IO Word - --- | -getSize :: (MonadIO m) => HTMLInputElement -> m Word -getSize self = liftIO (js_getSize (self)) - -foreign import javascript unsafe "$1[\"src\"] = $2;" js_setSrc :: - HTMLInputElement -> JSString -> IO () - --- | -setSrc :: - (MonadIO m, ToJSString val) => HTMLInputElement -> val -> m () -setSrc self val = liftIO (js_setSrc (self) (toJSString val)) - -foreign import javascript unsafe "$1[\"src\"]" js_getSrc :: - HTMLInputElement -> IO JSString - --- | -getSrc :: - (MonadIO m, FromJSString result) => HTMLInputElement -> m result -getSrc self = liftIO (fromJSString <$> (js_getSrc (self))) - -foreign import javascript unsafe "$1[\"step\"] = $2;" js_setStep :: - HTMLInputElement -> JSString -> IO () - --- | -setStep :: - (MonadIO m, ToJSString val) => HTMLInputElement -> val -> m () -setStep self val = liftIO (js_setStep (self) (toJSString val)) - -foreign import javascript unsafe "$1[\"step\"]" js_getStep :: - HTMLInputElement -> IO JSString - --- | -getStep :: - (MonadIO m, FromJSString result) => HTMLInputElement -> m result -getStep self = liftIO (fromJSString <$> (js_getStep (self))) - -foreign import javascript unsafe "$1[\"type\"] = $2;" js_setType :: - HTMLInputElement -> JSString -> IO () - --- | -setType :: - (MonadIO m, ToJSString val) => HTMLInputElement -> val -> m () -setType self val = liftIO (js_setType (self) (toJSString val)) - -foreign import javascript unsafe "$1[\"type\"]" js_getType :: - HTMLInputElement -> IO JSString - --- | -getType :: - (MonadIO m, FromJSString result) => HTMLInputElement -> m result -getType self = liftIO (fromJSString <$> (js_getType (self))) - -foreign import javascript unsafe "$1[\"defaultValue\"] = $2;" - js_setDefaultValue :: - HTMLInputElement -> Nullable JSString -> IO () - --- | -setDefaultValue :: - (MonadIO m, ToJSString val) => - HTMLInputElement -> Maybe val -> m () -setDefaultValue self val - = liftIO (js_setDefaultValue (self) (toMaybeJSString val)) - -foreign import javascript unsafe "$1[\"defaultValue\"]" - js_getDefaultValue :: HTMLInputElement -> IO (Nullable JSString) - --- | -getDefaultValue :: - (MonadIO m, FromJSString result) => - HTMLInputElement -> m (Maybe result) -getDefaultValue self - = liftIO (fromMaybeJSString <$> (js_getDefaultValue (self))) - -foreign import javascript unsafe "$1[\"value\"] = $2;" js_setValue - :: HTMLInputElement -> Nullable JSString -> IO () - --- | -setValue :: - (MonadIO m, ToJSString val) => - HTMLInputElement -> Maybe val -> m () -setValue self val - = liftIO (js_setValue (self) (toMaybeJSString val)) - -foreign import javascript unsafe "$1[\"value\"]" js_getValue :: - HTMLInputElement -> IO (Nullable JSString) - --- | -getValue :: - (MonadIO m, FromJSString result) => - HTMLInputElement -> m (Maybe result) -getValue self = liftIO (fromMaybeJSString <$> (js_getValue (self))) - -foreign import javascript unsafe "$1[\"valueAsDate\"] = $2;" - js_setValueAsDate :: HTMLInputElement -> Nullable Date -> IO () - --- | -setValueAsDate :: - (MonadIO m, IsDate val) => HTMLInputElement -> Maybe val -> m () -setValueAsDate self val - = liftIO - (js_setValueAsDate (self) (maybeToNullable (fmap toDate val))) - -foreign import javascript unsafe "$1[\"valueAsDate\"]" - js_getValueAsDate :: HTMLInputElement -> IO (Nullable Date) - --- | -getValueAsDate :: (MonadIO m) => HTMLInputElement -> m (Maybe Date) -getValueAsDate self - = liftIO (nullableToMaybe <$> (js_getValueAsDate (self))) - -foreign import javascript unsafe "$1[\"valueAsNumber\"] = $2;" - js_setValueAsNumber :: HTMLInputElement -> Double -> IO () - --- | -setValueAsNumber :: - (MonadIO m) => HTMLInputElement -> Double -> m () -setValueAsNumber self val = liftIO (js_setValueAsNumber (self) val) - -foreign import javascript unsafe "$1[\"valueAsNumber\"]" - js_getValueAsNumber :: HTMLInputElement -> IO Double - --- | -getValueAsNumber :: (MonadIO m) => HTMLInputElement -> m Double -getValueAsNumber self = liftIO (js_getValueAsNumber (self)) - -foreign import javascript unsafe "$1[\"width\"] = $2;" js_setWidth - :: HTMLInputElement -> Word -> IO () - --- | -setWidth :: (MonadIO m) => HTMLInputElement -> Word -> m () -setWidth self val = liftIO (js_setWidth (self) val) - -foreign import javascript unsafe "$1[\"width\"]" js_getWidth :: - HTMLInputElement -> IO Word - --- | -getWidth :: (MonadIO m) => HTMLInputElement -> m Word -getWidth self = liftIO (js_getWidth (self)) - -foreign import javascript unsafe "($1[\"willValidate\"] ? 1 : 0)" - js_getWillValidate :: HTMLInputElement -> IO Bool - --- | -getWillValidate :: (MonadIO m) => HTMLInputElement -> m Bool -getWillValidate self = liftIO (js_getWillValidate (self)) - -foreign import javascript unsafe "$1[\"validity\"]" js_getValidity - :: HTMLInputElement -> IO (Nullable ValidityState) - --- | -getValidity :: - (MonadIO m) => HTMLInputElement -> m (Maybe ValidityState) -getValidity self - = liftIO (nullableToMaybe <$> (js_getValidity (self))) - -foreign import javascript unsafe "$1[\"validationMessage\"]" - js_getValidationMessage :: HTMLInputElement -> IO JSString - --- | -getValidationMessage :: - (MonadIO m, FromJSString result) => HTMLInputElement -> m result -getValidationMessage self - = liftIO (fromJSString <$> (js_getValidationMessage (self))) - -foreign import javascript unsafe "$1[\"labels\"]" js_getLabels :: - HTMLInputElement -> IO (Nullable NodeList) - --- | -getLabels :: (MonadIO m) => HTMLInputElement -> m (Maybe NodeList) -getLabels self = liftIO (nullableToMaybe <$> (js_getLabels (self))) - -foreign import javascript unsafe "$1[\"selectionStart\"] = $2;" - js_setSelectionStart :: HTMLInputElement -> Int -> IO () - --- | -setSelectionStart :: (MonadIO m) => HTMLInputElement -> Int -> m () -setSelectionStart self val - = liftIO (js_setSelectionStart (self) val) - -foreign import javascript unsafe "$1[\"selectionStart\"]" - js_getSelectionStart :: HTMLInputElement -> IO Int - --- | -getSelectionStart :: (MonadIO m) => HTMLInputElement -> m Int -getSelectionStart self = liftIO (js_getSelectionStart (self)) - -foreign import javascript unsafe "$1[\"selectionEnd\"] = $2;" - js_setSelectionEnd :: HTMLInputElement -> Int -> IO () - --- | -setSelectionEnd :: (MonadIO m) => HTMLInputElement -> Int -> m () -setSelectionEnd self val = liftIO (js_setSelectionEnd (self) val) - -foreign import javascript unsafe "$1[\"selectionEnd\"]" - js_getSelectionEnd :: HTMLInputElement -> IO Int - --- | -getSelectionEnd :: (MonadIO m) => HTMLInputElement -> m Int -getSelectionEnd self = liftIO (js_getSelectionEnd (self)) - -foreign import javascript unsafe "$1[\"selectionDirection\"] = $2;" - js_setSelectionDirection :: HTMLInputElement -> JSString -> IO () - --- | -setSelectionDirection :: - (MonadIO m, ToJSString val) => HTMLInputElement -> val -> m () -setSelectionDirection self val - = liftIO (js_setSelectionDirection (self) (toJSString val)) - -foreign import javascript unsafe "$1[\"selectionDirection\"]" - js_getSelectionDirection :: HTMLInputElement -> IO JSString - --- | -getSelectionDirection :: - (MonadIO m, FromJSString result) => HTMLInputElement -> m result -getSelectionDirection self - = liftIO (fromJSString <$> (js_getSelectionDirection (self))) - -foreign import javascript unsafe "$1[\"align\"] = $2;" js_setAlign - :: HTMLInputElement -> JSString -> IO () - --- | -setAlign :: - (MonadIO m, ToJSString val) => HTMLInputElement -> val -> m () -setAlign self val = liftIO (js_setAlign (self) (toJSString val)) - -foreign import javascript unsafe "$1[\"align\"]" js_getAlign :: - HTMLInputElement -> IO JSString - --- | -getAlign :: - (MonadIO m, FromJSString result) => HTMLInputElement -> m result -getAlign self = liftIO (fromJSString <$> (js_getAlign (self))) - -foreign import javascript unsafe "$1[\"useMap\"] = $2;" - js_setUseMap :: HTMLInputElement -> JSString -> IO () - --- | -setUseMap :: - (MonadIO m, ToJSString val) => HTMLInputElement -> val -> m () -setUseMap self val = liftIO (js_setUseMap (self) (toJSString val)) - -foreign import javascript unsafe "$1[\"useMap\"]" js_getUseMap :: - HTMLInputElement -> IO JSString - --- | -getUseMap :: - (MonadIO m, FromJSString result) => HTMLInputElement -> m result -getUseMap self = liftIO (fromJSString <$> (js_getUseMap (self))) - -foreign import javascript unsafe "$1[\"incremental\"] = $2;" - js_setIncremental :: HTMLInputElement -> Bool -> IO () - --- | -setIncremental :: (MonadIO m) => HTMLInputElement -> Bool -> m () -setIncremental self val = liftIO (js_setIncremental (self) val) - -foreign import javascript unsafe "($1[\"incremental\"] ? 1 : 0)" - js_getIncremental :: HTMLInputElement -> IO Bool - --- | -getIncremental :: (MonadIO m) => HTMLInputElement -> m Bool -getIncremental self = liftIO (js_getIncremental (self)) - -foreign import javascript unsafe "$1[\"autocorrect\"] = $2;" - js_setAutocorrect :: HTMLInputElement -> Bool -> IO () - --- | -setAutocorrect :: (MonadIO m) => HTMLInputElement -> Bool -> m () -setAutocorrect self val = liftIO (js_setAutocorrect (self) val) - -foreign import javascript unsafe "($1[\"autocorrect\"] ? 1 : 0)" - js_getAutocorrect :: HTMLInputElement -> IO Bool - --- | -getAutocorrect :: (MonadIO m) => HTMLInputElement -> m Bool -getAutocorrect self = liftIO (js_getAutocorrect (self)) - -foreign import javascript unsafe "$1[\"autocapitalize\"] = $2;" - js_setAutocapitalize :: - HTMLInputElement -> Nullable JSString -> IO () - --- | -setAutocapitalize :: - (MonadIO m, ToJSString val) => - HTMLInputElement -> Maybe val -> m () -setAutocapitalize self val - = liftIO (js_setAutocapitalize (self) (toMaybeJSString val)) - -foreign import javascript unsafe "$1[\"autocapitalize\"]" - js_getAutocapitalize :: HTMLInputElement -> IO (Nullable JSString) - --- | -getAutocapitalize :: - (MonadIO m, FromJSString result) => - HTMLInputElement -> m (Maybe result) -getAutocapitalize self - = liftIO (fromMaybeJSString <$> (js_getAutocapitalize (self))) - -foreign import javascript unsafe "$1[\"capture\"] = $2;" - js_setCapture :: HTMLInputElement -> Bool -> IO () - --- | -setCapture :: (MonadIO m) => HTMLInputElement -> Bool -> m () -setCapture self val = liftIO (js_setCapture (self) val) - -foreign import javascript unsafe "($1[\"capture\"] ? 1 : 0)" - js_getCapture :: HTMLInputElement -> IO Bool - --- | -getCapture :: (MonadIO m) => HTMLInputElement -> m Bool -getCapture self = liftIO (js_getCapture (self)) diff --git a/src/GHCJS/DOM/JSFFI/Generated/HTMLKeygenElement.hs b/src/GHCJS/DOM/JSFFI/Generated/HTMLKeygenElement.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/HTMLKeygenElement.hs +++ /dev/null @@ -1,173 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.HTMLKeygenElement - (js_checkValidity, checkValidity, js_setCustomValidity, - setCustomValidity, js_setAutofocus, setAutofocus, js_getAutofocus, - getAutofocus, js_setChallenge, setChallenge, js_getChallenge, - getChallenge, js_setDisabled, setDisabled, js_getDisabled, - getDisabled, js_getForm, getForm, js_setKeytype, setKeytype, - js_getKeytype, getKeytype, js_setName, setName, js_getName, - getName, js_getType, getType, js_getWillValidate, getWillValidate, - js_getValidity, getValidity, js_getValidationMessage, - getValidationMessage, js_getLabels, getLabels, HTMLKeygenElement, - castToHTMLKeygenElement, gTypeHTMLKeygenElement) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe - "($1[\"checkValidity\"]() ? 1 : 0)" js_checkValidity :: - HTMLKeygenElement -> IO Bool - --- | -checkValidity :: (MonadIO m) => HTMLKeygenElement -> m Bool -checkValidity self = liftIO (js_checkValidity (self)) - -foreign import javascript unsafe "$1[\"setCustomValidity\"]($2)" - js_setCustomValidity :: - HTMLKeygenElement -> Nullable JSString -> IO () - --- | -setCustomValidity :: - (MonadIO m, ToJSString error) => - HTMLKeygenElement -> Maybe error -> m () -setCustomValidity self error - = liftIO (js_setCustomValidity (self) (toMaybeJSString error)) - -foreign import javascript unsafe "$1[\"autofocus\"] = $2;" - js_setAutofocus :: HTMLKeygenElement -> Bool -> IO () - --- | -setAutofocus :: (MonadIO m) => HTMLKeygenElement -> Bool -> m () -setAutofocus self val = liftIO (js_setAutofocus (self) val) - -foreign import javascript unsafe "($1[\"autofocus\"] ? 1 : 0)" - js_getAutofocus :: HTMLKeygenElement -> IO Bool - --- | -getAutofocus :: (MonadIO m) => HTMLKeygenElement -> m Bool -getAutofocus self = liftIO (js_getAutofocus (self)) - -foreign import javascript unsafe "$1[\"challenge\"] = $2;" - js_setChallenge :: HTMLKeygenElement -> JSString -> IO () - --- | -setChallenge :: - (MonadIO m, ToJSString val) => HTMLKeygenElement -> val -> m () -setChallenge self val - = liftIO (js_setChallenge (self) (toJSString val)) - -foreign import javascript unsafe "$1[\"challenge\"]" - js_getChallenge :: HTMLKeygenElement -> IO JSString - --- | -getChallenge :: - (MonadIO m, FromJSString result) => HTMLKeygenElement -> m result -getChallenge self - = liftIO (fromJSString <$> (js_getChallenge (self))) - -foreign import javascript unsafe "$1[\"disabled\"] = $2;" - js_setDisabled :: HTMLKeygenElement -> Bool -> IO () - --- | -setDisabled :: (MonadIO m) => HTMLKeygenElement -> Bool -> m () -setDisabled self val = liftIO (js_setDisabled (self) val) - -foreign import javascript unsafe "($1[\"disabled\"] ? 1 : 0)" - js_getDisabled :: HTMLKeygenElement -> IO Bool - --- | -getDisabled :: (MonadIO m) => HTMLKeygenElement -> m Bool -getDisabled self = liftIO (js_getDisabled (self)) - -foreign import javascript unsafe "$1[\"form\"]" js_getForm :: - HTMLKeygenElement -> IO (Nullable HTMLFormElement) - --- | -getForm :: - (MonadIO m) => HTMLKeygenElement -> m (Maybe HTMLFormElement) -getForm self = liftIO (nullableToMaybe <$> (js_getForm (self))) - -foreign import javascript unsafe "$1[\"keytype\"] = $2;" - js_setKeytype :: HTMLKeygenElement -> JSString -> IO () - --- | -setKeytype :: - (MonadIO m, ToJSString val) => HTMLKeygenElement -> val -> m () -setKeytype self val - = liftIO (js_setKeytype (self) (toJSString val)) - -foreign import javascript unsafe "$1[\"keytype\"]" js_getKeytype :: - HTMLKeygenElement -> IO JSString - --- | -getKeytype :: - (MonadIO m, FromJSString result) => HTMLKeygenElement -> m result -getKeytype self = liftIO (fromJSString <$> (js_getKeytype (self))) - -foreign import javascript unsafe "$1[\"name\"] = $2;" js_setName :: - HTMLKeygenElement -> JSString -> IO () - --- | -setName :: - (MonadIO m, ToJSString val) => HTMLKeygenElement -> val -> m () -setName self val = liftIO (js_setName (self) (toJSString val)) - -foreign import javascript unsafe "$1[\"name\"]" js_getName :: - HTMLKeygenElement -> IO JSString - --- | -getName :: - (MonadIO m, FromJSString result) => HTMLKeygenElement -> m result -getName self = liftIO (fromJSString <$> (js_getName (self))) - -foreign import javascript unsafe "$1[\"type\"]" js_getType :: - HTMLKeygenElement -> IO JSString - --- | -getType :: - (MonadIO m, FromJSString result) => HTMLKeygenElement -> m result -getType self = liftIO (fromJSString <$> (js_getType (self))) - -foreign import javascript unsafe "($1[\"willValidate\"] ? 1 : 0)" - js_getWillValidate :: HTMLKeygenElement -> IO Bool - --- | -getWillValidate :: (MonadIO m) => HTMLKeygenElement -> m Bool -getWillValidate self = liftIO (js_getWillValidate (self)) - -foreign import javascript unsafe "$1[\"validity\"]" js_getValidity - :: HTMLKeygenElement -> IO (Nullable ValidityState) - --- | -getValidity :: - (MonadIO m) => HTMLKeygenElement -> m (Maybe ValidityState) -getValidity self - = liftIO (nullableToMaybe <$> (js_getValidity (self))) - -foreign import javascript unsafe "$1[\"validationMessage\"]" - js_getValidationMessage :: HTMLKeygenElement -> IO JSString - --- | -getValidationMessage :: - (MonadIO m, FromJSString result) => HTMLKeygenElement -> m result -getValidationMessage self - = liftIO (fromJSString <$> (js_getValidationMessage (self))) - -foreign import javascript unsafe "$1[\"labels\"]" js_getLabels :: - HTMLKeygenElement -> IO (Nullable NodeList) - --- | -getLabels :: (MonadIO m) => HTMLKeygenElement -> m (Maybe NodeList) -getLabels self = liftIO (nullableToMaybe <$> (js_getLabels (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/HTMLLIElement.hs b/src/GHCJS/DOM/JSFFI/Generated/HTMLLIElement.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/HTMLLIElement.hs +++ /dev/null @@ -1,50 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.HTMLLIElement - (js_setType, setType, js_getType, getType, js_setValue, setValue, - js_getValue, getValue, HTMLLIElement, castToHTMLLIElement, - gTypeHTMLLIElement) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"type\"] = $2;" js_setType :: - HTMLLIElement -> JSString -> IO () - --- | -setType :: - (MonadIO m, ToJSString val) => HTMLLIElement -> val -> m () -setType self val = liftIO (js_setType (self) (toJSString val)) - -foreign import javascript unsafe "$1[\"type\"]" js_getType :: - HTMLLIElement -> IO JSString - --- | -getType :: - (MonadIO m, FromJSString result) => HTMLLIElement -> m result -getType self = liftIO (fromJSString <$> (js_getType (self))) - -foreign import javascript unsafe "$1[\"value\"] = $2;" js_setValue - :: HTMLLIElement -> Int -> IO () - --- | -setValue :: (MonadIO m) => HTMLLIElement -> Int -> m () -setValue self val = liftIO (js_setValue (self) val) - -foreign import javascript unsafe "$1[\"value\"]" js_getValue :: - HTMLLIElement -> IO Int - --- | -getValue :: (MonadIO m) => HTMLLIElement -> m Int -getValue self = liftIO (js_getValue (self)) diff --git a/src/GHCJS/DOM/JSFFI/Generated/HTMLLabelElement.hs b/src/GHCJS/DOM/JSFFI/Generated/HTMLLabelElement.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/HTMLLabelElement.hs +++ /dev/null @@ -1,54 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.HTMLLabelElement - (js_getForm, getForm, js_setHtmlFor, setHtmlFor, js_getHtmlFor, - getHtmlFor, js_getControl, getControl, HTMLLabelElement, - castToHTMLLabelElement, gTypeHTMLLabelElement) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"form\"]" js_getForm :: - HTMLLabelElement -> IO (Nullable HTMLFormElement) - --- | -getForm :: - (MonadIO m) => HTMLLabelElement -> m (Maybe HTMLFormElement) -getForm self = liftIO (nullableToMaybe <$> (js_getForm (self))) - -foreign import javascript unsafe "$1[\"htmlFor\"] = $2;" - js_setHtmlFor :: HTMLLabelElement -> JSString -> IO () - --- | -setHtmlFor :: - (MonadIO m, ToJSString val) => HTMLLabelElement -> val -> m () -setHtmlFor self val - = liftIO (js_setHtmlFor (self) (toJSString val)) - -foreign import javascript unsafe "$1[\"htmlFor\"]" js_getHtmlFor :: - HTMLLabelElement -> IO JSString - --- | -getHtmlFor :: - (MonadIO m, FromJSString result) => HTMLLabelElement -> m result -getHtmlFor self = liftIO (fromJSString <$> (js_getHtmlFor (self))) - -foreign import javascript unsafe "$1[\"control\"]" js_getControl :: - HTMLLabelElement -> IO (Nullable HTMLElement) - --- | -getControl :: - (MonadIO m) => HTMLLabelElement -> m (Maybe HTMLElement) -getControl self - = liftIO (nullableToMaybe <$> (js_getControl (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/HTMLLegendElement.hs b/src/GHCJS/DOM/JSFFI/Generated/HTMLLegendElement.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/HTMLLegendElement.hs +++ /dev/null @@ -1,43 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.HTMLLegendElement - (js_getForm, getForm, js_setAlign, setAlign, js_getAlign, getAlign, - HTMLLegendElement, castToHTMLLegendElement, gTypeHTMLLegendElement) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"form\"]" js_getForm :: - HTMLLegendElement -> IO (Nullable HTMLFormElement) - --- | -getForm :: - (MonadIO m) => HTMLLegendElement -> m (Maybe HTMLFormElement) -getForm self = liftIO (nullableToMaybe <$> (js_getForm (self))) - -foreign import javascript unsafe "$1[\"align\"] = $2;" js_setAlign - :: HTMLLegendElement -> JSString -> IO () - --- | -setAlign :: - (MonadIO m, ToJSString val) => HTMLLegendElement -> val -> m () -setAlign self val = liftIO (js_setAlign (self) (toJSString val)) - -foreign import javascript unsafe "$1[\"align\"]" js_getAlign :: - HTMLLegendElement -> IO JSString - --- | -getAlign :: - (MonadIO m, FromJSString result) => HTMLLegendElement -> m result -getAlign self = liftIO (fromJSString <$> (js_getAlign (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/HTMLLinkElement.hs b/src/GHCJS/DOM/JSFFI/Generated/HTMLLinkElement.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/HTMLLinkElement.hs +++ /dev/null @@ -1,206 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.HTMLLinkElement - (js_setDisabled, setDisabled, js_getDisabled, getDisabled, - js_setCharset, setCharset, js_getCharset, getCharset, js_setHref, - setHref, js_getHref, getHref, js_setHreflang, setHreflang, - js_getHreflang, getHreflang, js_setMedia, setMedia, js_getMedia, - getMedia, js_setRel, setRel, js_getRel, getRel, js_setRev, setRev, - js_getRev, getRev, js_setSizes, setSizes, js_getSizes, getSizes, - js_setTarget, setTarget, js_getTarget, getTarget, js_setType, - setType, js_getType, getType, js_getSheet, getSheet, js_getRelList, - getRelList, HTMLLinkElement, castToHTMLLinkElement, - gTypeHTMLLinkElement) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"disabled\"] = $2;" - js_setDisabled :: HTMLLinkElement -> Bool -> IO () - --- | -setDisabled :: (MonadIO m) => HTMLLinkElement -> Bool -> m () -setDisabled self val = liftIO (js_setDisabled (self) val) - -foreign import javascript unsafe "($1[\"disabled\"] ? 1 : 0)" - js_getDisabled :: HTMLLinkElement -> IO Bool - --- | -getDisabled :: (MonadIO m) => HTMLLinkElement -> m Bool -getDisabled self = liftIO (js_getDisabled (self)) - -foreign import javascript unsafe "$1[\"charset\"] = $2;" - js_setCharset :: HTMLLinkElement -> JSString -> IO () - --- | -setCharset :: - (MonadIO m, ToJSString val) => HTMLLinkElement -> val -> m () -setCharset self val - = liftIO (js_setCharset (self) (toJSString val)) - -foreign import javascript unsafe "$1[\"charset\"]" js_getCharset :: - HTMLLinkElement -> IO JSString - --- | -getCharset :: - (MonadIO m, FromJSString result) => HTMLLinkElement -> m result -getCharset self = liftIO (fromJSString <$> (js_getCharset (self))) - -foreign import javascript unsafe "$1[\"href\"] = $2;" js_setHref :: - HTMLLinkElement -> JSString -> IO () - --- | -setHref :: - (MonadIO m, ToJSString val) => HTMLLinkElement -> val -> m () -setHref self val = liftIO (js_setHref (self) (toJSString val)) - -foreign import javascript unsafe "$1[\"href\"]" js_getHref :: - HTMLLinkElement -> IO JSString - --- | -getHref :: - (MonadIO m, FromJSString result) => HTMLLinkElement -> m result -getHref self = liftIO (fromJSString <$> (js_getHref (self))) - -foreign import javascript unsafe "$1[\"hreflang\"] = $2;" - js_setHreflang :: HTMLLinkElement -> JSString -> IO () - --- | -setHreflang :: - (MonadIO m, ToJSString val) => HTMLLinkElement -> val -> m () -setHreflang self val - = liftIO (js_setHreflang (self) (toJSString val)) - -foreign import javascript unsafe "$1[\"hreflang\"]" js_getHreflang - :: HTMLLinkElement -> IO JSString - --- | -getHreflang :: - (MonadIO m, FromJSString result) => HTMLLinkElement -> m result -getHreflang self - = liftIO (fromJSString <$> (js_getHreflang (self))) - -foreign import javascript unsafe "$1[\"media\"] = $2;" js_setMedia - :: HTMLLinkElement -> JSString -> IO () - --- | -setMedia :: - (MonadIO m, ToJSString val) => HTMLLinkElement -> val -> m () -setMedia self val = liftIO (js_setMedia (self) (toJSString val)) - -foreign import javascript unsafe "$1[\"media\"]" js_getMedia :: - HTMLLinkElement -> IO JSString - --- | -getMedia :: - (MonadIO m, FromJSString result) => HTMLLinkElement -> m result -getMedia self = liftIO (fromJSString <$> (js_getMedia (self))) - -foreign import javascript unsafe "$1[\"rel\"] = $2;" js_setRel :: - HTMLLinkElement -> JSString -> IO () - --- | -setRel :: - (MonadIO m, ToJSString val) => HTMLLinkElement -> val -> m () -setRel self val = liftIO (js_setRel (self) (toJSString val)) - -foreign import javascript unsafe "$1[\"rel\"]" js_getRel :: - HTMLLinkElement -> IO JSString - --- | -getRel :: - (MonadIO m, FromJSString result) => HTMLLinkElement -> m result -getRel self = liftIO (fromJSString <$> (js_getRel (self))) - -foreign import javascript unsafe "$1[\"rev\"] = $2;" js_setRev :: - HTMLLinkElement -> JSString -> IO () - --- | -setRev :: - (MonadIO m, ToJSString val) => HTMLLinkElement -> val -> m () -setRev self val = liftIO (js_setRev (self) (toJSString val)) - -foreign import javascript unsafe "$1[\"rev\"]" js_getRev :: - HTMLLinkElement -> IO JSString - --- | -getRev :: - (MonadIO m, FromJSString result) => HTMLLinkElement -> m result -getRev self = liftIO (fromJSString <$> (js_getRev (self))) - -foreign import javascript unsafe "$1[\"sizes\"] = $2;" js_setSizes - :: HTMLLinkElement -> Nullable DOMSettableTokenList -> IO () - --- | -setSizes :: - (MonadIO m) => - HTMLLinkElement -> Maybe DOMSettableTokenList -> m () -setSizes self val - = liftIO (js_setSizes (self) (maybeToNullable val)) - -foreign import javascript unsafe "$1[\"sizes\"]" js_getSizes :: - HTMLLinkElement -> IO (Nullable DOMSettableTokenList) - --- | -getSizes :: - (MonadIO m) => HTMLLinkElement -> m (Maybe DOMSettableTokenList) -getSizes self = liftIO (nullableToMaybe <$> (js_getSizes (self))) - -foreign import javascript unsafe "$1[\"target\"] = $2;" - js_setTarget :: HTMLLinkElement -> JSString -> IO () - --- | -setTarget :: - (MonadIO m, ToJSString val) => HTMLLinkElement -> val -> m () -setTarget self val = liftIO (js_setTarget (self) (toJSString val)) - -foreign import javascript unsafe "$1[\"target\"]" js_getTarget :: - HTMLLinkElement -> IO JSString - --- | -getTarget :: - (MonadIO m, FromJSString result) => HTMLLinkElement -> m result -getTarget self = liftIO (fromJSString <$> (js_getTarget (self))) - -foreign import javascript unsafe "$1[\"type\"] = $2;" js_setType :: - HTMLLinkElement -> JSString -> IO () - --- | -setType :: - (MonadIO m, ToJSString val) => HTMLLinkElement -> val -> m () -setType self val = liftIO (js_setType (self) (toJSString val)) - -foreign import javascript unsafe "$1[\"type\"]" js_getType :: - HTMLLinkElement -> IO JSString - --- | -getType :: - (MonadIO m, FromJSString result) => HTMLLinkElement -> m result -getType self = liftIO (fromJSString <$> (js_getType (self))) - -foreign import javascript unsafe "$1[\"sheet\"]" js_getSheet :: - HTMLLinkElement -> IO (Nullable StyleSheet) - --- | -getSheet :: (MonadIO m) => HTMLLinkElement -> m (Maybe StyleSheet) -getSheet self = liftIO (nullableToMaybe <$> (js_getSheet (self))) - -foreign import javascript unsafe "$1[\"relList\"]" js_getRelList :: - HTMLLinkElement -> IO (Nullable DOMTokenList) - --- | -getRelList :: - (MonadIO m) => HTMLLinkElement -> m (Maybe DOMTokenList) -getRelList self - = liftIO (nullableToMaybe <$> (js_getRelList (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/HTMLMapElement.hs b/src/GHCJS/DOM/JSFFI/Generated/HTMLMapElement.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/HTMLMapElement.hs +++ /dev/null @@ -1,43 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.HTMLMapElement - (js_getAreas, getAreas, js_setName, setName, js_getName, getName, - HTMLMapElement, castToHTMLMapElement, gTypeHTMLMapElement) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"areas\"]" js_getAreas :: - HTMLMapElement -> IO (Nullable HTMLCollection) - --- | -getAreas :: - (MonadIO m) => HTMLMapElement -> m (Maybe HTMLCollection) -getAreas self = liftIO (nullableToMaybe <$> (js_getAreas (self))) - -foreign import javascript unsafe "$1[\"name\"] = $2;" js_setName :: - HTMLMapElement -> JSString -> IO () - --- | -setName :: - (MonadIO m, ToJSString val) => HTMLMapElement -> val -> m () -setName self val = liftIO (js_setName (self) (toJSString val)) - -foreign import javascript unsafe "$1[\"name\"]" js_getName :: - HTMLMapElement -> IO JSString - --- | -getName :: - (MonadIO m, FromJSString result) => HTMLMapElement -> m result -getName self = liftIO (fromJSString <$> (js_getName (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/HTMLMarqueeElement.hs b/src/GHCJS/DOM/JSFFI/Generated/HTMLMarqueeElement.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/HTMLMarqueeElement.hs +++ /dev/null @@ -1,213 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.HTMLMarqueeElement - (js_start, start, js_stop, stop, js_setBehavior, setBehavior, - js_getBehavior, getBehavior, js_setBgColor, setBgColor, - js_getBgColor, getBgColor, js_setDirection, setDirection, - js_getDirection, getDirection, js_setHeight, setHeight, - js_getHeight, getHeight, js_setHspace, setHspace, js_getHspace, - getHspace, js_setLoop, setLoop, js_getLoop, getLoop, - js_setScrollAmount, setScrollAmount, js_getScrollAmount, - getScrollAmount, js_setScrollDelay, setScrollDelay, - js_getScrollDelay, getScrollDelay, js_setTrueSpeed, setTrueSpeed, - js_getTrueSpeed, getTrueSpeed, js_setVspace, setVspace, - js_getVspace, getVspace, js_setWidth, setWidth, js_getWidth, - getWidth, HTMLMarqueeElement, castToHTMLMarqueeElement, - gTypeHTMLMarqueeElement) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"start\"]()" js_start :: - HTMLMarqueeElement -> IO () - --- | -start :: (MonadIO m) => HTMLMarqueeElement -> m () -start self = liftIO (js_start (self)) - -foreign import javascript unsafe "$1[\"stop\"]()" js_stop :: - HTMLMarqueeElement -> IO () - --- | -stop :: (MonadIO m) => HTMLMarqueeElement -> m () -stop self = liftIO (js_stop (self)) - -foreign import javascript unsafe "$1[\"behavior\"] = $2;" - js_setBehavior :: HTMLMarqueeElement -> JSString -> IO () - --- | -setBehavior :: - (MonadIO m, ToJSString val) => HTMLMarqueeElement -> val -> m () -setBehavior self val - = liftIO (js_setBehavior (self) (toJSString val)) - -foreign import javascript unsafe "$1[\"behavior\"]" js_getBehavior - :: HTMLMarqueeElement -> IO JSString - --- | -getBehavior :: - (MonadIO m, FromJSString result) => HTMLMarqueeElement -> m result -getBehavior self - = liftIO (fromJSString <$> (js_getBehavior (self))) - -foreign import javascript unsafe "$1[\"bgColor\"] = $2;" - js_setBgColor :: HTMLMarqueeElement -> JSString -> IO () - --- | -setBgColor :: - (MonadIO m, ToJSString val) => HTMLMarqueeElement -> val -> m () -setBgColor self val - = liftIO (js_setBgColor (self) (toJSString val)) - -foreign import javascript unsafe "$1[\"bgColor\"]" js_getBgColor :: - HTMLMarqueeElement -> IO JSString - --- | -getBgColor :: - (MonadIO m, FromJSString result) => HTMLMarqueeElement -> m result -getBgColor self = liftIO (fromJSString <$> (js_getBgColor (self))) - -foreign import javascript unsafe "$1[\"direction\"] = $2;" - js_setDirection :: HTMLMarqueeElement -> JSString -> IO () - --- | -setDirection :: - (MonadIO m, ToJSString val) => HTMLMarqueeElement -> val -> m () -setDirection self val - = liftIO (js_setDirection (self) (toJSString val)) - -foreign import javascript unsafe "$1[\"direction\"]" - js_getDirection :: HTMLMarqueeElement -> IO JSString - --- | -getDirection :: - (MonadIO m, FromJSString result) => HTMLMarqueeElement -> m result -getDirection self - = liftIO (fromJSString <$> (js_getDirection (self))) - -foreign import javascript unsafe "$1[\"height\"] = $2;" - js_setHeight :: HTMLMarqueeElement -> JSString -> IO () - --- | -setHeight :: - (MonadIO m, ToJSString val) => HTMLMarqueeElement -> val -> m () -setHeight self val = liftIO (js_setHeight (self) (toJSString val)) - -foreign import javascript unsafe "$1[\"height\"]" js_getHeight :: - HTMLMarqueeElement -> IO JSString - --- | -getHeight :: - (MonadIO m, FromJSString result) => HTMLMarqueeElement -> m result -getHeight self = liftIO (fromJSString <$> (js_getHeight (self))) - -foreign import javascript unsafe "$1[\"hspace\"] = $2;" - js_setHspace :: HTMLMarqueeElement -> Word -> IO () - --- | -setHspace :: (MonadIO m) => HTMLMarqueeElement -> Word -> m () -setHspace self val = liftIO (js_setHspace (self) val) - -foreign import javascript unsafe "$1[\"hspace\"]" js_getHspace :: - HTMLMarqueeElement -> IO Word - --- | -getHspace :: (MonadIO m) => HTMLMarqueeElement -> m Word -getHspace self = liftIO (js_getHspace (self)) - -foreign import javascript unsafe "$1[\"loop\"] = $2;" js_setLoop :: - HTMLMarqueeElement -> Int -> IO () - --- | -setLoop :: (MonadIO m) => HTMLMarqueeElement -> Int -> m () -setLoop self val = liftIO (js_setLoop (self) val) - -foreign import javascript unsafe "$1[\"loop\"]" js_getLoop :: - HTMLMarqueeElement -> IO Int - --- | -getLoop :: (MonadIO m) => HTMLMarqueeElement -> m Int -getLoop self = liftIO (js_getLoop (self)) - -foreign import javascript unsafe "$1[\"scrollAmount\"] = $2;" - js_setScrollAmount :: HTMLMarqueeElement -> Int -> IO () - --- | -setScrollAmount :: (MonadIO m) => HTMLMarqueeElement -> Int -> m () -setScrollAmount self val = liftIO (js_setScrollAmount (self) val) - -foreign import javascript unsafe "$1[\"scrollAmount\"]" - js_getScrollAmount :: HTMLMarqueeElement -> IO Int - --- | -getScrollAmount :: (MonadIO m) => HTMLMarqueeElement -> m Int -getScrollAmount self = liftIO (js_getScrollAmount (self)) - -foreign import javascript unsafe "$1[\"scrollDelay\"] = $2;" - js_setScrollDelay :: HTMLMarqueeElement -> Int -> IO () - --- | -setScrollDelay :: (MonadIO m) => HTMLMarqueeElement -> Int -> m () -setScrollDelay self val = liftIO (js_setScrollDelay (self) val) - -foreign import javascript unsafe "$1[\"scrollDelay\"]" - js_getScrollDelay :: HTMLMarqueeElement -> IO Int - --- | -getScrollDelay :: (MonadIO m) => HTMLMarqueeElement -> m Int -getScrollDelay self = liftIO (js_getScrollDelay (self)) - -foreign import javascript unsafe "$1[\"trueSpeed\"] = $2;" - js_setTrueSpeed :: HTMLMarqueeElement -> Bool -> IO () - --- | -setTrueSpeed :: (MonadIO m) => HTMLMarqueeElement -> Bool -> m () -setTrueSpeed self val = liftIO (js_setTrueSpeed (self) val) - -foreign import javascript unsafe "($1[\"trueSpeed\"] ? 1 : 0)" - js_getTrueSpeed :: HTMLMarqueeElement -> IO Bool - --- | -getTrueSpeed :: (MonadIO m) => HTMLMarqueeElement -> m Bool -getTrueSpeed self = liftIO (js_getTrueSpeed (self)) - -foreign import javascript unsafe "$1[\"vspace\"] = $2;" - js_setVspace :: HTMLMarqueeElement -> Word -> IO () - --- | -setVspace :: (MonadIO m) => HTMLMarqueeElement -> Word -> m () -setVspace self val = liftIO (js_setVspace (self) val) - -foreign import javascript unsafe "$1[\"vspace\"]" js_getVspace :: - HTMLMarqueeElement -> IO Word - --- | -getVspace :: (MonadIO m) => HTMLMarqueeElement -> m Word -getVspace self = liftIO (js_getVspace (self)) - -foreign import javascript unsafe "$1[\"width\"] = $2;" js_setWidth - :: HTMLMarqueeElement -> JSString -> IO () - --- | -setWidth :: - (MonadIO m, ToJSString val) => HTMLMarqueeElement -> val -> m () -setWidth self val = liftIO (js_setWidth (self) (toJSString val)) - -foreign import javascript unsafe "$1[\"width\"]" js_getWidth :: - HTMLMarqueeElement -> IO JSString - --- | -getWidth :: - (MonadIO m, FromJSString result) => HTMLMarqueeElement -> m result -getWidth self = liftIO (fromJSString <$> (js_getWidth (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/HTMLMediaElement.hs b/src/GHCJS/DOM/JSFFI/Generated/HTMLMediaElement.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/HTMLMediaElement.hs +++ /dev/null @@ -1,858 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.HTMLMediaElement - (js_load, load, js_canPlayType, canPlayType, js_play, play, - js_pause, pause, js_fastSeek, fastSeek, - js_webkitGenerateKeyRequest, webkitGenerateKeyRequest, - js_webkitAddKey, webkitAddKey, js_webkitCancelKeyRequest, - webkitCancelKeyRequest, js_webkitSetMediaKeys, webkitSetMediaKeys, - js_addTextTrack, addTextTrack, js_getVideoPlaybackQuality, - getVideoPlaybackQuality, js_webkitShowPlaybackTargetPicker, - webkitShowPlaybackTargetPicker, pattern NETWORK_EMPTY, - pattern NETWORK_IDLE, pattern NETWORK_LOADING, - pattern NETWORK_NO_SOURCE, pattern HAVE_NOTHING, - pattern HAVE_METADATA, pattern HAVE_CURRENT_DATA, - pattern HAVE_FUTURE_DATA, pattern HAVE_ENOUGH_DATA, js_getError, - getError, js_setSrc, setSrc, js_getSrc, getSrc, js_getCurrentSrc, - getCurrentSrc, js_getNetworkState, getNetworkState, js_setPreload, - setPreload, js_getPreload, getPreload, js_getBuffered, getBuffered, - js_getReadyState, getReadyState, js_getSeeking, getSeeking, - js_setCurrentTime, setCurrentTime, js_getCurrentTime, - getCurrentTime, js_getDuration, getDuration, js_getPaused, - getPaused, js_setDefaultPlaybackRate, setDefaultPlaybackRate, - js_getDefaultPlaybackRate, getDefaultPlaybackRate, - js_setPlaybackRate, setPlaybackRate, js_getPlaybackRate, - getPlaybackRate, js_getPlayed, getPlayed, js_getSeekable, - getSeekable, js_getEnded, getEnded, js_setAutoplay, setAutoplay, - js_getAutoplay, getAutoplay, js_setLoop, setLoop, js_getLoop, - getLoop, js_setControls, setControls, js_getControls, getControls, - js_setVolume, setVolume, js_getVolume, getVolume, js_setMuted, - setMuted, js_getMuted, getMuted, js_setDefaultMuted, - setDefaultMuted, js_getDefaultMuted, getDefaultMuted, emptied, - loadedMetadata, loadedData, canPlay, canPlayThrough, playing, - ended, waiting, durationChange, timeUpdate, playEvent, pauseEvent, - rateChange, volumeChange, js_setWebkitPreservesPitch, - setWebkitPreservesPitch, js_getWebkitPreservesPitch, - getWebkitPreservesPitch, js_getWebkitHasClosedCaptions, - getWebkitHasClosedCaptions, js_setWebkitClosedCaptionsVisible, - setWebkitClosedCaptionsVisible, js_getWebkitClosedCaptionsVisible, - getWebkitClosedCaptionsVisible, js_getWebkitAudioDecodedByteCount, - getWebkitAudioDecodedByteCount, js_getWebkitVideoDecodedByteCount, - getWebkitVideoDecodedByteCount, webKitKeyAdded, webKitKeyError, - webKitKeyMessage, webKitNeedKey, js_getWebkitKeys, getWebkitKeys, - js_getAudioTracks, getAudioTracks, js_getTextTracks, getTextTracks, - js_getVideoTracks, getVideoTracks, js_setMediaGroup, setMediaGroup, - js_getMediaGroup, getMediaGroup, js_setController, setController, - js_getController, getController, - js_getWebkitCurrentPlaybackTargetIsWireless, - getWebkitCurrentPlaybackTargetIsWireless, - webKitCurrentPlaybackTargetIsWirelessChanged, - webKitPlaybackTargetAvailabilityChanged, js_setSrcObject, - setSrcObject, js_getSrcObject, getSrcObject, HTMLMediaElement, - castToHTMLMediaElement, gTypeHTMLMediaElement, IsHTMLMediaElement, - toHTMLMediaElement) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"load\"]()" js_load :: - HTMLMediaElement -> IO () - --- | -load :: (MonadIO m, IsHTMLMediaElement self) => self -> m () -load self = liftIO (js_load (toHTMLMediaElement self)) - -foreign import javascript unsafe "$1[\"canPlayType\"]($2, $3)" - js_canPlayType :: - HTMLMediaElement -> JSString -> Nullable JSString -> IO JSString - --- | -canPlayType :: - (MonadIO m, IsHTMLMediaElement self, ToJSString type', - ToJSString keySystem, FromJSString result) => - self -> type' -> Maybe keySystem -> m result -canPlayType self type' keySystem - = liftIO - (fromJSString <$> - (js_canPlayType (toHTMLMediaElement self) (toJSString type') - (toMaybeJSString keySystem))) - -foreign import javascript unsafe "$1[\"play\"]()" js_play :: - HTMLMediaElement -> IO () - --- | -play :: (MonadIO m, IsHTMLMediaElement self) => self -> m () -play self = liftIO (js_play (toHTMLMediaElement self)) - -foreign import javascript unsafe "$1[\"pause\"]()" js_pause :: - HTMLMediaElement -> IO () - --- | -pause :: (MonadIO m, IsHTMLMediaElement self) => self -> m () -pause self = liftIO (js_pause (toHTMLMediaElement self)) - -foreign import javascript unsafe "$1[\"fastSeek\"]($2)" js_fastSeek - :: HTMLMediaElement -> Double -> IO () - --- | -fastSeek :: - (MonadIO m, IsHTMLMediaElement self) => self -> Double -> m () -fastSeek self time - = liftIO (js_fastSeek (toHTMLMediaElement self) time) - -foreign import javascript unsafe - "$1[\"webkitGenerateKeyRequest\"]($2,\n$3)" - js_webkitGenerateKeyRequest :: - HTMLMediaElement -> - Nullable JSString -> Nullable Uint8Array -> IO () - --- | -webkitGenerateKeyRequest :: - (MonadIO m, IsHTMLMediaElement self, ToJSString keySystem, - IsUint8Array initData) => - self -> Maybe keySystem -> Maybe initData -> m () -webkitGenerateKeyRequest self keySystem initData - = liftIO - (js_webkitGenerateKeyRequest (toHTMLMediaElement self) - (toMaybeJSString keySystem) - (maybeToNullable (fmap toUint8Array initData))) - -foreign import javascript unsafe - "$1[\"webkitAddKey\"]($2, $3, $4,\n$5)" js_webkitAddKey :: - HTMLMediaElement -> - Nullable JSString -> - Nullable Uint8Array -> Nullable Uint8Array -> JSString -> IO () - --- | -webkitAddKey :: - (MonadIO m, IsHTMLMediaElement self, ToJSString keySystem, - IsUint8Array key, IsUint8Array initData, ToJSString sessionId) => - self -> - Maybe keySystem -> Maybe key -> Maybe initData -> sessionId -> m () -webkitAddKey self keySystem key initData sessionId - = liftIO - (js_webkitAddKey (toHTMLMediaElement self) - (toMaybeJSString keySystem) - (maybeToNullable (fmap toUint8Array key)) - (maybeToNullable (fmap toUint8Array initData)) - (toJSString sessionId)) - -foreign import javascript unsafe - "$1[\"webkitCancelKeyRequest\"]($2,\n$3)" js_webkitCancelKeyRequest - :: HTMLMediaElement -> Nullable JSString -> JSString -> IO () - --- | -webkitCancelKeyRequest :: - (MonadIO m, IsHTMLMediaElement self, ToJSString keySystem, - ToJSString sessionId) => - self -> Maybe keySystem -> sessionId -> m () -webkitCancelKeyRequest self keySystem sessionId - = liftIO - (js_webkitCancelKeyRequest (toHTMLMediaElement self) - (toMaybeJSString keySystem) - (toJSString sessionId)) - -foreign import javascript unsafe "$1[\"webkitSetMediaKeys\"]($2)" - js_webkitSetMediaKeys :: - HTMLMediaElement -> Nullable MediaKeys -> IO () - --- | -webkitSetMediaKeys :: - (MonadIO m, IsHTMLMediaElement self) => - self -> Maybe MediaKeys -> m () -webkitSetMediaKeys self mediaKeys - = liftIO - (js_webkitSetMediaKeys (toHTMLMediaElement self) - (maybeToNullable mediaKeys)) - -foreign import javascript unsafe "$1[\"addTextTrack\"]($2, $3, $4)" - js_addTextTrack :: - HTMLMediaElement -> - JSString -> JSString -> JSString -> IO (Nullable TextTrack) - --- | -addTextTrack :: - (MonadIO m, IsHTMLMediaElement self, ToJSString kind, - ToJSString label, ToJSString language) => - self -> kind -> label -> language -> m (Maybe TextTrack) -addTextTrack self kind label language - = liftIO - (nullableToMaybe <$> - (js_addTextTrack (toHTMLMediaElement self) (toJSString kind) - (toJSString label) - (toJSString language))) - -foreign import javascript unsafe - "$1[\"getVideoPlaybackQuality\"]()" js_getVideoPlaybackQuality :: - HTMLMediaElement -> IO (Nullable VideoPlaybackQuality) - --- | -getVideoPlaybackQuality :: - (MonadIO m, IsHTMLMediaElement self) => - self -> m (Maybe VideoPlaybackQuality) -getVideoPlaybackQuality self - = liftIO - (nullableToMaybe <$> - (js_getVideoPlaybackQuality (toHTMLMediaElement self))) - -foreign import javascript unsafe - "$1[\"webkitShowPlaybackTargetPicker\"]()" - js_webkitShowPlaybackTargetPicker :: HTMLMediaElement -> IO () - --- | -webkitShowPlaybackTargetPicker :: - (MonadIO m, IsHTMLMediaElement self) => self -> m () -webkitShowPlaybackTargetPicker self - = liftIO - (js_webkitShowPlaybackTargetPicker (toHTMLMediaElement self)) -pattern NETWORK_EMPTY = 0 -pattern NETWORK_IDLE = 1 -pattern NETWORK_LOADING = 2 -pattern NETWORK_NO_SOURCE = 3 -pattern HAVE_NOTHING = 0 -pattern HAVE_METADATA = 1 -pattern HAVE_CURRENT_DATA = 2 -pattern HAVE_FUTURE_DATA = 3 -pattern HAVE_ENOUGH_DATA = 4 - -foreign import javascript unsafe "$1[\"error\"]" js_getError :: - HTMLMediaElement -> IO (Nullable MediaError) - --- | -getError :: - (MonadIO m, IsHTMLMediaElement self) => - self -> m (Maybe MediaError) -getError self - = liftIO - (nullableToMaybe <$> (js_getError (toHTMLMediaElement self))) - -foreign import javascript unsafe "$1[\"src\"] = $2;" js_setSrc :: - HTMLMediaElement -> JSString -> IO () - --- | -setSrc :: - (MonadIO m, IsHTMLMediaElement self, ToJSString val) => - self -> val -> m () -setSrc self val - = liftIO (js_setSrc (toHTMLMediaElement self) (toJSString val)) - -foreign import javascript unsafe "$1[\"src\"]" js_getSrc :: - HTMLMediaElement -> IO JSString - --- | -getSrc :: - (MonadIO m, IsHTMLMediaElement self, FromJSString result) => - self -> m result -getSrc self - = liftIO (fromJSString <$> (js_getSrc (toHTMLMediaElement self))) - -foreign import javascript unsafe "$1[\"currentSrc\"]" - js_getCurrentSrc :: HTMLMediaElement -> IO JSString - --- | -getCurrentSrc :: - (MonadIO m, IsHTMLMediaElement self, FromJSString result) => - self -> m result -getCurrentSrc self - = liftIO - (fromJSString <$> (js_getCurrentSrc (toHTMLMediaElement self))) - -foreign import javascript unsafe "$1[\"networkState\"]" - js_getNetworkState :: HTMLMediaElement -> IO Word - --- | -getNetworkState :: - (MonadIO m, IsHTMLMediaElement self) => self -> m Word -getNetworkState self - = liftIO (js_getNetworkState (toHTMLMediaElement self)) - -foreign import javascript unsafe "$1[\"preload\"] = $2;" - js_setPreload :: HTMLMediaElement -> JSString -> IO () - --- | -setPreload :: - (MonadIO m, IsHTMLMediaElement self, ToJSString val) => - self -> val -> m () -setPreload self val - = liftIO (js_setPreload (toHTMLMediaElement self) (toJSString val)) - -foreign import javascript unsafe "$1[\"preload\"]" js_getPreload :: - HTMLMediaElement -> IO JSString - --- | -getPreload :: - (MonadIO m, IsHTMLMediaElement self, FromJSString result) => - self -> m result -getPreload self - = liftIO - (fromJSString <$> (js_getPreload (toHTMLMediaElement self))) - -foreign import javascript unsafe "$1[\"buffered\"]" js_getBuffered - :: HTMLMediaElement -> IO (Nullable TimeRanges) - --- | -getBuffered :: - (MonadIO m, IsHTMLMediaElement self) => - self -> m (Maybe TimeRanges) -getBuffered self - = liftIO - (nullableToMaybe <$> (js_getBuffered (toHTMLMediaElement self))) - -foreign import javascript unsafe "$1[\"readyState\"]" - js_getReadyState :: HTMLMediaElement -> IO Word - --- | -getReadyState :: - (MonadIO m, IsHTMLMediaElement self) => self -> m Word -getReadyState self - = liftIO (js_getReadyState (toHTMLMediaElement self)) - -foreign import javascript unsafe "($1[\"seeking\"] ? 1 : 0)" - js_getSeeking :: HTMLMediaElement -> IO Bool - --- | -getSeeking :: - (MonadIO m, IsHTMLMediaElement self) => self -> m Bool -getSeeking self = liftIO (js_getSeeking (toHTMLMediaElement self)) - -foreign import javascript unsafe "$1[\"currentTime\"] = $2;" - js_setCurrentTime :: HTMLMediaElement -> Double -> IO () - --- | -setCurrentTime :: - (MonadIO m, IsHTMLMediaElement self) => self -> Double -> m () -setCurrentTime self val - = liftIO (js_setCurrentTime (toHTMLMediaElement self) val) - -foreign import javascript unsafe "$1[\"currentTime\"]" - js_getCurrentTime :: HTMLMediaElement -> IO Double - --- | -getCurrentTime :: - (MonadIO m, IsHTMLMediaElement self) => self -> m Double -getCurrentTime self - = liftIO (js_getCurrentTime (toHTMLMediaElement self)) - -foreign import javascript unsafe "$1[\"duration\"]" js_getDuration - :: HTMLMediaElement -> IO Double - --- | -getDuration :: - (MonadIO m, IsHTMLMediaElement self) => self -> m Double -getDuration self - = liftIO (js_getDuration (toHTMLMediaElement self)) - -foreign import javascript unsafe "($1[\"paused\"] ? 1 : 0)" - js_getPaused :: HTMLMediaElement -> IO Bool - --- | -getPaused :: (MonadIO m, IsHTMLMediaElement self) => self -> m Bool -getPaused self = liftIO (js_getPaused (toHTMLMediaElement self)) - -foreign import javascript unsafe - "$1[\"defaultPlaybackRate\"] = $2;" js_setDefaultPlaybackRate :: - HTMLMediaElement -> Double -> IO () - --- | -setDefaultPlaybackRate :: - (MonadIO m, IsHTMLMediaElement self) => self -> Double -> m () -setDefaultPlaybackRate self val - = liftIO (js_setDefaultPlaybackRate (toHTMLMediaElement self) val) - -foreign import javascript unsafe "$1[\"defaultPlaybackRate\"]" - js_getDefaultPlaybackRate :: HTMLMediaElement -> IO Double - --- | -getDefaultPlaybackRate :: - (MonadIO m, IsHTMLMediaElement self) => self -> m Double -getDefaultPlaybackRate self - = liftIO (js_getDefaultPlaybackRate (toHTMLMediaElement self)) - -foreign import javascript unsafe "$1[\"playbackRate\"] = $2;" - js_setPlaybackRate :: HTMLMediaElement -> Double -> IO () - --- | -setPlaybackRate :: - (MonadIO m, IsHTMLMediaElement self) => self -> Double -> m () -setPlaybackRate self val - = liftIO (js_setPlaybackRate (toHTMLMediaElement self) val) - -foreign import javascript unsafe "$1[\"playbackRate\"]" - js_getPlaybackRate :: HTMLMediaElement -> IO Double - --- | -getPlaybackRate :: - (MonadIO m, IsHTMLMediaElement self) => self -> m Double -getPlaybackRate self - = liftIO (js_getPlaybackRate (toHTMLMediaElement self)) - -foreign import javascript unsafe "$1[\"played\"]" js_getPlayed :: - HTMLMediaElement -> IO (Nullable TimeRanges) - --- | -getPlayed :: - (MonadIO m, IsHTMLMediaElement self) => - self -> m (Maybe TimeRanges) -getPlayed self - = liftIO - (nullableToMaybe <$> (js_getPlayed (toHTMLMediaElement self))) - -foreign import javascript unsafe "$1[\"seekable\"]" js_getSeekable - :: HTMLMediaElement -> IO (Nullable TimeRanges) - --- | -getSeekable :: - (MonadIO m, IsHTMLMediaElement self) => - self -> m (Maybe TimeRanges) -getSeekable self - = liftIO - (nullableToMaybe <$> (js_getSeekable (toHTMLMediaElement self))) - -foreign import javascript unsafe "($1[\"ended\"] ? 1 : 0)" - js_getEnded :: HTMLMediaElement -> IO Bool - --- | -getEnded :: (MonadIO m, IsHTMLMediaElement self) => self -> m Bool -getEnded self = liftIO (js_getEnded (toHTMLMediaElement self)) - -foreign import javascript unsafe "$1[\"autoplay\"] = $2;" - js_setAutoplay :: HTMLMediaElement -> Bool -> IO () - --- | -setAutoplay :: - (MonadIO m, IsHTMLMediaElement self) => self -> Bool -> m () -setAutoplay self val - = liftIO (js_setAutoplay (toHTMLMediaElement self) val) - -foreign import javascript unsafe "($1[\"autoplay\"] ? 1 : 0)" - js_getAutoplay :: HTMLMediaElement -> IO Bool - --- | -getAutoplay :: - (MonadIO m, IsHTMLMediaElement self) => self -> m Bool -getAutoplay self - = liftIO (js_getAutoplay (toHTMLMediaElement self)) - -foreign import javascript unsafe "$1[\"loop\"] = $2;" js_setLoop :: - HTMLMediaElement -> Bool -> IO () - --- | -setLoop :: - (MonadIO m, IsHTMLMediaElement self) => self -> Bool -> m () -setLoop self val - = liftIO (js_setLoop (toHTMLMediaElement self) val) - -foreign import javascript unsafe "($1[\"loop\"] ? 1 : 0)" - js_getLoop :: HTMLMediaElement -> IO Bool - --- | -getLoop :: (MonadIO m, IsHTMLMediaElement self) => self -> m Bool -getLoop self = liftIO (js_getLoop (toHTMLMediaElement self)) - -foreign import javascript unsafe "$1[\"controls\"] = $2;" - js_setControls :: HTMLMediaElement -> Bool -> IO () - --- | -setControls :: - (MonadIO m, IsHTMLMediaElement self) => self -> Bool -> m () -setControls self val - = liftIO (js_setControls (toHTMLMediaElement self) val) - -foreign import javascript unsafe "($1[\"controls\"] ? 1 : 0)" - js_getControls :: HTMLMediaElement -> IO Bool - --- | -getControls :: - (MonadIO m, IsHTMLMediaElement self) => self -> m Bool -getControls self - = liftIO (js_getControls (toHTMLMediaElement self)) - -foreign import javascript unsafe "$1[\"volume\"] = $2;" - js_setVolume :: HTMLMediaElement -> Double -> IO () - --- | -setVolume :: - (MonadIO m, IsHTMLMediaElement self) => self -> Double -> m () -setVolume self val - = liftIO (js_setVolume (toHTMLMediaElement self) val) - -foreign import javascript unsafe "$1[\"volume\"]" js_getVolume :: - HTMLMediaElement -> IO Double - --- | -getVolume :: - (MonadIO m, IsHTMLMediaElement self) => self -> m Double -getVolume self = liftIO (js_getVolume (toHTMLMediaElement self)) - -foreign import javascript unsafe "$1[\"muted\"] = $2;" js_setMuted - :: HTMLMediaElement -> Bool -> IO () - --- | -setMuted :: - (MonadIO m, IsHTMLMediaElement self) => self -> Bool -> m () -setMuted self val - = liftIO (js_setMuted (toHTMLMediaElement self) val) - -foreign import javascript unsafe "($1[\"muted\"] ? 1 : 0)" - js_getMuted :: HTMLMediaElement -> IO Bool - --- | -getMuted :: (MonadIO m, IsHTMLMediaElement self) => self -> m Bool -getMuted self = liftIO (js_getMuted (toHTMLMediaElement self)) - -foreign import javascript unsafe "$1[\"defaultMuted\"] = $2;" - js_setDefaultMuted :: HTMLMediaElement -> Bool -> IO () - --- | -setDefaultMuted :: - (MonadIO m, IsHTMLMediaElement self) => self -> Bool -> m () -setDefaultMuted self val - = liftIO (js_setDefaultMuted (toHTMLMediaElement self) val) - -foreign import javascript unsafe "($1[\"defaultMuted\"] ? 1 : 0)" - js_getDefaultMuted :: HTMLMediaElement -> IO Bool - --- | -getDefaultMuted :: - (MonadIO m, IsHTMLMediaElement self) => self -> m Bool -getDefaultMuted self - = liftIO (js_getDefaultMuted (toHTMLMediaElement self)) - --- | -emptied :: - (IsHTMLMediaElement self, IsEventTarget self) => - EventName self Event -emptied = unsafeEventName (toJSString "emptied") - --- | -loadedMetadata :: - (IsHTMLMediaElement self, IsEventTarget self) => - EventName self Event -loadedMetadata = unsafeEventName (toJSString "loadedmetadata") - --- | -loadedData :: - (IsHTMLMediaElement self, IsEventTarget self) => - EventName self Event -loadedData = unsafeEventName (toJSString "loadeddata") - --- | -canPlay :: - (IsHTMLMediaElement self, IsEventTarget self) => - EventName self Event -canPlay = unsafeEventName (toJSString "canplay") - --- | -canPlayThrough :: - (IsHTMLMediaElement self, IsEventTarget self) => - EventName self Event -canPlayThrough = unsafeEventName (toJSString "canplaythrough") - --- | -playing :: - (IsHTMLMediaElement self, IsEventTarget self) => - EventName self Event -playing = unsafeEventName (toJSString "playing") - --- | -ended :: - (IsHTMLMediaElement self, IsEventTarget self) => - EventName self Event -ended = unsafeEventName (toJSString "ended") - --- | -waiting :: - (IsHTMLMediaElement self, IsEventTarget self) => - EventName self Event -waiting = unsafeEventName (toJSString "waiting") - --- | -durationChange :: - (IsHTMLMediaElement self, IsEventTarget self) => - EventName self Event -durationChange = unsafeEventName (toJSString "durationchange") - --- | -timeUpdate :: - (IsHTMLMediaElement self, IsEventTarget self) => - EventName self Event -timeUpdate = unsafeEventName (toJSString "timeupdate") - --- | -playEvent :: - (IsHTMLMediaElement self, IsEventTarget self) => - EventName self Event -playEvent = unsafeEventName (toJSString "play") - --- | -pauseEvent :: - (IsHTMLMediaElement self, IsEventTarget self) => - EventName self Event -pauseEvent = unsafeEventName (toJSString "pause") - --- | -rateChange :: - (IsHTMLMediaElement self, IsEventTarget self) => - EventName self Event -rateChange = unsafeEventName (toJSString "ratechange") - --- | -volumeChange :: - (IsHTMLMediaElement self, IsEventTarget self) => - EventName self Event -volumeChange = unsafeEventName (toJSString "volumechange") - -foreign import javascript unsafe - "$1[\"webkitPreservesPitch\"] = $2;" js_setWebkitPreservesPitch :: - HTMLMediaElement -> Bool -> IO () - --- | -setWebkitPreservesPitch :: - (MonadIO m, IsHTMLMediaElement self) => self -> Bool -> m () -setWebkitPreservesPitch self val - = liftIO (js_setWebkitPreservesPitch (toHTMLMediaElement self) val) - -foreign import javascript unsafe - "($1[\"webkitPreservesPitch\"] ? 1 : 0)" js_getWebkitPreservesPitch - :: HTMLMediaElement -> IO Bool - --- | -getWebkitPreservesPitch :: - (MonadIO m, IsHTMLMediaElement self) => self -> m Bool -getWebkitPreservesPitch self - = liftIO (js_getWebkitPreservesPitch (toHTMLMediaElement self)) - -foreign import javascript unsafe - "($1[\"webkitHasClosedCaptions\"] ? 1 : 0)" - js_getWebkitHasClosedCaptions :: HTMLMediaElement -> IO Bool - --- | -getWebkitHasClosedCaptions :: - (MonadIO m, IsHTMLMediaElement self) => self -> m Bool -getWebkitHasClosedCaptions self - = liftIO (js_getWebkitHasClosedCaptions (toHTMLMediaElement self)) - -foreign import javascript unsafe - "$1[\"webkitClosedCaptionsVisible\"] = $2;" - js_setWebkitClosedCaptionsVisible :: - HTMLMediaElement -> Bool -> IO () - --- | -setWebkitClosedCaptionsVisible :: - (MonadIO m, IsHTMLMediaElement self) => self -> Bool -> m () -setWebkitClosedCaptionsVisible self val - = liftIO - (js_setWebkitClosedCaptionsVisible (toHTMLMediaElement self) val) - -foreign import javascript unsafe - "($1[\"webkitClosedCaptionsVisible\"] ? 1 : 0)" - js_getWebkitClosedCaptionsVisible :: HTMLMediaElement -> IO Bool - --- | -getWebkitClosedCaptionsVisible :: - (MonadIO m, IsHTMLMediaElement self) => self -> m Bool -getWebkitClosedCaptionsVisible self - = liftIO - (js_getWebkitClosedCaptionsVisible (toHTMLMediaElement self)) - -foreign import javascript unsafe - "$1[\"webkitAudioDecodedByteCount\"]" - js_getWebkitAudioDecodedByteCount :: HTMLMediaElement -> IO Word - --- | -getWebkitAudioDecodedByteCount :: - (MonadIO m, IsHTMLMediaElement self) => self -> m Word -getWebkitAudioDecodedByteCount self - = liftIO - (js_getWebkitAudioDecodedByteCount (toHTMLMediaElement self)) - -foreign import javascript unsafe - "$1[\"webkitVideoDecodedByteCount\"]" - js_getWebkitVideoDecodedByteCount :: HTMLMediaElement -> IO Word - --- | -getWebkitVideoDecodedByteCount :: - (MonadIO m, IsHTMLMediaElement self) => self -> m Word -getWebkitVideoDecodedByteCount self - = liftIO - (js_getWebkitVideoDecodedByteCount (toHTMLMediaElement self)) - --- | -webKitKeyAdded :: - (IsHTMLMediaElement self, IsEventTarget self) => - EventName self Event -webKitKeyAdded = unsafeEventName (toJSString "webkitkeyadded") - --- | -webKitKeyError :: - (IsHTMLMediaElement self, IsEventTarget self) => - EventName self Event -webKitKeyError = unsafeEventName (toJSString "webkitkeyerror") - --- | -webKitKeyMessage :: - (IsHTMLMediaElement self, IsEventTarget self) => - EventName self Event -webKitKeyMessage = unsafeEventName (toJSString "webkitkeymessage") - --- | -webKitNeedKey :: - (IsHTMLMediaElement self, IsEventTarget self) => - EventName self Event -webKitNeedKey = unsafeEventName (toJSString "webkitneedkey") - -foreign import javascript unsafe "$1[\"webkitKeys\"]" - js_getWebkitKeys :: HTMLMediaElement -> IO (Nullable MediaKeys) - --- | -getWebkitKeys :: - (MonadIO m, IsHTMLMediaElement self) => self -> m (Maybe MediaKeys) -getWebkitKeys self - = liftIO - (nullableToMaybe <$> (js_getWebkitKeys (toHTMLMediaElement self))) - -foreign import javascript unsafe "$1[\"audioTracks\"]" - js_getAudioTracks :: - HTMLMediaElement -> IO (Nullable AudioTrackList) - --- | -getAudioTracks :: - (MonadIO m, IsHTMLMediaElement self) => - self -> m (Maybe AudioTrackList) -getAudioTracks self - = liftIO - (nullableToMaybe <$> (js_getAudioTracks (toHTMLMediaElement self))) - -foreign import javascript unsafe "$1[\"textTracks\"]" - js_getTextTracks :: HTMLMediaElement -> IO (Nullable TextTrackList) - --- | -getTextTracks :: - (MonadIO m, IsHTMLMediaElement self) => - self -> m (Maybe TextTrackList) -getTextTracks self - = liftIO - (nullableToMaybe <$> (js_getTextTracks (toHTMLMediaElement self))) - -foreign import javascript unsafe "$1[\"videoTracks\"]" - js_getVideoTracks :: - HTMLMediaElement -> IO (Nullable VideoTrackList) - --- | -getVideoTracks :: - (MonadIO m, IsHTMLMediaElement self) => - self -> m (Maybe VideoTrackList) -getVideoTracks self - = liftIO - (nullableToMaybe <$> (js_getVideoTracks (toHTMLMediaElement self))) - -foreign import javascript unsafe "$1[\"mediaGroup\"] = $2;" - js_setMediaGroup :: HTMLMediaElement -> Nullable JSString -> IO () - --- | -setMediaGroup :: - (MonadIO m, IsHTMLMediaElement self, ToJSString val) => - self -> Maybe val -> m () -setMediaGroup self val - = liftIO - (js_setMediaGroup (toHTMLMediaElement self) (toMaybeJSString val)) - -foreign import javascript unsafe "$1[\"mediaGroup\"]" - js_getMediaGroup :: HTMLMediaElement -> IO (Nullable JSString) - --- | -getMediaGroup :: - (MonadIO m, IsHTMLMediaElement self, FromJSString result) => - self -> m (Maybe result) -getMediaGroup self - = liftIO - (fromMaybeJSString <$> - (js_getMediaGroup (toHTMLMediaElement self))) - -foreign import javascript unsafe "$1[\"controller\"] = $2;" - js_setController :: - HTMLMediaElement -> Nullable MediaController -> IO () - --- | -setController :: - (MonadIO m, IsHTMLMediaElement self) => - self -> Maybe MediaController -> m () -setController self val - = liftIO - (js_setController (toHTMLMediaElement self) (maybeToNullable val)) - -foreign import javascript unsafe "$1[\"controller\"]" - js_getController :: - HTMLMediaElement -> IO (Nullable MediaController) - --- | -getController :: - (MonadIO m, IsHTMLMediaElement self) => - self -> m (Maybe MediaController) -getController self - = liftIO - (nullableToMaybe <$> (js_getController (toHTMLMediaElement self))) - -foreign import javascript unsafe - "($1[\"webkitCurrentPlaybackTargetIsWireless\"] ? 1 : 0)" - js_getWebkitCurrentPlaybackTargetIsWireless :: - HTMLMediaElement -> IO Bool - --- | -getWebkitCurrentPlaybackTargetIsWireless :: - (MonadIO m, IsHTMLMediaElement self) => self -> m Bool -getWebkitCurrentPlaybackTargetIsWireless self - = liftIO - (js_getWebkitCurrentPlaybackTargetIsWireless - (toHTMLMediaElement self)) - --- | -webKitCurrentPlaybackTargetIsWirelessChanged :: - (IsHTMLMediaElement self, IsEventTarget self) => - EventName self Event -webKitCurrentPlaybackTargetIsWirelessChanged - = unsafeEventName - (toJSString "webkitcurrentplaybacktargetiswirelesschanged") - --- | -webKitPlaybackTargetAvailabilityChanged :: - (IsHTMLMediaElement self, IsEventTarget self) => - EventName self Event -webKitPlaybackTargetAvailabilityChanged - = unsafeEventName - (toJSString "webkitplaybacktargetavailabilitychanged") - -foreign import javascript unsafe "$1[\"srcObject\"] = $2;" - js_setSrcObject :: - HTMLMediaElement -> Nullable MediaStream -> IO () - --- | -setSrcObject :: - (MonadIO m, IsHTMLMediaElement self) => - self -> Maybe MediaStream -> m () -setSrcObject self val - = liftIO - (js_setSrcObject (toHTMLMediaElement self) (maybeToNullable val)) - -foreign import javascript unsafe "$1[\"srcObject\"]" - js_getSrcObject :: HTMLMediaElement -> IO JSVal - --- | -getSrcObject :: - (MonadIO m, IsHTMLMediaElement self) => - self -> m (Maybe MediaStream) -getSrcObject self - = liftIO - ((js_getSrcObject (toHTMLMediaElement self)) >>= - fromJSValUnchecked) diff --git a/src/GHCJS/DOM/JSFFI/Generated/HTMLMenuElement.hs b/src/GHCJS/DOM/JSFFI/Generated/HTMLMenuElement.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/HTMLMenuElement.hs +++ /dev/null @@ -1,33 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.HTMLMenuElement - (js_setCompact, setCompact, js_getCompact, getCompact, - HTMLMenuElement, castToHTMLMenuElement, gTypeHTMLMenuElement) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"compact\"] = $2;" - js_setCompact :: HTMLMenuElement -> Bool -> IO () - --- | -setCompact :: (MonadIO m) => HTMLMenuElement -> Bool -> m () -setCompact self val = liftIO (js_setCompact (self) val) - -foreign import javascript unsafe "($1[\"compact\"] ? 1 : 0)" - js_getCompact :: HTMLMenuElement -> IO Bool - --- | -getCompact :: (MonadIO m) => HTMLMenuElement -> m Bool -getCompact self = liftIO (js_getCompact (self)) diff --git a/src/GHCJS/DOM/JSFFI/Generated/HTMLMetaElement.hs b/src/GHCJS/DOM/JSFFI/Generated/HTMLMetaElement.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/HTMLMetaElement.hs +++ /dev/null @@ -1,89 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.HTMLMetaElement - (js_setContent, setContent, js_getContent, getContent, - js_setHttpEquiv, setHttpEquiv, js_getHttpEquiv, getHttpEquiv, - js_setName, setName, js_getName, getName, js_setScheme, setScheme, - js_getScheme, getScheme, HTMLMetaElement, castToHTMLMetaElement, - gTypeHTMLMetaElement) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"content\"] = $2;" - js_setContent :: HTMLMetaElement -> JSString -> IO () - --- | -setContent :: - (MonadIO m, ToJSString val) => HTMLMetaElement -> val -> m () -setContent self val - = liftIO (js_setContent (self) (toJSString val)) - -foreign import javascript unsafe "$1[\"content\"]" js_getContent :: - HTMLMetaElement -> IO JSString - --- | -getContent :: - (MonadIO m, FromJSString result) => HTMLMetaElement -> m result -getContent self = liftIO (fromJSString <$> (js_getContent (self))) - -foreign import javascript unsafe "$1[\"httpEquiv\"] = $2;" - js_setHttpEquiv :: HTMLMetaElement -> JSString -> IO () - --- | -setHttpEquiv :: - (MonadIO m, ToJSString val) => HTMLMetaElement -> val -> m () -setHttpEquiv self val - = liftIO (js_setHttpEquiv (self) (toJSString val)) - -foreign import javascript unsafe "$1[\"httpEquiv\"]" - js_getHttpEquiv :: HTMLMetaElement -> IO JSString - --- | -getHttpEquiv :: - (MonadIO m, FromJSString result) => HTMLMetaElement -> m result -getHttpEquiv self - = liftIO (fromJSString <$> (js_getHttpEquiv (self))) - -foreign import javascript unsafe "$1[\"name\"] = $2;" js_setName :: - HTMLMetaElement -> JSString -> IO () - --- | -setName :: - (MonadIO m, ToJSString val) => HTMLMetaElement -> val -> m () -setName self val = liftIO (js_setName (self) (toJSString val)) - -foreign import javascript unsafe "$1[\"name\"]" js_getName :: - HTMLMetaElement -> IO JSString - --- | -getName :: - (MonadIO m, FromJSString result) => HTMLMetaElement -> m result -getName self = liftIO (fromJSString <$> (js_getName (self))) - -foreign import javascript unsafe "$1[\"scheme\"] = $2;" - js_setScheme :: HTMLMetaElement -> JSString -> IO () - --- | -setScheme :: - (MonadIO m, ToJSString val) => HTMLMetaElement -> val -> m () -setScheme self val = liftIO (js_setScheme (self) (toJSString val)) - -foreign import javascript unsafe "$1[\"scheme\"]" js_getScheme :: - HTMLMetaElement -> IO JSString - --- | -getScheme :: - (MonadIO m, FromJSString result) => HTMLMetaElement -> m result -getScheme self = liftIO (fromJSString <$> (js_getScheme (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/HTMLMeterElement.hs b/src/GHCJS/DOM/JSFFI/Generated/HTMLMeterElement.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/HTMLMeterElement.hs +++ /dev/null @@ -1,114 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.HTMLMeterElement - (js_setValue, setValue, js_getValue, getValue, js_setMin, setMin, - js_getMin, getMin, js_setMax, setMax, js_getMax, getMax, js_setLow, - setLow, js_getLow, getLow, js_setHigh, setHigh, js_getHigh, - getHigh, js_setOptimum, setOptimum, js_getOptimum, getOptimum, - js_getLabels, getLabels, HTMLMeterElement, castToHTMLMeterElement, - gTypeHTMLMeterElement) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"value\"] = $2;" js_setValue - :: HTMLMeterElement -> Double -> IO () - --- | -setValue :: (MonadIO m) => HTMLMeterElement -> Double -> m () -setValue self val = liftIO (js_setValue (self) val) - -foreign import javascript unsafe "$1[\"value\"]" js_getValue :: - HTMLMeterElement -> IO Double - --- | -getValue :: (MonadIO m) => HTMLMeterElement -> m Double -getValue self = liftIO (js_getValue (self)) - -foreign import javascript unsafe "$1[\"min\"] = $2;" js_setMin :: - HTMLMeterElement -> Double -> IO () - --- | -setMin :: (MonadIO m) => HTMLMeterElement -> Double -> m () -setMin self val = liftIO (js_setMin (self) val) - -foreign import javascript unsafe "$1[\"min\"]" js_getMin :: - HTMLMeterElement -> IO Double - --- | -getMin :: (MonadIO m) => HTMLMeterElement -> m Double -getMin self = liftIO (js_getMin (self)) - -foreign import javascript unsafe "$1[\"max\"] = $2;" js_setMax :: - HTMLMeterElement -> Double -> IO () - --- | -setMax :: (MonadIO m) => HTMLMeterElement -> Double -> m () -setMax self val = liftIO (js_setMax (self) val) - -foreign import javascript unsafe "$1[\"max\"]" js_getMax :: - HTMLMeterElement -> IO Double - --- | -getMax :: (MonadIO m) => HTMLMeterElement -> m Double -getMax self = liftIO (js_getMax (self)) - -foreign import javascript unsafe "$1[\"low\"] = $2;" js_setLow :: - HTMLMeterElement -> Double -> IO () - --- | -setLow :: (MonadIO m) => HTMLMeterElement -> Double -> m () -setLow self val = liftIO (js_setLow (self) val) - -foreign import javascript unsafe "$1[\"low\"]" js_getLow :: - HTMLMeterElement -> IO Double - --- | -getLow :: (MonadIO m) => HTMLMeterElement -> m Double -getLow self = liftIO (js_getLow (self)) - -foreign import javascript unsafe "$1[\"high\"] = $2;" js_setHigh :: - HTMLMeterElement -> Double -> IO () - --- | -setHigh :: (MonadIO m) => HTMLMeterElement -> Double -> m () -setHigh self val = liftIO (js_setHigh (self) val) - -foreign import javascript unsafe "$1[\"high\"]" js_getHigh :: - HTMLMeterElement -> IO Double - --- | -getHigh :: (MonadIO m) => HTMLMeterElement -> m Double -getHigh self = liftIO (js_getHigh (self)) - -foreign import javascript unsafe "$1[\"optimum\"] = $2;" - js_setOptimum :: HTMLMeterElement -> Double -> IO () - --- | -setOptimum :: (MonadIO m) => HTMLMeterElement -> Double -> m () -setOptimum self val = liftIO (js_setOptimum (self) val) - -foreign import javascript unsafe "$1[\"optimum\"]" js_getOptimum :: - HTMLMeterElement -> IO Double - --- | -getOptimum :: (MonadIO m) => HTMLMeterElement -> m Double -getOptimum self = liftIO (js_getOptimum (self)) - -foreign import javascript unsafe "$1[\"labels\"]" js_getLabels :: - HTMLMeterElement -> IO (Nullable NodeList) - --- | -getLabels :: (MonadIO m) => HTMLMeterElement -> m (Maybe NodeList) -getLabels self = liftIO (nullableToMaybe <$> (js_getLabels (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/HTMLModElement.hs b/src/GHCJS/DOM/JSFFI/Generated/HTMLModElement.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/HTMLModElement.hs +++ /dev/null @@ -1,54 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.HTMLModElement - (js_setCite, setCite, js_getCite, getCite, js_setDateTime, - setDateTime, js_getDateTime, getDateTime, HTMLModElement, - castToHTMLModElement, gTypeHTMLModElement) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"cite\"] = $2;" js_setCite :: - HTMLModElement -> JSString -> IO () - --- | -setCite :: - (MonadIO m, ToJSString val) => HTMLModElement -> val -> m () -setCite self val = liftIO (js_setCite (self) (toJSString val)) - -foreign import javascript unsafe "$1[\"cite\"]" js_getCite :: - HTMLModElement -> IO JSString - --- | -getCite :: - (MonadIO m, FromJSString result) => HTMLModElement -> m result -getCite self = liftIO (fromJSString <$> (js_getCite (self))) - -foreign import javascript unsafe "$1[\"dateTime\"] = $2;" - js_setDateTime :: HTMLModElement -> JSString -> IO () - --- | -setDateTime :: - (MonadIO m, ToJSString val) => HTMLModElement -> val -> m () -setDateTime self val - = liftIO (js_setDateTime (self) (toJSString val)) - -foreign import javascript unsafe "$1[\"dateTime\"]" js_getDateTime - :: HTMLModElement -> IO JSString - --- | -getDateTime :: - (MonadIO m, FromJSString result) => HTMLModElement -> m result -getDateTime self - = liftIO (fromJSString <$> (js_getDateTime (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/HTMLOListElement.hs b/src/GHCJS/DOM/JSFFI/Generated/HTMLOListElement.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/HTMLOListElement.hs +++ /dev/null @@ -1,80 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.HTMLOListElement - (js_setCompact, setCompact, js_getCompact, getCompact, js_setStart, - setStart, js_getStart, getStart, js_setReversed, setReversed, - js_getReversed, getReversed, js_setType, setType, js_getType, - getType, HTMLOListElement, castToHTMLOListElement, - gTypeHTMLOListElement) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"compact\"] = $2;" - js_setCompact :: HTMLOListElement -> Bool -> IO () - --- | -setCompact :: (MonadIO m) => HTMLOListElement -> Bool -> m () -setCompact self val = liftIO (js_setCompact (self) val) - -foreign import javascript unsafe "($1[\"compact\"] ? 1 : 0)" - js_getCompact :: HTMLOListElement -> IO Bool - --- | -getCompact :: (MonadIO m) => HTMLOListElement -> m Bool -getCompact self = liftIO (js_getCompact (self)) - -foreign import javascript unsafe "$1[\"start\"] = $2;" js_setStart - :: HTMLOListElement -> Int -> IO () - --- | -setStart :: (MonadIO m) => HTMLOListElement -> Int -> m () -setStart self val = liftIO (js_setStart (self) val) - -foreign import javascript unsafe "$1[\"start\"]" js_getStart :: - HTMLOListElement -> IO Int - --- | -getStart :: (MonadIO m) => HTMLOListElement -> m Int -getStart self = liftIO (js_getStart (self)) - -foreign import javascript unsafe "$1[\"reversed\"] = $2;" - js_setReversed :: HTMLOListElement -> Bool -> IO () - --- | -setReversed :: (MonadIO m) => HTMLOListElement -> Bool -> m () -setReversed self val = liftIO (js_setReversed (self) val) - -foreign import javascript unsafe "($1[\"reversed\"] ? 1 : 0)" - js_getReversed :: HTMLOListElement -> IO Bool - --- | -getReversed :: (MonadIO m) => HTMLOListElement -> m Bool -getReversed self = liftIO (js_getReversed (self)) - -foreign import javascript unsafe "$1[\"type\"] = $2;" js_setType :: - HTMLOListElement -> JSString -> IO () - --- | -setType :: - (MonadIO m, ToJSString val) => HTMLOListElement -> val -> m () -setType self val = liftIO (js_setType (self) (toJSString val)) - -foreign import javascript unsafe "$1[\"type\"]" js_getType :: - HTMLOListElement -> IO JSString - --- | -getType :: - (MonadIO m, FromJSString result) => HTMLOListElement -> m result -getType self = liftIO (fromJSString <$> (js_getType (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/HTMLObjectElement.hs b/src/GHCJS/DOM/JSFFI/Generated/HTMLObjectElement.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/HTMLObjectElement.hs +++ /dev/null @@ -1,363 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.HTMLObjectElement - (js_checkValidity, checkValidity, js_setCustomValidity, - setCustomValidity, js_getSVGDocument, getSVGDocument, js_getForm, - getForm, js_setCode, setCode, js_getCode, getCode, js_setAlign, - setAlign, js_getAlign, getAlign, js_setArchive, setArchive, - js_getArchive, getArchive, js_setBorder, setBorder, js_getBorder, - getBorder, js_setCodeBase, setCodeBase, js_getCodeBase, - getCodeBase, js_setCodeType, setCodeType, js_getCodeType, - getCodeType, js_setData, setData, js_getData, getData, - js_setDeclare, setDeclare, js_getDeclare, getDeclare, js_setHeight, - setHeight, js_getHeight, getHeight, js_setHspace, setHspace, - js_getHspace, getHspace, js_setName, setName, js_getName, getName, - js_setStandby, setStandby, js_getStandby, getStandby, js_setType, - setType, js_getType, getType, js_setUseMap, setUseMap, - js_getUseMap, getUseMap, js_setVspace, setVspace, js_getVspace, - getVspace, js_setWidth, setWidth, js_getWidth, getWidth, - js_getWillValidate, getWillValidate, js_getValidity, getValidity, - js_getValidationMessage, getValidationMessage, - js_getContentDocument, getContentDocument, HTMLObjectElement, - castToHTMLObjectElement, gTypeHTMLObjectElement) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe - "($1[\"checkValidity\"]() ? 1 : 0)" js_checkValidity :: - HTMLObjectElement -> IO Bool - --- | -checkValidity :: (MonadIO m) => HTMLObjectElement -> m Bool -checkValidity self = liftIO (js_checkValidity (self)) - -foreign import javascript unsafe "$1[\"setCustomValidity\"]($2)" - js_setCustomValidity :: - HTMLObjectElement -> Nullable JSString -> IO () - --- | -setCustomValidity :: - (MonadIO m, ToJSString error) => - HTMLObjectElement -> Maybe error -> m () -setCustomValidity self error - = liftIO (js_setCustomValidity (self) (toMaybeJSString error)) - -foreign import javascript unsafe "$1[\"getSVGDocument\"]()" - js_getSVGDocument :: HTMLObjectElement -> IO (Nullable SVGDocument) - --- | -getSVGDocument :: - (MonadIO m) => HTMLObjectElement -> m (Maybe SVGDocument) -getSVGDocument self - = liftIO (nullableToMaybe <$> (js_getSVGDocument (self))) - -foreign import javascript unsafe "$1[\"form\"]" js_getForm :: - HTMLObjectElement -> IO (Nullable HTMLFormElement) - --- | -getForm :: - (MonadIO m) => HTMLObjectElement -> m (Maybe HTMLFormElement) -getForm self = liftIO (nullableToMaybe <$> (js_getForm (self))) - -foreign import javascript unsafe "$1[\"code\"] = $2;" js_setCode :: - HTMLObjectElement -> JSString -> IO () - --- | -setCode :: - (MonadIO m, ToJSString val) => HTMLObjectElement -> val -> m () -setCode self val = liftIO (js_setCode (self) (toJSString val)) - -foreign import javascript unsafe "$1[\"code\"]" js_getCode :: - HTMLObjectElement -> IO JSString - --- | -getCode :: - (MonadIO m, FromJSString result) => HTMLObjectElement -> m result -getCode self = liftIO (fromJSString <$> (js_getCode (self))) - -foreign import javascript unsafe "$1[\"align\"] = $2;" js_setAlign - :: HTMLObjectElement -> JSString -> IO () - --- | -setAlign :: - (MonadIO m, ToJSString val) => HTMLObjectElement -> val -> m () -setAlign self val = liftIO (js_setAlign (self) (toJSString val)) - -foreign import javascript unsafe "$1[\"align\"]" js_getAlign :: - HTMLObjectElement -> IO JSString - --- | -getAlign :: - (MonadIO m, FromJSString result) => HTMLObjectElement -> m result -getAlign self = liftIO (fromJSString <$> (js_getAlign (self))) - -foreign import javascript unsafe "$1[\"archive\"] = $2;" - js_setArchive :: HTMLObjectElement -> JSString -> IO () - --- | -setArchive :: - (MonadIO m, ToJSString val) => HTMLObjectElement -> val -> m () -setArchive self val - = liftIO (js_setArchive (self) (toJSString val)) - -foreign import javascript unsafe "$1[\"archive\"]" js_getArchive :: - HTMLObjectElement -> IO JSString - --- | -getArchive :: - (MonadIO m, FromJSString result) => HTMLObjectElement -> m result -getArchive self = liftIO (fromJSString <$> (js_getArchive (self))) - -foreign import javascript unsafe "$1[\"border\"] = $2;" - js_setBorder :: HTMLObjectElement -> JSString -> IO () - --- | -setBorder :: - (MonadIO m, ToJSString val) => HTMLObjectElement -> val -> m () -setBorder self val = liftIO (js_setBorder (self) (toJSString val)) - -foreign import javascript unsafe "$1[\"border\"]" js_getBorder :: - HTMLObjectElement -> IO JSString - --- | -getBorder :: - (MonadIO m, FromJSString result) => HTMLObjectElement -> m result -getBorder self = liftIO (fromJSString <$> (js_getBorder (self))) - -foreign import javascript unsafe "$1[\"codeBase\"] = $2;" - js_setCodeBase :: HTMLObjectElement -> JSString -> IO () - --- | -setCodeBase :: - (MonadIO m, ToJSString val) => HTMLObjectElement -> val -> m () -setCodeBase self val - = liftIO (js_setCodeBase (self) (toJSString val)) - -foreign import javascript unsafe "$1[\"codeBase\"]" js_getCodeBase - :: HTMLObjectElement -> IO JSString - --- | -getCodeBase :: - (MonadIO m, FromJSString result) => HTMLObjectElement -> m result -getCodeBase self - = liftIO (fromJSString <$> (js_getCodeBase (self))) - -foreign import javascript unsafe "$1[\"codeType\"] = $2;" - js_setCodeType :: HTMLObjectElement -> JSString -> IO () - --- | -setCodeType :: - (MonadIO m, ToJSString val) => HTMLObjectElement -> val -> m () -setCodeType self val - = liftIO (js_setCodeType (self) (toJSString val)) - -foreign import javascript unsafe "$1[\"codeType\"]" js_getCodeType - :: HTMLObjectElement -> IO JSString - --- | -getCodeType :: - (MonadIO m, FromJSString result) => HTMLObjectElement -> m result -getCodeType self - = liftIO (fromJSString <$> (js_getCodeType (self))) - -foreign import javascript unsafe "$1[\"data\"] = $2;" js_setData :: - HTMLObjectElement -> JSString -> IO () - --- | -setData :: - (MonadIO m, ToJSString val) => HTMLObjectElement -> val -> m () -setData self val = liftIO (js_setData (self) (toJSString val)) - -foreign import javascript unsafe "$1[\"data\"]" js_getData :: - HTMLObjectElement -> IO JSString - --- | -getData :: - (MonadIO m, FromJSString result) => HTMLObjectElement -> m result -getData self = liftIO (fromJSString <$> (js_getData (self))) - -foreign import javascript unsafe "$1[\"declare\"] = $2;" - js_setDeclare :: HTMLObjectElement -> Bool -> IO () - --- | -setDeclare :: (MonadIO m) => HTMLObjectElement -> Bool -> m () -setDeclare self val = liftIO (js_setDeclare (self) val) - -foreign import javascript unsafe "($1[\"declare\"] ? 1 : 0)" - js_getDeclare :: HTMLObjectElement -> IO Bool - --- | -getDeclare :: (MonadIO m) => HTMLObjectElement -> m Bool -getDeclare self = liftIO (js_getDeclare (self)) - -foreign import javascript unsafe "$1[\"height\"] = $2;" - js_setHeight :: HTMLObjectElement -> JSString -> IO () - --- | -setHeight :: - (MonadIO m, ToJSString val) => HTMLObjectElement -> val -> m () -setHeight self val = liftIO (js_setHeight (self) (toJSString val)) - -foreign import javascript unsafe "$1[\"height\"]" js_getHeight :: - HTMLObjectElement -> IO JSString - --- | -getHeight :: - (MonadIO m, FromJSString result) => HTMLObjectElement -> m result -getHeight self = liftIO (fromJSString <$> (js_getHeight (self))) - -foreign import javascript unsafe "$1[\"hspace\"] = $2;" - js_setHspace :: HTMLObjectElement -> Int -> IO () - --- | -setHspace :: (MonadIO m) => HTMLObjectElement -> Int -> m () -setHspace self val = liftIO (js_setHspace (self) val) - -foreign import javascript unsafe "$1[\"hspace\"]" js_getHspace :: - HTMLObjectElement -> IO Int - --- | -getHspace :: (MonadIO m) => HTMLObjectElement -> m Int -getHspace self = liftIO (js_getHspace (self)) - -foreign import javascript unsafe "$1[\"name\"] = $2;" js_setName :: - HTMLObjectElement -> JSString -> IO () - --- | -setName :: - (MonadIO m, ToJSString val) => HTMLObjectElement -> val -> m () -setName self val = liftIO (js_setName (self) (toJSString val)) - -foreign import javascript unsafe "$1[\"name\"]" js_getName :: - HTMLObjectElement -> IO JSString - --- | -getName :: - (MonadIO m, FromJSString result) => HTMLObjectElement -> m result -getName self = liftIO (fromJSString <$> (js_getName (self))) - -foreign import javascript unsafe "$1[\"standby\"] = $2;" - js_setStandby :: HTMLObjectElement -> JSString -> IO () - --- | -setStandby :: - (MonadIO m, ToJSString val) => HTMLObjectElement -> val -> m () -setStandby self val - = liftIO (js_setStandby (self) (toJSString val)) - -foreign import javascript unsafe "$1[\"standby\"]" js_getStandby :: - HTMLObjectElement -> IO JSString - --- | -getStandby :: - (MonadIO m, FromJSString result) => HTMLObjectElement -> m result -getStandby self = liftIO (fromJSString <$> (js_getStandby (self))) - -foreign import javascript unsafe "$1[\"type\"] = $2;" js_setType :: - HTMLObjectElement -> JSString -> IO () - --- | -setType :: - (MonadIO m, ToJSString val) => HTMLObjectElement -> val -> m () -setType self val = liftIO (js_setType (self) (toJSString val)) - -foreign import javascript unsafe "$1[\"type\"]" js_getType :: - HTMLObjectElement -> IO JSString - --- | -getType :: - (MonadIO m, FromJSString result) => HTMLObjectElement -> m result -getType self = liftIO (fromJSString <$> (js_getType (self))) - -foreign import javascript unsafe "$1[\"useMap\"] = $2;" - js_setUseMap :: HTMLObjectElement -> JSString -> IO () - --- | -setUseMap :: - (MonadIO m, ToJSString val) => HTMLObjectElement -> val -> m () -setUseMap self val = liftIO (js_setUseMap (self) (toJSString val)) - -foreign import javascript unsafe "$1[\"useMap\"]" js_getUseMap :: - HTMLObjectElement -> IO JSString - --- | -getUseMap :: - (MonadIO m, FromJSString result) => HTMLObjectElement -> m result -getUseMap self = liftIO (fromJSString <$> (js_getUseMap (self))) - -foreign import javascript unsafe "$1[\"vspace\"] = $2;" - js_setVspace :: HTMLObjectElement -> Int -> IO () - --- | -setVspace :: (MonadIO m) => HTMLObjectElement -> Int -> m () -setVspace self val = liftIO (js_setVspace (self) val) - -foreign import javascript unsafe "$1[\"vspace\"]" js_getVspace :: - HTMLObjectElement -> IO Int - --- | -getVspace :: (MonadIO m) => HTMLObjectElement -> m Int -getVspace self = liftIO (js_getVspace (self)) - -foreign import javascript unsafe "$1[\"width\"] = $2;" js_setWidth - :: HTMLObjectElement -> JSString -> IO () - --- | -setWidth :: - (MonadIO m, ToJSString val) => HTMLObjectElement -> val -> m () -setWidth self val = liftIO (js_setWidth (self) (toJSString val)) - -foreign import javascript unsafe "$1[\"width\"]" js_getWidth :: - HTMLObjectElement -> IO JSString - --- | -getWidth :: - (MonadIO m, FromJSString result) => HTMLObjectElement -> m result -getWidth self = liftIO (fromJSString <$> (js_getWidth (self))) - -foreign import javascript unsafe "($1[\"willValidate\"] ? 1 : 0)" - js_getWillValidate :: HTMLObjectElement -> IO Bool - --- | -getWillValidate :: (MonadIO m) => HTMLObjectElement -> m Bool -getWillValidate self = liftIO (js_getWillValidate (self)) - -foreign import javascript unsafe "$1[\"validity\"]" js_getValidity - :: HTMLObjectElement -> IO (Nullable ValidityState) - --- | -getValidity :: - (MonadIO m) => HTMLObjectElement -> m (Maybe ValidityState) -getValidity self - = liftIO (nullableToMaybe <$> (js_getValidity (self))) - -foreign import javascript unsafe "$1[\"validationMessage\"]" - js_getValidationMessage :: HTMLObjectElement -> IO JSString - --- | -getValidationMessage :: - (MonadIO m, FromJSString result) => HTMLObjectElement -> m result -getValidationMessage self - = liftIO (fromJSString <$> (js_getValidationMessage (self))) - -foreign import javascript unsafe "$1[\"contentDocument\"]" - js_getContentDocument :: - HTMLObjectElement -> IO (Nullable Document) - --- | -getContentDocument :: - (MonadIO m) => HTMLObjectElement -> m (Maybe Document) -getContentDocument self - = liftIO (nullableToMaybe <$> (js_getContentDocument (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/HTMLOptGroupElement.hs b/src/GHCJS/DOM/JSFFI/Generated/HTMLOptGroupElement.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/HTMLOptGroupElement.hs +++ /dev/null @@ -1,50 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.HTMLOptGroupElement - (js_setDisabled, setDisabled, js_getDisabled, getDisabled, - js_setLabel, setLabel, js_getLabel, getLabel, HTMLOptGroupElement, - castToHTMLOptGroupElement, gTypeHTMLOptGroupElement) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"disabled\"] = $2;" - js_setDisabled :: HTMLOptGroupElement -> Bool -> IO () - --- | -setDisabled :: (MonadIO m) => HTMLOptGroupElement -> Bool -> m () -setDisabled self val = liftIO (js_setDisabled (self) val) - -foreign import javascript unsafe "($1[\"disabled\"] ? 1 : 0)" - js_getDisabled :: HTMLOptGroupElement -> IO Bool - --- | -getDisabled :: (MonadIO m) => HTMLOptGroupElement -> m Bool -getDisabled self = liftIO (js_getDisabled (self)) - -foreign import javascript unsafe "$1[\"label\"] = $2;" js_setLabel - :: HTMLOptGroupElement -> JSString -> IO () - --- | -setLabel :: - (MonadIO m, ToJSString val) => HTMLOptGroupElement -> val -> m () -setLabel self val = liftIO (js_setLabel (self) (toJSString val)) - -foreign import javascript unsafe "$1[\"label\"]" js_getLabel :: - HTMLOptGroupElement -> IO JSString - --- | -getLabel :: - (MonadIO m, FromJSString result) => HTMLOptGroupElement -> m result -getLabel self = liftIO (fromJSString <$> (js_getLabel (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/HTMLOptionElement.hs b/src/GHCJS/DOM/JSFFI/Generated/HTMLOptionElement.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/HTMLOptionElement.hs +++ /dev/null @@ -1,132 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.HTMLOptionElement - (js_setDisabled, setDisabled, js_getDisabled, getDisabled, - js_getForm, getForm, js_setLabel, setLabel, js_getLabel, getLabel, - js_setDefaultSelected, setDefaultSelected, js_getDefaultSelected, - getDefaultSelected, js_setSelected, setSelected, js_getSelected, - getSelected, js_setValue, setValue, js_getValue, getValue, - js_setText, setText, js_getText, getText, js_getIndex, getIndex, - HTMLOptionElement, castToHTMLOptionElement, gTypeHTMLOptionElement) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"disabled\"] = $2;" - js_setDisabled :: HTMLOptionElement -> Bool -> IO () - --- | -setDisabled :: (MonadIO m) => HTMLOptionElement -> Bool -> m () -setDisabled self val = liftIO (js_setDisabled (self) val) - -foreign import javascript unsafe "($1[\"disabled\"] ? 1 : 0)" - js_getDisabled :: HTMLOptionElement -> IO Bool - --- | -getDisabled :: (MonadIO m) => HTMLOptionElement -> m Bool -getDisabled self = liftIO (js_getDisabled (self)) - -foreign import javascript unsafe "$1[\"form\"]" js_getForm :: - HTMLOptionElement -> IO (Nullable HTMLFormElement) - --- | -getForm :: - (MonadIO m) => HTMLOptionElement -> m (Maybe HTMLFormElement) -getForm self = liftIO (nullableToMaybe <$> (js_getForm (self))) - -foreign import javascript unsafe "$1[\"label\"] = $2;" js_setLabel - :: HTMLOptionElement -> JSString -> IO () - --- | -setLabel :: - (MonadIO m, ToJSString val) => HTMLOptionElement -> val -> m () -setLabel self val = liftIO (js_setLabel (self) (toJSString val)) - -foreign import javascript unsafe "$1[\"label\"]" js_getLabel :: - HTMLOptionElement -> IO JSString - --- | -getLabel :: - (MonadIO m, FromJSString result) => HTMLOptionElement -> m result -getLabel self = liftIO (fromJSString <$> (js_getLabel (self))) - -foreign import javascript unsafe "$1[\"defaultSelected\"] = $2;" - js_setDefaultSelected :: HTMLOptionElement -> Bool -> IO () - --- | -setDefaultSelected :: - (MonadIO m) => HTMLOptionElement -> Bool -> m () -setDefaultSelected self val - = liftIO (js_setDefaultSelected (self) val) - -foreign import javascript unsafe - "($1[\"defaultSelected\"] ? 1 : 0)" js_getDefaultSelected :: - HTMLOptionElement -> IO Bool - --- | -getDefaultSelected :: (MonadIO m) => HTMLOptionElement -> m Bool -getDefaultSelected self = liftIO (js_getDefaultSelected (self)) - -foreign import javascript unsafe "$1[\"selected\"] = $2;" - js_setSelected :: HTMLOptionElement -> Bool -> IO () - --- | -setSelected :: (MonadIO m) => HTMLOptionElement -> Bool -> m () -setSelected self val = liftIO (js_setSelected (self) val) - -foreign import javascript unsafe "($1[\"selected\"] ? 1 : 0)" - js_getSelected :: HTMLOptionElement -> IO Bool - --- | -getSelected :: (MonadIO m) => HTMLOptionElement -> m Bool -getSelected self = liftIO (js_getSelected (self)) - -foreign import javascript unsafe "$1[\"value\"] = $2;" js_setValue - :: HTMLOptionElement -> JSString -> IO () - --- | -setValue :: - (MonadIO m, ToJSString val) => HTMLOptionElement -> val -> m () -setValue self val = liftIO (js_setValue (self) (toJSString val)) - -foreign import javascript unsafe "$1[\"value\"]" js_getValue :: - HTMLOptionElement -> IO JSString - --- | -getValue :: - (MonadIO m, FromJSString result) => HTMLOptionElement -> m result -getValue self = liftIO (fromJSString <$> (js_getValue (self))) - -foreign import javascript unsafe "$1[\"text\"] = $2;" js_setText :: - HTMLOptionElement -> JSString -> IO () - --- | -setText :: - (MonadIO m, ToJSString val) => HTMLOptionElement -> val -> m () -setText self val = liftIO (js_setText (self) (toJSString val)) - -foreign import javascript unsafe "$1[\"text\"]" js_getText :: - HTMLOptionElement -> IO JSString - --- | -getText :: - (MonadIO m, FromJSString result) => HTMLOptionElement -> m result -getText self = liftIO (fromJSString <$> (js_getText (self))) - -foreign import javascript unsafe "$1[\"index\"]" js_getIndex :: - HTMLOptionElement -> IO Int - --- | -getIndex :: (MonadIO m) => HTMLOptionElement -> m Int -getIndex self = liftIO (js_getIndex (self)) diff --git a/src/GHCJS/DOM/JSFFI/Generated/HTMLOptionsCollection.hs b/src/GHCJS/DOM/JSFFI/Generated/HTMLOptionsCollection.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/HTMLOptionsCollection.hs +++ /dev/null @@ -1,96 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.HTMLOptionsCollection - (js_namedItem, namedItem, js_addBefore, addBefore, js_add, add, - js_remove, remove, js_setSelectedIndex, setSelectedIndex, - js_getSelectedIndex, getSelectedIndex, js_setLength, setLength, - js_getLength, getLength, HTMLOptionsCollection, - castToHTMLOptionsCollection, gTypeHTMLOptionsCollection) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"namedItem\"]($2)" - js_namedItem :: - HTMLOptionsCollection -> JSString -> IO (Nullable Node) - --- | -namedItem :: - (MonadIO m, ToJSString name) => - HTMLOptionsCollection -> name -> m (Maybe Node) -namedItem self name - = liftIO - (nullableToMaybe <$> (js_namedItem (self) (toJSString name))) - -foreign import javascript unsafe "$1[\"add\"]($2, $3)" js_addBefore - :: - HTMLOptionsCollection -> - Nullable HTMLElement -> Nullable HTMLElement -> IO () - --- | -addBefore :: - (MonadIO m, IsHTMLElement element, IsHTMLElement before) => - HTMLOptionsCollection -> Maybe element -> Maybe before -> m () -addBefore self element before - = liftIO - (js_addBefore (self) (maybeToNullable (fmap toHTMLElement element)) - (maybeToNullable (fmap toHTMLElement before))) - -foreign import javascript unsafe "$1[\"add\"]($2, $3)" js_add :: - HTMLOptionsCollection -> Nullable HTMLElement -> Int -> IO () - --- | -add :: - (MonadIO m, IsHTMLElement element) => - HTMLOptionsCollection -> Maybe element -> Int -> m () -add self element index - = liftIO - (js_add (self) (maybeToNullable (fmap toHTMLElement element)) - index) - -foreign import javascript unsafe "$1[\"remove\"]($2)" js_remove :: - HTMLOptionsCollection -> Word -> IO () - --- | -remove :: (MonadIO m) => HTMLOptionsCollection -> Word -> m () -remove self index = liftIO (js_remove (self) index) - -foreign import javascript unsafe "$1[\"selectedIndex\"] = $2;" - js_setSelectedIndex :: HTMLOptionsCollection -> Int -> IO () - --- | -setSelectedIndex :: - (MonadIO m) => HTMLOptionsCollection -> Int -> m () -setSelectedIndex self val = liftIO (js_setSelectedIndex (self) val) - -foreign import javascript unsafe "$1[\"selectedIndex\"]" - js_getSelectedIndex :: HTMLOptionsCollection -> IO Int - --- | -getSelectedIndex :: (MonadIO m) => HTMLOptionsCollection -> m Int -getSelectedIndex self = liftIO (js_getSelectedIndex (self)) - -foreign import javascript unsafe "$1[\"length\"] = $2;" - js_setLength :: HTMLOptionsCollection -> Word -> IO () - --- | -setLength :: (MonadIO m) => HTMLOptionsCollection -> Word -> m () -setLength self val = liftIO (js_setLength (self) val) - -foreign import javascript unsafe "$1[\"length\"]" js_getLength :: - HTMLOptionsCollection -> IO Word - --- | -getLength :: (MonadIO m) => HTMLOptionsCollection -> m Word -getLength self = liftIO (js_getLength (self)) diff --git a/src/GHCJS/DOM/JSFFI/Generated/HTMLOutputElement.hs b/src/GHCJS/DOM/JSFFI/Generated/HTMLOutputElement.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/HTMLOutputElement.hs +++ /dev/null @@ -1,158 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.HTMLOutputElement - (js_checkValidity, checkValidity, js_setCustomValidity, - setCustomValidity, js_getHtmlFor, getHtmlFor, js_getForm, getForm, - js_setName, setName, js_getName, getName, js_getType, getType, - js_setDefaultValue, setDefaultValue, js_getDefaultValue, - getDefaultValue, js_setValue, setValue, js_getValue, getValue, - js_getWillValidate, getWillValidate, js_getValidity, getValidity, - js_getValidationMessage, getValidationMessage, js_getLabels, - getLabels, HTMLOutputElement, castToHTMLOutputElement, - gTypeHTMLOutputElement) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe - "($1[\"checkValidity\"]() ? 1 : 0)" js_checkValidity :: - HTMLOutputElement -> IO Bool - --- | -checkValidity :: (MonadIO m) => HTMLOutputElement -> m Bool -checkValidity self = liftIO (js_checkValidity (self)) - -foreign import javascript unsafe "$1[\"setCustomValidity\"]($2)" - js_setCustomValidity :: - HTMLOutputElement -> Nullable JSString -> IO () - --- | -setCustomValidity :: - (MonadIO m, ToJSString error) => - HTMLOutputElement -> Maybe error -> m () -setCustomValidity self error - = liftIO (js_setCustomValidity (self) (toMaybeJSString error)) - -foreign import javascript unsafe "$1[\"htmlFor\"]" js_getHtmlFor :: - HTMLOutputElement -> IO (Nullable DOMSettableTokenList) - --- | -getHtmlFor :: - (MonadIO m) => HTMLOutputElement -> m (Maybe DOMSettableTokenList) -getHtmlFor self - = liftIO (nullableToMaybe <$> (js_getHtmlFor (self))) - -foreign import javascript unsafe "$1[\"form\"]" js_getForm :: - HTMLOutputElement -> IO (Nullable HTMLFormElement) - --- | -getForm :: - (MonadIO m) => HTMLOutputElement -> m (Maybe HTMLFormElement) -getForm self = liftIO (nullableToMaybe <$> (js_getForm (self))) - -foreign import javascript unsafe "$1[\"name\"] = $2;" js_setName :: - HTMLOutputElement -> JSString -> IO () - --- | -setName :: - (MonadIO m, ToJSString val) => HTMLOutputElement -> val -> m () -setName self val = liftIO (js_setName (self) (toJSString val)) - -foreign import javascript unsafe "$1[\"name\"]" js_getName :: - HTMLOutputElement -> IO JSString - --- | -getName :: - (MonadIO m, FromJSString result) => HTMLOutputElement -> m result -getName self = liftIO (fromJSString <$> (js_getName (self))) - -foreign import javascript unsafe "$1[\"type\"]" js_getType :: - HTMLOutputElement -> IO JSString - --- | -getType :: - (MonadIO m, FromJSString result) => HTMLOutputElement -> m result -getType self = liftIO (fromJSString <$> (js_getType (self))) - -foreign import javascript unsafe "$1[\"defaultValue\"] = $2;" - js_setDefaultValue :: - HTMLOutputElement -> Nullable JSString -> IO () - --- | -setDefaultValue :: - (MonadIO m, ToJSString val) => - HTMLOutputElement -> Maybe val -> m () -setDefaultValue self val - = liftIO (js_setDefaultValue (self) (toMaybeJSString val)) - -foreign import javascript unsafe "$1[\"defaultValue\"]" - js_getDefaultValue :: HTMLOutputElement -> IO (Nullable JSString) - --- | -getDefaultValue :: - (MonadIO m, FromJSString result) => - HTMLOutputElement -> m (Maybe result) -getDefaultValue self - = liftIO (fromMaybeJSString <$> (js_getDefaultValue (self))) - -foreign import javascript unsafe "$1[\"value\"] = $2;" js_setValue - :: HTMLOutputElement -> Nullable JSString -> IO () - --- | -setValue :: - (MonadIO m, ToJSString val) => - HTMLOutputElement -> Maybe val -> m () -setValue self val - = liftIO (js_setValue (self) (toMaybeJSString val)) - -foreign import javascript unsafe "$1[\"value\"]" js_getValue :: - HTMLOutputElement -> IO (Nullable JSString) - --- | -getValue :: - (MonadIO m, FromJSString result) => - HTMLOutputElement -> m (Maybe result) -getValue self = liftIO (fromMaybeJSString <$> (js_getValue (self))) - -foreign import javascript unsafe "($1[\"willValidate\"] ? 1 : 0)" - js_getWillValidate :: HTMLOutputElement -> IO Bool - --- | -getWillValidate :: (MonadIO m) => HTMLOutputElement -> m Bool -getWillValidate self = liftIO (js_getWillValidate (self)) - -foreign import javascript unsafe "$1[\"validity\"]" js_getValidity - :: HTMLOutputElement -> IO (Nullable ValidityState) - --- | -getValidity :: - (MonadIO m) => HTMLOutputElement -> m (Maybe ValidityState) -getValidity self - = liftIO (nullableToMaybe <$> (js_getValidity (self))) - -foreign import javascript unsafe "$1[\"validationMessage\"]" - js_getValidationMessage :: HTMLOutputElement -> IO JSString - --- | -getValidationMessage :: - (MonadIO m, FromJSString result) => HTMLOutputElement -> m result -getValidationMessage self - = liftIO (fromJSString <$> (js_getValidationMessage (self))) - -foreign import javascript unsafe "$1[\"labels\"]" js_getLabels :: - HTMLOutputElement -> IO (Nullable NodeList) - --- | -getLabels :: (MonadIO m) => HTMLOutputElement -> m (Maybe NodeList) -getLabels self = liftIO (nullableToMaybe <$> (js_getLabels (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/HTMLParagraphElement.hs b/src/GHCJS/DOM/JSFFI/Generated/HTMLParagraphElement.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/HTMLParagraphElement.hs +++ /dev/null @@ -1,37 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.HTMLParagraphElement - (js_setAlign, setAlign, js_getAlign, getAlign, - HTMLParagraphElement, castToHTMLParagraphElement, - gTypeHTMLParagraphElement) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"align\"] = $2;" js_setAlign - :: HTMLParagraphElement -> JSString -> IO () - --- | -setAlign :: - (MonadIO m, ToJSString val) => HTMLParagraphElement -> val -> m () -setAlign self val = liftIO (js_setAlign (self) (toJSString val)) - -foreign import javascript unsafe "$1[\"align\"]" js_getAlign :: - HTMLParagraphElement -> IO JSString - --- | -getAlign :: - (MonadIO m, FromJSString result) => - HTMLParagraphElement -> m result -getAlign self = liftIO (fromJSString <$> (js_getAlign (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/HTMLParamElement.hs b/src/GHCJS/DOM/JSFFI/Generated/HTMLParamElement.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/HTMLParamElement.hs +++ /dev/null @@ -1,87 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.HTMLParamElement - (js_setName, setName, js_getName, getName, js_setType, setType, - js_getType, getType, js_setValue, setValue, js_getValue, getValue, - js_setValueType, setValueType, js_getValueType, getValueType, - HTMLParamElement, castToHTMLParamElement, gTypeHTMLParamElement) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"name\"] = $2;" js_setName :: - HTMLParamElement -> JSString -> IO () - --- | -setName :: - (MonadIO m, ToJSString val) => HTMLParamElement -> val -> m () -setName self val = liftIO (js_setName (self) (toJSString val)) - -foreign import javascript unsafe "$1[\"name\"]" js_getName :: - HTMLParamElement -> IO JSString - --- | -getName :: - (MonadIO m, FromJSString result) => HTMLParamElement -> m result -getName self = liftIO (fromJSString <$> (js_getName (self))) - -foreign import javascript unsafe "$1[\"type\"] = $2;" js_setType :: - HTMLParamElement -> JSString -> IO () - --- | -setType :: - (MonadIO m, ToJSString val) => HTMLParamElement -> val -> m () -setType self val = liftIO (js_setType (self) (toJSString val)) - -foreign import javascript unsafe "$1[\"type\"]" js_getType :: - HTMLParamElement -> IO JSString - --- | -getType :: - (MonadIO m, FromJSString result) => HTMLParamElement -> m result -getType self = liftIO (fromJSString <$> (js_getType (self))) - -foreign import javascript unsafe "$1[\"value\"] = $2;" js_setValue - :: HTMLParamElement -> JSString -> IO () - --- | -setValue :: - (MonadIO m, ToJSString val) => HTMLParamElement -> val -> m () -setValue self val = liftIO (js_setValue (self) (toJSString val)) - -foreign import javascript unsafe "$1[\"value\"]" js_getValue :: - HTMLParamElement -> IO JSString - --- | -getValue :: - (MonadIO m, FromJSString result) => HTMLParamElement -> m result -getValue self = liftIO (fromJSString <$> (js_getValue (self))) - -foreign import javascript unsafe "$1[\"valueType\"] = $2;" - js_setValueType :: HTMLParamElement -> JSString -> IO () - --- | -setValueType :: - (MonadIO m, ToJSString val) => HTMLParamElement -> val -> m () -setValueType self val - = liftIO (js_setValueType (self) (toJSString val)) - -foreign import javascript unsafe "$1[\"valueType\"]" - js_getValueType :: HTMLParamElement -> IO JSString - --- | -getValueType :: - (MonadIO m, FromJSString result) => HTMLParamElement -> m result -getValueType self - = liftIO (fromJSString <$> (js_getValueType (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/HTMLPreElement.hs b/src/GHCJS/DOM/JSFFI/Generated/HTMLPreElement.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/HTMLPreElement.hs +++ /dev/null @@ -1,48 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.HTMLPreElement - (js_setWidth, setWidth, js_getWidth, getWidth, js_setWrap, setWrap, - js_getWrap, getWrap, HTMLPreElement, castToHTMLPreElement, - gTypeHTMLPreElement) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"width\"] = $2;" js_setWidth - :: HTMLPreElement -> Int -> IO () - --- | -setWidth :: (MonadIO m) => HTMLPreElement -> Int -> m () -setWidth self val = liftIO (js_setWidth (self) val) - -foreign import javascript unsafe "$1[\"width\"]" js_getWidth :: - HTMLPreElement -> IO Int - --- | -getWidth :: (MonadIO m) => HTMLPreElement -> m Int -getWidth self = liftIO (js_getWidth (self)) - -foreign import javascript unsafe "$1[\"wrap\"] = $2;" js_setWrap :: - HTMLPreElement -> Bool -> IO () - --- | -setWrap :: (MonadIO m) => HTMLPreElement -> Bool -> m () -setWrap self val = liftIO (js_setWrap (self) val) - -foreign import javascript unsafe "($1[\"wrap\"] ? 1 : 0)" - js_getWrap :: HTMLPreElement -> IO Bool - --- | -getWrap :: (MonadIO m) => HTMLPreElement -> m Bool -getWrap self = liftIO (js_getWrap (self)) diff --git a/src/GHCJS/DOM/JSFFI/Generated/HTMLProgressElement.hs b/src/GHCJS/DOM/JSFFI/Generated/HTMLProgressElement.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/HTMLProgressElement.hs +++ /dev/null @@ -1,64 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.HTMLProgressElement - (js_setValue, setValue, js_getValue, getValue, js_setMax, setMax, - js_getMax, getMax, js_getPosition, getPosition, js_getLabels, - getLabels, HTMLProgressElement, castToHTMLProgressElement, - gTypeHTMLProgressElement) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"value\"] = $2;" js_setValue - :: HTMLProgressElement -> Double -> IO () - --- | -setValue :: (MonadIO m) => HTMLProgressElement -> Double -> m () -setValue self val = liftIO (js_setValue (self) val) - -foreign import javascript unsafe "$1[\"value\"]" js_getValue :: - HTMLProgressElement -> IO Double - --- | -getValue :: (MonadIO m) => HTMLProgressElement -> m Double -getValue self = liftIO (js_getValue (self)) - -foreign import javascript unsafe "$1[\"max\"] = $2;" js_setMax :: - HTMLProgressElement -> Double -> IO () - --- | -setMax :: (MonadIO m) => HTMLProgressElement -> Double -> m () -setMax self val = liftIO (js_setMax (self) val) - -foreign import javascript unsafe "$1[\"max\"]" js_getMax :: - HTMLProgressElement -> IO Double - --- | -getMax :: (MonadIO m) => HTMLProgressElement -> m Double -getMax self = liftIO (js_getMax (self)) - -foreign import javascript unsafe "$1[\"position\"]" js_getPosition - :: HTMLProgressElement -> IO Double - --- | -getPosition :: (MonadIO m) => HTMLProgressElement -> m Double -getPosition self = liftIO (js_getPosition (self)) - -foreign import javascript unsafe "$1[\"labels\"]" js_getLabels :: - HTMLProgressElement -> IO (Nullable NodeList) - --- | -getLabels :: - (MonadIO m) => HTMLProgressElement -> m (Maybe NodeList) -getLabels self = liftIO (nullableToMaybe <$> (js_getLabels (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/HTMLQuoteElement.hs b/src/GHCJS/DOM/JSFFI/Generated/HTMLQuoteElement.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/HTMLQuoteElement.hs +++ /dev/null @@ -1,35 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.HTMLQuoteElement - (js_setCite, setCite, js_getCite, getCite, HTMLQuoteElement, - castToHTMLQuoteElement, gTypeHTMLQuoteElement) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"cite\"] = $2;" js_setCite :: - HTMLQuoteElement -> JSString -> IO () - --- | -setCite :: - (MonadIO m, ToJSString val) => HTMLQuoteElement -> val -> m () -setCite self val = liftIO (js_setCite (self) (toJSString val)) - -foreign import javascript unsafe "$1[\"cite\"]" js_getCite :: - HTMLQuoteElement -> IO JSString - --- | -getCite :: - (MonadIO m, FromJSString result) => HTMLQuoteElement -> m result -getCite self = liftIO (fromJSString <$> (js_getCite (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/HTMLScriptElement.hs b/src/GHCJS/DOM/JSFFI/Generated/HTMLScriptElement.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/HTMLScriptElement.hs +++ /dev/null @@ -1,188 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.HTMLScriptElement - (js_setText, setText, js_getText, getText, js_setHtmlFor, - setHtmlFor, js_getHtmlFor, getHtmlFor, js_setEvent, setEvent, - js_getEvent, getEvent, js_setCharset, setCharset, js_getCharset, - getCharset, js_setAsync, setAsync, js_getAsync, getAsync, - js_setDefer, setDefer, js_getDefer, getDefer, js_setSrc, setSrc, - js_getSrc, getSrc, js_setType, setType, js_getType, getType, - js_setCrossOrigin, setCrossOrigin, js_getCrossOrigin, - getCrossOrigin, js_setNonce, setNonce, js_getNonce, getNonce, - HTMLScriptElement, castToHTMLScriptElement, gTypeHTMLScriptElement) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"text\"] = $2;" js_setText :: - HTMLScriptElement -> Nullable JSString -> IO () - --- | -setText :: - (MonadIO m, ToJSString val) => - HTMLScriptElement -> Maybe val -> m () -setText self val = liftIO (js_setText (self) (toMaybeJSString val)) - -foreign import javascript unsafe "$1[\"text\"]" js_getText :: - HTMLScriptElement -> IO (Nullable JSString) - --- | -getText :: - (MonadIO m, FromJSString result) => - HTMLScriptElement -> m (Maybe result) -getText self = liftIO (fromMaybeJSString <$> (js_getText (self))) - -foreign import javascript unsafe "$1[\"htmlFor\"] = $2;" - js_setHtmlFor :: HTMLScriptElement -> JSString -> IO () - --- | -setHtmlFor :: - (MonadIO m, ToJSString val) => HTMLScriptElement -> val -> m () -setHtmlFor self val - = liftIO (js_setHtmlFor (self) (toJSString val)) - -foreign import javascript unsafe "$1[\"htmlFor\"]" js_getHtmlFor :: - HTMLScriptElement -> IO JSString - --- | -getHtmlFor :: - (MonadIO m, FromJSString result) => HTMLScriptElement -> m result -getHtmlFor self = liftIO (fromJSString <$> (js_getHtmlFor (self))) - -foreign import javascript unsafe "$1[\"event\"] = $2;" js_setEvent - :: HTMLScriptElement -> JSString -> IO () - --- | -setEvent :: - (MonadIO m, ToJSString val) => HTMLScriptElement -> val -> m () -setEvent self val = liftIO (js_setEvent (self) (toJSString val)) - -foreign import javascript unsafe "$1[\"event\"]" js_getEvent :: - HTMLScriptElement -> IO JSString - --- | -getEvent :: - (MonadIO m, FromJSString result) => HTMLScriptElement -> m result -getEvent self = liftIO (fromJSString <$> (js_getEvent (self))) - -foreign import javascript unsafe "$1[\"charset\"] = $2;" - js_setCharset :: HTMLScriptElement -> JSString -> IO () - --- | -setCharset :: - (MonadIO m, ToJSString val) => HTMLScriptElement -> val -> m () -setCharset self val - = liftIO (js_setCharset (self) (toJSString val)) - -foreign import javascript unsafe "$1[\"charset\"]" js_getCharset :: - HTMLScriptElement -> IO JSString - --- | -getCharset :: - (MonadIO m, FromJSString result) => HTMLScriptElement -> m result -getCharset self = liftIO (fromJSString <$> (js_getCharset (self))) - -foreign import javascript unsafe "$1[\"async\"] = $2;" js_setAsync - :: HTMLScriptElement -> Bool -> IO () - --- | -setAsync :: (MonadIO m) => HTMLScriptElement -> Bool -> m () -setAsync self val = liftIO (js_setAsync (self) val) - -foreign import javascript unsafe "($1[\"async\"] ? 1 : 0)" - js_getAsync :: HTMLScriptElement -> IO Bool - --- | -getAsync :: (MonadIO m) => HTMLScriptElement -> m Bool -getAsync self = liftIO (js_getAsync (self)) - -foreign import javascript unsafe "$1[\"defer\"] = $2;" js_setDefer - :: HTMLScriptElement -> Bool -> IO () - --- | -setDefer :: (MonadIO m) => HTMLScriptElement -> Bool -> m () -setDefer self val = liftIO (js_setDefer (self) val) - -foreign import javascript unsafe "($1[\"defer\"] ? 1 : 0)" - js_getDefer :: HTMLScriptElement -> IO Bool - --- | -getDefer :: (MonadIO m) => HTMLScriptElement -> m Bool -getDefer self = liftIO (js_getDefer (self)) - -foreign import javascript unsafe "$1[\"src\"] = $2;" js_setSrc :: - HTMLScriptElement -> JSString -> IO () - --- | -setSrc :: - (MonadIO m, ToJSString val) => HTMLScriptElement -> val -> m () -setSrc self val = liftIO (js_setSrc (self) (toJSString val)) - -foreign import javascript unsafe "$1[\"src\"]" js_getSrc :: - HTMLScriptElement -> IO JSString - --- | -getSrc :: - (MonadIO m, FromJSString result) => HTMLScriptElement -> m result -getSrc self = liftIO (fromJSString <$> (js_getSrc (self))) - -foreign import javascript unsafe "$1[\"type\"] = $2;" js_setType :: - HTMLScriptElement -> JSString -> IO () - --- | -setType :: - (MonadIO m, ToJSString val) => HTMLScriptElement -> val -> m () -setType self val = liftIO (js_setType (self) (toJSString val)) - -foreign import javascript unsafe "$1[\"type\"]" js_getType :: - HTMLScriptElement -> IO JSString - --- | -getType :: - (MonadIO m, FromJSString result) => HTMLScriptElement -> m result -getType self = liftIO (fromJSString <$> (js_getType (self))) - -foreign import javascript unsafe "$1[\"crossOrigin\"] = $2;" - js_setCrossOrigin :: HTMLScriptElement -> JSString -> IO () - --- | -setCrossOrigin :: - (MonadIO m, ToJSString val) => HTMLScriptElement -> val -> m () -setCrossOrigin self val - = liftIO (js_setCrossOrigin (self) (toJSString val)) - -foreign import javascript unsafe "$1[\"crossOrigin\"]" - js_getCrossOrigin :: HTMLScriptElement -> IO JSString - --- | -getCrossOrigin :: - (MonadIO m, FromJSString result) => HTMLScriptElement -> m result -getCrossOrigin self - = liftIO (fromJSString <$> (js_getCrossOrigin (self))) - -foreign import javascript unsafe "$1[\"nonce\"] = $2;" js_setNonce - :: HTMLScriptElement -> JSString -> IO () - --- | -setNonce :: - (MonadIO m, ToJSString val) => HTMLScriptElement -> val -> m () -setNonce self val = liftIO (js_setNonce (self) (toJSString val)) - -foreign import javascript unsafe "$1[\"nonce\"]" js_getNonce :: - HTMLScriptElement -> IO JSString - --- | -getNonce :: - (MonadIO m, FromJSString result) => HTMLScriptElement -> m result -getNonce self = liftIO (fromJSString <$> (js_getNonce (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/HTMLSelectElement.hs b/src/GHCJS/DOM/JSFFI/Generated/HTMLSelectElement.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/HTMLSelectElement.hs +++ /dev/null @@ -1,305 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.HTMLSelectElement - (js_item, item, js_namedItem, namedItem, js_addBefore, addBefore, - js_add, add, js_remove, remove, js_checkValidity, checkValidity, - js_setCustomValidity, setCustomValidity, js_setAutofocus, - setAutofocus, js_getAutofocus, getAutofocus, js_setDisabled, - setDisabled, js_getDisabled, getDisabled, js_getForm, getForm, - js_setMultiple, setMultiple, js_getMultiple, getMultiple, - js_setName, setName, js_getName, getName, js_setRequired, - setRequired, js_getRequired, getRequired, js_setSize, setSize, - js_getSize, getSize, js_getType, getType, js_getOptions, - getOptions, js_setLength, setLength, js_getLength, getLength, - js_getSelectedOptions, getSelectedOptions, js_setSelectedIndex, - setSelectedIndex, js_getSelectedIndex, getSelectedIndex, - js_setValue, setValue, js_getValue, getValue, js_getWillValidate, - getWillValidate, js_getValidity, getValidity, - js_getValidationMessage, getValidationMessage, js_getLabels, - getLabels, HTMLSelectElement, castToHTMLSelectElement, - gTypeHTMLSelectElement) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"item\"]($2)" js_item :: - HTMLSelectElement -> Word -> IO (Nullable Node) - --- | -item :: (MonadIO m) => HTMLSelectElement -> Word -> m (Maybe Node) -item self index - = liftIO (nullableToMaybe <$> (js_item (self) index)) - -foreign import javascript unsafe "$1[\"namedItem\"]($2)" - js_namedItem :: HTMLSelectElement -> JSString -> IO (Nullable Node) - --- | -namedItem :: - (MonadIO m, ToJSString name) => - HTMLSelectElement -> name -> m (Maybe Node) -namedItem self name - = liftIO - (nullableToMaybe <$> (js_namedItem (self) (toJSString name))) - -foreign import javascript unsafe "$1[\"add\"]($2, $3)" js_addBefore - :: - HTMLSelectElement -> - Nullable HTMLElement -> Nullable HTMLElement -> IO () - --- | -addBefore :: - (MonadIO m, IsHTMLElement element, IsHTMLElement before) => - HTMLSelectElement -> Maybe element -> Maybe before -> m () -addBefore self element before - = liftIO - (js_addBefore (self) (maybeToNullable (fmap toHTMLElement element)) - (maybeToNullable (fmap toHTMLElement before))) - -foreign import javascript unsafe "$1[\"add\"]($2, $3)" js_add :: - HTMLSelectElement -> Nullable HTMLElement -> Int -> IO () - --- | -add :: - (MonadIO m, IsHTMLElement element) => - HTMLSelectElement -> Maybe element -> Int -> m () -add self element index - = liftIO - (js_add (self) (maybeToNullable (fmap toHTMLElement element)) - index) - -foreign import javascript unsafe "$1[\"remove\"]()" js_remove :: - HTMLSelectElement -> IO () - --- | -remove :: (MonadIO m) => HTMLSelectElement -> m () -remove self = liftIO (js_remove (self)) - -foreign import javascript unsafe - "($1[\"checkValidity\"]() ? 1 : 0)" js_checkValidity :: - HTMLSelectElement -> IO Bool - --- | -checkValidity :: (MonadIO m) => HTMLSelectElement -> m Bool -checkValidity self = liftIO (js_checkValidity (self)) - -foreign import javascript unsafe "$1[\"setCustomValidity\"]($2)" - js_setCustomValidity :: - HTMLSelectElement -> Nullable JSString -> IO () - --- | -setCustomValidity :: - (MonadIO m, ToJSString error) => - HTMLSelectElement -> Maybe error -> m () -setCustomValidity self error - = liftIO (js_setCustomValidity (self) (toMaybeJSString error)) - -foreign import javascript unsafe "$1[\"autofocus\"] = $2;" - js_setAutofocus :: HTMLSelectElement -> Bool -> IO () - --- | -setAutofocus :: (MonadIO m) => HTMLSelectElement -> Bool -> m () -setAutofocus self val = liftIO (js_setAutofocus (self) val) - -foreign import javascript unsafe "($1[\"autofocus\"] ? 1 : 0)" - js_getAutofocus :: HTMLSelectElement -> IO Bool - --- | -getAutofocus :: (MonadIO m) => HTMLSelectElement -> m Bool -getAutofocus self = liftIO (js_getAutofocus (self)) - -foreign import javascript unsafe "$1[\"disabled\"] = $2;" - js_setDisabled :: HTMLSelectElement -> Bool -> IO () - --- | -setDisabled :: (MonadIO m) => HTMLSelectElement -> Bool -> m () -setDisabled self val = liftIO (js_setDisabled (self) val) - -foreign import javascript unsafe "($1[\"disabled\"] ? 1 : 0)" - js_getDisabled :: HTMLSelectElement -> IO Bool - --- | -getDisabled :: (MonadIO m) => HTMLSelectElement -> m Bool -getDisabled self = liftIO (js_getDisabled (self)) - -foreign import javascript unsafe "$1[\"form\"]" js_getForm :: - HTMLSelectElement -> IO (Nullable HTMLFormElement) - --- | -getForm :: - (MonadIO m) => HTMLSelectElement -> m (Maybe HTMLFormElement) -getForm self = liftIO (nullableToMaybe <$> (js_getForm (self))) - -foreign import javascript unsafe "$1[\"multiple\"] = $2;" - js_setMultiple :: HTMLSelectElement -> Bool -> IO () - --- | -setMultiple :: (MonadIO m) => HTMLSelectElement -> Bool -> m () -setMultiple self val = liftIO (js_setMultiple (self) val) - -foreign import javascript unsafe "($1[\"multiple\"] ? 1 : 0)" - js_getMultiple :: HTMLSelectElement -> IO Bool - --- | -getMultiple :: (MonadIO m) => HTMLSelectElement -> m Bool -getMultiple self = liftIO (js_getMultiple (self)) - -foreign import javascript unsafe "$1[\"name\"] = $2;" js_setName :: - HTMLSelectElement -> JSString -> IO () - --- | -setName :: - (MonadIO m, ToJSString val) => HTMLSelectElement -> val -> m () -setName self val = liftIO (js_setName (self) (toJSString val)) - -foreign import javascript unsafe "$1[\"name\"]" js_getName :: - HTMLSelectElement -> IO JSString - --- | -getName :: - (MonadIO m, FromJSString result) => HTMLSelectElement -> m result -getName self = liftIO (fromJSString <$> (js_getName (self))) - -foreign import javascript unsafe "$1[\"required\"] = $2;" - js_setRequired :: HTMLSelectElement -> Bool -> IO () - --- | -setRequired :: (MonadIO m) => HTMLSelectElement -> Bool -> m () -setRequired self val = liftIO (js_setRequired (self) val) - -foreign import javascript unsafe "($1[\"required\"] ? 1 : 0)" - js_getRequired :: HTMLSelectElement -> IO Bool - --- | -getRequired :: (MonadIO m) => HTMLSelectElement -> m Bool -getRequired self = liftIO (js_getRequired (self)) - -foreign import javascript unsafe "$1[\"size\"] = $2;" js_setSize :: - HTMLSelectElement -> Int -> IO () - --- | -setSize :: (MonadIO m) => HTMLSelectElement -> Int -> m () -setSize self val = liftIO (js_setSize (self) val) - -foreign import javascript unsafe "$1[\"size\"]" js_getSize :: - HTMLSelectElement -> IO Int - --- | -getSize :: (MonadIO m) => HTMLSelectElement -> m Int -getSize self = liftIO (js_getSize (self)) - -foreign import javascript unsafe "$1[\"type\"]" js_getType :: - HTMLSelectElement -> IO JSString - --- | -getType :: - (MonadIO m, FromJSString result) => HTMLSelectElement -> m result -getType self = liftIO (fromJSString <$> (js_getType (self))) - -foreign import javascript unsafe "$1[\"options\"]" js_getOptions :: - HTMLSelectElement -> IO (Nullable HTMLOptionsCollection) - --- | -getOptions :: - (MonadIO m) => HTMLSelectElement -> m (Maybe HTMLOptionsCollection) -getOptions self - = liftIO (nullableToMaybe <$> (js_getOptions (self))) - -foreign import javascript unsafe "$1[\"length\"] = $2;" - js_setLength :: HTMLSelectElement -> Word -> IO () - --- | -setLength :: (MonadIO m) => HTMLSelectElement -> Word -> m () -setLength self val = liftIO (js_setLength (self) val) - -foreign import javascript unsafe "$1[\"length\"]" js_getLength :: - HTMLSelectElement -> IO Word - --- | -getLength :: (MonadIO m) => HTMLSelectElement -> m Word -getLength self = liftIO (js_getLength (self)) - -foreign import javascript unsafe "$1[\"selectedOptions\"]" - js_getSelectedOptions :: - HTMLSelectElement -> IO (Nullable HTMLCollection) - --- | -getSelectedOptions :: - (MonadIO m) => HTMLSelectElement -> m (Maybe HTMLCollection) -getSelectedOptions self - = liftIO (nullableToMaybe <$> (js_getSelectedOptions (self))) - -foreign import javascript unsafe "$1[\"selectedIndex\"] = $2;" - js_setSelectedIndex :: HTMLSelectElement -> Int -> IO () - --- | -setSelectedIndex :: (MonadIO m) => HTMLSelectElement -> Int -> m () -setSelectedIndex self val = liftIO (js_setSelectedIndex (self) val) - -foreign import javascript unsafe "$1[\"selectedIndex\"]" - js_getSelectedIndex :: HTMLSelectElement -> IO Int - --- | -getSelectedIndex :: (MonadIO m) => HTMLSelectElement -> m Int -getSelectedIndex self = liftIO (js_getSelectedIndex (self)) - -foreign import javascript unsafe "$1[\"value\"] = $2;" js_setValue - :: HTMLSelectElement -> Nullable JSString -> IO () - --- | -setValue :: - (MonadIO m, ToJSString val) => - HTMLSelectElement -> Maybe val -> m () -setValue self val - = liftIO (js_setValue (self) (toMaybeJSString val)) - -foreign import javascript unsafe "$1[\"value\"]" js_getValue :: - HTMLSelectElement -> IO (Nullable JSString) - --- | -getValue :: - (MonadIO m, FromJSString result) => - HTMLSelectElement -> m (Maybe result) -getValue self = liftIO (fromMaybeJSString <$> (js_getValue (self))) - -foreign import javascript unsafe "($1[\"willValidate\"] ? 1 : 0)" - js_getWillValidate :: HTMLSelectElement -> IO Bool - --- | -getWillValidate :: (MonadIO m) => HTMLSelectElement -> m Bool -getWillValidate self = liftIO (js_getWillValidate (self)) - -foreign import javascript unsafe "$1[\"validity\"]" js_getValidity - :: HTMLSelectElement -> IO (Nullable ValidityState) - --- | -getValidity :: - (MonadIO m) => HTMLSelectElement -> m (Maybe ValidityState) -getValidity self - = liftIO (nullableToMaybe <$> (js_getValidity (self))) - -foreign import javascript unsafe "$1[\"validationMessage\"]" - js_getValidationMessage :: HTMLSelectElement -> IO JSString - --- | -getValidationMessage :: - (MonadIO m, FromJSString result) => HTMLSelectElement -> m result -getValidationMessage self - = liftIO (fromJSString <$> (js_getValidationMessage (self))) - -foreign import javascript unsafe "$1[\"labels\"]" js_getLabels :: - HTMLSelectElement -> IO (Nullable NodeList) - --- | -getLabels :: (MonadIO m) => HTMLSelectElement -> m (Maybe NodeList) -getLabels self = liftIO (nullableToMaybe <$> (js_getLabels (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/HTMLSourceElement.hs b/src/GHCJS/DOM/JSFFI/Generated/HTMLSourceElement.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/HTMLSourceElement.hs +++ /dev/null @@ -1,68 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.HTMLSourceElement - (js_setSrc, setSrc, js_getSrc, getSrc, js_setType, setType, - js_getType, getType, js_setMedia, setMedia, js_getMedia, getMedia, - HTMLSourceElement, castToHTMLSourceElement, gTypeHTMLSourceElement) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"src\"] = $2;" js_setSrc :: - HTMLSourceElement -> JSString -> IO () - --- | -setSrc :: - (MonadIO m, ToJSString val) => HTMLSourceElement -> val -> m () -setSrc self val = liftIO (js_setSrc (self) (toJSString val)) - -foreign import javascript unsafe "$1[\"src\"]" js_getSrc :: - HTMLSourceElement -> IO JSString - --- | -getSrc :: - (MonadIO m, FromJSString result) => HTMLSourceElement -> m result -getSrc self = liftIO (fromJSString <$> (js_getSrc (self))) - -foreign import javascript unsafe "$1[\"type\"] = $2;" js_setType :: - HTMLSourceElement -> JSString -> IO () - --- | -setType :: - (MonadIO m, ToJSString val) => HTMLSourceElement -> val -> m () -setType self val = liftIO (js_setType (self) (toJSString val)) - -foreign import javascript unsafe "$1[\"type\"]" js_getType :: - HTMLSourceElement -> IO JSString - --- | -getType :: - (MonadIO m, FromJSString result) => HTMLSourceElement -> m result -getType self = liftIO (fromJSString <$> (js_getType (self))) - -foreign import javascript unsafe "$1[\"media\"] = $2;" js_setMedia - :: HTMLSourceElement -> JSString -> IO () - --- | -setMedia :: - (MonadIO m, ToJSString val) => HTMLSourceElement -> val -> m () -setMedia self val = liftIO (js_setMedia (self) (toJSString val)) - -foreign import javascript unsafe "$1[\"media\"]" js_getMedia :: - HTMLSourceElement -> IO JSString - --- | -getMedia :: - (MonadIO m, FromJSString result) => HTMLSourceElement -> m result -getMedia self = liftIO (fromJSString <$> (js_getMedia (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/HTMLStyleElement.hs b/src/GHCJS/DOM/JSFFI/Generated/HTMLStyleElement.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/HTMLStyleElement.hs +++ /dev/null @@ -1,74 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.HTMLStyleElement - (js_setDisabled, setDisabled, js_getDisabled, getDisabled, - js_setMedia, setMedia, js_getMedia, getMedia, js_setType, setType, - js_getType, getType, js_getSheet, getSheet, HTMLStyleElement, - castToHTMLStyleElement, gTypeHTMLStyleElement) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"disabled\"] = $2;" - js_setDisabled :: HTMLStyleElement -> Bool -> IO () - --- | -setDisabled :: (MonadIO m) => HTMLStyleElement -> Bool -> m () -setDisabled self val = liftIO (js_setDisabled (self) val) - -foreign import javascript unsafe "($1[\"disabled\"] ? 1 : 0)" - js_getDisabled :: HTMLStyleElement -> IO Bool - --- | -getDisabled :: (MonadIO m) => HTMLStyleElement -> m Bool -getDisabled self = liftIO (js_getDisabled (self)) - -foreign import javascript unsafe "$1[\"media\"] = $2;" js_setMedia - :: HTMLStyleElement -> JSString -> IO () - --- | -setMedia :: - (MonadIO m, ToJSString val) => HTMLStyleElement -> val -> m () -setMedia self val = liftIO (js_setMedia (self) (toJSString val)) - -foreign import javascript unsafe "$1[\"media\"]" js_getMedia :: - HTMLStyleElement -> IO JSString - --- | -getMedia :: - (MonadIO m, FromJSString result) => HTMLStyleElement -> m result -getMedia self = liftIO (fromJSString <$> (js_getMedia (self))) - -foreign import javascript unsafe "$1[\"type\"] = $2;" js_setType :: - HTMLStyleElement -> JSString -> IO () - --- | -setType :: - (MonadIO m, ToJSString val) => HTMLStyleElement -> val -> m () -setType self val = liftIO (js_setType (self) (toJSString val)) - -foreign import javascript unsafe "$1[\"type\"]" js_getType :: - HTMLStyleElement -> IO JSString - --- | -getType :: - (MonadIO m, FromJSString result) => HTMLStyleElement -> m result -getType self = liftIO (fromJSString <$> (js_getType (self))) - -foreign import javascript unsafe "$1[\"sheet\"]" js_getSheet :: - HTMLStyleElement -> IO (Nullable StyleSheet) - --- | -getSheet :: (MonadIO m) => HTMLStyleElement -> m (Maybe StyleSheet) -getSheet self = liftIO (nullableToMaybe <$> (js_getSheet (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/HTMLTableCaptionElement.hs b/src/GHCJS/DOM/JSFFI/Generated/HTMLTableCaptionElement.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/HTMLTableCaptionElement.hs +++ /dev/null @@ -1,38 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.HTMLTableCaptionElement - (js_setAlign, setAlign, js_getAlign, getAlign, - HTMLTableCaptionElement, castToHTMLTableCaptionElement, - gTypeHTMLTableCaptionElement) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"align\"] = $2;" js_setAlign - :: HTMLTableCaptionElement -> JSString -> IO () - --- | -setAlign :: - (MonadIO m, ToJSString val) => - HTMLTableCaptionElement -> val -> m () -setAlign self val = liftIO (js_setAlign (self) (toJSString val)) - -foreign import javascript unsafe "$1[\"align\"]" js_getAlign :: - HTMLTableCaptionElement -> IO JSString - --- | -getAlign :: - (MonadIO m, FromJSString result) => - HTMLTableCaptionElement -> m result -getAlign self = liftIO (fromJSString <$> (js_getAlign (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/HTMLTableCellElement.hs b/src/GHCJS/DOM/JSFFI/Generated/HTMLTableCellElement.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/HTMLTableCellElement.hs +++ /dev/null @@ -1,268 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.HTMLTableCellElement - (js_getCellIndex, getCellIndex, js_setAbbr, setAbbr, js_getAbbr, - getAbbr, js_setAlign, setAlign, js_getAlign, getAlign, js_setAxis, - setAxis, js_getAxis, getAxis, js_setBgColor, setBgColor, - js_getBgColor, getBgColor, js_setCh, setCh, js_getCh, getCh, - js_setChOff, setChOff, js_getChOff, getChOff, js_setColSpan, - setColSpan, js_getColSpan, getColSpan, js_setHeaders, setHeaders, - js_getHeaders, getHeaders, js_setHeight, setHeight, js_getHeight, - getHeight, js_setNoWrap, setNoWrap, js_getNoWrap, getNoWrap, - js_setRowSpan, setRowSpan, js_getRowSpan, getRowSpan, js_setScope, - setScope, js_getScope, getScope, js_setVAlign, setVAlign, - js_getVAlign, getVAlign, js_setWidth, setWidth, js_getWidth, - getWidth, HTMLTableCellElement, castToHTMLTableCellElement, - gTypeHTMLTableCellElement) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"cellIndex\"]" - js_getCellIndex :: HTMLTableCellElement -> IO Int - --- | -getCellIndex :: (MonadIO m) => HTMLTableCellElement -> m Int -getCellIndex self = liftIO (js_getCellIndex (self)) - -foreign import javascript unsafe "$1[\"abbr\"] = $2;" js_setAbbr :: - HTMLTableCellElement -> JSString -> IO () - --- | -setAbbr :: - (MonadIO m, ToJSString val) => HTMLTableCellElement -> val -> m () -setAbbr self val = liftIO (js_setAbbr (self) (toJSString val)) - -foreign import javascript unsafe "$1[\"abbr\"]" js_getAbbr :: - HTMLTableCellElement -> IO JSString - --- | -getAbbr :: - (MonadIO m, FromJSString result) => - HTMLTableCellElement -> m result -getAbbr self = liftIO (fromJSString <$> (js_getAbbr (self))) - -foreign import javascript unsafe "$1[\"align\"] = $2;" js_setAlign - :: HTMLTableCellElement -> JSString -> IO () - --- | -setAlign :: - (MonadIO m, ToJSString val) => HTMLTableCellElement -> val -> m () -setAlign self val = liftIO (js_setAlign (self) (toJSString val)) - -foreign import javascript unsafe "$1[\"align\"]" js_getAlign :: - HTMLTableCellElement -> IO JSString - --- | -getAlign :: - (MonadIO m, FromJSString result) => - HTMLTableCellElement -> m result -getAlign self = liftIO (fromJSString <$> (js_getAlign (self))) - -foreign import javascript unsafe "$1[\"axis\"] = $2;" js_setAxis :: - HTMLTableCellElement -> JSString -> IO () - --- | -setAxis :: - (MonadIO m, ToJSString val) => HTMLTableCellElement -> val -> m () -setAxis self val = liftIO (js_setAxis (self) (toJSString val)) - -foreign import javascript unsafe "$1[\"axis\"]" js_getAxis :: - HTMLTableCellElement -> IO JSString - --- | -getAxis :: - (MonadIO m, FromJSString result) => - HTMLTableCellElement -> m result -getAxis self = liftIO (fromJSString <$> (js_getAxis (self))) - -foreign import javascript unsafe "$1[\"bgColor\"] = $2;" - js_setBgColor :: HTMLTableCellElement -> JSString -> IO () - --- | -setBgColor :: - (MonadIO m, ToJSString val) => HTMLTableCellElement -> val -> m () -setBgColor self val - = liftIO (js_setBgColor (self) (toJSString val)) - -foreign import javascript unsafe "$1[\"bgColor\"]" js_getBgColor :: - HTMLTableCellElement -> IO JSString - --- | -getBgColor :: - (MonadIO m, FromJSString result) => - HTMLTableCellElement -> m result -getBgColor self = liftIO (fromJSString <$> (js_getBgColor (self))) - -foreign import javascript unsafe "$1[\"ch\"] = $2;" js_setCh :: - HTMLTableCellElement -> JSString -> IO () - --- | -setCh :: - (MonadIO m, ToJSString val) => HTMLTableCellElement -> val -> m () -setCh self val = liftIO (js_setCh (self) (toJSString val)) - -foreign import javascript unsafe "$1[\"ch\"]" js_getCh :: - HTMLTableCellElement -> IO JSString - --- | -getCh :: - (MonadIO m, FromJSString result) => - HTMLTableCellElement -> m result -getCh self = liftIO (fromJSString <$> (js_getCh (self))) - -foreign import javascript unsafe "$1[\"chOff\"] = $2;" js_setChOff - :: HTMLTableCellElement -> JSString -> IO () - --- | -setChOff :: - (MonadIO m, ToJSString val) => HTMLTableCellElement -> val -> m () -setChOff self val = liftIO (js_setChOff (self) (toJSString val)) - -foreign import javascript unsafe "$1[\"chOff\"]" js_getChOff :: - HTMLTableCellElement -> IO JSString - --- | -getChOff :: - (MonadIO m, FromJSString result) => - HTMLTableCellElement -> m result -getChOff self = liftIO (fromJSString <$> (js_getChOff (self))) - -foreign import javascript unsafe "$1[\"colSpan\"] = $2;" - js_setColSpan :: HTMLTableCellElement -> Int -> IO () - --- | -setColSpan :: (MonadIO m) => HTMLTableCellElement -> Int -> m () -setColSpan self val = liftIO (js_setColSpan (self) val) - -foreign import javascript unsafe "$1[\"colSpan\"]" js_getColSpan :: - HTMLTableCellElement -> IO Int - --- | -getColSpan :: (MonadIO m) => HTMLTableCellElement -> m Int -getColSpan self = liftIO (js_getColSpan (self)) - -foreign import javascript unsafe "$1[\"headers\"] = $2;" - js_setHeaders :: HTMLTableCellElement -> JSString -> IO () - --- | -setHeaders :: - (MonadIO m, ToJSString val) => HTMLTableCellElement -> val -> m () -setHeaders self val - = liftIO (js_setHeaders (self) (toJSString val)) - -foreign import javascript unsafe "$1[\"headers\"]" js_getHeaders :: - HTMLTableCellElement -> IO JSString - --- | -getHeaders :: - (MonadIO m, FromJSString result) => - HTMLTableCellElement -> m result -getHeaders self = liftIO (fromJSString <$> (js_getHeaders (self))) - -foreign import javascript unsafe "$1[\"height\"] = $2;" - js_setHeight :: HTMLTableCellElement -> JSString -> IO () - --- | -setHeight :: - (MonadIO m, ToJSString val) => HTMLTableCellElement -> val -> m () -setHeight self val = liftIO (js_setHeight (self) (toJSString val)) - -foreign import javascript unsafe "$1[\"height\"]" js_getHeight :: - HTMLTableCellElement -> IO JSString - --- | -getHeight :: - (MonadIO m, FromJSString result) => - HTMLTableCellElement -> m result -getHeight self = liftIO (fromJSString <$> (js_getHeight (self))) - -foreign import javascript unsafe "$1[\"noWrap\"] = $2;" - js_setNoWrap :: HTMLTableCellElement -> Bool -> IO () - --- | -setNoWrap :: (MonadIO m) => HTMLTableCellElement -> Bool -> m () -setNoWrap self val = liftIO (js_setNoWrap (self) val) - -foreign import javascript unsafe "($1[\"noWrap\"] ? 1 : 0)" - js_getNoWrap :: HTMLTableCellElement -> IO Bool - --- | -getNoWrap :: (MonadIO m) => HTMLTableCellElement -> m Bool -getNoWrap self = liftIO (js_getNoWrap (self)) - -foreign import javascript unsafe "$1[\"rowSpan\"] = $2;" - js_setRowSpan :: HTMLTableCellElement -> Int -> IO () - --- | -setRowSpan :: (MonadIO m) => HTMLTableCellElement -> Int -> m () -setRowSpan self val = liftIO (js_setRowSpan (self) val) - -foreign import javascript unsafe "$1[\"rowSpan\"]" js_getRowSpan :: - HTMLTableCellElement -> IO Int - --- | -getRowSpan :: (MonadIO m) => HTMLTableCellElement -> m Int -getRowSpan self = liftIO (js_getRowSpan (self)) - -foreign import javascript unsafe "$1[\"scope\"] = $2;" js_setScope - :: HTMLTableCellElement -> JSString -> IO () - --- | -setScope :: - (MonadIO m, ToJSString val) => HTMLTableCellElement -> val -> m () -setScope self val = liftIO (js_setScope (self) (toJSString val)) - -foreign import javascript unsafe "$1[\"scope\"]" js_getScope :: - HTMLTableCellElement -> IO JSString - --- | -getScope :: - (MonadIO m, FromJSString result) => - HTMLTableCellElement -> m result -getScope self = liftIO (fromJSString <$> (js_getScope (self))) - -foreign import javascript unsafe "$1[\"vAlign\"] = $2;" - js_setVAlign :: HTMLTableCellElement -> JSString -> IO () - --- | -setVAlign :: - (MonadIO m, ToJSString val) => HTMLTableCellElement -> val -> m () -setVAlign self val = liftIO (js_setVAlign (self) (toJSString val)) - -foreign import javascript unsafe "$1[\"vAlign\"]" js_getVAlign :: - HTMLTableCellElement -> IO JSString - --- | -getVAlign :: - (MonadIO m, FromJSString result) => - HTMLTableCellElement -> m result -getVAlign self = liftIO (fromJSString <$> (js_getVAlign (self))) - -foreign import javascript unsafe "$1[\"width\"] = $2;" js_setWidth - :: HTMLTableCellElement -> JSString -> IO () - --- | -setWidth :: - (MonadIO m, ToJSString val) => HTMLTableCellElement -> val -> m () -setWidth self val = liftIO (js_setWidth (self) (toJSString val)) - -foreign import javascript unsafe "$1[\"width\"]" js_getWidth :: - HTMLTableCellElement -> IO JSString - --- | -getWidth :: - (MonadIO m, FromJSString result) => - HTMLTableCellElement -> m result -getWidth self = liftIO (fromJSString <$> (js_getWidth (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/HTMLTableColElement.hs b/src/GHCJS/DOM/JSFFI/Generated/HTMLTableColElement.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/HTMLTableColElement.hs +++ /dev/null @@ -1,117 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.HTMLTableColElement - (js_setAlign, setAlign, js_getAlign, getAlign, js_setCh, setCh, - js_getCh, getCh, js_setChOff, setChOff, js_getChOff, getChOff, - js_setSpan, setSpan, js_getSpan, getSpan, js_setVAlign, setVAlign, - js_getVAlign, getVAlign, js_setWidth, setWidth, js_getWidth, - getWidth, HTMLTableColElement, castToHTMLTableColElement, - gTypeHTMLTableColElement) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"align\"] = $2;" js_setAlign - :: HTMLTableColElement -> JSString -> IO () - --- | -setAlign :: - (MonadIO m, ToJSString val) => HTMLTableColElement -> val -> m () -setAlign self val = liftIO (js_setAlign (self) (toJSString val)) - -foreign import javascript unsafe "$1[\"align\"]" js_getAlign :: - HTMLTableColElement -> IO JSString - --- | -getAlign :: - (MonadIO m, FromJSString result) => HTMLTableColElement -> m result -getAlign self = liftIO (fromJSString <$> (js_getAlign (self))) - -foreign import javascript unsafe "$1[\"ch\"] = $2;" js_setCh :: - HTMLTableColElement -> JSString -> IO () - --- | -setCh :: - (MonadIO m, ToJSString val) => HTMLTableColElement -> val -> m () -setCh self val = liftIO (js_setCh (self) (toJSString val)) - -foreign import javascript unsafe "$1[\"ch\"]" js_getCh :: - HTMLTableColElement -> IO JSString - --- | -getCh :: - (MonadIO m, FromJSString result) => HTMLTableColElement -> m result -getCh self = liftIO (fromJSString <$> (js_getCh (self))) - -foreign import javascript unsafe "$1[\"chOff\"] = $2;" js_setChOff - :: HTMLTableColElement -> JSString -> IO () - --- | -setChOff :: - (MonadIO m, ToJSString val) => HTMLTableColElement -> val -> m () -setChOff self val = liftIO (js_setChOff (self) (toJSString val)) - -foreign import javascript unsafe "$1[\"chOff\"]" js_getChOff :: - HTMLTableColElement -> IO JSString - --- | -getChOff :: - (MonadIO m, FromJSString result) => HTMLTableColElement -> m result -getChOff self = liftIO (fromJSString <$> (js_getChOff (self))) - -foreign import javascript unsafe "$1[\"span\"] = $2;" js_setSpan :: - HTMLTableColElement -> Int -> IO () - --- | -setSpan :: (MonadIO m) => HTMLTableColElement -> Int -> m () -setSpan self val = liftIO (js_setSpan (self) val) - -foreign import javascript unsafe "$1[\"span\"]" js_getSpan :: - HTMLTableColElement -> IO Int - --- | -getSpan :: (MonadIO m) => HTMLTableColElement -> m Int -getSpan self = liftIO (js_getSpan (self)) - -foreign import javascript unsafe "$1[\"vAlign\"] = $2;" - js_setVAlign :: HTMLTableColElement -> JSString -> IO () - --- | -setVAlign :: - (MonadIO m, ToJSString val) => HTMLTableColElement -> val -> m () -setVAlign self val = liftIO (js_setVAlign (self) (toJSString val)) - -foreign import javascript unsafe "$1[\"vAlign\"]" js_getVAlign :: - HTMLTableColElement -> IO JSString - --- | -getVAlign :: - (MonadIO m, FromJSString result) => HTMLTableColElement -> m result -getVAlign self = liftIO (fromJSString <$> (js_getVAlign (self))) - -foreign import javascript unsafe "$1[\"width\"] = $2;" js_setWidth - :: HTMLTableColElement -> JSString -> IO () - --- | -setWidth :: - (MonadIO m, ToJSString val) => HTMLTableColElement -> val -> m () -setWidth self val = liftIO (js_setWidth (self) (toJSString val)) - -foreign import javascript unsafe "$1[\"width\"]" js_getWidth :: - HTMLTableColElement -> IO JSString - --- | -getWidth :: - (MonadIO m, FromJSString result) => HTMLTableColElement -> m result -getWidth self = liftIO (fromJSString <$> (js_getWidth (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/HTMLTableElement.hs b/src/GHCJS/DOM/JSFFI/Generated/HTMLTableElement.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/HTMLTableElement.hs +++ /dev/null @@ -1,334 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.HTMLTableElement - (js_createTHead, createTHead, js_deleteTHead, deleteTHead, - js_createTFoot, createTFoot, js_deleteTFoot, deleteTFoot, - js_createTBody, createTBody, js_createCaption, createCaption, - js_deleteCaption, deleteCaption, js_insertRow, insertRow, - js_deleteRow, deleteRow, js_setCaption, setCaption, js_getCaption, - getCaption, js_setTHead, setTHead, js_getTHead, getTHead, - js_setTFoot, setTFoot, js_getTFoot, getTFoot, js_getRows, getRows, - js_getTBodies, getTBodies, js_setAlign, setAlign, js_getAlign, - getAlign, js_setBgColor, setBgColor, js_getBgColor, getBgColor, - js_setBorder, setBorder, js_getBorder, getBorder, - js_setCellPadding, setCellPadding, js_getCellPadding, - getCellPadding, js_setCellSpacing, setCellSpacing, - js_getCellSpacing, getCellSpacing, js_setFrame, setFrame, - js_getFrame, getFrame, js_setRules, setRules, js_getRules, - getRules, js_setSummary, setSummary, js_getSummary, getSummary, - js_setWidth, setWidth, js_getWidth, getWidth, HTMLTableElement, - castToHTMLTableElement, gTypeHTMLTableElement) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"createTHead\"]()" - js_createTHead :: HTMLTableElement -> IO (Nullable HTMLElement) - --- | -createTHead :: - (MonadIO m) => HTMLTableElement -> m (Maybe HTMLElement) -createTHead self - = liftIO (nullableToMaybe <$> (js_createTHead (self))) - -foreign import javascript unsafe "$1[\"deleteTHead\"]()" - js_deleteTHead :: HTMLTableElement -> IO () - --- | -deleteTHead :: (MonadIO m) => HTMLTableElement -> m () -deleteTHead self = liftIO (js_deleteTHead (self)) - -foreign import javascript unsafe "$1[\"createTFoot\"]()" - js_createTFoot :: HTMLTableElement -> IO (Nullable HTMLElement) - --- | -createTFoot :: - (MonadIO m) => HTMLTableElement -> m (Maybe HTMLElement) -createTFoot self - = liftIO (nullableToMaybe <$> (js_createTFoot (self))) - -foreign import javascript unsafe "$1[\"deleteTFoot\"]()" - js_deleteTFoot :: HTMLTableElement -> IO () - --- | -deleteTFoot :: (MonadIO m) => HTMLTableElement -> m () -deleteTFoot self = liftIO (js_deleteTFoot (self)) - -foreign import javascript unsafe "$1[\"createTBody\"]()" - js_createTBody :: HTMLTableElement -> IO (Nullable HTMLElement) - --- | -createTBody :: - (MonadIO m) => HTMLTableElement -> m (Maybe HTMLElement) -createTBody self - = liftIO (nullableToMaybe <$> (js_createTBody (self))) - -foreign import javascript unsafe "$1[\"createCaption\"]()" - js_createCaption :: HTMLTableElement -> IO (Nullable HTMLElement) - --- | -createCaption :: - (MonadIO m) => HTMLTableElement -> m (Maybe HTMLElement) -createCaption self - = liftIO (nullableToMaybe <$> (js_createCaption (self))) - -foreign import javascript unsafe "$1[\"deleteCaption\"]()" - js_deleteCaption :: HTMLTableElement -> IO () - --- | -deleteCaption :: (MonadIO m) => HTMLTableElement -> m () -deleteCaption self = liftIO (js_deleteCaption (self)) - -foreign import javascript unsafe "$1[\"insertRow\"]($2)" - js_insertRow :: - HTMLTableElement -> Int -> IO (Nullable HTMLElement) - --- | -insertRow :: - (MonadIO m) => HTMLTableElement -> Int -> m (Maybe HTMLElement) -insertRow self index - = liftIO (nullableToMaybe <$> (js_insertRow (self) index)) - -foreign import javascript unsafe "$1[\"deleteRow\"]($2)" - js_deleteRow :: HTMLTableElement -> Int -> IO () - --- | -deleteRow :: (MonadIO m) => HTMLTableElement -> Int -> m () -deleteRow self index = liftIO (js_deleteRow (self) index) - -foreign import javascript unsafe "$1[\"caption\"] = $2;" - js_setCaption :: - HTMLTableElement -> Nullable HTMLTableCaptionElement -> IO () - --- | -setCaption :: - (MonadIO m) => - HTMLTableElement -> Maybe HTMLTableCaptionElement -> m () -setCaption self val - = liftIO (js_setCaption (self) (maybeToNullable val)) - -foreign import javascript unsafe "$1[\"caption\"]" js_getCaption :: - HTMLTableElement -> IO (Nullable HTMLTableCaptionElement) - --- | -getCaption :: - (MonadIO m) => - HTMLTableElement -> m (Maybe HTMLTableCaptionElement) -getCaption self - = liftIO (nullableToMaybe <$> (js_getCaption (self))) - -foreign import javascript unsafe "$1[\"tHead\"] = $2;" js_setTHead - :: HTMLTableElement -> Nullable HTMLTableSectionElement -> IO () - --- | -setTHead :: - (MonadIO m) => - HTMLTableElement -> Maybe HTMLTableSectionElement -> m () -setTHead self val - = liftIO (js_setTHead (self) (maybeToNullable val)) - -foreign import javascript unsafe "$1[\"tHead\"]" js_getTHead :: - HTMLTableElement -> IO (Nullable HTMLTableSectionElement) - --- | -getTHead :: - (MonadIO m) => - HTMLTableElement -> m (Maybe HTMLTableSectionElement) -getTHead self = liftIO (nullableToMaybe <$> (js_getTHead (self))) - -foreign import javascript unsafe "$1[\"tFoot\"] = $2;" js_setTFoot - :: HTMLTableElement -> Nullable HTMLTableSectionElement -> IO () - --- | -setTFoot :: - (MonadIO m) => - HTMLTableElement -> Maybe HTMLTableSectionElement -> m () -setTFoot self val - = liftIO (js_setTFoot (self) (maybeToNullable val)) - -foreign import javascript unsafe "$1[\"tFoot\"]" js_getTFoot :: - HTMLTableElement -> IO (Nullable HTMLTableSectionElement) - --- | -getTFoot :: - (MonadIO m) => - HTMLTableElement -> m (Maybe HTMLTableSectionElement) -getTFoot self = liftIO (nullableToMaybe <$> (js_getTFoot (self))) - -foreign import javascript unsafe "$1[\"rows\"]" js_getRows :: - HTMLTableElement -> IO (Nullable HTMLCollection) - --- | -getRows :: - (MonadIO m) => HTMLTableElement -> m (Maybe HTMLCollection) -getRows self = liftIO (nullableToMaybe <$> (js_getRows (self))) - -foreign import javascript unsafe "$1[\"tBodies\"]" js_getTBodies :: - HTMLTableElement -> IO (Nullable HTMLCollection) - --- | -getTBodies :: - (MonadIO m) => HTMLTableElement -> m (Maybe HTMLCollection) -getTBodies self - = liftIO (nullableToMaybe <$> (js_getTBodies (self))) - -foreign import javascript unsafe "$1[\"align\"] = $2;" js_setAlign - :: HTMLTableElement -> JSString -> IO () - --- | -setAlign :: - (MonadIO m, ToJSString val) => HTMLTableElement -> val -> m () -setAlign self val = liftIO (js_setAlign (self) (toJSString val)) - -foreign import javascript unsafe "$1[\"align\"]" js_getAlign :: - HTMLTableElement -> IO JSString - --- | -getAlign :: - (MonadIO m, FromJSString result) => HTMLTableElement -> m result -getAlign self = liftIO (fromJSString <$> (js_getAlign (self))) - -foreign import javascript unsafe "$1[\"bgColor\"] = $2;" - js_setBgColor :: HTMLTableElement -> JSString -> IO () - --- | -setBgColor :: - (MonadIO m, ToJSString val) => HTMLTableElement -> val -> m () -setBgColor self val - = liftIO (js_setBgColor (self) (toJSString val)) - -foreign import javascript unsafe "$1[\"bgColor\"]" js_getBgColor :: - HTMLTableElement -> IO JSString - --- | -getBgColor :: - (MonadIO m, FromJSString result) => HTMLTableElement -> m result -getBgColor self = liftIO (fromJSString <$> (js_getBgColor (self))) - -foreign import javascript unsafe "$1[\"border\"] = $2;" - js_setBorder :: HTMLTableElement -> JSString -> IO () - --- | -setBorder :: - (MonadIO m, ToJSString val) => HTMLTableElement -> val -> m () -setBorder self val = liftIO (js_setBorder (self) (toJSString val)) - -foreign import javascript unsafe "$1[\"border\"]" js_getBorder :: - HTMLTableElement -> IO JSString - --- | -getBorder :: - (MonadIO m, FromJSString result) => HTMLTableElement -> m result -getBorder self = liftIO (fromJSString <$> (js_getBorder (self))) - -foreign import javascript unsafe "$1[\"cellPadding\"] = $2;" - js_setCellPadding :: HTMLTableElement -> JSString -> IO () - --- | -setCellPadding :: - (MonadIO m, ToJSString val) => HTMLTableElement -> val -> m () -setCellPadding self val - = liftIO (js_setCellPadding (self) (toJSString val)) - -foreign import javascript unsafe "$1[\"cellPadding\"]" - js_getCellPadding :: HTMLTableElement -> IO JSString - --- | -getCellPadding :: - (MonadIO m, FromJSString result) => HTMLTableElement -> m result -getCellPadding self - = liftIO (fromJSString <$> (js_getCellPadding (self))) - -foreign import javascript unsafe "$1[\"cellSpacing\"] = $2;" - js_setCellSpacing :: HTMLTableElement -> JSString -> IO () - --- | -setCellSpacing :: - (MonadIO m, ToJSString val) => HTMLTableElement -> val -> m () -setCellSpacing self val - = liftIO (js_setCellSpacing (self) (toJSString val)) - -foreign import javascript unsafe "$1[\"cellSpacing\"]" - js_getCellSpacing :: HTMLTableElement -> IO JSString - --- | -getCellSpacing :: - (MonadIO m, FromJSString result) => HTMLTableElement -> m result -getCellSpacing self - = liftIO (fromJSString <$> (js_getCellSpacing (self))) - -foreign import javascript unsafe "$1[\"frame\"] = $2;" js_setFrame - :: HTMLTableElement -> JSString -> IO () - --- | -setFrame :: - (MonadIO m, ToJSString val) => HTMLTableElement -> val -> m () -setFrame self val = liftIO (js_setFrame (self) (toJSString val)) - -foreign import javascript unsafe "$1[\"frame\"]" js_getFrame :: - HTMLTableElement -> IO JSString - --- | -getFrame :: - (MonadIO m, FromJSString result) => HTMLTableElement -> m result -getFrame self = liftIO (fromJSString <$> (js_getFrame (self))) - -foreign import javascript unsafe "$1[\"rules\"] = $2;" js_setRules - :: HTMLTableElement -> JSString -> IO () - --- | -setRules :: - (MonadIO m, ToJSString val) => HTMLTableElement -> val -> m () -setRules self val = liftIO (js_setRules (self) (toJSString val)) - -foreign import javascript unsafe "$1[\"rules\"]" js_getRules :: - HTMLTableElement -> IO JSString - --- | -getRules :: - (MonadIO m, FromJSString result) => HTMLTableElement -> m result -getRules self = liftIO (fromJSString <$> (js_getRules (self))) - -foreign import javascript unsafe "$1[\"summary\"] = $2;" - js_setSummary :: HTMLTableElement -> JSString -> IO () - --- | -setSummary :: - (MonadIO m, ToJSString val) => HTMLTableElement -> val -> m () -setSummary self val - = liftIO (js_setSummary (self) (toJSString val)) - -foreign import javascript unsafe "$1[\"summary\"]" js_getSummary :: - HTMLTableElement -> IO JSString - --- | -getSummary :: - (MonadIO m, FromJSString result) => HTMLTableElement -> m result -getSummary self = liftIO (fromJSString <$> (js_getSummary (self))) - -foreign import javascript unsafe "$1[\"width\"] = $2;" js_setWidth - :: HTMLTableElement -> JSString -> IO () - --- | -setWidth :: - (MonadIO m, ToJSString val) => HTMLTableElement -> val -> m () -setWidth self val = liftIO (js_setWidth (self) (toJSString val)) - -foreign import javascript unsafe "$1[\"width\"]" js_getWidth :: - HTMLTableElement -> IO JSString - --- | -getWidth :: - (MonadIO m, FromJSString result) => HTMLTableElement -> m result -getWidth self = liftIO (fromJSString <$> (js_getWidth (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/HTMLTableRowElement.hs b/src/GHCJS/DOM/JSFFI/Generated/HTMLTableRowElement.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/HTMLTableRowElement.hs +++ /dev/null @@ -1,145 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.HTMLTableRowElement - (js_insertCell, insertCell, js_deleteCell, deleteCell, - js_getRowIndex, getRowIndex, js_getSectionRowIndex, - getSectionRowIndex, js_getCells, getCells, js_setAlign, setAlign, - js_getAlign, getAlign, js_setBgColor, setBgColor, js_getBgColor, - getBgColor, js_setCh, setCh, js_getCh, getCh, js_setChOff, - setChOff, js_getChOff, getChOff, js_setVAlign, setVAlign, - js_getVAlign, getVAlign, HTMLTableRowElement, - castToHTMLTableRowElement, gTypeHTMLTableRowElement) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"insertCell\"]($2)" - js_insertCell :: - HTMLTableRowElement -> Int -> IO (Nullable HTMLElement) - --- | -insertCell :: - (MonadIO m) => HTMLTableRowElement -> Int -> m (Maybe HTMLElement) -insertCell self index - = liftIO (nullableToMaybe <$> (js_insertCell (self) index)) - -foreign import javascript unsafe "$1[\"deleteCell\"]($2)" - js_deleteCell :: HTMLTableRowElement -> Int -> IO () - --- | -deleteCell :: (MonadIO m) => HTMLTableRowElement -> Int -> m () -deleteCell self index = liftIO (js_deleteCell (self) index) - -foreign import javascript unsafe "$1[\"rowIndex\"]" js_getRowIndex - :: HTMLTableRowElement -> IO Int - --- | -getRowIndex :: (MonadIO m) => HTMLTableRowElement -> m Int -getRowIndex self = liftIO (js_getRowIndex (self)) - -foreign import javascript unsafe "$1[\"sectionRowIndex\"]" - js_getSectionRowIndex :: HTMLTableRowElement -> IO Int - --- | -getSectionRowIndex :: (MonadIO m) => HTMLTableRowElement -> m Int -getSectionRowIndex self = liftIO (js_getSectionRowIndex (self)) - -foreign import javascript unsafe "$1[\"cells\"]" js_getCells :: - HTMLTableRowElement -> IO (Nullable HTMLCollection) - --- | -getCells :: - (MonadIO m) => HTMLTableRowElement -> m (Maybe HTMLCollection) -getCells self = liftIO (nullableToMaybe <$> (js_getCells (self))) - -foreign import javascript unsafe "$1[\"align\"] = $2;" js_setAlign - :: HTMLTableRowElement -> JSString -> IO () - --- | -setAlign :: - (MonadIO m, ToJSString val) => HTMLTableRowElement -> val -> m () -setAlign self val = liftIO (js_setAlign (self) (toJSString val)) - -foreign import javascript unsafe "$1[\"align\"]" js_getAlign :: - HTMLTableRowElement -> IO JSString - --- | -getAlign :: - (MonadIO m, FromJSString result) => HTMLTableRowElement -> m result -getAlign self = liftIO (fromJSString <$> (js_getAlign (self))) - -foreign import javascript unsafe "$1[\"bgColor\"] = $2;" - js_setBgColor :: HTMLTableRowElement -> JSString -> IO () - --- | -setBgColor :: - (MonadIO m, ToJSString val) => HTMLTableRowElement -> val -> m () -setBgColor self val - = liftIO (js_setBgColor (self) (toJSString val)) - -foreign import javascript unsafe "$1[\"bgColor\"]" js_getBgColor :: - HTMLTableRowElement -> IO JSString - --- | -getBgColor :: - (MonadIO m, FromJSString result) => HTMLTableRowElement -> m result -getBgColor self = liftIO (fromJSString <$> (js_getBgColor (self))) - -foreign import javascript unsafe "$1[\"ch\"] = $2;" js_setCh :: - HTMLTableRowElement -> JSString -> IO () - --- | -setCh :: - (MonadIO m, ToJSString val) => HTMLTableRowElement -> val -> m () -setCh self val = liftIO (js_setCh (self) (toJSString val)) - -foreign import javascript unsafe "$1[\"ch\"]" js_getCh :: - HTMLTableRowElement -> IO JSString - --- | -getCh :: - (MonadIO m, FromJSString result) => HTMLTableRowElement -> m result -getCh self = liftIO (fromJSString <$> (js_getCh (self))) - -foreign import javascript unsafe "$1[\"chOff\"] = $2;" js_setChOff - :: HTMLTableRowElement -> JSString -> IO () - --- | -setChOff :: - (MonadIO m, ToJSString val) => HTMLTableRowElement -> val -> m () -setChOff self val = liftIO (js_setChOff (self) (toJSString val)) - -foreign import javascript unsafe "$1[\"chOff\"]" js_getChOff :: - HTMLTableRowElement -> IO JSString - --- | -getChOff :: - (MonadIO m, FromJSString result) => HTMLTableRowElement -> m result -getChOff self = liftIO (fromJSString <$> (js_getChOff (self))) - -foreign import javascript unsafe "$1[\"vAlign\"] = $2;" - js_setVAlign :: HTMLTableRowElement -> JSString -> IO () - --- | -setVAlign :: - (MonadIO m, ToJSString val) => HTMLTableRowElement -> val -> m () -setVAlign self val = liftIO (js_setVAlign (self) (toJSString val)) - -foreign import javascript unsafe "$1[\"vAlign\"]" js_getVAlign :: - HTMLTableRowElement -> IO JSString - --- | -getVAlign :: - (MonadIO m, FromJSString result) => HTMLTableRowElement -> m result -getVAlign self = liftIO (fromJSString <$> (js_getVAlign (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/HTMLTableSectionElement.hs b/src/GHCJS/DOM/JSFFI/Generated/HTMLTableSectionElement.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/HTMLTableSectionElement.hs +++ /dev/null @@ -1,121 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.HTMLTableSectionElement - (js_insertRow, insertRow, js_deleteRow, deleteRow, js_setAlign, - setAlign, js_getAlign, getAlign, js_setCh, setCh, js_getCh, getCh, - js_setChOff, setChOff, js_getChOff, getChOff, js_setVAlign, - setVAlign, js_getVAlign, getVAlign, js_getRows, getRows, - HTMLTableSectionElement, castToHTMLTableSectionElement, - gTypeHTMLTableSectionElement) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"insertRow\"]($2)" - js_insertRow :: - HTMLTableSectionElement -> Int -> IO (Nullable HTMLElement) - --- | -insertRow :: - (MonadIO m) => - HTMLTableSectionElement -> Int -> m (Maybe HTMLElement) -insertRow self index - = liftIO (nullableToMaybe <$> (js_insertRow (self) index)) - -foreign import javascript unsafe "$1[\"deleteRow\"]($2)" - js_deleteRow :: HTMLTableSectionElement -> Int -> IO () - --- | -deleteRow :: (MonadIO m) => HTMLTableSectionElement -> Int -> m () -deleteRow self index = liftIO (js_deleteRow (self) index) - -foreign import javascript unsafe "$1[\"align\"] = $2;" js_setAlign - :: HTMLTableSectionElement -> JSString -> IO () - --- | -setAlign :: - (MonadIO m, ToJSString val) => - HTMLTableSectionElement -> val -> m () -setAlign self val = liftIO (js_setAlign (self) (toJSString val)) - -foreign import javascript unsafe "$1[\"align\"]" js_getAlign :: - HTMLTableSectionElement -> IO JSString - --- | -getAlign :: - (MonadIO m, FromJSString result) => - HTMLTableSectionElement -> m result -getAlign self = liftIO (fromJSString <$> (js_getAlign (self))) - -foreign import javascript unsafe "$1[\"ch\"] = $2;" js_setCh :: - HTMLTableSectionElement -> JSString -> IO () - --- | -setCh :: - (MonadIO m, ToJSString val) => - HTMLTableSectionElement -> val -> m () -setCh self val = liftIO (js_setCh (self) (toJSString val)) - -foreign import javascript unsafe "$1[\"ch\"]" js_getCh :: - HTMLTableSectionElement -> IO JSString - --- | -getCh :: - (MonadIO m, FromJSString result) => - HTMLTableSectionElement -> m result -getCh self = liftIO (fromJSString <$> (js_getCh (self))) - -foreign import javascript unsafe "$1[\"chOff\"] = $2;" js_setChOff - :: HTMLTableSectionElement -> JSString -> IO () - --- | -setChOff :: - (MonadIO m, ToJSString val) => - HTMLTableSectionElement -> val -> m () -setChOff self val = liftIO (js_setChOff (self) (toJSString val)) - -foreign import javascript unsafe "$1[\"chOff\"]" js_getChOff :: - HTMLTableSectionElement -> IO JSString - --- | -getChOff :: - (MonadIO m, FromJSString result) => - HTMLTableSectionElement -> m result -getChOff self = liftIO (fromJSString <$> (js_getChOff (self))) - -foreign import javascript unsafe "$1[\"vAlign\"] = $2;" - js_setVAlign :: HTMLTableSectionElement -> JSString -> IO () - --- | -setVAlign :: - (MonadIO m, ToJSString val) => - HTMLTableSectionElement -> val -> m () -setVAlign self val = liftIO (js_setVAlign (self) (toJSString val)) - -foreign import javascript unsafe "$1[\"vAlign\"]" js_getVAlign :: - HTMLTableSectionElement -> IO JSString - --- | -getVAlign :: - (MonadIO m, FromJSString result) => - HTMLTableSectionElement -> m result -getVAlign self = liftIO (fromJSString <$> (js_getVAlign (self))) - -foreign import javascript unsafe "$1[\"rows\"]" js_getRows :: - HTMLTableSectionElement -> IO (Nullable HTMLCollection) - --- | -getRows :: - (MonadIO m) => HTMLTableSectionElement -> m (Maybe HTMLCollection) -getRows self = liftIO (nullableToMaybe <$> (js_getRows (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/HTMLTemplateElement.hs b/src/GHCJS/DOM/JSFFI/Generated/HTMLTemplateElement.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/HTMLTemplateElement.hs +++ /dev/null @@ -1,28 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.HTMLTemplateElement - (js_getContent, getContent, HTMLTemplateElement, - castToHTMLTemplateElement, gTypeHTMLTemplateElement) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"content\"]" js_getContent :: - HTMLTemplateElement -> IO (Nullable DocumentFragment) - --- | -getContent :: - (MonadIO m) => HTMLTemplateElement -> m (Maybe DocumentFragment) -getContent self - = liftIO (nullableToMaybe <$> (js_getContent (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/HTMLTextAreaElement.hs b/src/GHCJS/DOM/JSFFI/Generated/HTMLTextAreaElement.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/HTMLTextAreaElement.hs +++ /dev/null @@ -1,456 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.HTMLTextAreaElement - (js_checkValidity, checkValidity, js_setCustomValidity, - setCustomValidity, js_select, select, js_setRangeText, - setRangeText, js_setRangeText4, setRangeText4, - js_setSelectionRange, setSelectionRange, js_setAutofocus, - setAutofocus, js_getAutofocus, getAutofocus, js_setCols, setCols, - js_getCols, getCols, js_setDirName, setDirName, js_getDirName, - getDirName, js_setDisabled, setDisabled, js_getDisabled, - getDisabled, js_getForm, getForm, js_setMaxLength, setMaxLength, - js_getMaxLength, getMaxLength, js_setName, setName, js_getName, - getName, js_setPlaceholder, setPlaceholder, js_getPlaceholder, - getPlaceholder, js_setReadOnly, setReadOnly, js_getReadOnly, - getReadOnly, js_setRequired, setRequired, js_getRequired, - getRequired, js_setRows, setRows, js_getRows, getRows, js_setWrap, - setWrap, js_getWrap, getWrap, js_getType, getType, - js_setDefaultValue, setDefaultValue, js_getDefaultValue, - getDefaultValue, js_setValue, setValue, js_getValue, getValue, - js_getTextLength, getTextLength, js_getWillValidate, - getWillValidate, js_getValidity, getValidity, - js_getValidationMessage, getValidationMessage, js_getLabels, - getLabels, js_setSelectionStart, setSelectionStart, - js_getSelectionStart, getSelectionStart, js_setSelectionEnd, - setSelectionEnd, js_getSelectionEnd, getSelectionEnd, - js_setSelectionDirection, setSelectionDirection, - js_getSelectionDirection, getSelectionDirection, js_setAutocorrect, - setAutocorrect, js_getAutocorrect, getAutocorrect, - js_setAutocapitalize, setAutocapitalize, js_getAutocapitalize, - getAutocapitalize, HTMLTextAreaElement, castToHTMLTextAreaElement, - gTypeHTMLTextAreaElement) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe - "($1[\"checkValidity\"]() ? 1 : 0)" js_checkValidity :: - HTMLTextAreaElement -> IO Bool - --- | -checkValidity :: (MonadIO m) => HTMLTextAreaElement -> m Bool -checkValidity self = liftIO (js_checkValidity (self)) - -foreign import javascript unsafe "$1[\"setCustomValidity\"]($2)" - js_setCustomValidity :: - HTMLTextAreaElement -> Nullable JSString -> IO () - --- | -setCustomValidity :: - (MonadIO m, ToJSString error) => - HTMLTextAreaElement -> Maybe error -> m () -setCustomValidity self error - = liftIO (js_setCustomValidity (self) (toMaybeJSString error)) - -foreign import javascript unsafe "$1[\"select\"]()" js_select :: - HTMLTextAreaElement -> IO () - --- | -select :: (MonadIO m) => HTMLTextAreaElement -> m () -select self = liftIO (js_select (self)) - -foreign import javascript unsafe "$1[\"setRangeText\"]($2)" - js_setRangeText :: HTMLTextAreaElement -> JSString -> IO () - --- | -setRangeText :: - (MonadIO m, ToJSString replacement) => - HTMLTextAreaElement -> replacement -> m () -setRangeText self replacement - = liftIO (js_setRangeText (self) (toJSString replacement)) - -foreign import javascript unsafe - "$1[\"setRangeText\"]($2, $3, $4,\n$5)" js_setRangeText4 :: - HTMLTextAreaElement -> - JSString -> Word -> Word -> JSString -> IO () - --- | -setRangeText4 :: - (MonadIO m, ToJSString replacement, ToJSString selectionMode) => - HTMLTextAreaElement -> - replacement -> Word -> Word -> selectionMode -> m () -setRangeText4 self replacement start end selectionMode - = liftIO - (js_setRangeText4 (self) (toJSString replacement) start end - (toJSString selectionMode)) - -foreign import javascript unsafe - "$1[\"setSelectionRange\"]($2, $3,\n$4)" js_setSelectionRange :: - HTMLTextAreaElement -> Int -> Int -> JSString -> IO () - --- | -setSelectionRange :: - (MonadIO m, ToJSString direction) => - HTMLTextAreaElement -> Int -> Int -> direction -> m () -setSelectionRange self start end direction - = liftIO - (js_setSelectionRange (self) start end (toJSString direction)) - -foreign import javascript unsafe "$1[\"autofocus\"] = $2;" - js_setAutofocus :: HTMLTextAreaElement -> Bool -> IO () - --- | -setAutofocus :: (MonadIO m) => HTMLTextAreaElement -> Bool -> m () -setAutofocus self val = liftIO (js_setAutofocus (self) val) - -foreign import javascript unsafe "($1[\"autofocus\"] ? 1 : 0)" - js_getAutofocus :: HTMLTextAreaElement -> IO Bool - --- | -getAutofocus :: (MonadIO m) => HTMLTextAreaElement -> m Bool -getAutofocus self = liftIO (js_getAutofocus (self)) - -foreign import javascript unsafe "$1[\"cols\"] = $2;" js_setCols :: - HTMLTextAreaElement -> Int -> IO () - --- | -setCols :: (MonadIO m) => HTMLTextAreaElement -> Int -> m () -setCols self val = liftIO (js_setCols (self) val) - -foreign import javascript unsafe "$1[\"cols\"]" js_getCols :: - HTMLTextAreaElement -> IO Int - --- | -getCols :: (MonadIO m) => HTMLTextAreaElement -> m Int -getCols self = liftIO (js_getCols (self)) - -foreign import javascript unsafe "$1[\"dirName\"] = $2;" - js_setDirName :: HTMLTextAreaElement -> JSString -> IO () - --- | -setDirName :: - (MonadIO m, ToJSString val) => HTMLTextAreaElement -> val -> m () -setDirName self val - = liftIO (js_setDirName (self) (toJSString val)) - -foreign import javascript unsafe "$1[\"dirName\"]" js_getDirName :: - HTMLTextAreaElement -> IO JSString - --- | -getDirName :: - (MonadIO m, FromJSString result) => HTMLTextAreaElement -> m result -getDirName self = liftIO (fromJSString <$> (js_getDirName (self))) - -foreign import javascript unsafe "$1[\"disabled\"] = $2;" - js_setDisabled :: HTMLTextAreaElement -> Bool -> IO () - --- | -setDisabled :: (MonadIO m) => HTMLTextAreaElement -> Bool -> m () -setDisabled self val = liftIO (js_setDisabled (self) val) - -foreign import javascript unsafe "($1[\"disabled\"] ? 1 : 0)" - js_getDisabled :: HTMLTextAreaElement -> IO Bool - --- | -getDisabled :: (MonadIO m) => HTMLTextAreaElement -> m Bool -getDisabled self = liftIO (js_getDisabled (self)) - -foreign import javascript unsafe "$1[\"form\"]" js_getForm :: - HTMLTextAreaElement -> IO (Nullable HTMLFormElement) - --- | -getForm :: - (MonadIO m) => HTMLTextAreaElement -> m (Maybe HTMLFormElement) -getForm self = liftIO (nullableToMaybe <$> (js_getForm (self))) - -foreign import javascript unsafe "$1[\"maxLength\"] = $2;" - js_setMaxLength :: HTMLTextAreaElement -> Int -> IO () - --- | -setMaxLength :: (MonadIO m) => HTMLTextAreaElement -> Int -> m () -setMaxLength self val = liftIO (js_setMaxLength (self) val) - -foreign import javascript unsafe "$1[\"maxLength\"]" - js_getMaxLength :: HTMLTextAreaElement -> IO Int - --- | -getMaxLength :: (MonadIO m) => HTMLTextAreaElement -> m Int -getMaxLength self = liftIO (js_getMaxLength (self)) - -foreign import javascript unsafe "$1[\"name\"] = $2;" js_setName :: - HTMLTextAreaElement -> JSString -> IO () - --- | -setName :: - (MonadIO m, ToJSString val) => HTMLTextAreaElement -> val -> m () -setName self val = liftIO (js_setName (self) (toJSString val)) - -foreign import javascript unsafe "$1[\"name\"]" js_getName :: - HTMLTextAreaElement -> IO JSString - --- | -getName :: - (MonadIO m, FromJSString result) => HTMLTextAreaElement -> m result -getName self = liftIO (fromJSString <$> (js_getName (self))) - -foreign import javascript unsafe "$1[\"placeholder\"] = $2;" - js_setPlaceholder :: HTMLTextAreaElement -> JSString -> IO () - --- | -setPlaceholder :: - (MonadIO m, ToJSString val) => HTMLTextAreaElement -> val -> m () -setPlaceholder self val - = liftIO (js_setPlaceholder (self) (toJSString val)) - -foreign import javascript unsafe "$1[\"placeholder\"]" - js_getPlaceholder :: HTMLTextAreaElement -> IO JSString - --- | -getPlaceholder :: - (MonadIO m, FromJSString result) => HTMLTextAreaElement -> m result -getPlaceholder self - = liftIO (fromJSString <$> (js_getPlaceholder (self))) - -foreign import javascript unsafe "$1[\"readOnly\"] = $2;" - js_setReadOnly :: HTMLTextAreaElement -> Bool -> IO () - --- | -setReadOnly :: (MonadIO m) => HTMLTextAreaElement -> Bool -> m () -setReadOnly self val = liftIO (js_setReadOnly (self) val) - -foreign import javascript unsafe "($1[\"readOnly\"] ? 1 : 0)" - js_getReadOnly :: HTMLTextAreaElement -> IO Bool - --- | -getReadOnly :: (MonadIO m) => HTMLTextAreaElement -> m Bool -getReadOnly self = liftIO (js_getReadOnly (self)) - -foreign import javascript unsafe "$1[\"required\"] = $2;" - js_setRequired :: HTMLTextAreaElement -> Bool -> IO () - --- | -setRequired :: (MonadIO m) => HTMLTextAreaElement -> Bool -> m () -setRequired self val = liftIO (js_setRequired (self) val) - -foreign import javascript unsafe "($1[\"required\"] ? 1 : 0)" - js_getRequired :: HTMLTextAreaElement -> IO Bool - --- | -getRequired :: (MonadIO m) => HTMLTextAreaElement -> m Bool -getRequired self = liftIO (js_getRequired (self)) - -foreign import javascript unsafe "$1[\"rows\"] = $2;" js_setRows :: - HTMLTextAreaElement -> Int -> IO () - --- | -setRows :: (MonadIO m) => HTMLTextAreaElement -> Int -> m () -setRows self val = liftIO (js_setRows (self) val) - -foreign import javascript unsafe "$1[\"rows\"]" js_getRows :: - HTMLTextAreaElement -> IO Int - --- | -getRows :: (MonadIO m) => HTMLTextAreaElement -> m Int -getRows self = liftIO (js_getRows (self)) - -foreign import javascript unsafe "$1[\"wrap\"] = $2;" js_setWrap :: - HTMLTextAreaElement -> JSString -> IO () - --- | -setWrap :: - (MonadIO m, ToJSString val) => HTMLTextAreaElement -> val -> m () -setWrap self val = liftIO (js_setWrap (self) (toJSString val)) - -foreign import javascript unsafe "$1[\"wrap\"]" js_getWrap :: - HTMLTextAreaElement -> IO JSString - --- | -getWrap :: - (MonadIO m, FromJSString result) => HTMLTextAreaElement -> m result -getWrap self = liftIO (fromJSString <$> (js_getWrap (self))) - -foreign import javascript unsafe "$1[\"type\"]" js_getType :: - HTMLTextAreaElement -> IO JSString - --- | -getType :: - (MonadIO m, FromJSString result) => HTMLTextAreaElement -> m result -getType self = liftIO (fromJSString <$> (js_getType (self))) - -foreign import javascript unsafe "$1[\"defaultValue\"] = $2;" - js_setDefaultValue :: - HTMLTextAreaElement -> Nullable JSString -> IO () - --- | -setDefaultValue :: - (MonadIO m, ToJSString val) => - HTMLTextAreaElement -> Maybe val -> m () -setDefaultValue self val - = liftIO (js_setDefaultValue (self) (toMaybeJSString val)) - -foreign import javascript unsafe "$1[\"defaultValue\"]" - js_getDefaultValue :: HTMLTextAreaElement -> IO (Nullable JSString) - --- | -getDefaultValue :: - (MonadIO m, FromJSString result) => - HTMLTextAreaElement -> m (Maybe result) -getDefaultValue self - = liftIO (fromMaybeJSString <$> (js_getDefaultValue (self))) - -foreign import javascript unsafe "$1[\"value\"] = $2;" js_setValue - :: HTMLTextAreaElement -> Nullable JSString -> IO () - --- | -setValue :: - (MonadIO m, ToJSString val) => - HTMLTextAreaElement -> Maybe val -> m () -setValue self val - = liftIO (js_setValue (self) (toMaybeJSString val)) - -foreign import javascript unsafe "$1[\"value\"]" js_getValue :: - HTMLTextAreaElement -> IO (Nullable JSString) - --- | -getValue :: - (MonadIO m, FromJSString result) => - HTMLTextAreaElement -> m (Maybe result) -getValue self = liftIO (fromMaybeJSString <$> (js_getValue (self))) - -foreign import javascript unsafe "$1[\"textLength\"]" - js_getTextLength :: HTMLTextAreaElement -> IO Word - --- | -getTextLength :: (MonadIO m) => HTMLTextAreaElement -> m Word -getTextLength self = liftIO (js_getTextLength (self)) - -foreign import javascript unsafe "($1[\"willValidate\"] ? 1 : 0)" - js_getWillValidate :: HTMLTextAreaElement -> IO Bool - --- | -getWillValidate :: (MonadIO m) => HTMLTextAreaElement -> m Bool -getWillValidate self = liftIO (js_getWillValidate (self)) - -foreign import javascript unsafe "$1[\"validity\"]" js_getValidity - :: HTMLTextAreaElement -> IO (Nullable ValidityState) - --- | -getValidity :: - (MonadIO m) => HTMLTextAreaElement -> m (Maybe ValidityState) -getValidity self - = liftIO (nullableToMaybe <$> (js_getValidity (self))) - -foreign import javascript unsafe "$1[\"validationMessage\"]" - js_getValidationMessage :: HTMLTextAreaElement -> IO JSString - --- | -getValidationMessage :: - (MonadIO m, FromJSString result) => HTMLTextAreaElement -> m result -getValidationMessage self - = liftIO (fromJSString <$> (js_getValidationMessage (self))) - -foreign import javascript unsafe "$1[\"labels\"]" js_getLabels :: - HTMLTextAreaElement -> IO (Nullable NodeList) - --- | -getLabels :: - (MonadIO m) => HTMLTextAreaElement -> m (Maybe NodeList) -getLabels self = liftIO (nullableToMaybe <$> (js_getLabels (self))) - -foreign import javascript unsafe "$1[\"selectionStart\"] = $2;" - js_setSelectionStart :: HTMLTextAreaElement -> Int -> IO () - --- | -setSelectionStart :: - (MonadIO m) => HTMLTextAreaElement -> Int -> m () -setSelectionStart self val - = liftIO (js_setSelectionStart (self) val) - -foreign import javascript unsafe "$1[\"selectionStart\"]" - js_getSelectionStart :: HTMLTextAreaElement -> IO Int - --- | -getSelectionStart :: (MonadIO m) => HTMLTextAreaElement -> m Int -getSelectionStart self = liftIO (js_getSelectionStart (self)) - -foreign import javascript unsafe "$1[\"selectionEnd\"] = $2;" - js_setSelectionEnd :: HTMLTextAreaElement -> Int -> IO () - --- | -setSelectionEnd :: - (MonadIO m) => HTMLTextAreaElement -> Int -> m () -setSelectionEnd self val = liftIO (js_setSelectionEnd (self) val) - -foreign import javascript unsafe "$1[\"selectionEnd\"]" - js_getSelectionEnd :: HTMLTextAreaElement -> IO Int - --- | -getSelectionEnd :: (MonadIO m) => HTMLTextAreaElement -> m Int -getSelectionEnd self = liftIO (js_getSelectionEnd (self)) - -foreign import javascript unsafe "$1[\"selectionDirection\"] = $2;" - js_setSelectionDirection :: - HTMLTextAreaElement -> JSString -> IO () - --- | -setSelectionDirection :: - (MonadIO m, ToJSString val) => HTMLTextAreaElement -> val -> m () -setSelectionDirection self val - = liftIO (js_setSelectionDirection (self) (toJSString val)) - -foreign import javascript unsafe "$1[\"selectionDirection\"]" - js_getSelectionDirection :: HTMLTextAreaElement -> IO JSString - --- | -getSelectionDirection :: - (MonadIO m, FromJSString result) => HTMLTextAreaElement -> m result -getSelectionDirection self - = liftIO (fromJSString <$> (js_getSelectionDirection (self))) - -foreign import javascript unsafe "$1[\"autocorrect\"] = $2;" - js_setAutocorrect :: HTMLTextAreaElement -> Bool -> IO () - --- | -setAutocorrect :: - (MonadIO m) => HTMLTextAreaElement -> Bool -> m () -setAutocorrect self val = liftIO (js_setAutocorrect (self) val) - -foreign import javascript unsafe "($1[\"autocorrect\"] ? 1 : 0)" - js_getAutocorrect :: HTMLTextAreaElement -> IO Bool - --- | -getAutocorrect :: (MonadIO m) => HTMLTextAreaElement -> m Bool -getAutocorrect self = liftIO (js_getAutocorrect (self)) - -foreign import javascript unsafe "$1[\"autocapitalize\"] = $2;" - js_setAutocapitalize :: - HTMLTextAreaElement -> Nullable JSString -> IO () - --- | -setAutocapitalize :: - (MonadIO m, ToJSString val) => - HTMLTextAreaElement -> Maybe val -> m () -setAutocapitalize self val - = liftIO (js_setAutocapitalize (self) (toMaybeJSString val)) - -foreign import javascript unsafe "$1[\"autocapitalize\"]" - js_getAutocapitalize :: - HTMLTextAreaElement -> IO (Nullable JSString) - --- | -getAutocapitalize :: - (MonadIO m, FromJSString result) => - HTMLTextAreaElement -> m (Maybe result) -getAutocapitalize self - = liftIO (fromMaybeJSString <$> (js_getAutocapitalize (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/HTMLTitleElement.hs b/src/GHCJS/DOM/JSFFI/Generated/HTMLTitleElement.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/HTMLTitleElement.hs +++ /dev/null @@ -1,37 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.HTMLTitleElement - (js_setText, setText, js_getText, getText, HTMLTitleElement, - castToHTMLTitleElement, gTypeHTMLTitleElement) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"text\"] = $2;" js_setText :: - HTMLTitleElement -> Nullable JSString -> IO () - --- | -setText :: - (MonadIO m, ToJSString val) => - HTMLTitleElement -> Maybe val -> m () -setText self val = liftIO (js_setText (self) (toMaybeJSString val)) - -foreign import javascript unsafe "$1[\"text\"]" js_getText :: - HTMLTitleElement -> IO (Nullable JSString) - --- | -getText :: - (MonadIO m, FromJSString result) => - HTMLTitleElement -> m (Maybe result) -getText self = liftIO (fromMaybeJSString <$> (js_getText (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/HTMLTrackElement.hs b/src/GHCJS/DOM/JSFFI/Generated/HTMLTrackElement.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/HTMLTrackElement.hs +++ /dev/null @@ -1,121 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.HTMLTrackElement - (pattern NONE, pattern LOADING, pattern LOADED, pattern ERROR, - js_setKind, setKind, js_getKind, getKind, js_setSrc, setSrc, - js_getSrc, getSrc, js_setSrclang, setSrclang, js_getSrclang, - getSrclang, js_setLabel, setLabel, js_getLabel, getLabel, - js_setDefault, setDefault, js_getDefault, getDefault, - js_getReadyState, getReadyState, js_getTrack, getTrack, - HTMLTrackElement, castToHTMLTrackElement, gTypeHTMLTrackElement) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums -pattern NONE = 0 -pattern LOADING = 1 -pattern LOADED = 2 -pattern ERROR = 3 - -foreign import javascript unsafe "$1[\"kind\"] = $2;" js_setKind :: - HTMLTrackElement -> JSString -> IO () - --- | -setKind :: - (MonadIO m, ToJSString val) => HTMLTrackElement -> val -> m () -setKind self val = liftIO (js_setKind (self) (toJSString val)) - -foreign import javascript unsafe "$1[\"kind\"]" js_getKind :: - HTMLTrackElement -> IO JSString - --- | -getKind :: - (MonadIO m, FromJSString result) => HTMLTrackElement -> m result -getKind self = liftIO (fromJSString <$> (js_getKind (self))) - -foreign import javascript unsafe "$1[\"src\"] = $2;" js_setSrc :: - HTMLTrackElement -> JSString -> IO () - --- | -setSrc :: - (MonadIO m, ToJSString val) => HTMLTrackElement -> val -> m () -setSrc self val = liftIO (js_setSrc (self) (toJSString val)) - -foreign import javascript unsafe "$1[\"src\"]" js_getSrc :: - HTMLTrackElement -> IO JSString - --- | -getSrc :: - (MonadIO m, FromJSString result) => HTMLTrackElement -> m result -getSrc self = liftIO (fromJSString <$> (js_getSrc (self))) - -foreign import javascript unsafe "$1[\"srclang\"] = $2;" - js_setSrclang :: HTMLTrackElement -> JSString -> IO () - --- | -setSrclang :: - (MonadIO m, ToJSString val) => HTMLTrackElement -> val -> m () -setSrclang self val - = liftIO (js_setSrclang (self) (toJSString val)) - -foreign import javascript unsafe "$1[\"srclang\"]" js_getSrclang :: - HTMLTrackElement -> IO JSString - --- | -getSrclang :: - (MonadIO m, FromJSString result) => HTMLTrackElement -> m result -getSrclang self = liftIO (fromJSString <$> (js_getSrclang (self))) - -foreign import javascript unsafe "$1[\"label\"] = $2;" js_setLabel - :: HTMLTrackElement -> JSString -> IO () - --- | -setLabel :: - (MonadIO m, ToJSString val) => HTMLTrackElement -> val -> m () -setLabel self val = liftIO (js_setLabel (self) (toJSString val)) - -foreign import javascript unsafe "$1[\"label\"]" js_getLabel :: - HTMLTrackElement -> IO JSString - --- | -getLabel :: - (MonadIO m, FromJSString result) => HTMLTrackElement -> m result -getLabel self = liftIO (fromJSString <$> (js_getLabel (self))) - -foreign import javascript unsafe "$1[\"default\"] = $2;" - js_setDefault :: HTMLTrackElement -> Bool -> IO () - --- | -setDefault :: (MonadIO m) => HTMLTrackElement -> Bool -> m () -setDefault self val = liftIO (js_setDefault (self) val) - -foreign import javascript unsafe "($1[\"default\"] ? 1 : 0)" - js_getDefault :: HTMLTrackElement -> IO Bool - --- | -getDefault :: (MonadIO m) => HTMLTrackElement -> m Bool -getDefault self = liftIO (js_getDefault (self)) - -foreign import javascript unsafe "$1[\"readyState\"]" - js_getReadyState :: HTMLTrackElement -> IO Word - --- | -getReadyState :: (MonadIO m) => HTMLTrackElement -> m Word -getReadyState self = liftIO (js_getReadyState (self)) - -foreign import javascript unsafe "$1[\"track\"]" js_getTrack :: - HTMLTrackElement -> IO (Nullable TextTrack) - --- | -getTrack :: (MonadIO m) => HTMLTrackElement -> m (Maybe TextTrack) -getTrack self = liftIO (nullableToMaybe <$> (js_getTrack (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/HTMLUListElement.hs b/src/GHCJS/DOM/JSFFI/Generated/HTMLUListElement.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/HTMLUListElement.hs +++ /dev/null @@ -1,50 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.HTMLUListElement - (js_setCompact, setCompact, js_getCompact, getCompact, js_setType, - setType, js_getType, getType, HTMLUListElement, - castToHTMLUListElement, gTypeHTMLUListElement) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"compact\"] = $2;" - js_setCompact :: HTMLUListElement -> Bool -> IO () - --- | -setCompact :: (MonadIO m) => HTMLUListElement -> Bool -> m () -setCompact self val = liftIO (js_setCompact (self) val) - -foreign import javascript unsafe "($1[\"compact\"] ? 1 : 0)" - js_getCompact :: HTMLUListElement -> IO Bool - --- | -getCompact :: (MonadIO m) => HTMLUListElement -> m Bool -getCompact self = liftIO (js_getCompact (self)) - -foreign import javascript unsafe "$1[\"type\"] = $2;" js_setType :: - HTMLUListElement -> JSString -> IO () - --- | -setType :: - (MonadIO m, ToJSString val) => HTMLUListElement -> val -> m () -setType self val = liftIO (js_setType (self) (toJSString val)) - -foreign import javascript unsafe "$1[\"type\"]" js_getType :: - HTMLUListElement -> IO JSString - --- | -getType :: - (MonadIO m, FromJSString result) => HTMLUListElement -> m result -getType self = liftIO (fromJSString <$> (js_getType (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/HTMLVideoElement.hs b/src/GHCJS/DOM/JSFFI/Generated/HTMLVideoElement.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/HTMLVideoElement.hs +++ /dev/null @@ -1,222 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.HTMLVideoElement - (js_webkitEnterFullscreen, webkitEnterFullscreen, - js_webkitExitFullscreen, webkitExitFullscreen, - js_webkitEnterFullScreen, webkitEnterFullScreen, - js_webkitExitFullScreen, webkitExitFullScreen, - js_webkitSupportsPresentationMode, webkitSupportsPresentationMode, - js_webkitSetPresentationMode, webkitSetPresentationMode, - js_setWidth, setWidth, js_getWidth, getWidth, js_setHeight, - setHeight, js_getHeight, getHeight, js_getVideoWidth, - getVideoWidth, js_getVideoHeight, getVideoHeight, js_setPoster, - setPoster, js_getPoster, getPoster, js_getWebkitSupportsFullscreen, - getWebkitSupportsFullscreen, js_getWebkitDisplayingFullscreen, - getWebkitDisplayingFullscreen, - js_setWebkitWirelessVideoPlaybackDisabled, - setWebkitWirelessVideoPlaybackDisabled, - js_getWebkitWirelessVideoPlaybackDisabled, - getWebkitWirelessVideoPlaybackDisabled, - js_getWebkitDecodedFrameCount, getWebkitDecodedFrameCount, - js_getWebkitDroppedFrameCount, getWebkitDroppedFrameCount, - js_getWebkitPresentationMode, getWebkitPresentationMode, - webKitPresentationModeChanged, HTMLVideoElement, - castToHTMLVideoElement, gTypeHTMLVideoElement) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"webkitEnterFullscreen\"]()" - js_webkitEnterFullscreen :: HTMLVideoElement -> IO () - --- | -webkitEnterFullscreen :: (MonadIO m) => HTMLVideoElement -> m () -webkitEnterFullscreen self - = liftIO (js_webkitEnterFullscreen (self)) - -foreign import javascript unsafe "$1[\"webkitExitFullscreen\"]()" - js_webkitExitFullscreen :: HTMLVideoElement -> IO () - --- | -webkitExitFullscreen :: (MonadIO m) => HTMLVideoElement -> m () -webkitExitFullscreen self = liftIO (js_webkitExitFullscreen (self)) - -foreign import javascript unsafe "$1[\"webkitEnterFullScreen\"]()" - js_webkitEnterFullScreen :: HTMLVideoElement -> IO () - --- | -webkitEnterFullScreen :: (MonadIO m) => HTMLVideoElement -> m () -webkitEnterFullScreen self - = liftIO (js_webkitEnterFullScreen (self)) - -foreign import javascript unsafe "$1[\"webkitExitFullScreen\"]()" - js_webkitExitFullScreen :: HTMLVideoElement -> IO () - --- | -webkitExitFullScreen :: (MonadIO m) => HTMLVideoElement -> m () -webkitExitFullScreen self = liftIO (js_webkitExitFullScreen (self)) - -foreign import javascript unsafe - "($1[\"webkitSupportsPresentationMode\"]($2) ? 1 : 0)" - js_webkitSupportsPresentationMode :: - HTMLVideoElement -> JSVal -> IO Bool - --- | -webkitSupportsPresentationMode :: - (MonadIO m) => HTMLVideoElement -> VideoPresentationMode -> m Bool -webkitSupportsPresentationMode self mode - = liftIO (js_webkitSupportsPresentationMode (self) (pToJSVal mode)) - -foreign import javascript unsafe - "$1[\"webkitSetPresentationMode\"]($2)" - js_webkitSetPresentationMode :: HTMLVideoElement -> JSVal -> IO () - --- | -webkitSetPresentationMode :: - (MonadIO m) => HTMLVideoElement -> VideoPresentationMode -> m () -webkitSetPresentationMode self mode - = liftIO (js_webkitSetPresentationMode (self) (pToJSVal mode)) - -foreign import javascript unsafe "$1[\"width\"] = $2;" js_setWidth - :: HTMLVideoElement -> Word -> IO () - --- | -setWidth :: (MonadIO m) => HTMLVideoElement -> Word -> m () -setWidth self val = liftIO (js_setWidth (self) val) - -foreign import javascript unsafe "$1[\"width\"]" js_getWidth :: - HTMLVideoElement -> IO Word - --- | -getWidth :: (MonadIO m) => HTMLVideoElement -> m Word -getWidth self = liftIO (js_getWidth (self)) - -foreign import javascript unsafe "$1[\"height\"] = $2;" - js_setHeight :: HTMLVideoElement -> Word -> IO () - --- | -setHeight :: (MonadIO m) => HTMLVideoElement -> Word -> m () -setHeight self val = liftIO (js_setHeight (self) val) - -foreign import javascript unsafe "$1[\"height\"]" js_getHeight :: - HTMLVideoElement -> IO Word - --- | -getHeight :: (MonadIO m) => HTMLVideoElement -> m Word -getHeight self = liftIO (js_getHeight (self)) - -foreign import javascript unsafe "$1[\"videoWidth\"]" - js_getVideoWidth :: HTMLVideoElement -> IO Word - --- | -getVideoWidth :: (MonadIO m) => HTMLVideoElement -> m Word -getVideoWidth self = liftIO (js_getVideoWidth (self)) - -foreign import javascript unsafe "$1[\"videoHeight\"]" - js_getVideoHeight :: HTMLVideoElement -> IO Word - --- | -getVideoHeight :: (MonadIO m) => HTMLVideoElement -> m Word -getVideoHeight self = liftIO (js_getVideoHeight (self)) - -foreign import javascript unsafe "$1[\"poster\"] = $2;" - js_setPoster :: HTMLVideoElement -> JSString -> IO () - --- | -setPoster :: - (MonadIO m, ToJSString val) => HTMLVideoElement -> val -> m () -setPoster self val = liftIO (js_setPoster (self) (toJSString val)) - -foreign import javascript unsafe "$1[\"poster\"]" js_getPoster :: - HTMLVideoElement -> IO JSString - --- | -getPoster :: - (MonadIO m, FromJSString result) => HTMLVideoElement -> m result -getPoster self = liftIO (fromJSString <$> (js_getPoster (self))) - -foreign import javascript unsafe - "($1[\"webkitSupportsFullscreen\"] ? 1 : 0)" - js_getWebkitSupportsFullscreen :: HTMLVideoElement -> IO Bool - --- | -getWebkitSupportsFullscreen :: - (MonadIO m) => HTMLVideoElement -> m Bool -getWebkitSupportsFullscreen self - = liftIO (js_getWebkitSupportsFullscreen (self)) - -foreign import javascript unsafe - "($1[\"webkitDisplayingFullscreen\"] ? 1 : 0)" - js_getWebkitDisplayingFullscreen :: HTMLVideoElement -> IO Bool - --- | -getWebkitDisplayingFullscreen :: - (MonadIO m) => HTMLVideoElement -> m Bool -getWebkitDisplayingFullscreen self - = liftIO (js_getWebkitDisplayingFullscreen (self)) - -foreign import javascript unsafe - "$1[\"webkitWirelessVideoPlaybackDisabled\"] = $2;" - js_setWebkitWirelessVideoPlaybackDisabled :: - HTMLVideoElement -> Bool -> IO () - --- | -setWebkitWirelessVideoPlaybackDisabled :: - (MonadIO m) => HTMLVideoElement -> Bool -> m () -setWebkitWirelessVideoPlaybackDisabled self val - = liftIO (js_setWebkitWirelessVideoPlaybackDisabled (self) val) - -foreign import javascript unsafe - "($1[\"webkitWirelessVideoPlaybackDisabled\"] ? 1 : 0)" - js_getWebkitWirelessVideoPlaybackDisabled :: - HTMLVideoElement -> IO Bool - --- | -getWebkitWirelessVideoPlaybackDisabled :: - (MonadIO m) => HTMLVideoElement -> m Bool -getWebkitWirelessVideoPlaybackDisabled self - = liftIO (js_getWebkitWirelessVideoPlaybackDisabled (self)) - -foreign import javascript unsafe "$1[\"webkitDecodedFrameCount\"]" - js_getWebkitDecodedFrameCount :: HTMLVideoElement -> IO Word - --- | -getWebkitDecodedFrameCount :: - (MonadIO m) => HTMLVideoElement -> m Word -getWebkitDecodedFrameCount self - = liftIO (js_getWebkitDecodedFrameCount (self)) - -foreign import javascript unsafe "$1[\"webkitDroppedFrameCount\"]" - js_getWebkitDroppedFrameCount :: HTMLVideoElement -> IO Word - --- | -getWebkitDroppedFrameCount :: - (MonadIO m) => HTMLVideoElement -> m Word -getWebkitDroppedFrameCount self - = liftIO (js_getWebkitDroppedFrameCount (self)) - -foreign import javascript unsafe "$1[\"webkitPresentationMode\"]" - js_getWebkitPresentationMode :: HTMLVideoElement -> IO JSVal - --- | -getWebkitPresentationMode :: - (MonadIO m) => HTMLVideoElement -> m VideoPresentationMode -getWebkitPresentationMode self - = liftIO - ((js_getWebkitPresentationMode (self)) >>= fromJSValUnchecked) - --- | -webKitPresentationModeChanged :: EventName HTMLVideoElement Event -webKitPresentationModeChanged - = unsafeEventName (toJSString "webkitpresentationmodechanged") diff --git a/src/GHCJS/DOM/JSFFI/Generated/HashChangeEvent.hs b/src/GHCJS/DOM/JSFFI/Generated/HashChangeEvent.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/HashChangeEvent.hs +++ /dev/null @@ -1,55 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.HashChangeEvent - (js_initHashChangeEvent, initHashChangeEvent, js_getOldURL, - getOldURL, js_getNewURL, getNewURL, HashChangeEvent, - castToHashChangeEvent, gTypeHashChangeEvent) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe - "$1[\"initHashChangeEvent\"]($2,\n$3, $4, $5, $6)" - js_initHashChangeEvent :: - HashChangeEvent -> - JSString -> Bool -> Bool -> JSString -> JSString -> IO () - --- | -initHashChangeEvent :: - (MonadIO m, ToJSString type', ToJSString oldURL, - ToJSString newURL) => - HashChangeEvent -> - type' -> Bool -> Bool -> oldURL -> newURL -> m () -initHashChangeEvent self type' canBubble cancelable oldURL newURL - = liftIO - (js_initHashChangeEvent (self) (toJSString type') canBubble - cancelable - (toJSString oldURL) - (toJSString newURL)) - -foreign import javascript unsafe "$1[\"oldURL\"]" js_getOldURL :: - HashChangeEvent -> IO JSString - --- | -getOldURL :: - (MonadIO m, FromJSString result) => HashChangeEvent -> m result -getOldURL self = liftIO (fromJSString <$> (js_getOldURL (self))) - -foreign import javascript unsafe "$1[\"newURL\"]" js_getNewURL :: - HashChangeEvent -> IO JSString - --- | -getNewURL :: - (MonadIO m, FromJSString result) => HashChangeEvent -> m result -getNewURL self = liftIO (fromJSString <$> (js_getNewURL (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/History.hs b/src/GHCJS/DOM/JSFFI/Generated/History.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/History.hs +++ /dev/null @@ -1,79 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.History - (js_back, back, js_forward, forward, js_go, go, js_pushState, - pushState, js_replaceState, replaceState, js_getLength, getLength, - js_getState, getState, History, castToHistory, gTypeHistory) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"back\"]()" js_back :: - History -> IO () - --- | -back :: (MonadIO m) => History -> m () -back self = liftIO (js_back (self)) - -foreign import javascript unsafe "$1[\"forward\"]()" js_forward :: - History -> IO () - --- | -forward :: (MonadIO m) => History -> m () -forward self = liftIO (js_forward (self)) - -foreign import javascript unsafe "$1[\"go\"]($2)" js_go :: - History -> Int -> IO () - --- | -go :: (MonadIO m) => History -> Int -> m () -go self distance = liftIO (js_go (self) distance) - -foreign import javascript unsafe "$1[\"pushState\"]($2, $3, $4)" - js_pushState :: History -> JSVal -> JSString -> JSString -> IO () - --- | -pushState :: - (MonadIO m, ToJSString title, ToJSString url) => - History -> JSVal -> title -> url -> m () -pushState self data' title url - = liftIO - (js_pushState (self) data' (toJSString title) (toJSString url)) - -foreign import javascript unsafe "$1[\"replaceState\"]($2, $3, $4)" - js_replaceState :: - History -> JSVal -> JSString -> JSString -> IO () - --- | -replaceState :: - (MonadIO m, ToJSString title, ToJSString url) => - History -> JSVal -> title -> url -> m () -replaceState self data' title url - = liftIO - (js_replaceState (self) data' (toJSString title) (toJSString url)) - -foreign import javascript unsafe "$1[\"length\"]" js_getLength :: - History -> IO Word - --- | -getLength :: (MonadIO m) => History -> m Word -getLength self = liftIO (js_getLength (self)) - -foreign import javascript unsafe "$1[\"state\"]" js_getState :: - History -> IO (Nullable SerializedScriptValue) - --- | -getState :: - (MonadIO m) => History -> m (Maybe SerializedScriptValue) -getState self = liftIO (nullableToMaybe <$> (js_getState (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/IDBCursor.hs b/src/GHCJS/DOM/JSFFI/Generated/IDBCursor.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/IDBCursor.hs +++ /dev/null @@ -1,88 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.IDBCursor - (js_update, update, js_advance, advance, js_continue, continue, - js_delete, delete, js_getSource, getSource, js_getDirection, - getDirection, js_getKey, getKey, js_getPrimaryKey, getPrimaryKey, - IDBCursor, castToIDBCursor, gTypeIDBCursor, IsIDBCursor, - toIDBCursor) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"update\"]($2)" js_update :: - IDBCursor -> JSVal -> IO (Nullable IDBRequest) - --- | -update :: - (MonadIO m, IsIDBCursor self) => - self -> JSVal -> m (Maybe IDBRequest) -update self value - = liftIO (nullableToMaybe <$> (js_update (toIDBCursor self) value)) - -foreign import javascript unsafe "$1[\"advance\"]($2)" js_advance - :: IDBCursor -> Word -> IO () - --- | -advance :: (MonadIO m, IsIDBCursor self) => self -> Word -> m () -advance self count = liftIO (js_advance (toIDBCursor self) count) - -foreign import javascript unsafe "$1[\"continue\"]($2)" js_continue - :: IDBCursor -> JSVal -> IO () - --- | -continue :: (MonadIO m, IsIDBCursor self) => self -> JSVal -> m () -continue self key = liftIO (js_continue (toIDBCursor self) key) - -foreign import javascript unsafe "$1[\"delete\"]()" js_delete :: - IDBCursor -> IO (Nullable IDBRequest) - --- | -delete :: - (MonadIO m, IsIDBCursor self) => self -> m (Maybe IDBRequest) -delete self - = liftIO (nullableToMaybe <$> (js_delete (toIDBCursor self))) - -foreign import javascript unsafe "$1[\"source\"]" js_getSource :: - IDBCursor -> IO (Nullable IDBAny) - --- | -getSource :: - (MonadIO m, IsIDBCursor self) => self -> m (Maybe IDBAny) -getSource self - = liftIO (nullableToMaybe <$> (js_getSource (toIDBCursor self))) - -foreign import javascript unsafe "$1[\"direction\"]" - js_getDirection :: IDBCursor -> IO JSString - --- | -getDirection :: - (MonadIO m, IsIDBCursor self, FromJSString result) => - self -> m result -getDirection self - = liftIO (fromJSString <$> (js_getDirection (toIDBCursor self))) - -foreign import javascript unsafe "$1[\"key\"]" js_getKey :: - IDBCursor -> IO JSVal - --- | -getKey :: (MonadIO m, IsIDBCursor self) => self -> m JSVal -getKey self = liftIO (js_getKey (toIDBCursor self)) - -foreign import javascript unsafe "$1[\"primaryKey\"]" - js_getPrimaryKey :: IDBCursor -> IO JSVal - --- | -getPrimaryKey :: (MonadIO m, IsIDBCursor self) => self -> m JSVal -getPrimaryKey self = liftIO (js_getPrimaryKey (toIDBCursor self)) diff --git a/src/GHCJS/DOM/JSFFI/Generated/IDBCursorWithValue.hs b/src/GHCJS/DOM/JSFFI/Generated/IDBCursorWithValue.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/IDBCursorWithValue.hs +++ /dev/null @@ -1,26 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.IDBCursorWithValue - (js_getValue, getValue, IDBCursorWithValue, - castToIDBCursorWithValue, gTypeIDBCursorWithValue) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"value\"]" js_getValue :: - IDBCursorWithValue -> IO JSVal - --- | -getValue :: (MonadIO m) => IDBCursorWithValue -> m JSVal -getValue self = liftIO (js_getValue (self)) diff --git a/src/GHCJS/DOM/JSFFI/Generated/IDBDatabase.hs b/src/GHCJS/DOM/JSFFI/Generated/IDBDatabase.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/IDBDatabase.hs +++ /dev/null @@ -1,119 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.IDBDatabase - (js_createObjectStore, createObjectStore, js_deleteObjectStore, - deleteObjectStore, js_transaction, transaction, js_transaction', - transaction', js_close, close, js_getName, getName, js_getVersion, - getVersion, js_getObjectStoreNames, getObjectStoreNames, abort, - error, versionChange, IDBDatabase, castToIDBDatabase, - gTypeIDBDatabase) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe - "$1[\"createObjectStore\"]($2, $3)" js_createObjectStore :: - IDBDatabase -> - JSString -> Nullable Dictionary -> IO (Nullable IDBObjectStore) - --- | -createObjectStore :: - (MonadIO m, ToJSString name, IsDictionary options) => - IDBDatabase -> name -> Maybe options -> m (Maybe IDBObjectStore) -createObjectStore self name options - = liftIO - (nullableToMaybe <$> - (js_createObjectStore (self) (toJSString name) - (maybeToNullable (fmap toDictionary options)))) - -foreign import javascript unsafe "$1[\"deleteObjectStore\"]($2)" - js_deleteObjectStore :: IDBDatabase -> JSString -> IO () - --- | -deleteObjectStore :: - (MonadIO m, ToJSString name) => IDBDatabase -> name -> m () -deleteObjectStore self name - = liftIO (js_deleteObjectStore (self) (toJSString name)) - -foreign import javascript unsafe "$1[\"transaction\"]($2, $3)" - js_transaction :: - IDBDatabase -> JSString -> JSString -> IO (Nullable IDBTransaction) - --- | -transaction :: - (MonadIO m, ToJSString storeName, ToJSString mode) => - IDBDatabase -> storeName -> mode -> m (Maybe IDBTransaction) -transaction self storeName mode - = liftIO - (nullableToMaybe <$> - (js_transaction (self) (toJSString storeName) (toJSString mode))) - -foreign import javascript unsafe "$1[\"transaction\"]($2, $3)" - js_transaction' :: - IDBDatabase -> JSVal -> JSString -> IO (Nullable IDBTransaction) - --- | -transaction' :: - (MonadIO m, ToJSString storeNames, ToJSString mode) => - IDBDatabase -> [storeNames] -> mode -> m (Maybe IDBTransaction) -transaction' self storeNames mode - = liftIO - (nullableToMaybe <$> - (toJSVal storeNames >>= - \ storeNames' -> js_transaction' (self) storeNames' - (toJSString mode))) - -foreign import javascript unsafe "$1[\"close\"]()" js_close :: - IDBDatabase -> IO () - --- | -close :: (MonadIO m) => IDBDatabase -> m () -close self = liftIO (js_close (self)) - -foreign import javascript unsafe "$1[\"name\"]" js_getName :: - IDBDatabase -> IO JSString - --- | -getName :: - (MonadIO m, FromJSString result) => IDBDatabase -> m result -getName self = liftIO (fromJSString <$> (js_getName (self))) - -foreign import javascript unsafe "$1[\"version\"]" js_getVersion :: - IDBDatabase -> IO Double - --- | -getVersion :: (MonadIO m) => IDBDatabase -> m Word64 -getVersion self = liftIO (round <$> (js_getVersion (self))) - -foreign import javascript unsafe "$1[\"objectStoreNames\"]" - js_getObjectStoreNames :: - IDBDatabase -> IO (Nullable DOMStringList) - --- | -getObjectStoreNames :: - (MonadIO m) => IDBDatabase -> m (Maybe DOMStringList) -getObjectStoreNames self - = liftIO (nullableToMaybe <$> (js_getObjectStoreNames (self))) - --- | -abort :: EventName IDBDatabase Event -abort = unsafeEventName (toJSString "abort") - --- | -error :: EventName IDBDatabase Event -error = unsafeEventName (toJSString "error") - --- | -versionChange :: EventName IDBDatabase IDBVersionChangeEvent -versionChange = unsafeEventName (toJSString "versionchange") diff --git a/src/GHCJS/DOM/JSFFI/Generated/IDBFactory.hs b/src/GHCJS/DOM/JSFFI/Generated/IDBFactory.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/IDBFactory.hs +++ /dev/null @@ -1,50 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.IDBFactory - (js_open, open, js_deleteDatabase, deleteDatabase, js_cmp, cmp, - IDBFactory, castToIDBFactory, gTypeIDBFactory) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"open\"]($2, $3)" js_open :: - IDBFactory -> JSString -> Double -> IO (Nullable IDBOpenDBRequest) - --- | -open :: - (MonadIO m, ToJSString name) => - IDBFactory -> name -> Word64 -> m (Maybe IDBOpenDBRequest) -open self name version - = liftIO - (nullableToMaybe <$> - (js_open (self) (toJSString name) (fromIntegral version))) - -foreign import javascript unsafe "$1[\"deleteDatabase\"]($2)" - js_deleteDatabase :: - IDBFactory -> JSString -> IO (Nullable IDBOpenDBRequest) - --- | -deleteDatabase :: - (MonadIO m, ToJSString name) => - IDBFactory -> name -> m (Maybe IDBOpenDBRequest) -deleteDatabase self name - = liftIO - (nullableToMaybe <$> (js_deleteDatabase (self) (toJSString name))) - -foreign import javascript unsafe "$1[\"cmp\"]($2, $3)" js_cmp :: - IDBFactory -> JSVal -> JSVal -> IO Int - --- | -cmp :: (MonadIO m) => IDBFactory -> JSVal -> JSVal -> m Int -cmp self first second = liftIO (js_cmp (self) first second) diff --git a/src/GHCJS/DOM/JSFFI/Generated/IDBIndex.hs b/src/GHCJS/DOM/JSFFI/Generated/IDBIndex.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/IDBIndex.hs +++ /dev/null @@ -1,176 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.IDBIndex - (js_openCursorRange, openCursorRange, js_openCursor, openCursor, - js_openKeyCursorRange, openKeyCursorRange, js_openKeyCursor, - openKeyCursor, js_getRange, getRange, js_get, get, js_getKeyRange, - getKeyRange, js_getKey, getKey, js_countRange, countRange, - js_count, count, js_getName, getName, js_getObjectStore, - getObjectStore, js_getKeyPath, getKeyPath, js_getMultiEntry, - getMultiEntry, js_getUnique, getUnique, IDBIndex, castToIDBIndex, - gTypeIDBIndex) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"openCursor\"]($2, $3)" - js_openCursorRange :: - IDBIndex -> - Nullable IDBKeyRange -> JSString -> IO (Nullable IDBRequest) - --- | -openCursorRange :: - (MonadIO m, ToJSString direction) => - IDBIndex -> Maybe IDBKeyRange -> direction -> m (Maybe IDBRequest) -openCursorRange self range direction - = liftIO - (nullableToMaybe <$> - (js_openCursorRange (self) (maybeToNullable range) - (toJSString direction))) - -foreign import javascript unsafe "$1[\"openCursor\"]($2, $3)" - js_openCursor :: - IDBIndex -> JSVal -> JSString -> IO (Nullable IDBRequest) - --- | -openCursor :: - (MonadIO m, ToJSString direction) => - IDBIndex -> JSVal -> direction -> m (Maybe IDBRequest) -openCursor self key direction - = liftIO - (nullableToMaybe <$> - (js_openCursor (self) key (toJSString direction))) - -foreign import javascript unsafe "$1[\"openKeyCursor\"]($2, $3)" - js_openKeyCursorRange :: - IDBIndex -> - Nullable IDBKeyRange -> JSString -> IO (Nullable IDBRequest) - --- | -openKeyCursorRange :: - (MonadIO m, ToJSString direction) => - IDBIndex -> Maybe IDBKeyRange -> direction -> m (Maybe IDBRequest) -openKeyCursorRange self range direction - = liftIO - (nullableToMaybe <$> - (js_openKeyCursorRange (self) (maybeToNullable range) - (toJSString direction))) - -foreign import javascript unsafe "$1[\"openKeyCursor\"]($2, $3)" - js_openKeyCursor :: - IDBIndex -> JSVal -> JSString -> IO (Nullable IDBRequest) - --- | -openKeyCursor :: - (MonadIO m, ToJSString direction) => - IDBIndex -> JSVal -> direction -> m (Maybe IDBRequest) -openKeyCursor self key direction - = liftIO - (nullableToMaybe <$> - (js_openKeyCursor (self) key (toJSString direction))) - -foreign import javascript unsafe "$1[\"get\"]($2)" js_getRange :: - IDBIndex -> Nullable IDBKeyRange -> IO (Nullable IDBRequest) - --- | -getRange :: - (MonadIO m) => - IDBIndex -> Maybe IDBKeyRange -> m (Maybe IDBRequest) -getRange self key - = liftIO - (nullableToMaybe <$> (js_getRange (self) (maybeToNullable key))) - -foreign import javascript unsafe "$1[\"get\"]($2)" js_get :: - IDBIndex -> JSVal -> IO (Nullable IDBRequest) - --- | -get :: (MonadIO m) => IDBIndex -> JSVal -> m (Maybe IDBRequest) -get self key = liftIO (nullableToMaybe <$> (js_get (self) key)) - -foreign import javascript unsafe "$1[\"getKey\"]($2)" - js_getKeyRange :: - IDBIndex -> Nullable IDBKeyRange -> IO (Nullable IDBRequest) - --- | -getKeyRange :: - (MonadIO m) => - IDBIndex -> Maybe IDBKeyRange -> m (Maybe IDBRequest) -getKeyRange self key - = liftIO - (nullableToMaybe <$> (js_getKeyRange (self) (maybeToNullable key))) - -foreign import javascript unsafe "$1[\"getKey\"]($2)" js_getKey :: - IDBIndex -> JSVal -> IO (Nullable IDBRequest) - --- | -getKey :: (MonadIO m) => IDBIndex -> JSVal -> m (Maybe IDBRequest) -getKey self key - = liftIO (nullableToMaybe <$> (js_getKey (self) key)) - -foreign import javascript unsafe "$1[\"count\"]($2)" js_countRange - :: IDBIndex -> Nullable IDBKeyRange -> IO (Nullable IDBRequest) - --- | -countRange :: - (MonadIO m) => - IDBIndex -> Maybe IDBKeyRange -> m (Maybe IDBRequest) -countRange self range - = liftIO - (nullableToMaybe <$> - (js_countRange (self) (maybeToNullable range))) - -foreign import javascript unsafe "$1[\"count\"]($2)" js_count :: - IDBIndex -> JSVal -> IO (Nullable IDBRequest) - --- | -count :: (MonadIO m) => IDBIndex -> JSVal -> m (Maybe IDBRequest) -count self key = liftIO (nullableToMaybe <$> (js_count (self) key)) - -foreign import javascript unsafe "$1[\"name\"]" js_getName :: - IDBIndex -> IO JSString - --- | -getName :: (MonadIO m, FromJSString result) => IDBIndex -> m result -getName self = liftIO (fromJSString <$> (js_getName (self))) - -foreign import javascript unsafe "$1[\"objectStore\"]" - js_getObjectStore :: IDBIndex -> IO (Nullable IDBObjectStore) - --- | -getObjectStore :: - (MonadIO m) => IDBIndex -> m (Maybe IDBObjectStore) -getObjectStore self - = liftIO (nullableToMaybe <$> (js_getObjectStore (self))) - -foreign import javascript unsafe "$1[\"keyPath\"]" js_getKeyPath :: - IDBIndex -> IO (Nullable IDBAny) - --- | -getKeyPath :: (MonadIO m) => IDBIndex -> m (Maybe IDBAny) -getKeyPath self - = liftIO (nullableToMaybe <$> (js_getKeyPath (self))) - -foreign import javascript unsafe "($1[\"multiEntry\"] ? 1 : 0)" - js_getMultiEntry :: IDBIndex -> IO Bool - --- | -getMultiEntry :: (MonadIO m) => IDBIndex -> m Bool -getMultiEntry self = liftIO (js_getMultiEntry (self)) - -foreign import javascript unsafe "($1[\"unique\"] ? 1 : 0)" - js_getUnique :: IDBIndex -> IO Bool - --- | -getUnique :: (MonadIO m) => IDBIndex -> m Bool -getUnique self = liftIO (js_getUnique (self)) diff --git a/src/GHCJS/DOM/JSFFI/Generated/IDBKeyRange.hs b/src/GHCJS/DOM/JSFFI/Generated/IDBKeyRange.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/IDBKeyRange.hs +++ /dev/null @@ -1,95 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.IDBKeyRange - (js_only, only, js_lowerBound, lowerBound, js_upperBound, - upperBound, js_bound, bound, js_getLower, getLower, js_getUpper, - getUpper, js_getLowerOpen, getLowerOpen, js_getUpperOpen, - getUpperOpen, IDBKeyRange, castToIDBKeyRange, gTypeIDBKeyRange) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"only\"]($2)" js_only :: - IDBKeyRange -> JSVal -> IO (Nullable IDBKeyRange) - --- | -only :: - (MonadIO m) => IDBKeyRange -> JSVal -> m (Maybe IDBKeyRange) -only self value - = liftIO (nullableToMaybe <$> (js_only (self) value)) - -foreign import javascript unsafe "$1[\"lowerBound\"]($2, $3)" - js_lowerBound :: - IDBKeyRange -> JSVal -> Bool -> IO (Nullable IDBKeyRange) - --- | -lowerBound :: - (MonadIO m) => - IDBKeyRange -> JSVal -> Bool -> m (Maybe IDBKeyRange) -lowerBound self lower open - = liftIO (nullableToMaybe <$> (js_lowerBound (self) lower open)) - -foreign import javascript unsafe "$1[\"upperBound\"]($2, $3)" - js_upperBound :: - IDBKeyRange -> JSVal -> Bool -> IO (Nullable IDBKeyRange) - --- | -upperBound :: - (MonadIO m) => - IDBKeyRange -> JSVal -> Bool -> m (Maybe IDBKeyRange) -upperBound self upper open - = liftIO (nullableToMaybe <$> (js_upperBound (self) upper open)) - -foreign import javascript unsafe "$1[\"bound\"]($2, $3, $4, $5)" - js_bound :: - IDBKeyRange -> - JSVal -> JSVal -> Bool -> Bool -> IO (Nullable IDBKeyRange) - --- | -bound :: - (MonadIO m) => - IDBKeyRange -> - JSVal -> JSVal -> Bool -> Bool -> m (Maybe IDBKeyRange) -bound self lower upper lowerOpen upperOpen - = liftIO - (nullableToMaybe <$> - (js_bound (self) lower upper lowerOpen upperOpen)) - -foreign import javascript unsafe "$1[\"lower\"]" js_getLower :: - IDBKeyRange -> IO JSVal - --- | -getLower :: (MonadIO m) => IDBKeyRange -> m JSVal -getLower self = liftIO (js_getLower (self)) - -foreign import javascript unsafe "$1[\"upper\"]" js_getUpper :: - IDBKeyRange -> IO JSVal - --- | -getUpper :: (MonadIO m) => IDBKeyRange -> m JSVal -getUpper self = liftIO (js_getUpper (self)) - -foreign import javascript unsafe "($1[\"lowerOpen\"] ? 1 : 0)" - js_getLowerOpen :: IDBKeyRange -> IO Bool - --- | -getLowerOpen :: (MonadIO m) => IDBKeyRange -> m Bool -getLowerOpen self = liftIO (js_getLowerOpen (self)) - -foreign import javascript unsafe "($1[\"upperOpen\"] ? 1 : 0)" - js_getUpperOpen :: IDBKeyRange -> IO Bool - --- | -getUpperOpen :: (MonadIO m) => IDBKeyRange -> m Bool -getUpperOpen self = liftIO (js_getUpperOpen (self)) diff --git a/src/GHCJS/DOM/JSFFI/Generated/IDBObjectStore.hs b/src/GHCJS/DOM/JSFFI/Generated/IDBObjectStore.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/IDBObjectStore.hs +++ /dev/null @@ -1,241 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.IDBObjectStore - (js_put, put, js_add, add, js_deleteRange, deleteRange, js_delete, - delete, js_getRange, getRange, js_get, get, js_clear, clear, - js_openCursorRange, openCursorRange, js_openCursor, openCursor, - js_createIndex', createIndex', js_createIndex, createIndex, - js_index, index, js_deleteIndex, deleteIndex, js_countRange, - countRange, js_count, count, js_getName, getName, js_getKeyPath, - getKeyPath, js_getIndexNames, getIndexNames, js_getTransaction, - getTransaction, js_getAutoIncrement, getAutoIncrement, - IDBObjectStore, castToIDBObjectStore, gTypeIDBObjectStore) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"put\"]($2, $3)" js_put :: - IDBObjectStore -> JSVal -> JSVal -> IO (Nullable IDBRequest) - --- | -put :: - (MonadIO m) => - IDBObjectStore -> JSVal -> JSVal -> m (Maybe IDBRequest) -put self value key - = liftIO (nullableToMaybe <$> (js_put (self) value key)) - -foreign import javascript unsafe "$1[\"add\"]($2, $3)" js_add :: - IDBObjectStore -> JSVal -> JSVal -> IO (Nullable IDBRequest) - --- | -add :: - (MonadIO m) => - IDBObjectStore -> JSVal -> JSVal -> m (Maybe IDBRequest) -add self value key - = liftIO (nullableToMaybe <$> (js_add (self) value key)) - -foreign import javascript unsafe "$1[\"delete\"]($2)" - js_deleteRange :: - IDBObjectStore -> Nullable IDBKeyRange -> IO (Nullable IDBRequest) - --- | -deleteRange :: - (MonadIO m) => - IDBObjectStore -> Maybe IDBKeyRange -> m (Maybe IDBRequest) -deleteRange self keyRange - = liftIO - (nullableToMaybe <$> - (js_deleteRange (self) (maybeToNullable keyRange))) - -foreign import javascript unsafe "$1[\"delete\"]($2)" js_delete :: - IDBObjectStore -> JSVal -> IO (Nullable IDBRequest) - --- | -delete :: - (MonadIO m) => IDBObjectStore -> JSVal -> m (Maybe IDBRequest) -delete self key - = liftIO (nullableToMaybe <$> (js_delete (self) key)) - -foreign import javascript unsafe "$1[\"get\"]($2)" js_getRange :: - IDBObjectStore -> Nullable IDBKeyRange -> IO (Nullable IDBRequest) - --- | -getRange :: - (MonadIO m) => - IDBObjectStore -> Maybe IDBKeyRange -> m (Maybe IDBRequest) -getRange self key - = liftIO - (nullableToMaybe <$> (js_getRange (self) (maybeToNullable key))) - -foreign import javascript unsafe "$1[\"get\"]($2)" js_get :: - IDBObjectStore -> JSVal -> IO (Nullable IDBRequest) - --- | -get :: - (MonadIO m) => IDBObjectStore -> JSVal -> m (Maybe IDBRequest) -get self key = liftIO (nullableToMaybe <$> (js_get (self) key)) - -foreign import javascript unsafe "$1[\"clear\"]()" js_clear :: - IDBObjectStore -> IO (Nullable IDBRequest) - --- | -clear :: (MonadIO m) => IDBObjectStore -> m (Maybe IDBRequest) -clear self = liftIO (nullableToMaybe <$> (js_clear (self))) - -foreign import javascript unsafe "$1[\"openCursor\"]($2, $3)" - js_openCursorRange :: - IDBObjectStore -> - Nullable IDBKeyRange -> JSString -> IO (Nullable IDBRequest) - --- | -openCursorRange :: - (MonadIO m, ToJSString direction) => - IDBObjectStore -> - Maybe IDBKeyRange -> direction -> m (Maybe IDBRequest) -openCursorRange self range direction - = liftIO - (nullableToMaybe <$> - (js_openCursorRange (self) (maybeToNullable range) - (toJSString direction))) - -foreign import javascript unsafe "$1[\"openCursor\"]($2, $3)" - js_openCursor :: - IDBObjectStore -> JSVal -> JSString -> IO (Nullable IDBRequest) - --- | -openCursor :: - (MonadIO m, ToJSString direction) => - IDBObjectStore -> JSVal -> direction -> m (Maybe IDBRequest) -openCursor self key direction - = liftIO - (nullableToMaybe <$> - (js_openCursor (self) key (toJSString direction))) - -foreign import javascript unsafe "$1[\"createIndex\"]($2, $3, $4)" - js_createIndex' :: - IDBObjectStore -> - JSString -> JSVal -> Nullable Dictionary -> IO (Nullable IDBIndex) - --- | -createIndex' :: - (MonadIO m, ToJSString name, ToJSString keyPath, - IsDictionary options) => - IDBObjectStore -> - name -> [keyPath] -> Maybe options -> m (Maybe IDBIndex) -createIndex' self name keyPath options - = liftIO - (nullableToMaybe <$> - (toJSVal keyPath >>= - \ keyPath' -> js_createIndex' (self) (toJSString name) keyPath' - (maybeToNullable (fmap toDictionary options)))) - -foreign import javascript unsafe "$1[\"createIndex\"]($2, $3, $4)" - js_createIndex :: - IDBObjectStore -> - JSString -> - JSString -> Nullable Dictionary -> IO (Nullable IDBIndex) - --- | -createIndex :: - (MonadIO m, ToJSString name, ToJSString keyPath, - IsDictionary options) => - IDBObjectStore -> - name -> keyPath -> Maybe options -> m (Maybe IDBIndex) -createIndex self name keyPath options - = liftIO - (nullableToMaybe <$> - (js_createIndex (self) (toJSString name) (toJSString keyPath) - (maybeToNullable (fmap toDictionary options)))) - -foreign import javascript unsafe "$1[\"index\"]($2)" js_index :: - IDBObjectStore -> JSString -> IO (Nullable IDBIndex) - --- | -index :: - (MonadIO m, ToJSString name) => - IDBObjectStore -> name -> m (Maybe IDBIndex) -index self name - = liftIO (nullableToMaybe <$> (js_index (self) (toJSString name))) - -foreign import javascript unsafe "$1[\"deleteIndex\"]($2)" - js_deleteIndex :: IDBObjectStore -> JSString -> IO () - --- | -deleteIndex :: - (MonadIO m, ToJSString name) => IDBObjectStore -> name -> m () -deleteIndex self name - = liftIO (js_deleteIndex (self) (toJSString name)) - -foreign import javascript unsafe "$1[\"count\"]($2)" js_countRange - :: - IDBObjectStore -> Nullable IDBKeyRange -> IO (Nullable IDBRequest) - --- | -countRange :: - (MonadIO m) => - IDBObjectStore -> Maybe IDBKeyRange -> m (Maybe IDBRequest) -countRange self range - = liftIO - (nullableToMaybe <$> - (js_countRange (self) (maybeToNullable range))) - -foreign import javascript unsafe "$1[\"count\"]($2)" js_count :: - IDBObjectStore -> JSVal -> IO (Nullable IDBRequest) - --- | -count :: - (MonadIO m) => IDBObjectStore -> JSVal -> m (Maybe IDBRequest) -count self key = liftIO (nullableToMaybe <$> (js_count (self) key)) - -foreign import javascript unsafe "$1[\"name\"]" js_getName :: - IDBObjectStore -> IO (Nullable JSString) - --- | -getName :: - (MonadIO m, FromJSString result) => - IDBObjectStore -> m (Maybe result) -getName self = liftIO (fromMaybeJSString <$> (js_getName (self))) - -foreign import javascript unsafe "$1[\"keyPath\"]" js_getKeyPath :: - IDBObjectStore -> IO (Nullable IDBAny) - --- | -getKeyPath :: (MonadIO m) => IDBObjectStore -> m (Maybe IDBAny) -getKeyPath self - = liftIO (nullableToMaybe <$> (js_getKeyPath (self))) - -foreign import javascript unsafe "$1[\"indexNames\"]" - js_getIndexNames :: IDBObjectStore -> IO (Nullable DOMStringList) - --- | -getIndexNames :: - (MonadIO m) => IDBObjectStore -> m (Maybe DOMStringList) -getIndexNames self - = liftIO (nullableToMaybe <$> (js_getIndexNames (self))) - -foreign import javascript unsafe "$1[\"transaction\"]" - js_getTransaction :: IDBObjectStore -> IO (Nullable IDBTransaction) - --- | -getTransaction :: - (MonadIO m) => IDBObjectStore -> m (Maybe IDBTransaction) -getTransaction self - = liftIO (nullableToMaybe <$> (js_getTransaction (self))) - -foreign import javascript unsafe "($1[\"autoIncrement\"] ? 1 : 0)" - js_getAutoIncrement :: IDBObjectStore -> IO Bool - --- | -getAutoIncrement :: (MonadIO m) => IDBObjectStore -> m Bool -getAutoIncrement self = liftIO (js_getAutoIncrement (self)) diff --git a/src/GHCJS/DOM/JSFFI/Generated/IDBOpenDBRequest.hs b/src/GHCJS/DOM/JSFFI/Generated/IDBOpenDBRequest.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/IDBOpenDBRequest.hs +++ /dev/null @@ -1,27 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.IDBOpenDBRequest - (blocked, upgradeNeeded, IDBOpenDBRequest, castToIDBOpenDBRequest, - gTypeIDBOpenDBRequest) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - --- | -blocked :: EventName IDBOpenDBRequest IDBVersionChangeEvent -blocked = unsafeEventName (toJSString "blocked") - --- | -upgradeNeeded :: EventName IDBOpenDBRequest IDBVersionChangeEvent -upgradeNeeded = unsafeEventName (toJSString "upgradeneeded") diff --git a/src/GHCJS/DOM/JSFFI/Generated/IDBRequest.hs b/src/GHCJS/DOM/JSFFI/Generated/IDBRequest.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/IDBRequest.hs +++ /dev/null @@ -1,78 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.IDBRequest - (js_getResult, getResult, js_getError, getError, js_getSource, - getSource, js_getTransaction, getTransaction, js_getReadyState, - getReadyState, success, error, IDBRequest, castToIDBRequest, - gTypeIDBRequest, IsIDBRequest, toIDBRequest) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"result\"]" js_getResult :: - IDBRequest -> IO (Nullable IDBAny) - --- | -getResult :: - (MonadIO m, IsIDBRequest self) => self -> m (Maybe IDBAny) -getResult self - = liftIO (nullableToMaybe <$> (js_getResult (toIDBRequest self))) - -foreign import javascript unsafe "$1[\"error\"]" js_getError :: - IDBRequest -> IO (Nullable DOMError) - --- | -getError :: - (MonadIO m, IsIDBRequest self) => self -> m (Maybe DOMError) -getError self - = liftIO (nullableToMaybe <$> (js_getError (toIDBRequest self))) - -foreign import javascript unsafe "$1[\"source\"]" js_getSource :: - IDBRequest -> IO (Nullable IDBAny) - --- | -getSource :: - (MonadIO m, IsIDBRequest self) => self -> m (Maybe IDBAny) -getSource self - = liftIO (nullableToMaybe <$> (js_getSource (toIDBRequest self))) - -foreign import javascript unsafe "$1[\"transaction\"]" - js_getTransaction :: IDBRequest -> IO (Nullable IDBTransaction) - --- | -getTransaction :: - (MonadIO m, IsIDBRequest self) => self -> m (Maybe IDBTransaction) -getTransaction self - = liftIO - (nullableToMaybe <$> (js_getTransaction (toIDBRequest self))) - -foreign import javascript unsafe "$1[\"readyState\"]" - js_getReadyState :: IDBRequest -> IO JSString - --- | -getReadyState :: - (MonadIO m, IsIDBRequest self, FromJSString result) => - self -> m result -getReadyState self - = liftIO (fromJSString <$> (js_getReadyState (toIDBRequest self))) - --- | -success :: - (IsIDBRequest self, IsEventTarget self) => EventName self Event -success = unsafeEventName (toJSString "success") - --- | -error :: - (IsIDBRequest self, IsEventTarget self) => EventName self Event -error = unsafeEventName (toJSString "error") diff --git a/src/GHCJS/DOM/JSFFI/Generated/IDBTransaction.hs b/src/GHCJS/DOM/JSFFI/Generated/IDBTransaction.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/IDBTransaction.hs +++ /dev/null @@ -1,73 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.IDBTransaction - (js_objectStore, objectStore, js_abort, abort, js_getMode, getMode, - js_getDb, getDb, js_getError, getError, abortEvent, complete, - error, IDBTransaction, castToIDBTransaction, gTypeIDBTransaction) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"objectStore\"]($2)" - js_objectStore :: - IDBTransaction -> JSString -> IO (Nullable IDBObjectStore) - --- | -objectStore :: - (MonadIO m, ToJSString name) => - IDBTransaction -> name -> m (Maybe IDBObjectStore) -objectStore self name - = liftIO - (nullableToMaybe <$> (js_objectStore (self) (toJSString name))) - -foreign import javascript unsafe "$1[\"abort\"]()" js_abort :: - IDBTransaction -> IO () - --- | -abort :: (MonadIO m) => IDBTransaction -> m () -abort self = liftIO (js_abort (self)) - -foreign import javascript unsafe "$1[\"mode\"]" js_getMode :: - IDBTransaction -> IO JSString - --- | -getMode :: - (MonadIO m, FromJSString result) => IDBTransaction -> m result -getMode self = liftIO (fromJSString <$> (js_getMode (self))) - -foreign import javascript unsafe "$1[\"db\"]" js_getDb :: - IDBTransaction -> IO (Nullable IDBDatabase) - --- | -getDb :: (MonadIO m) => IDBTransaction -> m (Maybe IDBDatabase) -getDb self = liftIO (nullableToMaybe <$> (js_getDb (self))) - -foreign import javascript unsafe "$1[\"error\"]" js_getError :: - IDBTransaction -> IO (Nullable DOMError) - --- | -getError :: (MonadIO m) => IDBTransaction -> m (Maybe DOMError) -getError self = liftIO (nullableToMaybe <$> (js_getError (self))) - --- | -abortEvent :: EventName IDBTransaction Event -abortEvent = unsafeEventName (toJSString "abort") - --- | -complete :: EventName IDBTransaction Event -complete = unsafeEventName (toJSString "complete") - --- | -error :: EventName IDBTransaction Event -error = unsafeEventName (toJSString "error") diff --git a/src/GHCJS/DOM/JSFFI/Generated/IDBVersionChangeEvent.hs b/src/GHCJS/DOM/JSFFI/Generated/IDBVersionChangeEvent.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/IDBVersionChangeEvent.hs +++ /dev/null @@ -1,37 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.IDBVersionChangeEvent - (js_getOldVersion, getOldVersion, js_getNewVersion, getNewVersion, - IDBVersionChangeEvent, castToIDBVersionChangeEvent, - gTypeIDBVersionChangeEvent) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"oldVersion\"]" - js_getOldVersion :: IDBVersionChangeEvent -> IO Double - --- | -getOldVersion :: (MonadIO m) => IDBVersionChangeEvent -> m Word64 -getOldVersion self = liftIO (round <$> (js_getOldVersion (self))) - -foreign import javascript unsafe "$1[\"newVersion\"]" - js_getNewVersion :: IDBVersionChangeEvent -> IO (Nullable Double) - --- | -getNewVersion :: - (MonadIO m) => IDBVersionChangeEvent -> m (Maybe Word64) -getNewVersion self - = liftIO - (fmap round . nullableToMaybe <$> (js_getNewVersion (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/ImageData.hs b/src/GHCJS/DOM/JSFFI/Generated/ImageData.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/ImageData.hs +++ /dev/null @@ -1,56 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.ImageData - (js_newImageData, newImageData, js_newImageData', newImageData', - js_getWidth, getWidth, js_getHeight, getHeight, ImageData, - castToImageData, gTypeImageData) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe - "new window[\"ImageData\"]($1, $2,\n$3)" js_newImageData :: - Nullable Uint8ClampedArray -> Word -> Word -> IO ImageData - --- | -newImageData :: - (MonadIO m, IsUint8ClampedArray data') => - Maybe data' -> Word -> Word -> m ImageData -newImageData data' sw sh - = liftIO - (js_newImageData (maybeToNullable (fmap toUint8ClampedArray data')) - sw - sh) - -foreign import javascript unsafe - "new window[\"ImageData\"]($1, $2)" js_newImageData' :: - Word -> Word -> IO ImageData - --- | -newImageData' :: (MonadIO m) => Word -> Word -> m ImageData -newImageData' sw sh = liftIO (js_newImageData' sw sh) - -foreign import javascript unsafe "$1[\"width\"]" js_getWidth :: - ImageData -> IO Int - --- | -getWidth :: (MonadIO m) => ImageData -> m Int -getWidth self = liftIO (js_getWidth (self)) - -foreign import javascript unsafe "$1[\"height\"]" js_getHeight :: - ImageData -> IO Int - --- | -getHeight :: (MonadIO m) => ImageData -> m Int -getHeight self = liftIO (js_getHeight (self)) diff --git a/src/GHCJS/DOM/JSFFI/Generated/InspectorFrontendHost.hs b/src/GHCJS/DOM/JSFFI/Generated/InspectorFrontendHost.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/InspectorFrontendHost.hs +++ /dev/null @@ -1,294 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.InspectorFrontendHost - (js_loaded, loaded, js_closeWindow, closeWindow, js_bringToFront, - bringToFront, js_setZoomFactor, setZoomFactor, - js_inspectedURLChanged, inspectedURLChanged, js_requestSetDockSide, - requestSetDockSide, js_setAttachedWindowHeight, - setAttachedWindowHeight, js_setAttachedWindowWidth, - setAttachedWindowWidth, js_setToolbarHeight, setToolbarHeight, - js_moveWindowBy, moveWindowBy, js_localizedStringsURL, - localizedStringsURL, js_debuggableType, debuggableType, - js_copyText, copyText, js_openInNewTab, openInNewTab, js_canSave, - canSave, js_save, save, js_append, append, js_close, close, - js_platform, platform, js_port, port, js_showContextMenu, - showContextMenu, js_dispatchEventAsContextMenuEvent, - dispatchEventAsContextMenuEvent, js_sendMessageToBackend, - sendMessageToBackend, js_unbufferedLog, unbufferedLog, - js_isUnderTest, isUnderTest, js_beep, beep, js_canInspectWorkers, - canInspectWorkers, js_canSaveAs, canSaveAs, InspectorFrontendHost, - castToInspectorFrontendHost, gTypeInspectorFrontendHost) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"loaded\"]()" js_loaded :: - InspectorFrontendHost -> IO () - --- | -loaded :: (MonadIO m) => InspectorFrontendHost -> m () -loaded self = liftIO (js_loaded (self)) - -foreign import javascript unsafe "$1[\"closeWindow\"]()" - js_closeWindow :: InspectorFrontendHost -> IO () - --- | -closeWindow :: (MonadIO m) => InspectorFrontendHost -> m () -closeWindow self = liftIO (js_closeWindow (self)) - -foreign import javascript unsafe "$1[\"bringToFront\"]()" - js_bringToFront :: InspectorFrontendHost -> IO () - --- | -bringToFront :: (MonadIO m) => InspectorFrontendHost -> m () -bringToFront self = liftIO (js_bringToFront (self)) - -foreign import javascript unsafe "$1[\"setZoomFactor\"]($2)" - js_setZoomFactor :: InspectorFrontendHost -> Float -> IO () - --- | -setZoomFactor :: - (MonadIO m) => InspectorFrontendHost -> Float -> m () -setZoomFactor self zoom = liftIO (js_setZoomFactor (self) zoom) - -foreign import javascript unsafe "$1[\"inspectedURLChanged\"]($2)" - js_inspectedURLChanged :: - InspectorFrontendHost -> JSString -> IO () - --- | -inspectedURLChanged :: - (MonadIO m, ToJSString newURL) => - InspectorFrontendHost -> newURL -> m () -inspectedURLChanged self newURL - = liftIO (js_inspectedURLChanged (self) (toJSString newURL)) - -foreign import javascript unsafe "$1[\"requestSetDockSide\"]($2)" - js_requestSetDockSide :: InspectorFrontendHost -> JSString -> IO () - --- | -requestSetDockSide :: - (MonadIO m, ToJSString side) => - InspectorFrontendHost -> side -> m () -requestSetDockSide self side - = liftIO (js_requestSetDockSide (self) (toJSString side)) - -foreign import javascript unsafe - "$1[\"setAttachedWindowHeight\"]($2)" js_setAttachedWindowHeight :: - InspectorFrontendHost -> Word -> IO () - --- | -setAttachedWindowHeight :: - (MonadIO m) => InspectorFrontendHost -> Word -> m () -setAttachedWindowHeight self height - = liftIO (js_setAttachedWindowHeight (self) height) - -foreign import javascript unsafe - "$1[\"setAttachedWindowWidth\"]($2)" js_setAttachedWindowWidth :: - InspectorFrontendHost -> Word -> IO () - --- | -setAttachedWindowWidth :: - (MonadIO m) => InspectorFrontendHost -> Word -> m () -setAttachedWindowWidth self width - = liftIO (js_setAttachedWindowWidth (self) width) - -foreign import javascript unsafe "$1[\"setToolbarHeight\"]($2)" - js_setToolbarHeight :: InspectorFrontendHost -> Float -> IO () - --- | -setToolbarHeight :: - (MonadIO m) => InspectorFrontendHost -> Float -> m () -setToolbarHeight self height - = liftIO (js_setToolbarHeight (self) height) - -foreign import javascript unsafe "$1[\"moveWindowBy\"]($2, $3)" - js_moveWindowBy :: InspectorFrontendHost -> Float -> Float -> IO () - --- | -moveWindowBy :: - (MonadIO m) => InspectorFrontendHost -> Float -> Float -> m () -moveWindowBy self x y = liftIO (js_moveWindowBy (self) x y) - -foreign import javascript unsafe "$1[\"localizedStringsURL\"]()" - js_localizedStringsURL :: InspectorFrontendHost -> IO JSString - --- | -localizedStringsURL :: - (MonadIO m, FromJSString result) => - InspectorFrontendHost -> m result -localizedStringsURL self - = liftIO (fromJSString <$> (js_localizedStringsURL (self))) - -foreign import javascript unsafe "$1[\"debuggableType\"]()" - js_debuggableType :: InspectorFrontendHost -> IO JSString - --- | -debuggableType :: - (MonadIO m, FromJSString result) => - InspectorFrontendHost -> m result -debuggableType self - = liftIO (fromJSString <$> (js_debuggableType (self))) - -foreign import javascript unsafe "$1[\"copyText\"]($2)" js_copyText - :: InspectorFrontendHost -> JSString -> IO () - --- | -copyText :: - (MonadIO m, ToJSString text) => - InspectorFrontendHost -> text -> m () -copyText self text = liftIO (js_copyText (self) (toJSString text)) - -foreign import javascript unsafe "$1[\"openInNewTab\"]($2)" - js_openInNewTab :: InspectorFrontendHost -> JSString -> IO () - --- | -openInNewTab :: - (MonadIO m, ToJSString url) => InspectorFrontendHost -> url -> m () -openInNewTab self url - = liftIO (js_openInNewTab (self) (toJSString url)) - -foreign import javascript unsafe "($1[\"canSave\"]() ? 1 : 0)" - js_canSave :: InspectorFrontendHost -> IO Bool - --- | -canSave :: (MonadIO m) => InspectorFrontendHost -> m Bool -canSave self = liftIO (js_canSave (self)) - -foreign import javascript unsafe "$1[\"save\"]($2, $3, $4, $5)" - js_save :: - InspectorFrontendHost -> - JSString -> JSString -> Bool -> Bool -> IO () - --- | -save :: - (MonadIO m, ToJSString url, ToJSString content) => - InspectorFrontendHost -> url -> content -> Bool -> Bool -> m () -save self url content base64Encoded forceSaveAs - = liftIO - (js_save (self) (toJSString url) (toJSString content) base64Encoded - forceSaveAs) - -foreign import javascript unsafe "$1[\"append\"]($2, $3)" js_append - :: InspectorFrontendHost -> JSString -> JSString -> IO () - --- | -append :: - (MonadIO m, ToJSString url, ToJSString content) => - InspectorFrontendHost -> url -> content -> m () -append self url content - = liftIO (js_append (self) (toJSString url) (toJSString content)) - -foreign import javascript unsafe "$1[\"close\"]($2)" js_close :: - InspectorFrontendHost -> JSString -> IO () - --- | -close :: - (MonadIO m, ToJSString url) => InspectorFrontendHost -> url -> m () -close self url = liftIO (js_close (self) (toJSString url)) - -foreign import javascript unsafe "$1[\"platform\"]()" js_platform - :: InspectorFrontendHost -> IO JSString - --- | -platform :: - (MonadIO m, FromJSString result) => - InspectorFrontendHost -> m result -platform self = liftIO (fromJSString <$> (js_platform (self))) - -foreign import javascript unsafe "$1[\"port\"]()" js_port :: - InspectorFrontendHost -> IO JSString - --- | -port :: - (MonadIO m, FromJSString result) => - InspectorFrontendHost -> m result -port self = liftIO (fromJSString <$> (js_port (self))) - -foreign import javascript unsafe "$1[\"showContextMenu\"]($2, $3)" - js_showContextMenu :: - InspectorFrontendHost -> Nullable MouseEvent -> JSVal -> IO () - --- | -showContextMenu :: - (MonadIO m, IsMouseEvent event) => - InspectorFrontendHost -> Maybe event -> JSVal -> m () -showContextMenu self event items - = liftIO - (js_showContextMenu (self) - (maybeToNullable (fmap toMouseEvent event)) - items) - -foreign import javascript unsafe - "$1[\"dispatchEventAsContextMenuEvent\"]($2)" - js_dispatchEventAsContextMenuEvent :: - InspectorFrontendHost -> Nullable Event -> IO () - --- | -dispatchEventAsContextMenuEvent :: - (MonadIO m, IsEvent event) => - InspectorFrontendHost -> Maybe event -> m () -dispatchEventAsContextMenuEvent self event - = liftIO - (js_dispatchEventAsContextMenuEvent (self) - (maybeToNullable (fmap toEvent event))) - -foreign import javascript unsafe "$1[\"sendMessageToBackend\"]($2)" - js_sendMessageToBackend :: - InspectorFrontendHost -> JSString -> IO () - --- | -sendMessageToBackend :: - (MonadIO m, ToJSString message) => - InspectorFrontendHost -> message -> m () -sendMessageToBackend self message - = liftIO (js_sendMessageToBackend (self) (toJSString message)) - -foreign import javascript unsafe "$1[\"unbufferedLog\"]($2)" - js_unbufferedLog :: InspectorFrontendHost -> JSString -> IO () - --- | -unbufferedLog :: - (MonadIO m, ToJSString message) => - InspectorFrontendHost -> message -> m () -unbufferedLog self message - = liftIO (js_unbufferedLog (self) (toJSString message)) - -foreign import javascript unsafe "($1[\"isUnderTest\"]() ? 1 : 0)" - js_isUnderTest :: InspectorFrontendHost -> IO Bool - --- | -isUnderTest :: (MonadIO m) => InspectorFrontendHost -> m Bool -isUnderTest self = liftIO (js_isUnderTest (self)) - -foreign import javascript unsafe "$1[\"beep\"]()" js_beep :: - InspectorFrontendHost -> IO () - --- | -beep :: (MonadIO m) => InspectorFrontendHost -> m () -beep self = liftIO (js_beep (self)) - -foreign import javascript unsafe - "($1[\"canInspectWorkers\"]() ? 1 : 0)" js_canInspectWorkers :: - InspectorFrontendHost -> IO Bool - --- | -canInspectWorkers :: (MonadIO m) => InspectorFrontendHost -> m Bool -canInspectWorkers self = liftIO (js_canInspectWorkers (self)) - -foreign import javascript unsafe "($1[\"canSaveAs\"]() ? 1 : 0)" - js_canSaveAs :: InspectorFrontendHost -> IO Bool - --- | -canSaveAs :: (MonadIO m) => InspectorFrontendHost -> m Bool -canSaveAs self = liftIO (js_canSaveAs (self)) diff --git a/src/GHCJS/DOM/JSFFI/Generated/InternalSettings.hs b/src/GHCJS/DOM/JSFFI/Generated/InternalSettings.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/InternalSettings.hs +++ /dev/null @@ -1,398 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.InternalSettings - (js_setTouchEventEmulationEnabled, setTouchEventEmulationEnabled, - js_setStandardFontFamily, setStandardFontFamily, - js_setSerifFontFamily, setSerifFontFamily, - js_setSansSerifFontFamily, setSansSerifFontFamily, - js_setFixedFontFamily, setFixedFontFamily, js_setCursiveFontFamily, - setCursiveFontFamily, js_setFantasyFontFamily, - setFantasyFontFamily, js_setPictographFontFamily, - setPictographFontFamily, js_setFontFallbackPrefersPictographs, - setFontFallbackPrefersPictographs, js_setTextAutosizingEnabled, - setTextAutosizingEnabled, js_setTextAutosizingWindowSizeOverride, - setTextAutosizingWindowSizeOverride, - js_setTextAutosizingFontScaleFactor, - setTextAutosizingFontScaleFactor, js_setCSSShapesEnabled, - setCSSShapesEnabled, js_setCanStartMedia, setCanStartMedia, - js_setShouldDisplayTrackKind, setShouldDisplayTrackKind, - js_shouldDisplayTrackKind, shouldDisplayTrackKind, - js_setDefaultVideoPosterURL, setDefaultVideoPosterURL, - js_setTimeWithoutMouseMovementBeforeHidingControls, - setTimeWithoutMouseMovementBeforeHidingControls, - js_setMediaTypeOverride, setMediaTypeOverride, - js_setPluginReplacementEnabled, setPluginReplacementEnabled, - js_setEditingBehavior, setEditingBehavior, - js_setShouldConvertPositionStyleOnCopy, - setShouldConvertPositionStyleOnCopy, - js_setLangAttributeAwareFormControlUIEnabled, - setLangAttributeAwareFormControlUIEnabled, - js_setStorageBlockingPolicy, setStorageBlockingPolicy, - js_setImagesEnabled, setImagesEnabled, - js_setUseLegacyBackgroundSizeShorthandBehavior, - setUseLegacyBackgroundSizeShorthandBehavior, - js_setAutoscrollForDragAndDropEnabled, - setAutoscrollForDragAndDropEnabled, - js_setBackgroundShouldExtendBeyondPage, - setBackgroundShouldExtendBeyondPage, - js_setScrollingTreeIncludesFrames, setScrollingTreeIncludesFrames, - js_setMinimumTimerInterval, setMinimumTimerInterval, - InternalSettings, castToInternalSettings, gTypeInternalSettings) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe - "$1[\"setTouchEventEmulationEnabled\"]($2)" - js_setTouchEventEmulationEnabled :: - InternalSettings -> Bool -> IO () - --- | -setTouchEventEmulationEnabled :: - (MonadIO m) => InternalSettings -> Bool -> m () -setTouchEventEmulationEnabled self enabled - = liftIO (js_setTouchEventEmulationEnabled (self) enabled) - -foreign import javascript unsafe - "$1[\"setStandardFontFamily\"]($2,\n$3)" js_setStandardFontFamily - :: InternalSettings -> JSString -> JSString -> IO () - --- | -setStandardFontFamily :: - (MonadIO m, ToJSString family', ToJSString script) => - InternalSettings -> family' -> script -> m () -setStandardFontFamily self family' script - = liftIO - (js_setStandardFontFamily (self) (toJSString family') - (toJSString script)) - -foreign import javascript unsafe - "$1[\"setSerifFontFamily\"]($2, $3)" js_setSerifFontFamily :: - InternalSettings -> JSString -> JSString -> IO () - --- | -setSerifFontFamily :: - (MonadIO m, ToJSString family', ToJSString script) => - InternalSettings -> family' -> script -> m () -setSerifFontFamily self family' script - = liftIO - (js_setSerifFontFamily (self) (toJSString family') - (toJSString script)) - -foreign import javascript unsafe - "$1[\"setSansSerifFontFamily\"]($2,\n$3)" js_setSansSerifFontFamily - :: InternalSettings -> JSString -> JSString -> IO () - --- | -setSansSerifFontFamily :: - (MonadIO m, ToJSString family', ToJSString script) => - InternalSettings -> family' -> script -> m () -setSansSerifFontFamily self family' script - = liftIO - (js_setSansSerifFontFamily (self) (toJSString family') - (toJSString script)) - -foreign import javascript unsafe - "$1[\"setFixedFontFamily\"]($2, $3)" js_setFixedFontFamily :: - InternalSettings -> JSString -> JSString -> IO () - --- | -setFixedFontFamily :: - (MonadIO m, ToJSString family', ToJSString script) => - InternalSettings -> family' -> script -> m () -setFixedFontFamily self family' script - = liftIO - (js_setFixedFontFamily (self) (toJSString family') - (toJSString script)) - -foreign import javascript unsafe - "$1[\"setCursiveFontFamily\"]($2,\n$3)" js_setCursiveFontFamily :: - InternalSettings -> JSString -> JSString -> IO () - --- | -setCursiveFontFamily :: - (MonadIO m, ToJSString family', ToJSString script) => - InternalSettings -> family' -> script -> m () -setCursiveFontFamily self family' script - = liftIO - (js_setCursiveFontFamily (self) (toJSString family') - (toJSString script)) - -foreign import javascript unsafe - "$1[\"setFantasyFontFamily\"]($2,\n$3)" js_setFantasyFontFamily :: - InternalSettings -> JSString -> JSString -> IO () - --- | -setFantasyFontFamily :: - (MonadIO m, ToJSString family', ToJSString script) => - InternalSettings -> family' -> script -> m () -setFantasyFontFamily self family' script - = liftIO - (js_setFantasyFontFamily (self) (toJSString family') - (toJSString script)) - -foreign import javascript unsafe - "$1[\"setPictographFontFamily\"]($2,\n$3)" - js_setPictographFontFamily :: - InternalSettings -> JSString -> JSString -> IO () - --- | -setPictographFontFamily :: - (MonadIO m, ToJSString family', ToJSString script) => - InternalSettings -> family' -> script -> m () -setPictographFontFamily self family' script - = liftIO - (js_setPictographFontFamily (self) (toJSString family') - (toJSString script)) - -foreign import javascript unsafe - "$1[\"setFontFallbackPrefersPictographs\"]($2)" - js_setFontFallbackPrefersPictographs :: - InternalSettings -> Bool -> IO () - --- | -setFontFallbackPrefersPictographs :: - (MonadIO m) => InternalSettings -> Bool -> m () -setFontFallbackPrefersPictographs self preferPictographs - = liftIO - (js_setFontFallbackPrefersPictographs (self) preferPictographs) - -foreign import javascript unsafe - "$1[\"setTextAutosizingEnabled\"]($2)" js_setTextAutosizingEnabled - :: InternalSettings -> Bool -> IO () - --- | -setTextAutosizingEnabled :: - (MonadIO m) => InternalSettings -> Bool -> m () -setTextAutosizingEnabled self enabled - = liftIO (js_setTextAutosizingEnabled (self) enabled) - -foreign import javascript unsafe - "$1[\"setTextAutosizingWindowSizeOverride\"]($2,\n$3)" - js_setTextAutosizingWindowSizeOverride :: - InternalSettings -> Int -> Int -> IO () - --- | -setTextAutosizingWindowSizeOverride :: - (MonadIO m) => InternalSettings -> Int -> Int -> m () -setTextAutosizingWindowSizeOverride self width height - = liftIO - (js_setTextAutosizingWindowSizeOverride (self) width height) - -foreign import javascript unsafe - "$1[\"setTextAutosizingFontScaleFactor\"]($2)" - js_setTextAutosizingFontScaleFactor :: - InternalSettings -> Float -> IO () - --- | -setTextAutosizingFontScaleFactor :: - (MonadIO m) => InternalSettings -> Float -> m () -setTextAutosizingFontScaleFactor self fontScaleFactor - = liftIO - (js_setTextAutosizingFontScaleFactor (self) fontScaleFactor) - -foreign import javascript unsafe "$1[\"setCSSShapesEnabled\"]($2)" - js_setCSSShapesEnabled :: InternalSettings -> Bool -> IO () - --- | -setCSSShapesEnabled :: - (MonadIO m) => InternalSettings -> Bool -> m () -setCSSShapesEnabled self enabled - = liftIO (js_setCSSShapesEnabled (self) enabled) - -foreign import javascript unsafe "$1[\"setCanStartMedia\"]($2)" - js_setCanStartMedia :: InternalSettings -> Bool -> IO () - --- | -setCanStartMedia :: (MonadIO m) => InternalSettings -> Bool -> m () -setCanStartMedia self enabled - = liftIO (js_setCanStartMedia (self) enabled) - -foreign import javascript unsafe - "$1[\"setShouldDisplayTrackKind\"]($2,\n$3)" - js_setShouldDisplayTrackKind :: - InternalSettings -> JSString -> Bool -> IO () - --- | -setShouldDisplayTrackKind :: - (MonadIO m, ToJSString kind) => - InternalSettings -> kind -> Bool -> m () -setShouldDisplayTrackKind self kind enabled - = liftIO - (js_setShouldDisplayTrackKind (self) (toJSString kind) enabled) - -foreign import javascript unsafe - "($1[\"shouldDisplayTrackKind\"]($2) ? 1 : 0)" - js_shouldDisplayTrackKind :: - InternalSettings -> JSString -> IO Bool - --- | -shouldDisplayTrackKind :: - (MonadIO m, ToJSString trackKind) => - InternalSettings -> trackKind -> m Bool -shouldDisplayTrackKind self trackKind - = liftIO (js_shouldDisplayTrackKind (self) (toJSString trackKind)) - -foreign import javascript unsafe - "$1[\"setDefaultVideoPosterURL\"]($2)" js_setDefaultVideoPosterURL - :: InternalSettings -> JSString -> IO () - --- | -setDefaultVideoPosterURL :: - (MonadIO m, ToJSString poster) => - InternalSettings -> poster -> m () -setDefaultVideoPosterURL self poster - = liftIO (js_setDefaultVideoPosterURL (self) (toJSString poster)) - -foreign import javascript unsafe - "$1[\"setTimeWithoutMouseMovementBeforeHidingControls\"]($2)" - js_setTimeWithoutMouseMovementBeforeHidingControls :: - InternalSettings -> Double -> IO () - --- | -setTimeWithoutMouseMovementBeforeHidingControls :: - (MonadIO m) => InternalSettings -> Double -> m () -setTimeWithoutMouseMovementBeforeHidingControls self time - = liftIO - (js_setTimeWithoutMouseMovementBeforeHidingControls (self) time) - -foreign import javascript unsafe "$1[\"setMediaTypeOverride\"]($2)" - js_setMediaTypeOverride :: InternalSettings -> JSString -> IO () - --- | -setMediaTypeOverride :: - (MonadIO m, ToJSString mediaTypeOverride) => - InternalSettings -> mediaTypeOverride -> m () -setMediaTypeOverride self mediaTypeOverride - = liftIO - (js_setMediaTypeOverride (self) (toJSString mediaTypeOverride)) - -foreign import javascript unsafe - "$1[\"setPluginReplacementEnabled\"]($2)" - js_setPluginReplacementEnabled :: InternalSettings -> Bool -> IO () - --- | -setPluginReplacementEnabled :: - (MonadIO m) => InternalSettings -> Bool -> m () -setPluginReplacementEnabled self enabled - = liftIO (js_setPluginReplacementEnabled (self) enabled) - -foreign import javascript unsafe "$1[\"setEditingBehavior\"]($2)" - js_setEditingBehavior :: InternalSettings -> JSString -> IO () - --- | -setEditingBehavior :: - (MonadIO m, ToJSString behavior) => - InternalSettings -> behavior -> m () -setEditingBehavior self behavior - = liftIO (js_setEditingBehavior (self) (toJSString behavior)) - -foreign import javascript unsafe - "$1[\"setShouldConvertPositionStyleOnCopy\"]($2)" - js_setShouldConvertPositionStyleOnCopy :: - InternalSettings -> Bool -> IO () - --- | -setShouldConvertPositionStyleOnCopy :: - (MonadIO m) => InternalSettings -> Bool -> m () -setShouldConvertPositionStyleOnCopy self convert - = liftIO (js_setShouldConvertPositionStyleOnCopy (self) convert) - -foreign import javascript unsafe - "$1[\"setLangAttributeAwareFormControlUIEnabled\"]($2)" - js_setLangAttributeAwareFormControlUIEnabled :: - InternalSettings -> Bool -> IO () - --- | -setLangAttributeAwareFormControlUIEnabled :: - (MonadIO m) => InternalSettings -> Bool -> m () -setLangAttributeAwareFormControlUIEnabled self enabled - = liftIO - (js_setLangAttributeAwareFormControlUIEnabled (self) enabled) - -foreign import javascript unsafe - "$1[\"setStorageBlockingPolicy\"]($2)" js_setStorageBlockingPolicy - :: InternalSettings -> JSString -> IO () - --- | -setStorageBlockingPolicy :: - (MonadIO m, ToJSString policy) => - InternalSettings -> policy -> m () -setStorageBlockingPolicy self policy - = liftIO (js_setStorageBlockingPolicy (self) (toJSString policy)) - -foreign import javascript unsafe "$1[\"setImagesEnabled\"]($2)" - js_setImagesEnabled :: InternalSettings -> Bool -> IO () - --- | -setImagesEnabled :: (MonadIO m) => InternalSettings -> Bool -> m () -setImagesEnabled self enabled - = liftIO (js_setImagesEnabled (self) enabled) - -foreign import javascript unsafe - "$1[\"setUseLegacyBackgroundSizeShorthandBehavior\"]($2)" - js_setUseLegacyBackgroundSizeShorthandBehavior :: - InternalSettings -> Bool -> IO () - --- | -setUseLegacyBackgroundSizeShorthandBehavior :: - (MonadIO m) => InternalSettings -> Bool -> m () -setUseLegacyBackgroundSizeShorthandBehavior self enabled - = liftIO - (js_setUseLegacyBackgroundSizeShorthandBehavior (self) enabled) - -foreign import javascript unsafe - "$1[\"setAutoscrollForDragAndDropEnabled\"]($2)" - js_setAutoscrollForDragAndDropEnabled :: - InternalSettings -> Bool -> IO () - --- | -setAutoscrollForDragAndDropEnabled :: - (MonadIO m) => InternalSettings -> Bool -> m () -setAutoscrollForDragAndDropEnabled self enabled - = liftIO (js_setAutoscrollForDragAndDropEnabled (self) enabled) - -foreign import javascript unsafe - "$1[\"setBackgroundShouldExtendBeyondPage\"]($2)" - js_setBackgroundShouldExtendBeyondPage :: - InternalSettings -> Bool -> IO () - --- | -setBackgroundShouldExtendBeyondPage :: - (MonadIO m) => InternalSettings -> Bool -> m () -setBackgroundShouldExtendBeyondPage self hasExtendedBackground - = liftIO - (js_setBackgroundShouldExtendBeyondPage (self) - hasExtendedBackground) - -foreign import javascript unsafe - "$1[\"setScrollingTreeIncludesFrames\"]($2)" - js_setScrollingTreeIncludesFrames :: - InternalSettings -> Bool -> IO () - --- | -setScrollingTreeIncludesFrames :: - (MonadIO m) => InternalSettings -> Bool -> m () -setScrollingTreeIncludesFrames self enabled - = liftIO (js_setScrollingTreeIncludesFrames (self) enabled) - -foreign import javascript unsafe - "$1[\"setMinimumTimerInterval\"]($2)" js_setMinimumTimerInterval :: - InternalSettings -> Double -> IO () - --- | -setMinimumTimerInterval :: - (MonadIO m) => InternalSettings -> Double -> m () -setMinimumTimerInterval self intervalInSeconds - = liftIO (js_setMinimumTimerInterval (self) intervalInSeconds) diff --git a/src/GHCJS/DOM/JSFFI/Generated/Internals.hs b/src/GHCJS/DOM/JSFFI/Generated/Internals.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/Internals.hs +++ /dev/null @@ -1,2148 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.Internals - (js_address, address, js_nodeNeedsStyleRecalc, - nodeNeedsStyleRecalc, js_description, description, - js_hasPausedImageAnimations, hasPausedImageAnimations, - js_elementRenderTreeAsText, elementRenderTreeAsText, - js_isPreloaded, isPreloaded, js_isLoadingFromMemoryCache, - isLoadingFromMemoryCache, js_xhrResponseSource, xhrResponseSource, - js_clearMemoryCache, clearMemoryCache, js_pruneMemoryCacheToSize, - pruneMemoryCacheToSize, js_memoryCacheSize, memoryCacheSize, - js_clearPageCache, clearPageCache, js_pageCacheSize, pageCacheSize, - js_computedStyleIncludingVisitedInfo, - computedStyleIncludingVisitedInfo, js_ensureShadowRoot, - ensureShadowRoot, js_createShadowRoot, createShadowRoot, - js_shadowRoot, shadowRoot, js_shadowRootType, shadowRootType, - js_includerFor, includerFor, js_shadowPseudoId, shadowPseudoId, - js_setShadowPseudoId, setShadowPseudoId, js_treeScopeRootNode, - treeScopeRootNode, js_parentTreeScope, parentTreeScope, - js_lastSpatialNavigationCandidateCount, - lastSpatialNavigationCandidateCount, js_numberOfActiveAnimations, - numberOfActiveAnimations, js_suspendAnimations, suspendAnimations, - js_resumeAnimations, resumeAnimations, js_animationsAreSuspended, - animationsAreSuspended, js_pauseAnimationAtTimeOnElement, - pauseAnimationAtTimeOnElement, - js_pauseAnimationAtTimeOnPseudoElement, - pauseAnimationAtTimeOnPseudoElement, - js_pauseTransitionAtTimeOnElement, pauseTransitionAtTimeOnElement, - js_pauseTransitionAtTimeOnPseudoElement, - pauseTransitionAtTimeOnPseudoElement, js_attached, attached, - js_visiblePlaceholder, visiblePlaceholder, - js_selectColorInColorChooser, selectColorInColorChooser, - js_formControlStateOfPreviousHistoryItem, - formControlStateOfPreviousHistoryItem, - js_setFormControlStateOfPreviousHistoryItem, - setFormControlStateOfPreviousHistoryItem, js_absoluteCaretBounds, - absoluteCaretBounds, js_boundingBox, boundingBox, - js_inspectorHighlightRects, inspectorHighlightRects, - js_inspectorHighlightObject, inspectorHighlightObject, - js_markerCountForNode, markerCountForNode, js_markerRangeForNode, - markerRangeForNode, js_markerDescriptionForNode, - markerDescriptionForNode, js_addTextMatchMarker, - addTextMatchMarker, js_setMarkedTextMatchesAreHighlighted, - setMarkedTextMatchesAreHighlighted, js_invalidateFontCache, - invalidateFontCache, js_setScrollViewPosition, - setScrollViewPosition, js_setPagination, setPagination, - js_configurationForViewport, configurationForViewport, - js_wasLastChangeUserEdit, wasLastChangeUserEdit, - js_elementShouldAutoComplete, elementShouldAutoComplete, - js_setEditingValue, setEditingValue, js_setAutofilled, - setAutofilled, js_countMatchesForText, countMatchesForText, - js_paintControlTints, paintControlTints, js_scrollElementToRect, - scrollElementToRect, js_rangeFromLocationAndLength, - rangeFromLocationAndLength, js_locationFromRange, - locationFromRange, js_lengthFromRange, lengthFromRange, - js_rangeAsText, rangeAsText, js_subrange, subrange, - js_rangeForDictionaryLookupAtLocation, - rangeForDictionaryLookupAtLocation, js_setDelegatesScrolling, - setDelegatesScrolling, js_lastSpellCheckRequestSequence, - lastSpellCheckRequestSequence, js_lastSpellCheckProcessedSequence, - lastSpellCheckProcessedSequence, js_userPreferredLanguages, - userPreferredLanguages, js_setUserPreferredLanguages, - setUserPreferredLanguages, js_wheelEventHandlerCount, - wheelEventHandlerCount, js_touchEventHandlerCount, - touchEventHandlerCount, js_nodesFromRect, nodesFromRect, - js_parserMetaData, parserMetaData, js_updateEditorUINowIfScheduled, - updateEditorUINowIfScheduled, js_hasSpellingMarker, - hasSpellingMarker, js_hasGrammarMarker, hasGrammarMarker, - js_hasAutocorrectedMarker, hasAutocorrectedMarker, - js_setContinuousSpellCheckingEnabled, - setContinuousSpellCheckingEnabled, - js_setAutomaticQuoteSubstitutionEnabled, - setAutomaticQuoteSubstitutionEnabled, - js_setAutomaticLinkDetectionEnabled, - setAutomaticLinkDetectionEnabled, - js_setAutomaticDashSubstitutionEnabled, - setAutomaticDashSubstitutionEnabled, - js_setAutomaticTextReplacementEnabled, - setAutomaticTextReplacementEnabled, - js_setAutomaticSpellingCorrectionEnabled, - setAutomaticSpellingCorrectionEnabled, js_isOverwriteModeEnabled, - isOverwriteModeEnabled, js_toggleOverwriteModeEnabled, - toggleOverwriteModeEnabled, js_numberOfScrollableAreas, - numberOfScrollableAreas, js_isPageBoxVisible, isPageBoxVisible, - js_layerTreeAsText, layerTreeAsText, js_scrollingStateTreeAsText, - scrollingStateTreeAsText, js_mainThreadScrollingReasons, - mainThreadScrollingReasons, js_nonFastScrollableRects, - nonFastScrollableRects, js_repaintRectsAsText, repaintRectsAsText, - js_garbageCollectDocumentResources, - garbageCollectDocumentResources, js_allowRoundingHacks, - allowRoundingHacks, js_insertAuthorCSS, insertAuthorCSS, - js_insertUserCSS, insertUserCSS, js_setBatteryStatus, - setBatteryStatus, js_setDeviceProximity, setDeviceProximity, - js_numberOfLiveNodes, numberOfLiveNodes, js_numberOfLiveDocuments, - numberOfLiveDocuments, js_consoleMessageArgumentCounts, - consoleMessageArgumentCounts, js_openDummyInspectorFrontend, - openDummyInspectorFrontend, js_closeDummyInspectorFrontend, - closeDummyInspectorFrontend, js_setJavaScriptProfilingEnabled, - setJavaScriptProfilingEnabled, js_setInspectorIsUnderTest, - setInspectorIsUnderTest, js_counterValue, counterValue, - js_pageNumber, pageNumber, js_shortcutIconURLs, shortcutIconURLs, - js_allIconURLs, allIconURLs, js_numberOfPages, numberOfPages, - js_pageProperty, pageProperty, js_pageSizeAndMarginsInPixels, - pageSizeAndMarginsInPixels, js_setPageScaleFactor, - setPageScaleFactor, js_setPageZoomFactor, setPageZoomFactor, - js_setHeaderHeight, setHeaderHeight, js_setFooterHeight, - setFooterHeight, js_setTopContentInset, setTopContentInset, - js_webkitWillEnterFullScreenForElement, - webkitWillEnterFullScreenForElement, - js_webkitDidEnterFullScreenForElement, - webkitDidEnterFullScreenForElement, - js_webkitWillExitFullScreenForElement, - webkitWillExitFullScreenForElement, - js_webkitDidExitFullScreenForElement, - webkitDidExitFullScreenForElement, - js_setApplicationCacheOriginQuota, setApplicationCacheOriginQuota, - js_registerURLSchemeAsBypassingContentSecurityPolicy, - registerURLSchemeAsBypassingContentSecurityPolicy, - js_removeURLSchemeRegisteredAsBypassingContentSecurityPolicy, - removeURLSchemeRegisteredAsBypassingContentSecurityPolicy, - js_mallocStatistics, mallocStatistics, js_typeConversions, - typeConversions, js_memoryInfo, memoryInfo, - js_getReferencedFilePaths, getReferencedFilePaths, - js_startTrackingRepaints, startTrackingRepaints, - js_stopTrackingRepaints, stopTrackingRepaints, js_isTimerThrottled, - isTimerThrottled, - js_updateLayoutIgnorePendingStylesheetsAndRunPostLayoutTasks, - updateLayoutIgnorePendingStylesheetsAndRunPostLayoutTasks, - js_getCurrentCursorInfo, getCurrentCursorInfo, - js_markerTextForListItem, markerTextForListItem, - js_toolTipFromElement, toolTipFromElement, js_deserializeBuffer, - deserializeBuffer, js_serializeObject, serializeObject, - js_setUsesOverlayScrollbars, setUsesOverlayScrollbars, - js_forceReload, forceReload, js_simulateAudioInterruption, - simulateAudioInterruption, js_mediaElementHasCharacteristic, - mediaElementHasCharacteristic, js_initializeMockCDM, - initializeMockCDM, js_enableMockSpeechSynthesizer, - enableMockSpeechSynthesizer, js_getImageSourceURL, - getImageSourceURL, js_captionsStyleSheetOverride, - captionsStyleSheetOverride, js_setCaptionsStyleSheetOverride, - setCaptionsStyleSheetOverride, - js_setPrimaryAudioTrackLanguageOverride, - setPrimaryAudioTrackLanguageOverride, js_setCaptionDisplayMode, - setCaptionDisplayMode, js_createTimeRanges, createTimeRanges, - js_closestTimeToTimeRanges, closestTimeToTimeRanges, - js_isSelectPopupVisible, isSelectPopupVisible, js_isVibrating, - isVibrating, js_isPluginUnavailabilityIndicatorObscured, - isPluginUnavailabilityIndicatorObscured, js_isPluginSnapshotted, - isPluginSnapshotted, js_selectionBounds, selectionBounds, - js_initializeMockMediaSource, initializeMockMediaSource, - js_bufferedSamplesForTrackID, bufferedSamplesForTrackID, - js_beginMediaSessionInterruption, beginMediaSessionInterruption, - js_endMediaSessionInterruption, endMediaSessionInterruption, - js_applicationWillEnterForeground, applicationWillEnterForeground, - js_applicationWillEnterBackground, applicationWillEnterBackground, - js_setMediaSessionRestrictions, setMediaSessionRestrictions, - js_postRemoteControlCommand, postRemoteControlCommand, - js_simulateSystemSleep, simulateSystemSleep, js_simulateSystemWake, - simulateSystemWake, js_elementIsBlockingDisplaySleep, - elementIsBlockingDisplaySleep, js_installMockPageOverlay, - installMockPageOverlay, js_pageOverlayLayerTreeAsText, - pageOverlayLayerTreeAsText, js_setPageMuted, setPageMuted, - js_isPagePlayingAudio, isPagePlayingAudio, - pattern LAYER_TREE_INCLUDES_VISIBLE_RECTS, - pattern LAYER_TREE_INCLUDES_TILE_CACHES, - pattern LAYER_TREE_INCLUDES_REPAINT_RECTS, - pattern LAYER_TREE_INCLUDES_PAINTING_PHASES, - pattern LAYER_TREE_INCLUDES_CONTENT_LAYERS, js_getSettings, - getSettings, js_getWorkerThreadCount, getWorkerThreadCount, - js_getConsoleProfiles, getConsoleProfiles, Internals, - castToInternals, gTypeInternals) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"address\"]($2)" js_address - :: Internals -> Nullable Node -> IO JSString - --- | -address :: - (MonadIO m, IsNode node, FromJSString result) => - Internals -> Maybe node -> m result -address self node - = liftIO - (fromJSString <$> - (js_address (self) (maybeToNullable (fmap toNode node)))) - -foreign import javascript unsafe - "($1[\"nodeNeedsStyleRecalc\"]($2) ? 1 : 0)" - js_nodeNeedsStyleRecalc :: Internals -> Nullable Node -> IO Bool - --- | -nodeNeedsStyleRecalc :: - (MonadIO m, IsNode node) => Internals -> Maybe node -> m Bool -nodeNeedsStyleRecalc self node - = liftIO - (js_nodeNeedsStyleRecalc (self) - (maybeToNullable (fmap toNode node))) - -foreign import javascript unsafe "$1[\"description\"]($2)" - js_description :: Internals -> JSVal -> IO JSString - --- | -description :: - (MonadIO m, FromJSString result) => Internals -> JSVal -> m result -description self value - = liftIO (fromJSString <$> (js_description (self) value)) - -foreign import javascript unsafe - "($1[\"hasPausedImageAnimations\"]($2) ? 1 : 0)" - js_hasPausedImageAnimations :: - Internals -> Nullable Element -> IO Bool - --- | -hasPausedImageAnimations :: - (MonadIO m, IsElement element) => - Internals -> Maybe element -> m Bool -hasPausedImageAnimations self element - = liftIO - (js_hasPausedImageAnimations (self) - (maybeToNullable (fmap toElement element))) - -foreign import javascript unsafe - "$1[\"elementRenderTreeAsText\"]($2)" js_elementRenderTreeAsText :: - Internals -> Nullable Element -> IO JSString - --- | -elementRenderTreeAsText :: - (MonadIO m, IsElement element, FromJSString result) => - Internals -> Maybe element -> m result -elementRenderTreeAsText self element - = liftIO - (fromJSString <$> - (js_elementRenderTreeAsText (self) - (maybeToNullable (fmap toElement element)))) - -foreign import javascript unsafe - "($1[\"isPreloaded\"]($2) ? 1 : 0)" js_isPreloaded :: - Internals -> JSString -> IO Bool - --- | -isPreloaded :: - (MonadIO m, ToJSString url) => Internals -> url -> m Bool -isPreloaded self url - = liftIO (js_isPreloaded (self) (toJSString url)) - -foreign import javascript unsafe - "($1[\"isLoadingFromMemoryCache\"]($2) ? 1 : 0)" - js_isLoadingFromMemoryCache :: Internals -> JSString -> IO Bool - --- | -isLoadingFromMemoryCache :: - (MonadIO m, ToJSString url) => Internals -> url -> m Bool -isLoadingFromMemoryCache self url - = liftIO (js_isLoadingFromMemoryCache (self) (toJSString url)) - -foreign import javascript unsafe "$1[\"xhrResponseSource\"]($2)" - js_xhrResponseSource :: - Internals -> Nullable XMLHttpRequest -> IO JSString - --- | -xhrResponseSource :: - (MonadIO m, FromJSString result) => - Internals -> Maybe XMLHttpRequest -> m result -xhrResponseSource self xhr - = liftIO - (fromJSString <$> - (js_xhrResponseSource (self) (maybeToNullable xhr))) - -foreign import javascript unsafe "$1[\"clearMemoryCache\"]()" - js_clearMemoryCache :: Internals -> IO () - --- | -clearMemoryCache :: (MonadIO m) => Internals -> m () -clearMemoryCache self = liftIO (js_clearMemoryCache (self)) - -foreign import javascript unsafe - "$1[\"pruneMemoryCacheToSize\"]($2)" js_pruneMemoryCacheToSize :: - Internals -> Int -> IO () - --- | -pruneMemoryCacheToSize :: (MonadIO m) => Internals -> Int -> m () -pruneMemoryCacheToSize self size - = liftIO (js_pruneMemoryCacheToSize (self) size) - -foreign import javascript unsafe "$1[\"memoryCacheSize\"]()" - js_memoryCacheSize :: Internals -> IO Int - --- | -memoryCacheSize :: (MonadIO m) => Internals -> m Int -memoryCacheSize self = liftIO (js_memoryCacheSize (self)) - -foreign import javascript unsafe "$1[\"clearPageCache\"]()" - js_clearPageCache :: Internals -> IO () - --- | -clearPageCache :: (MonadIO m) => Internals -> m () -clearPageCache self = liftIO (js_clearPageCache (self)) - -foreign import javascript unsafe "$1[\"pageCacheSize\"]()" - js_pageCacheSize :: Internals -> IO Word - --- | -pageCacheSize :: (MonadIO m) => Internals -> m Word -pageCacheSize self = liftIO (js_pageCacheSize (self)) - -foreign import javascript unsafe - "$1[\"computedStyleIncludingVisitedInfo\"]($2)" - js_computedStyleIncludingVisitedInfo :: - Internals -> Nullable Node -> IO (Nullable CSSStyleDeclaration) - --- | -computedStyleIncludingVisitedInfo :: - (MonadIO m, IsNode node) => - Internals -> Maybe node -> m (Maybe CSSStyleDeclaration) -computedStyleIncludingVisitedInfo self node - = liftIO - (nullableToMaybe <$> - (js_computedStyleIncludingVisitedInfo (self) - (maybeToNullable (fmap toNode node)))) - -foreign import javascript unsafe "$1[\"ensureShadowRoot\"]($2)" - js_ensureShadowRoot :: - Internals -> Nullable Element -> IO (Nullable Node) - --- | -ensureShadowRoot :: - (MonadIO m, IsElement host) => - Internals -> Maybe host -> m (Maybe Node) -ensureShadowRoot self host - = liftIO - (nullableToMaybe <$> - (js_ensureShadowRoot (self) - (maybeToNullable (fmap toElement host)))) - -foreign import javascript unsafe "$1[\"createShadowRoot\"]($2)" - js_createShadowRoot :: - Internals -> Nullable Element -> IO (Nullable Node) - --- | -createShadowRoot :: - (MonadIO m, IsElement host) => - Internals -> Maybe host -> m (Maybe Node) -createShadowRoot self host - = liftIO - (nullableToMaybe <$> - (js_createShadowRoot (self) - (maybeToNullable (fmap toElement host)))) - -foreign import javascript unsafe "$1[\"shadowRoot\"]($2)" - js_shadowRoot :: - Internals -> Nullable Element -> IO (Nullable Node) - --- | -shadowRoot :: - (MonadIO m, IsElement host) => - Internals -> Maybe host -> m (Maybe Node) -shadowRoot self host - = liftIO - (nullableToMaybe <$> - (js_shadowRoot (self) (maybeToNullable (fmap toElement host)))) - -foreign import javascript unsafe "$1[\"shadowRootType\"]($2)" - js_shadowRootType :: Internals -> Nullable Node -> IO JSString - --- | -shadowRootType :: - (MonadIO m, IsNode root, FromJSString result) => - Internals -> Maybe root -> m result -shadowRootType self root - = liftIO - (fromJSString <$> - (js_shadowRootType (self) (maybeToNullable (fmap toNode root)))) - -foreign import javascript unsafe "$1[\"includerFor\"]($2)" - js_includerFor :: - Internals -> Nullable Node -> IO (Nullable Element) - --- | -includerFor :: - (MonadIO m, IsNode node) => - Internals -> Maybe node -> m (Maybe Element) -includerFor self node - = liftIO - (nullableToMaybe <$> - (js_includerFor (self) (maybeToNullable (fmap toNode node)))) - -foreign import javascript unsafe "$1[\"shadowPseudoId\"]($2)" - js_shadowPseudoId :: Internals -> Nullable Element -> IO JSString - --- | -shadowPseudoId :: - (MonadIO m, IsElement element, FromJSString result) => - Internals -> Maybe element -> m result -shadowPseudoId self element - = liftIO - (fromJSString <$> - (js_shadowPseudoId (self) - (maybeToNullable (fmap toElement element)))) - -foreign import javascript unsafe - "$1[\"setShadowPseudoId\"]($2, $3)" js_setShadowPseudoId :: - Internals -> Nullable Element -> JSString -> IO () - --- | -setShadowPseudoId :: - (MonadIO m, IsElement element, ToJSString id) => - Internals -> Maybe element -> id -> m () -setShadowPseudoId self element id - = liftIO - (js_setShadowPseudoId (self) - (maybeToNullable (fmap toElement element)) - (toJSString id)) - -foreign import javascript unsafe "$1[\"treeScopeRootNode\"]($2)" - js_treeScopeRootNode :: - Internals -> Nullable Node -> IO (Nullable Node) - --- | -treeScopeRootNode :: - (MonadIO m, IsNode node) => - Internals -> Maybe node -> m (Maybe Node) -treeScopeRootNode self node - = liftIO - (nullableToMaybe <$> - (js_treeScopeRootNode (self) (maybeToNullable (fmap toNode node)))) - -foreign import javascript unsafe "$1[\"parentTreeScope\"]($2)" - js_parentTreeScope :: - Internals -> Nullable Node -> IO (Nullable Node) - --- | -parentTreeScope :: - (MonadIO m, IsNode node) => - Internals -> Maybe node -> m (Maybe Node) -parentTreeScope self node - = liftIO - (nullableToMaybe <$> - (js_parentTreeScope (self) (maybeToNullable (fmap toNode node)))) - -foreign import javascript unsafe - "$1[\"lastSpatialNavigationCandidateCount\"]()" - js_lastSpatialNavigationCandidateCount :: Internals -> IO Word - --- | -lastSpatialNavigationCandidateCount :: - (MonadIO m) => Internals -> m Word -lastSpatialNavigationCandidateCount self - = liftIO (js_lastSpatialNavigationCandidateCount (self)) - -foreign import javascript unsafe - "$1[\"numberOfActiveAnimations\"]()" js_numberOfActiveAnimations :: - Internals -> IO Word - --- | -numberOfActiveAnimations :: (MonadIO m) => Internals -> m Word -numberOfActiveAnimations self - = liftIO (js_numberOfActiveAnimations (self)) - -foreign import javascript unsafe "$1[\"suspendAnimations\"]()" - js_suspendAnimations :: Internals -> IO () - --- | -suspendAnimations :: (MonadIO m) => Internals -> m () -suspendAnimations self = liftIO (js_suspendAnimations (self)) - -foreign import javascript unsafe "$1[\"resumeAnimations\"]()" - js_resumeAnimations :: Internals -> IO () - --- | -resumeAnimations :: (MonadIO m) => Internals -> m () -resumeAnimations self = liftIO (js_resumeAnimations (self)) - -foreign import javascript unsafe - "($1[\"animationsAreSuspended\"]() ? 1 : 0)" - js_animationsAreSuspended :: Internals -> IO Bool - --- | -animationsAreSuspended :: (MonadIO m) => Internals -> m Bool -animationsAreSuspended self - = liftIO (js_animationsAreSuspended (self)) - -foreign import javascript unsafe - "($1[\"pauseAnimationAtTimeOnElement\"]($2,\n$3, $4) ? 1 : 0)" - js_pauseAnimationAtTimeOnElement :: - Internals -> JSString -> Double -> Nullable Element -> IO Bool - --- | -pauseAnimationAtTimeOnElement :: - (MonadIO m, ToJSString animationName, IsElement element) => - Internals -> animationName -> Double -> Maybe element -> m Bool -pauseAnimationAtTimeOnElement self animationName pauseTime element - = liftIO - (js_pauseAnimationAtTimeOnElement (self) (toJSString animationName) - pauseTime - (maybeToNullable (fmap toElement element))) - -foreign import javascript unsafe - "($1[\"pauseAnimationAtTimeOnPseudoElement\"]($2,\n$3, $4, $5) ? 1 : 0)" - js_pauseAnimationAtTimeOnPseudoElement :: - Internals -> - JSString -> Double -> Nullable Element -> JSString -> IO Bool - --- | -pauseAnimationAtTimeOnPseudoElement :: - (MonadIO m, ToJSString animationName, IsElement element, - ToJSString pseudoId) => - Internals -> - animationName -> - Double -> Maybe element -> pseudoId -> m Bool -pauseAnimationAtTimeOnPseudoElement self animationName pauseTime - element pseudoId - = liftIO - (js_pauseAnimationAtTimeOnPseudoElement (self) - (toJSString animationName) - pauseTime - (maybeToNullable (fmap toElement element)) - (toJSString pseudoId)) - -foreign import javascript unsafe - "($1[\"pauseTransitionAtTimeOnElement\"]($2,\n$3, $4) ? 1 : 0)" - js_pauseTransitionAtTimeOnElement :: - Internals -> JSString -> Double -> Nullable Element -> IO Bool - --- | -pauseTransitionAtTimeOnElement :: - (MonadIO m, ToJSString propertyName, IsElement element) => - Internals -> propertyName -> Double -> Maybe element -> m Bool -pauseTransitionAtTimeOnElement self propertyName pauseTime element - = liftIO - (js_pauseTransitionAtTimeOnElement (self) (toJSString propertyName) - pauseTime - (maybeToNullable (fmap toElement element))) - -foreign import javascript unsafe - "($1[\"pauseTransitionAtTimeOnPseudoElement\"]($2,\n$3, $4, $5) ? 1 : 0)" - js_pauseTransitionAtTimeOnPseudoElement :: - Internals -> - JSString -> Double -> Nullable Element -> JSString -> IO Bool - --- | -pauseTransitionAtTimeOnPseudoElement :: - (MonadIO m, ToJSString property, IsElement element, - ToJSString pseudoId) => - Internals -> - property -> Double -> Maybe element -> pseudoId -> m Bool -pauseTransitionAtTimeOnPseudoElement self property pauseTime - element pseudoId - = liftIO - (js_pauseTransitionAtTimeOnPseudoElement (self) - (toJSString property) - pauseTime - (maybeToNullable (fmap toElement element)) - (toJSString pseudoId)) - -foreign import javascript unsafe "($1[\"attached\"]($2) ? 1 : 0)" - js_attached :: Internals -> Nullable Node -> IO Bool - --- | -attached :: - (MonadIO m, IsNode node) => Internals -> Maybe node -> m Bool -attached self node - = liftIO (js_attached (self) (maybeToNullable (fmap toNode node))) - -foreign import javascript unsafe "$1[\"visiblePlaceholder\"]($2)" - js_visiblePlaceholder :: - Internals -> Nullable Element -> IO JSString - --- | -visiblePlaceholder :: - (MonadIO m, IsElement element, FromJSString result) => - Internals -> Maybe element -> m result -visiblePlaceholder self element - = liftIO - (fromJSString <$> - (js_visiblePlaceholder (self) - (maybeToNullable (fmap toElement element)))) - -foreign import javascript unsafe - "$1[\"selectColorInColorChooser\"]($2,\n$3)" - js_selectColorInColorChooser :: - Internals -> Nullable Element -> JSString -> IO () - --- | -selectColorInColorChooser :: - (MonadIO m, IsElement element, ToJSString colorValue) => - Internals -> Maybe element -> colorValue -> m () -selectColorInColorChooser self element colorValue - = liftIO - (js_selectColorInColorChooser (self) - (maybeToNullable (fmap toElement element)) - (toJSString colorValue)) - -foreign import javascript unsafe - "$1[\"formControlStateOfPreviousHistoryItem\"]()" - js_formControlStateOfPreviousHistoryItem :: Internals -> IO JSVal - --- | -formControlStateOfPreviousHistoryItem :: - (MonadIO m, FromJSString result) => Internals -> m [result] -formControlStateOfPreviousHistoryItem self - = liftIO - ((js_formControlStateOfPreviousHistoryItem (self)) >>= - fromJSValUnchecked) - -foreign import javascript unsafe - "$1[\"setFormControlStateOfPreviousHistoryItem\"]($2)" - js_setFormControlStateOfPreviousHistoryItem :: - Internals -> JSVal -> IO () - --- | -setFormControlStateOfPreviousHistoryItem :: - (MonadIO m, ToJSString values) => - Internals -> [values] -> m () -setFormControlStateOfPreviousHistoryItem self values - = liftIO - (toJSVal values >>= - \ values' -> - js_setFormControlStateOfPreviousHistoryItem (self) values') - -foreign import javascript unsafe "$1[\"absoluteCaretBounds\"]()" - js_absoluteCaretBounds :: Internals -> IO (Nullable ClientRect) - --- | -absoluteCaretBounds :: - (MonadIO m) => Internals -> m (Maybe ClientRect) -absoluteCaretBounds self - = liftIO (nullableToMaybe <$> (js_absoluteCaretBounds (self))) - -foreign import javascript unsafe "$1[\"boundingBox\"]($2)" - js_boundingBox :: - Internals -> Nullable Element -> IO (Nullable ClientRect) - --- | -boundingBox :: - (MonadIO m, IsElement element) => - Internals -> Maybe element -> m (Maybe ClientRect) -boundingBox self element - = liftIO - (nullableToMaybe <$> - (js_boundingBox (self) (maybeToNullable (fmap toElement element)))) - -foreign import javascript unsafe - "$1[\"inspectorHighlightRects\"]()" js_inspectorHighlightRects :: - Internals -> IO (Nullable ClientRectList) - --- | -inspectorHighlightRects :: - (MonadIO m) => Internals -> m (Maybe ClientRectList) -inspectorHighlightRects self - = liftIO (nullableToMaybe <$> (js_inspectorHighlightRects (self))) - -foreign import javascript unsafe - "$1[\"inspectorHighlightObject\"]()" js_inspectorHighlightObject :: - Internals -> IO JSString - --- | -inspectorHighlightObject :: - (MonadIO m, FromJSString result) => Internals -> m result -inspectorHighlightObject self - = liftIO (fromJSString <$> (js_inspectorHighlightObject (self))) - -foreign import javascript unsafe - "$1[\"markerCountForNode\"]($2, $3)" js_markerCountForNode :: - Internals -> Nullable Node -> JSString -> IO Word - --- | -markerCountForNode :: - (MonadIO m, IsNode node, ToJSString markerType) => - Internals -> Maybe node -> markerType -> m Word -markerCountForNode self node markerType - = liftIO - (js_markerCountForNode (self) (maybeToNullable (fmap toNode node)) - (toJSString markerType)) - -foreign import javascript unsafe - "$1[\"markerRangeForNode\"]($2, $3,\n$4)" js_markerRangeForNode :: - Internals -> - Nullable Node -> JSString -> Word -> IO (Nullable Range) - --- | -markerRangeForNode :: - (MonadIO m, IsNode node, ToJSString markerType) => - Internals -> Maybe node -> markerType -> Word -> m (Maybe Range) -markerRangeForNode self node markerType index - = liftIO - (nullableToMaybe <$> - (js_markerRangeForNode (self) (maybeToNullable (fmap toNode node)) - (toJSString markerType) - index)) - -foreign import javascript unsafe - "$1[\"markerDescriptionForNode\"]($2,\n$3, $4)" - js_markerDescriptionForNode :: - Internals -> Nullable Node -> JSString -> Word -> IO JSString - --- | -markerDescriptionForNode :: - (MonadIO m, IsNode node, ToJSString markerType, - FromJSString result) => - Internals -> Maybe node -> markerType -> Word -> m result -markerDescriptionForNode self node markerType index - = liftIO - (fromJSString <$> - (js_markerDescriptionForNode (self) - (maybeToNullable (fmap toNode node)) - (toJSString markerType) - index)) - -foreign import javascript unsafe - "$1[\"addTextMatchMarker\"]($2, $3)" js_addTextMatchMarker :: - Internals -> Nullable Range -> Bool -> IO () - --- | -addTextMatchMarker :: - (MonadIO m) => Internals -> Maybe Range -> Bool -> m () -addTextMatchMarker self range isActive - = liftIO - (js_addTextMatchMarker (self) (maybeToNullable range) isActive) - -foreign import javascript unsafe - "$1[\"setMarkedTextMatchesAreHighlighted\"]($2)" - js_setMarkedTextMatchesAreHighlighted :: Internals -> Bool -> IO () - --- | -setMarkedTextMatchesAreHighlighted :: - (MonadIO m) => Internals -> Bool -> m () -setMarkedTextMatchesAreHighlighted self flag - = liftIO (js_setMarkedTextMatchesAreHighlighted (self) flag) - -foreign import javascript unsafe "$1[\"invalidateFontCache\"]()" - js_invalidateFontCache :: Internals -> IO () - --- | -invalidateFontCache :: (MonadIO m) => Internals -> m () -invalidateFontCache self = liftIO (js_invalidateFontCache (self)) - -foreign import javascript unsafe - "$1[\"setScrollViewPosition\"]($2,\n$3)" js_setScrollViewPosition - :: Internals -> Int -> Int -> IO () - --- | -setScrollViewPosition :: - (MonadIO m) => Internals -> Int -> Int -> m () -setScrollViewPosition self x y - = liftIO (js_setScrollViewPosition (self) x y) - -foreign import javascript unsafe - "$1[\"setPagination\"]($2, $3, $4)" js_setPagination :: - Internals -> JSString -> Int -> Int -> IO () - --- | -setPagination :: - (MonadIO m, ToJSString mode) => - Internals -> mode -> Int -> Int -> m () -setPagination self mode gap pageLength - = liftIO (js_setPagination (self) (toJSString mode) gap pageLength) - -foreign import javascript unsafe - "$1[\"configurationForViewport\"]($2,\n$3, $4, $5, $6)" - js_configurationForViewport :: - Internals -> Float -> Int -> Int -> Int -> Int -> IO JSString - --- | -configurationForViewport :: - (MonadIO m, FromJSString result) => - Internals -> Float -> Int -> Int -> Int -> Int -> m result -configurationForViewport self devicePixelRatio deviceWidth - deviceHeight availableWidth availableHeight - = liftIO - (fromJSString <$> - (js_configurationForViewport (self) devicePixelRatio deviceWidth - deviceHeight - availableWidth - availableHeight)) - -foreign import javascript unsafe - "($1[\"wasLastChangeUserEdit\"]($2) ? 1 : 0)" - js_wasLastChangeUserEdit :: - Internals -> Nullable Element -> IO Bool - --- | -wasLastChangeUserEdit :: - (MonadIO m, IsElement textField) => - Internals -> Maybe textField -> m Bool -wasLastChangeUserEdit self textField - = liftIO - (js_wasLastChangeUserEdit (self) - (maybeToNullable (fmap toElement textField))) - -foreign import javascript unsafe - "($1[\"elementShouldAutoComplete\"]($2) ? 1 : 0)" - js_elementShouldAutoComplete :: - Internals -> Nullable Element -> IO Bool - --- | -elementShouldAutoComplete :: - (MonadIO m, IsElement inputElement) => - Internals -> Maybe inputElement -> m Bool -elementShouldAutoComplete self inputElement - = liftIO - (js_elementShouldAutoComplete (self) - (maybeToNullable (fmap toElement inputElement))) - -foreign import javascript unsafe "$1[\"setEditingValue\"]($2, $3)" - js_setEditingValue :: - Internals -> Nullable Element -> JSString -> IO () - --- | -setEditingValue :: - (MonadIO m, IsElement inputElement, ToJSString value) => - Internals -> Maybe inputElement -> value -> m () -setEditingValue self inputElement value - = liftIO - (js_setEditingValue (self) - (maybeToNullable (fmap toElement inputElement)) - (toJSString value)) - -foreign import javascript unsafe "$1[\"setAutofilled\"]($2, $3)" - js_setAutofilled :: Internals -> Nullable Element -> Bool -> IO () - --- | -setAutofilled :: - (MonadIO m, IsElement inputElement) => - Internals -> Maybe inputElement -> Bool -> m () -setAutofilled self inputElement enabled - = liftIO - (js_setAutofilled (self) - (maybeToNullable (fmap toElement inputElement)) - enabled) - -foreign import javascript unsafe - "$1[\"countMatchesForText\"]($2,\n$3, $4)" js_countMatchesForText - :: Internals -> JSString -> Word -> JSString -> IO Word - --- | -countMatchesForText :: - (MonadIO m, ToJSString text, ToJSString markMatches) => - Internals -> text -> Word -> markMatches -> m Word -countMatchesForText self text findOptions markMatches - = liftIO - (js_countMatchesForText (self) (toJSString text) findOptions - (toJSString markMatches)) - -foreign import javascript unsafe "$1[\"paintControlTints\"]()" - js_paintControlTints :: Internals -> IO () - --- | -paintControlTints :: (MonadIO m) => Internals -> m () -paintControlTints self = liftIO (js_paintControlTints (self)) - -foreign import javascript unsafe - "$1[\"scrollElementToRect\"]($2,\n$3, $4, $5, $6)" - js_scrollElementToRect :: - Internals -> Nullable Element -> Int -> Int -> Int -> Int -> IO () - --- | -scrollElementToRect :: - (MonadIO m, IsElement element) => - Internals -> Maybe element -> Int -> Int -> Int -> Int -> m () -scrollElementToRect self element x y w h - = liftIO - (js_scrollElementToRect (self) - (maybeToNullable (fmap toElement element)) - x - y - w - h) - -foreign import javascript unsafe - "$1[\"rangeFromLocationAndLength\"]($2,\n$3, $4)" - js_rangeFromLocationAndLength :: - Internals -> Nullable Element -> Int -> Int -> IO (Nullable Range) - --- | -rangeFromLocationAndLength :: - (MonadIO m, IsElement scope) => - Internals -> Maybe scope -> Int -> Int -> m (Maybe Range) -rangeFromLocationAndLength self scope rangeLocation rangeLength - = liftIO - (nullableToMaybe <$> - (js_rangeFromLocationAndLength (self) - (maybeToNullable (fmap toElement scope)) - rangeLocation - rangeLength)) - -foreign import javascript unsafe - "$1[\"locationFromRange\"]($2, $3)" js_locationFromRange :: - Internals -> Nullable Element -> Nullable Range -> IO Word - --- | -locationFromRange :: - (MonadIO m, IsElement scope) => - Internals -> Maybe scope -> Maybe Range -> m Word -locationFromRange self scope range - = liftIO - (js_locationFromRange (self) - (maybeToNullable (fmap toElement scope)) - (maybeToNullable range)) - -foreign import javascript unsafe "$1[\"lengthFromRange\"]($2, $3)" - js_lengthFromRange :: - Internals -> Nullable Element -> Nullable Range -> IO Word - --- | -lengthFromRange :: - (MonadIO m, IsElement scope) => - Internals -> Maybe scope -> Maybe Range -> m Word -lengthFromRange self scope range - = liftIO - (js_lengthFromRange (self) (maybeToNullable (fmap toElement scope)) - (maybeToNullable range)) - -foreign import javascript unsafe "$1[\"rangeAsText\"]($2)" - js_rangeAsText :: Internals -> Nullable Range -> IO JSString - --- | -rangeAsText :: - (MonadIO m, FromJSString result) => - Internals -> Maybe Range -> m result -rangeAsText self range - = liftIO - (fromJSString <$> (js_rangeAsText (self) (maybeToNullable range))) - -foreign import javascript unsafe "$1[\"subrange\"]($2, $3, $4)" - js_subrange :: - Internals -> Nullable Range -> Int -> Int -> IO (Nullable Range) - --- | -subrange :: - (MonadIO m) => - Internals -> Maybe Range -> Int -> Int -> m (Maybe Range) -subrange self range rangeLocation rangeLength - = liftIO - (nullableToMaybe <$> - (js_subrange (self) (maybeToNullable range) rangeLocation - rangeLength)) - -foreign import javascript unsafe - "$1[\"rangeForDictionaryLookupAtLocation\"]($2,\n$3)" - js_rangeForDictionaryLookupAtLocation :: - Internals -> Int -> Int -> IO (Nullable Range) - --- | -rangeForDictionaryLookupAtLocation :: - (MonadIO m) => Internals -> Int -> Int -> m (Maybe Range) -rangeForDictionaryLookupAtLocation self x y - = liftIO - (nullableToMaybe <$> - (js_rangeForDictionaryLookupAtLocation (self) x y)) - -foreign import javascript unsafe - "$1[\"setDelegatesScrolling\"]($2)" js_setDelegatesScrolling :: - Internals -> Bool -> IO () - --- | -setDelegatesScrolling :: (MonadIO m) => Internals -> Bool -> m () -setDelegatesScrolling self enabled - = liftIO (js_setDelegatesScrolling (self) enabled) - -foreign import javascript unsafe - "$1[\"lastSpellCheckRequestSequence\"]()" - js_lastSpellCheckRequestSequence :: Internals -> IO Int - --- | -lastSpellCheckRequestSequence :: (MonadIO m) => Internals -> m Int -lastSpellCheckRequestSequence self - = liftIO (js_lastSpellCheckRequestSequence (self)) - -foreign import javascript unsafe - "$1[\"lastSpellCheckProcessedSequence\"]()" - js_lastSpellCheckProcessedSequence :: Internals -> IO Int - --- | -lastSpellCheckProcessedSequence :: - (MonadIO m) => Internals -> m Int -lastSpellCheckProcessedSequence self - = liftIO (js_lastSpellCheckProcessedSequence (self)) - -foreign import javascript unsafe "$1[\"userPreferredLanguages\"]()" - js_userPreferredLanguages :: Internals -> IO JSVal - --- | -userPreferredLanguages :: - (MonadIO m, FromJSString result) => Internals -> m [result] -userPreferredLanguages self - = liftIO - ((js_userPreferredLanguages (self)) >>= fromJSValUnchecked) - -foreign import javascript unsafe - "$1[\"setUserPreferredLanguages\"]($2)" - js_setUserPreferredLanguages :: Internals -> JSVal -> IO () - --- | -setUserPreferredLanguages :: - (MonadIO m, ToJSString languages) => - Internals -> [languages] -> m () -setUserPreferredLanguages self languages - = liftIO - (toJSVal languages >>= - \ languages' -> js_setUserPreferredLanguages (self) languages') - -foreign import javascript unsafe "$1[\"wheelEventHandlerCount\"]()" - js_wheelEventHandlerCount :: Internals -> IO Word - --- | -wheelEventHandlerCount :: (MonadIO m) => Internals -> m Word -wheelEventHandlerCount self - = liftIO (js_wheelEventHandlerCount (self)) - -foreign import javascript unsafe "$1[\"touchEventHandlerCount\"]()" - js_touchEventHandlerCount :: Internals -> IO Word - --- | -touchEventHandlerCount :: (MonadIO m) => Internals -> m Word -touchEventHandlerCount self - = liftIO (js_touchEventHandlerCount (self)) - -foreign import javascript unsafe - "$1[\"nodesFromRect\"]($2, $3, $4,\n$5, $6, $7, $8, $9, $10, $11)" - js_nodesFromRect :: - Internals -> - Nullable Document -> - Int -> - Int -> - Word -> - Word -> - Word -> Word -> Bool -> Bool -> Bool -> IO (Nullable NodeList) - --- | -nodesFromRect :: - (MonadIO m, IsDocument document) => - Internals -> - Maybe document -> - Int -> - Int -> - Word -> - Word -> Word -> Word -> Bool -> Bool -> Bool -> m (Maybe NodeList) -nodesFromRect self document x y topPadding rightPadding - bottomPadding leftPadding ignoreClipping allowShadowContent - allowChildFrameContent - = liftIO - (nullableToMaybe <$> - (js_nodesFromRect (self) - (maybeToNullable (fmap toDocument document)) - x - y - topPadding - rightPadding - bottomPadding - leftPadding - ignoreClipping - allowShadowContent - allowChildFrameContent)) - -foreign import javascript unsafe "$1[\"parserMetaData\"]($2)" - js_parserMetaData :: Internals -> JSVal -> IO JSString - --- | -parserMetaData :: - (MonadIO m, FromJSString result) => Internals -> JSVal -> m result -parserMetaData self func - = liftIO (fromJSString <$> (js_parserMetaData (self) func)) - -foreign import javascript unsafe - "$1[\"updateEditorUINowIfScheduled\"]()" - js_updateEditorUINowIfScheduled :: Internals -> IO () - --- | -updateEditorUINowIfScheduled :: (MonadIO m) => Internals -> m () -updateEditorUINowIfScheduled self - = liftIO (js_updateEditorUINowIfScheduled (self)) - -foreign import javascript unsafe - "($1[\"hasSpellingMarker\"]($2,\n$3) ? 1 : 0)" js_hasSpellingMarker - :: Internals -> Int -> Int -> IO Bool - --- | -hasSpellingMarker :: - (MonadIO m) => Internals -> Int -> Int -> m Bool -hasSpellingMarker self from length - = liftIO (js_hasSpellingMarker (self) from length) - -foreign import javascript unsafe - "($1[\"hasGrammarMarker\"]($2,\n$3) ? 1 : 0)" js_hasGrammarMarker - :: Internals -> Int -> Int -> IO Bool - --- | -hasGrammarMarker :: - (MonadIO m) => Internals -> Int -> Int -> m Bool -hasGrammarMarker self from length - = liftIO (js_hasGrammarMarker (self) from length) - -foreign import javascript unsafe - "($1[\"hasAutocorrectedMarker\"]($2,\n$3) ? 1 : 0)" - js_hasAutocorrectedMarker :: Internals -> Int -> Int -> IO Bool - --- | -hasAutocorrectedMarker :: - (MonadIO m) => Internals -> Int -> Int -> m Bool -hasAutocorrectedMarker self from length - = liftIO (js_hasAutocorrectedMarker (self) from length) - -foreign import javascript unsafe - "$1[\"setContinuousSpellCheckingEnabled\"]($2)" - js_setContinuousSpellCheckingEnabled :: Internals -> Bool -> IO () - --- | -setContinuousSpellCheckingEnabled :: - (MonadIO m) => Internals -> Bool -> m () -setContinuousSpellCheckingEnabled self enabled - = liftIO (js_setContinuousSpellCheckingEnabled (self) enabled) - -foreign import javascript unsafe - "$1[\"setAutomaticQuoteSubstitutionEnabled\"]($2)" - js_setAutomaticQuoteSubstitutionEnabled :: - Internals -> Bool -> IO () - --- | -setAutomaticQuoteSubstitutionEnabled :: - (MonadIO m) => Internals -> Bool -> m () -setAutomaticQuoteSubstitutionEnabled self enabled - = liftIO (js_setAutomaticQuoteSubstitutionEnabled (self) enabled) - -foreign import javascript unsafe - "$1[\"setAutomaticLinkDetectionEnabled\"]($2)" - js_setAutomaticLinkDetectionEnabled :: Internals -> Bool -> IO () - --- | -setAutomaticLinkDetectionEnabled :: - (MonadIO m) => Internals -> Bool -> m () -setAutomaticLinkDetectionEnabled self enabled - = liftIO (js_setAutomaticLinkDetectionEnabled (self) enabled) - -foreign import javascript unsafe - "$1[\"setAutomaticDashSubstitutionEnabled\"]($2)" - js_setAutomaticDashSubstitutionEnabled :: - Internals -> Bool -> IO () - --- | -setAutomaticDashSubstitutionEnabled :: - (MonadIO m) => Internals -> Bool -> m () -setAutomaticDashSubstitutionEnabled self enabled - = liftIO (js_setAutomaticDashSubstitutionEnabled (self) enabled) - -foreign import javascript unsafe - "$1[\"setAutomaticTextReplacementEnabled\"]($2)" - js_setAutomaticTextReplacementEnabled :: Internals -> Bool -> IO () - --- | -setAutomaticTextReplacementEnabled :: - (MonadIO m) => Internals -> Bool -> m () -setAutomaticTextReplacementEnabled self enabled - = liftIO (js_setAutomaticTextReplacementEnabled (self) enabled) - -foreign import javascript unsafe - "$1[\"setAutomaticSpellingCorrectionEnabled\"]($2)" - js_setAutomaticSpellingCorrectionEnabled :: - Internals -> Bool -> IO () - --- | -setAutomaticSpellingCorrectionEnabled :: - (MonadIO m) => Internals -> Bool -> m () -setAutomaticSpellingCorrectionEnabled self enabled - = liftIO (js_setAutomaticSpellingCorrectionEnabled (self) enabled) - -foreign import javascript unsafe - "($1[\"isOverwriteModeEnabled\"]() ? 1 : 0)" - js_isOverwriteModeEnabled :: Internals -> IO Bool - --- | -isOverwriteModeEnabled :: (MonadIO m) => Internals -> m Bool -isOverwriteModeEnabled self - = liftIO (js_isOverwriteModeEnabled (self)) - -foreign import javascript unsafe - "$1[\"toggleOverwriteModeEnabled\"]()" - js_toggleOverwriteModeEnabled :: Internals -> IO () - --- | -toggleOverwriteModeEnabled :: (MonadIO m) => Internals -> m () -toggleOverwriteModeEnabled self - = liftIO (js_toggleOverwriteModeEnabled (self)) - -foreign import javascript unsafe - "$1[\"numberOfScrollableAreas\"]()" js_numberOfScrollableAreas :: - Internals -> IO Word - --- | -numberOfScrollableAreas :: (MonadIO m) => Internals -> m Word -numberOfScrollableAreas self - = liftIO (js_numberOfScrollableAreas (self)) - -foreign import javascript unsafe - "($1[\"isPageBoxVisible\"]($2) ? 1 : 0)" js_isPageBoxVisible :: - Internals -> Int -> IO Bool - --- | -isPageBoxVisible :: (MonadIO m) => Internals -> Int -> m Bool -isPageBoxVisible self pageNumber - = liftIO (js_isPageBoxVisible (self) pageNumber) - -foreign import javascript unsafe "$1[\"layerTreeAsText\"]($2, $3)" - js_layerTreeAsText :: - Internals -> Nullable Document -> Word -> IO JSString - --- | -layerTreeAsText :: - (MonadIO m, IsDocument document, FromJSString result) => - Internals -> Maybe document -> Word -> m result -layerTreeAsText self document flags - = liftIO - (fromJSString <$> - (js_layerTreeAsText (self) - (maybeToNullable (fmap toDocument document)) - flags)) - -foreign import javascript unsafe - "$1[\"scrollingStateTreeAsText\"]()" js_scrollingStateTreeAsText :: - Internals -> IO JSString - --- | -scrollingStateTreeAsText :: - (MonadIO m, FromJSString result) => Internals -> m result -scrollingStateTreeAsText self - = liftIO (fromJSString <$> (js_scrollingStateTreeAsText (self))) - -foreign import javascript unsafe - "$1[\"mainThreadScrollingReasons\"]()" - js_mainThreadScrollingReasons :: Internals -> IO JSString - --- | -mainThreadScrollingReasons :: - (MonadIO m, FromJSString result) => Internals -> m result -mainThreadScrollingReasons self - = liftIO (fromJSString <$> (js_mainThreadScrollingReasons (self))) - -foreign import javascript unsafe "$1[\"nonFastScrollableRects\"]()" - js_nonFastScrollableRects :: - Internals -> IO (Nullable ClientRectList) - --- | -nonFastScrollableRects :: - (MonadIO m) => Internals -> m (Maybe ClientRectList) -nonFastScrollableRects self - = liftIO (nullableToMaybe <$> (js_nonFastScrollableRects (self))) - -foreign import javascript unsafe "$1[\"repaintRectsAsText\"]()" - js_repaintRectsAsText :: Internals -> IO JSString - --- | -repaintRectsAsText :: - (MonadIO m, FromJSString result) => Internals -> m result -repaintRectsAsText self - = liftIO (fromJSString <$> (js_repaintRectsAsText (self))) - -foreign import javascript unsafe - "$1[\"garbageCollectDocumentResources\"]()" - js_garbageCollectDocumentResources :: Internals -> IO () - --- | -garbageCollectDocumentResources :: (MonadIO m) => Internals -> m () -garbageCollectDocumentResources self - = liftIO (js_garbageCollectDocumentResources (self)) - -foreign import javascript unsafe "$1[\"allowRoundingHacks\"]()" - js_allowRoundingHacks :: Internals -> IO () - --- | -allowRoundingHacks :: (MonadIO m) => Internals -> m () -allowRoundingHacks self = liftIO (js_allowRoundingHacks (self)) - -foreign import javascript unsafe "$1[\"insertAuthorCSS\"]($2)" - js_insertAuthorCSS :: Internals -> JSString -> IO () - --- | -insertAuthorCSS :: - (MonadIO m, ToJSString css) => Internals -> css -> m () -insertAuthorCSS self css - = liftIO (js_insertAuthorCSS (self) (toJSString css)) - -foreign import javascript unsafe "$1[\"insertUserCSS\"]($2)" - js_insertUserCSS :: Internals -> JSString -> IO () - --- | -insertUserCSS :: - (MonadIO m, ToJSString css) => Internals -> css -> m () -insertUserCSS self css - = liftIO (js_insertUserCSS (self) (toJSString css)) - -foreign import javascript unsafe - "$1[\"setBatteryStatus\"]($2, $3,\n$4, $5, $6)" js_setBatteryStatus - :: - Internals -> - JSString -> Bool -> Double -> Double -> Double -> IO () - --- | -setBatteryStatus :: - (MonadIO m, ToJSString eventType) => - Internals -> - eventType -> Bool -> Double -> Double -> Double -> m () -setBatteryStatus self eventType charging chargingTime - dischargingTime level - = liftIO - (js_setBatteryStatus (self) (toJSString eventType) charging - chargingTime - dischargingTime - level) - -foreign import javascript unsafe - "$1[\"setDeviceProximity\"]($2, $3,\n$4, $5)" js_setDeviceProximity - :: Internals -> JSString -> Double -> Double -> Double -> IO () - --- | -setDeviceProximity :: - (MonadIO m, ToJSString eventType) => - Internals -> eventType -> Double -> Double -> Double -> m () -setDeviceProximity self eventType value min max - = liftIO - (js_setDeviceProximity (self) (toJSString eventType) value min max) - -foreign import javascript unsafe "$1[\"numberOfLiveNodes\"]()" - js_numberOfLiveNodes :: Internals -> IO Word - --- | -numberOfLiveNodes :: (MonadIO m) => Internals -> m Word -numberOfLiveNodes self = liftIO (js_numberOfLiveNodes (self)) - -foreign import javascript unsafe "$1[\"numberOfLiveDocuments\"]()" - js_numberOfLiveDocuments :: Internals -> IO Word - --- | -numberOfLiveDocuments :: (MonadIO m) => Internals -> m Word -numberOfLiveDocuments self - = liftIO (js_numberOfLiveDocuments (self)) - -foreign import javascript unsafe - "$1[\"consoleMessageArgumentCounts\"]()" - js_consoleMessageArgumentCounts :: Internals -> IO JSVal - --- | -consoleMessageArgumentCounts :: - (MonadIO m, FromJSString result) => Internals -> m [result] -consoleMessageArgumentCounts self - = liftIO - ((js_consoleMessageArgumentCounts (self)) >>= fromJSValUnchecked) - -foreign import javascript unsafe - "$1[\"openDummyInspectorFrontend\"]($2)" - js_openDummyInspectorFrontend :: - Internals -> JSString -> IO (Nullable Window) - --- | -openDummyInspectorFrontend :: - (MonadIO m, ToJSString url) => Internals -> url -> m (Maybe Window) -openDummyInspectorFrontend self url - = liftIO - (nullableToMaybe <$> - (js_openDummyInspectorFrontend (self) (toJSString url))) - -foreign import javascript unsafe - "$1[\"closeDummyInspectorFrontend\"]()" - js_closeDummyInspectorFrontend :: Internals -> IO () - --- | -closeDummyInspectorFrontend :: (MonadIO m) => Internals -> m () -closeDummyInspectorFrontend self - = liftIO (js_closeDummyInspectorFrontend (self)) - -foreign import javascript unsafe - "$1[\"setJavaScriptProfilingEnabled\"]($2)" - js_setJavaScriptProfilingEnabled :: Internals -> Bool -> IO () - --- | -setJavaScriptProfilingEnabled :: - (MonadIO m) => Internals -> Bool -> m () -setJavaScriptProfilingEnabled self creates - = liftIO (js_setJavaScriptProfilingEnabled (self) creates) - -foreign import javascript unsafe - "$1[\"setInspectorIsUnderTest\"]($2)" js_setInspectorIsUnderTest :: - Internals -> Bool -> IO () - --- | -setInspectorIsUnderTest :: (MonadIO m) => Internals -> Bool -> m () -setInspectorIsUnderTest self isUnderTest - = liftIO (js_setInspectorIsUnderTest (self) isUnderTest) - -foreign import javascript unsafe "$1[\"counterValue\"]($2)" - js_counterValue :: Internals -> Nullable Element -> IO JSString - --- | -counterValue :: - (MonadIO m, IsElement element, FromJSString result) => - Internals -> Maybe element -> m result -counterValue self element - = liftIO - (fromJSString <$> - (js_counterValue (self) - (maybeToNullable (fmap toElement element)))) - -foreign import javascript unsafe "$1[\"pageNumber\"]($2, $3, $4)" - js_pageNumber :: - Internals -> Nullable Element -> Float -> Float -> IO Int - --- | -pageNumber :: - (MonadIO m, IsElement element) => - Internals -> Maybe element -> Float -> Float -> m Int -pageNumber self element pageWidth pageHeight - = liftIO - (js_pageNumber (self) (maybeToNullable (fmap toElement element)) - pageWidth - pageHeight) - -foreign import javascript unsafe "$1[\"shortcutIconURLs\"]()" - js_shortcutIconURLs :: Internals -> IO JSVal - --- | -shortcutIconURLs :: - (MonadIO m, FromJSString result) => Internals -> m [result] -shortcutIconURLs self - = liftIO ((js_shortcutIconURLs (self)) >>= fromJSValUnchecked) - -foreign import javascript unsafe "$1[\"allIconURLs\"]()" - js_allIconURLs :: Internals -> IO JSVal - --- | -allIconURLs :: - (MonadIO m, FromJSString result) => Internals -> m [result] -allIconURLs self - = liftIO ((js_allIconURLs (self)) >>= fromJSValUnchecked) - -foreign import javascript unsafe "$1[\"numberOfPages\"]($2, $3)" - js_numberOfPages :: Internals -> Double -> Double -> IO Int - --- | -numberOfPages :: - (MonadIO m) => Internals -> Double -> Double -> m Int -numberOfPages self pageWidthInPixels pageHeightInPixels - = liftIO - (js_numberOfPages (self) pageWidthInPixels pageHeightInPixels) - -foreign import javascript unsafe "$1[\"pageProperty\"]($2, $3)" - js_pageProperty :: Internals -> JSString -> Int -> IO JSString - --- | -pageProperty :: - (MonadIO m, ToJSString propertyName, FromJSString result) => - Internals -> propertyName -> Int -> m result -pageProperty self propertyName pageNumber - = liftIO - (fromJSString <$> - (js_pageProperty (self) (toJSString propertyName) pageNumber)) - -foreign import javascript unsafe - "$1[\"pageSizeAndMarginsInPixels\"]($2,\n$3, $4, $5, $6, $7, $8)" - js_pageSizeAndMarginsInPixels :: - Internals -> - Int -> Int -> Int -> Int -> Int -> Int -> Int -> IO JSString - --- | -pageSizeAndMarginsInPixels :: - (MonadIO m, FromJSString result) => - Internals -> - Int -> Int -> Int -> Int -> Int -> Int -> Int -> m result -pageSizeAndMarginsInPixels self pageIndex width height marginTop - marginRight marginBottom marginLeft - = liftIO - (fromJSString <$> - (js_pageSizeAndMarginsInPixels (self) pageIndex width height - marginTop - marginRight - marginBottom - marginLeft)) - -foreign import javascript unsafe - "$1[\"setPageScaleFactor\"]($2, $3,\n$4)" js_setPageScaleFactor :: - Internals -> Float -> Int -> Int -> IO () - --- | -setPageScaleFactor :: - (MonadIO m) => Internals -> Float -> Int -> Int -> m () -setPageScaleFactor self scaleFactor x y - = liftIO (js_setPageScaleFactor (self) scaleFactor x y) - -foreign import javascript unsafe "$1[\"setPageZoomFactor\"]($2)" - js_setPageZoomFactor :: Internals -> Float -> IO () - --- | -setPageZoomFactor :: (MonadIO m) => Internals -> Float -> m () -setPageZoomFactor self zoomFactor - = liftIO (js_setPageZoomFactor (self) zoomFactor) - -foreign import javascript unsafe "$1[\"setHeaderHeight\"]($2)" - js_setHeaderHeight :: Internals -> Float -> IO () - --- | -setHeaderHeight :: (MonadIO m) => Internals -> Float -> m () -setHeaderHeight self height - = liftIO (js_setHeaderHeight (self) height) - -foreign import javascript unsafe "$1[\"setFooterHeight\"]($2)" - js_setFooterHeight :: Internals -> Float -> IO () - --- | -setFooterHeight :: (MonadIO m) => Internals -> Float -> m () -setFooterHeight self height - = liftIO (js_setFooterHeight (self) height) - -foreign import javascript unsafe "$1[\"setTopContentInset\"]($2)" - js_setTopContentInset :: Internals -> Float -> IO () - --- | -setTopContentInset :: (MonadIO m) => Internals -> Float -> m () -setTopContentInset self contentInset - = liftIO (js_setTopContentInset (self) contentInset) - -foreign import javascript unsafe - "$1[\"webkitWillEnterFullScreenForElement\"]($2)" - js_webkitWillEnterFullScreenForElement :: - Internals -> Nullable Element -> IO () - --- | -webkitWillEnterFullScreenForElement :: - (MonadIO m, IsElement element) => - Internals -> Maybe element -> m () -webkitWillEnterFullScreenForElement self element - = liftIO - (js_webkitWillEnterFullScreenForElement (self) - (maybeToNullable (fmap toElement element))) - -foreign import javascript unsafe - "$1[\"webkitDidEnterFullScreenForElement\"]($2)" - js_webkitDidEnterFullScreenForElement :: - Internals -> Nullable Element -> IO () - --- | -webkitDidEnterFullScreenForElement :: - (MonadIO m, IsElement element) => - Internals -> Maybe element -> m () -webkitDidEnterFullScreenForElement self element - = liftIO - (js_webkitDidEnterFullScreenForElement (self) - (maybeToNullable (fmap toElement element))) - -foreign import javascript unsafe - "$1[\"webkitWillExitFullScreenForElement\"]($2)" - js_webkitWillExitFullScreenForElement :: - Internals -> Nullable Element -> IO () - --- | -webkitWillExitFullScreenForElement :: - (MonadIO m, IsElement element) => - Internals -> Maybe element -> m () -webkitWillExitFullScreenForElement self element - = liftIO - (js_webkitWillExitFullScreenForElement (self) - (maybeToNullable (fmap toElement element))) - -foreign import javascript unsafe - "$1[\"webkitDidExitFullScreenForElement\"]($2)" - js_webkitDidExitFullScreenForElement :: - Internals -> Nullable Element -> IO () - --- | -webkitDidExitFullScreenForElement :: - (MonadIO m, IsElement element) => - Internals -> Maybe element -> m () -webkitDidExitFullScreenForElement self element - = liftIO - (js_webkitDidExitFullScreenForElement (self) - (maybeToNullable (fmap toElement element))) - -foreign import javascript unsafe - "$1[\"setApplicationCacheOriginQuota\"]($2)" - js_setApplicationCacheOriginQuota :: Internals -> Double -> IO () - --- | -setApplicationCacheOriginQuota :: - (MonadIO m) => Internals -> Word64 -> m () -setApplicationCacheOriginQuota self quota - = liftIO - (js_setApplicationCacheOriginQuota (self) (fromIntegral quota)) - -foreign import javascript unsafe - "$1[\"registerURLSchemeAsBypassingContentSecurityPolicy\"]($2)" - js_registerURLSchemeAsBypassingContentSecurityPolicy :: - Internals -> JSString -> IO () - --- | -registerURLSchemeAsBypassingContentSecurityPolicy :: - (MonadIO m, ToJSString scheme) => - Internals -> scheme -> m () -registerURLSchemeAsBypassingContentSecurityPolicy self scheme - = liftIO - (js_registerURLSchemeAsBypassingContentSecurityPolicy (self) - (toJSString scheme)) - -foreign import javascript unsafe - "$1[\"removeURLSchemeRegisteredAsBypassingContentSecurityPolicy\"]($2)" - js_removeURLSchemeRegisteredAsBypassingContentSecurityPolicy :: - Internals -> JSString -> IO () - --- | -removeURLSchemeRegisteredAsBypassingContentSecurityPolicy :: - (MonadIO m, ToJSString scheme) => - Internals -> scheme -> m () -removeURLSchemeRegisteredAsBypassingContentSecurityPolicy self - scheme - = liftIO - (js_removeURLSchemeRegisteredAsBypassingContentSecurityPolicy - (self) - (toJSString scheme)) - -foreign import javascript unsafe "$1[\"mallocStatistics\"]()" - js_mallocStatistics :: Internals -> IO (Nullable MallocStatistics) - --- | -mallocStatistics :: - (MonadIO m) => Internals -> m (Maybe MallocStatistics) -mallocStatistics self - = liftIO (nullableToMaybe <$> (js_mallocStatistics (self))) - -foreign import javascript unsafe "$1[\"typeConversions\"]()" - js_typeConversions :: Internals -> IO (Nullable TypeConversions) - --- | -typeConversions :: - (MonadIO m) => Internals -> m (Maybe TypeConversions) -typeConversions self - = liftIO (nullableToMaybe <$> (js_typeConversions (self))) - -foreign import javascript unsafe "$1[\"memoryInfo\"]()" - js_memoryInfo :: Internals -> IO (Nullable MemoryInfo) - --- | -memoryInfo :: (MonadIO m) => Internals -> m (Maybe MemoryInfo) -memoryInfo self - = liftIO (nullableToMaybe <$> (js_memoryInfo (self))) - -foreign import javascript unsafe "$1[\"getReferencedFilePaths\"]()" - js_getReferencedFilePaths :: Internals -> IO JSVal - --- | -getReferencedFilePaths :: - (MonadIO m, FromJSString result) => Internals -> m [result] -getReferencedFilePaths self - = liftIO - ((js_getReferencedFilePaths (self)) >>= fromJSValUnchecked) - -foreign import javascript unsafe "$1[\"startTrackingRepaints\"]()" - js_startTrackingRepaints :: Internals -> IO () - --- | -startTrackingRepaints :: (MonadIO m) => Internals -> m () -startTrackingRepaints self - = liftIO (js_startTrackingRepaints (self)) - -foreign import javascript unsafe "$1[\"stopTrackingRepaints\"]()" - js_stopTrackingRepaints :: Internals -> IO () - --- | -stopTrackingRepaints :: (MonadIO m) => Internals -> m () -stopTrackingRepaints self = liftIO (js_stopTrackingRepaints (self)) - -foreign import javascript unsafe - "($1[\"isTimerThrottled\"]($2) ? 1 : 0)" js_isTimerThrottled :: - Internals -> Int -> IO Bool - --- | -isTimerThrottled :: (MonadIO m) => Internals -> Int -> m Bool -isTimerThrottled self timerHandle - = liftIO (js_isTimerThrottled (self) timerHandle) - -foreign import javascript unsafe - "$1[\"updateLayoutIgnorePendingStylesheetsAndRunPostLayoutTasks\"]($2)" - js_updateLayoutIgnorePendingStylesheetsAndRunPostLayoutTasks :: - Internals -> Nullable Node -> IO () - --- | -updateLayoutIgnorePendingStylesheetsAndRunPostLayoutTasks :: - (MonadIO m, IsNode node) => - Internals -> Maybe node -> m () -updateLayoutIgnorePendingStylesheetsAndRunPostLayoutTasks self node - = liftIO - (js_updateLayoutIgnorePendingStylesheetsAndRunPostLayoutTasks - (self) - (maybeToNullable (fmap toNode node))) - -foreign import javascript unsafe "$1[\"getCurrentCursorInfo\"]()" - js_getCurrentCursorInfo :: Internals -> IO JSString - --- | -getCurrentCursorInfo :: - (MonadIO m, FromJSString result) => Internals -> m result -getCurrentCursorInfo self - = liftIO (fromJSString <$> (js_getCurrentCursorInfo (self))) - -foreign import javascript unsafe - "$1[\"markerTextForListItem\"]($2)" js_markerTextForListItem :: - Internals -> Nullable Element -> IO JSString - --- | -markerTextForListItem :: - (MonadIO m, IsElement element, FromJSString result) => - Internals -> Maybe element -> m result -markerTextForListItem self element - = liftIO - (fromJSString <$> - (js_markerTextForListItem (self) - (maybeToNullable (fmap toElement element)))) - -foreign import javascript unsafe "$1[\"toolTipFromElement\"]($2)" - js_toolTipFromElement :: - Internals -> Nullable Element -> IO JSString - --- | -toolTipFromElement :: - (MonadIO m, IsElement element, FromJSString result) => - Internals -> Maybe element -> m result -toolTipFromElement self element - = liftIO - (fromJSString <$> - (js_toolTipFromElement (self) - (maybeToNullable (fmap toElement element)))) - -foreign import javascript unsafe "$1[\"deserializeBuffer\"]($2)" - js_deserializeBuffer :: - Internals -> - Nullable ArrayBuffer -> IO (Nullable SerializedScriptValue) - --- | -deserializeBuffer :: - (MonadIO m, IsArrayBuffer buffer) => - Internals -> Maybe buffer -> m (Maybe SerializedScriptValue) -deserializeBuffer self buffer - = liftIO - (nullableToMaybe <$> - (js_deserializeBuffer (self) - (maybeToNullable (fmap toArrayBuffer buffer)))) - -foreign import javascript unsafe "$1[\"serializeObject\"]($2)" - js_serializeObject :: - Internals -> - Nullable SerializedScriptValue -> IO (Nullable ArrayBuffer) - --- | -serializeObject :: - (MonadIO m, IsSerializedScriptValue obj) => - Internals -> Maybe obj -> m (Maybe ArrayBuffer) -serializeObject self obj - = liftIO - (nullableToMaybe <$> - (js_serializeObject (self) - (maybeToNullable (fmap toSerializedScriptValue obj)))) - -foreign import javascript unsafe - "$1[\"setUsesOverlayScrollbars\"]($2)" js_setUsesOverlayScrollbars - :: Internals -> Bool -> IO () - --- | -setUsesOverlayScrollbars :: - (MonadIO m) => Internals -> Bool -> m () -setUsesOverlayScrollbars self enabled - = liftIO (js_setUsesOverlayScrollbars (self) enabled) - -foreign import javascript unsafe "$1[\"forceReload\"]($2)" - js_forceReload :: Internals -> Bool -> IO () - --- | -forceReload :: (MonadIO m) => Internals -> Bool -> m () -forceReload self endToEnd = liftIO (js_forceReload (self) endToEnd) - -foreign import javascript unsafe - "$1[\"simulateAudioInterruption\"]($2)" - js_simulateAudioInterruption :: Internals -> Nullable Node -> IO () - --- | -simulateAudioInterruption :: - (MonadIO m, IsNode node) => Internals -> Maybe node -> m () -simulateAudioInterruption self node - = liftIO - (js_simulateAudioInterruption (self) - (maybeToNullable (fmap toNode node))) - -foreign import javascript unsafe - "($1[\"mediaElementHasCharacteristic\"]($2,\n$3) ? 1 : 0)" - js_mediaElementHasCharacteristic :: - Internals -> Nullable Node -> JSString -> IO Bool - --- | -mediaElementHasCharacteristic :: - (MonadIO m, IsNode node, ToJSString characteristic) => - Internals -> Maybe node -> characteristic -> m Bool -mediaElementHasCharacteristic self node characteristic - = liftIO - (js_mediaElementHasCharacteristic (self) - (maybeToNullable (fmap toNode node)) - (toJSString characteristic)) - -foreign import javascript unsafe "$1[\"initializeMockCDM\"]()" - js_initializeMockCDM :: Internals -> IO () - --- | -initializeMockCDM :: (MonadIO m) => Internals -> m () -initializeMockCDM self = liftIO (js_initializeMockCDM (self)) - -foreign import javascript unsafe - "$1[\"enableMockSpeechSynthesizer\"]()" - js_enableMockSpeechSynthesizer :: Internals -> IO () - --- | -enableMockSpeechSynthesizer :: (MonadIO m) => Internals -> m () -enableMockSpeechSynthesizer self - = liftIO (js_enableMockSpeechSynthesizer (self)) - -foreign import javascript unsafe "$1[\"getImageSourceURL\"]($2)" - js_getImageSourceURL :: - Internals -> Nullable Element -> IO JSString - --- | -getImageSourceURL :: - (MonadIO m, IsElement element, FromJSString result) => - Internals -> Maybe element -> m result -getImageSourceURL self element - = liftIO - (fromJSString <$> - (js_getImageSourceURL (self) - (maybeToNullable (fmap toElement element)))) - -foreign import javascript unsafe - "$1[\"captionsStyleSheetOverride\"]()" - js_captionsStyleSheetOverride :: Internals -> IO JSString - --- | -captionsStyleSheetOverride :: - (MonadIO m, FromJSString result) => Internals -> m result -captionsStyleSheetOverride self - = liftIO (fromJSString <$> (js_captionsStyleSheetOverride (self))) - -foreign import javascript unsafe - "$1[\"setCaptionsStyleSheetOverride\"]($2)" - js_setCaptionsStyleSheetOverride :: Internals -> JSString -> IO () - --- | -setCaptionsStyleSheetOverride :: - (MonadIO m, ToJSString override) => Internals -> override -> m () -setCaptionsStyleSheetOverride self override - = liftIO - (js_setCaptionsStyleSheetOverride (self) (toJSString override)) - -foreign import javascript unsafe - "$1[\"setPrimaryAudioTrackLanguageOverride\"]($2)" - js_setPrimaryAudioTrackLanguageOverride :: - Internals -> JSString -> IO () - --- | -setPrimaryAudioTrackLanguageOverride :: - (MonadIO m, ToJSString language) => - Internals -> language -> m () -setPrimaryAudioTrackLanguageOverride self language - = liftIO - (js_setPrimaryAudioTrackLanguageOverride (self) - (toJSString language)) - -foreign import javascript unsafe - "$1[\"setCaptionDisplayMode\"]($2)" js_setCaptionDisplayMode :: - Internals -> JSString -> IO () - --- | -setCaptionDisplayMode :: - (MonadIO m, ToJSString mode) => Internals -> mode -> m () -setCaptionDisplayMode self mode - = liftIO (js_setCaptionDisplayMode (self) (toJSString mode)) - -foreign import javascript unsafe "$1[\"createTimeRanges\"]($2, $3)" - js_createTimeRanges :: - Internals -> - Nullable Float32Array -> - Nullable Float32Array -> IO (Nullable TimeRanges) - --- | -createTimeRanges :: - (MonadIO m, IsFloat32Array startTimes, IsFloat32Array endTimes) => - Internals -> - Maybe startTimes -> Maybe endTimes -> m (Maybe TimeRanges) -createTimeRanges self startTimes endTimes - = liftIO - (nullableToMaybe <$> - (js_createTimeRanges (self) - (maybeToNullable (fmap toFloat32Array startTimes)) - (maybeToNullable (fmap toFloat32Array endTimes)))) - -foreign import javascript unsafe - "$1[\"closestTimeToTimeRanges\"]($2,\n$3)" - js_closestTimeToTimeRanges :: - Internals -> Double -> Nullable TimeRanges -> IO Double - --- | -closestTimeToTimeRanges :: - (MonadIO m) => Internals -> Double -> Maybe TimeRanges -> m Double -closestTimeToTimeRanges self time ranges - = liftIO - (js_closestTimeToTimeRanges (self) time (maybeToNullable ranges)) - -foreign import javascript unsafe - "($1[\"isSelectPopupVisible\"]($2) ? 1 : 0)" - js_isSelectPopupVisible :: Internals -> Nullable Node -> IO Bool - --- | -isSelectPopupVisible :: - (MonadIO m, IsNode node) => Internals -> Maybe node -> m Bool -isSelectPopupVisible self node - = liftIO - (js_isSelectPopupVisible (self) - (maybeToNullable (fmap toNode node))) - -foreign import javascript unsafe "($1[\"isVibrating\"]() ? 1 : 0)" - js_isVibrating :: Internals -> IO Bool - --- | -isVibrating :: (MonadIO m) => Internals -> m Bool -isVibrating self = liftIO (js_isVibrating (self)) - -foreign import javascript unsafe - "($1[\"isPluginUnavailabilityIndicatorObscured\"]($2) ? 1 : 0)" - js_isPluginUnavailabilityIndicatorObscured :: - Internals -> Nullable Element -> IO Bool - --- | -isPluginUnavailabilityIndicatorObscured :: - (MonadIO m, IsElement element) => - Internals -> Maybe element -> m Bool -isPluginUnavailabilityIndicatorObscured self element - = liftIO - (js_isPluginUnavailabilityIndicatorObscured (self) - (maybeToNullable (fmap toElement element))) - -foreign import javascript unsafe - "($1[\"isPluginSnapshotted\"]($2) ? 1 : 0)" js_isPluginSnapshotted - :: Internals -> Nullable Element -> IO Bool - --- | -isPluginSnapshotted :: - (MonadIO m, IsElement element) => - Internals -> Maybe element -> m Bool -isPluginSnapshotted self element - = liftIO - (js_isPluginSnapshotted (self) - (maybeToNullable (fmap toElement element))) - -foreign import javascript unsafe "$1[\"selectionBounds\"]()" - js_selectionBounds :: Internals -> IO (Nullable ClientRect) - --- | -selectionBounds :: (MonadIO m) => Internals -> m (Maybe ClientRect) -selectionBounds self - = liftIO (nullableToMaybe <$> (js_selectionBounds (self))) - -foreign import javascript unsafe - "$1[\"initializeMockMediaSource\"]()" js_initializeMockMediaSource - :: Internals -> IO () - --- | -initializeMockMediaSource :: (MonadIO m) => Internals -> m () -initializeMockMediaSource self - = liftIO (js_initializeMockMediaSource (self)) - -foreign import javascript unsafe - "$1[\"bufferedSamplesForTrackID\"]($2,\n$3)" - js_bufferedSamplesForTrackID :: - Internals -> Nullable SourceBuffer -> JSString -> IO JSVal - --- | -bufferedSamplesForTrackID :: - (MonadIO m, ToJSString trackID, FromJSString result) => - Internals -> Maybe SourceBuffer -> trackID -> m [result] -bufferedSamplesForTrackID self buffer trackID - = liftIO - ((js_bufferedSamplesForTrackID (self) (maybeToNullable buffer) - (toJSString trackID)) - >>= fromJSValUnchecked) - -foreign import javascript unsafe - "$1[\"beginMediaSessionInterruption\"]()" - js_beginMediaSessionInterruption :: Internals -> IO () - --- | -beginMediaSessionInterruption :: (MonadIO m) => Internals -> m () -beginMediaSessionInterruption self - = liftIO (js_beginMediaSessionInterruption (self)) - -foreign import javascript unsafe - "$1[\"endMediaSessionInterruption\"]($2)" - js_endMediaSessionInterruption :: Internals -> JSString -> IO () - --- | -endMediaSessionInterruption :: - (MonadIO m, ToJSString flags) => Internals -> flags -> m () -endMediaSessionInterruption self flags - = liftIO (js_endMediaSessionInterruption (self) (toJSString flags)) - -foreign import javascript unsafe - "$1[\"applicationWillEnterForeground\"]()" - js_applicationWillEnterForeground :: Internals -> IO () - --- | -applicationWillEnterForeground :: (MonadIO m) => Internals -> m () -applicationWillEnterForeground self - = liftIO (js_applicationWillEnterForeground (self)) - -foreign import javascript unsafe - "$1[\"applicationWillEnterBackground\"]()" - js_applicationWillEnterBackground :: Internals -> IO () - --- | -applicationWillEnterBackground :: (MonadIO m) => Internals -> m () -applicationWillEnterBackground self - = liftIO (js_applicationWillEnterBackground (self)) - -foreign import javascript unsafe - "$1[\"setMediaSessionRestrictions\"]($2,\n$3)" - js_setMediaSessionRestrictions :: - Internals -> JSString -> JSString -> IO () - --- | -setMediaSessionRestrictions :: - (MonadIO m, ToJSString mediaType, ToJSString restrictions) => - Internals -> mediaType -> restrictions -> m () -setMediaSessionRestrictions self mediaType restrictions - = liftIO - (js_setMediaSessionRestrictions (self) (toJSString mediaType) - (toJSString restrictions)) - -foreign import javascript unsafe - "$1[\"postRemoteControlCommand\"]($2)" js_postRemoteControlCommand - :: Internals -> JSString -> IO () - --- | -postRemoteControlCommand :: - (MonadIO m, ToJSString command) => Internals -> command -> m () -postRemoteControlCommand self command - = liftIO (js_postRemoteControlCommand (self) (toJSString command)) - -foreign import javascript unsafe "$1[\"simulateSystemSleep\"]()" - js_simulateSystemSleep :: Internals -> IO () - --- | -simulateSystemSleep :: (MonadIO m) => Internals -> m () -simulateSystemSleep self = liftIO (js_simulateSystemSleep (self)) - -foreign import javascript unsafe "$1[\"simulateSystemWake\"]()" - js_simulateSystemWake :: Internals -> IO () - --- | -simulateSystemWake :: (MonadIO m) => Internals -> m () -simulateSystemWake self = liftIO (js_simulateSystemWake (self)) - -foreign import javascript unsafe - "($1[\"elementIsBlockingDisplaySleep\"]($2) ? 1 : 0)" - js_elementIsBlockingDisplaySleep :: - Internals -> Nullable Element -> IO Bool - --- | -elementIsBlockingDisplaySleep :: - (MonadIO m, IsElement element) => - Internals -> Maybe element -> m Bool -elementIsBlockingDisplaySleep self element - = liftIO - (js_elementIsBlockingDisplaySleep (self) - (maybeToNullable (fmap toElement element))) - -foreign import javascript unsafe - "$1[\"installMockPageOverlay\"]($2)" js_installMockPageOverlay :: - Internals -> JSVal -> IO () - --- | -installMockPageOverlay :: - (MonadIO m) => Internals -> PageOverlayType -> m () -installMockPageOverlay self type' - = liftIO (js_installMockPageOverlay (self) (pToJSVal type')) - -foreign import javascript unsafe - "$1[\"pageOverlayLayerTreeAsText\"]()" - js_pageOverlayLayerTreeAsText :: Internals -> IO JSString - --- | -pageOverlayLayerTreeAsText :: - (MonadIO m, FromJSString result) => Internals -> m result -pageOverlayLayerTreeAsText self - = liftIO (fromJSString <$> (js_pageOverlayLayerTreeAsText (self))) - -foreign import javascript unsafe "$1[\"setPageMuted\"]($2)" - js_setPageMuted :: Internals -> Bool -> IO () - --- | -setPageMuted :: (MonadIO m) => Internals -> Bool -> m () -setPageMuted self muted = liftIO (js_setPageMuted (self) muted) - -foreign import javascript unsafe - "($1[\"isPagePlayingAudio\"]() ? 1 : 0)" js_isPagePlayingAudio :: - Internals -> IO Bool - --- | -isPagePlayingAudio :: (MonadIO m) => Internals -> m Bool -isPagePlayingAudio self = liftIO (js_isPagePlayingAudio (self)) -pattern LAYER_TREE_INCLUDES_VISIBLE_RECTS = 1 -pattern LAYER_TREE_INCLUDES_TILE_CACHES = 2 -pattern LAYER_TREE_INCLUDES_REPAINT_RECTS = 4 -pattern LAYER_TREE_INCLUDES_PAINTING_PHASES = 8 -pattern LAYER_TREE_INCLUDES_CONTENT_LAYERS = 16 - -foreign import javascript unsafe "$1[\"settings\"]" js_getSettings - :: Internals -> IO (Nullable InternalSettings) - --- | -getSettings :: - (MonadIO m) => Internals -> m (Maybe InternalSettings) -getSettings self - = liftIO (nullableToMaybe <$> (js_getSettings (self))) - -foreign import javascript unsafe "$1[\"workerThreadCount\"]" - js_getWorkerThreadCount :: Internals -> IO Word - --- | -getWorkerThreadCount :: (MonadIO m) => Internals -> m Word -getWorkerThreadCount self = liftIO (js_getWorkerThreadCount (self)) - -foreign import javascript unsafe "$1[\"consoleProfiles\"]" - js_getConsoleProfiles :: Internals -> IO JSVal - --- | -getConsoleProfiles :: - (MonadIO m) => Internals -> m [Maybe ScriptProfile] -getConsoleProfiles self - = liftIO ((js_getConsoleProfiles (self)) >>= fromJSValUnchecked) diff --git a/src/GHCJS/DOM/JSFFI/Generated/KeyboardEvent.hs b/src/GHCJS/DOM/JSFFI/Generated/KeyboardEvent.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/KeyboardEvent.hs +++ /dev/null @@ -1,121 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.KeyboardEvent - (js_initKeyboardEvent, initKeyboardEvent, - pattern DOM_KEY_LOCATION_STANDARD, pattern DOM_KEY_LOCATION_LEFT, - pattern DOM_KEY_LOCATION_RIGHT, pattern DOM_KEY_LOCATION_NUMPAD, - js_getKeyIdentifier, getKeyIdentifier, js_getLocation, getLocation, - js_getKeyLocation, getKeyLocation, js_getCtrlKey, getCtrlKey, - js_getShiftKey, getShiftKey, js_getAltKey, getAltKey, - js_getMetaKey, getMetaKey, js_getAltGraphKey, getAltGraphKey, - KeyboardEvent, castToKeyboardEvent, gTypeKeyboardEvent) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe - "$1[\"initKeyboardEvent\"]($2, $3,\n$4, $5, $6, $7, $8, $9, $10,\n$11, $12)" - js_initKeyboardEvent :: - KeyboardEvent -> - JSString -> - Bool -> - Bool -> - Nullable Window -> - JSString -> Word -> Bool -> Bool -> Bool -> Bool -> Bool -> IO () - --- | -initKeyboardEvent :: - (MonadIO m, ToJSString type', ToJSString keyIdentifier) => - KeyboardEvent -> - type' -> - Bool -> - Bool -> - Maybe Window -> - keyIdentifier -> - Word -> Bool -> Bool -> Bool -> Bool -> Bool -> m () -initKeyboardEvent self type' canBubble cancelable view - keyIdentifier location ctrlKey altKey shiftKey metaKey altGraphKey - = liftIO - (js_initKeyboardEvent (self) (toJSString type') canBubble - cancelable - (maybeToNullable view) - (toJSString keyIdentifier) - location - ctrlKey - altKey - shiftKey - metaKey - altGraphKey) -pattern DOM_KEY_LOCATION_STANDARD = 0 -pattern DOM_KEY_LOCATION_LEFT = 1 -pattern DOM_KEY_LOCATION_RIGHT = 2 -pattern DOM_KEY_LOCATION_NUMPAD = 3 - -foreign import javascript unsafe "$1[\"keyIdentifier\"]" - js_getKeyIdentifier :: KeyboardEvent -> IO JSString - --- | -getKeyIdentifier :: - (MonadIO m, FromJSString result) => KeyboardEvent -> m result -getKeyIdentifier self - = liftIO (fromJSString <$> (js_getKeyIdentifier (self))) - -foreign import javascript unsafe "$1[\"location\"]" js_getLocation - :: KeyboardEvent -> IO Word - --- | -getLocation :: (MonadIO m) => KeyboardEvent -> m Word -getLocation self = liftIO (js_getLocation (self)) - -foreign import javascript unsafe "$1[\"keyLocation\"]" - js_getKeyLocation :: KeyboardEvent -> IO Word - --- | -getKeyLocation :: (MonadIO m) => KeyboardEvent -> m Word -getKeyLocation self = liftIO (js_getKeyLocation (self)) - -foreign import javascript unsafe "($1[\"ctrlKey\"] ? 1 : 0)" - js_getCtrlKey :: KeyboardEvent -> IO Bool - --- | -getCtrlKey :: (MonadIO m) => KeyboardEvent -> m Bool -getCtrlKey self = liftIO (js_getCtrlKey (self)) - -foreign import javascript unsafe "($1[\"shiftKey\"] ? 1 : 0)" - js_getShiftKey :: KeyboardEvent -> IO Bool - --- | -getShiftKey :: (MonadIO m) => KeyboardEvent -> m Bool -getShiftKey self = liftIO (js_getShiftKey (self)) - -foreign import javascript unsafe "($1[\"altKey\"] ? 1 : 0)" - js_getAltKey :: KeyboardEvent -> IO Bool - --- | -getAltKey :: (MonadIO m) => KeyboardEvent -> m Bool -getAltKey self = liftIO (js_getAltKey (self)) - -foreign import javascript unsafe "($1[\"metaKey\"] ? 1 : 0)" - js_getMetaKey :: KeyboardEvent -> IO Bool - --- | -getMetaKey :: (MonadIO m) => KeyboardEvent -> m Bool -getMetaKey self = liftIO (js_getMetaKey (self)) - -foreign import javascript unsafe "($1[\"altGraphKey\"] ? 1 : 0)" - js_getAltGraphKey :: KeyboardEvent -> IO Bool - --- | -getAltGraphKey :: (MonadIO m) => KeyboardEvent -> m Bool -getAltGraphKey self = liftIO (js_getAltGraphKey (self)) diff --git a/src/GHCJS/DOM/JSFFI/Generated/Location.hs b/src/GHCJS/DOM/JSFFI/Generated/Location.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/Location.hs +++ /dev/null @@ -1,198 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.Location - (js_assign, assign, js_replace, replace, js_reload, reload, - js_toString, toString, js_setHref, setHref, js_getHref, getHref, - js_setProtocol, setProtocol, js_getProtocol, getProtocol, - js_setHost, setHost, js_getHost, getHost, js_setHostname, - setHostname, js_getHostname, getHostname, js_setPort, setPort, - js_getPort, getPort, js_setPathname, setPathname, js_getPathname, - getPathname, js_setSearch, setSearch, js_getSearch, getSearch, - js_setHash, setHash, js_getHash, getHash, js_getOrigin, getOrigin, - js_getAncestorOrigins, getAncestorOrigins, Location, - castToLocation, gTypeLocation) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"assign\"]($2)" js_assign :: - Location -> JSString -> IO () - --- | -assign :: (MonadIO m, ToJSString url) => Location -> url -> m () -assign self url = liftIO (js_assign (self) (toJSString url)) - -foreign import javascript unsafe "$1[\"replace\"]($2)" js_replace - :: Location -> JSString -> IO () - --- | -replace :: (MonadIO m, ToJSString url) => Location -> url -> m () -replace self url = liftIO (js_replace (self) (toJSString url)) - -foreign import javascript unsafe "$1[\"reload\"]()" js_reload :: - Location -> IO () - --- | -reload :: (MonadIO m) => Location -> m () -reload self = liftIO (js_reload (self)) - -foreign import javascript unsafe "$1[\"toString\"]()" js_toString - :: Location -> IO JSString - --- | -toString :: - (MonadIO m, FromJSString result) => Location -> m result -toString self = liftIO (fromJSString <$> (js_toString (self))) - -foreign import javascript unsafe "$1[\"href\"] = $2;" js_setHref :: - Location -> JSString -> IO () - --- | -setHref :: (MonadIO m, ToJSString val) => Location -> val -> m () -setHref self val = liftIO (js_setHref (self) (toJSString val)) - -foreign import javascript unsafe "$1[\"href\"]" js_getHref :: - Location -> IO JSString - --- | -getHref :: (MonadIO m, FromJSString result) => Location -> m result -getHref self = liftIO (fromJSString <$> (js_getHref (self))) - -foreign import javascript unsafe "$1[\"protocol\"] = $2;" - js_setProtocol :: Location -> JSString -> IO () - --- | -setProtocol :: - (MonadIO m, ToJSString val) => Location -> val -> m () -setProtocol self val - = liftIO (js_setProtocol (self) (toJSString val)) - -foreign import javascript unsafe "$1[\"protocol\"]" js_getProtocol - :: Location -> IO JSString - --- | -getProtocol :: - (MonadIO m, FromJSString result) => Location -> m result -getProtocol self - = liftIO (fromJSString <$> (js_getProtocol (self))) - -foreign import javascript unsafe "$1[\"host\"] = $2;" js_setHost :: - Location -> JSString -> IO () - --- | -setHost :: (MonadIO m, ToJSString val) => Location -> val -> m () -setHost self val = liftIO (js_setHost (self) (toJSString val)) - -foreign import javascript unsafe "$1[\"host\"]" js_getHost :: - Location -> IO JSString - --- | -getHost :: (MonadIO m, FromJSString result) => Location -> m result -getHost self = liftIO (fromJSString <$> (js_getHost (self))) - -foreign import javascript unsafe "$1[\"hostname\"] = $2;" - js_setHostname :: Location -> JSString -> IO () - --- | -setHostname :: - (MonadIO m, ToJSString val) => Location -> val -> m () -setHostname self val - = liftIO (js_setHostname (self) (toJSString val)) - -foreign import javascript unsafe "$1[\"hostname\"]" js_getHostname - :: Location -> IO JSString - --- | -getHostname :: - (MonadIO m, FromJSString result) => Location -> m result -getHostname self - = liftIO (fromJSString <$> (js_getHostname (self))) - -foreign import javascript unsafe "$1[\"port\"] = $2;" js_setPort :: - Location -> JSString -> IO () - --- | -setPort :: (MonadIO m, ToJSString val) => Location -> val -> m () -setPort self val = liftIO (js_setPort (self) (toJSString val)) - -foreign import javascript unsafe "$1[\"port\"]" js_getPort :: - Location -> IO JSString - --- | -getPort :: (MonadIO m, FromJSString result) => Location -> m result -getPort self = liftIO (fromJSString <$> (js_getPort (self))) - -foreign import javascript unsafe "$1[\"pathname\"] = $2;" - js_setPathname :: Location -> JSString -> IO () - --- | -setPathname :: - (MonadIO m, ToJSString val) => Location -> val -> m () -setPathname self val - = liftIO (js_setPathname (self) (toJSString val)) - -foreign import javascript unsafe "$1[\"pathname\"]" js_getPathname - :: Location -> IO JSString - --- | -getPathname :: - (MonadIO m, FromJSString result) => Location -> m result -getPathname self - = liftIO (fromJSString <$> (js_getPathname (self))) - -foreign import javascript unsafe "$1[\"search\"] = $2;" - js_setSearch :: Location -> JSString -> IO () - --- | -setSearch :: (MonadIO m, ToJSString val) => Location -> val -> m () -setSearch self val = liftIO (js_setSearch (self) (toJSString val)) - -foreign import javascript unsafe "$1[\"search\"]" js_getSearch :: - Location -> IO JSString - --- | -getSearch :: - (MonadIO m, FromJSString result) => Location -> m result -getSearch self = liftIO (fromJSString <$> (js_getSearch (self))) - -foreign import javascript unsafe "$1[\"hash\"] = $2;" js_setHash :: - Location -> JSString -> IO () - --- | -setHash :: (MonadIO m, ToJSString val) => Location -> val -> m () -setHash self val = liftIO (js_setHash (self) (toJSString val)) - -foreign import javascript unsafe "$1[\"hash\"]" js_getHash :: - Location -> IO JSString - --- | -getHash :: (MonadIO m, FromJSString result) => Location -> m result -getHash self = liftIO (fromJSString <$> (js_getHash (self))) - -foreign import javascript unsafe "$1[\"origin\"]" js_getOrigin :: - Location -> IO JSString - --- | -getOrigin :: - (MonadIO m, FromJSString result) => Location -> m result -getOrigin self = liftIO (fromJSString <$> (js_getOrigin (self))) - -foreign import javascript unsafe "$1[\"ancestorOrigins\"]" - js_getAncestorOrigins :: Location -> IO (Nullable DOMStringList) - --- | -getAncestorOrigins :: - (MonadIO m) => Location -> m (Maybe DOMStringList) -getAncestorOrigins self - = liftIO (nullableToMaybe <$> (js_getAncestorOrigins (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/MallocStatistics.hs b/src/GHCJS/DOM/JSFFI/Generated/MallocStatistics.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/MallocStatistics.hs +++ /dev/null @@ -1,41 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.MallocStatistics - (js_getReservedVMBytes, getReservedVMBytes, js_getCommittedVMBytes, - getCommittedVMBytes, js_getFreeListBytes, getFreeListBytes, - MallocStatistics, castToMallocStatistics, gTypeMallocStatistics) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"reservedVMBytes\"]" - js_getReservedVMBytes :: MallocStatistics -> IO Word - --- | -getReservedVMBytes :: (MonadIO m) => MallocStatistics -> m Word -getReservedVMBytes self = liftIO (js_getReservedVMBytes (self)) - -foreign import javascript unsafe "$1[\"committedVMBytes\"]" - js_getCommittedVMBytes :: MallocStatistics -> IO Word - --- | -getCommittedVMBytes :: (MonadIO m) => MallocStatistics -> m Word -getCommittedVMBytes self = liftIO (js_getCommittedVMBytes (self)) - -foreign import javascript unsafe "$1[\"freeListBytes\"]" - js_getFreeListBytes :: MallocStatistics -> IO Word - --- | -getFreeListBytes :: (MonadIO m) => MallocStatistics -> m Word -getFreeListBytes self = liftIO (js_getFreeListBytes (self)) diff --git a/src/GHCJS/DOM/JSFFI/Generated/MediaController.hs b/src/GHCJS/DOM/JSFFI/Generated/MediaController.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/MediaController.hs +++ /dev/null @@ -1,181 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.MediaController - (js_newMediaController, newMediaController, js_play, play, - js_pause, pause, js_unpause, unpause, js_getBuffered, getBuffered, - js_getSeekable, getSeekable, js_getDuration, getDuration, - js_setCurrentTime, setCurrentTime, js_getCurrentTime, - getCurrentTime, js_getPaused, getPaused, js_getPlayed, getPlayed, - js_getPlaybackState, getPlaybackState, js_setDefaultPlaybackRate, - setDefaultPlaybackRate, js_getDefaultPlaybackRate, - getDefaultPlaybackRate, js_setPlaybackRate, setPlaybackRate, - js_getPlaybackRate, getPlaybackRate, js_setVolume, setVolume, - js_getVolume, getVolume, js_setMuted, setMuted, js_getMuted, - getMuted, MediaController, castToMediaController, - gTypeMediaController) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe - "new window[\"MediaController\"]()" js_newMediaController :: - IO MediaController - --- | -newMediaController :: (MonadIO m) => m MediaController -newMediaController = liftIO (js_newMediaController) - -foreign import javascript unsafe "$1[\"play\"]()" js_play :: - MediaController -> IO () - --- | -play :: (MonadIO m) => MediaController -> m () -play self = liftIO (js_play (self)) - -foreign import javascript unsafe "$1[\"pause\"]()" js_pause :: - MediaController -> IO () - --- | -pause :: (MonadIO m) => MediaController -> m () -pause self = liftIO (js_pause (self)) - -foreign import javascript unsafe "$1[\"unpause\"]()" js_unpause :: - MediaController -> IO () - --- | -unpause :: (MonadIO m) => MediaController -> m () -unpause self = liftIO (js_unpause (self)) - -foreign import javascript unsafe "$1[\"buffered\"]" js_getBuffered - :: MediaController -> IO (Nullable TimeRanges) - --- | -getBuffered :: - (MonadIO m) => MediaController -> m (Maybe TimeRanges) -getBuffered self - = liftIO (nullableToMaybe <$> (js_getBuffered (self))) - -foreign import javascript unsafe "$1[\"seekable\"]" js_getSeekable - :: MediaController -> IO (Nullable TimeRanges) - --- | -getSeekable :: - (MonadIO m) => MediaController -> m (Maybe TimeRanges) -getSeekable self - = liftIO (nullableToMaybe <$> (js_getSeekable (self))) - -foreign import javascript unsafe "$1[\"duration\"]" js_getDuration - :: MediaController -> IO Double - --- | -getDuration :: (MonadIO m) => MediaController -> m Double -getDuration self = liftIO (js_getDuration (self)) - -foreign import javascript unsafe "$1[\"currentTime\"] = $2;" - js_setCurrentTime :: MediaController -> Double -> IO () - --- | -setCurrentTime :: (MonadIO m) => MediaController -> Double -> m () -setCurrentTime self val = liftIO (js_setCurrentTime (self) val) - -foreign import javascript unsafe "$1[\"currentTime\"]" - js_getCurrentTime :: MediaController -> IO Double - --- | -getCurrentTime :: (MonadIO m) => MediaController -> m Double -getCurrentTime self = liftIO (js_getCurrentTime (self)) - -foreign import javascript unsafe "($1[\"paused\"] ? 1 : 0)" - js_getPaused :: MediaController -> IO Bool - --- | -getPaused :: (MonadIO m) => MediaController -> m Bool -getPaused self = liftIO (js_getPaused (self)) - -foreign import javascript unsafe "$1[\"played\"]" js_getPlayed :: - MediaController -> IO (Nullable TimeRanges) - --- | -getPlayed :: (MonadIO m) => MediaController -> m (Maybe TimeRanges) -getPlayed self = liftIO (nullableToMaybe <$> (js_getPlayed (self))) - -foreign import javascript unsafe "$1[\"playbackState\"]" - js_getPlaybackState :: MediaController -> IO JSString - --- | -getPlaybackState :: - (MonadIO m, FromJSString result) => MediaController -> m result -getPlaybackState self - = liftIO (fromJSString <$> (js_getPlaybackState (self))) - -foreign import javascript unsafe - "$1[\"defaultPlaybackRate\"] = $2;" js_setDefaultPlaybackRate :: - MediaController -> Double -> IO () - --- | -setDefaultPlaybackRate :: - (MonadIO m) => MediaController -> Double -> m () -setDefaultPlaybackRate self val - = liftIO (js_setDefaultPlaybackRate (self) val) - -foreign import javascript unsafe "$1[\"defaultPlaybackRate\"]" - js_getDefaultPlaybackRate :: MediaController -> IO Double - --- | -getDefaultPlaybackRate :: - (MonadIO m) => MediaController -> m Double -getDefaultPlaybackRate self - = liftIO (js_getDefaultPlaybackRate (self)) - -foreign import javascript unsafe "$1[\"playbackRate\"] = $2;" - js_setPlaybackRate :: MediaController -> Double -> IO () - --- | -setPlaybackRate :: (MonadIO m) => MediaController -> Double -> m () -setPlaybackRate self val = liftIO (js_setPlaybackRate (self) val) - -foreign import javascript unsafe "$1[\"playbackRate\"]" - js_getPlaybackRate :: MediaController -> IO Double - --- | -getPlaybackRate :: (MonadIO m) => MediaController -> m Double -getPlaybackRate self = liftIO (js_getPlaybackRate (self)) - -foreign import javascript unsafe "$1[\"volume\"] = $2;" - js_setVolume :: MediaController -> Double -> IO () - --- | -setVolume :: (MonadIO m) => MediaController -> Double -> m () -setVolume self val = liftIO (js_setVolume (self) val) - -foreign import javascript unsafe "$1[\"volume\"]" js_getVolume :: - MediaController -> IO Double - --- | -getVolume :: (MonadIO m) => MediaController -> m Double -getVolume self = liftIO (js_getVolume (self)) - -foreign import javascript unsafe "$1[\"muted\"] = $2;" js_setMuted - :: MediaController -> Bool -> IO () - --- | -setMuted :: (MonadIO m) => MediaController -> Bool -> m () -setMuted self val = liftIO (js_setMuted (self) val) - -foreign import javascript unsafe "($1[\"muted\"] ? 1 : 0)" - js_getMuted :: MediaController -> IO Bool - --- | -getMuted :: (MonadIO m) => MediaController -> m Bool -getMuted self = liftIO (js_getMuted (self)) diff --git a/src/GHCJS/DOM/JSFFI/Generated/MediaControlsHost.hs b/src/GHCJS/DOM/JSFFI/Generated/MediaControlsHost.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/MediaControlsHost.hs +++ /dev/null @@ -1,259 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.MediaControlsHost - (js_sortedTrackListForMenu, sortedTrackListForMenu, - js_sortedTrackListForMenuAudio, sortedTrackListForMenuAudio, - js_displayNameForTrack, displayNameForTrack, - js_displayNameForTrackAudio, displayNameForTrackAudio, - js_setSelectedTextTrack, setSelectedTextTrack, - js_updateTextTrackContainer, updateTextTrackContainer, - js_enteredFullscreen, enteredFullscreen, js_exitedFullscreen, - exitedFullscreen, js_enterFullscreenOptimized, - enterFullscreenOptimized, js_mediaUIImageData, mediaUIImageData, - js_getCaptionMenuOffItem, getCaptionMenuOffItem, - js_getCaptionMenuAutomaticItem, getCaptionMenuAutomaticItem, - js_getCaptionDisplayMode, getCaptionDisplayMode, - js_getTextTrackContainer, getTextTrackContainer, - js_getMediaPlaybackAllowsInline, getMediaPlaybackAllowsInline, - js_getSupportsFullscreen, getSupportsFullscreen, - js_getUserGestureRequired, getUserGestureRequired, - js_getExternalDeviceDisplayName, getExternalDeviceDisplayName, - js_getExternalDeviceType, getExternalDeviceType, - js_setControlsDependOnPageScaleFactor, - setControlsDependOnPageScaleFactor, - js_getControlsDependOnPageScaleFactor, - getControlsDependOnPageScaleFactor, MediaControlsHost, - castToMediaControlsHost, gTypeMediaControlsHost) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe - "$1[\"sortedTrackListForMenu\"]($2)" js_sortedTrackListForMenu :: - MediaControlsHost -> Nullable TextTrackList -> IO JSVal - --- | -sortedTrackListForMenu :: - (MonadIO m) => - MediaControlsHost -> Maybe TextTrackList -> m [Maybe TextTrack] -sortedTrackListForMenu self trackList - = liftIO - ((js_sortedTrackListForMenu (self) (maybeToNullable trackList)) >>= - fromJSValUnchecked) - -foreign import javascript unsafe - "$1[\"sortedTrackListForMenu\"]($2)" js_sortedTrackListForMenuAudio - :: MediaControlsHost -> Nullable AudioTrackList -> IO JSVal - --- | -sortedTrackListForMenuAudio :: - (MonadIO m) => - MediaControlsHost -> Maybe AudioTrackList -> m [Maybe AudioTrack] -sortedTrackListForMenuAudio self trackList - = liftIO - ((js_sortedTrackListForMenuAudio (self) - (maybeToNullable trackList)) - >>= fromJSValUnchecked) - -foreign import javascript unsafe "$1[\"displayNameForTrack\"]($2)" - js_displayNameForTrack :: - MediaControlsHost -> Nullable TextTrack -> IO JSString - --- | -displayNameForTrack :: - (MonadIO m, FromJSString result) => - MediaControlsHost -> Maybe TextTrack -> m result -displayNameForTrack self track - = liftIO - (fromJSString <$> - (js_displayNameForTrack (self) (maybeToNullable track))) - -foreign import javascript unsafe "$1[\"displayNameForTrack\"]($2)" - js_displayNameForTrackAudio :: - MediaControlsHost -> Nullable AudioTrack -> IO JSString - --- | -displayNameForTrackAudio :: - (MonadIO m, FromJSString result) => - MediaControlsHost -> Maybe AudioTrack -> m result -displayNameForTrackAudio self track - = liftIO - (fromJSString <$> - (js_displayNameForTrackAudio (self) (maybeToNullable track))) - -foreign import javascript unsafe "$1[\"setSelectedTextTrack\"]($2)" - js_setSelectedTextTrack :: - MediaControlsHost -> Nullable TextTrack -> IO () - --- | -setSelectedTextTrack :: - (MonadIO m) => MediaControlsHost -> Maybe TextTrack -> m () -setSelectedTextTrack self track - = liftIO (js_setSelectedTextTrack (self) (maybeToNullable track)) - -foreign import javascript unsafe - "$1[\"updateTextTrackContainer\"]()" js_updateTextTrackContainer :: - MediaControlsHost -> IO () - --- | -updateTextTrackContainer :: - (MonadIO m) => MediaControlsHost -> m () -updateTextTrackContainer self - = liftIO (js_updateTextTrackContainer (self)) - -foreign import javascript unsafe "$1[\"enteredFullscreen\"]()" - js_enteredFullscreen :: MediaControlsHost -> IO () - --- | -enteredFullscreen :: (MonadIO m) => MediaControlsHost -> m () -enteredFullscreen self = liftIO (js_enteredFullscreen (self)) - -foreign import javascript unsafe "$1[\"exitedFullscreen\"]()" - js_exitedFullscreen :: MediaControlsHost -> IO () - --- | -exitedFullscreen :: (MonadIO m) => MediaControlsHost -> m () -exitedFullscreen self = liftIO (js_exitedFullscreen (self)) - -foreign import javascript unsafe - "$1[\"enterFullscreenOptimized\"]()" js_enterFullscreenOptimized :: - MediaControlsHost -> IO () - --- | -enterFullscreenOptimized :: - (MonadIO m) => MediaControlsHost -> m () -enterFullscreenOptimized self - = liftIO (js_enterFullscreenOptimized (self)) - -foreign import javascript unsafe "$1[\"mediaUIImageData\"]($2)" - js_mediaUIImageData :: MediaControlsHost -> JSVal -> IO JSString - --- | -mediaUIImageData :: - (MonadIO m, FromJSString result) => - MediaControlsHost -> MediaUIPartID -> m result -mediaUIImageData self partID - = liftIO - (fromJSString <$> (js_mediaUIImageData (self) (pToJSVal partID))) - -foreign import javascript unsafe "$1[\"captionMenuOffItem\"]" - js_getCaptionMenuOffItem :: - MediaControlsHost -> IO (Nullable TextTrack) - --- | -getCaptionMenuOffItem :: - (MonadIO m) => MediaControlsHost -> m (Maybe TextTrack) -getCaptionMenuOffItem self - = liftIO (nullableToMaybe <$> (js_getCaptionMenuOffItem (self))) - -foreign import javascript unsafe "$1[\"captionMenuAutomaticItem\"]" - js_getCaptionMenuAutomaticItem :: - MediaControlsHost -> IO (Nullable TextTrack) - --- | -getCaptionMenuAutomaticItem :: - (MonadIO m) => MediaControlsHost -> m (Maybe TextTrack) -getCaptionMenuAutomaticItem self - = liftIO - (nullableToMaybe <$> (js_getCaptionMenuAutomaticItem (self))) - -foreign import javascript unsafe "$1[\"captionDisplayMode\"]" - js_getCaptionDisplayMode :: MediaControlsHost -> IO JSString - --- | -getCaptionDisplayMode :: - (MonadIO m, FromJSString result) => MediaControlsHost -> m result -getCaptionDisplayMode self - = liftIO (fromJSString <$> (js_getCaptionDisplayMode (self))) - -foreign import javascript unsafe "$1[\"textTrackContainer\"]" - js_getTextTrackContainer :: - MediaControlsHost -> IO (Nullable HTMLElement) - --- | -getTextTrackContainer :: - (MonadIO m) => MediaControlsHost -> m (Maybe HTMLElement) -getTextTrackContainer self - = liftIO (nullableToMaybe <$> (js_getTextTrackContainer (self))) - -foreign import javascript unsafe - "($1[\"mediaPlaybackAllowsInline\"] ? 1 : 0)" - js_getMediaPlaybackAllowsInline :: MediaControlsHost -> IO Bool - --- | -getMediaPlaybackAllowsInline :: - (MonadIO m) => MediaControlsHost -> m Bool -getMediaPlaybackAllowsInline self - = liftIO (js_getMediaPlaybackAllowsInline (self)) - -foreign import javascript unsafe - "($1[\"supportsFullscreen\"] ? 1 : 0)" js_getSupportsFullscreen :: - MediaControlsHost -> IO Bool - --- | -getSupportsFullscreen :: (MonadIO m) => MediaControlsHost -> m Bool -getSupportsFullscreen self - = liftIO (js_getSupportsFullscreen (self)) - -foreign import javascript unsafe - "($1[\"userGestureRequired\"] ? 1 : 0)" js_getUserGestureRequired - :: MediaControlsHost -> IO Bool - --- | -getUserGestureRequired :: - (MonadIO m) => MediaControlsHost -> m Bool -getUserGestureRequired self - = liftIO (js_getUserGestureRequired (self)) - -foreign import javascript unsafe - "$1[\"externalDeviceDisplayName\"]" js_getExternalDeviceDisplayName - :: MediaControlsHost -> IO JSString - --- | -getExternalDeviceDisplayName :: - (MonadIO m, FromJSString result) => MediaControlsHost -> m result -getExternalDeviceDisplayName self - = liftIO - (fromJSString <$> (js_getExternalDeviceDisplayName (self))) - -foreign import javascript unsafe "$1[\"externalDeviceType\"]" - js_getExternalDeviceType :: MediaControlsHost -> IO JSVal - --- | -getExternalDeviceType :: - (MonadIO m) => MediaControlsHost -> m DeviceType -getExternalDeviceType self - = liftIO ((js_getExternalDeviceType (self)) >>= fromJSValUnchecked) - -foreign import javascript unsafe - "$1[\"controlsDependOnPageScaleFactor\"] = $2;" - js_setControlsDependOnPageScaleFactor :: - MediaControlsHost -> Bool -> IO () - --- | -setControlsDependOnPageScaleFactor :: - (MonadIO m) => MediaControlsHost -> Bool -> m () -setControlsDependOnPageScaleFactor self val - = liftIO (js_setControlsDependOnPageScaleFactor (self) val) - -foreign import javascript unsafe - "($1[\"controlsDependOnPageScaleFactor\"] ? 1 : 0)" - js_getControlsDependOnPageScaleFactor :: - MediaControlsHost -> IO Bool - --- | -getControlsDependOnPageScaleFactor :: - (MonadIO m) => MediaControlsHost -> m Bool -getControlsDependOnPageScaleFactor self - = liftIO (js_getControlsDependOnPageScaleFactor (self)) diff --git a/src/GHCJS/DOM/JSFFI/Generated/MediaElementAudioSourceNode.hs b/src/GHCJS/DOM/JSFFI/Generated/MediaElementAudioSourceNode.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/MediaElementAudioSourceNode.hs +++ /dev/null @@ -1,31 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.MediaElementAudioSourceNode - (js_getMediaElement, getMediaElement, MediaElementAudioSourceNode, - castToMediaElementAudioSourceNode, - gTypeMediaElementAudioSourceNode) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"mediaElement\"]" - js_getMediaElement :: - MediaElementAudioSourceNode -> IO (Nullable HTMLMediaElement) - --- | -getMediaElement :: - (MonadIO m) => - MediaElementAudioSourceNode -> m (Maybe HTMLMediaElement) -getMediaElement self - = liftIO (nullableToMaybe <$> (js_getMediaElement (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/MediaError.hs b/src/GHCJS/DOM/JSFFI/Generated/MediaError.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/MediaError.hs +++ /dev/null @@ -1,33 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.MediaError - (pattern MEDIA_ERR_ABORTED, pattern MEDIA_ERR_NETWORK, - pattern MEDIA_ERR_DECODE, pattern MEDIA_ERR_SRC_NOT_SUPPORTED, - pattern MEDIA_ERR_ENCRYPTED, js_getCode, getCode, MediaError, - castToMediaError, gTypeMediaError) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums -pattern MEDIA_ERR_ABORTED = 1 -pattern MEDIA_ERR_NETWORK = 2 -pattern MEDIA_ERR_DECODE = 3 -pattern MEDIA_ERR_SRC_NOT_SUPPORTED = 4 -pattern MEDIA_ERR_ENCRYPTED = 5 - -foreign import javascript unsafe "$1[\"code\"]" js_getCode :: - MediaError -> IO Word - --- | -getCode :: (MonadIO m) => MediaError -> m Word -getCode self = liftIO (js_getCode (self)) diff --git a/src/GHCJS/DOM/JSFFI/Generated/MediaKeyError.hs b/src/GHCJS/DOM/JSFFI/Generated/MediaKeyError.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/MediaKeyError.hs +++ /dev/null @@ -1,42 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.MediaKeyError - (pattern MEDIA_KEYERR_UNKNOWN, pattern MEDIA_KEYERR_CLIENT, - pattern MEDIA_KEYERR_SERVICE, pattern MEDIA_KEYERR_OUTPUT, - pattern MEDIA_KEYERR_HARDWARECHANGE, pattern MEDIA_KEYERR_DOMAIN, - js_getCode, getCode, js_getSystemCode, getSystemCode, - MediaKeyError, castToMediaKeyError, gTypeMediaKeyError) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums -pattern MEDIA_KEYERR_UNKNOWN = 1 -pattern MEDIA_KEYERR_CLIENT = 2 -pattern MEDIA_KEYERR_SERVICE = 3 -pattern MEDIA_KEYERR_OUTPUT = 4 -pattern MEDIA_KEYERR_HARDWARECHANGE = 5 -pattern MEDIA_KEYERR_DOMAIN = 6 - -foreign import javascript unsafe "$1[\"code\"]" js_getCode :: - MediaKeyError -> IO Word - --- | -getCode :: (MonadIO m) => MediaKeyError -> m Word -getCode self = liftIO (js_getCode (self)) - -foreign import javascript unsafe "$1[\"systemCode\"]" - js_getSystemCode :: MediaKeyError -> IO Word - --- | -getSystemCode :: (MonadIO m) => MediaKeyError -> m Word -getSystemCode self = liftIO (js_getSystemCode (self)) diff --git a/src/GHCJS/DOM/JSFFI/Generated/MediaKeyEvent.hs b/src/GHCJS/DOM/JSFFI/Generated/MediaKeyEvent.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/MediaKeyEvent.hs +++ /dev/null @@ -1,81 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.MediaKeyEvent - (js_getKeySystem, getKeySystem, js_getSessionId, getSessionId, - js_getInitData, getInitData, js_getMessage, getMessage, - js_getDefaultURL, getDefaultURL, js_getErrorCode, getErrorCode, - js_getSystemCode, getSystemCode, MediaKeyEvent, - castToMediaKeyEvent, gTypeMediaKeyEvent) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"keySystem\"]" - js_getKeySystem :: MediaKeyEvent -> IO JSString - --- | -getKeySystem :: - (MonadIO m, FromJSString result) => MediaKeyEvent -> m result -getKeySystem self - = liftIO (fromJSString <$> (js_getKeySystem (self))) - -foreign import javascript unsafe "$1[\"sessionId\"]" - js_getSessionId :: MediaKeyEvent -> IO JSString - --- | -getSessionId :: - (MonadIO m, FromJSString result) => MediaKeyEvent -> m result -getSessionId self - = liftIO (fromJSString <$> (js_getSessionId (self))) - -foreign import javascript unsafe "$1[\"initData\"]" js_getInitData - :: MediaKeyEvent -> IO (Nullable Uint8Array) - --- | -getInitData :: (MonadIO m) => MediaKeyEvent -> m (Maybe Uint8Array) -getInitData self - = liftIO (nullableToMaybe <$> (js_getInitData (self))) - -foreign import javascript unsafe "$1[\"message\"]" js_getMessage :: - MediaKeyEvent -> IO (Nullable Uint8Array) - --- | -getMessage :: (MonadIO m) => MediaKeyEvent -> m (Maybe Uint8Array) -getMessage self - = liftIO (nullableToMaybe <$> (js_getMessage (self))) - -foreign import javascript unsafe "$1[\"defaultURL\"]" - js_getDefaultURL :: MediaKeyEvent -> IO JSString - --- | -getDefaultURL :: - (MonadIO m, FromJSString result) => MediaKeyEvent -> m result -getDefaultURL self - = liftIO (fromJSString <$> (js_getDefaultURL (self))) - -foreign import javascript unsafe "$1[\"errorCode\"]" - js_getErrorCode :: MediaKeyEvent -> IO (Nullable MediaKeyError) - --- | -getErrorCode :: - (MonadIO m) => MediaKeyEvent -> m (Maybe MediaKeyError) -getErrorCode self - = liftIO (nullableToMaybe <$> (js_getErrorCode (self))) - -foreign import javascript unsafe "$1[\"systemCode\"]" - js_getSystemCode :: MediaKeyEvent -> IO Word - --- | -getSystemCode :: (MonadIO m) => MediaKeyEvent -> m Word -getSystemCode self = liftIO (js_getSystemCode (self)) diff --git a/src/GHCJS/DOM/JSFFI/Generated/MediaKeyMessageEvent.hs b/src/GHCJS/DOM/JSFFI/Generated/MediaKeyMessageEvent.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/MediaKeyMessageEvent.hs +++ /dev/null @@ -1,39 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.MediaKeyMessageEvent - (js_getMessage, getMessage, js_getDestinationURL, - getDestinationURL, MediaKeyMessageEvent, - castToMediaKeyMessageEvent, gTypeMediaKeyMessageEvent) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"message\"]" js_getMessage :: - MediaKeyMessageEvent -> IO (Nullable Uint8Array) - --- | -getMessage :: - (MonadIO m) => MediaKeyMessageEvent -> m (Maybe Uint8Array) -getMessage self - = liftIO (nullableToMaybe <$> (js_getMessage (self))) - -foreign import javascript unsafe "$1[\"destinationURL\"]" - js_getDestinationURL :: MediaKeyMessageEvent -> IO JSString - --- | -getDestinationURL :: - (MonadIO m, FromJSString result) => - MediaKeyMessageEvent -> m result -getDestinationURL self - = liftIO (fromJSString <$> (js_getDestinationURL (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/MediaKeyNeededEvent.hs b/src/GHCJS/DOM/JSFFI/Generated/MediaKeyNeededEvent.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/MediaKeyNeededEvent.hs +++ /dev/null @@ -1,28 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.MediaKeyNeededEvent - (js_getInitData, getInitData, MediaKeyNeededEvent, - castToMediaKeyNeededEvent, gTypeMediaKeyNeededEvent) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"initData\"]" js_getInitData - :: MediaKeyNeededEvent -> IO (Nullable Uint8Array) - --- | -getInitData :: - (MonadIO m) => MediaKeyNeededEvent -> m (Maybe Uint8Array) -getInitData self - = liftIO (nullableToMaybe <$> (js_getInitData (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/MediaKeySession.hs b/src/GHCJS/DOM/JSFFI/Generated/MediaKeySession.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/MediaKeySession.hs +++ /dev/null @@ -1,77 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.MediaKeySession - (js_update, update, js_close, close, js_getError, getError, - js_getKeySystem, getKeySystem, js_getSessionId, getSessionId, - webKitKeyAdded, webKitKeyError, webKitKeyMessage, MediaKeySession, - castToMediaKeySession, gTypeMediaKeySession) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"update\"]($2)" js_update :: - MediaKeySession -> Nullable Uint8Array -> IO () - --- | -update :: - (MonadIO m, IsUint8Array key) => - MediaKeySession -> Maybe key -> m () -update self key - = liftIO - (js_update (self) (maybeToNullable (fmap toUint8Array key))) - -foreign import javascript unsafe "$1[\"close\"]()" js_close :: - MediaKeySession -> IO () - --- | -close :: (MonadIO m) => MediaKeySession -> m () -close self = liftIO (js_close (self)) - -foreign import javascript unsafe "$1[\"error\"]" js_getError :: - MediaKeySession -> IO (Nullable MediaKeyError) - --- | -getError :: - (MonadIO m) => MediaKeySession -> m (Maybe MediaKeyError) -getError self = liftIO (nullableToMaybe <$> (js_getError (self))) - -foreign import javascript unsafe "$1[\"keySystem\"]" - js_getKeySystem :: MediaKeySession -> IO JSString - --- | -getKeySystem :: - (MonadIO m, FromJSString result) => MediaKeySession -> m result -getKeySystem self - = liftIO (fromJSString <$> (js_getKeySystem (self))) - -foreign import javascript unsafe "$1[\"sessionId\"]" - js_getSessionId :: MediaKeySession -> IO JSString - --- | -getSessionId :: - (MonadIO m, FromJSString result) => MediaKeySession -> m result -getSessionId self - = liftIO (fromJSString <$> (js_getSessionId (self))) - --- | -webKitKeyAdded :: EventName MediaKeySession Event -webKitKeyAdded = unsafeEventName (toJSString "webkitkeyadded") - --- | -webKitKeyError :: EventName MediaKeySession Event -webKitKeyError = unsafeEventName (toJSString "webkitkeyerror") - --- | -webKitKeyMessage :: EventName MediaKeySession Event -webKitKeyMessage = unsafeEventName (toJSString "webkitkeymessage") diff --git a/src/GHCJS/DOM/JSFFI/Generated/MediaKeys.hs b/src/GHCJS/DOM/JSFFI/Generated/MediaKeys.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/MediaKeys.hs +++ /dev/null @@ -1,67 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.MediaKeys - (js_newMediaKeys, newMediaKeys, js_createSession, createSession, - js_isTypeSupported, isTypeSupported, js_getKeySystem, getKeySystem, - MediaKeys, castToMediaKeys, gTypeMediaKeys) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe - "new window[\"WebKitMediaKeys\"]($1)" js_newMediaKeys :: - JSString -> IO MediaKeys - --- | -newMediaKeys :: - (MonadIO m, ToJSString keySystem) => keySystem -> m MediaKeys -newMediaKeys keySystem - = liftIO (js_newMediaKeys (toJSString keySystem)) - -foreign import javascript unsafe "$1[\"createSession\"]($2, $3)" - js_createSession :: - MediaKeys -> - JSString -> Nullable Uint8Array -> IO (Nullable MediaKeySession) - --- | -createSession :: - (MonadIO m, ToJSString type', IsUint8Array initData) => - MediaKeys -> type' -> Maybe initData -> m (Maybe MediaKeySession) -createSession self type' initData - = liftIO - (nullableToMaybe <$> - (js_createSession (self) (toJSString type') - (maybeToNullable (fmap toUint8Array initData)))) - -foreign import javascript unsafe - "($1[\"isTypeSupported\"]($2,\n$3) ? 1 : 0)" js_isTypeSupported :: - MediaKeys -> JSString -> JSString -> IO Bool - --- | -isTypeSupported :: - (MonadIO m, ToJSString keySystem, ToJSString type') => - MediaKeys -> keySystem -> type' -> m Bool -isTypeSupported self keySystem type' - = liftIO - (js_isTypeSupported (self) (toJSString keySystem) - (toJSString type')) - -foreign import javascript unsafe "$1[\"keySystem\"]" - js_getKeySystem :: MediaKeys -> IO JSString - --- | -getKeySystem :: - (MonadIO m, FromJSString result) => MediaKeys -> m result -getKeySystem self - = liftIO (fromJSString <$> (js_getKeySystem (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/MediaList.hs b/src/GHCJS/DOM/JSFFI/Generated/MediaList.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/MediaList.hs +++ /dev/null @@ -1,74 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.MediaList - (js_item, item, js_deleteMedium, deleteMedium, js_appendMedium, - appendMedium, js_setMediaText, setMediaText, js_getMediaText, - getMediaText, js_getLength, getLength, MediaList, castToMediaList, - gTypeMediaList) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"item\"]($2)" js_item :: - MediaList -> Word -> IO (Nullable JSString) - --- | -item :: - (MonadIO m, FromJSString result) => - MediaList -> Word -> m (Maybe result) -item self index - = liftIO (fromMaybeJSString <$> (js_item (self) index)) - -foreign import javascript unsafe "$1[\"deleteMedium\"]($2)" - js_deleteMedium :: MediaList -> JSString -> IO () - --- | -deleteMedium :: - (MonadIO m, ToJSString oldMedium) => MediaList -> oldMedium -> m () -deleteMedium self oldMedium - = liftIO (js_deleteMedium (self) (toJSString oldMedium)) - -foreign import javascript unsafe "$1[\"appendMedium\"]($2)" - js_appendMedium :: MediaList -> JSString -> IO () - --- | -appendMedium :: - (MonadIO m, ToJSString newMedium) => MediaList -> newMedium -> m () -appendMedium self newMedium - = liftIO (js_appendMedium (self) (toJSString newMedium)) - -foreign import javascript unsafe "$1[\"mediaText\"] = $2;" - js_setMediaText :: MediaList -> Nullable JSString -> IO () - --- | -setMediaText :: - (MonadIO m, ToJSString val) => MediaList -> Maybe val -> m () -setMediaText self val - = liftIO (js_setMediaText (self) (toMaybeJSString val)) - -foreign import javascript unsafe "$1[\"mediaText\"]" - js_getMediaText :: MediaList -> IO (Nullable JSString) - --- | -getMediaText :: - (MonadIO m, FromJSString result) => MediaList -> m (Maybe result) -getMediaText self - = liftIO (fromMaybeJSString <$> (js_getMediaText (self))) - -foreign import javascript unsafe "$1[\"length\"]" js_getLength :: - MediaList -> IO Word - --- | -getLength :: (MonadIO m) => MediaList -> m Word -getLength self = liftIO (js_getLength (self)) diff --git a/src/GHCJS/DOM/JSFFI/Generated/MediaQueryList.hs b/src/GHCJS/DOM/JSFFI/Generated/MediaQueryList.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/MediaQueryList.hs +++ /dev/null @@ -1,57 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.MediaQueryList - (js_addListener, addListener, js_removeListener, removeListener, - js_getMedia, getMedia, js_getMatches, getMatches, MediaQueryList, - castToMediaQueryList, gTypeMediaQueryList) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"addListener\"]($2)" - js_addListener :: - MediaQueryList -> Nullable MediaQueryListListener -> IO () - --- | -addListener :: - (MonadIO m) => - MediaQueryList -> Maybe MediaQueryListListener -> m () -addListener self listener - = liftIO (js_addListener (self) (maybeToNullable listener)) - -foreign import javascript unsafe "$1[\"removeListener\"]($2)" - js_removeListener :: - MediaQueryList -> Nullable MediaQueryListListener -> IO () - --- | -removeListener :: - (MonadIO m) => - MediaQueryList -> Maybe MediaQueryListListener -> m () -removeListener self listener - = liftIO (js_removeListener (self) (maybeToNullable listener)) - -foreign import javascript unsafe "$1[\"media\"]" js_getMedia :: - MediaQueryList -> IO JSString - --- | -getMedia :: - (MonadIO m, FromJSString result) => MediaQueryList -> m result -getMedia self = liftIO (fromJSString <$> (js_getMedia (self))) - -foreign import javascript unsafe "($1[\"matches\"] ? 1 : 0)" - js_getMatches :: MediaQueryList -> IO Bool - --- | -getMatches :: (MonadIO m) => MediaQueryList -> m Bool -getMatches self = liftIO (js_getMatches (self)) diff --git a/src/GHCJS/DOM/JSFFI/Generated/MediaQueryListListener.hs b/src/GHCJS/DOM/JSFFI/Generated/MediaQueryListListener.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/MediaQueryListListener.hs +++ /dev/null @@ -1,49 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.MediaQueryListListener - (newMediaQueryListListener, newMediaQueryListListenerSync, - newMediaQueryListListenerAsync, MediaQueryListListener) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - --- | -newMediaQueryListListener :: - (MonadIO m) => - (Maybe MediaQueryList -> IO ()) -> m MediaQueryListListener -newMediaQueryListListener callback - = liftIO - (MediaQueryListListener <$> - syncCallback1 ThrowWouldBlock - (\ list -> fromJSValUnchecked list >>= \ list' -> callback list')) - --- | -newMediaQueryListListenerSync :: - (MonadIO m) => - (Maybe MediaQueryList -> IO ()) -> m MediaQueryListListener -newMediaQueryListListenerSync callback - = liftIO - (MediaQueryListListener <$> - syncCallback1 ContinueAsync - (\ list -> fromJSValUnchecked list >>= \ list' -> callback list')) - --- | -newMediaQueryListListenerAsync :: - (MonadIO m) => - (Maybe MediaQueryList -> IO ()) -> m MediaQueryListListener -newMediaQueryListListenerAsync callback - = liftIO - (MediaQueryListListener <$> - asyncCallback1 - (\ list -> fromJSValUnchecked list >>= \ list' -> callback list')) diff --git a/src/GHCJS/DOM/JSFFI/Generated/MediaSource.hs b/src/GHCJS/DOM/JSFFI/Generated/MediaSource.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/MediaSource.hs +++ /dev/null @@ -1,116 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.MediaSource - (js_newMediaSource, newMediaSource, js_addSourceBuffer, - addSourceBuffer, js_removeSourceBuffer, removeSourceBuffer, - js_endOfStream, endOfStream, js_isTypeSupported, isTypeSupported, - js_getSourceBuffers, getSourceBuffers, js_getActiveSourceBuffers, - getActiveSourceBuffers, js_setDuration, setDuration, - js_getDuration, getDuration, js_getReadyState, getReadyState, - MediaSource, castToMediaSource, gTypeMediaSource) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "new window[\"MediaSource\"]()" - js_newMediaSource :: IO MediaSource - --- | -newMediaSource :: (MonadIO m) => m MediaSource -newMediaSource = liftIO (js_newMediaSource) - -foreign import javascript unsafe "$1[\"addSourceBuffer\"]($2)" - js_addSourceBuffer :: - MediaSource -> JSString -> IO (Nullable SourceBuffer) - --- | -addSourceBuffer :: - (MonadIO m, ToJSString type') => - MediaSource -> type' -> m (Maybe SourceBuffer) -addSourceBuffer self type' - = liftIO - (nullableToMaybe <$> - (js_addSourceBuffer (self) (toJSString type'))) - -foreign import javascript unsafe "$1[\"removeSourceBuffer\"]($2)" - js_removeSourceBuffer :: - MediaSource -> Nullable SourceBuffer -> IO () - --- | -removeSourceBuffer :: - (MonadIO m) => MediaSource -> Maybe SourceBuffer -> m () -removeSourceBuffer self buffer - = liftIO (js_removeSourceBuffer (self) (maybeToNullable buffer)) - -foreign import javascript unsafe "$1[\"endOfStream\"]($2)" - js_endOfStream :: MediaSource -> JSVal -> IO () - --- | -endOfStream :: - (MonadIO m) => MediaSource -> EndOfStreamError -> m () -endOfStream self error - = liftIO (js_endOfStream (self) (pToJSVal error)) - -foreign import javascript unsafe - "($1[\"isTypeSupported\"]($2) ? 1 : 0)" js_isTypeSupported :: - MediaSource -> JSString -> IO Bool - --- | -isTypeSupported :: - (MonadIO m, ToJSString type') => MediaSource -> type' -> m Bool -isTypeSupported self type' - = liftIO (js_isTypeSupported (self) (toJSString type')) - -foreign import javascript unsafe "$1[\"sourceBuffers\"]" - js_getSourceBuffers :: - MediaSource -> IO (Nullable SourceBufferList) - --- | -getSourceBuffers :: - (MonadIO m) => MediaSource -> m (Maybe SourceBufferList) -getSourceBuffers self - = liftIO (nullableToMaybe <$> (js_getSourceBuffers (self))) - -foreign import javascript unsafe "$1[\"activeSourceBuffers\"]" - js_getActiveSourceBuffers :: - MediaSource -> IO (Nullable SourceBufferList) - --- | -getActiveSourceBuffers :: - (MonadIO m) => MediaSource -> m (Maybe SourceBufferList) -getActiveSourceBuffers self - = liftIO (nullableToMaybe <$> (js_getActiveSourceBuffers (self))) - -foreign import javascript unsafe "$1[\"duration\"] = $2;" - js_setDuration :: MediaSource -> Double -> IO () - --- | -setDuration :: (MonadIO m) => MediaSource -> Double -> m () -setDuration self val = liftIO (js_setDuration (self) val) - -foreign import javascript unsafe "$1[\"duration\"]" js_getDuration - :: MediaSource -> IO Double - --- | -getDuration :: (MonadIO m) => MediaSource -> m Double -getDuration self = liftIO (js_getDuration (self)) - -foreign import javascript unsafe "$1[\"readyState\"]" - js_getReadyState :: MediaSource -> IO JSString - --- | -getReadyState :: - (MonadIO m, FromJSString result) => MediaSource -> m result -getReadyState self - = liftIO (fromJSString <$> (js_getReadyState (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/MediaSourceStates.hs b/src/GHCJS/DOM/JSFFI/Generated/MediaSourceStates.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/MediaSourceStates.hs +++ /dev/null @@ -1,90 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.MediaSourceStates - (js_getSourceType, getSourceType, js_getSourceId, getSourceId, - js_getWidth, getWidth, js_getHeight, getHeight, js_getFrameRate, - getFrameRate, js_getAspectRatio, getAspectRatio, js_getFacingMode, - getFacingMode, js_getVolume, getVolume, MediaSourceStates, - castToMediaSourceStates, gTypeMediaSourceStates) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"sourceType\"]" - js_getSourceType :: MediaSourceStates -> IO JSVal - --- | -getSourceType :: - (MonadIO m) => MediaSourceStates -> m SourceTypeEnum -getSourceType self - = liftIO ((js_getSourceType (self)) >>= fromJSValUnchecked) - -foreign import javascript unsafe "$1[\"sourceId\"]" js_getSourceId - :: MediaSourceStates -> IO JSString - --- | -getSourceId :: - (MonadIO m, FromJSString result) => MediaSourceStates -> m result -getSourceId self - = liftIO (fromJSString <$> (js_getSourceId (self))) - -foreign import javascript unsafe "$1[\"width\"]" js_getWidth :: - MediaSourceStates -> IO JSVal - --- | -getWidth :: (MonadIO m) => MediaSourceStates -> m (Maybe Word) -getWidth self - = liftIO ((js_getWidth (self)) >>= fromJSValUnchecked) - -foreign import javascript unsafe "$1[\"height\"]" js_getHeight :: - MediaSourceStates -> IO JSVal - --- | -getHeight :: (MonadIO m) => MediaSourceStates -> m (Maybe Word) -getHeight self - = liftIO ((js_getHeight (self)) >>= fromJSValUnchecked) - -foreign import javascript unsafe "$1[\"frameRate\"]" - js_getFrameRate :: MediaSourceStates -> IO JSVal - --- | -getFrameRate :: (MonadIO m) => MediaSourceStates -> m (Maybe Float) -getFrameRate self - = liftIO ((js_getFrameRate (self)) >>= fromJSValUnchecked) - -foreign import javascript unsafe "$1[\"aspectRatio\"]" - js_getAspectRatio :: MediaSourceStates -> IO JSVal - --- | -getAspectRatio :: - (MonadIO m) => MediaSourceStates -> m (Maybe Float) -getAspectRatio self - = liftIO ((js_getAspectRatio (self)) >>= fromJSValUnchecked) - -foreign import javascript unsafe "$1[\"facingMode\"]" - js_getFacingMode :: MediaSourceStates -> IO JSVal - --- | -getFacingMode :: - (MonadIO m) => MediaSourceStates -> m VideoFacingModeEnum -getFacingMode self - = liftIO ((js_getFacingMode (self)) >>= fromJSValUnchecked) - -foreign import javascript unsafe "$1[\"volume\"]" js_getVolume :: - MediaSourceStates -> IO JSVal - --- | -getVolume :: (MonadIO m) => MediaSourceStates -> m (Maybe Word) -getVolume self - = liftIO ((js_getVolume (self)) >>= fromJSValUnchecked) diff --git a/src/GHCJS/DOM/JSFFI/Generated/MediaStream.hs b/src/GHCJS/DOM/JSFFI/Generated/MediaStream.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/MediaStream.hs +++ /dev/null @@ -1,156 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.MediaStream - (js_newMediaStream, newMediaStream, js_newMediaStream', - newMediaStream', js_newMediaStream'', newMediaStream'', - js_getAudioTracks, getAudioTracks, js_getVideoTracks, - getVideoTracks, js_getTracks, getTracks, js_addTrack, addTrack, - js_removeTrack, removeTrack, js_getTrackById, getTrackById, - js_clone, clone, js_getId, getId, js_getActive, getActive, active, - inactive, addTrackEvent, removeTrackEvent, MediaStream, - castToMediaStream, gTypeMediaStream) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe - "new window[\"webkitMediaStream\"]()" js_newMediaStream :: - IO MediaStream - --- | -newMediaStream :: (MonadIO m) => m MediaStream -newMediaStream = liftIO (js_newMediaStream) - -foreign import javascript unsafe - "new window[\"webkitMediaStream\"]($1)" js_newMediaStream' :: - Nullable MediaStream -> IO MediaStream - --- | -newMediaStream' :: - (MonadIO m) => Maybe MediaStream -> m MediaStream -newMediaStream' stream - = liftIO (js_newMediaStream' (maybeToNullable stream)) - -foreign import javascript unsafe - "new window[\"webkitMediaStream\"]($1)" js_newMediaStream'' :: - JSVal -> IO MediaStream - --- | -newMediaStream'' :: - (MonadIO m, IsMediaStreamTrack tracks) => - [Maybe tracks] -> m MediaStream -newMediaStream'' tracks - = liftIO - (toJSVal tracks >>= \ tracks' -> js_newMediaStream'' tracks') - -foreign import javascript unsafe "$1[\"getAudioTracks\"]()" - js_getAudioTracks :: MediaStream -> IO JSVal - --- | -getAudioTracks :: - (MonadIO m) => MediaStream -> m [Maybe MediaStreamTrack] -getAudioTracks self - = liftIO ((js_getAudioTracks (self)) >>= fromJSValUnchecked) - -foreign import javascript unsafe "$1[\"getVideoTracks\"]()" - js_getVideoTracks :: MediaStream -> IO JSVal - --- | -getVideoTracks :: - (MonadIO m) => MediaStream -> m [Maybe MediaStreamTrack] -getVideoTracks self - = liftIO ((js_getVideoTracks (self)) >>= fromJSValUnchecked) - -foreign import javascript unsafe "$1[\"getTracks\"]()" js_getTracks - :: MediaStream -> IO JSVal - --- | -getTracks :: - (MonadIO m) => MediaStream -> m [Maybe MediaStreamTrack] -getTracks self - = liftIO ((js_getTracks (self)) >>= fromJSValUnchecked) - -foreign import javascript unsafe "$1[\"addTrack\"]($2)" js_addTrack - :: MediaStream -> Nullable MediaStreamTrack -> IO () - --- | -addTrack :: - (MonadIO m, IsMediaStreamTrack track) => - MediaStream -> Maybe track -> m () -addTrack self track - = liftIO - (js_addTrack (self) - (maybeToNullable (fmap toMediaStreamTrack track))) - -foreign import javascript unsafe "$1[\"removeTrack\"]($2)" - js_removeTrack :: MediaStream -> Nullable MediaStreamTrack -> IO () - --- | -removeTrack :: - (MonadIO m, IsMediaStreamTrack track) => - MediaStream -> Maybe track -> m () -removeTrack self track - = liftIO - (js_removeTrack (self) - (maybeToNullable (fmap toMediaStreamTrack track))) - -foreign import javascript unsafe "$1[\"getTrackById\"]($2)" - js_getTrackById :: - MediaStream -> JSString -> IO (Nullable MediaStreamTrack) - --- | -getTrackById :: - (MonadIO m, ToJSString trackId) => - MediaStream -> trackId -> m (Maybe MediaStreamTrack) -getTrackById self trackId - = liftIO - (nullableToMaybe <$> (js_getTrackById (self) (toJSString trackId))) - -foreign import javascript unsafe "$1[\"clone\"]()" js_clone :: - MediaStream -> IO (Nullable MediaStream) - --- | -clone :: (MonadIO m) => MediaStream -> m (Maybe MediaStream) -clone self = liftIO (nullableToMaybe <$> (js_clone (self))) - -foreign import javascript unsafe "$1[\"id\"]" js_getId :: - MediaStream -> IO JSString - --- | -getId :: - (MonadIO m, FromJSString result) => MediaStream -> m result -getId self = liftIO (fromJSString <$> (js_getId (self))) - -foreign import javascript unsafe "($1[\"active\"] ? 1 : 0)" - js_getActive :: MediaStream -> IO Bool - --- | -getActive :: (MonadIO m) => MediaStream -> m Bool -getActive self = liftIO (js_getActive (self)) - --- | -active :: EventName MediaStream Event -active = unsafeEventName (toJSString "active") - --- | -inactive :: EventName MediaStream Event -inactive = unsafeEventName (toJSString "inactive") - --- | -addTrackEvent :: EventName MediaStream Event -addTrackEvent = unsafeEventName (toJSString "addtrack") - --- | -removeTrackEvent :: EventName MediaStream Event -removeTrackEvent = unsafeEventName (toJSString "removetrack") diff --git a/src/GHCJS/DOM/JSFFI/Generated/MediaStreamAudioDestinationNode.hs b/src/GHCJS/DOM/JSFFI/Generated/MediaStreamAudioDestinationNode.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/MediaStreamAudioDestinationNode.hs +++ /dev/null @@ -1,29 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.MediaStreamAudioDestinationNode - (js_getStream, getStream, MediaStreamAudioDestinationNode, - castToMediaStreamAudioDestinationNode, - gTypeMediaStreamAudioDestinationNode) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"stream\"]" js_getStream :: - MediaStreamAudioDestinationNode -> IO (Nullable MediaStream) - --- | -getStream :: - (MonadIO m) => - MediaStreamAudioDestinationNode -> m (Maybe MediaStream) -getStream self = liftIO (nullableToMaybe <$> (js_getStream (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/MediaStreamAudioSourceNode.hs b/src/GHCJS/DOM/JSFFI/Generated/MediaStreamAudioSourceNode.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/MediaStreamAudioSourceNode.hs +++ /dev/null @@ -1,29 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.MediaStreamAudioSourceNode - (js_getMediaStream, getMediaStream, MediaStreamAudioSourceNode, - castToMediaStreamAudioSourceNode, gTypeMediaStreamAudioSourceNode) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"mediaStream\"]" - js_getMediaStream :: - MediaStreamAudioSourceNode -> IO (Nullable MediaStream) - --- | -getMediaStream :: - (MonadIO m) => MediaStreamAudioSourceNode -> m (Maybe MediaStream) -getMediaStream self - = liftIO (nullableToMaybe <$> (js_getMediaStream (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/MediaStreamEvent.hs b/src/GHCJS/DOM/JSFFI/Generated/MediaStreamEvent.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/MediaStreamEvent.hs +++ /dev/null @@ -1,27 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.MediaStreamEvent - (js_getStream, getStream, MediaStreamEvent, castToMediaStreamEvent, - gTypeMediaStreamEvent) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"stream\"]" js_getStream :: - MediaStreamEvent -> IO (Nullable MediaStream) - --- | -getStream :: - (MonadIO m) => MediaStreamEvent -> m (Maybe MediaStream) -getStream self = liftIO (nullableToMaybe <$> (js_getStream (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/MediaStreamTrack.hs b/src/GHCJS/DOM/JSFFI/Generated/MediaStreamTrack.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/MediaStreamTrack.hs +++ /dev/null @@ -1,218 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.MediaStreamTrack - (js_getSources, getSources, js_getConstraints, getConstraints, - js_states, states, js_getCapabilities, getCapabilities, - js_applyConstraints, applyConstraints, js_clone, clone, js_stop, - stop, js_getKind, getKind, js_getId, getId, js_getLabel, getLabel, - js_setEnabled, setEnabled, js_getEnabled, getEnabled, js_getMuted, - getMuted, mute, unmute, js_get_readonly, get_readonly, - js_getRemote, getRemote, js_getReadyState, getReadyState, started, - ended, overConstrained, MediaStreamTrack, castToMediaStreamTrack, - gTypeMediaStreamTrack, IsMediaStreamTrack, toMediaStreamTrack) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"getSources\"]($2)" - js_getSources :: - MediaStreamTrack -> - Nullable MediaStreamTrackSourcesCallback -> IO () - --- | -getSources :: - (MonadIO m, IsMediaStreamTrack self) => - self -> Maybe MediaStreamTrackSourcesCallback -> m () -getSources self callback - = liftIO - (js_getSources (toMediaStreamTrack self) - (maybeToNullable callback)) - -foreign import javascript unsafe "$1[\"getConstraints\"]()" - js_getConstraints :: - MediaStreamTrack -> IO (Nullable MediaTrackConstraints) - --- | -getConstraints :: - (MonadIO m, IsMediaStreamTrack self) => - self -> m (Maybe MediaTrackConstraints) -getConstraints self - = liftIO - (nullableToMaybe <$> (js_getConstraints (toMediaStreamTrack self))) - -foreign import javascript unsafe "$1[\"states\"]()" js_states :: - MediaStreamTrack -> IO (Nullable MediaSourceStates) - --- | -states :: - (MonadIO m, IsMediaStreamTrack self) => - self -> m (Maybe MediaSourceStates) -states self - = liftIO - (nullableToMaybe <$> (js_states (toMediaStreamTrack self))) - -foreign import javascript unsafe "$1[\"getCapabilities\"]()" - js_getCapabilities :: - MediaStreamTrack -> IO (Nullable MediaStreamCapabilities) - --- | -getCapabilities :: - (MonadIO m, IsMediaStreamTrack self) => - self -> m (Maybe MediaStreamCapabilities) -getCapabilities self - = liftIO - (nullableToMaybe <$> - (js_getCapabilities (toMediaStreamTrack self))) - -foreign import javascript unsafe "$1[\"applyConstraints\"]($2)" - js_applyConstraints :: - MediaStreamTrack -> Nullable Dictionary -> IO () - --- | -applyConstraints :: - (MonadIO m, IsMediaStreamTrack self, IsDictionary constraints) => - self -> Maybe constraints -> m () -applyConstraints self constraints - = liftIO - (js_applyConstraints (toMediaStreamTrack self) - (maybeToNullable (fmap toDictionary constraints))) - -foreign import javascript unsafe "$1[\"clone\"]()" js_clone :: - MediaStreamTrack -> IO (Nullable MediaStreamTrack) - --- | -clone :: - (MonadIO m, IsMediaStreamTrack self) => - self -> m (Maybe MediaStreamTrack) -clone self - = liftIO (nullableToMaybe <$> (js_clone (toMediaStreamTrack self))) - -foreign import javascript unsafe "$1[\"stop\"]()" js_stop :: - MediaStreamTrack -> IO () - --- | -stop :: (MonadIO m, IsMediaStreamTrack self) => self -> m () -stop self = liftIO (js_stop (toMediaStreamTrack self)) - -foreign import javascript unsafe "$1[\"kind\"]" js_getKind :: - MediaStreamTrack -> IO JSString - --- | -getKind :: - (MonadIO m, IsMediaStreamTrack self, FromJSString result) => - self -> m result -getKind self - = liftIO (fromJSString <$> (js_getKind (toMediaStreamTrack self))) - -foreign import javascript unsafe "$1[\"id\"]" js_getId :: - MediaStreamTrack -> IO JSString - --- | -getId :: - (MonadIO m, IsMediaStreamTrack self, FromJSString result) => - self -> m result -getId self - = liftIO (fromJSString <$> (js_getId (toMediaStreamTrack self))) - -foreign import javascript unsafe "$1[\"label\"]" js_getLabel :: - MediaStreamTrack -> IO JSString - --- | -getLabel :: - (MonadIO m, IsMediaStreamTrack self, FromJSString result) => - self -> m result -getLabel self - = liftIO (fromJSString <$> (js_getLabel (toMediaStreamTrack self))) - -foreign import javascript unsafe "$1[\"enabled\"] = $2;" - js_setEnabled :: MediaStreamTrack -> Bool -> IO () - --- | -setEnabled :: - (MonadIO m, IsMediaStreamTrack self) => self -> Bool -> m () -setEnabled self val - = liftIO (js_setEnabled (toMediaStreamTrack self) val) - -foreign import javascript unsafe "($1[\"enabled\"] ? 1 : 0)" - js_getEnabled :: MediaStreamTrack -> IO Bool - --- | -getEnabled :: - (MonadIO m, IsMediaStreamTrack self) => self -> m Bool -getEnabled self = liftIO (js_getEnabled (toMediaStreamTrack self)) - -foreign import javascript unsafe "($1[\"muted\"] ? 1 : 0)" - js_getMuted :: MediaStreamTrack -> IO Bool - --- | -getMuted :: (MonadIO m, IsMediaStreamTrack self) => self -> m Bool -getMuted self = liftIO (js_getMuted (toMediaStreamTrack self)) - --- | -mute :: - (IsMediaStreamTrack self, IsEventTarget self) => - EventName self Event -mute = unsafeEventName (toJSString "mute") - --- | -unmute :: - (IsMediaStreamTrack self, IsEventTarget self) => - EventName self Event -unmute = unsafeEventName (toJSString "unmute") - -foreign import javascript unsafe "($1[\"_readonly\"] ? 1 : 0)" - js_get_readonly :: MediaStreamTrack -> IO Bool - --- | -get_readonly :: - (MonadIO m, IsMediaStreamTrack self) => self -> m Bool -get_readonly self - = liftIO (js_get_readonly (toMediaStreamTrack self)) - -foreign import javascript unsafe "($1[\"remote\"] ? 1 : 0)" - js_getRemote :: MediaStreamTrack -> IO Bool - --- | -getRemote :: (MonadIO m, IsMediaStreamTrack self) => self -> m Bool -getRemote self = liftIO (js_getRemote (toMediaStreamTrack self)) - -foreign import javascript unsafe "$1[\"readyState\"]" - js_getReadyState :: MediaStreamTrack -> IO JSVal - --- | -getReadyState :: - (MonadIO m, IsMediaStreamTrack self) => - self -> m MediaStreamTrackState -getReadyState self - = liftIO - ((js_getReadyState (toMediaStreamTrack self)) >>= - fromJSValUnchecked) - --- | -started :: - (IsMediaStreamTrack self, IsEventTarget self) => - EventName self Event -started = unsafeEventName (toJSString "started") - --- | -ended :: - (IsMediaStreamTrack self, IsEventTarget self) => - EventName self Event -ended = unsafeEventName (toJSString "ended") - --- | -overConstrained :: - (IsMediaStreamTrack self, IsEventTarget self) => - EventName self Event -overConstrained = unsafeEventName (toJSString "overconstrained") diff --git a/src/GHCJS/DOM/JSFFI/Generated/MediaStreamTrackEvent.hs b/src/GHCJS/DOM/JSFFI/Generated/MediaStreamTrackEvent.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/MediaStreamTrackEvent.hs +++ /dev/null @@ -1,27 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.MediaStreamTrackEvent - (js_getTrack, getTrack, MediaStreamTrackEvent, - castToMediaStreamTrackEvent, gTypeMediaStreamTrackEvent) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"track\"]" js_getTrack :: - MediaStreamTrackEvent -> IO (Nullable MediaStreamTrack) - --- | -getTrack :: - (MonadIO m) => MediaStreamTrackEvent -> m (Maybe MediaStreamTrack) -getTrack self = liftIO (nullableToMaybe <$> (js_getTrack (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/MediaStreamTrackSourcesCallback.hs b/src/GHCJS/DOM/JSFFI/Generated/MediaStreamTrackSourcesCallback.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/MediaStreamTrackSourcesCallback.hs +++ /dev/null @@ -1,57 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.MediaStreamTrackSourcesCallback - (newMediaStreamTrackSourcesCallback, - newMediaStreamTrackSourcesCallbackSync, - newMediaStreamTrackSourcesCallbackAsync, - MediaStreamTrackSourcesCallback) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - --- | -newMediaStreamTrackSourcesCallback :: - (MonadIO m) => - ([Maybe SourceInfo] -> IO ()) -> - m MediaStreamTrackSourcesCallback -newMediaStreamTrackSourcesCallback callback - = liftIO - (MediaStreamTrackSourcesCallback <$> - syncCallback1 ThrowWouldBlock - (\ sources -> - fromJSValUnchecked sources >>= \ sources' -> callback sources')) - --- | -newMediaStreamTrackSourcesCallbackSync :: - (MonadIO m) => - ([Maybe SourceInfo] -> IO ()) -> - m MediaStreamTrackSourcesCallback -newMediaStreamTrackSourcesCallbackSync callback - = liftIO - (MediaStreamTrackSourcesCallback <$> - syncCallback1 ContinueAsync - (\ sources -> - fromJSValUnchecked sources >>= \ sources' -> callback sources')) - --- | -newMediaStreamTrackSourcesCallbackAsync :: - (MonadIO m) => - ([Maybe SourceInfo] -> IO ()) -> - m MediaStreamTrackSourcesCallback -newMediaStreamTrackSourcesCallbackAsync callback - = liftIO - (MediaStreamTrackSourcesCallback <$> - asyncCallback1 - (\ sources -> - fromJSValUnchecked sources >>= \ sources' -> callback sources')) diff --git a/src/GHCJS/DOM/JSFFI/Generated/MediaTrackConstraints.hs b/src/GHCJS/DOM/JSFFI/Generated/MediaTrackConstraints.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/MediaTrackConstraints.hs +++ /dev/null @@ -1,40 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.MediaTrackConstraints - (js_getMandatory, getMandatory, js_getOptional, getOptional, - MediaTrackConstraints, castToMediaTrackConstraints, - gTypeMediaTrackConstraints) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"mandatory\"]" - js_getMandatory :: MediaTrackConstraints -> IO JSVal - --- | -getMandatory :: - (MonadIO m) => - MediaTrackConstraints -> m (Maybe MediaTrackConstraintSet) -getMandatory self - = liftIO ((js_getMandatory (self)) >>= fromJSValUnchecked) - -foreign import javascript unsafe "$1[\"optional\"]" js_getOptional - :: MediaTrackConstraints -> IO JSVal - --- | -getOptional :: - (MonadIO m) => - MediaTrackConstraints -> m (Maybe [Maybe MediaTrackConstraint]) -getOptional self - = liftIO ((js_getOptional (self)) >>= fromJSValUnchecked) diff --git a/src/GHCJS/DOM/JSFFI/Generated/MemoryInfo.hs b/src/GHCJS/DOM/JSFFI/Generated/MemoryInfo.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/MemoryInfo.hs +++ /dev/null @@ -1,33 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.MemoryInfo - (js_getUsedJSHeapSize, getUsedJSHeapSize, js_getTotalJSHeapSize, - getTotalJSHeapSize, MemoryInfo, castToMemoryInfo, gTypeMemoryInfo) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"usedJSHeapSize\"]" - js_getUsedJSHeapSize :: MemoryInfo -> IO Word - --- | -getUsedJSHeapSize :: (MonadIO m) => MemoryInfo -> m Word -getUsedJSHeapSize self = liftIO (js_getUsedJSHeapSize (self)) - -foreign import javascript unsafe "$1[\"totalJSHeapSize\"]" - js_getTotalJSHeapSize :: MemoryInfo -> IO Word - --- | -getTotalJSHeapSize :: (MonadIO m) => MemoryInfo -> m Word -getTotalJSHeapSize self = liftIO (js_getTotalJSHeapSize (self)) diff --git a/src/GHCJS/DOM/JSFFI/Generated/MessageChannel.hs b/src/GHCJS/DOM/JSFFI/Generated/MessageChannel.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/MessageChannel.hs +++ /dev/null @@ -1,41 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.MessageChannel - (js_newMessageChannel, newMessageChannel, js_getPort1, getPort1, - js_getPort2, getPort2, MessageChannel, castToMessageChannel, - gTypeMessageChannel) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "new window[\"MessageChannel\"]()" - js_newMessageChannel :: IO MessageChannel - --- | -newMessageChannel :: (MonadIO m) => m MessageChannel -newMessageChannel = liftIO (js_newMessageChannel) - -foreign import javascript unsafe "$1[\"port1\"]" js_getPort1 :: - MessageChannel -> IO (Nullable MessagePort) - --- | -getPort1 :: (MonadIO m) => MessageChannel -> m (Maybe MessagePort) -getPort1 self = liftIO (nullableToMaybe <$> (js_getPort1 (self))) - -foreign import javascript unsafe "$1[\"port2\"]" js_getPort2 :: - MessageChannel -> IO (Nullable MessagePort) - --- | -getPort2 :: (MonadIO m) => MessageChannel -> m (Maybe MessagePort) -getPort2 self = liftIO (nullableToMaybe <$> (js_getPort2 (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/MessageEvent.hs b/src/GHCJS/DOM/JSFFI/Generated/MessageEvent.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/MessageEvent.hs +++ /dev/null @@ -1,125 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.MessageEvent - (js_initMessageEvent, initMessageEvent, js_webkitInitMessageEvent, - webkitInitMessageEvent, js_getOrigin, getOrigin, js_getLastEventId, - getLastEventId, js_getSource, getSource, js_getData, getData, - js_getPorts, getPorts, MessageEvent, castToMessageEvent, - gTypeMessageEvent) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe - "$1[\"initMessageEvent\"]($2, $3,\n$4, $5, $6, $7, $8, $9)" - js_initMessageEvent :: - MessageEvent -> - JSString -> - Bool -> - Bool -> - JSVal -> - JSString -> JSString -> Nullable Window -> Nullable Array -> IO () - --- | -initMessageEvent :: - (MonadIO m, ToJSString typeArg, ToJSString originArg, - ToJSString lastEventIdArg, IsArray messagePorts) => - MessageEvent -> - typeArg -> - Bool -> - Bool -> - JSVal -> - originArg -> - lastEventIdArg -> Maybe Window -> Maybe messagePorts -> m () -initMessageEvent self typeArg canBubbleArg cancelableArg dataArg - originArg lastEventIdArg sourceArg messagePorts - = liftIO - (js_initMessageEvent (self) (toJSString typeArg) canBubbleArg - cancelableArg - dataArg - (toJSString originArg) - (toJSString lastEventIdArg) - (maybeToNullable sourceArg) - (maybeToNullable (fmap toArray messagePorts))) - -foreign import javascript unsafe - "$1[\"webkitInitMessageEvent\"]($2,\n$3, $4, $5, $6, $7, $8, $9)" - js_webkitInitMessageEvent :: - MessageEvent -> - JSString -> - Bool -> - Bool -> - JSVal -> - JSString -> JSString -> Nullable Window -> Nullable Array -> IO () - --- | -webkitInitMessageEvent :: - (MonadIO m, ToJSString typeArg, ToJSString originArg, - ToJSString lastEventIdArg, IsArray transferables) => - MessageEvent -> - typeArg -> - Bool -> - Bool -> - JSVal -> - originArg -> - lastEventIdArg -> Maybe Window -> Maybe transferables -> m () -webkitInitMessageEvent self typeArg canBubbleArg cancelableArg - dataArg originArg lastEventIdArg sourceArg transferables - = liftIO - (js_webkitInitMessageEvent (self) (toJSString typeArg) canBubbleArg - cancelableArg - dataArg - (toJSString originArg) - (toJSString lastEventIdArg) - (maybeToNullable sourceArg) - (maybeToNullable (fmap toArray transferables))) - -foreign import javascript unsafe "$1[\"origin\"]" js_getOrigin :: - MessageEvent -> IO JSString - --- | -getOrigin :: - (MonadIO m, FromJSString result) => MessageEvent -> m result -getOrigin self = liftIO (fromJSString <$> (js_getOrigin (self))) - -foreign import javascript unsafe "$1[\"lastEventId\"]" - js_getLastEventId :: MessageEvent -> IO JSString - --- | -getLastEventId :: - (MonadIO m, FromJSString result) => MessageEvent -> m result -getLastEventId self - = liftIO (fromJSString <$> (js_getLastEventId (self))) - -foreign import javascript unsafe "$1[\"source\"]" js_getSource :: - MessageEvent -> IO (Nullable EventTarget) - --- | -getSource :: (MonadIO m) => MessageEvent -> m (Maybe EventTarget) -getSource self = liftIO (nullableToMaybe <$> (js_getSource (self))) - -foreign import javascript unsafe "$1[\"data\"]" js_getData :: - MessageEvent -> IO JSVal - --- | -getData :: (MonadIO m) => MessageEvent -> m JSVal -getData self = liftIO (js_getData (self)) - -foreign import javascript unsafe "$1[\"ports\"]" js_getPorts :: - MessageEvent -> IO JSVal - --- | -getPorts :: (MonadIO m) => MessageEvent -> m [Maybe MessagePort] -getPorts self - = liftIO ((js_getPorts (self)) >>= fromJSValUnchecked) diff --git a/src/GHCJS/DOM/JSFFI/Generated/MessagePort.hs b/src/GHCJS/DOM/JSFFI/Generated/MessagePort.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/MessagePort.hs +++ /dev/null @@ -1,49 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.MessagePort - (js_postMessage, postMessage, js_start, start, js_close, close, - message, MessagePort, castToMessagePort, gTypeMessagePort) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"postMessage\"]($2, $3)" - js_postMessage :: MessagePort -> JSVal -> Nullable Array -> IO () - --- | -postMessage :: - (MonadIO m, IsArray messagePorts) => - MessagePort -> JSVal -> Maybe messagePorts -> m () -postMessage self message messagePorts - = liftIO - (js_postMessage (self) message - (maybeToNullable (fmap toArray messagePorts))) - -foreign import javascript unsafe "$1[\"start\"]()" js_start :: - MessagePort -> IO () - --- | -start :: (MonadIO m) => MessagePort -> m () -start self = liftIO (js_start (self)) - -foreign import javascript unsafe "$1[\"close\"]()" js_close :: - MessagePort -> IO () - --- | -close :: (MonadIO m) => MessagePort -> m () -close self = liftIO (js_close (self)) - --- | -message :: EventName MessagePort MessageEvent -message = unsafeEventName (toJSString "message") diff --git a/src/GHCJS/DOM/JSFFI/Generated/MimeType.hs b/src/GHCJS/DOM/JSFFI/Generated/MimeType.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/MimeType.hs +++ /dev/null @@ -1,53 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.MimeType - (js_getType, getType, js_getSuffixes, getSuffixes, - js_getDescription, getDescription, js_getEnabledPlugin, - getEnabledPlugin, MimeType, castToMimeType, gTypeMimeType) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"type\"]" js_getType :: - MimeType -> IO JSString - --- | -getType :: (MonadIO m, FromJSString result) => MimeType -> m result -getType self = liftIO (fromJSString <$> (js_getType (self))) - -foreign import javascript unsafe "$1[\"suffixes\"]" js_getSuffixes - :: MimeType -> IO JSString - --- | -getSuffixes :: - (MonadIO m, FromJSString result) => MimeType -> m result -getSuffixes self - = liftIO (fromJSString <$> (js_getSuffixes (self))) - -foreign import javascript unsafe "$1[\"description\"]" - js_getDescription :: MimeType -> IO JSString - --- | -getDescription :: - (MonadIO m, FromJSString result) => MimeType -> m result -getDescription self - = liftIO (fromJSString <$> (js_getDescription (self))) - -foreign import javascript unsafe "$1[\"enabledPlugin\"]" - js_getEnabledPlugin :: MimeType -> IO (Nullable Plugin) - --- | -getEnabledPlugin :: (MonadIO m) => MimeType -> m (Maybe Plugin) -getEnabledPlugin self - = liftIO (nullableToMaybe <$> (js_getEnabledPlugin (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/MimeTypeArray.hs b/src/GHCJS/DOM/JSFFI/Generated/MimeTypeArray.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/MimeTypeArray.hs +++ /dev/null @@ -1,45 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.MimeTypeArray - (js_item, item, js_namedItem, namedItem, js_getLength, getLength, - MimeTypeArray, castToMimeTypeArray, gTypeMimeTypeArray) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"item\"]($2)" js_item :: - MimeTypeArray -> Word -> IO (Nullable MimeType) - --- | -item :: (MonadIO m) => MimeTypeArray -> Word -> m (Maybe MimeType) -item self index - = liftIO (nullableToMaybe <$> (js_item (self) index)) - -foreign import javascript unsafe "$1[\"namedItem\"]($2)" - js_namedItem :: MimeTypeArray -> JSString -> IO (Nullable MimeType) - --- | -namedItem :: - (MonadIO m, ToJSString name) => - MimeTypeArray -> name -> m (Maybe MimeType) -namedItem self name - = liftIO - (nullableToMaybe <$> (js_namedItem (self) (toJSString name))) - -foreign import javascript unsafe "$1[\"length\"]" js_getLength :: - MimeTypeArray -> IO Word - --- | -getLength :: (MonadIO m) => MimeTypeArray -> m Word -getLength self = liftIO (js_getLength (self)) diff --git a/src/GHCJS/DOM/JSFFI/Generated/MouseEvent.hs b/src/GHCJS/DOM/JSFFI/Generated/MouseEvent.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/MouseEvent.hs +++ /dev/null @@ -1,223 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.MouseEvent - (js_initMouseEvent, initMouseEvent, js_getScreenX, getScreenX, - js_getScreenY, getScreenY, js_getClientX, getClientX, - js_getClientY, getClientY, js_getCtrlKey, getCtrlKey, - js_getShiftKey, getShiftKey, js_getAltKey, getAltKey, - js_getMetaKey, getMetaKey, js_getButton, getButton, - js_getRelatedTarget, getRelatedTarget, js_getMovementX, - getMovementX, js_getMovementY, getMovementY, js_getOffsetX, - getOffsetX, js_getOffsetY, getOffsetY, js_getX, getX, js_getY, - getY, js_getFromElement, getFromElement, js_getToElement, - getToElement, js_getDataTransfer, getDataTransfer, MouseEvent, - castToMouseEvent, gTypeMouseEvent, IsMouseEvent, toMouseEvent) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.Enums - -foreign import javascript unsafe - "$1[\"initMouseEvent\"]($2, $3, $4,\n$5, $6, $7, $8, $9, $10, $11,\n$12, $13, $14, $15, $16)" - js_initMouseEvent :: - MouseEvent -> - JSString -> - Bool -> - Bool -> - Nullable Window -> - Int -> - Int -> - Int -> - Int -> - Int -> - Bool -> - Bool -> Bool -> Bool -> Word -> Nullable EventTarget -> IO () - --- | -initMouseEvent :: - (MonadIO m, IsMouseEvent self, ToJSString type', - IsEventTarget relatedTarget) => - self -> - type' -> - Bool -> - Bool -> - Maybe Window -> - Int -> - Int -> - Int -> - Int -> - Int -> - Bool -> - Bool -> Bool -> Bool -> Word -> Maybe relatedTarget -> m () -initMouseEvent self type' canBubble cancelable view detail screenX - screenY clientX clientY ctrlKey altKey shiftKey metaKey button - relatedTarget - = liftIO - (js_initMouseEvent (toMouseEvent self) (toJSString type') canBubble - cancelable - (maybeToNullable view) - detail - screenX - screenY - clientX - clientY - ctrlKey - altKey - shiftKey - metaKey - button - (maybeToNullable (fmap toEventTarget relatedTarget))) - -foreign import javascript unsafe "$1[\"screenX\"]" js_getScreenX :: - MouseEvent -> IO Int - --- | -getScreenX :: (MonadIO m, IsMouseEvent self) => self -> m Int -getScreenX self = liftIO (js_getScreenX (toMouseEvent self)) - -foreign import javascript unsafe "$1[\"screenY\"]" js_getScreenY :: - MouseEvent -> IO Int - --- | -getScreenY :: (MonadIO m, IsMouseEvent self) => self -> m Int -getScreenY self = liftIO (js_getScreenY (toMouseEvent self)) - -foreign import javascript unsafe "$1[\"clientX\"]" js_getClientX :: - MouseEvent -> IO Int - --- | -getClientX :: (MonadIO m, IsMouseEvent self) => self -> m Int -getClientX self = liftIO (js_getClientX (toMouseEvent self)) - -foreign import javascript unsafe "$1[\"clientY\"]" js_getClientY :: - MouseEvent -> IO Int - --- | -getClientY :: (MonadIO m, IsMouseEvent self) => self -> m Int -getClientY self = liftIO (js_getClientY (toMouseEvent self)) - -foreign import javascript unsafe "($1[\"ctrlKey\"] ? 1 : 0)" - js_getCtrlKey :: MouseEvent -> IO Bool - --- | -getCtrlKey :: (MonadIO m, IsMouseEvent self) => self -> m Bool -getCtrlKey self = liftIO (js_getCtrlKey (toMouseEvent self)) - -foreign import javascript unsafe "($1[\"shiftKey\"] ? 1 : 0)" - js_getShiftKey :: MouseEvent -> IO Bool - --- | -getShiftKey :: (MonadIO m, IsMouseEvent self) => self -> m Bool -getShiftKey self = liftIO (js_getShiftKey (toMouseEvent self)) - -foreign import javascript unsafe "($1[\"altKey\"] ? 1 : 0)" - js_getAltKey :: MouseEvent -> IO Bool - --- | -getAltKey :: (MonadIO m, IsMouseEvent self) => self -> m Bool -getAltKey self = liftIO (js_getAltKey (toMouseEvent self)) - -foreign import javascript unsafe "($1[\"metaKey\"] ? 1 : 0)" - js_getMetaKey :: MouseEvent -> IO Bool - --- | -getMetaKey :: (MonadIO m, IsMouseEvent self) => self -> m Bool -getMetaKey self = liftIO (js_getMetaKey (toMouseEvent self)) - -foreign import javascript unsafe "$1[\"button\"]" js_getButton :: - MouseEvent -> IO Word - --- | -getButton :: (MonadIO m, IsMouseEvent self) => self -> m Word -getButton self = liftIO (js_getButton (toMouseEvent self)) - -foreign import javascript unsafe "$1[\"relatedTarget\"]" - js_getRelatedTarget :: MouseEvent -> IO (Nullable EventTarget) - --- | -getRelatedTarget :: - (MonadIO m, IsMouseEvent self) => self -> m (Maybe EventTarget) -getRelatedTarget self - = liftIO - (nullableToMaybe <$> (js_getRelatedTarget (toMouseEvent self))) - -foreign import javascript unsafe "$1[\"movementX\"]" - js_getMovementX :: MouseEvent -> IO Int - --- | -getMovementX :: (MonadIO m, IsMouseEvent self) => self -> m Int -getMovementX self = liftIO (js_getMovementX (toMouseEvent self)) - -foreign import javascript unsafe "$1[\"movementY\"]" - js_getMovementY :: MouseEvent -> IO Int - --- | -getMovementY :: (MonadIO m, IsMouseEvent self) => self -> m Int -getMovementY self = liftIO (js_getMovementY (toMouseEvent self)) - -foreign import javascript unsafe "$1[\"offsetX\"]" js_getOffsetX :: - MouseEvent -> IO Int - --- | -getOffsetX :: (MonadIO m, IsMouseEvent self) => self -> m Int -getOffsetX self = liftIO (js_getOffsetX (toMouseEvent self)) - -foreign import javascript unsafe "$1[\"offsetY\"]" js_getOffsetY :: - MouseEvent -> IO Int - --- | -getOffsetY :: (MonadIO m, IsMouseEvent self) => self -> m Int -getOffsetY self = liftIO (js_getOffsetY (toMouseEvent self)) - -foreign import javascript unsafe "$1[\"x\"]" js_getX :: - MouseEvent -> IO Int - --- | -getX :: (MonadIO m, IsMouseEvent self) => self -> m Int -getX self = liftIO (js_getX (toMouseEvent self)) - -foreign import javascript unsafe "$1[\"y\"]" js_getY :: - MouseEvent -> IO Int - --- | -getY :: (MonadIO m, IsMouseEvent self) => self -> m Int -getY self = liftIO (js_getY (toMouseEvent self)) - -foreign import javascript unsafe "$1[\"fromElement\"]" - js_getFromElement :: MouseEvent -> IO (Nullable Node) - --- | -getFromElement :: - (MonadIO m, IsMouseEvent self) => self -> m (Maybe Node) -getFromElement self - = liftIO - (nullableToMaybe <$> (js_getFromElement (toMouseEvent self))) - -foreign import javascript unsafe "$1[\"toElement\"]" - js_getToElement :: MouseEvent -> IO (Nullable Node) - --- | -getToElement :: - (MonadIO m, IsMouseEvent self) => self -> m (Maybe Node) -getToElement self - = liftIO - (nullableToMaybe <$> (js_getToElement (toMouseEvent self))) - -foreign import javascript unsafe "$1[\"dataTransfer\"]" - js_getDataTransfer :: MouseEvent -> IO (Nullable DataTransfer) - --- | -getDataTransfer :: - (MonadIO m, IsMouseEvent self) => self -> m (Maybe DataTransfer) -getDataTransfer self - = liftIO - (nullableToMaybe <$> (js_getDataTransfer (toMouseEvent self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/MutationEvent.hs b/src/GHCJS/DOM/JSFFI/Generated/MutationEvent.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/MutationEvent.hs +++ /dev/null @@ -1,98 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.MutationEvent - (js_initMutationEvent, initMutationEvent, pattern MODIFICATION, - pattern ADDITION, pattern REMOVAL, js_getRelatedNode, - getRelatedNode, js_getPrevValue, getPrevValue, js_getNewValue, - getNewValue, js_getAttrName, getAttrName, js_getAttrChange, - getAttrChange, MutationEvent, castToMutationEvent, - gTypeMutationEvent) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe - "$1[\"initMutationEvent\"]($2, $3,\n$4, $5, $6, $7, $8, $9)" - js_initMutationEvent :: - MutationEvent -> - JSString -> - Bool -> - Bool -> - Nullable Node -> JSString -> JSString -> JSString -> Word -> IO () - --- | -initMutationEvent :: - (MonadIO m, ToJSString type', IsNode relatedNode, - ToJSString prevValue, ToJSString newValue, ToJSString attrName) => - MutationEvent -> - type' -> - Bool -> - Bool -> - Maybe relatedNode -> - prevValue -> newValue -> attrName -> Word -> m () -initMutationEvent self type' canBubble cancelable relatedNode - prevValue newValue attrName attrChange - = liftIO - (js_initMutationEvent (self) (toJSString type') canBubble - cancelable - (maybeToNullable (fmap toNode relatedNode)) - (toJSString prevValue) - (toJSString newValue) - (toJSString attrName) - attrChange) -pattern MODIFICATION = 1 -pattern ADDITION = 2 -pattern REMOVAL = 3 - -foreign import javascript unsafe "$1[\"relatedNode\"]" - js_getRelatedNode :: MutationEvent -> IO (Nullable Node) - --- | -getRelatedNode :: (MonadIO m) => MutationEvent -> m (Maybe Node) -getRelatedNode self - = liftIO (nullableToMaybe <$> (js_getRelatedNode (self))) - -foreign import javascript unsafe "$1[\"prevValue\"]" - js_getPrevValue :: MutationEvent -> IO JSString - --- | -getPrevValue :: - (MonadIO m, FromJSString result) => MutationEvent -> m result -getPrevValue self - = liftIO (fromJSString <$> (js_getPrevValue (self))) - -foreign import javascript unsafe "$1[\"newValue\"]" js_getNewValue - :: MutationEvent -> IO JSString - --- | -getNewValue :: - (MonadIO m, FromJSString result) => MutationEvent -> m result -getNewValue self - = liftIO (fromJSString <$> (js_getNewValue (self))) - -foreign import javascript unsafe "$1[\"attrName\"]" js_getAttrName - :: MutationEvent -> IO JSString - --- | -getAttrName :: - (MonadIO m, FromJSString result) => MutationEvent -> m result -getAttrName self - = liftIO (fromJSString <$> (js_getAttrName (self))) - -foreign import javascript unsafe "$1[\"attrChange\"]" - js_getAttrChange :: MutationEvent -> IO Word - --- | -getAttrChange :: (MonadIO m) => MutationEvent -> m Word -getAttrChange self = liftIO (js_getAttrChange (self)) diff --git a/src/GHCJS/DOM/JSFFI/Generated/MutationObserver.hs b/src/GHCJS/DOM/JSFFI/Generated/MutationObserver.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/MutationObserver.hs +++ /dev/null @@ -1,62 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.MutationObserver - (js_newMutationObserver, newMutationObserver, js_observe, observe, - js_takeRecords, takeRecords, js_disconnect, disconnect, - MutationObserver, castToMutationObserver, gTypeMutationObserver) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe - "new window[\"MutationObserver\"]($1)" js_newMutationObserver :: - Nullable MutationCallback -> IO MutationObserver - --- | -newMutationObserver :: - (MonadIO m, IsMutationCallback callback) => - Maybe callback -> m MutationObserver -newMutationObserver callback - = liftIO - (js_newMutationObserver - (maybeToNullable (fmap toMutationCallback callback))) - -foreign import javascript unsafe "$1[\"observe\"]($2, $3)" - js_observe :: - MutationObserver -> Nullable Node -> Nullable Dictionary -> IO () - --- | -observe :: - (MonadIO m, IsNode target, IsDictionary options) => - MutationObserver -> Maybe target -> Maybe options -> m () -observe self target options - = liftIO - (js_observe (self) (maybeToNullable (fmap toNode target)) - (maybeToNullable (fmap toDictionary options))) - -foreign import javascript unsafe "$1[\"takeRecords\"]()" - js_takeRecords :: MutationObserver -> IO JSVal - --- | -takeRecords :: - (MonadIO m) => MutationObserver -> m [Maybe MutationRecord] -takeRecords self - = liftIO ((js_takeRecords (self)) >>= fromJSValUnchecked) - -foreign import javascript unsafe "$1[\"disconnect\"]()" - js_disconnect :: MutationObserver -> IO () - --- | -disconnect :: (MonadIO m) => MutationObserver -> m () -disconnect self = liftIO (js_disconnect (self)) diff --git a/src/GHCJS/DOM/JSFFI/Generated/MutationRecord.hs b/src/GHCJS/DOM/JSFFI/Generated/MutationRecord.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/MutationRecord.hs +++ /dev/null @@ -1,105 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.MutationRecord - (js_getType, getType, js_getTarget, getTarget, js_getAddedNodes, - getAddedNodes, js_getRemovedNodes, getRemovedNodes, - js_getPreviousSibling, getPreviousSibling, js_getNextSibling, - getNextSibling, js_getAttributeName, getAttributeName, - js_getAttributeNamespace, getAttributeNamespace, js_getOldValue, - getOldValue, MutationRecord, castToMutationRecord, - gTypeMutationRecord) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"type\"]" js_getType :: - MutationRecord -> IO JSString - --- | -getType :: - (MonadIO m, FromJSString result) => MutationRecord -> m result -getType self = liftIO (fromJSString <$> (js_getType (self))) - -foreign import javascript unsafe "$1[\"target\"]" js_getTarget :: - MutationRecord -> IO (Nullable Node) - --- | -getTarget :: (MonadIO m) => MutationRecord -> m (Maybe Node) -getTarget self = liftIO (nullableToMaybe <$> (js_getTarget (self))) - -foreign import javascript unsafe "$1[\"addedNodes\"]" - js_getAddedNodes :: MutationRecord -> IO (Nullable NodeList) - --- | -getAddedNodes :: - (MonadIO m) => MutationRecord -> m (Maybe NodeList) -getAddedNodes self - = liftIO (nullableToMaybe <$> (js_getAddedNodes (self))) - -foreign import javascript unsafe "$1[\"removedNodes\"]" - js_getRemovedNodes :: MutationRecord -> IO (Nullable NodeList) - --- | -getRemovedNodes :: - (MonadIO m) => MutationRecord -> m (Maybe NodeList) -getRemovedNodes self - = liftIO (nullableToMaybe <$> (js_getRemovedNodes (self))) - -foreign import javascript unsafe "$1[\"previousSibling\"]" - js_getPreviousSibling :: MutationRecord -> IO (Nullable Node) - --- | -getPreviousSibling :: - (MonadIO m) => MutationRecord -> m (Maybe Node) -getPreviousSibling self - = liftIO (nullableToMaybe <$> (js_getPreviousSibling (self))) - -foreign import javascript unsafe "$1[\"nextSibling\"]" - js_getNextSibling :: MutationRecord -> IO (Nullable Node) - --- | -getNextSibling :: (MonadIO m) => MutationRecord -> m (Maybe Node) -getNextSibling self - = liftIO (nullableToMaybe <$> (js_getNextSibling (self))) - -foreign import javascript unsafe "$1[\"attributeName\"]" - js_getAttributeName :: MutationRecord -> IO (Nullable JSString) - --- | -getAttributeName :: - (MonadIO m, FromJSString result) => - MutationRecord -> m (Maybe result) -getAttributeName self - = liftIO (fromMaybeJSString <$> (js_getAttributeName (self))) - -foreign import javascript unsafe "$1[\"attributeNamespace\"]" - js_getAttributeNamespace :: - MutationRecord -> IO (Nullable JSString) - --- | -getAttributeNamespace :: - (MonadIO m, FromJSString result) => - MutationRecord -> m (Maybe result) -getAttributeNamespace self - = liftIO (fromMaybeJSString <$> (js_getAttributeNamespace (self))) - -foreign import javascript unsafe "$1[\"oldValue\"]" js_getOldValue - :: MutationRecord -> IO (Nullable JSString) - --- | -getOldValue :: - (MonadIO m, FromJSString result) => - MutationRecord -> m (Maybe result) -getOldValue self - = liftIO (fromMaybeJSString <$> (js_getOldValue (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/NamedNodeMap.hs b/src/GHCJS/DOM/JSFFI/Generated/NamedNodeMap.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/NamedNodeMap.hs +++ /dev/null @@ -1,115 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.NamedNodeMap - (js_getNamedItem, getNamedItem, js_setNamedItem, setNamedItem, - js_removeNamedItem, removeNamedItem, js_item, item, - js_getNamedItemNS, getNamedItemNS, js_setNamedItemNS, - setNamedItemNS, js_removeNamedItemNS, removeNamedItemNS, - js_getLength, getLength, NamedNodeMap, castToNamedNodeMap, - gTypeNamedNodeMap) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"getNamedItem\"]($2)" - js_getNamedItem :: NamedNodeMap -> JSString -> IO (Nullable Node) - --- | -getNamedItem :: - (MonadIO m, ToJSString name) => - NamedNodeMap -> name -> m (Maybe Node) -getNamedItem self name - = liftIO - (nullableToMaybe <$> (js_getNamedItem (self) (toJSString name))) - -foreign import javascript unsafe "$1[\"setNamedItem\"]($2)" - js_setNamedItem :: - NamedNodeMap -> Nullable Node -> IO (Nullable Node) - --- | -setNamedItem :: - (MonadIO m, IsNode node) => - NamedNodeMap -> Maybe node -> m (Maybe Node) -setNamedItem self node - = liftIO - (nullableToMaybe <$> - (js_setNamedItem (self) (maybeToNullable (fmap toNode node)))) - -foreign import javascript unsafe "$1[\"removeNamedItem\"]($2)" - js_removeNamedItem :: - NamedNodeMap -> JSString -> IO (Nullable Node) - --- | -removeNamedItem :: - (MonadIO m, ToJSString name) => - NamedNodeMap -> name -> m (Maybe Node) -removeNamedItem self name - = liftIO - (nullableToMaybe <$> (js_removeNamedItem (self) (toJSString name))) - -foreign import javascript unsafe "$1[\"item\"]($2)" js_item :: - NamedNodeMap -> Word -> IO (Nullable Node) - --- | -item :: (MonadIO m) => NamedNodeMap -> Word -> m (Maybe Node) -item self index - = liftIO (nullableToMaybe <$> (js_item (self) index)) - -foreign import javascript unsafe "$1[\"getNamedItemNS\"]($2, $3)" - js_getNamedItemNS :: - NamedNodeMap -> Nullable JSString -> JSString -> IO (Nullable Node) - --- | -getNamedItemNS :: - (MonadIO m, ToJSString namespaceURI, ToJSString localName) => - NamedNodeMap -> Maybe namespaceURI -> localName -> m (Maybe Node) -getNamedItemNS self namespaceURI localName - = liftIO - (nullableToMaybe <$> - (js_getNamedItemNS (self) (toMaybeJSString namespaceURI) - (toJSString localName))) - -foreign import javascript unsafe "$1[\"setNamedItemNS\"]($2)" - js_setNamedItemNS :: - NamedNodeMap -> Nullable Node -> IO (Nullable Node) - --- | -setNamedItemNS :: - (MonadIO m, IsNode node) => - NamedNodeMap -> Maybe node -> m (Maybe Node) -setNamedItemNS self node - = liftIO - (nullableToMaybe <$> - (js_setNamedItemNS (self) (maybeToNullable (fmap toNode node)))) - -foreign import javascript unsafe - "$1[\"removeNamedItemNS\"]($2, $3)" js_removeNamedItemNS :: - NamedNodeMap -> Nullable JSString -> JSString -> IO (Nullable Node) - --- | -removeNamedItemNS :: - (MonadIO m, ToJSString namespaceURI, ToJSString localName) => - NamedNodeMap -> Maybe namespaceURI -> localName -> m (Maybe Node) -removeNamedItemNS self namespaceURI localName - = liftIO - (nullableToMaybe <$> - (js_removeNamedItemNS (self) (toMaybeJSString namespaceURI) - (toJSString localName))) - -foreign import javascript unsafe "$1[\"length\"]" js_getLength :: - NamedNodeMap -> IO Word - --- | -getLength :: (MonadIO m) => NamedNodeMap -> m Word -getLength self = liftIO (js_getLength (self)) diff --git a/src/GHCJS/DOM/JSFFI/Generated/Navigator.hs b/src/GHCJS/DOM/JSFFI/Generated/Navigator.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/Navigator.hs +++ /dev/null @@ -1,305 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.Navigator - (js_getGamepads, getGamepads, js_webkitGetUserMedia, - webkitGetUserMedia, js_registerProtocolHandler, - registerProtocolHandler, js_isProtocolHandlerRegistered, - isProtocolHandlerRegistered, js_unregisterProtocolHandler, - unregisterProtocolHandler, js_vibratePattern, vibratePattern, - js_vibrate, vibrate, js_javaEnabled, javaEnabled, - js_getStorageUpdates, getStorageUpdates, js_getWebkitBattery, - getWebkitBattery, js_getGeolocation, getGeolocation, - js_getWebkitTemporaryStorage, getWebkitTemporaryStorage, - js_getWebkitPersistentStorage, getWebkitPersistentStorage, - js_getAppCodeName, getAppCodeName, js_getAppName, getAppName, - js_getAppVersion, getAppVersion, js_getLanguage, getLanguage, - js_getUserAgent, getUserAgent, js_getPlatform, getPlatform, - js_getPlugins, getPlugins, js_getMimeTypes, getMimeTypes, - js_getProduct, getProduct, js_getProductSub, getProductSub, - js_getVendor, getVendor, js_getVendorSub, getVendorSub, - js_getCookieEnabled, getCookieEnabled, js_getOnLine, getOnLine, - js_getHardwareConcurrency, getHardwareConcurrency, Navigator, - castToNavigator, gTypeNavigator) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"getGamepads\"]()" - js_getGamepads :: Navigator -> IO JSVal - --- | -getGamepads :: (MonadIO m) => Navigator -> m [Maybe Gamepad] -getGamepads self - = liftIO ((js_getGamepads (self)) >>= fromJSValUnchecked) - -foreign import javascript unsafe - "$1[\"webkitGetUserMedia\"]($2, $3,\n$4)" js_webkitGetUserMedia :: - Navigator -> - Nullable Dictionary -> - Nullable NavigatorUserMediaSuccessCallback -> - Nullable NavigatorUserMediaErrorCallback -> IO () - --- | -webkitGetUserMedia :: - (MonadIO m, IsDictionary options) => - Navigator -> - Maybe options -> - Maybe NavigatorUserMediaSuccessCallback -> - Maybe NavigatorUserMediaErrorCallback -> m () -webkitGetUserMedia self options successCallback errorCallback - = liftIO - (js_webkitGetUserMedia (self) - (maybeToNullable (fmap toDictionary options)) - (maybeToNullable successCallback) - (maybeToNullable errorCallback)) - -foreign import javascript unsafe - "$1[\"registerProtocolHandler\"]($2,\n$3, $4)" - js_registerProtocolHandler :: - Navigator -> JSString -> JSString -> JSString -> IO () - --- | -registerProtocolHandler :: - (MonadIO m, ToJSString scheme, ToJSString url, ToJSString title) => - Navigator -> scheme -> url -> title -> m () -registerProtocolHandler self scheme url title - = liftIO - (js_registerProtocolHandler (self) (toJSString scheme) - (toJSString url) - (toJSString title)) - -foreign import javascript unsafe - "$1[\"isProtocolHandlerRegistered\"]($2,\n$3)" - js_isProtocolHandlerRegistered :: - Navigator -> JSString -> JSString -> IO JSString - --- | -isProtocolHandlerRegistered :: - (MonadIO m, ToJSString scheme, ToJSString url, - FromJSString result) => - Navigator -> scheme -> url -> m result -isProtocolHandlerRegistered self scheme url - = liftIO - (fromJSString <$> - (js_isProtocolHandlerRegistered (self) (toJSString scheme) - (toJSString url))) - -foreign import javascript unsafe - "$1[\"unregisterProtocolHandler\"]($2,\n$3)" - js_unregisterProtocolHandler :: - Navigator -> JSString -> JSString -> IO () - --- | -unregisterProtocolHandler :: - (MonadIO m, ToJSString scheme, ToJSString url) => - Navigator -> scheme -> url -> m () -unregisterProtocolHandler self scheme url - = liftIO - (js_unregisterProtocolHandler (self) (toJSString scheme) - (toJSString url)) - -foreign import javascript unsafe "($1[\"vibrate\"]($2) ? 1 : 0)" - js_vibratePattern :: Navigator -> JSVal -> IO Bool - --- | -vibratePattern :: (MonadIO m) => Navigator -> [Word] -> m Bool -vibratePattern self pattern' - = liftIO - (toJSVal pattern' >>= - \ pattern'' -> js_vibratePattern (self) pattern'') - -foreign import javascript unsafe "($1[\"vibrate\"]($2) ? 1 : 0)" - js_vibrate :: Navigator -> Word -> IO Bool - --- | -vibrate :: (MonadIO m) => Navigator -> Word -> m Bool -vibrate self time = liftIO (js_vibrate (self) time) - -foreign import javascript unsafe "($1[\"javaEnabled\"]() ? 1 : 0)" - js_javaEnabled :: Navigator -> IO Bool - --- | -javaEnabled :: (MonadIO m) => Navigator -> m Bool -javaEnabled self = liftIO (js_javaEnabled (self)) - -foreign import javascript unsafe "$1[\"getStorageUpdates\"]()" - js_getStorageUpdates :: Navigator -> IO () - --- | -getStorageUpdates :: (MonadIO m) => Navigator -> m () -getStorageUpdates self = liftIO (js_getStorageUpdates (self)) - -foreign import javascript unsafe "$1[\"webkitBattery\"]" - js_getWebkitBattery :: Navigator -> IO (Nullable BatteryManager) - --- | -getWebkitBattery :: - (MonadIO m) => Navigator -> m (Maybe BatteryManager) -getWebkitBattery self - = liftIO (nullableToMaybe <$> (js_getWebkitBattery (self))) - -foreign import javascript unsafe "$1[\"geolocation\"]" - js_getGeolocation :: Navigator -> IO (Nullable Geolocation) - --- | -getGeolocation :: (MonadIO m) => Navigator -> m (Maybe Geolocation) -getGeolocation self - = liftIO (nullableToMaybe <$> (js_getGeolocation (self))) - -foreign import javascript unsafe "$1[\"webkitTemporaryStorage\"]" - js_getWebkitTemporaryStorage :: - Navigator -> IO (Nullable StorageQuota) - --- | -getWebkitTemporaryStorage :: - (MonadIO m) => Navigator -> m (Maybe StorageQuota) -getWebkitTemporaryStorage self - = liftIO - (nullableToMaybe <$> (js_getWebkitTemporaryStorage (self))) - -foreign import javascript unsafe "$1[\"webkitPersistentStorage\"]" - js_getWebkitPersistentStorage :: - Navigator -> IO (Nullable StorageQuota) - --- | -getWebkitPersistentStorage :: - (MonadIO m) => Navigator -> m (Maybe StorageQuota) -getWebkitPersistentStorage self - = liftIO - (nullableToMaybe <$> (js_getWebkitPersistentStorage (self))) - -foreign import javascript unsafe "$1[\"appCodeName\"]" - js_getAppCodeName :: Navigator -> IO JSString - --- | -getAppCodeName :: - (MonadIO m, FromJSString result) => Navigator -> m result -getAppCodeName self - = liftIO (fromJSString <$> (js_getAppCodeName (self))) - -foreign import javascript unsafe "$1[\"appName\"]" js_getAppName :: - Navigator -> IO JSString - --- | -getAppName :: - (MonadIO m, FromJSString result) => Navigator -> m result -getAppName self = liftIO (fromJSString <$> (js_getAppName (self))) - -foreign import javascript unsafe "$1[\"appVersion\"]" - js_getAppVersion :: Navigator -> IO JSString - --- | -getAppVersion :: - (MonadIO m, FromJSString result) => Navigator -> m result -getAppVersion self - = liftIO (fromJSString <$> (js_getAppVersion (self))) - -foreign import javascript unsafe "$1[\"language\"]" js_getLanguage - :: Navigator -> IO JSString - --- | -getLanguage :: - (MonadIO m, FromJSString result) => Navigator -> m result -getLanguage self - = liftIO (fromJSString <$> (js_getLanguage (self))) - -foreign import javascript unsafe "$1[\"userAgent\"]" - js_getUserAgent :: Navigator -> IO JSString - --- | -getUserAgent :: - (MonadIO m, FromJSString result) => Navigator -> m result -getUserAgent self - = liftIO (fromJSString <$> (js_getUserAgent (self))) - -foreign import javascript unsafe "$1[\"platform\"]" js_getPlatform - :: Navigator -> IO JSString - --- | -getPlatform :: - (MonadIO m, FromJSString result) => Navigator -> m result -getPlatform self - = liftIO (fromJSString <$> (js_getPlatform (self))) - -foreign import javascript unsafe "$1[\"plugins\"]" js_getPlugins :: - Navigator -> IO (Nullable PluginArray) - --- | -getPlugins :: (MonadIO m) => Navigator -> m (Maybe PluginArray) -getPlugins self - = liftIO (nullableToMaybe <$> (js_getPlugins (self))) - -foreign import javascript unsafe "$1[\"mimeTypes\"]" - js_getMimeTypes :: Navigator -> IO (Nullable MimeTypeArray) - --- | -getMimeTypes :: (MonadIO m) => Navigator -> m (Maybe MimeTypeArray) -getMimeTypes self - = liftIO (nullableToMaybe <$> (js_getMimeTypes (self))) - -foreign import javascript unsafe "$1[\"product\"]" js_getProduct :: - Navigator -> IO JSString - --- | -getProduct :: - (MonadIO m, FromJSString result) => Navigator -> m result -getProduct self = liftIO (fromJSString <$> (js_getProduct (self))) - -foreign import javascript unsafe "$1[\"productSub\"]" - js_getProductSub :: Navigator -> IO JSString - --- | -getProductSub :: - (MonadIO m, FromJSString result) => Navigator -> m result -getProductSub self - = liftIO (fromJSString <$> (js_getProductSub (self))) - -foreign import javascript unsafe "$1[\"vendor\"]" js_getVendor :: - Navigator -> IO JSString - --- | -getVendor :: - (MonadIO m, FromJSString result) => Navigator -> m result -getVendor self = liftIO (fromJSString <$> (js_getVendor (self))) - -foreign import javascript unsafe "$1[\"vendorSub\"]" - js_getVendorSub :: Navigator -> IO JSString - --- | -getVendorSub :: - (MonadIO m, FromJSString result) => Navigator -> m result -getVendorSub self - = liftIO (fromJSString <$> (js_getVendorSub (self))) - -foreign import javascript unsafe "($1[\"cookieEnabled\"] ? 1 : 0)" - js_getCookieEnabled :: Navigator -> IO Bool - --- | -getCookieEnabled :: (MonadIO m) => Navigator -> m Bool -getCookieEnabled self = liftIO (js_getCookieEnabled (self)) - -foreign import javascript unsafe "($1[\"onLine\"] ? 1 : 0)" - js_getOnLine :: Navigator -> IO Bool - --- | -getOnLine :: (MonadIO m) => Navigator -> m Bool -getOnLine self = liftIO (js_getOnLine (self)) - -foreign import javascript unsafe "$1[\"hardwareConcurrency\"]" - js_getHardwareConcurrency :: Navigator -> IO Int - --- | -getHardwareConcurrency :: (MonadIO m) => Navigator -> m Int -getHardwareConcurrency self - = liftIO (js_getHardwareConcurrency (self)) diff --git a/src/GHCJS/DOM/JSFFI/Generated/NavigatorUserMediaError.hs b/src/GHCJS/DOM/JSFFI/Generated/NavigatorUserMediaError.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/NavigatorUserMediaError.hs +++ /dev/null @@ -1,29 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.NavigatorUserMediaError - (js_getConstraintName, getConstraintName, NavigatorUserMediaError, - castToNavigatorUserMediaError, gTypeNavigatorUserMediaError) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"constraintName\"]" - js_getConstraintName :: NavigatorUserMediaError -> IO JSString - --- | -getConstraintName :: - (MonadIO m, FromJSString result) => - NavigatorUserMediaError -> m result -getConstraintName self - = liftIO (fromJSString <$> (js_getConstraintName (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/NavigatorUserMediaErrorCallback.hs b/src/GHCJS/DOM/JSFFI/Generated/NavigatorUserMediaErrorCallback.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/NavigatorUserMediaErrorCallback.hs +++ /dev/null @@ -1,57 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.NavigatorUserMediaErrorCallback - (newNavigatorUserMediaErrorCallback, - newNavigatorUserMediaErrorCallbackSync, - newNavigatorUserMediaErrorCallbackAsync, - NavigatorUserMediaErrorCallback) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - --- | -newNavigatorUserMediaErrorCallback :: - (MonadIO m) => - (Maybe NavigatorUserMediaError -> IO ()) -> - m NavigatorUserMediaErrorCallback -newNavigatorUserMediaErrorCallback callback - = liftIO - (NavigatorUserMediaErrorCallback <$> - syncCallback1 ThrowWouldBlock - (\ error -> - fromJSValUnchecked error >>= \ error' -> callback error')) - --- | -newNavigatorUserMediaErrorCallbackSync :: - (MonadIO m) => - (Maybe NavigatorUserMediaError -> IO ()) -> - m NavigatorUserMediaErrorCallback -newNavigatorUserMediaErrorCallbackSync callback - = liftIO - (NavigatorUserMediaErrorCallback <$> - syncCallback1 ContinueAsync - (\ error -> - fromJSValUnchecked error >>= \ error' -> callback error')) - --- | -newNavigatorUserMediaErrorCallbackAsync :: - (MonadIO m) => - (Maybe NavigatorUserMediaError -> IO ()) -> - m NavigatorUserMediaErrorCallback -newNavigatorUserMediaErrorCallbackAsync callback - = liftIO - (NavigatorUserMediaErrorCallback <$> - asyncCallback1 - (\ error -> - fromJSValUnchecked error >>= \ error' -> callback error')) diff --git a/src/GHCJS/DOM/JSFFI/Generated/NavigatorUserMediaSuccessCallback.hs b/src/GHCJS/DOM/JSFFI/Generated/NavigatorUserMediaSuccessCallback.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/NavigatorUserMediaSuccessCallback.hs +++ /dev/null @@ -1,57 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.NavigatorUserMediaSuccessCallback - (newNavigatorUserMediaSuccessCallback, - newNavigatorUserMediaSuccessCallbackSync, - newNavigatorUserMediaSuccessCallbackAsync, - NavigatorUserMediaSuccessCallback) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - --- | -newNavigatorUserMediaSuccessCallback :: - (MonadIO m) => - (Maybe MediaStream -> IO ()) -> - m NavigatorUserMediaSuccessCallback -newNavigatorUserMediaSuccessCallback callback - = liftIO - (NavigatorUserMediaSuccessCallback <$> - syncCallback1 ThrowWouldBlock - (\ stream -> - fromJSValUnchecked stream >>= \ stream' -> callback stream')) - --- | -newNavigatorUserMediaSuccessCallbackSync :: - (MonadIO m) => - (Maybe MediaStream -> IO ()) -> - m NavigatorUserMediaSuccessCallback -newNavigatorUserMediaSuccessCallbackSync callback - = liftIO - (NavigatorUserMediaSuccessCallback <$> - syncCallback1 ContinueAsync - (\ stream -> - fromJSValUnchecked stream >>= \ stream' -> callback stream')) - --- | -newNavigatorUserMediaSuccessCallbackAsync :: - (MonadIO m) => - (Maybe MediaStream -> IO ()) -> - m NavigatorUserMediaSuccessCallback -newNavigatorUserMediaSuccessCallbackAsync callback - = liftIO - (NavigatorUserMediaSuccessCallback <$> - asyncCallback1 - (\ stream -> - fromJSValUnchecked stream >>= \ stream' -> callback stream')) diff --git a/src/GHCJS/DOM/JSFFI/Generated/Node.hs b/src/GHCJS/DOM/JSFFI/Generated/Node.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/Node.hs +++ /dev/null @@ -1,424 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.Node - (js_insertBefore, insertBefore, js_replaceChild, replaceChild, - js_removeChild, removeChild, js_appendChild, appendChild, - js_hasChildNodes, hasChildNodes, js_cloneNode, cloneNode, - js_normalize, normalize, js_isSupported, isSupported, - js_isSameNode, isSameNode, js_isEqualNode, isEqualNode, - js_lookupPrefix, lookupPrefix, js_isDefaultNamespace, - isDefaultNamespace, js_lookupNamespaceURI, lookupNamespaceURI, - js_compareDocumentPosition, compareDocumentPosition, js_contains, - contains, pattern ELEMENT_NODE, pattern ATTRIBUTE_NODE, - pattern TEXT_NODE, pattern CDATA_SECTION_NODE, - pattern ENTITY_REFERENCE_NODE, pattern ENTITY_NODE, - pattern PROCESSING_INSTRUCTION_NODE, pattern COMMENT_NODE, - pattern DOCUMENT_NODE, pattern DOCUMENT_TYPE_NODE, - pattern DOCUMENT_FRAGMENT_NODE, pattern NOTATION_NODE, - pattern DOCUMENT_POSITION_DISCONNECTED, - pattern DOCUMENT_POSITION_PRECEDING, - pattern DOCUMENT_POSITION_FOLLOWING, - pattern DOCUMENT_POSITION_CONTAINS, - pattern DOCUMENT_POSITION_CONTAINED_BY, - pattern DOCUMENT_POSITION_IMPLEMENTATION_SPECIFIC, js_getNodeName, - getNodeName, js_setNodeValue, setNodeValue, js_getNodeValue, - getNodeValue, js_getNodeType, getNodeType, js_getParentNode, - getParentNode, js_getChildNodes, getChildNodes, js_getFirstChild, - getFirstChild, js_getLastChild, getLastChild, - js_getPreviousSibling, getPreviousSibling, js_getNextSibling, - getNextSibling, js_getOwnerDocument, getOwnerDocument, - js_getNamespaceURI, getNamespaceURI, js_setPrefix, setPrefix, - js_getPrefix, getPrefix, js_getLocalName, getLocalName, - js_getBaseURI, getBaseURI, js_setTextContent, setTextContent, - js_getTextContent, getTextContent, js_getParentElement, - getParentElement, Node, castToNode, gTypeNode, IsNode, toNode) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"insertBefore\"]($2, $3)" - js_insertBefore :: - Node -> Nullable Node -> Nullable Node -> IO (Nullable Node) - --- | -insertBefore :: - (MonadIO m, IsNode self, IsNode newChild, IsNode refChild) => - self -> Maybe newChild -> Maybe refChild -> m (Maybe Node) -insertBefore self newChild refChild - = liftIO - (nullableToMaybe <$> - (js_insertBefore (toNode self) - (maybeToNullable (fmap toNode newChild)) - (maybeToNullable (fmap toNode refChild)))) - -foreign import javascript unsafe "$1[\"replaceChild\"]($2, $3)" - js_replaceChild :: - Node -> Nullable Node -> Nullable Node -> IO (Nullable Node) - --- | -replaceChild :: - (MonadIO m, IsNode self, IsNode newChild, IsNode oldChild) => - self -> Maybe newChild -> Maybe oldChild -> m (Maybe Node) -replaceChild self newChild oldChild - = liftIO - (nullableToMaybe <$> - (js_replaceChild (toNode self) - (maybeToNullable (fmap toNode newChild)) - (maybeToNullable (fmap toNode oldChild)))) - -foreign import javascript unsafe "$1[\"removeChild\"]($2)" - js_removeChild :: Node -> Nullable Node -> IO (Nullable Node) - --- | -removeChild :: - (MonadIO m, IsNode self, IsNode oldChild) => - self -> Maybe oldChild -> m (Maybe Node) -removeChild self oldChild - = liftIO - (nullableToMaybe <$> - (js_removeChild (toNode self) - (maybeToNullable (fmap toNode oldChild)))) - -foreign import javascript unsafe "$1[\"appendChild\"]($2)" - js_appendChild :: Node -> Nullable Node -> IO (Nullable Node) - --- | -appendChild :: - (MonadIO m, IsNode self, IsNode newChild) => - self -> Maybe newChild -> m (Maybe Node) -appendChild self newChild - = liftIO - (nullableToMaybe <$> - (js_appendChild (toNode self) - (maybeToNullable (fmap toNode newChild)))) - -foreign import javascript unsafe - "($1[\"hasChildNodes\"]() ? 1 : 0)" js_hasChildNodes :: - Node -> IO Bool - --- | -hasChildNodes :: (MonadIO m, IsNode self) => self -> m Bool -hasChildNodes self = liftIO (js_hasChildNodes (toNode self)) - -foreign import javascript unsafe "$1[\"cloneNode\"]($2)" - js_cloneNode :: Node -> Bool -> IO (Nullable Node) - --- | -cloneNode :: - (MonadIO m, IsNode self) => self -> Bool -> m (Maybe Node) -cloneNode self deep - = liftIO (nullableToMaybe <$> (js_cloneNode (toNode self) deep)) - -foreign import javascript unsafe "$1[\"normalize\"]()" js_normalize - :: Node -> IO () - --- | -normalize :: (MonadIO m, IsNode self) => self -> m () -normalize self = liftIO (js_normalize (toNode self)) - -foreign import javascript unsafe - "($1[\"isSupported\"]($2,\n$3) ? 1 : 0)" js_isSupported :: - Node -> JSString -> Nullable JSString -> IO Bool - --- | -isSupported :: - (MonadIO m, IsNode self, ToJSString feature, ToJSString version) => - self -> feature -> Maybe version -> m Bool -isSupported self feature version - = liftIO - (js_isSupported (toNode self) (toJSString feature) - (toMaybeJSString version)) - -foreign import javascript unsafe "($1[\"isSameNode\"]($2) ? 1 : 0)" - js_isSameNode :: Node -> Nullable Node -> IO Bool - --- | -isSameNode :: - (MonadIO m, IsNode self, IsNode other) => - self -> Maybe other -> m Bool -isSameNode self other - = liftIO - (js_isSameNode (toNode self) (maybeToNullable (fmap toNode other))) - -foreign import javascript unsafe - "($1[\"isEqualNode\"]($2) ? 1 : 0)" js_isEqualNode :: - Node -> Nullable Node -> IO Bool - --- | -isEqualNode :: - (MonadIO m, IsNode self, IsNode other) => - self -> Maybe other -> m Bool -isEqualNode self other - = liftIO - (js_isEqualNode (toNode self) - (maybeToNullable (fmap toNode other))) - -foreign import javascript unsafe "$1[\"lookupPrefix\"]($2)" - js_lookupPrefix :: - Node -> Nullable JSString -> IO (Nullable JSString) - --- | -lookupPrefix :: - (MonadIO m, IsNode self, ToJSString namespaceURI, - FromJSString result) => - self -> Maybe namespaceURI -> m (Maybe result) -lookupPrefix self namespaceURI - = liftIO - (fromMaybeJSString <$> - (js_lookupPrefix (toNode self) (toMaybeJSString namespaceURI))) - -foreign import javascript unsafe - "($1[\"isDefaultNamespace\"]($2) ? 1 : 0)" js_isDefaultNamespace :: - Node -> Nullable JSString -> IO Bool - --- | -isDefaultNamespace :: - (MonadIO m, IsNode self, ToJSString namespaceURI) => - self -> Maybe namespaceURI -> m Bool -isDefaultNamespace self namespaceURI - = liftIO - (js_isDefaultNamespace (toNode self) - (toMaybeJSString namespaceURI)) - -foreign import javascript unsafe "$1[\"lookupNamespaceURI\"]($2)" - js_lookupNamespaceURI :: - Node -> Nullable JSString -> IO (Nullable JSString) - --- | -lookupNamespaceURI :: - (MonadIO m, IsNode self, ToJSString prefix, FromJSString result) => - self -> Maybe prefix -> m (Maybe result) -lookupNamespaceURI self prefix - = liftIO - (fromMaybeJSString <$> - (js_lookupNamespaceURI (toNode self) (toMaybeJSString prefix))) - -foreign import javascript unsafe - "$1[\"compareDocumentPosition\"]($2)" js_compareDocumentPosition :: - Node -> Nullable Node -> IO Word - --- | -compareDocumentPosition :: - (MonadIO m, IsNode self, IsNode other) => - self -> Maybe other -> m Word -compareDocumentPosition self other - = liftIO - (js_compareDocumentPosition (toNode self) - (maybeToNullable (fmap toNode other))) - -foreign import javascript unsafe "($1[\"contains\"]($2) ? 1 : 0)" - js_contains :: Node -> Nullable Node -> IO Bool - --- | -contains :: - (MonadIO m, IsNode self, IsNode other) => - self -> Maybe other -> m Bool -contains self other - = liftIO - (js_contains (toNode self) (maybeToNullable (fmap toNode other))) -pattern ELEMENT_NODE = 1 -pattern ATTRIBUTE_NODE = 2 -pattern TEXT_NODE = 3 -pattern CDATA_SECTION_NODE = 4 -pattern ENTITY_REFERENCE_NODE = 5 -pattern ENTITY_NODE = 6 -pattern PROCESSING_INSTRUCTION_NODE = 7 -pattern COMMENT_NODE = 8 -pattern DOCUMENT_NODE = 9 -pattern DOCUMENT_TYPE_NODE = 10 -pattern DOCUMENT_FRAGMENT_NODE = 11 -pattern NOTATION_NODE = 12 -pattern DOCUMENT_POSITION_DISCONNECTED = 1 -pattern DOCUMENT_POSITION_PRECEDING = 2 -pattern DOCUMENT_POSITION_FOLLOWING = 4 -pattern DOCUMENT_POSITION_CONTAINS = 8 -pattern DOCUMENT_POSITION_CONTAINED_BY = 16 -pattern DOCUMENT_POSITION_IMPLEMENTATION_SPECIFIC = 32 - -foreign import javascript unsafe "$1[\"nodeName\"]" js_getNodeName - :: Node -> IO (Nullable JSString) - --- | -getNodeName :: - (MonadIO m, IsNode self, FromJSString result) => - self -> m (Maybe result) -getNodeName self - = liftIO (fromMaybeJSString <$> (js_getNodeName (toNode self))) - -foreign import javascript unsafe "$1[\"nodeValue\"] = $2;" - js_setNodeValue :: Node -> Nullable JSString -> IO () - --- | -setNodeValue :: - (MonadIO m, IsNode self, ToJSString val) => - self -> Maybe val -> m () -setNodeValue self val - = liftIO (js_setNodeValue (toNode self) (toMaybeJSString val)) - -foreign import javascript unsafe "$1[\"nodeValue\"]" - js_getNodeValue :: Node -> IO (Nullable JSString) - --- | -getNodeValue :: - (MonadIO m, IsNode self, FromJSString result) => - self -> m (Maybe result) -getNodeValue self - = liftIO (fromMaybeJSString <$> (js_getNodeValue (toNode self))) - -foreign import javascript unsafe "$1[\"nodeType\"]" js_getNodeType - :: Node -> IO Word - --- | -getNodeType :: (MonadIO m, IsNode self) => self -> m Word -getNodeType self = liftIO (js_getNodeType (toNode self)) - -foreign import javascript unsafe "$1[\"parentNode\"]" - js_getParentNode :: Node -> IO (Nullable Node) - --- | -getParentNode :: (MonadIO m, IsNode self) => self -> m (Maybe Node) -getParentNode self - = liftIO (nullableToMaybe <$> (js_getParentNode (toNode self))) - -foreign import javascript unsafe "$1[\"childNodes\"]" - js_getChildNodes :: Node -> IO (Nullable NodeList) - --- | -getChildNodes :: - (MonadIO m, IsNode self) => self -> m (Maybe NodeList) -getChildNodes self - = liftIO (nullableToMaybe <$> (js_getChildNodes (toNode self))) - -foreign import javascript unsafe "$1[\"firstChild\"]" - js_getFirstChild :: Node -> IO (Nullable Node) - --- | -getFirstChild :: (MonadIO m, IsNode self) => self -> m (Maybe Node) -getFirstChild self - = liftIO (nullableToMaybe <$> (js_getFirstChild (toNode self))) - -foreign import javascript unsafe "$1[\"lastChild\"]" - js_getLastChild :: Node -> IO (Nullable Node) - --- | -getLastChild :: (MonadIO m, IsNode self) => self -> m (Maybe Node) -getLastChild self - = liftIO (nullableToMaybe <$> (js_getLastChild (toNode self))) - -foreign import javascript unsafe "$1[\"previousSibling\"]" - js_getPreviousSibling :: Node -> IO (Nullable Node) - --- | -getPreviousSibling :: - (MonadIO m, IsNode self) => self -> m (Maybe Node) -getPreviousSibling self - = liftIO - (nullableToMaybe <$> (js_getPreviousSibling (toNode self))) - -foreign import javascript unsafe "$1[\"nextSibling\"]" - js_getNextSibling :: Node -> IO (Nullable Node) - --- | -getNextSibling :: - (MonadIO m, IsNode self) => self -> m (Maybe Node) -getNextSibling self - = liftIO (nullableToMaybe <$> (js_getNextSibling (toNode self))) - -foreign import javascript unsafe "$1[\"ownerDocument\"]" - js_getOwnerDocument :: Node -> IO (Nullable Document) - --- | -getOwnerDocument :: - (MonadIO m, IsNode self) => self -> m (Maybe Document) -getOwnerDocument self - = liftIO (nullableToMaybe <$> (js_getOwnerDocument (toNode self))) - -foreign import javascript unsafe "$1[\"namespaceURI\"]" - js_getNamespaceURI :: Node -> IO (Nullable JSString) - --- | -getNamespaceURI :: - (MonadIO m, IsNode self, FromJSString result) => - self -> m (Maybe result) -getNamespaceURI self - = liftIO (fromMaybeJSString <$> (js_getNamespaceURI (toNode self))) - -foreign import javascript unsafe "$1[\"prefix\"] = $2;" - js_setPrefix :: Node -> Nullable JSString -> IO () - --- | -setPrefix :: - (MonadIO m, IsNode self, ToJSString val) => - self -> Maybe val -> m () -setPrefix self val - = liftIO (js_setPrefix (toNode self) (toMaybeJSString val)) - -foreign import javascript unsafe "$1[\"prefix\"]" js_getPrefix :: - Node -> IO (Nullable JSString) - --- | -getPrefix :: - (MonadIO m, IsNode self, FromJSString result) => - self -> m (Maybe result) -getPrefix self - = liftIO (fromMaybeJSString <$> (js_getPrefix (toNode self))) - -foreign import javascript unsafe "$1[\"localName\"]" - js_getLocalName :: Node -> IO (Nullable JSString) - --- | -getLocalName :: - (MonadIO m, IsNode self, FromJSString result) => - self -> m (Maybe result) -getLocalName self - = liftIO (fromMaybeJSString <$> (js_getLocalName (toNode self))) - -foreign import javascript unsafe "$1[\"baseURI\"]" js_getBaseURI :: - Node -> IO (Nullable JSString) - --- | -getBaseURI :: - (MonadIO m, IsNode self, FromJSString result) => - self -> m (Maybe result) -getBaseURI self - = liftIO (fromMaybeJSString <$> (js_getBaseURI (toNode self))) - -foreign import javascript unsafe "$1[\"textContent\"] = $2;" - js_setTextContent :: Node -> Nullable JSString -> IO () - --- | -setTextContent :: - (MonadIO m, IsNode self, ToJSString val) => - self -> Maybe val -> m () -setTextContent self val - = liftIO (js_setTextContent (toNode self) (toMaybeJSString val)) - -foreign import javascript unsafe "$1[\"textContent\"]" - js_getTextContent :: Node -> IO (Nullable JSString) - --- | -getTextContent :: - (MonadIO m, IsNode self, FromJSString result) => - self -> m (Maybe result) -getTextContent self - = liftIO (fromMaybeJSString <$> (js_getTextContent (toNode self))) - -foreign import javascript unsafe "$1[\"parentElement\"]" - js_getParentElement :: Node -> IO (Nullable Element) - --- | -getParentElement :: - (MonadIO m, IsNode self) => self -> m (Maybe Element) -getParentElement self - = liftIO (nullableToMaybe <$> (js_getParentElement (toNode self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/NodeFilter.hs b/src/GHCJS/DOM/JSFFI/Generated/NodeFilter.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/NodeFilter.hs +++ /dev/null @@ -1,51 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.NodeFilter - (js_acceptNode, acceptNode, pattern FILTER_ACCEPT, - pattern FILTER_REJECT, pattern FILTER_SKIP, pattern SHOW_ALL, - pattern SHOW_ELEMENT, pattern SHOW_ATTRIBUTE, pattern SHOW_TEXT, - pattern SHOW_CDATA_SECTION, pattern SHOW_ENTITY_REFERENCE, - pattern SHOW_ENTITY, pattern SHOW_PROCESSING_INSTRUCTION, - pattern SHOW_COMMENT, pattern SHOW_DOCUMENT, - pattern SHOW_DOCUMENT_TYPE, pattern SHOW_DOCUMENT_FRAGMENT, - pattern SHOW_NOTATION, NodeFilter, castToNodeFilter, - gTypeNodeFilter) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"acceptNode\"]($2)" - js_acceptNode :: NodeFilter -> Nullable Node -> IO Int - --- | -acceptNode :: - (MonadIO m, IsNode n) => NodeFilter -> Maybe n -> m Int -acceptNode self n - = liftIO (js_acceptNode (self) (maybeToNullable (fmap toNode n))) -pattern FILTER_ACCEPT = 1 -pattern FILTER_REJECT = 2 -pattern FILTER_SKIP = 3 -pattern SHOW_ALL = 4294967295 -pattern SHOW_ELEMENT = 1 -pattern SHOW_ATTRIBUTE = 2 -pattern SHOW_TEXT = 4 -pattern SHOW_CDATA_SECTION = 8 -pattern SHOW_ENTITY_REFERENCE = 16 -pattern SHOW_ENTITY = 32 -pattern SHOW_PROCESSING_INSTRUCTION = 64 -pattern SHOW_COMMENT = 128 -pattern SHOW_DOCUMENT = 256 -pattern SHOW_DOCUMENT_TYPE = 512 -pattern SHOW_DOCUMENT_FRAGMENT = 1024 -pattern SHOW_NOTATION = 2048 diff --git a/src/GHCJS/DOM/JSFFI/Generated/NodeIterator.hs b/src/GHCJS/DOM/JSFFI/Generated/NodeIterator.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/NodeIterator.hs +++ /dev/null @@ -1,93 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.NodeIterator - (js_nextNode, nextNode, js_previousNode, previousNode, js_detach, - detach, js_getRoot, getRoot, js_getWhatToShow, getWhatToShow, - js_getFilter, getFilter, js_getExpandEntityReferences, - getExpandEntityReferences, js_getReferenceNode, getReferenceNode, - js_getPointerBeforeReferenceNode, getPointerBeforeReferenceNode, - NodeIterator, castToNodeIterator, gTypeNodeIterator) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"nextNode\"]()" js_nextNode - :: NodeIterator -> IO (Nullable Node) - --- | -nextNode :: (MonadIO m) => NodeIterator -> m (Maybe Node) -nextNode self = liftIO (nullableToMaybe <$> (js_nextNode (self))) - -foreign import javascript unsafe "$1[\"previousNode\"]()" - js_previousNode :: NodeIterator -> IO (Nullable Node) - --- | -previousNode :: (MonadIO m) => NodeIterator -> m (Maybe Node) -previousNode self - = liftIO (nullableToMaybe <$> (js_previousNode (self))) - -foreign import javascript unsafe "$1[\"detach\"]()" js_detach :: - NodeIterator -> IO () - --- | -detach :: (MonadIO m) => NodeIterator -> m () -detach self = liftIO (js_detach (self)) - -foreign import javascript unsafe "$1[\"root\"]" js_getRoot :: - NodeIterator -> IO (Nullable Node) - --- | -getRoot :: (MonadIO m) => NodeIterator -> m (Maybe Node) -getRoot self = liftIO (nullableToMaybe <$> (js_getRoot (self))) - -foreign import javascript unsafe "$1[\"whatToShow\"]" - js_getWhatToShow :: NodeIterator -> IO Word - --- | -getWhatToShow :: (MonadIO m) => NodeIterator -> m Word -getWhatToShow self = liftIO (js_getWhatToShow (self)) - -foreign import javascript unsafe "$1[\"filter\"]" js_getFilter :: - NodeIterator -> IO (Nullable NodeFilter) - --- | -getFilter :: (MonadIO m) => NodeIterator -> m (Maybe NodeFilter) -getFilter self = liftIO (nullableToMaybe <$> (js_getFilter (self))) - -foreign import javascript unsafe - "($1[\"expandEntityReferences\"] ? 1 : 0)" - js_getExpandEntityReferences :: NodeIterator -> IO Bool - --- | -getExpandEntityReferences :: (MonadIO m) => NodeIterator -> m Bool -getExpandEntityReferences self - = liftIO (js_getExpandEntityReferences (self)) - -foreign import javascript unsafe "$1[\"referenceNode\"]" - js_getReferenceNode :: NodeIterator -> IO (Nullable Node) - --- | -getReferenceNode :: (MonadIO m) => NodeIterator -> m (Maybe Node) -getReferenceNode self - = liftIO (nullableToMaybe <$> (js_getReferenceNode (self))) - -foreign import javascript unsafe - "($1[\"pointerBeforeReferenceNode\"] ? 1 : 0)" - js_getPointerBeforeReferenceNode :: NodeIterator -> IO Bool - --- | -getPointerBeforeReferenceNode :: - (MonadIO m) => NodeIterator -> m Bool -getPointerBeforeReferenceNode self - = liftIO (js_getPointerBeforeReferenceNode (self)) diff --git a/src/GHCJS/DOM/JSFFI/Generated/NodeList.hs b/src/GHCJS/DOM/JSFFI/Generated/NodeList.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/NodeList.hs +++ /dev/null @@ -1,35 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.NodeList - (js_item, item, js_getLength, getLength, NodeList, castToNodeList, - gTypeNodeList, IsNodeList, toNodeList) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"item\"]($2)" js_item :: - NodeList -> Word -> IO (Nullable Node) - --- | -item :: - (MonadIO m, IsNodeList self) => self -> Word -> m (Maybe Node) -item self index - = liftIO (nullableToMaybe <$> (js_item (toNodeList self) index)) - -foreign import javascript unsafe "$1[\"length\"]" js_getLength :: - NodeList -> IO Word - --- | -getLength :: (MonadIO m, IsNodeList self) => self -> m Word -getLength self = liftIO (js_getLength (toNodeList self)) diff --git a/src/GHCJS/DOM/JSFFI/Generated/Notification.hs b/src/GHCJS/DOM/JSFFI/Generated/Notification.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/Notification.hs +++ /dev/null @@ -1,42 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.Notification - (js_show, show, showEvent, error, close, click, Notification, - castToNotification, gTypeNotification) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"show\"]()" js_show :: - Notification -> IO () - --- | -show :: (MonadIO m) => Notification -> m () -show self = liftIO (js_show (self)) - --- | -showEvent :: EventName Notification MouseEvent -showEvent = unsafeEventName (toJSString "show") - --- | -error :: EventName Notification UIEvent -error = unsafeEventName (toJSString "error") - --- | -close :: EventName Notification Event -close = unsafeEventName (toJSString "close") - --- | -click :: EventName Notification MouseEvent -click = unsafeEventName (toJSString "click") diff --git a/src/GHCJS/DOM/JSFFI/Generated/NotificationCenter.hs b/src/GHCJS/DOM/JSFFI/Generated/NotificationCenter.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/NotificationCenter.hs +++ /dev/null @@ -1,56 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.NotificationCenter - (js_createNotification, createNotification, js_checkPermission, - checkPermission, js_requestPermission, requestPermission, - NotificationCenter, castToNotificationCenter, - gTypeNotificationCenter) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe - "$1[\"createNotification\"]($2, $3,\n$4)" js_createNotification :: - NotificationCenter -> - JSString -> JSString -> JSString -> IO (Nullable Notification) - --- | -createNotification :: - (MonadIO m, ToJSString iconUrl, ToJSString title, - ToJSString body) => - NotificationCenter -> - iconUrl -> title -> body -> m (Maybe Notification) -createNotification self iconUrl title body - = liftIO - (nullableToMaybe <$> - (js_createNotification (self) (toJSString iconUrl) - (toJSString title) - (toJSString body))) - -foreign import javascript unsafe "$1[\"checkPermission\"]()" - js_checkPermission :: NotificationCenter -> IO Int - --- | -checkPermission :: (MonadIO m) => NotificationCenter -> m Int -checkPermission self = liftIO (js_checkPermission (self)) - -foreign import javascript unsafe "$1[\"requestPermission\"]($2)" - js_requestPermission :: - NotificationCenter -> Nullable VoidCallback -> IO () - --- | -requestPermission :: - (MonadIO m) => NotificationCenter -> Maybe VoidCallback -> m () -requestPermission self callback - = liftIO (js_requestPermission (self) (maybeToNullable callback)) diff --git a/src/GHCJS/DOM/JSFFI/Generated/NotificationPermissionCallback.hs b/src/GHCJS/DOM/JSFFI/Generated/NotificationPermissionCallback.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/NotificationPermissionCallback.hs +++ /dev/null @@ -1,60 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.NotificationPermissionCallback - (newNotificationPermissionCallback, - newNotificationPermissionCallbackSync, - newNotificationPermissionCallbackAsync, - NotificationPermissionCallback) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - --- | -newNotificationPermissionCallback :: - (MonadIO m, FromJSString permission) => - (permission -> IO ()) -> - m (NotificationPermissionCallback permission) -newNotificationPermissionCallback callback - = liftIO - (NotificationPermissionCallback <$> - syncCallback1 ThrowWouldBlock - (\ permission -> - fromJSValUnchecked permission >>= - \ permission' -> callback permission')) - --- | -newNotificationPermissionCallbackSync :: - (MonadIO m, FromJSString permission) => - (permission -> IO ()) -> - m (NotificationPermissionCallback permission) -newNotificationPermissionCallbackSync callback - = liftIO - (NotificationPermissionCallback <$> - syncCallback1 ContinueAsync - (\ permission -> - fromJSValUnchecked permission >>= - \ permission' -> callback permission')) - --- | -newNotificationPermissionCallbackAsync :: - (MonadIO m, FromJSString permission) => - (permission -> IO ()) -> - m (NotificationPermissionCallback permission) -newNotificationPermissionCallbackAsync callback - = liftIO - (NotificationPermissionCallback <$> - asyncCallback1 - (\ permission -> - fromJSValUnchecked permission >>= - \ permission' -> callback permission')) diff --git a/src/GHCJS/DOM/JSFFI/Generated/OESStandardDerivatives.hs b/src/GHCJS/DOM/JSFFI/Generated/OESStandardDerivatives.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/OESStandardDerivatives.hs +++ /dev/null @@ -1,21 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.OESStandardDerivatives - (pattern FRAGMENT_SHADER_DERIVATIVE_HINT_OES, - OESStandardDerivatives, castToOESStandardDerivatives, - gTypeOESStandardDerivatives) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums -pattern FRAGMENT_SHADER_DERIVATIVE_HINT_OES = 35723 diff --git a/src/GHCJS/DOM/JSFFI/Generated/OESTextureHalfFloat.hs b/src/GHCJS/DOM/JSFFI/Generated/OESTextureHalfFloat.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/OESTextureHalfFloat.hs +++ /dev/null @@ -1,20 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.OESTextureHalfFloat - (pattern HALF_FLOAT_OES, OESTextureHalfFloat, - castToOESTextureHalfFloat, gTypeOESTextureHalfFloat) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums -pattern HALF_FLOAT_OES = 36193 diff --git a/src/GHCJS/DOM/JSFFI/Generated/OESVertexArrayObject.hs b/src/GHCJS/DOM/JSFFI/Generated/OESVertexArrayObject.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/OESVertexArrayObject.hs +++ /dev/null @@ -1,70 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.OESVertexArrayObject - (js_createVertexArrayOES, createVertexArrayOES, - js_deleteVertexArrayOES, deleteVertexArrayOES, js_isVertexArrayOES, - isVertexArrayOES, js_bindVertexArrayOES, bindVertexArrayOES, - pattern VERTEX_ARRAY_BINDING_OES, OESVertexArrayObject, - castToOESVertexArrayObject, gTypeOESVertexArrayObject) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"createVertexArrayOES\"]()" - js_createVertexArrayOES :: - OESVertexArrayObject -> IO (Nullable WebGLVertexArrayObjectOES) - --- | -createVertexArrayOES :: - (MonadIO m) => - OESVertexArrayObject -> m (Maybe WebGLVertexArrayObjectOES) -createVertexArrayOES self - = liftIO (nullableToMaybe <$> (js_createVertexArrayOES (self))) - -foreign import javascript unsafe "$1[\"deleteVertexArrayOES\"]($2)" - js_deleteVertexArrayOES :: - OESVertexArrayObject -> Nullable WebGLVertexArrayObjectOES -> IO () - --- | -deleteVertexArrayOES :: - (MonadIO m) => - OESVertexArrayObject -> Maybe WebGLVertexArrayObjectOES -> m () -deleteVertexArrayOES self arrayObject - = liftIO - (js_deleteVertexArrayOES (self) (maybeToNullable arrayObject)) - -foreign import javascript unsafe - "($1[\"isVertexArrayOES\"]($2) ? 1 : 0)" js_isVertexArrayOES :: - OESVertexArrayObject -> - Nullable WebGLVertexArrayObjectOES -> IO Bool - --- | -isVertexArrayOES :: - (MonadIO m) => - OESVertexArrayObject -> Maybe WebGLVertexArrayObjectOES -> m Bool -isVertexArrayOES self arrayObject - = liftIO (js_isVertexArrayOES (self) (maybeToNullable arrayObject)) - -foreign import javascript unsafe "$1[\"bindVertexArrayOES\"]($2)" - js_bindVertexArrayOES :: - OESVertexArrayObject -> Nullable WebGLVertexArrayObjectOES -> IO () - --- | -bindVertexArrayOES :: - (MonadIO m) => - OESVertexArrayObject -> Maybe WebGLVertexArrayObjectOES -> m () -bindVertexArrayOES self arrayObject - = liftIO - (js_bindVertexArrayOES (self) (maybeToNullable arrayObject)) -pattern VERTEX_ARRAY_BINDING_OES = 34229 diff --git a/src/GHCJS/DOM/JSFFI/Generated/OfflineAudioCompletionEvent.hs b/src/GHCJS/DOM/JSFFI/Generated/OfflineAudioCompletionEvent.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/OfflineAudioCompletionEvent.hs +++ /dev/null @@ -1,30 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.OfflineAudioCompletionEvent - (js_getRenderedBuffer, getRenderedBuffer, - OfflineAudioCompletionEvent, castToOfflineAudioCompletionEvent, - gTypeOfflineAudioCompletionEvent) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"renderedBuffer\"]" - js_getRenderedBuffer :: - OfflineAudioCompletionEvent -> IO (Nullable AudioBuffer) - --- | -getRenderedBuffer :: - (MonadIO m) => OfflineAudioCompletionEvent -> m (Maybe AudioBuffer) -getRenderedBuffer self - = liftIO (nullableToMaybe <$> (js_getRenderedBuffer (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/OfflineAudioContext.hs b/src/GHCJS/DOM/JSFFI/Generated/OfflineAudioContext.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/OfflineAudioContext.hs +++ /dev/null @@ -1,33 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.OfflineAudioContext - (js_newOfflineAudioContext, newOfflineAudioContext, - OfflineAudioContext, castToOfflineAudioContext, - gTypeOfflineAudioContext) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe - "new window[\"OfflineAudioContext\"]($1,\n$2, $3)" - js_newOfflineAudioContext :: - Word -> Word -> Float -> IO OfflineAudioContext - --- | -newOfflineAudioContext :: - (MonadIO m) => Word -> Word -> Float -> m OfflineAudioContext -newOfflineAudioContext numberOfChannels numberOfFrames sampleRate - = liftIO - (js_newOfflineAudioContext numberOfChannels numberOfFrames - sampleRate) diff --git a/src/GHCJS/DOM/JSFFI/Generated/OscillatorNode.hs b/src/GHCJS/DOM/JSFFI/Generated/OscillatorNode.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/OscillatorNode.hs +++ /dev/null @@ -1,115 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.OscillatorNode - (js_start, start, js_stop, stop, js_noteOn, noteOn, js_noteOff, - noteOff, js_setPeriodicWave, setPeriodicWave, pattern SINE, - pattern SQUARE, pattern SAWTOOTH, pattern TRIANGLE, pattern CUSTOM, - pattern UNSCHEDULED_STATE, pattern SCHEDULED_STATE, - pattern PLAYING_STATE, pattern FINISHED_STATE, js_setType, setType, - js_getType, getType, js_getPlaybackState, getPlaybackState, - js_getFrequency, getFrequency, js_getDetune, getDetune, ended, - OscillatorNode, castToOscillatorNode, gTypeOscillatorNode) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"start\"]($2)" js_start :: - OscillatorNode -> Double -> IO () - --- | -start :: (MonadIO m) => OscillatorNode -> Double -> m () -start self when = liftIO (js_start (self) when) - -foreign import javascript unsafe "$1[\"stop\"]($2)" js_stop :: - OscillatorNode -> Double -> IO () - --- | -stop :: (MonadIO m) => OscillatorNode -> Double -> m () -stop self when = liftIO (js_stop (self) when) - -foreign import javascript unsafe "$1[\"noteOn\"]($2)" js_noteOn :: - OscillatorNode -> Double -> IO () - --- | -noteOn :: (MonadIO m) => OscillatorNode -> Double -> m () -noteOn self when = liftIO (js_noteOn (self) when) - -foreign import javascript unsafe "$1[\"noteOff\"]($2)" js_noteOff - :: OscillatorNode -> Double -> IO () - --- | -noteOff :: (MonadIO m) => OscillatorNode -> Double -> m () -noteOff self when = liftIO (js_noteOff (self) when) - -foreign import javascript unsafe "$1[\"setPeriodicWave\"]($2)" - js_setPeriodicWave :: - OscillatorNode -> Nullable PeriodicWave -> IO () - --- | -setPeriodicWave :: - (MonadIO m) => OscillatorNode -> Maybe PeriodicWave -> m () -setPeriodicWave self wave - = liftIO (js_setPeriodicWave (self) (maybeToNullable wave)) -pattern SINE = 0 -pattern SQUARE = 1 -pattern SAWTOOTH = 2 -pattern TRIANGLE = 3 -pattern CUSTOM = 4 -pattern UNSCHEDULED_STATE = 0 -pattern SCHEDULED_STATE = 1 -pattern PLAYING_STATE = 2 -pattern FINISHED_STATE = 3 - -foreign import javascript unsafe "$1[\"type\"] = $2;" js_setType :: - OscillatorNode -> JSString -> IO () - --- | -setType :: - (MonadIO m, ToJSString val) => OscillatorNode -> val -> m () -setType self val = liftIO (js_setType (self) (toJSString val)) - -foreign import javascript unsafe "$1[\"type\"]" js_getType :: - OscillatorNode -> IO JSString - --- | -getType :: - (MonadIO m, FromJSString result) => OscillatorNode -> m result -getType self = liftIO (fromJSString <$> (js_getType (self))) - -foreign import javascript unsafe "$1[\"playbackState\"]" - js_getPlaybackState :: OscillatorNode -> IO Word - --- | -getPlaybackState :: (MonadIO m) => OscillatorNode -> m Word -getPlaybackState self = liftIO (js_getPlaybackState (self)) - -foreign import javascript unsafe "$1[\"frequency\"]" - js_getFrequency :: OscillatorNode -> IO (Nullable AudioParam) - --- | -getFrequency :: - (MonadIO m) => OscillatorNode -> m (Maybe AudioParam) -getFrequency self - = liftIO (nullableToMaybe <$> (js_getFrequency (self))) - -foreign import javascript unsafe "$1[\"detune\"]" js_getDetune :: - OscillatorNode -> IO (Nullable AudioParam) - --- | -getDetune :: (MonadIO m) => OscillatorNode -> m (Maybe AudioParam) -getDetune self = liftIO (nullableToMaybe <$> (js_getDetune (self))) - --- | -ended :: EventName OscillatorNode Event -ended = unsafeEventName (toJSString "ended") diff --git a/src/GHCJS/DOM/JSFFI/Generated/OverflowEvent.hs b/src/GHCJS/DOM/JSFFI/Generated/OverflowEvent.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/OverflowEvent.hs +++ /dev/null @@ -1,48 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.OverflowEvent - (pattern HORIZONTAL, pattern VERTICAL, pattern BOTH, js_getOrient, - getOrient, js_getHorizontalOverflow, getHorizontalOverflow, - js_getVerticalOverflow, getVerticalOverflow, OverflowEvent, - castToOverflowEvent, gTypeOverflowEvent) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums -pattern HORIZONTAL = 0 -pattern VERTICAL = 1 -pattern BOTH = 2 - -foreign import javascript unsafe "$1[\"orient\"]" js_getOrient :: - OverflowEvent -> IO Word - --- | -getOrient :: (MonadIO m) => OverflowEvent -> m Word -getOrient self = liftIO (js_getOrient (self)) - -foreign import javascript unsafe - "($1[\"horizontalOverflow\"] ? 1 : 0)" js_getHorizontalOverflow :: - OverflowEvent -> IO Bool - --- | -getHorizontalOverflow :: (MonadIO m) => OverflowEvent -> m Bool -getHorizontalOverflow self - = liftIO (js_getHorizontalOverflow (self)) - -foreign import javascript unsafe - "($1[\"verticalOverflow\"] ? 1 : 0)" js_getVerticalOverflow :: - OverflowEvent -> IO Bool - --- | -getVerticalOverflow :: (MonadIO m) => OverflowEvent -> m Bool -getVerticalOverflow self = liftIO (js_getVerticalOverflow (self)) diff --git a/src/GHCJS/DOM/JSFFI/Generated/PageTransitionEvent.hs b/src/GHCJS/DOM/JSFFI/Generated/PageTransitionEvent.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/PageTransitionEvent.hs +++ /dev/null @@ -1,26 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.PageTransitionEvent - (js_getPersisted, getPersisted, PageTransitionEvent, - castToPageTransitionEvent, gTypePageTransitionEvent) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "($1[\"persisted\"] ? 1 : 0)" - js_getPersisted :: PageTransitionEvent -> IO Bool - --- | -getPersisted :: (MonadIO m) => PageTransitionEvent -> m Bool -getPersisted self = liftIO (js_getPersisted (self)) diff --git a/src/GHCJS/DOM/JSFFI/Generated/PannerNode.hs b/src/GHCJS/DOM/JSFFI/Generated/PannerNode.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/PannerNode.hs +++ /dev/null @@ -1,186 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.PannerNode - (js_setPosition, setPosition, js_setOrientation, setOrientation, - js_setVelocity, setVelocity, pattern EQUALPOWER, pattern HRTF, - pattern SOUNDFIELD, pattern LINEAR_DISTANCE, - pattern INVERSE_DISTANCE, pattern EXPONENTIAL_DISTANCE, - js_setPanningModel, setPanningModel, js_getPanningModel, - getPanningModel, js_setDistanceModel, setDistanceModel, - js_getDistanceModel, getDistanceModel, js_setRefDistance, - setRefDistance, js_getRefDistance, getRefDistance, - js_setMaxDistance, setMaxDistance, js_getMaxDistance, - getMaxDistance, js_setRolloffFactor, setRolloffFactor, - js_getRolloffFactor, getRolloffFactor, js_setConeInnerAngle, - setConeInnerAngle, js_getConeInnerAngle, getConeInnerAngle, - js_setConeOuterAngle, setConeOuterAngle, js_getConeOuterAngle, - getConeOuterAngle, js_setConeOuterGain, setConeOuterGain, - js_getConeOuterGain, getConeOuterGain, PannerNode, - castToPannerNode, gTypePannerNode) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"setPosition\"]($2, $3, $4)" - js_setPosition :: PannerNode -> Float -> Float -> Float -> IO () - --- | -setPosition :: - (MonadIO m) => PannerNode -> Float -> Float -> Float -> m () -setPosition self x y z = liftIO (js_setPosition (self) x y z) - -foreign import javascript unsafe - "$1[\"setOrientation\"]($2, $3, $4)" js_setOrientation :: - PannerNode -> Float -> Float -> Float -> IO () - --- | -setOrientation :: - (MonadIO m) => PannerNode -> Float -> Float -> Float -> m () -setOrientation self x y z = liftIO (js_setOrientation (self) x y z) - -foreign import javascript unsafe "$1[\"setVelocity\"]($2, $3, $4)" - js_setVelocity :: PannerNode -> Float -> Float -> Float -> IO () - --- | -setVelocity :: - (MonadIO m) => PannerNode -> Float -> Float -> Float -> m () -setVelocity self x y z = liftIO (js_setVelocity (self) x y z) -pattern EQUALPOWER = 0 -pattern HRTF = 1 -pattern SOUNDFIELD = 2 -pattern LINEAR_DISTANCE = 0 -pattern INVERSE_DISTANCE = 1 -pattern EXPONENTIAL_DISTANCE = 2 - -foreign import javascript unsafe "$1[\"panningModel\"] = $2;" - js_setPanningModel :: PannerNode -> JSString -> IO () - --- | -setPanningModel :: - (MonadIO m, ToJSString val) => PannerNode -> val -> m () -setPanningModel self val - = liftIO (js_setPanningModel (self) (toJSString val)) - -foreign import javascript unsafe "$1[\"panningModel\"]" - js_getPanningModel :: PannerNode -> IO JSString - --- | -getPanningModel :: - (MonadIO m, FromJSString result) => PannerNode -> m result -getPanningModel self - = liftIO (fromJSString <$> (js_getPanningModel (self))) - -foreign import javascript unsafe "$1[\"distanceModel\"] = $2;" - js_setDistanceModel :: PannerNode -> JSString -> IO () - --- | -setDistanceModel :: - (MonadIO m, ToJSString val) => PannerNode -> val -> m () -setDistanceModel self val - = liftIO (js_setDistanceModel (self) (toJSString val)) - -foreign import javascript unsafe "$1[\"distanceModel\"]" - js_getDistanceModel :: PannerNode -> IO JSString - --- | -getDistanceModel :: - (MonadIO m, FromJSString result) => PannerNode -> m result -getDistanceModel self - = liftIO (fromJSString <$> (js_getDistanceModel (self))) - -foreign import javascript unsafe "$1[\"refDistance\"] = $2;" - js_setRefDistance :: PannerNode -> Double -> IO () - --- | -setRefDistance :: (MonadIO m) => PannerNode -> Double -> m () -setRefDistance self val = liftIO (js_setRefDistance (self) val) - -foreign import javascript unsafe "$1[\"refDistance\"]" - js_getRefDistance :: PannerNode -> IO Double - --- | -getRefDistance :: (MonadIO m) => PannerNode -> m Double -getRefDistance self = liftIO (js_getRefDistance (self)) - -foreign import javascript unsafe "$1[\"maxDistance\"] = $2;" - js_setMaxDistance :: PannerNode -> Double -> IO () - --- | -setMaxDistance :: (MonadIO m) => PannerNode -> Double -> m () -setMaxDistance self val = liftIO (js_setMaxDistance (self) val) - -foreign import javascript unsafe "$1[\"maxDistance\"]" - js_getMaxDistance :: PannerNode -> IO Double - --- | -getMaxDistance :: (MonadIO m) => PannerNode -> m Double -getMaxDistance self = liftIO (js_getMaxDistance (self)) - -foreign import javascript unsafe "$1[\"rolloffFactor\"] = $2;" - js_setRolloffFactor :: PannerNode -> Double -> IO () - --- | -setRolloffFactor :: (MonadIO m) => PannerNode -> Double -> m () -setRolloffFactor self val = liftIO (js_setRolloffFactor (self) val) - -foreign import javascript unsafe "$1[\"rolloffFactor\"]" - js_getRolloffFactor :: PannerNode -> IO Double - --- | -getRolloffFactor :: (MonadIO m) => PannerNode -> m Double -getRolloffFactor self = liftIO (js_getRolloffFactor (self)) - -foreign import javascript unsafe "$1[\"coneInnerAngle\"] = $2;" - js_setConeInnerAngle :: PannerNode -> Double -> IO () - --- | -setConeInnerAngle :: (MonadIO m) => PannerNode -> Double -> m () -setConeInnerAngle self val - = liftIO (js_setConeInnerAngle (self) val) - -foreign import javascript unsafe "$1[\"coneInnerAngle\"]" - js_getConeInnerAngle :: PannerNode -> IO Double - --- | -getConeInnerAngle :: (MonadIO m) => PannerNode -> m Double -getConeInnerAngle self = liftIO (js_getConeInnerAngle (self)) - -foreign import javascript unsafe "$1[\"coneOuterAngle\"] = $2;" - js_setConeOuterAngle :: PannerNode -> Double -> IO () - --- | -setConeOuterAngle :: (MonadIO m) => PannerNode -> Double -> m () -setConeOuterAngle self val - = liftIO (js_setConeOuterAngle (self) val) - -foreign import javascript unsafe "$1[\"coneOuterAngle\"]" - js_getConeOuterAngle :: PannerNode -> IO Double - --- | -getConeOuterAngle :: (MonadIO m) => PannerNode -> m Double -getConeOuterAngle self = liftIO (js_getConeOuterAngle (self)) - -foreign import javascript unsafe "$1[\"coneOuterGain\"] = $2;" - js_setConeOuterGain :: PannerNode -> Double -> IO () - --- | -setConeOuterGain :: (MonadIO m) => PannerNode -> Double -> m () -setConeOuterGain self val = liftIO (js_setConeOuterGain (self) val) - -foreign import javascript unsafe "$1[\"coneOuterGain\"]" - js_getConeOuterGain :: PannerNode -> IO Double - --- | -getConeOuterGain :: (MonadIO m) => PannerNode -> m Double -getConeOuterGain self = liftIO (js_getConeOuterGain (self)) diff --git a/src/GHCJS/DOM/JSFFI/Generated/Path2D.hs b/src/GHCJS/DOM/JSFFI/Generated/Path2D.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/Path2D.hs +++ /dev/null @@ -1,134 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.Path2D - (js_newPath2D, newPath2D, js_newPath2D', newPath2D', - js_newPath2D'', newPath2D'', js_addPath, addPath, js_closePath, - closePath, js_moveTo, moveTo, js_lineTo, lineTo, - js_quadraticCurveTo, quadraticCurveTo, js_bezierCurveTo, - bezierCurveTo, js_arcTo, arcTo, js_rect, rect, js_arc, arc, Path2D, - castToPath2D, gTypePath2D) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "new window[\"Path2D\"]()" - js_newPath2D :: IO Path2D - --- | -newPath2D :: (MonadIO m) => m Path2D -newPath2D = liftIO (js_newPath2D) - -foreign import javascript unsafe "new window[\"Path2D\"]($1)" - js_newPath2D' :: Nullable Path2D -> IO Path2D - --- | -newPath2D' :: (MonadIO m) => Maybe Path2D -> m Path2D -newPath2D' path = liftIO (js_newPath2D' (maybeToNullable path)) - -foreign import javascript unsafe "new window[\"Path2D\"]($1)" - js_newPath2D'' :: JSString -> IO Path2D - --- | -newPath2D'' :: (MonadIO m, ToJSString text) => text -> m Path2D -newPath2D'' text = liftIO (js_newPath2D'' (toJSString text)) - -foreign import javascript unsafe "$1[\"addPath\"]($2, $3)" - js_addPath :: - Path2D -> Nullable Path2D -> Nullable SVGMatrix -> IO () - --- | -addPath :: - (MonadIO m) => Path2D -> Maybe Path2D -> Maybe SVGMatrix -> m () -addPath self path transform - = liftIO - (js_addPath (self) (maybeToNullable path) - (maybeToNullable transform)) - -foreign import javascript unsafe "$1[\"closePath\"]()" js_closePath - :: Path2D -> IO () - --- | -closePath :: (MonadIO m) => Path2D -> m () -closePath self = liftIO (js_closePath (self)) - -foreign import javascript unsafe "$1[\"moveTo\"]($2, $3)" js_moveTo - :: Path2D -> Float -> Float -> IO () - --- | -moveTo :: (MonadIO m) => Path2D -> Float -> Float -> m () -moveTo self x y = liftIO (js_moveTo (self) x y) - -foreign import javascript unsafe "$1[\"lineTo\"]($2, $3)" js_lineTo - :: Path2D -> Float -> Float -> IO () - --- | -lineTo :: (MonadIO m) => Path2D -> Float -> Float -> m () -lineTo self x y = liftIO (js_lineTo (self) x y) - -foreign import javascript unsafe - "$1[\"quadraticCurveTo\"]($2, $3,\n$4, $5)" js_quadraticCurveTo :: - Path2D -> Float -> Float -> Float -> Float -> IO () - --- | -quadraticCurveTo :: - (MonadIO m) => Path2D -> Float -> Float -> Float -> Float -> m () -quadraticCurveTo self cpx cpy x y - = liftIO (js_quadraticCurveTo (self) cpx cpy x y) - -foreign import javascript unsafe - "$1[\"bezierCurveTo\"]($2, $3, $4,\n$5, $6, $7)" js_bezierCurveTo - :: - Path2D -> - Float -> Float -> Float -> Float -> Float -> Float -> IO () - --- | -bezierCurveTo :: - (MonadIO m) => - Path2D -> - Float -> Float -> Float -> Float -> Float -> Float -> m () -bezierCurveTo self cp1x cp1y cp2x cp2y x y - = liftIO (js_bezierCurveTo (self) cp1x cp1y cp2x cp2y x y) - -foreign import javascript unsafe - "$1[\"arcTo\"]($2, $3, $4, $5, $6)" js_arcTo :: - Path2D -> Float -> Float -> Float -> Float -> Float -> IO () - --- | -arcTo :: - (MonadIO m) => - Path2D -> Float -> Float -> Float -> Float -> Float -> m () -arcTo self x1 y1 x2 y2 radius - = liftIO (js_arcTo (self) x1 y1 x2 y2 radius) - -foreign import javascript unsafe "$1[\"rect\"]($2, $3, $4, $5)" - js_rect :: Path2D -> Float -> Float -> Float -> Float -> IO () - --- | -rect :: - (MonadIO m) => Path2D -> Float -> Float -> Float -> Float -> m () -rect self x y width height - = liftIO (js_rect (self) x y width height) - -foreign import javascript unsafe - "$1[\"arc\"]($2, $3, $4, $5, $6,\n$7)" js_arc :: - Path2D -> - Float -> Float -> Float -> Float -> Float -> Bool -> IO () - --- | -arc :: - (MonadIO m) => - Path2D -> Float -> Float -> Float -> Float -> Float -> Bool -> m () -arc self x y radius startAngle endAngle anticlockwise - = liftIO - (js_arc (self) x y radius startAngle endAngle anticlockwise) diff --git a/src/GHCJS/DOM/JSFFI/Generated/Performance.hs b/src/GHCJS/DOM/JSFFI/Generated/Performance.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/Performance.hs +++ /dev/null @@ -1,159 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.Performance - (js_webkitGetEntries, webkitGetEntries, js_webkitGetEntriesByType, - webkitGetEntriesByType, js_webkitGetEntriesByName, - webkitGetEntriesByName, js_webkitClearResourceTimings, - webkitClearResourceTimings, js_webkitSetResourceTimingBufferSize, - webkitSetResourceTimingBufferSize, js_webkitMark, webkitMark, - js_webkitClearMarks, webkitClearMarks, js_webkitMeasure, - webkitMeasure, js_webkitClearMeasures, webkitClearMeasures, js_now, - now, js_getNavigation, getNavigation, js_getTiming, getTiming, - webKitResourceTimingBufferFull, Performance, castToPerformance, - gTypePerformance) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"webkitGetEntries\"]()" - js_webkitGetEntries :: - Performance -> IO (Nullable PerformanceEntryList) - --- | -webkitGetEntries :: - (MonadIO m) => Performance -> m (Maybe PerformanceEntryList) -webkitGetEntries self - = liftIO (nullableToMaybe <$> (js_webkitGetEntries (self))) - -foreign import javascript unsafe - "$1[\"webkitGetEntriesByType\"]($2)" js_webkitGetEntriesByType :: - Performance -> JSString -> IO (Nullable PerformanceEntryList) - --- | -webkitGetEntriesByType :: - (MonadIO m, ToJSString entryType) => - Performance -> entryType -> m (Maybe PerformanceEntryList) -webkitGetEntriesByType self entryType - = liftIO - (nullableToMaybe <$> - (js_webkitGetEntriesByType (self) (toJSString entryType))) - -foreign import javascript unsafe - "$1[\"webkitGetEntriesByName\"]($2,\n$3)" js_webkitGetEntriesByName - :: - Performance -> - JSString -> JSString -> IO (Nullable PerformanceEntryList) - --- | -webkitGetEntriesByName :: - (MonadIO m, ToJSString name, ToJSString entryType) => - Performance -> name -> entryType -> m (Maybe PerformanceEntryList) -webkitGetEntriesByName self name entryType - = liftIO - (nullableToMaybe <$> - (js_webkitGetEntriesByName (self) (toJSString name) - (toJSString entryType))) - -foreign import javascript unsafe - "$1[\"webkitClearResourceTimings\"]()" - js_webkitClearResourceTimings :: Performance -> IO () - --- | -webkitClearResourceTimings :: (MonadIO m) => Performance -> m () -webkitClearResourceTimings self - = liftIO (js_webkitClearResourceTimings (self)) - -foreign import javascript unsafe - "$1[\"webkitSetResourceTimingBufferSize\"]($2)" - js_webkitSetResourceTimingBufferSize :: - Performance -> Word -> IO () - --- | -webkitSetResourceTimingBufferSize :: - (MonadIO m) => Performance -> Word -> m () -webkitSetResourceTimingBufferSize self maxSize - = liftIO (js_webkitSetResourceTimingBufferSize (self) maxSize) - -foreign import javascript unsafe "$1[\"webkitMark\"]($2)" - js_webkitMark :: Performance -> JSString -> IO () - --- | -webkitMark :: - (MonadIO m, ToJSString markName) => Performance -> markName -> m () -webkitMark self markName - = liftIO (js_webkitMark (self) (toJSString markName)) - -foreign import javascript unsafe "$1[\"webkitClearMarks\"]($2)" - js_webkitClearMarks :: Performance -> JSString -> IO () - --- | -webkitClearMarks :: - (MonadIO m, ToJSString markName) => Performance -> markName -> m () -webkitClearMarks self markName - = liftIO (js_webkitClearMarks (self) (toJSString markName)) - -foreign import javascript unsafe - "$1[\"webkitMeasure\"]($2, $3, $4)" js_webkitMeasure :: - Performance -> JSString -> JSString -> JSString -> IO () - --- | -webkitMeasure :: - (MonadIO m, ToJSString measureName, ToJSString startMark, - ToJSString endMark) => - Performance -> measureName -> startMark -> endMark -> m () -webkitMeasure self measureName startMark endMark - = liftIO - (js_webkitMeasure (self) (toJSString measureName) - (toJSString startMark) - (toJSString endMark)) - -foreign import javascript unsafe "$1[\"webkitClearMeasures\"]($2)" - js_webkitClearMeasures :: Performance -> JSString -> IO () - --- | -webkitClearMeasures :: - (MonadIO m, ToJSString measureName) => - Performance -> measureName -> m () -webkitClearMeasures self measureName - = liftIO (js_webkitClearMeasures (self) (toJSString measureName)) - -foreign import javascript unsafe "$1[\"now\"]()" js_now :: - Performance -> IO Double - --- | -now :: (MonadIO m) => Performance -> m Double -now self = liftIO (js_now (self)) - -foreign import javascript unsafe "$1[\"navigation\"]" - js_getNavigation :: - Performance -> IO (Nullable PerformanceNavigation) - --- | -getNavigation :: - (MonadIO m) => Performance -> m (Maybe PerformanceNavigation) -getNavigation self - = liftIO (nullableToMaybe <$> (js_getNavigation (self))) - -foreign import javascript unsafe "$1[\"timing\"]" js_getTiming :: - Performance -> IO (Nullable PerformanceTiming) - --- | -getTiming :: - (MonadIO m) => Performance -> m (Maybe PerformanceTiming) -getTiming self = liftIO (nullableToMaybe <$> (js_getTiming (self))) - --- | -webKitResourceTimingBufferFull :: EventName Performance Event -webKitResourceTimingBufferFull - = unsafeEventName (toJSString "webkitresourcetimingbufferfull") diff --git a/src/GHCJS/DOM/JSFFI/Generated/PerformanceEntry.hs b/src/GHCJS/DOM/JSFFI/Generated/PerformanceEntry.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/PerformanceEntry.hs +++ /dev/null @@ -1,60 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.PerformanceEntry - (js_getName, getName, js_getEntryType, getEntryType, - js_getStartTime, getStartTime, js_getDuration, getDuration, - PerformanceEntry, castToPerformanceEntry, gTypePerformanceEntry, - IsPerformanceEntry, toPerformanceEntry) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"name\"]" js_getName :: - PerformanceEntry -> IO JSString - --- | -getName :: - (MonadIO m, IsPerformanceEntry self, FromJSString result) => - self -> m result -getName self - = liftIO (fromJSString <$> (js_getName (toPerformanceEntry self))) - -foreign import javascript unsafe "$1[\"entryType\"]" - js_getEntryType :: PerformanceEntry -> IO JSString - --- | -getEntryType :: - (MonadIO m, IsPerformanceEntry self, FromJSString result) => - self -> m result -getEntryType self - = liftIO - (fromJSString <$> (js_getEntryType (toPerformanceEntry self))) - -foreign import javascript unsafe "$1[\"startTime\"]" - js_getStartTime :: PerformanceEntry -> IO Double - --- | -getStartTime :: - (MonadIO m, IsPerformanceEntry self) => self -> m Double -getStartTime self - = liftIO (js_getStartTime (toPerformanceEntry self)) - -foreign import javascript unsafe "$1[\"duration\"]" js_getDuration - :: PerformanceEntry -> IO Double - --- | -getDuration :: - (MonadIO m, IsPerformanceEntry self) => self -> m Double -getDuration self - = liftIO (js_getDuration (toPerformanceEntry self)) diff --git a/src/GHCJS/DOM/JSFFI/Generated/PerformanceEntryList.hs b/src/GHCJS/DOM/JSFFI/Generated/PerformanceEntryList.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/PerformanceEntryList.hs +++ /dev/null @@ -1,36 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.PerformanceEntryList - (js_item, item, js_getLength, getLength, PerformanceEntryList, - castToPerformanceEntryList, gTypePerformanceEntryList) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"item\"]($2)" js_item :: - PerformanceEntryList -> Word -> IO (Nullable PerformanceEntry) - --- | -item :: - (MonadIO m) => - PerformanceEntryList -> Word -> m (Maybe PerformanceEntry) -item self index - = liftIO (nullableToMaybe <$> (js_item (self) index)) - -foreign import javascript unsafe "$1[\"length\"]" js_getLength :: - PerformanceEntryList -> IO Word - --- | -getLength :: (MonadIO m) => PerformanceEntryList -> m Word -getLength self = liftIO (js_getLength (self)) diff --git a/src/GHCJS/DOM/JSFFI/Generated/PerformanceNavigation.hs b/src/GHCJS/DOM/JSFFI/Generated/PerformanceNavigation.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/PerformanceNavigation.hs +++ /dev/null @@ -1,40 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.PerformanceNavigation - (pattern TYPE_NAVIGATE, pattern TYPE_RELOAD, - pattern TYPE_BACK_FORWARD, pattern TYPE_RESERVED, js_getType, - getType, js_getRedirectCount, getRedirectCount, - PerformanceNavigation, castToPerformanceNavigation, - gTypePerformanceNavigation) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums -pattern TYPE_NAVIGATE = 0 -pattern TYPE_RELOAD = 1 -pattern TYPE_BACK_FORWARD = 2 -pattern TYPE_RESERVED = 255 - -foreign import javascript unsafe "$1[\"type\"]" js_getType :: - PerformanceNavigation -> IO Word - --- | -getType :: (MonadIO m) => PerformanceNavigation -> m Word -getType self = liftIO (js_getType (self)) - -foreign import javascript unsafe "$1[\"redirectCount\"]" - js_getRedirectCount :: PerformanceNavigation -> IO Word - --- | -getRedirectCount :: (MonadIO m) => PerformanceNavigation -> m Word -getRedirectCount self = liftIO (js_getRedirectCount (self)) diff --git a/src/GHCJS/DOM/JSFFI/Generated/PerformanceResourceTiming.hs b/src/GHCJS/DOM/JSFFI/Generated/PerformanceResourceTiming.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/PerformanceResourceTiming.hs +++ /dev/null @@ -1,118 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.PerformanceResourceTiming - (js_getInitiatorType, getInitiatorType, js_getRedirectStart, - getRedirectStart, js_getRedirectEnd, getRedirectEnd, - js_getFetchStart, getFetchStart, js_getDomainLookupStart, - getDomainLookupStart, js_getDomainLookupEnd, getDomainLookupEnd, - js_getConnectStart, getConnectStart, js_getConnectEnd, - getConnectEnd, js_getSecureConnectionStart, - getSecureConnectionStart, js_getRequestStart, getRequestStart, - js_getResponseEnd, getResponseEnd, PerformanceResourceTiming, - castToPerformanceResourceTiming, gTypePerformanceResourceTiming) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"initiatorType\"]" - js_getInitiatorType :: PerformanceResourceTiming -> IO JSString - --- | -getInitiatorType :: - (MonadIO m, FromJSString result) => - PerformanceResourceTiming -> m result -getInitiatorType self - = liftIO (fromJSString <$> (js_getInitiatorType (self))) - -foreign import javascript unsafe "$1[\"redirectStart\"]" - js_getRedirectStart :: PerformanceResourceTiming -> IO Double - --- | -getRedirectStart :: - (MonadIO m) => PerformanceResourceTiming -> m Double -getRedirectStart self = liftIO (js_getRedirectStart (self)) - -foreign import javascript unsafe "$1[\"redirectEnd\"]" - js_getRedirectEnd :: PerformanceResourceTiming -> IO Double - --- | -getRedirectEnd :: - (MonadIO m) => PerformanceResourceTiming -> m Double -getRedirectEnd self = liftIO (js_getRedirectEnd (self)) - -foreign import javascript unsafe "$1[\"fetchStart\"]" - js_getFetchStart :: PerformanceResourceTiming -> IO Double - --- | -getFetchStart :: - (MonadIO m) => PerformanceResourceTiming -> m Double -getFetchStart self = liftIO (js_getFetchStart (self)) - -foreign import javascript unsafe "$1[\"domainLookupStart\"]" - js_getDomainLookupStart :: PerformanceResourceTiming -> IO Double - --- | -getDomainLookupStart :: - (MonadIO m) => PerformanceResourceTiming -> m Double -getDomainLookupStart self = liftIO (js_getDomainLookupStart (self)) - -foreign import javascript unsafe "$1[\"domainLookupEnd\"]" - js_getDomainLookupEnd :: PerformanceResourceTiming -> IO Double - --- | -getDomainLookupEnd :: - (MonadIO m) => PerformanceResourceTiming -> m Double -getDomainLookupEnd self = liftIO (js_getDomainLookupEnd (self)) - -foreign import javascript unsafe "$1[\"connectStart\"]" - js_getConnectStart :: PerformanceResourceTiming -> IO Double - --- | -getConnectStart :: - (MonadIO m) => PerformanceResourceTiming -> m Double -getConnectStart self = liftIO (js_getConnectStart (self)) - -foreign import javascript unsafe "$1[\"connectEnd\"]" - js_getConnectEnd :: PerformanceResourceTiming -> IO Double - --- | -getConnectEnd :: - (MonadIO m) => PerformanceResourceTiming -> m Double -getConnectEnd self = liftIO (js_getConnectEnd (self)) - -foreign import javascript unsafe "$1[\"secureConnectionStart\"]" - js_getSecureConnectionStart :: - PerformanceResourceTiming -> IO Double - --- | -getSecureConnectionStart :: - (MonadIO m) => PerformanceResourceTiming -> m Double -getSecureConnectionStart self - = liftIO (js_getSecureConnectionStart (self)) - -foreign import javascript unsafe "$1[\"requestStart\"]" - js_getRequestStart :: PerformanceResourceTiming -> IO Double - --- | -getRequestStart :: - (MonadIO m) => PerformanceResourceTiming -> m Double -getRequestStart self = liftIO (js_getRequestStart (self)) - -foreign import javascript unsafe "$1[\"responseEnd\"]" - js_getResponseEnd :: PerformanceResourceTiming -> IO Double - --- | -getResponseEnd :: - (MonadIO m) => PerformanceResourceTiming -> m Double -getResponseEnd self = liftIO (js_getResponseEnd (self)) diff --git a/src/GHCJS/DOM/JSFFI/Generated/PerformanceTiming.hs b/src/GHCJS/DOM/JSFFI/Generated/PerformanceTiming.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/PerformanceTiming.hs +++ /dev/null @@ -1,201 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.PerformanceTiming - (js_getNavigationStart, getNavigationStart, js_getUnloadEventStart, - getUnloadEventStart, js_getUnloadEventEnd, getUnloadEventEnd, - js_getRedirectStart, getRedirectStart, js_getRedirectEnd, - getRedirectEnd, js_getFetchStart, getFetchStart, - js_getDomainLookupStart, getDomainLookupStart, - js_getDomainLookupEnd, getDomainLookupEnd, js_getConnectStart, - getConnectStart, js_getConnectEnd, getConnectEnd, - js_getSecureConnectionStart, getSecureConnectionStart, - js_getRequestStart, getRequestStart, js_getResponseStart, - getResponseStart, js_getResponseEnd, getResponseEnd, - js_getDomLoading, getDomLoading, js_getDomInteractive, - getDomInteractive, js_getDomContentLoadedEventStart, - getDomContentLoadedEventStart, js_getDomContentLoadedEventEnd, - getDomContentLoadedEventEnd, js_getDomComplete, getDomComplete, - js_getLoadEventStart, getLoadEventStart, js_getLoadEventEnd, - getLoadEventEnd, PerformanceTiming, castToPerformanceTiming, - gTypePerformanceTiming) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"navigationStart\"]" - js_getNavigationStart :: PerformanceTiming -> IO Double - --- | -getNavigationStart :: (MonadIO m) => PerformanceTiming -> m Word64 -getNavigationStart self - = liftIO (round <$> (js_getNavigationStart (self))) - -foreign import javascript unsafe "$1[\"unloadEventStart\"]" - js_getUnloadEventStart :: PerformanceTiming -> IO Double - --- | -getUnloadEventStart :: (MonadIO m) => PerformanceTiming -> m Word64 -getUnloadEventStart self - = liftIO (round <$> (js_getUnloadEventStart (self))) - -foreign import javascript unsafe "$1[\"unloadEventEnd\"]" - js_getUnloadEventEnd :: PerformanceTiming -> IO Double - --- | -getUnloadEventEnd :: (MonadIO m) => PerformanceTiming -> m Word64 -getUnloadEventEnd self - = liftIO (round <$> (js_getUnloadEventEnd (self))) - -foreign import javascript unsafe "$1[\"redirectStart\"]" - js_getRedirectStart :: PerformanceTiming -> IO Double - --- | -getRedirectStart :: (MonadIO m) => PerformanceTiming -> m Word64 -getRedirectStart self - = liftIO (round <$> (js_getRedirectStart (self))) - -foreign import javascript unsafe "$1[\"redirectEnd\"]" - js_getRedirectEnd :: PerformanceTiming -> IO Double - --- | -getRedirectEnd :: (MonadIO m) => PerformanceTiming -> m Word64 -getRedirectEnd self = liftIO (round <$> (js_getRedirectEnd (self))) - -foreign import javascript unsafe "$1[\"fetchStart\"]" - js_getFetchStart :: PerformanceTiming -> IO Double - --- | -getFetchStart :: (MonadIO m) => PerformanceTiming -> m Word64 -getFetchStart self = liftIO (round <$> (js_getFetchStart (self))) - -foreign import javascript unsafe "$1[\"domainLookupStart\"]" - js_getDomainLookupStart :: PerformanceTiming -> IO Double - --- | -getDomainLookupStart :: - (MonadIO m) => PerformanceTiming -> m Word64 -getDomainLookupStart self - = liftIO (round <$> (js_getDomainLookupStart (self))) - -foreign import javascript unsafe "$1[\"domainLookupEnd\"]" - js_getDomainLookupEnd :: PerformanceTiming -> IO Double - --- | -getDomainLookupEnd :: (MonadIO m) => PerformanceTiming -> m Word64 -getDomainLookupEnd self - = liftIO (round <$> (js_getDomainLookupEnd (self))) - -foreign import javascript unsafe "$1[\"connectStart\"]" - js_getConnectStart :: PerformanceTiming -> IO Double - --- | -getConnectStart :: (MonadIO m) => PerformanceTiming -> m Word64 -getConnectStart self - = liftIO (round <$> (js_getConnectStart (self))) - -foreign import javascript unsafe "$1[\"connectEnd\"]" - js_getConnectEnd :: PerformanceTiming -> IO Double - --- | -getConnectEnd :: (MonadIO m) => PerformanceTiming -> m Word64 -getConnectEnd self = liftIO (round <$> (js_getConnectEnd (self))) - -foreign import javascript unsafe "$1[\"secureConnectionStart\"]" - js_getSecureConnectionStart :: PerformanceTiming -> IO Double - --- | -getSecureConnectionStart :: - (MonadIO m) => PerformanceTiming -> m Word64 -getSecureConnectionStart self - = liftIO (round <$> (js_getSecureConnectionStart (self))) - -foreign import javascript unsafe "$1[\"requestStart\"]" - js_getRequestStart :: PerformanceTiming -> IO Double - --- | -getRequestStart :: (MonadIO m) => PerformanceTiming -> m Word64 -getRequestStart self - = liftIO (round <$> (js_getRequestStart (self))) - -foreign import javascript unsafe "$1[\"responseStart\"]" - js_getResponseStart :: PerformanceTiming -> IO Double - --- | -getResponseStart :: (MonadIO m) => PerformanceTiming -> m Word64 -getResponseStart self - = liftIO (round <$> (js_getResponseStart (self))) - -foreign import javascript unsafe "$1[\"responseEnd\"]" - js_getResponseEnd :: PerformanceTiming -> IO Double - --- | -getResponseEnd :: (MonadIO m) => PerformanceTiming -> m Word64 -getResponseEnd self = liftIO (round <$> (js_getResponseEnd (self))) - -foreign import javascript unsafe "$1[\"domLoading\"]" - js_getDomLoading :: PerformanceTiming -> IO Double - --- | -getDomLoading :: (MonadIO m) => PerformanceTiming -> m Word64 -getDomLoading self = liftIO (round <$> (js_getDomLoading (self))) - -foreign import javascript unsafe "$1[\"domInteractive\"]" - js_getDomInteractive :: PerformanceTiming -> IO Double - --- | -getDomInteractive :: (MonadIO m) => PerformanceTiming -> m Word64 -getDomInteractive self - = liftIO (round <$> (js_getDomInteractive (self))) - -foreign import javascript unsafe - "$1[\"domContentLoadedEventStart\"]" - js_getDomContentLoadedEventStart :: PerformanceTiming -> IO Double - --- | -getDomContentLoadedEventStart :: - (MonadIO m) => PerformanceTiming -> m Word64 -getDomContentLoadedEventStart self - = liftIO (round <$> (js_getDomContentLoadedEventStart (self))) - -foreign import javascript unsafe "$1[\"domContentLoadedEventEnd\"]" - js_getDomContentLoadedEventEnd :: PerformanceTiming -> IO Double - --- | -getDomContentLoadedEventEnd :: - (MonadIO m) => PerformanceTiming -> m Word64 -getDomContentLoadedEventEnd self - = liftIO (round <$> (js_getDomContentLoadedEventEnd (self))) - -foreign import javascript unsafe "$1[\"domComplete\"]" - js_getDomComplete :: PerformanceTiming -> IO Double - --- | -getDomComplete :: (MonadIO m) => PerformanceTiming -> m Word64 -getDomComplete self = liftIO (round <$> (js_getDomComplete (self))) - -foreign import javascript unsafe "$1[\"loadEventStart\"]" - js_getLoadEventStart :: PerformanceTiming -> IO Double - --- | -getLoadEventStart :: (MonadIO m) => PerformanceTiming -> m Word64 -getLoadEventStart self - = liftIO (round <$> (js_getLoadEventStart (self))) - -foreign import javascript unsafe "$1[\"loadEventEnd\"]" - js_getLoadEventEnd :: PerformanceTiming -> IO Double - --- | -getLoadEventEnd :: (MonadIO m) => PerformanceTiming -> m Word64 -getLoadEventEnd self - = liftIO (round <$> (js_getLoadEventEnd (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/Plugin.hs b/src/GHCJS/DOM/JSFFI/Generated/Plugin.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/Plugin.hs +++ /dev/null @@ -1,71 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.Plugin - (js_item, item, js_namedItem, namedItem, js_getName, getName, - js_getFilename, getFilename, js_getDescription, getDescription, - js_getLength, getLength, Plugin, castToPlugin, gTypePlugin) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"item\"]($2)" js_item :: - Plugin -> Word -> IO (Nullable MimeType) - --- | -item :: (MonadIO m) => Plugin -> Word -> m (Maybe MimeType) -item self index - = liftIO (nullableToMaybe <$> (js_item (self) index)) - -foreign import javascript unsafe "$1[\"namedItem\"]($2)" - js_namedItem :: Plugin -> JSString -> IO (Nullable MimeType) - --- | -namedItem :: - (MonadIO m, ToJSString name) => - Plugin -> name -> m (Maybe MimeType) -namedItem self name - = liftIO - (nullableToMaybe <$> (js_namedItem (self) (toJSString name))) - -foreign import javascript unsafe "$1[\"name\"]" js_getName :: - Plugin -> IO JSString - --- | -getName :: (MonadIO m, FromJSString result) => Plugin -> m result -getName self = liftIO (fromJSString <$> (js_getName (self))) - -foreign import javascript unsafe "$1[\"filename\"]" js_getFilename - :: Plugin -> IO JSString - --- | -getFilename :: - (MonadIO m, FromJSString result) => Plugin -> m result -getFilename self - = liftIO (fromJSString <$> (js_getFilename (self))) - -foreign import javascript unsafe "$1[\"description\"]" - js_getDescription :: Plugin -> IO JSString - --- | -getDescription :: - (MonadIO m, FromJSString result) => Plugin -> m result -getDescription self - = liftIO (fromJSString <$> (js_getDescription (self))) - -foreign import javascript unsafe "$1[\"length\"]" js_getLength :: - Plugin -> IO Word - --- | -getLength :: (MonadIO m) => Plugin -> m Word -getLength self = liftIO (js_getLength (self)) diff --git a/src/GHCJS/DOM/JSFFI/Generated/PluginArray.hs b/src/GHCJS/DOM/JSFFI/Generated/PluginArray.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/PluginArray.hs +++ /dev/null @@ -1,53 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.PluginArray - (js_item, item, js_namedItem, namedItem, js_refresh, refresh, - js_getLength, getLength, PluginArray, castToPluginArray, - gTypePluginArray) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"item\"]($2)" js_item :: - PluginArray -> Word -> IO (Nullable Plugin) - --- | -item :: (MonadIO m) => PluginArray -> Word -> m (Maybe Plugin) -item self index - = liftIO (nullableToMaybe <$> (js_item (self) index)) - -foreign import javascript unsafe "$1[\"namedItem\"]($2)" - js_namedItem :: PluginArray -> JSString -> IO (Nullable Plugin) - --- | -namedItem :: - (MonadIO m, ToJSString name) => - PluginArray -> name -> m (Maybe Plugin) -namedItem self name - = liftIO - (nullableToMaybe <$> (js_namedItem (self) (toJSString name))) - -foreign import javascript unsafe "$1[\"refresh\"]($2)" js_refresh - :: PluginArray -> Bool -> IO () - --- | -refresh :: (MonadIO m) => PluginArray -> Bool -> m () -refresh self reload = liftIO (js_refresh (self) reload) - -foreign import javascript unsafe "$1[\"length\"]" js_getLength :: - PluginArray -> IO Word - --- | -getLength :: (MonadIO m) => PluginArray -> m Word -getLength self = liftIO (js_getLength (self)) diff --git a/src/GHCJS/DOM/JSFFI/Generated/PopStateEvent.hs b/src/GHCJS/DOM/JSFFI/Generated/PopStateEvent.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/PopStateEvent.hs +++ /dev/null @@ -1,26 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.PopStateEvent - (js_getState, getState, PopStateEvent, castToPopStateEvent, - gTypePopStateEvent) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"state\"]" js_getState :: - PopStateEvent -> IO JSVal - --- | -getState :: (MonadIO m) => PopStateEvent -> m JSVal -getState self = liftIO (js_getState (self)) diff --git a/src/GHCJS/DOM/JSFFI/Generated/PositionCallback.hs b/src/GHCJS/DOM/JSFFI/Generated/PositionCallback.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/PositionCallback.hs +++ /dev/null @@ -1,49 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.PositionCallback - (newPositionCallback, newPositionCallbackSync, - newPositionCallbackAsync, PositionCallback) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - --- | -newPositionCallback :: - (MonadIO m) => (Maybe Geoposition -> IO ()) -> m PositionCallback -newPositionCallback callback - = liftIO - (PositionCallback <$> - syncCallback1 ThrowWouldBlock - (\ position -> - fromJSValUnchecked position >>= \ position' -> callback position')) - --- | -newPositionCallbackSync :: - (MonadIO m) => (Maybe Geoposition -> IO ()) -> m PositionCallback -newPositionCallbackSync callback - = liftIO - (PositionCallback <$> - syncCallback1 ContinueAsync - (\ position -> - fromJSValUnchecked position >>= \ position' -> callback position')) - --- | -newPositionCallbackAsync :: - (MonadIO m) => (Maybe Geoposition -> IO ()) -> m PositionCallback -newPositionCallbackAsync callback - = liftIO - (PositionCallback <$> - asyncCallback1 - (\ position -> - fromJSValUnchecked position >>= \ position' -> callback position')) diff --git a/src/GHCJS/DOM/JSFFI/Generated/PositionError.hs b/src/GHCJS/DOM/JSFFI/Generated/PositionError.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/PositionError.hs +++ /dev/null @@ -1,38 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.PositionError - (pattern PERMISSION_DENIED, pattern POSITION_UNAVAILABLE, - pattern TIMEOUT, js_getCode, getCode, js_getMessage, getMessage, - PositionError, castToPositionError, gTypePositionError) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums -pattern PERMISSION_DENIED = 1 -pattern POSITION_UNAVAILABLE = 2 -pattern TIMEOUT = 3 - -foreign import javascript unsafe "$1[\"code\"]" js_getCode :: - PositionError -> IO Word - --- | -getCode :: (MonadIO m) => PositionError -> m Word -getCode self = liftIO (js_getCode (self)) - -foreign import javascript unsafe "$1[\"message\"]" js_getMessage :: - PositionError -> IO JSString - --- | -getMessage :: - (MonadIO m, FromJSString result) => PositionError -> m result -getMessage self = liftIO (fromJSString <$> (js_getMessage (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/PositionErrorCallback.hs b/src/GHCJS/DOM/JSFFI/Generated/PositionErrorCallback.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/PositionErrorCallback.hs +++ /dev/null @@ -1,52 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.PositionErrorCallback - (newPositionErrorCallback, newPositionErrorCallbackSync, - newPositionErrorCallbackAsync, PositionErrorCallback) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - --- | -newPositionErrorCallback :: - (MonadIO m) => - (Maybe PositionError -> IO ()) -> m PositionErrorCallback -newPositionErrorCallback callback - = liftIO - (PositionErrorCallback <$> - syncCallback1 ThrowWouldBlock - (\ error -> - fromJSValUnchecked error >>= \ error' -> callback error')) - --- | -newPositionErrorCallbackSync :: - (MonadIO m) => - (Maybe PositionError -> IO ()) -> m PositionErrorCallback -newPositionErrorCallbackSync callback - = liftIO - (PositionErrorCallback <$> - syncCallback1 ContinueAsync - (\ error -> - fromJSValUnchecked error >>= \ error' -> callback error')) - --- | -newPositionErrorCallbackAsync :: - (MonadIO m) => - (Maybe PositionError -> IO ()) -> m PositionErrorCallback -newPositionErrorCallbackAsync callback - = liftIO - (PositionErrorCallback <$> - asyncCallback1 - (\ error -> - fromJSValUnchecked error >>= \ error' -> callback error')) diff --git a/src/GHCJS/DOM/JSFFI/Generated/ProcessingInstruction.hs b/src/GHCJS/DOM/JSFFI/Generated/ProcessingInstruction.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/ProcessingInstruction.hs +++ /dev/null @@ -1,38 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.ProcessingInstruction - (js_getTarget, getTarget, js_getSheet, getSheet, - ProcessingInstruction, castToProcessingInstruction, - gTypeProcessingInstruction) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"target\"]" js_getTarget :: - ProcessingInstruction -> IO (Nullable JSString) - --- | -getTarget :: - (MonadIO m, FromJSString result) => - ProcessingInstruction -> m (Maybe result) -getTarget self - = liftIO (fromMaybeJSString <$> (js_getTarget (self))) - -foreign import javascript unsafe "$1[\"sheet\"]" js_getSheet :: - ProcessingInstruction -> IO (Nullable StyleSheet) - --- | -getSheet :: - (MonadIO m) => ProcessingInstruction -> m (Maybe StyleSheet) -getSheet self = liftIO (nullableToMaybe <$> (js_getSheet (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/ProgressEvent.hs b/src/GHCJS/DOM/JSFFI/Generated/ProgressEvent.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/ProgressEvent.hs +++ /dev/null @@ -1,47 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.ProgressEvent - (js_getLengthComputable, getLengthComputable, js_getLoaded, - getLoaded, js_getTotal, getTotal, ProgressEvent, - castToProgressEvent, gTypeProgressEvent, IsProgressEvent, - toProgressEvent) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe - "($1[\"lengthComputable\"] ? 1 : 0)" js_getLengthComputable :: - ProgressEvent -> IO Bool - --- | -getLengthComputable :: - (MonadIO m, IsProgressEvent self) => self -> m Bool -getLengthComputable self - = liftIO (js_getLengthComputable (toProgressEvent self)) - -foreign import javascript unsafe "$1[\"loaded\"]" js_getLoaded :: - ProgressEvent -> IO Double - --- | -getLoaded :: (MonadIO m, IsProgressEvent self) => self -> m Word64 -getLoaded self - = liftIO (round <$> (js_getLoaded (toProgressEvent self))) - -foreign import javascript unsafe "$1[\"total\"]" js_getTotal :: - ProgressEvent -> IO Double - --- | -getTotal :: (MonadIO m, IsProgressEvent self) => self -> m Word64 -getTotal self - = liftIO (round <$> (js_getTotal (toProgressEvent self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/QuickTimePluginReplacement.hs b/src/GHCJS/DOM/JSFFI/Generated/QuickTimePluginReplacement.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/QuickTimePluginReplacement.hs +++ /dev/null @@ -1,63 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.QuickTimePluginReplacement - (js_postEvent, postEvent, js_getMovieSize, getMovieSize, - js_getTimedMetaData, getTimedMetaData, js_getAccessLog, - getAccessLog, js_getErrorLog, getErrorLog, - QuickTimePluginReplacement, castToQuickTimePluginReplacement, - gTypeQuickTimePluginReplacement) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"postEvent\"]($2)" - js_postEvent :: QuickTimePluginReplacement -> JSString -> IO () - --- | -postEvent :: - (MonadIO m, ToJSString eventName) => - QuickTimePluginReplacement -> eventName -> m () -postEvent self eventName - = liftIO (js_postEvent (self) (toJSString eventName)) - -foreign import javascript unsafe "$1[\"movieSize\"]" - js_getMovieSize :: QuickTimePluginReplacement -> IO Double - --- | -getMovieSize :: - (MonadIO m) => QuickTimePluginReplacement -> m Word64 -getMovieSize self = liftIO (round <$> (js_getMovieSize (self))) - -foreign import javascript unsafe "$1[\"timedMetaData\"]" - js_getTimedMetaData :: QuickTimePluginReplacement -> IO JSVal - --- | -getTimedMetaData :: - (MonadIO m) => QuickTimePluginReplacement -> m JSVal -getTimedMetaData self = liftIO (js_getTimedMetaData (self)) - -foreign import javascript unsafe "$1[\"accessLog\"]" - js_getAccessLog :: QuickTimePluginReplacement -> IO JSVal - --- | -getAccessLog :: - (MonadIO m) => QuickTimePluginReplacement -> m JSVal -getAccessLog self = liftIO (js_getAccessLog (self)) - -foreign import javascript unsafe "$1[\"errorLog\"]" js_getErrorLog - :: QuickTimePluginReplacement -> IO JSVal - --- | -getErrorLog :: (MonadIO m) => QuickTimePluginReplacement -> m JSVal -getErrorLog self = liftIO (js_getErrorLog (self)) diff --git a/src/GHCJS/DOM/JSFFI/Generated/RGBColor.hs b/src/GHCJS/DOM/JSFFI/Generated/RGBColor.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/RGBColor.hs +++ /dev/null @@ -1,40 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.RGBColor - (js_getRed, getRed, js_getGreen, getGreen, js_getBlue, getBlue, - RGBColor, castToRGBColor, gTypeRGBColor) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"red\"]" js_getRed :: - RGBColor -> IO (Nullable CSSPrimitiveValue) - --- | -getRed :: (MonadIO m) => RGBColor -> m (Maybe CSSPrimitiveValue) -getRed self = liftIO (nullableToMaybe <$> (js_getRed (self))) - -foreign import javascript unsafe "$1[\"green\"]" js_getGreen :: - RGBColor -> IO (Nullable CSSPrimitiveValue) - --- | -getGreen :: (MonadIO m) => RGBColor -> m (Maybe CSSPrimitiveValue) -getGreen self = liftIO (nullableToMaybe <$> (js_getGreen (self))) - -foreign import javascript unsafe "$1[\"blue\"]" js_getBlue :: - RGBColor -> IO (Nullable CSSPrimitiveValue) - --- | -getBlue :: (MonadIO m) => RGBColor -> m (Maybe CSSPrimitiveValue) -getBlue self = liftIO (nullableToMaybe <$> (js_getBlue (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/RTCConfiguration.hs b/src/GHCJS/DOM/JSFFI/Generated/RTCConfiguration.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/RTCConfiguration.hs +++ /dev/null @@ -1,47 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.RTCConfiguration - (js_getIceServers, getIceServers, js_getIceTransports, - getIceTransports, js_getRequestIdentity, getRequestIdentity, - RTCConfiguration, castToRTCConfiguration, gTypeRTCConfiguration) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"iceServers\"]" - js_getIceServers :: RTCConfiguration -> IO JSVal - --- | -getIceServers :: - (MonadIO m) => RTCConfiguration -> m [Maybe RTCIceServer] -getIceServers self - = liftIO ((js_getIceServers (self)) >>= fromJSValUnchecked) - -foreign import javascript unsafe "$1[\"iceTransports\"]" - js_getIceTransports :: RTCConfiguration -> IO JSVal - --- | -getIceTransports :: - (MonadIO m) => RTCConfiguration -> m RTCIceTransportsEnum -getIceTransports self - = liftIO ((js_getIceTransports (self)) >>= fromJSValUnchecked) - -foreign import javascript unsafe "$1[\"requestIdentity\"]" - js_getRequestIdentity :: RTCConfiguration -> IO JSVal - --- | -getRequestIdentity :: - (MonadIO m) => RTCConfiguration -> m RTCIdentityOptionEnum -getRequestIdentity self - = liftIO ((js_getRequestIdentity (self)) >>= fromJSValUnchecked) diff --git a/src/GHCJS/DOM/JSFFI/Generated/RTCDTMFSender.hs b/src/GHCJS/DOM/JSFFI/Generated/RTCDTMFSender.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/RTCDTMFSender.hs +++ /dev/null @@ -1,74 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.RTCDTMFSender - (js_insertDTMF, insertDTMF, js_getCanInsertDTMF, getCanInsertDTMF, - js_getTrack, getTrack, js_getToneBuffer, getToneBuffer, - js_getDuration, getDuration, js_getInterToneGap, getInterToneGap, - toneChange, RTCDTMFSender, castToRTCDTMFSender, gTypeRTCDTMFSender) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"insertDTMF\"]($2, $3, $4)" - js_insertDTMF :: RTCDTMFSender -> JSString -> Int -> Int -> IO () - --- | -insertDTMF :: - (MonadIO m, ToJSString tones) => - RTCDTMFSender -> tones -> Int -> Int -> m () -insertDTMF self tones duration interToneGap - = liftIO - (js_insertDTMF (self) (toJSString tones) duration interToneGap) - -foreign import javascript unsafe "($1[\"canInsertDTMF\"] ? 1 : 0)" - js_getCanInsertDTMF :: RTCDTMFSender -> IO Bool - --- | -getCanInsertDTMF :: (MonadIO m) => RTCDTMFSender -> m Bool -getCanInsertDTMF self = liftIO (js_getCanInsertDTMF (self)) - -foreign import javascript unsafe "$1[\"track\"]" js_getTrack :: - RTCDTMFSender -> IO (Nullable MediaStreamTrack) - --- | -getTrack :: - (MonadIO m) => RTCDTMFSender -> m (Maybe MediaStreamTrack) -getTrack self = liftIO (nullableToMaybe <$> (js_getTrack (self))) - -foreign import javascript unsafe "$1[\"toneBuffer\"]" - js_getToneBuffer :: RTCDTMFSender -> IO JSString - --- | -getToneBuffer :: - (MonadIO m, FromJSString result) => RTCDTMFSender -> m result -getToneBuffer self - = liftIO (fromJSString <$> (js_getToneBuffer (self))) - -foreign import javascript unsafe "$1[\"duration\"]" js_getDuration - :: RTCDTMFSender -> IO Int - --- | -getDuration :: (MonadIO m) => RTCDTMFSender -> m Int -getDuration self = liftIO (js_getDuration (self)) - -foreign import javascript unsafe "$1[\"interToneGap\"]" - js_getInterToneGap :: RTCDTMFSender -> IO Int - --- | -getInterToneGap :: (MonadIO m) => RTCDTMFSender -> m Int -getInterToneGap self = liftIO (js_getInterToneGap (self)) - --- | -toneChange :: EventName RTCDTMFSender Event -toneChange = unsafeEventName (toJSString "tonechange") diff --git a/src/GHCJS/DOM/JSFFI/Generated/RTCDTMFToneChangeEvent.hs b/src/GHCJS/DOM/JSFFI/Generated/RTCDTMFToneChangeEvent.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/RTCDTMFToneChangeEvent.hs +++ /dev/null @@ -1,28 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.RTCDTMFToneChangeEvent - (js_getTone, getTone, RTCDTMFToneChangeEvent, - castToRTCDTMFToneChangeEvent, gTypeRTCDTMFToneChangeEvent) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"tone\"]" js_getTone :: - RTCDTMFToneChangeEvent -> IO JSString - --- | -getTone :: - (MonadIO m, FromJSString result) => - RTCDTMFToneChangeEvent -> m result -getTone self = liftIO (fromJSString <$> (js_getTone (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/RTCDataChannel.hs b/src/GHCJS/DOM/JSFFI/Generated/RTCDataChannel.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/RTCDataChannel.hs +++ /dev/null @@ -1,177 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.RTCDataChannel - (js_send, send, js_sendView, sendView, js_sendBlob, sendBlob, - js_sendString, sendString, js_close, close, js_getLabel, getLabel, - js_getOrdered, getOrdered, js_getMaxRetransmitTime, - getMaxRetransmitTime, js_getMaxRetransmits, getMaxRetransmits, - js_getProtocol, getProtocol, js_getNegotiated, getNegotiated, - js_getId, getId, js_getReadyState, getReadyState, - js_getBufferedAmount, getBufferedAmount, js_setBinaryType, - setBinaryType, js_getBinaryType, getBinaryType, open, error, - closeEvent, message, RTCDataChannel, castToRTCDataChannel, - gTypeRTCDataChannel) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"send\"]($2)" js_send :: - RTCDataChannel -> Nullable ArrayBuffer -> IO () - --- | -send :: - (MonadIO m, IsArrayBuffer data') => - RTCDataChannel -> Maybe data' -> m () -send self data' - = liftIO - (js_send (self) (maybeToNullable (fmap toArrayBuffer data'))) - -foreign import javascript unsafe "$1[\"send\"]($2)" js_sendView :: - RTCDataChannel -> Nullable ArrayBufferView -> IO () - --- | -sendView :: - (MonadIO m, IsArrayBufferView data') => - RTCDataChannel -> Maybe data' -> m () -sendView self data' - = liftIO - (js_sendView (self) - (maybeToNullable (fmap toArrayBufferView data'))) - -foreign import javascript unsafe "$1[\"send\"]($2)" js_sendBlob :: - RTCDataChannel -> Nullable Blob -> IO () - --- | -sendBlob :: - (MonadIO m, IsBlob data') => RTCDataChannel -> Maybe data' -> m () -sendBlob self data' - = liftIO (js_sendBlob (self) (maybeToNullable (fmap toBlob data'))) - -foreign import javascript unsafe "$1[\"send\"]($2)" js_sendString - :: RTCDataChannel -> JSString -> IO () - --- | -sendString :: - (MonadIO m, ToJSString data') => RTCDataChannel -> data' -> m () -sendString self data' - = liftIO (js_sendString (self) (toJSString data')) - -foreign import javascript unsafe "$1[\"close\"]()" js_close :: - RTCDataChannel -> IO () - --- | -close :: (MonadIO m) => RTCDataChannel -> m () -close self = liftIO (js_close (self)) - -foreign import javascript unsafe "$1[\"label\"]" js_getLabel :: - RTCDataChannel -> IO JSString - --- | -getLabel :: - (MonadIO m, FromJSString result) => RTCDataChannel -> m result -getLabel self = liftIO (fromJSString <$> (js_getLabel (self))) - -foreign import javascript unsafe "($1[\"ordered\"] ? 1 : 0)" - js_getOrdered :: RTCDataChannel -> IO Bool - --- | -getOrdered :: (MonadIO m) => RTCDataChannel -> m Bool -getOrdered self = liftIO (js_getOrdered (self)) - -foreign import javascript unsafe "$1[\"maxRetransmitTime\"]" - js_getMaxRetransmitTime :: RTCDataChannel -> IO Word - --- | -getMaxRetransmitTime :: (MonadIO m) => RTCDataChannel -> m Word -getMaxRetransmitTime self = liftIO (js_getMaxRetransmitTime (self)) - -foreign import javascript unsafe "$1[\"maxRetransmits\"]" - js_getMaxRetransmits :: RTCDataChannel -> IO Word - --- | -getMaxRetransmits :: (MonadIO m) => RTCDataChannel -> m Word -getMaxRetransmits self = liftIO (js_getMaxRetransmits (self)) - -foreign import javascript unsafe "$1[\"protocol\"]" js_getProtocol - :: RTCDataChannel -> IO JSString - --- | -getProtocol :: - (MonadIO m, FromJSString result) => RTCDataChannel -> m result -getProtocol self - = liftIO (fromJSString <$> (js_getProtocol (self))) - -foreign import javascript unsafe "($1[\"negotiated\"] ? 1 : 0)" - js_getNegotiated :: RTCDataChannel -> IO Bool - --- | -getNegotiated :: (MonadIO m) => RTCDataChannel -> m Bool -getNegotiated self = liftIO (js_getNegotiated (self)) - -foreign import javascript unsafe "$1[\"id\"]" js_getId :: - RTCDataChannel -> IO Word - --- | -getId :: (MonadIO m) => RTCDataChannel -> m Word -getId self = liftIO (js_getId (self)) - -foreign import javascript unsafe "$1[\"readyState\"]" - js_getReadyState :: RTCDataChannel -> IO JSString - --- | -getReadyState :: - (MonadIO m, FromJSString result) => RTCDataChannel -> m result -getReadyState self - = liftIO (fromJSString <$> (js_getReadyState (self))) - -foreign import javascript unsafe "$1[\"bufferedAmount\"]" - js_getBufferedAmount :: RTCDataChannel -> IO Word - --- | -getBufferedAmount :: (MonadIO m) => RTCDataChannel -> m Word -getBufferedAmount self = liftIO (js_getBufferedAmount (self)) - -foreign import javascript unsafe "$1[\"binaryType\"] = $2;" - js_setBinaryType :: RTCDataChannel -> JSString -> IO () - --- | -setBinaryType :: - (MonadIO m, ToJSString val) => RTCDataChannel -> val -> m () -setBinaryType self val - = liftIO (js_setBinaryType (self) (toJSString val)) - -foreign import javascript unsafe "$1[\"binaryType\"]" - js_getBinaryType :: RTCDataChannel -> IO JSString - --- | -getBinaryType :: - (MonadIO m, FromJSString result) => RTCDataChannel -> m result -getBinaryType self - = liftIO (fromJSString <$> (js_getBinaryType (self))) - --- | -open :: EventName RTCDataChannel Event -open = unsafeEventName (toJSString "open") - --- | -error :: EventName RTCDataChannel UIEvent -error = unsafeEventName (toJSString "error") - --- | -closeEvent :: EventName RTCDataChannel Event -closeEvent = unsafeEventName (toJSString "close") - --- | -message :: EventName RTCDataChannel MessageEvent -message = unsafeEventName (toJSString "message") diff --git a/src/GHCJS/DOM/JSFFI/Generated/RTCDataChannelEvent.hs b/src/GHCJS/DOM/JSFFI/Generated/RTCDataChannelEvent.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/RTCDataChannelEvent.hs +++ /dev/null @@ -1,28 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.RTCDataChannelEvent - (js_getChannel, getChannel, RTCDataChannelEvent, - castToRTCDataChannelEvent, gTypeRTCDataChannelEvent) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"channel\"]" js_getChannel :: - RTCDataChannelEvent -> IO (Nullable RTCDataChannel) - --- | -getChannel :: - (MonadIO m) => RTCDataChannelEvent -> m (Maybe RTCDataChannel) -getChannel self - = liftIO (nullableToMaybe <$> (js_getChannel (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/RTCIceCandidate.hs b/src/GHCJS/DOM/JSFFI/Generated/RTCIceCandidate.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/RTCIceCandidate.hs +++ /dev/null @@ -1,58 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.RTCIceCandidate - (js_newRTCIceCandidate, newRTCIceCandidate, js_getCandidate, - getCandidate, js_getSdpMid, getSdpMid, js_getSdpMLineIndex, - getSdpMLineIndex, RTCIceCandidate, castToRTCIceCandidate, - gTypeRTCIceCandidate) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe - "new window[\"RTCIceCandidate\"]($1)" js_newRTCIceCandidate :: - Nullable Dictionary -> IO RTCIceCandidate - --- | -newRTCIceCandidate :: - (MonadIO m, IsDictionary dictionary) => - Maybe dictionary -> m RTCIceCandidate -newRTCIceCandidate dictionary - = liftIO - (js_newRTCIceCandidate - (maybeToNullable (fmap toDictionary dictionary))) - -foreign import javascript unsafe "$1[\"candidate\"]" - js_getCandidate :: RTCIceCandidate -> IO JSString - --- | -getCandidate :: - (MonadIO m, FromJSString result) => RTCIceCandidate -> m result -getCandidate self - = liftIO (fromJSString <$> (js_getCandidate (self))) - -foreign import javascript unsafe "$1[\"sdpMid\"]" js_getSdpMid :: - RTCIceCandidate -> IO JSString - --- | -getSdpMid :: - (MonadIO m, FromJSString result) => RTCIceCandidate -> m result -getSdpMid self = liftIO (fromJSString <$> (js_getSdpMid (self))) - -foreign import javascript unsafe "$1[\"sdpMLineIndex\"]" - js_getSdpMLineIndex :: RTCIceCandidate -> IO Word - --- | -getSdpMLineIndex :: (MonadIO m) => RTCIceCandidate -> m Word -getSdpMLineIndex self = liftIO (js_getSdpMLineIndex (self)) diff --git a/src/GHCJS/DOM/JSFFI/Generated/RTCIceCandidateEvent.hs b/src/GHCJS/DOM/JSFFI/Generated/RTCIceCandidateEvent.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/RTCIceCandidateEvent.hs +++ /dev/null @@ -1,29 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.RTCIceCandidateEvent - (js_getCandidate, getCandidate, RTCIceCandidateEvent, - castToRTCIceCandidateEvent, gTypeRTCIceCandidateEvent) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"candidate\"]" - js_getCandidate :: - RTCIceCandidateEvent -> IO (Nullable RTCIceCandidate) - --- | -getCandidate :: - (MonadIO m) => RTCIceCandidateEvent -> m (Maybe RTCIceCandidate) -getCandidate self - = liftIO (nullableToMaybe <$> (js_getCandidate (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/RTCIceServer.hs b/src/GHCJS/DOM/JSFFI/Generated/RTCIceServer.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/RTCIceServer.hs +++ /dev/null @@ -1,46 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.RTCIceServer - (js_getUrls, getUrls, js_getUsername, getUsername, - js_getCredential, getCredential, RTCIceServer, castToRTCIceServer, - gTypeRTCIceServer) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"urls\"]" js_getUrls :: - RTCIceServer -> IO JSVal - --- | -getUrls :: - (MonadIO m, FromJSString result) => RTCIceServer -> m [result] -getUrls self = liftIO ((js_getUrls (self)) >>= fromJSValUnchecked) - -foreign import javascript unsafe "$1[\"username\"]" js_getUsername - :: RTCIceServer -> IO JSString - --- | -getUsername :: - (MonadIO m, FromJSString result) => RTCIceServer -> m result -getUsername self - = liftIO (fromJSString <$> (js_getUsername (self))) - -foreign import javascript unsafe "$1[\"credential\"]" - js_getCredential :: RTCIceServer -> IO JSString - --- | -getCredential :: - (MonadIO m, FromJSString result) => RTCIceServer -> m result -getCredential self - = liftIO (fromJSString <$> (js_getCredential (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/RTCPeerConnection.hs b/src/GHCJS/DOM/JSFFI/Generated/RTCPeerConnection.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/RTCPeerConnection.hs +++ /dev/null @@ -1,355 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.RTCPeerConnection - (js_newRTCPeerConnection, newRTCPeerConnection, js_createOffer, - createOffer, js_createAnswer, createAnswer, js_setLocalDescription, - setLocalDescription, js_setRemoteDescription, setRemoteDescription, - js_updateIce, updateIce, js_addIceCandidate, addIceCandidate, - js_getLocalStreams, getLocalStreams, js_getRemoteStreams, - getRemoteStreams, js_getStreamById, getStreamById, - js_getConfiguration, getConfiguration, js_addStream, addStream, - js_removeStream, removeStream, js_getStats, getStats, - js_createDataChannel, createDataChannel, js_createDTMFSender, - createDTMFSender, js_close, close, js_getLocalDescription, - getLocalDescription, js_getRemoteDescription, getRemoteDescription, - js_getSignalingState, getSignalingState, js_getIceGatheringState, - getIceGatheringState, js_getIceConnectionState, - getIceConnectionState, negotiationNeeded, iceCandidate, - signalingStateChange, addStreamEvent, removeStreamEvent, - iceConnectionStateChange, dataChannel, RTCPeerConnection, - castToRTCPeerConnection, gTypeRTCPeerConnection) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe - "new window[\"webkitRTCPeerConnection\"]($1)" - js_newRTCPeerConnection :: - Nullable Dictionary -> IO RTCPeerConnection - --- | -newRTCPeerConnection :: - (MonadIO m, IsDictionary rtcConfiguration) => - Maybe rtcConfiguration -> m RTCPeerConnection -newRTCPeerConnection rtcConfiguration - = liftIO - (js_newRTCPeerConnection - (maybeToNullable (fmap toDictionary rtcConfiguration))) - -foreign import javascript unsafe "$1[\"createOffer\"]($2, $3, $4)" - js_createOffer :: - RTCPeerConnection -> - Nullable RTCSessionDescriptionCallback -> - Nullable RTCPeerConnectionErrorCallback -> - Nullable Dictionary -> IO () - --- | -createOffer :: - (MonadIO m, IsDictionary offerOptions) => - RTCPeerConnection -> - Maybe RTCSessionDescriptionCallback -> - Maybe RTCPeerConnectionErrorCallback -> Maybe offerOptions -> m () -createOffer self successCallback failureCallback offerOptions - = liftIO - (js_createOffer (self) (maybeToNullable successCallback) - (maybeToNullable failureCallback) - (maybeToNullable (fmap toDictionary offerOptions))) - -foreign import javascript unsafe "$1[\"createAnswer\"]($2, $3, $4)" - js_createAnswer :: - RTCPeerConnection -> - Nullable RTCSessionDescriptionCallback -> - Nullable RTCPeerConnectionErrorCallback -> - Nullable Dictionary -> IO () - --- | -createAnswer :: - (MonadIO m, IsDictionary answerOptions) => - RTCPeerConnection -> - Maybe RTCSessionDescriptionCallback -> - Maybe RTCPeerConnectionErrorCallback -> Maybe answerOptions -> m () -createAnswer self successCallback failureCallback answerOptions - = liftIO - (js_createAnswer (self) (maybeToNullable successCallback) - (maybeToNullable failureCallback) - (maybeToNullable (fmap toDictionary answerOptions))) - -foreign import javascript unsafe - "$1[\"setLocalDescription\"]($2,\n$3, $4)" js_setLocalDescription - :: - RTCPeerConnection -> - Nullable RTCSessionDescription -> - Nullable VoidCallback -> - Nullable RTCPeerConnectionErrorCallback -> IO () - --- | -setLocalDescription :: - (MonadIO m) => - RTCPeerConnection -> - Maybe RTCSessionDescription -> - Maybe VoidCallback -> Maybe RTCPeerConnectionErrorCallback -> m () -setLocalDescription self description successCallback - failureCallback - = liftIO - (js_setLocalDescription (self) (maybeToNullable description) - (maybeToNullable successCallback) - (maybeToNullable failureCallback)) - -foreign import javascript unsafe - "$1[\"setRemoteDescription\"]($2,\n$3, $4)" js_setRemoteDescription - :: - RTCPeerConnection -> - Nullable RTCSessionDescription -> - Nullable VoidCallback -> - Nullable RTCPeerConnectionErrorCallback -> IO () - --- | -setRemoteDescription :: - (MonadIO m) => - RTCPeerConnection -> - Maybe RTCSessionDescription -> - Maybe VoidCallback -> Maybe RTCPeerConnectionErrorCallback -> m () -setRemoteDescription self description successCallback - failureCallback - = liftIO - (js_setRemoteDescription (self) (maybeToNullable description) - (maybeToNullable successCallback) - (maybeToNullable failureCallback)) - -foreign import javascript unsafe "$1[\"updateIce\"]($2)" - js_updateIce :: RTCPeerConnection -> Nullable Dictionary -> IO () - --- | -updateIce :: - (MonadIO m, IsDictionary configuration) => - RTCPeerConnection -> Maybe configuration -> m () -updateIce self configuration - = liftIO - (js_updateIce (self) - (maybeToNullable (fmap toDictionary configuration))) - -foreign import javascript unsafe - "$1[\"addIceCandidate\"]($2, $3,\n$4)" js_addIceCandidate :: - RTCPeerConnection -> - Nullable RTCIceCandidate -> - Nullable VoidCallback -> - Nullable RTCPeerConnectionErrorCallback -> IO () - --- | -addIceCandidate :: - (MonadIO m) => - RTCPeerConnection -> - Maybe RTCIceCandidate -> - Maybe VoidCallback -> Maybe RTCPeerConnectionErrorCallback -> m () -addIceCandidate self candidate successCallback failureCallback - = liftIO - (js_addIceCandidate (self) (maybeToNullable candidate) - (maybeToNullable successCallback) - (maybeToNullable failureCallback)) - -foreign import javascript unsafe "$1[\"getLocalStreams\"]()" - js_getLocalStreams :: RTCPeerConnection -> IO JSVal - --- | -getLocalStreams :: - (MonadIO m) => RTCPeerConnection -> m [Maybe MediaStream] -getLocalStreams self - = liftIO ((js_getLocalStreams (self)) >>= fromJSValUnchecked) - -foreign import javascript unsafe "$1[\"getRemoteStreams\"]()" - js_getRemoteStreams :: RTCPeerConnection -> IO JSVal - --- | -getRemoteStreams :: - (MonadIO m) => RTCPeerConnection -> m [Maybe MediaStream] -getRemoteStreams self - = liftIO ((js_getRemoteStreams (self)) >>= fromJSValUnchecked) - -foreign import javascript unsafe "$1[\"getStreamById\"]($2)" - js_getStreamById :: - RTCPeerConnection -> JSString -> IO (Nullable MediaStream) - --- | -getStreamById :: - (MonadIO m, ToJSString streamId) => - RTCPeerConnection -> streamId -> m (Maybe MediaStream) -getStreamById self streamId - = liftIO - (nullableToMaybe <$> - (js_getStreamById (self) (toJSString streamId))) - -foreign import javascript unsafe "$1[\"getConfiguration\"]()" - js_getConfiguration :: - RTCPeerConnection -> IO (Nullable RTCConfiguration) - --- | -getConfiguration :: - (MonadIO m) => RTCPeerConnection -> m (Maybe RTCConfiguration) -getConfiguration self - = liftIO (nullableToMaybe <$> (js_getConfiguration (self))) - -foreign import javascript unsafe "$1[\"addStream\"]($2)" - js_addStream :: RTCPeerConnection -> Nullable MediaStream -> IO () - --- | -addStream :: - (MonadIO m) => RTCPeerConnection -> Maybe MediaStream -> m () -addStream self stream - = liftIO (js_addStream (self) (maybeToNullable stream)) - -foreign import javascript unsafe "$1[\"removeStream\"]($2)" - js_removeStream :: - RTCPeerConnection -> Nullable MediaStream -> IO () - --- | -removeStream :: - (MonadIO m) => RTCPeerConnection -> Maybe MediaStream -> m () -removeStream self stream - = liftIO (js_removeStream (self) (maybeToNullable stream)) - -foreign import javascript unsafe "$1[\"getStats\"]($2, $3, $4)" - js_getStats :: - RTCPeerConnection -> - Nullable RTCStatsCallback -> - Nullable RTCPeerConnectionErrorCallback -> - Nullable MediaStreamTrack -> IO () - --- | -getStats :: - (MonadIO m, IsMediaStreamTrack selector) => - RTCPeerConnection -> - Maybe RTCStatsCallback -> - Maybe RTCPeerConnectionErrorCallback -> Maybe selector -> m () -getStats self successCallback failureCallback selector - = liftIO - (js_getStats (self) (maybeToNullable successCallback) - (maybeToNullable failureCallback) - (maybeToNullable (fmap toMediaStreamTrack selector))) - -foreign import javascript unsafe - "$1[\"createDataChannel\"]($2, $3)" js_createDataChannel :: - RTCPeerConnection -> - Nullable JSString -> - Nullable Dictionary -> IO (Nullable RTCDataChannel) - --- | -createDataChannel :: - (MonadIO m, ToJSString label, IsDictionary options) => - RTCPeerConnection -> - Maybe label -> Maybe options -> m (Maybe RTCDataChannel) -createDataChannel self label options - = liftIO - (nullableToMaybe <$> - (js_createDataChannel (self) (toMaybeJSString label) - (maybeToNullable (fmap toDictionary options)))) - -foreign import javascript unsafe "$1[\"createDTMFSender\"]($2)" - js_createDTMFSender :: - RTCPeerConnection -> - Nullable MediaStreamTrack -> IO (Nullable RTCDTMFSender) - --- | -createDTMFSender :: - (MonadIO m, IsMediaStreamTrack track) => - RTCPeerConnection -> Maybe track -> m (Maybe RTCDTMFSender) -createDTMFSender self track - = liftIO - (nullableToMaybe <$> - (js_createDTMFSender (self) - (maybeToNullable (fmap toMediaStreamTrack track)))) - -foreign import javascript unsafe "$1[\"close\"]()" js_close :: - RTCPeerConnection -> IO () - --- | -close :: (MonadIO m) => RTCPeerConnection -> m () -close self = liftIO (js_close (self)) - -foreign import javascript unsafe "$1[\"localDescription\"]" - js_getLocalDescription :: - RTCPeerConnection -> IO (Nullable RTCSessionDescription) - --- | -getLocalDescription :: - (MonadIO m) => RTCPeerConnection -> m (Maybe RTCSessionDescription) -getLocalDescription self - = liftIO (nullableToMaybe <$> (js_getLocalDescription (self))) - -foreign import javascript unsafe "$1[\"remoteDescription\"]" - js_getRemoteDescription :: - RTCPeerConnection -> IO (Nullable RTCSessionDescription) - --- | -getRemoteDescription :: - (MonadIO m) => RTCPeerConnection -> m (Maybe RTCSessionDescription) -getRemoteDescription self - = liftIO (nullableToMaybe <$> (js_getRemoteDescription (self))) - -foreign import javascript unsafe "$1[\"signalingState\"]" - js_getSignalingState :: RTCPeerConnection -> IO JSString - --- | -getSignalingState :: - (MonadIO m, FromJSString result) => RTCPeerConnection -> m result -getSignalingState self - = liftIO (fromJSString <$> (js_getSignalingState (self))) - -foreign import javascript unsafe "$1[\"iceGatheringState\"]" - js_getIceGatheringState :: RTCPeerConnection -> IO JSString - --- | -getIceGatheringState :: - (MonadIO m, FromJSString result) => RTCPeerConnection -> m result -getIceGatheringState self - = liftIO (fromJSString <$> (js_getIceGatheringState (self))) - -foreign import javascript unsafe "$1[\"iceConnectionState\"]" - js_getIceConnectionState :: RTCPeerConnection -> IO JSString - --- | -getIceConnectionState :: - (MonadIO m, FromJSString result) => RTCPeerConnection -> m result -getIceConnectionState self - = liftIO (fromJSString <$> (js_getIceConnectionState (self))) - --- | -negotiationNeeded :: EventName RTCPeerConnection Event -negotiationNeeded - = unsafeEventName (toJSString "negotiationneeded") - --- | -iceCandidate :: EventName RTCPeerConnection RTCIceCandidateEvent -iceCandidate = unsafeEventName (toJSString "icecandidate") - --- | -signalingStateChange :: EventName RTCPeerConnection Event -signalingStateChange - = unsafeEventName (toJSString "signalingstatechange") - --- | -addStreamEvent :: EventName RTCPeerConnection Event -addStreamEvent = unsafeEventName (toJSString "addstream") - --- | -removeStreamEvent :: EventName RTCPeerConnection Event -removeStreamEvent = unsafeEventName (toJSString "removestream") - --- | -iceConnectionStateChange :: EventName RTCPeerConnection Event -iceConnectionStateChange - = unsafeEventName (toJSString "iceconnectionstatechange") - --- | -dataChannel :: EventName RTCPeerConnection Event -dataChannel = unsafeEventName (toJSString "datachannel") diff --git a/src/GHCJS/DOM/JSFFI/Generated/RTCPeerConnectionErrorCallback.hs b/src/GHCJS/DOM/JSFFI/Generated/RTCPeerConnectionErrorCallback.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/RTCPeerConnectionErrorCallback.hs +++ /dev/null @@ -1,56 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.RTCPeerConnectionErrorCallback - (newRTCPeerConnectionErrorCallback, - newRTCPeerConnectionErrorCallbackSync, - newRTCPeerConnectionErrorCallbackAsync, - RTCPeerConnectionErrorCallback) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - --- | -newRTCPeerConnectionErrorCallback :: - (MonadIO m) => - (Maybe DOMError -> IO ()) -> m RTCPeerConnectionErrorCallback -newRTCPeerConnectionErrorCallback callback - = liftIO - (RTCPeerConnectionErrorCallback <$> - syncCallback1 ThrowWouldBlock - (\ error -> - fromJSValUnchecked error >>= \ error' -> callback error')) - --- | -newRTCPeerConnectionErrorCallbackSync :: - (MonadIO m) => - (Maybe DOMError -> IO ()) -> - m RTCPeerConnectionErrorCallback -newRTCPeerConnectionErrorCallbackSync callback - = liftIO - (RTCPeerConnectionErrorCallback <$> - syncCallback1 ContinueAsync - (\ error -> - fromJSValUnchecked error >>= \ error' -> callback error')) - --- | -newRTCPeerConnectionErrorCallbackAsync :: - (MonadIO m) => - (Maybe DOMError -> IO ()) -> - m RTCPeerConnectionErrorCallback -newRTCPeerConnectionErrorCallbackAsync callback - = liftIO - (RTCPeerConnectionErrorCallback <$> - asyncCallback1 - (\ error -> - fromJSValUnchecked error >>= \ error' -> callback error')) diff --git a/src/GHCJS/DOM/JSFFI/Generated/RTCSessionDescription.hs b/src/GHCJS/DOM/JSFFI/Generated/RTCSessionDescription.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/RTCSessionDescription.hs +++ /dev/null @@ -1,69 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.RTCSessionDescription - (js_newRTCSessionDescription, newRTCSessionDescription, js_setType, - setType, js_getType, getType, js_setSdp, setSdp, js_getSdp, getSdp, - RTCSessionDescription, castToRTCSessionDescription, - gTypeRTCSessionDescription) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe - "new window[\"RTCSessionDescription\"]($1)" - js_newRTCSessionDescription :: - Nullable Dictionary -> IO RTCSessionDescription - --- | -newRTCSessionDescription :: - (MonadIO m, IsDictionary dictionary) => - Maybe dictionary -> m RTCSessionDescription -newRTCSessionDescription dictionary - = liftIO - (js_newRTCSessionDescription - (maybeToNullable (fmap toDictionary dictionary))) - -foreign import javascript unsafe "$1[\"type\"] = $2;" js_setType :: - RTCSessionDescription -> JSString -> IO () - --- | -setType :: - (MonadIO m, ToJSString val) => RTCSessionDescription -> val -> m () -setType self val = liftIO (js_setType (self) (toJSString val)) - -foreign import javascript unsafe "$1[\"type\"]" js_getType :: - RTCSessionDescription -> IO JSString - --- | -getType :: - (MonadIO m, FromJSString result) => - RTCSessionDescription -> m result -getType self = liftIO (fromJSString <$> (js_getType (self))) - -foreign import javascript unsafe "$1[\"sdp\"] = $2;" js_setSdp :: - RTCSessionDescription -> JSString -> IO () - --- | -setSdp :: - (MonadIO m, ToJSString val) => RTCSessionDescription -> val -> m () -setSdp self val = liftIO (js_setSdp (self) (toJSString val)) - -foreign import javascript unsafe "$1[\"sdp\"]" js_getSdp :: - RTCSessionDescription -> IO JSString - --- | -getSdp :: - (MonadIO m, FromJSString result) => - RTCSessionDescription -> m result -getSdp self = liftIO (fromJSString <$> (js_getSdp (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/RTCSessionDescriptionCallback.hs b/src/GHCJS/DOM/JSFFI/Generated/RTCSessionDescriptionCallback.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/RTCSessionDescriptionCallback.hs +++ /dev/null @@ -1,54 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.RTCSessionDescriptionCallback - (newRTCSessionDescriptionCallback, - newRTCSessionDescriptionCallbackSync, - newRTCSessionDescriptionCallbackAsync, - RTCSessionDescriptionCallback) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - --- | -newRTCSessionDescriptionCallback :: - (MonadIO m) => - (Maybe RTCSessionDescription -> IO ()) -> - m RTCSessionDescriptionCallback -newRTCSessionDescriptionCallback callback - = liftIO - (RTCSessionDescriptionCallback <$> - syncCallback1 ThrowWouldBlock - (\ sdp -> fromJSValUnchecked sdp >>= \ sdp' -> callback sdp')) - --- | -newRTCSessionDescriptionCallbackSync :: - (MonadIO m) => - (Maybe RTCSessionDescription -> IO ()) -> - m RTCSessionDescriptionCallback -newRTCSessionDescriptionCallbackSync callback - = liftIO - (RTCSessionDescriptionCallback <$> - syncCallback1 ContinueAsync - (\ sdp -> fromJSValUnchecked sdp >>= \ sdp' -> callback sdp')) - --- | -newRTCSessionDescriptionCallbackAsync :: - (MonadIO m) => - (Maybe RTCSessionDescription -> IO ()) -> - m RTCSessionDescriptionCallback -newRTCSessionDescriptionCallbackAsync callback - = liftIO - (RTCSessionDescriptionCallback <$> - asyncCallback1 - (\ sdp -> fromJSValUnchecked sdp >>= \ sdp' -> callback sdp')) diff --git a/src/GHCJS/DOM/JSFFI/Generated/RTCStatsCallback.hs b/src/GHCJS/DOM/JSFFI/Generated/RTCStatsCallback.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/RTCStatsCallback.hs +++ /dev/null @@ -1,52 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.RTCStatsCallback - (newRTCStatsCallback, newRTCStatsCallbackSync, - newRTCStatsCallbackAsync, RTCStatsCallback) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - --- | -newRTCStatsCallback :: - (MonadIO m) => - (Maybe RTCStatsResponse -> IO ()) -> m RTCStatsCallback -newRTCStatsCallback callback - = liftIO - (RTCStatsCallback <$> - syncCallback1 ThrowWouldBlock - (\ response -> - fromJSValUnchecked response >>= \ response' -> callback response')) - --- | -newRTCStatsCallbackSync :: - (MonadIO m) => - (Maybe RTCStatsResponse -> IO ()) -> m RTCStatsCallback -newRTCStatsCallbackSync callback - = liftIO - (RTCStatsCallback <$> - syncCallback1 ContinueAsync - (\ response -> - fromJSValUnchecked response >>= \ response' -> callback response')) - --- | -newRTCStatsCallbackAsync :: - (MonadIO m) => - (Maybe RTCStatsResponse -> IO ()) -> m RTCStatsCallback -newRTCStatsCallbackAsync callback - = liftIO - (RTCStatsCallback <$> - asyncCallback1 - (\ response -> - fromJSValUnchecked response >>= \ response' -> callback response')) diff --git a/src/GHCJS/DOM/JSFFI/Generated/RTCStatsReport.hs b/src/GHCJS/DOM/JSFFI/Generated/RTCStatsReport.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/RTCStatsReport.hs +++ /dev/null @@ -1,79 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.RTCStatsReport - (js_stat, stat, js_names, names, js_getTimestamp, getTimestamp, - js_getId, getId, js_getType, getType, js_getLocal, getLocal, - js_getRemote, getRemote, RTCStatsReport, castToRTCStatsReport, - gTypeRTCStatsReport) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"stat\"]($2)" js_stat :: - RTCStatsReport -> JSString -> IO JSString - --- | -stat :: - (MonadIO m, ToJSString name, FromJSString result) => - RTCStatsReport -> name -> m result -stat self name - = liftIO (fromJSString <$> (js_stat (self) (toJSString name))) - -foreign import javascript unsafe "$1[\"names\"]()" js_names :: - RTCStatsReport -> IO JSVal - --- | -names :: - (MonadIO m, FromJSString result) => RTCStatsReport -> m [result] -names self = liftIO ((js_names (self)) >>= fromJSValUnchecked) - -foreign import javascript unsafe "$1[\"timestamp\"]" - js_getTimestamp :: RTCStatsReport -> IO (Nullable Date) - --- | -getTimestamp :: (MonadIO m) => RTCStatsReport -> m (Maybe Date) -getTimestamp self - = liftIO (nullableToMaybe <$> (js_getTimestamp (self))) - -foreign import javascript unsafe "$1[\"id\"]" js_getId :: - RTCStatsReport -> IO JSString - --- | -getId :: - (MonadIO m, FromJSString result) => RTCStatsReport -> m result -getId self = liftIO (fromJSString <$> (js_getId (self))) - -foreign import javascript unsafe "$1[\"type\"]" js_getType :: - RTCStatsReport -> IO JSString - --- | -getType :: - (MonadIO m, FromJSString result) => RTCStatsReport -> m result -getType self = liftIO (fromJSString <$> (js_getType (self))) - -foreign import javascript unsafe "$1[\"local\"]" js_getLocal :: - RTCStatsReport -> IO (Nullable RTCStatsReport) - --- | -getLocal :: - (MonadIO m) => RTCStatsReport -> m (Maybe RTCStatsReport) -getLocal self = liftIO (nullableToMaybe <$> (js_getLocal (self))) - -foreign import javascript unsafe "$1[\"remote\"]" js_getRemote :: - RTCStatsReport -> IO (Nullable RTCStatsReport) - --- | -getRemote :: - (MonadIO m) => RTCStatsReport -> m (Maybe RTCStatsReport) -getRemote self = liftIO (nullableToMaybe <$> (js_getRemote (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/RTCStatsResponse.hs b/src/GHCJS/DOM/JSFFI/Generated/RTCStatsResponse.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/RTCStatsResponse.hs +++ /dev/null @@ -1,39 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.RTCStatsResponse - (js_result, result, js_namedItem, namedItem, RTCStatsResponse, - castToRTCStatsResponse, gTypeRTCStatsResponse) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"result\"]()" js_result :: - RTCStatsResponse -> IO JSVal - --- | -result :: - (MonadIO m) => RTCStatsResponse -> m [Maybe RTCStatsReport] -result self = liftIO ((js_result (self)) >>= fromJSValUnchecked) - -foreign import javascript unsafe "$1[\"namedItem\"]($2)" - js_namedItem :: - RTCStatsResponse -> JSString -> IO (Nullable RTCStatsReport) - --- | -namedItem :: - (MonadIO m, ToJSString name) => - RTCStatsResponse -> name -> m (Maybe RTCStatsReport) -namedItem self name - = liftIO - (nullableToMaybe <$> (js_namedItem (self) (toJSString name))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/RadioNodeList.hs b/src/GHCJS/DOM/JSFFI/Generated/RadioNodeList.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/RadioNodeList.hs +++ /dev/null @@ -1,43 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.RadioNodeList - (js__get, _get, js_setValue, setValue, js_getValue, getValue, - RadioNodeList, castToRadioNodeList, gTypeRadioNodeList) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"_get\"]($2)" js__get :: - RadioNodeList -> Word -> IO (Nullable Node) - --- | -_get :: (MonadIO m) => RadioNodeList -> Word -> m (Maybe Node) -_get self index - = liftIO (nullableToMaybe <$> (js__get (self) index)) - -foreign import javascript unsafe "$1[\"value\"] = $2;" js_setValue - :: RadioNodeList -> JSString -> IO () - --- | -setValue :: - (MonadIO m, ToJSString val) => RadioNodeList -> val -> m () -setValue self val = liftIO (js_setValue (self) (toJSString val)) - -foreign import javascript unsafe "$1[\"value\"]" js_getValue :: - RadioNodeList -> IO JSString - --- | -getValue :: - (MonadIO m, FromJSString result) => RadioNodeList -> m result -getValue self = liftIO (fromJSString <$> (js_getValue (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/Range.hs b/src/GHCJS/DOM/JSFFI/Generated/Range.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/Range.hs +++ /dev/null @@ -1,352 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.Range - (js_newRange, newRange, js_setStart, setStart, js_setEnd, setEnd, - js_setStartBefore, setStartBefore, js_setStartAfter, setStartAfter, - js_setEndBefore, setEndBefore, js_setEndAfter, setEndAfter, - js_collapse, collapse, js_selectNode, selectNode, - js_selectNodeContents, selectNodeContents, - js_compareBoundaryPoints, compareBoundaryPoints, js_deleteContents, - deleteContents, js_extractContents, extractContents, - js_cloneContents, cloneContents, js_insertNode, insertNode, - js_surroundContents, surroundContents, js_cloneRange, cloneRange, - js_toString, toString, js_detach, detach, js_getClientRects, - getClientRects, js_getBoundingClientRect, getBoundingClientRect, - js_createContextualFragment, createContextualFragment, - js_intersectsNode, intersectsNode, js_compareNode, compareNode, - js_comparePoint, comparePoint, js_isPointInRange, isPointInRange, - js_expand, expand, pattern START_TO_START, pattern START_TO_END, - pattern END_TO_END, pattern END_TO_START, pattern NODE_BEFORE, - pattern NODE_AFTER, pattern NODE_BEFORE_AND_AFTER, - pattern NODE_INSIDE, js_getStartContainer, getStartContainer, - js_getStartOffset, getStartOffset, js_getEndContainer, - getEndContainer, js_getEndOffset, getEndOffset, js_getCollapsed, - getCollapsed, js_getCommonAncestorContainer, - getCommonAncestorContainer, Range, castToRange, gTypeRange) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "new window[\"Range\"]()" - js_newRange :: IO Range - --- | -newRange :: (MonadIO m) => m Range -newRange = liftIO (js_newRange) - -foreign import javascript unsafe "$1[\"setStart\"]($2, $3)" - js_setStart :: Range -> Nullable Node -> Int -> IO () - --- | -setStart :: - (MonadIO m, IsNode refNode) => - Range -> Maybe refNode -> Int -> m () -setStart self refNode offset - = liftIO - (js_setStart (self) (maybeToNullable (fmap toNode refNode)) offset) - -foreign import javascript unsafe "$1[\"setEnd\"]($2, $3)" js_setEnd - :: Range -> Nullable Node -> Int -> IO () - --- | -setEnd :: - (MonadIO m, IsNode refNode) => - Range -> Maybe refNode -> Int -> m () -setEnd self refNode offset - = liftIO - (js_setEnd (self) (maybeToNullable (fmap toNode refNode)) offset) - -foreign import javascript unsafe "$1[\"setStartBefore\"]($2)" - js_setStartBefore :: Range -> Nullable Node -> IO () - --- | -setStartBefore :: - (MonadIO m, IsNode refNode) => Range -> Maybe refNode -> m () -setStartBefore self refNode - = liftIO - (js_setStartBefore (self) (maybeToNullable (fmap toNode refNode))) - -foreign import javascript unsafe "$1[\"setStartAfter\"]($2)" - js_setStartAfter :: Range -> Nullable Node -> IO () - --- | -setStartAfter :: - (MonadIO m, IsNode refNode) => Range -> Maybe refNode -> m () -setStartAfter self refNode - = liftIO - (js_setStartAfter (self) (maybeToNullable (fmap toNode refNode))) - -foreign import javascript unsafe "$1[\"setEndBefore\"]($2)" - js_setEndBefore :: Range -> Nullable Node -> IO () - --- | -setEndBefore :: - (MonadIO m, IsNode refNode) => Range -> Maybe refNode -> m () -setEndBefore self refNode - = liftIO - (js_setEndBefore (self) (maybeToNullable (fmap toNode refNode))) - -foreign import javascript unsafe "$1[\"setEndAfter\"]($2)" - js_setEndAfter :: Range -> Nullable Node -> IO () - --- | -setEndAfter :: - (MonadIO m, IsNode refNode) => Range -> Maybe refNode -> m () -setEndAfter self refNode - = liftIO - (js_setEndAfter (self) (maybeToNullable (fmap toNode refNode))) - -foreign import javascript unsafe "$1[\"collapse\"]($2)" js_collapse - :: Range -> Bool -> IO () - --- | -collapse :: (MonadIO m) => Range -> Bool -> m () -collapse self toStart = liftIO (js_collapse (self) toStart) - -foreign import javascript unsafe "$1[\"selectNode\"]($2)" - js_selectNode :: Range -> Nullable Node -> IO () - --- | -selectNode :: - (MonadIO m, IsNode refNode) => Range -> Maybe refNode -> m () -selectNode self refNode - = liftIO - (js_selectNode (self) (maybeToNullable (fmap toNode refNode))) - -foreign import javascript unsafe "$1[\"selectNodeContents\"]($2)" - js_selectNodeContents :: Range -> Nullable Node -> IO () - --- | -selectNodeContents :: - (MonadIO m, IsNode refNode) => Range -> Maybe refNode -> m () -selectNodeContents self refNode - = liftIO - (js_selectNodeContents (self) - (maybeToNullable (fmap toNode refNode))) - -foreign import javascript unsafe - "$1[\"compareBoundaryPoints\"]($2,\n$3)" js_compareBoundaryPoints - :: Range -> Word -> Nullable Range -> IO Int - --- | -compareBoundaryPoints :: - (MonadIO m) => Range -> Word -> Maybe Range -> m Int -compareBoundaryPoints self how sourceRange - = liftIO - (js_compareBoundaryPoints (self) how (maybeToNullable sourceRange)) - -foreign import javascript unsafe "$1[\"deleteContents\"]()" - js_deleteContents :: Range -> IO () - --- | -deleteContents :: (MonadIO m) => Range -> m () -deleteContents self = liftIO (js_deleteContents (self)) - -foreign import javascript unsafe "$1[\"extractContents\"]()" - js_extractContents :: Range -> IO (Nullable DocumentFragment) - --- | -extractContents :: - (MonadIO m) => Range -> m (Maybe DocumentFragment) -extractContents self - = liftIO (nullableToMaybe <$> (js_extractContents (self))) - -foreign import javascript unsafe "$1[\"cloneContents\"]()" - js_cloneContents :: Range -> IO (Nullable DocumentFragment) - --- | -cloneContents :: (MonadIO m) => Range -> m (Maybe DocumentFragment) -cloneContents self - = liftIO (nullableToMaybe <$> (js_cloneContents (self))) - -foreign import javascript unsafe "$1[\"insertNode\"]($2)" - js_insertNode :: Range -> Nullable Node -> IO () - --- | -insertNode :: - (MonadIO m, IsNode newNode) => Range -> Maybe newNode -> m () -insertNode self newNode - = liftIO - (js_insertNode (self) (maybeToNullable (fmap toNode newNode))) - -foreign import javascript unsafe "$1[\"surroundContents\"]($2)" - js_surroundContents :: Range -> Nullable Node -> IO () - --- | -surroundContents :: - (MonadIO m, IsNode newParent) => Range -> Maybe newParent -> m () -surroundContents self newParent - = liftIO - (js_surroundContents (self) - (maybeToNullable (fmap toNode newParent))) - -foreign import javascript unsafe "$1[\"cloneRange\"]()" - js_cloneRange :: Range -> IO (Nullable Range) - --- | -cloneRange :: (MonadIO m) => Range -> m (Maybe Range) -cloneRange self - = liftIO (nullableToMaybe <$> (js_cloneRange (self))) - -foreign import javascript unsafe "$1[\"toString\"]()" js_toString - :: Range -> IO JSString - --- | -toString :: (MonadIO m, FromJSString result) => Range -> m result -toString self = liftIO (fromJSString <$> (js_toString (self))) - -foreign import javascript unsafe "$1[\"detach\"]()" js_detach :: - Range -> IO () - --- | -detach :: (MonadIO m) => Range -> m () -detach self = liftIO (js_detach (self)) - -foreign import javascript unsafe "$1[\"getClientRects\"]()" - js_getClientRects :: Range -> IO (Nullable ClientRectList) - --- | -getClientRects :: (MonadIO m) => Range -> m (Maybe ClientRectList) -getClientRects self - = liftIO (nullableToMaybe <$> (js_getClientRects (self))) - -foreign import javascript unsafe "$1[\"getBoundingClientRect\"]()" - js_getBoundingClientRect :: Range -> IO (Nullable ClientRect) - --- | -getBoundingClientRect :: - (MonadIO m) => Range -> m (Maybe ClientRect) -getBoundingClientRect self - = liftIO (nullableToMaybe <$> (js_getBoundingClientRect (self))) - -foreign import javascript unsafe - "$1[\"createContextualFragment\"]($2)" js_createContextualFragment - :: Range -> JSString -> IO (Nullable DocumentFragment) - --- | -createContextualFragment :: - (MonadIO m, ToJSString html) => - Range -> html -> m (Maybe DocumentFragment) -createContextualFragment self html - = liftIO - (nullableToMaybe <$> - (js_createContextualFragment (self) (toJSString html))) - -foreign import javascript unsafe - "($1[\"intersectsNode\"]($2) ? 1 : 0)" js_intersectsNode :: - Range -> Nullable Node -> IO Bool - --- | -intersectsNode :: - (MonadIO m, IsNode refNode) => Range -> Maybe refNode -> m Bool -intersectsNode self refNode - = liftIO - (js_intersectsNode (self) (maybeToNullable (fmap toNode refNode))) - -foreign import javascript unsafe "$1[\"compareNode\"]($2)" - js_compareNode :: Range -> Nullable Node -> IO Int - --- | -compareNode :: - (MonadIO m, IsNode refNode) => Range -> Maybe refNode -> m Int -compareNode self refNode - = liftIO - (js_compareNode (self) (maybeToNullable (fmap toNode refNode))) - -foreign import javascript unsafe "$1[\"comparePoint\"]($2, $3)" - js_comparePoint :: Range -> Nullable Node -> Int -> IO Int - --- | -comparePoint :: - (MonadIO m, IsNode refNode) => - Range -> Maybe refNode -> Int -> m Int -comparePoint self refNode offset - = liftIO - (js_comparePoint (self) (maybeToNullable (fmap toNode refNode)) - offset) - -foreign import javascript unsafe - "($1[\"isPointInRange\"]($2,\n$3) ? 1 : 0)" js_isPointInRange :: - Range -> Nullable Node -> Int -> IO Bool - --- | -isPointInRange :: - (MonadIO m, IsNode refNode) => - Range -> Maybe refNode -> Int -> m Bool -isPointInRange self refNode offset - = liftIO - (js_isPointInRange (self) (maybeToNullable (fmap toNode refNode)) - offset) - -foreign import javascript unsafe "$1[\"expand\"]($2)" js_expand :: - Range -> JSString -> IO () - --- | -expand :: (MonadIO m, ToJSString unit) => Range -> unit -> m () -expand self unit = liftIO (js_expand (self) (toJSString unit)) -pattern START_TO_START = 0 -pattern START_TO_END = 1 -pattern END_TO_END = 2 -pattern END_TO_START = 3 -pattern NODE_BEFORE = 0 -pattern NODE_AFTER = 1 -pattern NODE_BEFORE_AND_AFTER = 2 -pattern NODE_INSIDE = 3 - -foreign import javascript unsafe "$1[\"startContainer\"]" - js_getStartContainer :: Range -> IO (Nullable Node) - --- | -getStartContainer :: (MonadIO m) => Range -> m (Maybe Node) -getStartContainer self - = liftIO (nullableToMaybe <$> (js_getStartContainer (self))) - -foreign import javascript unsafe "$1[\"startOffset\"]" - js_getStartOffset :: Range -> IO Int - --- | -getStartOffset :: (MonadIO m) => Range -> m Int -getStartOffset self = liftIO (js_getStartOffset (self)) - -foreign import javascript unsafe "$1[\"endContainer\"]" - js_getEndContainer :: Range -> IO (Nullable Node) - --- | -getEndContainer :: (MonadIO m) => Range -> m (Maybe Node) -getEndContainer self - = liftIO (nullableToMaybe <$> (js_getEndContainer (self))) - -foreign import javascript unsafe "$1[\"endOffset\"]" - js_getEndOffset :: Range -> IO Int - --- | -getEndOffset :: (MonadIO m) => Range -> m Int -getEndOffset self = liftIO (js_getEndOffset (self)) - -foreign import javascript unsafe "($1[\"collapsed\"] ? 1 : 0)" - js_getCollapsed :: Range -> IO Bool - --- | -getCollapsed :: (MonadIO m) => Range -> m Bool -getCollapsed self = liftIO (js_getCollapsed (self)) - -foreign import javascript unsafe "$1[\"commonAncestorContainer\"]" - js_getCommonAncestorContainer :: Range -> IO (Nullable Node) - --- | -getCommonAncestorContainer :: - (MonadIO m) => Range -> m (Maybe Node) -getCommonAncestorContainer self - = liftIO - (nullableToMaybe <$> (js_getCommonAncestorContainer (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/ReadableStream.hs b/src/GHCJS/DOM/JSFFI/Generated/ReadableStream.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/ReadableStream.hs +++ /dev/null @@ -1,93 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.ReadableStream - (js_newReadableStream, newReadableStream, js_read, read, js_cancel, - cancel, js_pipeTo, pipeTo, js_pipeThrough, pipeThrough, - js_getState, getState, js_getClosed, getClosed, js_getReady, - getReady, ReadableStream, castToReadableStream, - gTypeReadableStream) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe - "new window[\"ReadableStream\"]($1)" js_newReadableStream :: - JSVal -> IO ReadableStream - --- | -newReadableStream :: (MonadIO m) => JSVal -> m ReadableStream -newReadableStream properties - = liftIO (js_newReadableStream properties) - -foreign import javascript unsafe "$1[\"read\"]()" js_read :: - ReadableStream -> IO (Nullable GObject) - --- | -read :: (MonadIO m) => ReadableStream -> m (Maybe GObject) -read self = liftIO (nullableToMaybe <$> (js_read (self))) - -foreign import javascript unsafe "$1[\"cancel\"]($2)" js_cancel :: - ReadableStream -> JSString -> IO (Nullable Promise) - --- | -cancel :: - (MonadIO m, ToJSString reason) => - ReadableStream -> reason -> m (Maybe Promise) -cancel self reason - = liftIO - (nullableToMaybe <$> (js_cancel (self) (toJSString reason))) - -foreign import javascript unsafe "$1[\"pipeTo\"]($2, $3)" js_pipeTo - :: ReadableStream -> JSVal -> JSVal -> IO (Nullable Promise) - --- | -pipeTo :: - (MonadIO m) => - ReadableStream -> JSVal -> JSVal -> m (Maybe Promise) -pipeTo self streams options - = liftIO (nullableToMaybe <$> (js_pipeTo (self) streams options)) - -foreign import javascript unsafe "$1[\"pipeThrough\"]($2, $3)" - js_pipeThrough :: - ReadableStream -> JSVal -> JSVal -> IO (Nullable GObject) - --- | -pipeThrough :: - (MonadIO m) => - ReadableStream -> JSVal -> JSVal -> m (Maybe GObject) -pipeThrough self dest options - = liftIO (nullableToMaybe <$> (js_pipeThrough (self) dest options)) - -foreign import javascript unsafe "$1[\"state\"]" js_getState :: - ReadableStream -> IO JSVal - --- | -getState :: - (MonadIO m) => ReadableStream -> m ReadableStreamStateType -getState self - = liftIO ((js_getState (self)) >>= fromJSValUnchecked) - -foreign import javascript unsafe "$1[\"closed\"]" js_getClosed :: - ReadableStream -> IO (Nullable Promise) - --- | -getClosed :: (MonadIO m) => ReadableStream -> m (Maybe Promise) -getClosed self = liftIO (nullableToMaybe <$> (js_getClosed (self))) - -foreign import javascript unsafe "$1[\"ready\"]" js_getReady :: - ReadableStream -> IO (Nullable Promise) - --- | -getReady :: (MonadIO m) => ReadableStream -> m (Maybe Promise) -getReady self = liftIO (nullableToMaybe <$> (js_getReady (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/Rect.hs b/src/GHCJS/DOM/JSFFI/Generated/Rect.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/Rect.hs +++ /dev/null @@ -1,47 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.Rect - (js_getTop, getTop, js_getRight, getRight, js_getBottom, getBottom, - js_getLeft, getLeft, Rect, castToRect, gTypeRect) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"top\"]" js_getTop :: - Rect -> IO (Nullable CSSPrimitiveValue) - --- | -getTop :: (MonadIO m) => Rect -> m (Maybe CSSPrimitiveValue) -getTop self = liftIO (nullableToMaybe <$> (js_getTop (self))) - -foreign import javascript unsafe "$1[\"right\"]" js_getRight :: - Rect -> IO (Nullable CSSPrimitiveValue) - --- | -getRight :: (MonadIO m) => Rect -> m (Maybe CSSPrimitiveValue) -getRight self = liftIO (nullableToMaybe <$> (js_getRight (self))) - -foreign import javascript unsafe "$1[\"bottom\"]" js_getBottom :: - Rect -> IO (Nullable CSSPrimitiveValue) - --- | -getBottom :: (MonadIO m) => Rect -> m (Maybe CSSPrimitiveValue) -getBottom self = liftIO (nullableToMaybe <$> (js_getBottom (self))) - -foreign import javascript unsafe "$1[\"left\"]" js_getLeft :: - Rect -> IO (Nullable CSSPrimitiveValue) - --- | -getLeft :: (MonadIO m) => Rect -> m (Maybe CSSPrimitiveValue) -getLeft self = liftIO (nullableToMaybe <$> (js_getLeft (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/RequestAnimationFrameCallback.hs b/src/GHCJS/DOM/JSFFI/Generated/RequestAnimationFrameCallback.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/RequestAnimationFrameCallback.hs +++ /dev/null @@ -1,56 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.RequestAnimationFrameCallback - (newRequestAnimationFrameCallback, - newRequestAnimationFrameCallbackSync, - newRequestAnimationFrameCallbackAsync, - RequestAnimationFrameCallback) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - --- | -newRequestAnimationFrameCallback :: - (MonadIO m) => (Double -> IO ()) -> m RequestAnimationFrameCallback -newRequestAnimationFrameCallback callback - = liftIO - (RequestAnimationFrameCallback <$> - syncCallback1 ThrowWouldBlock - (\ highResTime -> - fromJSValUnchecked highResTime >>= - \ highResTime' -> callback highResTime')) - --- | -newRequestAnimationFrameCallbackSync :: - (MonadIO m) => - (Double -> IO ()) -> m RequestAnimationFrameCallback -newRequestAnimationFrameCallbackSync callback - = liftIO - (RequestAnimationFrameCallback <$> - syncCallback1 ContinueAsync - (\ highResTime -> - fromJSValUnchecked highResTime >>= - \ highResTime' -> callback highResTime')) - --- | -newRequestAnimationFrameCallbackAsync :: - (MonadIO m) => - (Double -> IO ()) -> m RequestAnimationFrameCallback -newRequestAnimationFrameCallbackAsync callback - = liftIO - (RequestAnimationFrameCallback <$> - asyncCallback1 - (\ highResTime -> - fromJSValUnchecked highResTime >>= - \ highResTime' -> callback highResTime')) diff --git a/src/GHCJS/DOM/JSFFI/Generated/SQLError.hs b/src/GHCJS/DOM/JSFFI/Generated/SQLError.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/SQLError.hs +++ /dev/null @@ -1,44 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.SQLError - (pattern UNKNOWN_ERR, pattern DATABASE_ERR, pattern VERSION_ERR, - pattern TOO_LARGE_ERR, pattern QUOTA_ERR, pattern SYNTAX_ERR, - pattern CONSTRAINT_ERR, pattern TIMEOUT_ERR, js_getCode, getCode, - js_getMessage, getMessage, SQLError, castToSQLError, gTypeSQLError) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums -pattern UNKNOWN_ERR = 0 -pattern DATABASE_ERR = 1 -pattern VERSION_ERR = 2 -pattern TOO_LARGE_ERR = 3 -pattern QUOTA_ERR = 4 -pattern SYNTAX_ERR = 5 -pattern CONSTRAINT_ERR = 6 -pattern TIMEOUT_ERR = 7 - -foreign import javascript unsafe "$1[\"code\"]" js_getCode :: - SQLError -> IO Word - --- | -getCode :: (MonadIO m) => SQLError -> m Word -getCode self = liftIO (js_getCode (self)) - -foreign import javascript unsafe "$1[\"message\"]" js_getMessage :: - SQLError -> IO JSString - --- | -getMessage :: - (MonadIO m, FromJSString result) => SQLError -> m result -getMessage self = liftIO (fromJSString <$> (js_getMessage (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/SQLResultSet.hs b/src/GHCJS/DOM/JSFFI/Generated/SQLResultSet.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/SQLResultSet.hs +++ /dev/null @@ -1,42 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.SQLResultSet - (js_getRows, getRows, js_getInsertId, getInsertId, - js_getRowsAffected, getRowsAffected, SQLResultSet, - castToSQLResultSet, gTypeSQLResultSet) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"rows\"]" js_getRows :: - SQLResultSet -> IO (Nullable SQLResultSetRowList) - --- | -getRows :: - (MonadIO m) => SQLResultSet -> m (Maybe SQLResultSetRowList) -getRows self = liftIO (nullableToMaybe <$> (js_getRows (self))) - -foreign import javascript unsafe "$1[\"insertId\"]" js_getInsertId - :: SQLResultSet -> IO Int - --- | -getInsertId :: (MonadIO m) => SQLResultSet -> m Int -getInsertId self = liftIO (js_getInsertId (self)) - -foreign import javascript unsafe "$1[\"rowsAffected\"]" - js_getRowsAffected :: SQLResultSet -> IO Int - --- | -getRowsAffected :: (MonadIO m) => SQLResultSet -> m Int -getRowsAffected self = liftIO (js_getRowsAffected (self)) diff --git a/src/GHCJS/DOM/JSFFI/Generated/SQLResultSetRowList.hs b/src/GHCJS/DOM/JSFFI/Generated/SQLResultSetRowList.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/SQLResultSetRowList.hs +++ /dev/null @@ -1,33 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.SQLResultSetRowList - (js_item, item, js_getLength, getLength, SQLResultSetRowList, - castToSQLResultSetRowList, gTypeSQLResultSetRowList) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"item\"]($2)" js_item :: - SQLResultSetRowList -> Word -> IO JSVal - --- | -item :: (MonadIO m) => SQLResultSetRowList -> Word -> m JSVal -item self index = liftIO (js_item (self) index) - -foreign import javascript unsafe "$1[\"length\"]" js_getLength :: - SQLResultSetRowList -> IO Word - --- | -getLength :: (MonadIO m) => SQLResultSetRowList -> m Word -getLength self = liftIO (js_getLength (self)) diff --git a/src/GHCJS/DOM/JSFFI/Generated/SQLStatementCallback.hs b/src/GHCJS/DOM/JSFFI/Generated/SQLStatementCallback.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/SQLStatementCallback.hs +++ /dev/null @@ -1,67 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.SQLStatementCallback - (newSQLStatementCallback, newSQLStatementCallbackSync, - newSQLStatementCallbackAsync, SQLStatementCallback) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - --- | -newSQLStatementCallback :: - (MonadIO m) => - (Maybe SQLTransaction -> Maybe SQLResultSet -> IO ()) -> - m SQLStatementCallback -newSQLStatementCallback callback - = liftIO - (SQLStatementCallback <$> - syncCallback2 ThrowWouldBlock - (\ transaction resultSet -> - fromJSValUnchecked resultSet >>= - \ resultSet' -> - fromJSValUnchecked transaction >>= - \ transaction' -> callback transaction' - resultSet')) - --- | -newSQLStatementCallbackSync :: - (MonadIO m) => - (Maybe SQLTransaction -> Maybe SQLResultSet -> IO ()) -> - m SQLStatementCallback -newSQLStatementCallbackSync callback - = liftIO - (SQLStatementCallback <$> - syncCallback2 ContinueAsync - (\ transaction resultSet -> - fromJSValUnchecked resultSet >>= - \ resultSet' -> - fromJSValUnchecked transaction >>= - \ transaction' -> callback transaction' - resultSet')) - --- | -newSQLStatementCallbackAsync :: - (MonadIO m) => - (Maybe SQLTransaction -> Maybe SQLResultSet -> IO ()) -> - m SQLStatementCallback -newSQLStatementCallbackAsync callback - = liftIO - (SQLStatementCallback <$> - asyncCallback2 - (\ transaction resultSet -> - fromJSValUnchecked resultSet >>= - \ resultSet' -> - fromJSValUnchecked transaction >>= - \ transaction' -> callback transaction' - resultSet')) diff --git a/src/GHCJS/DOM/JSFFI/Generated/SQLStatementErrorCallback.hs b/src/GHCJS/DOM/JSFFI/Generated/SQLStatementErrorCallback.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/SQLStatementErrorCallback.hs +++ /dev/null @@ -1,67 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.SQLStatementErrorCallback - (newSQLStatementErrorCallback, newSQLStatementErrorCallbackSync, - newSQLStatementErrorCallbackAsync, SQLStatementErrorCallback) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - --- | -newSQLStatementErrorCallback :: - (MonadIO m) => - (Maybe SQLTransaction -> Maybe SQLError -> IO ()) -> - m SQLStatementErrorCallback -newSQLStatementErrorCallback callback - = liftIO - (SQLStatementErrorCallback <$> - syncCallback2 ThrowWouldBlock - (\ transaction error -> - fromJSValUnchecked error >>= - \ error' -> - fromJSValUnchecked transaction >>= - \ transaction' -> callback transaction' - error')) - --- | -newSQLStatementErrorCallbackSync :: - (MonadIO m) => - (Maybe SQLTransaction -> Maybe SQLError -> IO ()) -> - m SQLStatementErrorCallback -newSQLStatementErrorCallbackSync callback - = liftIO - (SQLStatementErrorCallback <$> - syncCallback2 ContinueAsync - (\ transaction error -> - fromJSValUnchecked error >>= - \ error' -> - fromJSValUnchecked transaction >>= - \ transaction' -> callback transaction' - error')) - --- | -newSQLStatementErrorCallbackAsync :: - (MonadIO m) => - (Maybe SQLTransaction -> Maybe SQLError -> IO ()) -> - m SQLStatementErrorCallback -newSQLStatementErrorCallbackAsync callback - = liftIO - (SQLStatementErrorCallback <$> - asyncCallback2 - (\ transaction error -> - fromJSValUnchecked error >>= - \ error' -> - fromJSValUnchecked transaction >>= - \ transaction' -> callback transaction' - error')) diff --git a/src/GHCJS/DOM/JSFFI/Generated/SQLTransaction.hs b/src/GHCJS/DOM/JSFFI/Generated/SQLTransaction.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/SQLTransaction.hs +++ /dev/null @@ -1,42 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.SQLTransaction - (js_executeSql, executeSql, SQLTransaction, castToSQLTransaction, - gTypeSQLTransaction) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe - "$1[\"executeSql\"]($2, $3, $4, $5)" js_executeSql :: - SQLTransaction -> - JSString -> - Nullable ObjectArray -> - Nullable SQLStatementCallback -> - Nullable SQLStatementErrorCallback -> IO () - --- | -executeSql :: - (MonadIO m, ToJSString sqlStatement, IsObjectArray arguments) => - SQLTransaction -> - sqlStatement -> - Maybe arguments -> - Maybe SQLStatementCallback -> - Maybe SQLStatementErrorCallback -> m () -executeSql self sqlStatement arguments callback errorCallback - = liftIO - (js_executeSql (self) (toJSString sqlStatement) - (maybeToNullable (fmap toObjectArray arguments)) - (maybeToNullable callback) - (maybeToNullable errorCallback)) diff --git a/src/GHCJS/DOM/JSFFI/Generated/SQLTransactionCallback.hs b/src/GHCJS/DOM/JSFFI/Generated/SQLTransactionCallback.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/SQLTransactionCallback.hs +++ /dev/null @@ -1,55 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.SQLTransactionCallback - (newSQLTransactionCallback, newSQLTransactionCallbackSync, - newSQLTransactionCallbackAsync, SQLTransactionCallback) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - --- | -newSQLTransactionCallback :: - (MonadIO m) => - (Maybe SQLTransaction -> IO ()) -> m SQLTransactionCallback -newSQLTransactionCallback callback - = liftIO - (SQLTransactionCallback <$> - syncCallback1 ThrowWouldBlock - (\ transaction -> - fromJSValUnchecked transaction >>= - \ transaction' -> callback transaction')) - --- | -newSQLTransactionCallbackSync :: - (MonadIO m) => - (Maybe SQLTransaction -> IO ()) -> m SQLTransactionCallback -newSQLTransactionCallbackSync callback - = liftIO - (SQLTransactionCallback <$> - syncCallback1 ContinueAsync - (\ transaction -> - fromJSValUnchecked transaction >>= - \ transaction' -> callback transaction')) - --- | -newSQLTransactionCallbackAsync :: - (MonadIO m) => - (Maybe SQLTransaction -> IO ()) -> m SQLTransactionCallback -newSQLTransactionCallbackAsync callback - = liftIO - (SQLTransactionCallback <$> - asyncCallback1 - (\ transaction -> - fromJSValUnchecked transaction >>= - \ transaction' -> callback transaction')) diff --git a/src/GHCJS/DOM/JSFFI/Generated/SQLTransactionErrorCallback.hs b/src/GHCJS/DOM/JSFFI/Generated/SQLTransactionErrorCallback.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/SQLTransactionErrorCallback.hs +++ /dev/null @@ -1,53 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.SQLTransactionErrorCallback - (newSQLTransactionErrorCallback, - newSQLTransactionErrorCallbackSync, - newSQLTransactionErrorCallbackAsync, SQLTransactionErrorCallback) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - --- | -newSQLTransactionErrorCallback :: - (MonadIO m) => - (Maybe SQLError -> IO ()) -> m SQLTransactionErrorCallback -newSQLTransactionErrorCallback callback - = liftIO - (SQLTransactionErrorCallback <$> - syncCallback1 ThrowWouldBlock - (\ error -> - fromJSValUnchecked error >>= \ error' -> callback error')) - --- | -newSQLTransactionErrorCallbackSync :: - (MonadIO m) => - (Maybe SQLError -> IO ()) -> m SQLTransactionErrorCallback -newSQLTransactionErrorCallbackSync callback - = liftIO - (SQLTransactionErrorCallback <$> - syncCallback1 ContinueAsync - (\ error -> - fromJSValUnchecked error >>= \ error' -> callback error')) - --- | -newSQLTransactionErrorCallbackAsync :: - (MonadIO m) => - (Maybe SQLError -> IO ()) -> m SQLTransactionErrorCallback -newSQLTransactionErrorCallbackAsync callback - = liftIO - (SQLTransactionErrorCallback <$> - asyncCallback1 - (\ error -> - fromJSValUnchecked error >>= \ error' -> callback error')) diff --git a/src/GHCJS/DOM/JSFFI/Generated/SVGAElement.hs b/src/GHCJS/DOM/JSFFI/Generated/SVGAElement.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/SVGAElement.hs +++ /dev/null @@ -1,27 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.SVGAElement - (js_getTarget, getTarget, SVGAElement, castToSVGAElement, - gTypeSVGAElement) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"target\"]" js_getTarget :: - SVGAElement -> IO (Nullable SVGAnimatedString) - --- | -getTarget :: - (MonadIO m) => SVGAElement -> m (Maybe SVGAnimatedString) -getTarget self = liftIO (nullableToMaybe <$> (js_getTarget (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/SVGAltGlyphElement.hs b/src/GHCJS/DOM/JSFFI/Generated/SVGAltGlyphElement.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/SVGAltGlyphElement.hs +++ /dev/null @@ -1,55 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.SVGAltGlyphElement - (js_setGlyphRef, setGlyphRef, js_getGlyphRef, getGlyphRef, - js_setFormat, setFormat, js_getFormat, getFormat, - SVGAltGlyphElement, castToSVGAltGlyphElement, - gTypeSVGAltGlyphElement) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"glyphRef\"] = $2;" - js_setGlyphRef :: SVGAltGlyphElement -> JSString -> IO () - --- | -setGlyphRef :: - (MonadIO m, ToJSString val) => SVGAltGlyphElement -> val -> m () -setGlyphRef self val - = liftIO (js_setGlyphRef (self) (toJSString val)) - -foreign import javascript unsafe "$1[\"glyphRef\"]" js_getGlyphRef - :: SVGAltGlyphElement -> IO JSString - --- | -getGlyphRef :: - (MonadIO m, FromJSString result) => SVGAltGlyphElement -> m result -getGlyphRef self - = liftIO (fromJSString <$> (js_getGlyphRef (self))) - -foreign import javascript unsafe "$1[\"format\"] = $2;" - js_setFormat :: SVGAltGlyphElement -> JSString -> IO () - --- | -setFormat :: - (MonadIO m, ToJSString val) => SVGAltGlyphElement -> val -> m () -setFormat self val = liftIO (js_setFormat (self) (toJSString val)) - -foreign import javascript unsafe "$1[\"format\"]" js_getFormat :: - SVGAltGlyphElement -> IO JSString - --- | -getFormat :: - (MonadIO m, FromJSString result) => SVGAltGlyphElement -> m result -getFormat self = liftIO (fromJSString <$> (js_getFormat (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/SVGAngle.hs b/src/GHCJS/DOM/JSFFI/Generated/SVGAngle.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/SVGAngle.hs +++ /dev/null @@ -1,109 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.SVGAngle - (js_newValueSpecifiedUnits, newValueSpecifiedUnits, - js_convertToSpecifiedUnits, convertToSpecifiedUnits, - pattern SVG_ANGLETYPE_UNKNOWN, pattern SVG_ANGLETYPE_UNSPECIFIED, - pattern SVG_ANGLETYPE_DEG, pattern SVG_ANGLETYPE_RAD, - pattern SVG_ANGLETYPE_GRAD, js_getUnitType, getUnitType, - js_setValue, setValue, js_getValue, getValue, - js_setValueInSpecifiedUnits, setValueInSpecifiedUnits, - js_getValueInSpecifiedUnits, getValueInSpecifiedUnits, - js_setValueAsString, setValueAsString, js_getValueAsString, - getValueAsString, SVGAngle, castToSVGAngle, gTypeSVGAngle) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe - "$1[\"newValueSpecifiedUnits\"]($2,\n$3)" js_newValueSpecifiedUnits - :: SVGAngle -> Word -> Float -> IO () - --- | -newValueSpecifiedUnits :: - (MonadIO m) => SVGAngle -> Word -> Float -> m () -newValueSpecifiedUnits self unitType valueInSpecifiedUnits - = liftIO - (js_newValueSpecifiedUnits (self) unitType valueInSpecifiedUnits) - -foreign import javascript unsafe - "$1[\"convertToSpecifiedUnits\"]($2)" js_convertToSpecifiedUnits :: - SVGAngle -> Word -> IO () - --- | -convertToSpecifiedUnits :: (MonadIO m) => SVGAngle -> Word -> m () -convertToSpecifiedUnits self unitType - = liftIO (js_convertToSpecifiedUnits (self) unitType) -pattern SVG_ANGLETYPE_UNKNOWN = 0 -pattern SVG_ANGLETYPE_UNSPECIFIED = 1 -pattern SVG_ANGLETYPE_DEG = 2 -pattern SVG_ANGLETYPE_RAD = 3 -pattern SVG_ANGLETYPE_GRAD = 4 - -foreign import javascript unsafe "$1[\"unitType\"]" js_getUnitType - :: SVGAngle -> IO Word - --- | -getUnitType :: (MonadIO m) => SVGAngle -> m Word -getUnitType self = liftIO (js_getUnitType (self)) - -foreign import javascript unsafe "$1[\"value\"] = $2;" js_setValue - :: SVGAngle -> Float -> IO () - --- | -setValue :: (MonadIO m) => SVGAngle -> Float -> m () -setValue self val = liftIO (js_setValue (self) val) - -foreign import javascript unsafe "$1[\"value\"]" js_getValue :: - SVGAngle -> IO Float - --- | -getValue :: (MonadIO m) => SVGAngle -> m Float -getValue self = liftIO (js_getValue (self)) - -foreign import javascript unsafe - "$1[\"valueInSpecifiedUnits\"] = $2;" js_setValueInSpecifiedUnits - :: SVGAngle -> Float -> IO () - --- | -setValueInSpecifiedUnits :: - (MonadIO m) => SVGAngle -> Float -> m () -setValueInSpecifiedUnits self val - = liftIO (js_setValueInSpecifiedUnits (self) val) - -foreign import javascript unsafe "$1[\"valueInSpecifiedUnits\"]" - js_getValueInSpecifiedUnits :: SVGAngle -> IO Float - --- | -getValueInSpecifiedUnits :: (MonadIO m) => SVGAngle -> m Float -getValueInSpecifiedUnits self - = liftIO (js_getValueInSpecifiedUnits (self)) - -foreign import javascript unsafe "$1[\"valueAsString\"] = $2;" - js_setValueAsString :: SVGAngle -> Nullable JSString -> IO () - --- | -setValueAsString :: - (MonadIO m, ToJSString val) => SVGAngle -> Maybe val -> m () -setValueAsString self val - = liftIO (js_setValueAsString (self) (toMaybeJSString val)) - -foreign import javascript unsafe "$1[\"valueAsString\"]" - js_getValueAsString :: SVGAngle -> IO (Nullable JSString) - --- | -getValueAsString :: - (MonadIO m, FromJSString result) => SVGAngle -> m (Maybe result) -getValueAsString self - = liftIO (fromMaybeJSString <$> (js_getValueAsString (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/SVGAnimatedAngle.hs b/src/GHCJS/DOM/JSFFI/Generated/SVGAnimatedAngle.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/SVGAnimatedAngle.hs +++ /dev/null @@ -1,35 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.SVGAnimatedAngle - (js_getBaseVal, getBaseVal, js_getAnimVal, getAnimVal, - SVGAnimatedAngle, castToSVGAnimatedAngle, gTypeSVGAnimatedAngle) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"baseVal\"]" js_getBaseVal :: - SVGAnimatedAngle -> IO (Nullable SVGAngle) - --- | -getBaseVal :: (MonadIO m) => SVGAnimatedAngle -> m (Maybe SVGAngle) -getBaseVal self - = liftIO (nullableToMaybe <$> (js_getBaseVal (self))) - -foreign import javascript unsafe "$1[\"animVal\"]" js_getAnimVal :: - SVGAnimatedAngle -> IO (Nullable SVGAngle) - --- | -getAnimVal :: (MonadIO m) => SVGAnimatedAngle -> m (Maybe SVGAngle) -getAnimVal self - = liftIO (nullableToMaybe <$> (js_getAnimVal (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/SVGAnimatedBoolean.hs b/src/GHCJS/DOM/JSFFI/Generated/SVGAnimatedBoolean.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/SVGAnimatedBoolean.hs +++ /dev/null @@ -1,41 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.SVGAnimatedBoolean - (js_setBaseVal, setBaseVal, js_getBaseVal, getBaseVal, - js_getAnimVal, getAnimVal, SVGAnimatedBoolean, - castToSVGAnimatedBoolean, gTypeSVGAnimatedBoolean) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"baseVal\"] = $2;" - js_setBaseVal :: SVGAnimatedBoolean -> Bool -> IO () - --- | -setBaseVal :: (MonadIO m) => SVGAnimatedBoolean -> Bool -> m () -setBaseVal self val = liftIO (js_setBaseVal (self) val) - -foreign import javascript unsafe "($1[\"baseVal\"] ? 1 : 0)" - js_getBaseVal :: SVGAnimatedBoolean -> IO Bool - --- | -getBaseVal :: (MonadIO m) => SVGAnimatedBoolean -> m Bool -getBaseVal self = liftIO (js_getBaseVal (self)) - -foreign import javascript unsafe "($1[\"animVal\"] ? 1 : 0)" - js_getAnimVal :: SVGAnimatedBoolean -> IO Bool - --- | -getAnimVal :: (MonadIO m) => SVGAnimatedBoolean -> m Bool -getAnimVal self = liftIO (js_getAnimVal (self)) diff --git a/src/GHCJS/DOM/JSFFI/Generated/SVGAnimatedEnumeration.hs b/src/GHCJS/DOM/JSFFI/Generated/SVGAnimatedEnumeration.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/SVGAnimatedEnumeration.hs +++ /dev/null @@ -1,41 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.SVGAnimatedEnumeration - (js_setBaseVal, setBaseVal, js_getBaseVal, getBaseVal, - js_getAnimVal, getAnimVal, SVGAnimatedEnumeration, - castToSVGAnimatedEnumeration, gTypeSVGAnimatedEnumeration) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"baseVal\"] = $2;" - js_setBaseVal :: SVGAnimatedEnumeration -> Word -> IO () - --- | -setBaseVal :: (MonadIO m) => SVGAnimatedEnumeration -> Word -> m () -setBaseVal self val = liftIO (js_setBaseVal (self) val) - -foreign import javascript unsafe "$1[\"baseVal\"]" js_getBaseVal :: - SVGAnimatedEnumeration -> IO Word - --- | -getBaseVal :: (MonadIO m) => SVGAnimatedEnumeration -> m Word -getBaseVal self = liftIO (js_getBaseVal (self)) - -foreign import javascript unsafe "$1[\"animVal\"]" js_getAnimVal :: - SVGAnimatedEnumeration -> IO Word - --- | -getAnimVal :: (MonadIO m) => SVGAnimatedEnumeration -> m Word -getAnimVal self = liftIO (js_getAnimVal (self)) diff --git a/src/GHCJS/DOM/JSFFI/Generated/SVGAnimatedInteger.hs b/src/GHCJS/DOM/JSFFI/Generated/SVGAnimatedInteger.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/SVGAnimatedInteger.hs +++ /dev/null @@ -1,41 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.SVGAnimatedInteger - (js_setBaseVal, setBaseVal, js_getBaseVal, getBaseVal, - js_getAnimVal, getAnimVal, SVGAnimatedInteger, - castToSVGAnimatedInteger, gTypeSVGAnimatedInteger) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"baseVal\"] = $2;" - js_setBaseVal :: SVGAnimatedInteger -> Int -> IO () - --- | -setBaseVal :: (MonadIO m) => SVGAnimatedInteger -> Int -> m () -setBaseVal self val = liftIO (js_setBaseVal (self) val) - -foreign import javascript unsafe "$1[\"baseVal\"]" js_getBaseVal :: - SVGAnimatedInteger -> IO Int - --- | -getBaseVal :: (MonadIO m) => SVGAnimatedInteger -> m Int -getBaseVal self = liftIO (js_getBaseVal (self)) - -foreign import javascript unsafe "$1[\"animVal\"]" js_getAnimVal :: - SVGAnimatedInteger -> IO Int - --- | -getAnimVal :: (MonadIO m) => SVGAnimatedInteger -> m Int -getAnimVal self = liftIO (js_getAnimVal (self)) diff --git a/src/GHCJS/DOM/JSFFI/Generated/SVGAnimatedLength.hs b/src/GHCJS/DOM/JSFFI/Generated/SVGAnimatedLength.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/SVGAnimatedLength.hs +++ /dev/null @@ -1,37 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.SVGAnimatedLength - (js_getBaseVal, getBaseVal, js_getAnimVal, getAnimVal, - SVGAnimatedLength, castToSVGAnimatedLength, gTypeSVGAnimatedLength) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"baseVal\"]" js_getBaseVal :: - SVGAnimatedLength -> IO (Nullable SVGLength) - --- | -getBaseVal :: - (MonadIO m) => SVGAnimatedLength -> m (Maybe SVGLength) -getBaseVal self - = liftIO (nullableToMaybe <$> (js_getBaseVal (self))) - -foreign import javascript unsafe "$1[\"animVal\"]" js_getAnimVal :: - SVGAnimatedLength -> IO (Nullable SVGLength) - --- | -getAnimVal :: - (MonadIO m) => SVGAnimatedLength -> m (Maybe SVGLength) -getAnimVal self - = liftIO (nullableToMaybe <$> (js_getAnimVal (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/SVGAnimatedLengthList.hs b/src/GHCJS/DOM/JSFFI/Generated/SVGAnimatedLengthList.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/SVGAnimatedLengthList.hs +++ /dev/null @@ -1,38 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.SVGAnimatedLengthList - (js_getBaseVal, getBaseVal, js_getAnimVal, getAnimVal, - SVGAnimatedLengthList, castToSVGAnimatedLengthList, - gTypeSVGAnimatedLengthList) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"baseVal\"]" js_getBaseVal :: - SVGAnimatedLengthList -> IO (Nullable SVGLengthList) - --- | -getBaseVal :: - (MonadIO m) => SVGAnimatedLengthList -> m (Maybe SVGLengthList) -getBaseVal self - = liftIO (nullableToMaybe <$> (js_getBaseVal (self))) - -foreign import javascript unsafe "$1[\"animVal\"]" js_getAnimVal :: - SVGAnimatedLengthList -> IO (Nullable SVGLengthList) - --- | -getAnimVal :: - (MonadIO m) => SVGAnimatedLengthList -> m (Maybe SVGLengthList) -getAnimVal self - = liftIO (nullableToMaybe <$> (js_getAnimVal (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/SVGAnimatedNumber.hs b/src/GHCJS/DOM/JSFFI/Generated/SVGAnimatedNumber.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/SVGAnimatedNumber.hs +++ /dev/null @@ -1,41 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.SVGAnimatedNumber - (js_setBaseVal, setBaseVal, js_getBaseVal, getBaseVal, - js_getAnimVal, getAnimVal, SVGAnimatedNumber, - castToSVGAnimatedNumber, gTypeSVGAnimatedNumber) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"baseVal\"] = $2;" - js_setBaseVal :: SVGAnimatedNumber -> Float -> IO () - --- | -setBaseVal :: (MonadIO m) => SVGAnimatedNumber -> Float -> m () -setBaseVal self val = liftIO (js_setBaseVal (self) val) - -foreign import javascript unsafe "$1[\"baseVal\"]" js_getBaseVal :: - SVGAnimatedNumber -> IO Float - --- | -getBaseVal :: (MonadIO m) => SVGAnimatedNumber -> m Float -getBaseVal self = liftIO (js_getBaseVal (self)) - -foreign import javascript unsafe "$1[\"animVal\"]" js_getAnimVal :: - SVGAnimatedNumber -> IO Float - --- | -getAnimVal :: (MonadIO m) => SVGAnimatedNumber -> m Float -getAnimVal self = liftIO (js_getAnimVal (self)) diff --git a/src/GHCJS/DOM/JSFFI/Generated/SVGAnimatedNumberList.hs b/src/GHCJS/DOM/JSFFI/Generated/SVGAnimatedNumberList.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/SVGAnimatedNumberList.hs +++ /dev/null @@ -1,38 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.SVGAnimatedNumberList - (js_getBaseVal, getBaseVal, js_getAnimVal, getAnimVal, - SVGAnimatedNumberList, castToSVGAnimatedNumberList, - gTypeSVGAnimatedNumberList) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"baseVal\"]" js_getBaseVal :: - SVGAnimatedNumberList -> IO (Nullable SVGNumberList) - --- | -getBaseVal :: - (MonadIO m) => SVGAnimatedNumberList -> m (Maybe SVGNumberList) -getBaseVal self - = liftIO (nullableToMaybe <$> (js_getBaseVal (self))) - -foreign import javascript unsafe "$1[\"animVal\"]" js_getAnimVal :: - SVGAnimatedNumberList -> IO (Nullable SVGNumberList) - --- | -getAnimVal :: - (MonadIO m) => SVGAnimatedNumberList -> m (Maybe SVGNumberList) -getAnimVal self - = liftIO (nullableToMaybe <$> (js_getAnimVal (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/SVGAnimatedPreserveAspectRatio.hs b/src/GHCJS/DOM/JSFFI/Generated/SVGAnimatedPreserveAspectRatio.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/SVGAnimatedPreserveAspectRatio.hs +++ /dev/null @@ -1,43 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.SVGAnimatedPreserveAspectRatio - (js_getBaseVal, getBaseVal, js_getAnimVal, getAnimVal, - SVGAnimatedPreserveAspectRatio, - castToSVGAnimatedPreserveAspectRatio, - gTypeSVGAnimatedPreserveAspectRatio) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"baseVal\"]" js_getBaseVal :: - SVGAnimatedPreserveAspectRatio -> - IO (Nullable SVGPreserveAspectRatio) - --- | -getBaseVal :: - (MonadIO m) => - SVGAnimatedPreserveAspectRatio -> m (Maybe SVGPreserveAspectRatio) -getBaseVal self - = liftIO (nullableToMaybe <$> (js_getBaseVal (self))) - -foreign import javascript unsafe "$1[\"animVal\"]" js_getAnimVal :: - SVGAnimatedPreserveAspectRatio -> - IO (Nullable SVGPreserveAspectRatio) - --- | -getAnimVal :: - (MonadIO m) => - SVGAnimatedPreserveAspectRatio -> m (Maybe SVGPreserveAspectRatio) -getAnimVal self - = liftIO (nullableToMaybe <$> (js_getAnimVal (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/SVGAnimatedRect.hs b/src/GHCJS/DOM/JSFFI/Generated/SVGAnimatedRect.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/SVGAnimatedRect.hs +++ /dev/null @@ -1,35 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.SVGAnimatedRect - (js_getBaseVal, getBaseVal, js_getAnimVal, getAnimVal, - SVGAnimatedRect, castToSVGAnimatedRect, gTypeSVGAnimatedRect) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"baseVal\"]" js_getBaseVal :: - SVGAnimatedRect -> IO (Nullable SVGRect) - --- | -getBaseVal :: (MonadIO m) => SVGAnimatedRect -> m (Maybe SVGRect) -getBaseVal self - = liftIO (nullableToMaybe <$> (js_getBaseVal (self))) - -foreign import javascript unsafe "$1[\"animVal\"]" js_getAnimVal :: - SVGAnimatedRect -> IO (Nullable SVGRect) - --- | -getAnimVal :: (MonadIO m) => SVGAnimatedRect -> m (Maybe SVGRect) -getAnimVal self - = liftIO (nullableToMaybe <$> (js_getAnimVal (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/SVGAnimatedString.hs b/src/GHCJS/DOM/JSFFI/Generated/SVGAnimatedString.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/SVGAnimatedString.hs +++ /dev/null @@ -1,45 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.SVGAnimatedString - (js_setBaseVal, setBaseVal, js_getBaseVal, getBaseVal, - js_getAnimVal, getAnimVal, SVGAnimatedString, - castToSVGAnimatedString, gTypeSVGAnimatedString) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"baseVal\"] = $2;" - js_setBaseVal :: SVGAnimatedString -> JSString -> IO () - --- | -setBaseVal :: - (MonadIO m, ToJSString val) => SVGAnimatedString -> val -> m () -setBaseVal self val - = liftIO (js_setBaseVal (self) (toJSString val)) - -foreign import javascript unsafe "$1[\"baseVal\"]" js_getBaseVal :: - SVGAnimatedString -> IO JSString - --- | -getBaseVal :: - (MonadIO m, FromJSString result) => SVGAnimatedString -> m result -getBaseVal self = liftIO (fromJSString <$> (js_getBaseVal (self))) - -foreign import javascript unsafe "$1[\"animVal\"]" js_getAnimVal :: - SVGAnimatedString -> IO JSString - --- | -getAnimVal :: - (MonadIO m, FromJSString result) => SVGAnimatedString -> m result -getAnimVal self = liftIO (fromJSString <$> (js_getAnimVal (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/SVGAnimatedTransformList.hs b/src/GHCJS/DOM/JSFFI/Generated/SVGAnimatedTransformList.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/SVGAnimatedTransformList.hs +++ /dev/null @@ -1,40 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.SVGAnimatedTransformList - (js_getBaseVal, getBaseVal, js_getAnimVal, getAnimVal, - SVGAnimatedTransformList, castToSVGAnimatedTransformList, - gTypeSVGAnimatedTransformList) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"baseVal\"]" js_getBaseVal :: - SVGAnimatedTransformList -> IO (Nullable SVGTransformList) - --- | -getBaseVal :: - (MonadIO m) => - SVGAnimatedTransformList -> m (Maybe SVGTransformList) -getBaseVal self - = liftIO (nullableToMaybe <$> (js_getBaseVal (self))) - -foreign import javascript unsafe "$1[\"animVal\"]" js_getAnimVal :: - SVGAnimatedTransformList -> IO (Nullable SVGTransformList) - --- | -getAnimVal :: - (MonadIO m) => - SVGAnimatedTransformList -> m (Maybe SVGTransformList) -getAnimVal self - = liftIO (nullableToMaybe <$> (js_getAnimVal (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/SVGAnimationElement.hs b/src/GHCJS/DOM/JSFFI/Generated/SVGAnimationElement.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/SVGAnimationElement.hs +++ /dev/null @@ -1,100 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.SVGAnimationElement - (js_getStartTime, getStartTime, js_getCurrentTime, getCurrentTime, - js_getSimpleDuration, getSimpleDuration, js_beginElement, - beginElement, js_beginElementAt, beginElementAt, js_endElement, - endElement, js_endElementAt, endElementAt, js_getTargetElement, - getTargetElement, SVGAnimationElement, castToSVGAnimationElement, - gTypeSVGAnimationElement, IsSVGAnimationElement, - toSVGAnimationElement) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"getStartTime\"]()" - js_getStartTime :: SVGAnimationElement -> IO Float - --- | -getStartTime :: - (MonadIO m, IsSVGAnimationElement self) => self -> m Float -getStartTime self - = liftIO (js_getStartTime (toSVGAnimationElement self)) - -foreign import javascript unsafe "$1[\"getCurrentTime\"]()" - js_getCurrentTime :: SVGAnimationElement -> IO Float - --- | -getCurrentTime :: - (MonadIO m, IsSVGAnimationElement self) => self -> m Float -getCurrentTime self - = liftIO (js_getCurrentTime (toSVGAnimationElement self)) - -foreign import javascript unsafe "$1[\"getSimpleDuration\"]()" - js_getSimpleDuration :: SVGAnimationElement -> IO Float - --- | -getSimpleDuration :: - (MonadIO m, IsSVGAnimationElement self) => self -> m Float -getSimpleDuration self - = liftIO (js_getSimpleDuration (toSVGAnimationElement self)) - -foreign import javascript unsafe "$1[\"beginElement\"]()" - js_beginElement :: SVGAnimationElement -> IO () - --- | -beginElement :: - (MonadIO m, IsSVGAnimationElement self) => self -> m () -beginElement self - = liftIO (js_beginElement (toSVGAnimationElement self)) - -foreign import javascript unsafe "$1[\"beginElementAt\"]($2)" - js_beginElementAt :: SVGAnimationElement -> Float -> IO () - --- | -beginElementAt :: - (MonadIO m, IsSVGAnimationElement self) => self -> Float -> m () -beginElementAt self offset - = liftIO (js_beginElementAt (toSVGAnimationElement self) offset) - -foreign import javascript unsafe "$1[\"endElement\"]()" - js_endElement :: SVGAnimationElement -> IO () - --- | -endElement :: - (MonadIO m, IsSVGAnimationElement self) => self -> m () -endElement self - = liftIO (js_endElement (toSVGAnimationElement self)) - -foreign import javascript unsafe "$1[\"endElementAt\"]($2)" - js_endElementAt :: SVGAnimationElement -> Float -> IO () - --- | -endElementAt :: - (MonadIO m, IsSVGAnimationElement self) => self -> Float -> m () -endElementAt self offset - = liftIO (js_endElementAt (toSVGAnimationElement self) offset) - -foreign import javascript unsafe "$1[\"targetElement\"]" - js_getTargetElement :: - SVGAnimationElement -> IO (Nullable SVGElement) - --- | -getTargetElement :: - (MonadIO m, IsSVGAnimationElement self) => - self -> m (Maybe SVGElement) -getTargetElement self - = liftIO - (nullableToMaybe <$> - (js_getTargetElement (toSVGAnimationElement self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/SVGCircleElement.hs b/src/GHCJS/DOM/JSFFI/Generated/SVGCircleElement.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/SVGCircleElement.hs +++ /dev/null @@ -1,43 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.SVGCircleElement - (js_getCx, getCx, js_getCy, getCy, js_getR, getR, SVGCircleElement, - castToSVGCircleElement, gTypeSVGCircleElement) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"cx\"]" js_getCx :: - SVGCircleElement -> IO (Nullable SVGAnimatedLength) - --- | -getCx :: - (MonadIO m) => SVGCircleElement -> m (Maybe SVGAnimatedLength) -getCx self = liftIO (nullableToMaybe <$> (js_getCx (self))) - -foreign import javascript unsafe "$1[\"cy\"]" js_getCy :: - SVGCircleElement -> IO (Nullable SVGAnimatedLength) - --- | -getCy :: - (MonadIO m) => SVGCircleElement -> m (Maybe SVGAnimatedLength) -getCy self = liftIO (nullableToMaybe <$> (js_getCy (self))) - -foreign import javascript unsafe "$1[\"r\"]" js_getR :: - SVGCircleElement -> IO (Nullable SVGAnimatedLength) - --- | -getR :: - (MonadIO m) => SVGCircleElement -> m (Maybe SVGAnimatedLength) -getR self = liftIO (nullableToMaybe <$> (js_getR (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/SVGClipPathElement.hs b/src/GHCJS/DOM/JSFFI/Generated/SVGClipPathElement.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/SVGClipPathElement.hs +++ /dev/null @@ -1,30 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.SVGClipPathElement - (js_getClipPathUnits, getClipPathUnits, SVGClipPathElement, - castToSVGClipPathElement, gTypeSVGClipPathElement) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"clipPathUnits\"]" - js_getClipPathUnits :: - SVGClipPathElement -> IO (Nullable SVGAnimatedEnumeration) - --- | -getClipPathUnits :: - (MonadIO m) => - SVGClipPathElement -> m (Maybe SVGAnimatedEnumeration) -getClipPathUnits self - = liftIO (nullableToMaybe <$> (js_getClipPathUnits (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/SVGColor.hs b/src/GHCJS/DOM/JSFFI/Generated/SVGColor.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/SVGColor.hs +++ /dev/null @@ -1,81 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.SVGColor - (js_setRGBColor, setRGBColor, js_setRGBColorICCColor, - setRGBColorICCColor, js_setColor, setColor, - pattern SVG_COLORTYPE_UNKNOWN, pattern SVG_COLORTYPE_RGBCOLOR, - pattern SVG_COLORTYPE_RGBCOLOR_ICCCOLOR, - pattern SVG_COLORTYPE_CURRENTCOLOR, js_getColorType, getColorType, - js_getRgbColor, getRgbColor, SVGColor, castToSVGColor, - gTypeSVGColor, IsSVGColor, toSVGColor) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"setRGBColor\"]($2)" - js_setRGBColor :: SVGColor -> JSString -> IO () - --- | -setRGBColor :: - (MonadIO m, IsSVGColor self, ToJSString rgbColor) => - self -> rgbColor -> m () -setRGBColor self rgbColor - = liftIO (js_setRGBColor (toSVGColor self) (toJSString rgbColor)) - -foreign import javascript unsafe - "$1[\"setRGBColorICCColor\"]($2,\n$3)" js_setRGBColorICCColor :: - SVGColor -> JSString -> JSString -> IO () - --- | -setRGBColorICCColor :: - (MonadIO m, IsSVGColor self, ToJSString rgbColor, - ToJSString iccColor) => - self -> rgbColor -> iccColor -> m () -setRGBColorICCColor self rgbColor iccColor - = liftIO - (js_setRGBColorICCColor (toSVGColor self) (toJSString rgbColor) - (toJSString iccColor)) - -foreign import javascript unsafe "$1[\"setColor\"]($2, $3, $4)" - js_setColor :: SVGColor -> Word -> JSString -> JSString -> IO () - --- | -setColor :: - (MonadIO m, IsSVGColor self, ToJSString rgbColor, - ToJSString iccColor) => - self -> Word -> rgbColor -> iccColor -> m () -setColor self colorType rgbColor iccColor - = liftIO - (js_setColor (toSVGColor self) colorType (toJSString rgbColor) - (toJSString iccColor)) -pattern SVG_COLORTYPE_UNKNOWN = 0 -pattern SVG_COLORTYPE_RGBCOLOR = 1 -pattern SVG_COLORTYPE_RGBCOLOR_ICCCOLOR = 2 -pattern SVG_COLORTYPE_CURRENTCOLOR = 3 - -foreign import javascript unsafe "$1[\"colorType\"]" - js_getColorType :: SVGColor -> IO Word - --- | -getColorType :: (MonadIO m, IsSVGColor self) => self -> m Word -getColorType self = liftIO (js_getColorType (toSVGColor self)) - -foreign import javascript unsafe "$1[\"rgbColor\"]" js_getRgbColor - :: SVGColor -> IO (Nullable RGBColor) - --- | -getRgbColor :: - (MonadIO m, IsSVGColor self) => self -> m (Maybe RGBColor) -getRgbColor self - = liftIO (nullableToMaybe <$> (js_getRgbColor (toSVGColor self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/SVGComponentTransferFunctionElement.hs b/src/GHCJS/DOM/JSFFI/Generated/SVGComponentTransferFunctionElement.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/SVGComponentTransferFunctionElement.hs +++ /dev/null @@ -1,132 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.SVGComponentTransferFunctionElement - (pattern SVG_FECOMPONENTTRANSFER_TYPE_UNKNOWN, - pattern SVG_FECOMPONENTTRANSFER_TYPE_IDENTITY, - pattern SVG_FECOMPONENTTRANSFER_TYPE_TABLE, - pattern SVG_FECOMPONENTTRANSFER_TYPE_DISCRETE, - pattern SVG_FECOMPONENTTRANSFER_TYPE_LINEAR, - pattern SVG_FECOMPONENTTRANSFER_TYPE_GAMMA, js_getType, getType, - js_getTableValues, getTableValues, js_getSlope, getSlope, - js_getIntercept, getIntercept, js_getAmplitude, getAmplitude, - js_getExponent, getExponent, js_getOffset, getOffset, - SVGComponentTransferFunctionElement, - castToSVGComponentTransferFunctionElement, - gTypeSVGComponentTransferFunctionElement, - IsSVGComponentTransferFunctionElement, - toSVGComponentTransferFunctionElement) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums -pattern SVG_FECOMPONENTTRANSFER_TYPE_UNKNOWN = 0 -pattern SVG_FECOMPONENTTRANSFER_TYPE_IDENTITY = 1 -pattern SVG_FECOMPONENTTRANSFER_TYPE_TABLE = 2 -pattern SVG_FECOMPONENTTRANSFER_TYPE_DISCRETE = 3 -pattern SVG_FECOMPONENTTRANSFER_TYPE_LINEAR = 4 -pattern SVG_FECOMPONENTTRANSFER_TYPE_GAMMA = 5 - -foreign import javascript unsafe "$1[\"type\"]" js_getType :: - SVGComponentTransferFunctionElement -> - IO (Nullable SVGAnimatedEnumeration) - --- | -getType :: - (MonadIO m, IsSVGComponentTransferFunctionElement self) => - self -> m (Maybe SVGAnimatedEnumeration) -getType self - = liftIO - (nullableToMaybe <$> - (js_getType (toSVGComponentTransferFunctionElement self))) - -foreign import javascript unsafe "$1[\"tableValues\"]" - js_getTableValues :: - SVGComponentTransferFunctionElement -> - IO (Nullable SVGAnimatedNumberList) - --- | -getTableValues :: - (MonadIO m, IsSVGComponentTransferFunctionElement self) => - self -> m (Maybe SVGAnimatedNumberList) -getTableValues self - = liftIO - (nullableToMaybe <$> - (js_getTableValues (toSVGComponentTransferFunctionElement self))) - -foreign import javascript unsafe "$1[\"slope\"]" js_getSlope :: - SVGComponentTransferFunctionElement -> - IO (Nullable SVGAnimatedNumber) - --- | -getSlope :: - (MonadIO m, IsSVGComponentTransferFunctionElement self) => - self -> m (Maybe SVGAnimatedNumber) -getSlope self - = liftIO - (nullableToMaybe <$> - (js_getSlope (toSVGComponentTransferFunctionElement self))) - -foreign import javascript unsafe "$1[\"intercept\"]" - js_getIntercept :: - SVGComponentTransferFunctionElement -> - IO (Nullable SVGAnimatedNumber) - --- | -getIntercept :: - (MonadIO m, IsSVGComponentTransferFunctionElement self) => - self -> m (Maybe SVGAnimatedNumber) -getIntercept self - = liftIO - (nullableToMaybe <$> - (js_getIntercept (toSVGComponentTransferFunctionElement self))) - -foreign import javascript unsafe "$1[\"amplitude\"]" - js_getAmplitude :: - SVGComponentTransferFunctionElement -> - IO (Nullable SVGAnimatedNumber) - --- | -getAmplitude :: - (MonadIO m, IsSVGComponentTransferFunctionElement self) => - self -> m (Maybe SVGAnimatedNumber) -getAmplitude self - = liftIO - (nullableToMaybe <$> - (js_getAmplitude (toSVGComponentTransferFunctionElement self))) - -foreign import javascript unsafe "$1[\"exponent\"]" js_getExponent - :: - SVGComponentTransferFunctionElement -> - IO (Nullable SVGAnimatedNumber) - --- | -getExponent :: - (MonadIO m, IsSVGComponentTransferFunctionElement self) => - self -> m (Maybe SVGAnimatedNumber) -getExponent self - = liftIO - (nullableToMaybe <$> - (js_getExponent (toSVGComponentTransferFunctionElement self))) - -foreign import javascript unsafe "$1[\"offset\"]" js_getOffset :: - SVGComponentTransferFunctionElement -> - IO (Nullable SVGAnimatedNumber) - --- | -getOffset :: - (MonadIO m, IsSVGComponentTransferFunctionElement self) => - self -> m (Maybe SVGAnimatedNumber) -getOffset self - = liftIO - (nullableToMaybe <$> - (js_getOffset (toSVGComponentTransferFunctionElement self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/SVGCursorElement.hs b/src/GHCJS/DOM/JSFFI/Generated/SVGCursorElement.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/SVGCursorElement.hs +++ /dev/null @@ -1,35 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.SVGCursorElement - (js_getX, getX, js_getY, getY, SVGCursorElement, - castToSVGCursorElement, gTypeSVGCursorElement) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"x\"]" js_getX :: - SVGCursorElement -> IO (Nullable SVGAnimatedLength) - --- | -getX :: - (MonadIO m) => SVGCursorElement -> m (Maybe SVGAnimatedLength) -getX self = liftIO (nullableToMaybe <$> (js_getX (self))) - -foreign import javascript unsafe "$1[\"y\"]" js_getY :: - SVGCursorElement -> IO (Nullable SVGAnimatedLength) - --- | -getY :: - (MonadIO m) => SVGCursorElement -> m (Maybe SVGAnimatedLength) -getY self = liftIO (nullableToMaybe <$> (js_getY (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/SVGDocument.hs b/src/GHCJS/DOM/JSFFI/Generated/SVGDocument.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/SVGDocument.hs +++ /dev/null @@ -1,40 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.SVGDocument - (js_createEvent, createEvent, js_getRootElement, getRootElement, - SVGDocument, castToSVGDocument, gTypeSVGDocument) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"createEvent\"]($2)" - js_createEvent :: SVGDocument -> JSString -> IO (Nullable Event) - --- | -createEvent :: - (MonadIO m, ToJSString eventType) => - SVGDocument -> eventType -> m (Maybe Event) -createEvent self eventType - = liftIO - (nullableToMaybe <$> - (js_createEvent (self) (toJSString eventType))) - -foreign import javascript unsafe "$1[\"rootElement\"]" - js_getRootElement :: SVGDocument -> IO (Nullable SVGSVGElement) - --- | -getRootElement :: - (MonadIO m) => SVGDocument -> m (Maybe SVGSVGElement) -getRootElement self - = liftIO (nullableToMaybe <$> (js_getRootElement (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/SVGElement.hs b/src/GHCJS/DOM/JSFFI/Generated/SVGElement.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/SVGElement.hs +++ /dev/null @@ -1,158 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.SVGElement - (js_getPresentationAttribute, getPresentationAttribute, - js_setXmlbase, setXmlbase, js_getXmlbase, getXmlbase, - js_getOwnerSVGElement, getOwnerSVGElement, js_getViewportElement, - getViewportElement, js_setXmllang, setXmllang, js_getXmllang, - getXmllang, js_setXmlspace, setXmlspace, js_getXmlspace, - getXmlspace, js_getClassName, getClassName, js_getStyle, getStyle, - js_setTabIndex, setTabIndex, js_getTabIndex, getTabIndex, - SVGElement, castToSVGElement, gTypeSVGElement, IsSVGElement, - toSVGElement) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe - "$1[\"getPresentationAttribute\"]($2)" js_getPresentationAttribute - :: SVGElement -> JSString -> IO (Nullable CSSValue) - --- | -getPresentationAttribute :: - (MonadIO m, IsSVGElement self, ToJSString name) => - self -> name -> m (Maybe CSSValue) -getPresentationAttribute self name - = liftIO - (nullableToMaybe <$> - (js_getPresentationAttribute (toSVGElement self) - (toJSString name))) - -foreign import javascript unsafe "$1[\"xmlbase\"] = $2;" - js_setXmlbase :: SVGElement -> Nullable JSString -> IO () - --- | -setXmlbase :: - (MonadIO m, IsSVGElement self, ToJSString val) => - self -> Maybe val -> m () -setXmlbase self val - = liftIO (js_setXmlbase (toSVGElement self) (toMaybeJSString val)) - -foreign import javascript unsafe "$1[\"xmlbase\"]" js_getXmlbase :: - SVGElement -> IO (Nullable JSString) - --- | -getXmlbase :: - (MonadIO m, IsSVGElement self, FromJSString result) => - self -> m (Maybe result) -getXmlbase self - = liftIO - (fromMaybeJSString <$> (js_getXmlbase (toSVGElement self))) - -foreign import javascript unsafe "$1[\"ownerSVGElement\"]" - js_getOwnerSVGElement :: SVGElement -> IO (Nullable SVGSVGElement) - --- | -getOwnerSVGElement :: - (MonadIO m, IsSVGElement self) => self -> m (Maybe SVGSVGElement) -getOwnerSVGElement self - = liftIO - (nullableToMaybe <$> (js_getOwnerSVGElement (toSVGElement self))) - -foreign import javascript unsafe "$1[\"viewportElement\"]" - js_getViewportElement :: SVGElement -> IO (Nullable SVGElement) - --- | -getViewportElement :: - (MonadIO m, IsSVGElement self) => self -> m (Maybe SVGElement) -getViewportElement self - = liftIO - (nullableToMaybe <$> (js_getViewportElement (toSVGElement self))) - -foreign import javascript unsafe "$1[\"xmllang\"] = $2;" - js_setXmllang :: SVGElement -> JSString -> IO () - --- | -setXmllang :: - (MonadIO m, IsSVGElement self, ToJSString val) => - self -> val -> m () -setXmllang self val - = liftIO (js_setXmllang (toSVGElement self) (toJSString val)) - -foreign import javascript unsafe "$1[\"xmllang\"]" js_getXmllang :: - SVGElement -> IO JSString - --- | -getXmllang :: - (MonadIO m, IsSVGElement self, FromJSString result) => - self -> m result -getXmllang self - = liftIO (fromJSString <$> (js_getXmllang (toSVGElement self))) - -foreign import javascript unsafe "$1[\"xmlspace\"] = $2;" - js_setXmlspace :: SVGElement -> JSString -> IO () - --- | -setXmlspace :: - (MonadIO m, IsSVGElement self, ToJSString val) => - self -> val -> m () -setXmlspace self val - = liftIO (js_setXmlspace (toSVGElement self) (toJSString val)) - -foreign import javascript unsafe "$1[\"xmlspace\"]" js_getXmlspace - :: SVGElement -> IO JSString - --- | -getXmlspace :: - (MonadIO m, IsSVGElement self, FromJSString result) => - self -> m result -getXmlspace self - = liftIO (fromJSString <$> (js_getXmlspace (toSVGElement self))) - -foreign import javascript unsafe "$1[\"className\"]" - js_getClassName :: SVGElement -> IO (Nullable SVGAnimatedString) - --- | -getClassName :: - (MonadIO m, IsSVGElement self) => - self -> m (Maybe SVGAnimatedString) -getClassName self - = liftIO - (nullableToMaybe <$> (js_getClassName (toSVGElement self))) - -foreign import javascript unsafe "$1[\"style\"]" js_getStyle :: - SVGElement -> IO (Nullable CSSStyleDeclaration) - --- | -getStyle :: - (MonadIO m, IsSVGElement self) => - self -> m (Maybe CSSStyleDeclaration) -getStyle self - = liftIO (nullableToMaybe <$> (js_getStyle (toSVGElement self))) - -foreign import javascript unsafe "$1[\"tabIndex\"] = $2;" - js_setTabIndex :: SVGElement -> Int -> IO () - --- | -setTabIndex :: - (MonadIO m, IsSVGElement self) => self -> Int -> m () -setTabIndex self val - = liftIO (js_setTabIndex (toSVGElement self) val) - -foreign import javascript unsafe "$1[\"tabIndex\"]" js_getTabIndex - :: SVGElement -> IO Int - --- | -getTabIndex :: (MonadIO m, IsSVGElement self) => self -> m Int -getTabIndex self = liftIO (js_getTabIndex (toSVGElement self)) diff --git a/src/GHCJS/DOM/JSFFI/Generated/SVGEllipseElement.hs b/src/GHCJS/DOM/JSFFI/Generated/SVGEllipseElement.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/SVGEllipseElement.hs +++ /dev/null @@ -1,52 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.SVGEllipseElement - (js_getCx, getCx, js_getCy, getCy, js_getRx, getRx, js_getRy, - getRy, SVGEllipseElement, castToSVGEllipseElement, - gTypeSVGEllipseElement) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"cx\"]" js_getCx :: - SVGEllipseElement -> IO (Nullable SVGAnimatedLength) - --- | -getCx :: - (MonadIO m) => SVGEllipseElement -> m (Maybe SVGAnimatedLength) -getCx self = liftIO (nullableToMaybe <$> (js_getCx (self))) - -foreign import javascript unsafe "$1[\"cy\"]" js_getCy :: - SVGEllipseElement -> IO (Nullable SVGAnimatedLength) - --- | -getCy :: - (MonadIO m) => SVGEllipseElement -> m (Maybe SVGAnimatedLength) -getCy self = liftIO (nullableToMaybe <$> (js_getCy (self))) - -foreign import javascript unsafe "$1[\"rx\"]" js_getRx :: - SVGEllipseElement -> IO (Nullable SVGAnimatedLength) - --- | -getRx :: - (MonadIO m) => SVGEllipseElement -> m (Maybe SVGAnimatedLength) -getRx self = liftIO (nullableToMaybe <$> (js_getRx (self))) - -foreign import javascript unsafe "$1[\"ry\"]" js_getRy :: - SVGEllipseElement -> IO (Nullable SVGAnimatedLength) - --- | -getRy :: - (MonadIO m) => SVGEllipseElement -> m (Maybe SVGAnimatedLength) -getRy self = liftIO (nullableToMaybe <$> (js_getRy (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/SVGExternalResourcesRequired.hs b/src/GHCJS/DOM/JSFFI/Generated/SVGExternalResourcesRequired.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/SVGExternalResourcesRequired.hs +++ /dev/null @@ -1,32 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.SVGExternalResourcesRequired - (js_getExternalResourcesRequired, getExternalResourcesRequired, - SVGExternalResourcesRequired, castToSVGExternalResourcesRequired, - gTypeSVGExternalResourcesRequired) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe - "$1[\"externalResourcesRequired\"]" js_getExternalResourcesRequired - :: SVGExternalResourcesRequired -> IO (Nullable SVGAnimatedBoolean) - --- | -getExternalResourcesRequired :: - (MonadIO m) => - SVGExternalResourcesRequired -> m (Maybe SVGAnimatedBoolean) -getExternalResourcesRequired self - = liftIO - (nullableToMaybe <$> (js_getExternalResourcesRequired (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/SVGFEBlendElement.hs b/src/GHCJS/DOM/JSFFI/Generated/SVGFEBlendElement.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/SVGFEBlendElement.hs +++ /dev/null @@ -1,53 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.SVGFEBlendElement - (pattern SVG_FEBLEND_MODE_UNKNOWN, pattern SVG_FEBLEND_MODE_NORMAL, - pattern SVG_FEBLEND_MODE_MULTIPLY, pattern SVG_FEBLEND_MODE_SCREEN, - pattern SVG_FEBLEND_MODE_DARKEN, pattern SVG_FEBLEND_MODE_LIGHTEN, - js_getIn1, getIn1, js_getIn2, getIn2, js_getMode, getMode, - SVGFEBlendElement, castToSVGFEBlendElement, gTypeSVGFEBlendElement) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums -pattern SVG_FEBLEND_MODE_UNKNOWN = 0 -pattern SVG_FEBLEND_MODE_NORMAL = 1 -pattern SVG_FEBLEND_MODE_MULTIPLY = 2 -pattern SVG_FEBLEND_MODE_SCREEN = 3 -pattern SVG_FEBLEND_MODE_DARKEN = 4 -pattern SVG_FEBLEND_MODE_LIGHTEN = 5 - -foreign import javascript unsafe "$1[\"in1\"]" js_getIn1 :: - SVGFEBlendElement -> IO (Nullable SVGAnimatedString) - --- | -getIn1 :: - (MonadIO m) => SVGFEBlendElement -> m (Maybe SVGAnimatedString) -getIn1 self = liftIO (nullableToMaybe <$> (js_getIn1 (self))) - -foreign import javascript unsafe "$1[\"in2\"]" js_getIn2 :: - SVGFEBlendElement -> IO (Nullable SVGAnimatedString) - --- | -getIn2 :: - (MonadIO m) => SVGFEBlendElement -> m (Maybe SVGAnimatedString) -getIn2 self = liftIO (nullableToMaybe <$> (js_getIn2 (self))) - -foreign import javascript unsafe "$1[\"mode\"]" js_getMode :: - SVGFEBlendElement -> IO (Nullable SVGAnimatedEnumeration) - --- | -getMode :: - (MonadIO m) => - SVGFEBlendElement -> m (Maybe SVGAnimatedEnumeration) -getMode self = liftIO (nullableToMaybe <$> (js_getMode (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/SVGFEColorMatrixElement.hs b/src/GHCJS/DOM/JSFFI/Generated/SVGFEColorMatrixElement.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/SVGFEColorMatrixElement.hs +++ /dev/null @@ -1,57 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.SVGFEColorMatrixElement - (pattern SVG_FECOLORMATRIX_TYPE_UNKNOWN, - pattern SVG_FECOLORMATRIX_TYPE_MATRIX, - pattern SVG_FECOLORMATRIX_TYPE_SATURATE, - pattern SVG_FECOLORMATRIX_TYPE_HUEROTATE, - pattern SVG_FECOLORMATRIX_TYPE_LUMINANCETOALPHA, js_getIn1, getIn1, - js_getType, getType, js_getValues, getValues, - SVGFEColorMatrixElement, castToSVGFEColorMatrixElement, - gTypeSVGFEColorMatrixElement) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums -pattern SVG_FECOLORMATRIX_TYPE_UNKNOWN = 0 -pattern SVG_FECOLORMATRIX_TYPE_MATRIX = 1 -pattern SVG_FECOLORMATRIX_TYPE_SATURATE = 2 -pattern SVG_FECOLORMATRIX_TYPE_HUEROTATE = 3 -pattern SVG_FECOLORMATRIX_TYPE_LUMINANCETOALPHA = 4 - -foreign import javascript unsafe "$1[\"in1\"]" js_getIn1 :: - SVGFEColorMatrixElement -> IO (Nullable SVGAnimatedString) - --- | -getIn1 :: - (MonadIO m) => - SVGFEColorMatrixElement -> m (Maybe SVGAnimatedString) -getIn1 self = liftIO (nullableToMaybe <$> (js_getIn1 (self))) - -foreign import javascript unsafe "$1[\"type\"]" js_getType :: - SVGFEColorMatrixElement -> IO (Nullable SVGAnimatedEnumeration) - --- | -getType :: - (MonadIO m) => - SVGFEColorMatrixElement -> m (Maybe SVGAnimatedEnumeration) -getType self = liftIO (nullableToMaybe <$> (js_getType (self))) - -foreign import javascript unsafe "$1[\"values\"]" js_getValues :: - SVGFEColorMatrixElement -> IO (Nullable SVGAnimatedNumberList) - --- | -getValues :: - (MonadIO m) => - SVGFEColorMatrixElement -> m (Maybe SVGAnimatedNumberList) -getValues self = liftIO (nullableToMaybe <$> (js_getValues (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/SVGFEComponentTransferElement.hs b/src/GHCJS/DOM/JSFFI/Generated/SVGFEComponentTransferElement.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/SVGFEComponentTransferElement.hs +++ /dev/null @@ -1,29 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.SVGFEComponentTransferElement - (js_getIn1, getIn1, SVGFEComponentTransferElement, - castToSVGFEComponentTransferElement, - gTypeSVGFEComponentTransferElement) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"in1\"]" js_getIn1 :: - SVGFEComponentTransferElement -> IO (Nullable SVGAnimatedString) - --- | -getIn1 :: - (MonadIO m) => - SVGFEComponentTransferElement -> m (Maybe SVGAnimatedString) -getIn1 self = liftIO (nullableToMaybe <$> (js_getIn1 (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/SVGFECompositeElement.hs b/src/GHCJS/DOM/JSFFI/Generated/SVGFECompositeElement.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/SVGFECompositeElement.hs +++ /dev/null @@ -1,93 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.SVGFECompositeElement - (pattern SVG_FECOMPOSITE_OPERATOR_UNKNOWN, - pattern SVG_FECOMPOSITE_OPERATOR_OVER, - pattern SVG_FECOMPOSITE_OPERATOR_IN, - pattern SVG_FECOMPOSITE_OPERATOR_OUT, - pattern SVG_FECOMPOSITE_OPERATOR_ATOP, - pattern SVG_FECOMPOSITE_OPERATOR_XOR, - pattern SVG_FECOMPOSITE_OPERATOR_ARITHMETIC, js_getIn1, getIn1, - js_getIn2, getIn2, js_getOperator, getOperator, js_getK1, getK1, - js_getK2, getK2, js_getK3, getK3, js_getK4, getK4, - SVGFECompositeElement, castToSVGFECompositeElement, - gTypeSVGFECompositeElement) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums -pattern SVG_FECOMPOSITE_OPERATOR_UNKNOWN = 0 -pattern SVG_FECOMPOSITE_OPERATOR_OVER = 1 -pattern SVG_FECOMPOSITE_OPERATOR_IN = 2 -pattern SVG_FECOMPOSITE_OPERATOR_OUT = 3 -pattern SVG_FECOMPOSITE_OPERATOR_ATOP = 4 -pattern SVG_FECOMPOSITE_OPERATOR_XOR = 5 -pattern SVG_FECOMPOSITE_OPERATOR_ARITHMETIC = 6 - -foreign import javascript unsafe "$1[\"in1\"]" js_getIn1 :: - SVGFECompositeElement -> IO (Nullable SVGAnimatedString) - --- | -getIn1 :: - (MonadIO m) => SVGFECompositeElement -> m (Maybe SVGAnimatedString) -getIn1 self = liftIO (nullableToMaybe <$> (js_getIn1 (self))) - -foreign import javascript unsafe "$1[\"in2\"]" js_getIn2 :: - SVGFECompositeElement -> IO (Nullable SVGAnimatedString) - --- | -getIn2 :: - (MonadIO m) => SVGFECompositeElement -> m (Maybe SVGAnimatedString) -getIn2 self = liftIO (nullableToMaybe <$> (js_getIn2 (self))) - -foreign import javascript unsafe "$1[\"operator\"]" js_getOperator - :: SVGFECompositeElement -> IO (Nullable SVGAnimatedEnumeration) - --- | -getOperator :: - (MonadIO m) => - SVGFECompositeElement -> m (Maybe SVGAnimatedEnumeration) -getOperator self - = liftIO (nullableToMaybe <$> (js_getOperator (self))) - -foreign import javascript unsafe "$1[\"k1\"]" js_getK1 :: - SVGFECompositeElement -> IO (Nullable SVGAnimatedNumber) - --- | -getK1 :: - (MonadIO m) => SVGFECompositeElement -> m (Maybe SVGAnimatedNumber) -getK1 self = liftIO (nullableToMaybe <$> (js_getK1 (self))) - -foreign import javascript unsafe "$1[\"k2\"]" js_getK2 :: - SVGFECompositeElement -> IO (Nullable SVGAnimatedNumber) - --- | -getK2 :: - (MonadIO m) => SVGFECompositeElement -> m (Maybe SVGAnimatedNumber) -getK2 self = liftIO (nullableToMaybe <$> (js_getK2 (self))) - -foreign import javascript unsafe "$1[\"k3\"]" js_getK3 :: - SVGFECompositeElement -> IO (Nullable SVGAnimatedNumber) - --- | -getK3 :: - (MonadIO m) => SVGFECompositeElement -> m (Maybe SVGAnimatedNumber) -getK3 self = liftIO (nullableToMaybe <$> (js_getK3 (self))) - -foreign import javascript unsafe "$1[\"k4\"]" js_getK4 :: - SVGFECompositeElement -> IO (Nullable SVGAnimatedNumber) - --- | -getK4 :: - (MonadIO m) => SVGFECompositeElement -> m (Maybe SVGAnimatedNumber) -getK4 self = liftIO (nullableToMaybe <$> (js_getK4 (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/SVGFEConvolveMatrixElement.hs b/src/GHCJS/DOM/JSFFI/Generated/SVGFEConvolveMatrixElement.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/SVGFEConvolveMatrixElement.hs +++ /dev/null @@ -1,152 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.SVGFEConvolveMatrixElement - (pattern SVG_EDGEMODE_UNKNOWN, pattern SVG_EDGEMODE_DUPLICATE, - pattern SVG_EDGEMODE_WRAP, pattern SVG_EDGEMODE_NONE, js_getIn1, - getIn1, js_getOrderX, getOrderX, js_getOrderY, getOrderY, - js_getKernelMatrix, getKernelMatrix, js_getDivisor, getDivisor, - js_getBias, getBias, js_getTargetX, getTargetX, js_getTargetY, - getTargetY, js_getEdgeMode, getEdgeMode, js_getKernelUnitLengthX, - getKernelUnitLengthX, js_getKernelUnitLengthY, - getKernelUnitLengthY, js_getPreserveAlpha, getPreserveAlpha, - SVGFEConvolveMatrixElement, castToSVGFEConvolveMatrixElement, - gTypeSVGFEConvolveMatrixElement) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums -pattern SVG_EDGEMODE_UNKNOWN = 0 -pattern SVG_EDGEMODE_DUPLICATE = 1 -pattern SVG_EDGEMODE_WRAP = 2 -pattern SVG_EDGEMODE_NONE = 3 - -foreign import javascript unsafe "$1[\"in1\"]" js_getIn1 :: - SVGFEConvolveMatrixElement -> IO (Nullable SVGAnimatedString) - --- | -getIn1 :: - (MonadIO m) => - SVGFEConvolveMatrixElement -> m (Maybe SVGAnimatedString) -getIn1 self = liftIO (nullableToMaybe <$> (js_getIn1 (self))) - -foreign import javascript unsafe "$1[\"orderX\"]" js_getOrderX :: - SVGFEConvolveMatrixElement -> IO (Nullable SVGAnimatedInteger) - --- | -getOrderX :: - (MonadIO m) => - SVGFEConvolveMatrixElement -> m (Maybe SVGAnimatedInteger) -getOrderX self = liftIO (nullableToMaybe <$> (js_getOrderX (self))) - -foreign import javascript unsafe "$1[\"orderY\"]" js_getOrderY :: - SVGFEConvolveMatrixElement -> IO (Nullable SVGAnimatedInteger) - --- | -getOrderY :: - (MonadIO m) => - SVGFEConvolveMatrixElement -> m (Maybe SVGAnimatedInteger) -getOrderY self = liftIO (nullableToMaybe <$> (js_getOrderY (self))) - -foreign import javascript unsafe "$1[\"kernelMatrix\"]" - js_getKernelMatrix :: - SVGFEConvolveMatrixElement -> IO (Nullable SVGAnimatedNumberList) - --- | -getKernelMatrix :: - (MonadIO m) => - SVGFEConvolveMatrixElement -> m (Maybe SVGAnimatedNumberList) -getKernelMatrix self - = liftIO (nullableToMaybe <$> (js_getKernelMatrix (self))) - -foreign import javascript unsafe "$1[\"divisor\"]" js_getDivisor :: - SVGFEConvolveMatrixElement -> IO (Nullable SVGAnimatedNumber) - --- | -getDivisor :: - (MonadIO m) => - SVGFEConvolveMatrixElement -> m (Maybe SVGAnimatedNumber) -getDivisor self - = liftIO (nullableToMaybe <$> (js_getDivisor (self))) - -foreign import javascript unsafe "$1[\"bias\"]" js_getBias :: - SVGFEConvolveMatrixElement -> IO (Nullable SVGAnimatedNumber) - --- | -getBias :: - (MonadIO m) => - SVGFEConvolveMatrixElement -> m (Maybe SVGAnimatedNumber) -getBias self = liftIO (nullableToMaybe <$> (js_getBias (self))) - -foreign import javascript unsafe "$1[\"targetX\"]" js_getTargetX :: - SVGFEConvolveMatrixElement -> IO (Nullable SVGAnimatedInteger) - --- | -getTargetX :: - (MonadIO m) => - SVGFEConvolveMatrixElement -> m (Maybe SVGAnimatedInteger) -getTargetX self - = liftIO (nullableToMaybe <$> (js_getTargetX (self))) - -foreign import javascript unsafe "$1[\"targetY\"]" js_getTargetY :: - SVGFEConvolveMatrixElement -> IO (Nullable SVGAnimatedInteger) - --- | -getTargetY :: - (MonadIO m) => - SVGFEConvolveMatrixElement -> m (Maybe SVGAnimatedInteger) -getTargetY self - = liftIO (nullableToMaybe <$> (js_getTargetY (self))) - -foreign import javascript unsafe "$1[\"edgeMode\"]" js_getEdgeMode - :: - SVGFEConvolveMatrixElement -> IO (Nullable SVGAnimatedEnumeration) - --- | -getEdgeMode :: - (MonadIO m) => - SVGFEConvolveMatrixElement -> m (Maybe SVGAnimatedEnumeration) -getEdgeMode self - = liftIO (nullableToMaybe <$> (js_getEdgeMode (self))) - -foreign import javascript unsafe "$1[\"kernelUnitLengthX\"]" - js_getKernelUnitLengthX :: - SVGFEConvolveMatrixElement -> IO (Nullable SVGAnimatedNumber) - --- | -getKernelUnitLengthX :: - (MonadIO m) => - SVGFEConvolveMatrixElement -> m (Maybe SVGAnimatedNumber) -getKernelUnitLengthX self - = liftIO (nullableToMaybe <$> (js_getKernelUnitLengthX (self))) - -foreign import javascript unsafe "$1[\"kernelUnitLengthY\"]" - js_getKernelUnitLengthY :: - SVGFEConvolveMatrixElement -> IO (Nullable SVGAnimatedNumber) - --- | -getKernelUnitLengthY :: - (MonadIO m) => - SVGFEConvolveMatrixElement -> m (Maybe SVGAnimatedNumber) -getKernelUnitLengthY self - = liftIO (nullableToMaybe <$> (js_getKernelUnitLengthY (self))) - -foreign import javascript unsafe "$1[\"preserveAlpha\"]" - js_getPreserveAlpha :: - SVGFEConvolveMatrixElement -> IO (Nullable SVGAnimatedBoolean) - --- | -getPreserveAlpha :: - (MonadIO m) => - SVGFEConvolveMatrixElement -> m (Maybe SVGAnimatedBoolean) -getPreserveAlpha self - = liftIO (nullableToMaybe <$> (js_getPreserveAlpha (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/SVGFEDiffuseLightingElement.hs b/src/GHCJS/DOM/JSFFI/Generated/SVGFEDiffuseLightingElement.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/SVGFEDiffuseLightingElement.hs +++ /dev/null @@ -1,76 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.SVGFEDiffuseLightingElement - (js_getIn1, getIn1, js_getSurfaceScale, getSurfaceScale, - js_getDiffuseConstant, getDiffuseConstant, js_getKernelUnitLengthX, - getKernelUnitLengthX, js_getKernelUnitLengthY, - getKernelUnitLengthY, SVGFEDiffuseLightingElement, - castToSVGFEDiffuseLightingElement, - gTypeSVGFEDiffuseLightingElement) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"in1\"]" js_getIn1 :: - SVGFEDiffuseLightingElement -> IO (Nullable SVGAnimatedString) - --- | -getIn1 :: - (MonadIO m) => - SVGFEDiffuseLightingElement -> m (Maybe SVGAnimatedString) -getIn1 self = liftIO (nullableToMaybe <$> (js_getIn1 (self))) - -foreign import javascript unsafe "$1[\"surfaceScale\"]" - js_getSurfaceScale :: - SVGFEDiffuseLightingElement -> IO (Nullable SVGAnimatedNumber) - --- | -getSurfaceScale :: - (MonadIO m) => - SVGFEDiffuseLightingElement -> m (Maybe SVGAnimatedNumber) -getSurfaceScale self - = liftIO (nullableToMaybe <$> (js_getSurfaceScale (self))) - -foreign import javascript unsafe "$1[\"diffuseConstant\"]" - js_getDiffuseConstant :: - SVGFEDiffuseLightingElement -> IO (Nullable SVGAnimatedNumber) - --- | -getDiffuseConstant :: - (MonadIO m) => - SVGFEDiffuseLightingElement -> m (Maybe SVGAnimatedNumber) -getDiffuseConstant self - = liftIO (nullableToMaybe <$> (js_getDiffuseConstant (self))) - -foreign import javascript unsafe "$1[\"kernelUnitLengthX\"]" - js_getKernelUnitLengthX :: - SVGFEDiffuseLightingElement -> IO (Nullable SVGAnimatedNumber) - --- | -getKernelUnitLengthX :: - (MonadIO m) => - SVGFEDiffuseLightingElement -> m (Maybe SVGAnimatedNumber) -getKernelUnitLengthX self - = liftIO (nullableToMaybe <$> (js_getKernelUnitLengthX (self))) - -foreign import javascript unsafe "$1[\"kernelUnitLengthY\"]" - js_getKernelUnitLengthY :: - SVGFEDiffuseLightingElement -> IO (Nullable SVGAnimatedNumber) - --- | -getKernelUnitLengthY :: - (MonadIO m) => - SVGFEDiffuseLightingElement -> m (Maybe SVGAnimatedNumber) -getKernelUnitLengthY self - = liftIO (nullableToMaybe <$> (js_getKernelUnitLengthY (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/SVGFEDisplacementMapElement.hs b/src/GHCJS/DOM/JSFFI/Generated/SVGFEDisplacementMapElement.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/SVGFEDisplacementMapElement.hs +++ /dev/null @@ -1,78 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.SVGFEDisplacementMapElement - (pattern SVG_CHANNEL_UNKNOWN, pattern SVG_CHANNEL_R, - pattern SVG_CHANNEL_G, pattern SVG_CHANNEL_B, - pattern SVG_CHANNEL_A, js_getIn1, getIn1, js_getIn2, getIn2, - js_getScale, getScale, js_getXChannelSelector, getXChannelSelector, - js_getYChannelSelector, getYChannelSelector, - SVGFEDisplacementMapElement, castToSVGFEDisplacementMapElement, - gTypeSVGFEDisplacementMapElement) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums -pattern SVG_CHANNEL_UNKNOWN = 0 -pattern SVG_CHANNEL_R = 1 -pattern SVG_CHANNEL_G = 2 -pattern SVG_CHANNEL_B = 3 -pattern SVG_CHANNEL_A = 4 - -foreign import javascript unsafe "$1[\"in1\"]" js_getIn1 :: - SVGFEDisplacementMapElement -> IO (Nullable SVGAnimatedString) - --- | -getIn1 :: - (MonadIO m) => - SVGFEDisplacementMapElement -> m (Maybe SVGAnimatedString) -getIn1 self = liftIO (nullableToMaybe <$> (js_getIn1 (self))) - -foreign import javascript unsafe "$1[\"in2\"]" js_getIn2 :: - SVGFEDisplacementMapElement -> IO (Nullable SVGAnimatedString) - --- | -getIn2 :: - (MonadIO m) => - SVGFEDisplacementMapElement -> m (Maybe SVGAnimatedString) -getIn2 self = liftIO (nullableToMaybe <$> (js_getIn2 (self))) - -foreign import javascript unsafe "$1[\"scale\"]" js_getScale :: - SVGFEDisplacementMapElement -> IO (Nullable SVGAnimatedNumber) - --- | -getScale :: - (MonadIO m) => - SVGFEDisplacementMapElement -> m (Maybe SVGAnimatedNumber) -getScale self = liftIO (nullableToMaybe <$> (js_getScale (self))) - -foreign import javascript unsafe "$1[\"xChannelSelector\"]" - js_getXChannelSelector :: - SVGFEDisplacementMapElement -> IO (Nullable SVGAnimatedEnumeration) - --- | -getXChannelSelector :: - (MonadIO m) => - SVGFEDisplacementMapElement -> m (Maybe SVGAnimatedEnumeration) -getXChannelSelector self - = liftIO (nullableToMaybe <$> (js_getXChannelSelector (self))) - -foreign import javascript unsafe "$1[\"yChannelSelector\"]" - js_getYChannelSelector :: - SVGFEDisplacementMapElement -> IO (Nullable SVGAnimatedEnumeration) - --- | -getYChannelSelector :: - (MonadIO m) => - SVGFEDisplacementMapElement -> m (Maybe SVGAnimatedEnumeration) -getYChannelSelector self - = liftIO (nullableToMaybe <$> (js_getYChannelSelector (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/SVGFEDistantLightElement.hs b/src/GHCJS/DOM/JSFFI/Generated/SVGFEDistantLightElement.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/SVGFEDistantLightElement.hs +++ /dev/null @@ -1,41 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.SVGFEDistantLightElement - (js_getAzimuth, getAzimuth, js_getElevation, getElevation, - SVGFEDistantLightElement, castToSVGFEDistantLightElement, - gTypeSVGFEDistantLightElement) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"azimuth\"]" js_getAzimuth :: - SVGFEDistantLightElement -> IO (Nullable SVGAnimatedNumber) - --- | -getAzimuth :: - (MonadIO m) => - SVGFEDistantLightElement -> m (Maybe SVGAnimatedNumber) -getAzimuth self - = liftIO (nullableToMaybe <$> (js_getAzimuth (self))) - -foreign import javascript unsafe "$1[\"elevation\"]" - js_getElevation :: - SVGFEDistantLightElement -> IO (Nullable SVGAnimatedNumber) - --- | -getElevation :: - (MonadIO m) => - SVGFEDistantLightElement -> m (Maybe SVGAnimatedNumber) -getElevation self - = liftIO (nullableToMaybe <$> (js_getElevation (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/SVGFEDropShadowElement.hs b/src/GHCJS/DOM/JSFFI/Generated/SVGFEDropShadowElement.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/SVGFEDropShadowElement.hs +++ /dev/null @@ -1,80 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.SVGFEDropShadowElement - (js_setStdDeviation, setStdDeviation, js_getIn1, getIn1, js_getDx, - getDx, js_getDy, getDy, js_getStdDeviationX, getStdDeviationX, - js_getStdDeviationY, getStdDeviationY, SVGFEDropShadowElement, - castToSVGFEDropShadowElement, gTypeSVGFEDropShadowElement) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"setStdDeviation\"]($2, $3)" - js_setStdDeviation :: - SVGFEDropShadowElement -> Float -> Float -> IO () - --- | -setStdDeviation :: - (MonadIO m) => SVGFEDropShadowElement -> Float -> Float -> m () -setStdDeviation self stdDeviationX stdDeviationY - = liftIO (js_setStdDeviation (self) stdDeviationX stdDeviationY) - -foreign import javascript unsafe "$1[\"in1\"]" js_getIn1 :: - SVGFEDropShadowElement -> IO (Nullable SVGAnimatedString) - --- | -getIn1 :: - (MonadIO m) => - SVGFEDropShadowElement -> m (Maybe SVGAnimatedString) -getIn1 self = liftIO (nullableToMaybe <$> (js_getIn1 (self))) - -foreign import javascript unsafe "$1[\"dx\"]" js_getDx :: - SVGFEDropShadowElement -> IO (Nullable SVGAnimatedNumber) - --- | -getDx :: - (MonadIO m) => - SVGFEDropShadowElement -> m (Maybe SVGAnimatedNumber) -getDx self = liftIO (nullableToMaybe <$> (js_getDx (self))) - -foreign import javascript unsafe "$1[\"dy\"]" js_getDy :: - SVGFEDropShadowElement -> IO (Nullable SVGAnimatedNumber) - --- | -getDy :: - (MonadIO m) => - SVGFEDropShadowElement -> m (Maybe SVGAnimatedNumber) -getDy self = liftIO (nullableToMaybe <$> (js_getDy (self))) - -foreign import javascript unsafe "$1[\"stdDeviationX\"]" - js_getStdDeviationX :: - SVGFEDropShadowElement -> IO (Nullable SVGAnimatedNumber) - --- | -getStdDeviationX :: - (MonadIO m) => - SVGFEDropShadowElement -> m (Maybe SVGAnimatedNumber) -getStdDeviationX self - = liftIO (nullableToMaybe <$> (js_getStdDeviationX (self))) - -foreign import javascript unsafe "$1[\"stdDeviationY\"]" - js_getStdDeviationY :: - SVGFEDropShadowElement -> IO (Nullable SVGAnimatedNumber) - --- | -getStdDeviationY :: - (MonadIO m) => - SVGFEDropShadowElement -> m (Maybe SVGAnimatedNumber) -getStdDeviationY self - = liftIO (nullableToMaybe <$> (js_getStdDeviationY (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/SVGFEGaussianBlurElement.hs b/src/GHCJS/DOM/JSFFI/Generated/SVGFEGaussianBlurElement.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/SVGFEGaussianBlurElement.hs +++ /dev/null @@ -1,78 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.SVGFEGaussianBlurElement - (js_setStdDeviation, setStdDeviation, pattern SVG_EDGEMODE_UNKNOWN, - pattern SVG_EDGEMODE_DUPLICATE, pattern SVG_EDGEMODE_WRAP, - pattern SVG_EDGEMODE_NONE, js_getIn1, getIn1, js_getStdDeviationX, - getStdDeviationX, js_getStdDeviationY, getStdDeviationY, - js_getEdgeMode, getEdgeMode, SVGFEGaussianBlurElement, - castToSVGFEGaussianBlurElement, gTypeSVGFEGaussianBlurElement) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"setStdDeviation\"]($2, $3)" - js_setStdDeviation :: - SVGFEGaussianBlurElement -> Float -> Float -> IO () - --- | -setStdDeviation :: - (MonadIO m) => SVGFEGaussianBlurElement -> Float -> Float -> m () -setStdDeviation self stdDeviationX stdDeviationY - = liftIO (js_setStdDeviation (self) stdDeviationX stdDeviationY) -pattern SVG_EDGEMODE_UNKNOWN = 0 -pattern SVG_EDGEMODE_DUPLICATE = 1 -pattern SVG_EDGEMODE_WRAP = 2 -pattern SVG_EDGEMODE_NONE = 3 - -foreign import javascript unsafe "$1[\"in1\"]" js_getIn1 :: - SVGFEGaussianBlurElement -> IO (Nullable SVGAnimatedString) - --- | -getIn1 :: - (MonadIO m) => - SVGFEGaussianBlurElement -> m (Maybe SVGAnimatedString) -getIn1 self = liftIO (nullableToMaybe <$> (js_getIn1 (self))) - -foreign import javascript unsafe "$1[\"stdDeviationX\"]" - js_getStdDeviationX :: - SVGFEGaussianBlurElement -> IO (Nullable SVGAnimatedNumber) - --- | -getStdDeviationX :: - (MonadIO m) => - SVGFEGaussianBlurElement -> m (Maybe SVGAnimatedNumber) -getStdDeviationX self - = liftIO (nullableToMaybe <$> (js_getStdDeviationX (self))) - -foreign import javascript unsafe "$1[\"stdDeviationY\"]" - js_getStdDeviationY :: - SVGFEGaussianBlurElement -> IO (Nullable SVGAnimatedNumber) - --- | -getStdDeviationY :: - (MonadIO m) => - SVGFEGaussianBlurElement -> m (Maybe SVGAnimatedNumber) -getStdDeviationY self - = liftIO (nullableToMaybe <$> (js_getStdDeviationY (self))) - -foreign import javascript unsafe "$1[\"edgeMode\"]" js_getEdgeMode - :: SVGFEGaussianBlurElement -> IO (Nullable SVGAnimatedEnumeration) - --- | -getEdgeMode :: - (MonadIO m) => - SVGFEGaussianBlurElement -> m (Maybe SVGAnimatedEnumeration) -getEdgeMode self - = liftIO (nullableToMaybe <$> (js_getEdgeMode (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/SVGFEImageElement.hs b/src/GHCJS/DOM/JSFFI/Generated/SVGFEImageElement.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/SVGFEImageElement.hs +++ /dev/null @@ -1,30 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.SVGFEImageElement - (js_getPreserveAspectRatio, getPreserveAspectRatio, - SVGFEImageElement, castToSVGFEImageElement, gTypeSVGFEImageElement) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"preserveAspectRatio\"]" - js_getPreserveAspectRatio :: - SVGFEImageElement -> IO (Nullable SVGAnimatedPreserveAspectRatio) - --- | -getPreserveAspectRatio :: - (MonadIO m) => - SVGFEImageElement -> m (Maybe SVGAnimatedPreserveAspectRatio) -getPreserveAspectRatio self - = liftIO (nullableToMaybe <$> (js_getPreserveAspectRatio (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/SVGFEMergeNodeElement.hs b/src/GHCJS/DOM/JSFFI/Generated/SVGFEMergeNodeElement.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/SVGFEMergeNodeElement.hs +++ /dev/null @@ -1,27 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.SVGFEMergeNodeElement - (js_getIn1, getIn1, SVGFEMergeNodeElement, - castToSVGFEMergeNodeElement, gTypeSVGFEMergeNodeElement) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"in1\"]" js_getIn1 :: - SVGFEMergeNodeElement -> IO (Nullable SVGAnimatedString) - --- | -getIn1 :: - (MonadIO m) => SVGFEMergeNodeElement -> m (Maybe SVGAnimatedString) -getIn1 self = liftIO (nullableToMaybe <$> (js_getIn1 (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/SVGFEMorphologyElement.hs b/src/GHCJS/DOM/JSFFI/Generated/SVGFEMorphologyElement.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/SVGFEMorphologyElement.hs +++ /dev/null @@ -1,74 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.SVGFEMorphologyElement - (js_setRadius, setRadius, pattern SVG_MORPHOLOGY_OPERATOR_UNKNOWN, - pattern SVG_MORPHOLOGY_OPERATOR_ERODE, - pattern SVG_MORPHOLOGY_OPERATOR_DILATE, js_getIn1, getIn1, - js_getOperator, getOperator, js_getRadiusX, getRadiusX, - js_getRadiusY, getRadiusY, SVGFEMorphologyElement, - castToSVGFEMorphologyElement, gTypeSVGFEMorphologyElement) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"setRadius\"]($2, $3)" - js_setRadius :: SVGFEMorphologyElement -> Float -> Float -> IO () - --- | -setRadius :: - (MonadIO m) => SVGFEMorphologyElement -> Float -> Float -> m () -setRadius self radiusX radiusY - = liftIO (js_setRadius (self) radiusX radiusY) -pattern SVG_MORPHOLOGY_OPERATOR_UNKNOWN = 0 -pattern SVG_MORPHOLOGY_OPERATOR_ERODE = 1 -pattern SVG_MORPHOLOGY_OPERATOR_DILATE = 2 - -foreign import javascript unsafe "$1[\"in1\"]" js_getIn1 :: - SVGFEMorphologyElement -> IO (Nullable SVGAnimatedString) - --- | -getIn1 :: - (MonadIO m) => - SVGFEMorphologyElement -> m (Maybe SVGAnimatedString) -getIn1 self = liftIO (nullableToMaybe <$> (js_getIn1 (self))) - -foreign import javascript unsafe "$1[\"operator\"]" js_getOperator - :: SVGFEMorphologyElement -> IO (Nullable SVGAnimatedEnumeration) - --- | -getOperator :: - (MonadIO m) => - SVGFEMorphologyElement -> m (Maybe SVGAnimatedEnumeration) -getOperator self - = liftIO (nullableToMaybe <$> (js_getOperator (self))) - -foreign import javascript unsafe "$1[\"radiusX\"]" js_getRadiusX :: - SVGFEMorphologyElement -> IO (Nullable SVGAnimatedNumber) - --- | -getRadiusX :: - (MonadIO m) => - SVGFEMorphologyElement -> m (Maybe SVGAnimatedNumber) -getRadiusX self - = liftIO (nullableToMaybe <$> (js_getRadiusX (self))) - -foreign import javascript unsafe "$1[\"radiusY\"]" js_getRadiusY :: - SVGFEMorphologyElement -> IO (Nullable SVGAnimatedNumber) - --- | -getRadiusY :: - (MonadIO m) => - SVGFEMorphologyElement -> m (Maybe SVGAnimatedNumber) -getRadiusY self - = liftIO (nullableToMaybe <$> (js_getRadiusY (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/SVGFEOffsetElement.hs b/src/GHCJS/DOM/JSFFI/Generated/SVGFEOffsetElement.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/SVGFEOffsetElement.hs +++ /dev/null @@ -1,44 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.SVGFEOffsetElement - (js_getIn1, getIn1, js_getDx, getDx, js_getDy, getDy, - SVGFEOffsetElement, castToSVGFEOffsetElement, - gTypeSVGFEOffsetElement) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"in1\"]" js_getIn1 :: - SVGFEOffsetElement -> IO (Nullable SVGAnimatedString) - --- | -getIn1 :: - (MonadIO m) => SVGFEOffsetElement -> m (Maybe SVGAnimatedString) -getIn1 self = liftIO (nullableToMaybe <$> (js_getIn1 (self))) - -foreign import javascript unsafe "$1[\"dx\"]" js_getDx :: - SVGFEOffsetElement -> IO (Nullable SVGAnimatedNumber) - --- | -getDx :: - (MonadIO m) => SVGFEOffsetElement -> m (Maybe SVGAnimatedNumber) -getDx self = liftIO (nullableToMaybe <$> (js_getDx (self))) - -foreign import javascript unsafe "$1[\"dy\"]" js_getDy :: - SVGFEOffsetElement -> IO (Nullable SVGAnimatedNumber) - --- | -getDy :: - (MonadIO m) => SVGFEOffsetElement -> m (Maybe SVGAnimatedNumber) -getDy self = liftIO (nullableToMaybe <$> (js_getDy (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/SVGFEPointLightElement.hs b/src/GHCJS/DOM/JSFFI/Generated/SVGFEPointLightElement.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/SVGFEPointLightElement.hs +++ /dev/null @@ -1,47 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.SVGFEPointLightElement - (js_getX, getX, js_getY, getY, js_getZ, getZ, - SVGFEPointLightElement, castToSVGFEPointLightElement, - gTypeSVGFEPointLightElement) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"x\"]" js_getX :: - SVGFEPointLightElement -> IO (Nullable SVGAnimatedNumber) - --- | -getX :: - (MonadIO m) => - SVGFEPointLightElement -> m (Maybe SVGAnimatedNumber) -getX self = liftIO (nullableToMaybe <$> (js_getX (self))) - -foreign import javascript unsafe "$1[\"y\"]" js_getY :: - SVGFEPointLightElement -> IO (Nullable SVGAnimatedNumber) - --- | -getY :: - (MonadIO m) => - SVGFEPointLightElement -> m (Maybe SVGAnimatedNumber) -getY self = liftIO (nullableToMaybe <$> (js_getY (self))) - -foreign import javascript unsafe "$1[\"z\"]" js_getZ :: - SVGFEPointLightElement -> IO (Nullable SVGAnimatedNumber) - --- | -getZ :: - (MonadIO m) => - SVGFEPointLightElement -> m (Maybe SVGAnimatedNumber) -getZ self = liftIO (nullableToMaybe <$> (js_getZ (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/SVGFESpecularLightingElement.hs b/src/GHCJS/DOM/JSFFI/Generated/SVGFESpecularLightingElement.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/SVGFESpecularLightingElement.hs +++ /dev/null @@ -1,64 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.SVGFESpecularLightingElement - (js_getIn1, getIn1, js_getSurfaceScale, getSurfaceScale, - js_getSpecularConstant, getSpecularConstant, - js_getSpecularExponent, getSpecularExponent, - SVGFESpecularLightingElement, castToSVGFESpecularLightingElement, - gTypeSVGFESpecularLightingElement) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"in1\"]" js_getIn1 :: - SVGFESpecularLightingElement -> IO (Nullable SVGAnimatedString) - --- | -getIn1 :: - (MonadIO m) => - SVGFESpecularLightingElement -> m (Maybe SVGAnimatedString) -getIn1 self = liftIO (nullableToMaybe <$> (js_getIn1 (self))) - -foreign import javascript unsafe "$1[\"surfaceScale\"]" - js_getSurfaceScale :: - SVGFESpecularLightingElement -> IO (Nullable SVGAnimatedNumber) - --- | -getSurfaceScale :: - (MonadIO m) => - SVGFESpecularLightingElement -> m (Maybe SVGAnimatedNumber) -getSurfaceScale self - = liftIO (nullableToMaybe <$> (js_getSurfaceScale (self))) - -foreign import javascript unsafe "$1[\"specularConstant\"]" - js_getSpecularConstant :: - SVGFESpecularLightingElement -> IO (Nullable SVGAnimatedNumber) - --- | -getSpecularConstant :: - (MonadIO m) => - SVGFESpecularLightingElement -> m (Maybe SVGAnimatedNumber) -getSpecularConstant self - = liftIO (nullableToMaybe <$> (js_getSpecularConstant (self))) - -foreign import javascript unsafe "$1[\"specularExponent\"]" - js_getSpecularExponent :: - SVGFESpecularLightingElement -> IO (Nullable SVGAnimatedNumber) - --- | -getSpecularExponent :: - (MonadIO m) => - SVGFESpecularLightingElement -> m (Maybe SVGAnimatedNumber) -getSpecularExponent self - = liftIO (nullableToMaybe <$> (js_getSpecularExponent (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/SVGFESpotLightElement.hs b/src/GHCJS/DOM/JSFFI/Generated/SVGFESpotLightElement.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/SVGFESpotLightElement.hs +++ /dev/null @@ -1,97 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.SVGFESpotLightElement - (js_getX, getX, js_getY, getY, js_getZ, getZ, js_getPointsAtX, - getPointsAtX, js_getPointsAtY, getPointsAtY, js_getPointsAtZ, - getPointsAtZ, js_getSpecularExponent, getSpecularExponent, - js_getLimitingConeAngle, getLimitingConeAngle, - SVGFESpotLightElement, castToSVGFESpotLightElement, - gTypeSVGFESpotLightElement) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"x\"]" js_getX :: - SVGFESpotLightElement -> IO (Nullable SVGAnimatedNumber) - --- | -getX :: - (MonadIO m) => SVGFESpotLightElement -> m (Maybe SVGAnimatedNumber) -getX self = liftIO (nullableToMaybe <$> (js_getX (self))) - -foreign import javascript unsafe "$1[\"y\"]" js_getY :: - SVGFESpotLightElement -> IO (Nullable SVGAnimatedNumber) - --- | -getY :: - (MonadIO m) => SVGFESpotLightElement -> m (Maybe SVGAnimatedNumber) -getY self = liftIO (nullableToMaybe <$> (js_getY (self))) - -foreign import javascript unsafe "$1[\"z\"]" js_getZ :: - SVGFESpotLightElement -> IO (Nullable SVGAnimatedNumber) - --- | -getZ :: - (MonadIO m) => SVGFESpotLightElement -> m (Maybe SVGAnimatedNumber) -getZ self = liftIO (nullableToMaybe <$> (js_getZ (self))) - -foreign import javascript unsafe "$1[\"pointsAtX\"]" - js_getPointsAtX :: - SVGFESpotLightElement -> IO (Nullable SVGAnimatedNumber) - --- | -getPointsAtX :: - (MonadIO m) => SVGFESpotLightElement -> m (Maybe SVGAnimatedNumber) -getPointsAtX self - = liftIO (nullableToMaybe <$> (js_getPointsAtX (self))) - -foreign import javascript unsafe "$1[\"pointsAtY\"]" - js_getPointsAtY :: - SVGFESpotLightElement -> IO (Nullable SVGAnimatedNumber) - --- | -getPointsAtY :: - (MonadIO m) => SVGFESpotLightElement -> m (Maybe SVGAnimatedNumber) -getPointsAtY self - = liftIO (nullableToMaybe <$> (js_getPointsAtY (self))) - -foreign import javascript unsafe "$1[\"pointsAtZ\"]" - js_getPointsAtZ :: - SVGFESpotLightElement -> IO (Nullable SVGAnimatedNumber) - --- | -getPointsAtZ :: - (MonadIO m) => SVGFESpotLightElement -> m (Maybe SVGAnimatedNumber) -getPointsAtZ self - = liftIO (nullableToMaybe <$> (js_getPointsAtZ (self))) - -foreign import javascript unsafe "$1[\"specularExponent\"]" - js_getSpecularExponent :: - SVGFESpotLightElement -> IO (Nullable SVGAnimatedNumber) - --- | -getSpecularExponent :: - (MonadIO m) => SVGFESpotLightElement -> m (Maybe SVGAnimatedNumber) -getSpecularExponent self - = liftIO (nullableToMaybe <$> (js_getSpecularExponent (self))) - -foreign import javascript unsafe "$1[\"limitingConeAngle\"]" - js_getLimitingConeAngle :: - SVGFESpotLightElement -> IO (Nullable SVGAnimatedNumber) - --- | -getLimitingConeAngle :: - (MonadIO m) => SVGFESpotLightElement -> m (Maybe SVGAnimatedNumber) -getLimitingConeAngle self - = liftIO (nullableToMaybe <$> (js_getLimitingConeAngle (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/SVGFETileElement.hs b/src/GHCJS/DOM/JSFFI/Generated/SVGFETileElement.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/SVGFETileElement.hs +++ /dev/null @@ -1,27 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.SVGFETileElement - (js_getIn1, getIn1, SVGFETileElement, castToSVGFETileElement, - gTypeSVGFETileElement) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"in1\"]" js_getIn1 :: - SVGFETileElement -> IO (Nullable SVGAnimatedString) - --- | -getIn1 :: - (MonadIO m) => SVGFETileElement -> m (Maybe SVGAnimatedString) -getIn1 self = liftIO (nullableToMaybe <$> (js_getIn1 (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/SVGFETurbulenceElement.hs b/src/GHCJS/DOM/JSFFI/Generated/SVGFETurbulenceElement.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/SVGFETurbulenceElement.hs +++ /dev/null @@ -1,95 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.SVGFETurbulenceElement - (pattern SVG_TURBULENCE_TYPE_UNKNOWN, - pattern SVG_TURBULENCE_TYPE_FRACTALNOISE, - pattern SVG_TURBULENCE_TYPE_TURBULENCE, - pattern SVG_STITCHTYPE_UNKNOWN, pattern SVG_STITCHTYPE_STITCH, - pattern SVG_STITCHTYPE_NOSTITCH, js_getBaseFrequencyX, - getBaseFrequencyX, js_getBaseFrequencyY, getBaseFrequencyY, - js_getNumOctaves, getNumOctaves, js_getSeed, getSeed, - js_getStitchTiles, getStitchTiles, js_getType, getType, - SVGFETurbulenceElement, castToSVGFETurbulenceElement, - gTypeSVGFETurbulenceElement) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums -pattern SVG_TURBULENCE_TYPE_UNKNOWN = 0 -pattern SVG_TURBULENCE_TYPE_FRACTALNOISE = 1 -pattern SVG_TURBULENCE_TYPE_TURBULENCE = 2 -pattern SVG_STITCHTYPE_UNKNOWN = 0 -pattern SVG_STITCHTYPE_STITCH = 1 -pattern SVG_STITCHTYPE_NOSTITCH = 2 - -foreign import javascript unsafe "$1[\"baseFrequencyX\"]" - js_getBaseFrequencyX :: - SVGFETurbulenceElement -> IO (Nullable SVGAnimatedNumber) - --- | -getBaseFrequencyX :: - (MonadIO m) => - SVGFETurbulenceElement -> m (Maybe SVGAnimatedNumber) -getBaseFrequencyX self - = liftIO (nullableToMaybe <$> (js_getBaseFrequencyX (self))) - -foreign import javascript unsafe "$1[\"baseFrequencyY\"]" - js_getBaseFrequencyY :: - SVGFETurbulenceElement -> IO (Nullable SVGAnimatedNumber) - --- | -getBaseFrequencyY :: - (MonadIO m) => - SVGFETurbulenceElement -> m (Maybe SVGAnimatedNumber) -getBaseFrequencyY self - = liftIO (nullableToMaybe <$> (js_getBaseFrequencyY (self))) - -foreign import javascript unsafe "$1[\"numOctaves\"]" - js_getNumOctaves :: - SVGFETurbulenceElement -> IO (Nullable SVGAnimatedInteger) - --- | -getNumOctaves :: - (MonadIO m) => - SVGFETurbulenceElement -> m (Maybe SVGAnimatedInteger) -getNumOctaves self - = liftIO (nullableToMaybe <$> (js_getNumOctaves (self))) - -foreign import javascript unsafe "$1[\"seed\"]" js_getSeed :: - SVGFETurbulenceElement -> IO (Nullable SVGAnimatedNumber) - --- | -getSeed :: - (MonadIO m) => - SVGFETurbulenceElement -> m (Maybe SVGAnimatedNumber) -getSeed self = liftIO (nullableToMaybe <$> (js_getSeed (self))) - -foreign import javascript unsafe "$1[\"stitchTiles\"]" - js_getStitchTiles :: - SVGFETurbulenceElement -> IO (Nullable SVGAnimatedEnumeration) - --- | -getStitchTiles :: - (MonadIO m) => - SVGFETurbulenceElement -> m (Maybe SVGAnimatedEnumeration) -getStitchTiles self - = liftIO (nullableToMaybe <$> (js_getStitchTiles (self))) - -foreign import javascript unsafe "$1[\"type\"]" js_getType :: - SVGFETurbulenceElement -> IO (Nullable SVGAnimatedEnumeration) - --- | -getType :: - (MonadIO m) => - SVGFETurbulenceElement -> m (Maybe SVGAnimatedEnumeration) -getType self = liftIO (nullableToMaybe <$> (js_getType (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/SVGFilterElement.hs b/src/GHCJS/DOM/JSFFI/Generated/SVGFilterElement.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/SVGFilterElement.hs +++ /dev/null @@ -1,103 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.SVGFilterElement - (js_setFilterRes, setFilterRes, js_getFilterUnits, getFilterUnits, - js_getPrimitiveUnits, getPrimitiveUnits, js_getX, getX, js_getY, - getY, js_getWidth, getWidth, js_getHeight, getHeight, - js_getFilterResX, getFilterResX, js_getFilterResY, getFilterResY, - SVGFilterElement, castToSVGFilterElement, gTypeSVGFilterElement) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"setFilterRes\"]($2, $3)" - js_setFilterRes :: SVGFilterElement -> Word -> Word -> IO () - --- | -setFilterRes :: - (MonadIO m) => SVGFilterElement -> Word -> Word -> m () -setFilterRes self filterResX filterResY - = liftIO (js_setFilterRes (self) filterResX filterResY) - -foreign import javascript unsafe "$1[\"filterUnits\"]" - js_getFilterUnits :: - SVGFilterElement -> IO (Nullable SVGAnimatedEnumeration) - --- | -getFilterUnits :: - (MonadIO m) => SVGFilterElement -> m (Maybe SVGAnimatedEnumeration) -getFilterUnits self - = liftIO (nullableToMaybe <$> (js_getFilterUnits (self))) - -foreign import javascript unsafe "$1[\"primitiveUnits\"]" - js_getPrimitiveUnits :: - SVGFilterElement -> IO (Nullable SVGAnimatedEnumeration) - --- | -getPrimitiveUnits :: - (MonadIO m) => SVGFilterElement -> m (Maybe SVGAnimatedEnumeration) -getPrimitiveUnits self - = liftIO (nullableToMaybe <$> (js_getPrimitiveUnits (self))) - -foreign import javascript unsafe "$1[\"x\"]" js_getX :: - SVGFilterElement -> IO (Nullable SVGAnimatedLength) - --- | -getX :: - (MonadIO m) => SVGFilterElement -> m (Maybe SVGAnimatedLength) -getX self = liftIO (nullableToMaybe <$> (js_getX (self))) - -foreign import javascript unsafe "$1[\"y\"]" js_getY :: - SVGFilterElement -> IO (Nullable SVGAnimatedLength) - --- | -getY :: - (MonadIO m) => SVGFilterElement -> m (Maybe SVGAnimatedLength) -getY self = liftIO (nullableToMaybe <$> (js_getY (self))) - -foreign import javascript unsafe "$1[\"width\"]" js_getWidth :: - SVGFilterElement -> IO (Nullable SVGAnimatedLength) - --- | -getWidth :: - (MonadIO m) => SVGFilterElement -> m (Maybe SVGAnimatedLength) -getWidth self = liftIO (nullableToMaybe <$> (js_getWidth (self))) - -foreign import javascript unsafe "$1[\"height\"]" js_getHeight :: - SVGFilterElement -> IO (Nullable SVGAnimatedLength) - --- | -getHeight :: - (MonadIO m) => SVGFilterElement -> m (Maybe SVGAnimatedLength) -getHeight self = liftIO (nullableToMaybe <$> (js_getHeight (self))) - -foreign import javascript unsafe "$1[\"filterResX\"]" - js_getFilterResX :: - SVGFilterElement -> IO (Nullable SVGAnimatedInteger) - --- | -getFilterResX :: - (MonadIO m) => SVGFilterElement -> m (Maybe SVGAnimatedInteger) -getFilterResX self - = liftIO (nullableToMaybe <$> (js_getFilterResX (self))) - -foreign import javascript unsafe "$1[\"filterResY\"]" - js_getFilterResY :: - SVGFilterElement -> IO (Nullable SVGAnimatedInteger) - --- | -getFilterResY :: - (MonadIO m) => SVGFilterElement -> m (Maybe SVGAnimatedInteger) -getFilterResY self - = liftIO (nullableToMaybe <$> (js_getFilterResY (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/SVGFilterPrimitiveStandardAttributes.hs b/src/GHCJS/DOM/JSFFI/Generated/SVGFilterPrimitiveStandardAttributes.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/SVGFilterPrimitiveStandardAttributes.hs +++ /dev/null @@ -1,72 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.SVGFilterPrimitiveStandardAttributes - (js_getX, getX, js_getY, getY, js_getWidth, getWidth, js_getHeight, - getHeight, js_getResult, getResult, - SVGFilterPrimitiveStandardAttributes, - castToSVGFilterPrimitiveStandardAttributes, - gTypeSVGFilterPrimitiveStandardAttributes) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"x\"]" js_getX :: - SVGFilterPrimitiveStandardAttributes -> - IO (Nullable SVGAnimatedLength) - --- | -getX :: - (MonadIO m) => - SVGFilterPrimitiveStandardAttributes -> m (Maybe SVGAnimatedLength) -getX self = liftIO (nullableToMaybe <$> (js_getX (self))) - -foreign import javascript unsafe "$1[\"y\"]" js_getY :: - SVGFilterPrimitiveStandardAttributes -> - IO (Nullable SVGAnimatedLength) - --- | -getY :: - (MonadIO m) => - SVGFilterPrimitiveStandardAttributes -> m (Maybe SVGAnimatedLength) -getY self = liftIO (nullableToMaybe <$> (js_getY (self))) - -foreign import javascript unsafe "$1[\"width\"]" js_getWidth :: - SVGFilterPrimitiveStandardAttributes -> - IO (Nullable SVGAnimatedLength) - --- | -getWidth :: - (MonadIO m) => - SVGFilterPrimitiveStandardAttributes -> m (Maybe SVGAnimatedLength) -getWidth self = liftIO (nullableToMaybe <$> (js_getWidth (self))) - -foreign import javascript unsafe "$1[\"height\"]" js_getHeight :: - SVGFilterPrimitiveStandardAttributes -> - IO (Nullable SVGAnimatedLength) - --- | -getHeight :: - (MonadIO m) => - SVGFilterPrimitiveStandardAttributes -> m (Maybe SVGAnimatedLength) -getHeight self = liftIO (nullableToMaybe <$> (js_getHeight (self))) - -foreign import javascript unsafe "$1[\"result\"]" js_getResult :: - SVGFilterPrimitiveStandardAttributes -> - IO (Nullable SVGAnimatedString) - --- | -getResult :: - (MonadIO m) => - SVGFilterPrimitiveStandardAttributes -> m (Maybe SVGAnimatedString) -getResult self = liftIO (nullableToMaybe <$> (js_getResult (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/SVGFitToViewBox.hs b/src/GHCJS/DOM/JSFFI/Generated/SVGFitToViewBox.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/SVGFitToViewBox.hs +++ /dev/null @@ -1,40 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.SVGFitToViewBox - (js_getViewBox, getViewBox, js_getPreserveAspectRatio, - getPreserveAspectRatio, SVGFitToViewBox, castToSVGFitToViewBox, - gTypeSVGFitToViewBox) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"viewBox\"]" js_getViewBox :: - SVGFitToViewBox -> IO (Nullable SVGAnimatedRect) - --- | -getViewBox :: - (MonadIO m) => SVGFitToViewBox -> m (Maybe SVGAnimatedRect) -getViewBox self - = liftIO (nullableToMaybe <$> (js_getViewBox (self))) - -foreign import javascript unsafe "$1[\"preserveAspectRatio\"]" - js_getPreserveAspectRatio :: - SVGFitToViewBox -> IO (Nullable SVGAnimatedPreserveAspectRatio) - --- | -getPreserveAspectRatio :: - (MonadIO m) => - SVGFitToViewBox -> m (Maybe SVGAnimatedPreserveAspectRatio) -getPreserveAspectRatio self - = liftIO (nullableToMaybe <$> (js_getPreserveAspectRatio (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/SVGForeignObjectElement.hs b/src/GHCJS/DOM/JSFFI/Generated/SVGForeignObjectElement.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/SVGForeignObjectElement.hs +++ /dev/null @@ -1,56 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.SVGForeignObjectElement - (js_getX, getX, js_getY, getY, js_getWidth, getWidth, js_getHeight, - getHeight, SVGForeignObjectElement, castToSVGForeignObjectElement, - gTypeSVGForeignObjectElement) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"x\"]" js_getX :: - SVGForeignObjectElement -> IO (Nullable SVGAnimatedLength) - --- | -getX :: - (MonadIO m) => - SVGForeignObjectElement -> m (Maybe SVGAnimatedLength) -getX self = liftIO (nullableToMaybe <$> (js_getX (self))) - -foreign import javascript unsafe "$1[\"y\"]" js_getY :: - SVGForeignObjectElement -> IO (Nullable SVGAnimatedLength) - --- | -getY :: - (MonadIO m) => - SVGForeignObjectElement -> m (Maybe SVGAnimatedLength) -getY self = liftIO (nullableToMaybe <$> (js_getY (self))) - -foreign import javascript unsafe "$1[\"width\"]" js_getWidth :: - SVGForeignObjectElement -> IO (Nullable SVGAnimatedLength) - --- | -getWidth :: - (MonadIO m) => - SVGForeignObjectElement -> m (Maybe SVGAnimatedLength) -getWidth self = liftIO (nullableToMaybe <$> (js_getWidth (self))) - -foreign import javascript unsafe "$1[\"height\"]" js_getHeight :: - SVGForeignObjectElement -> IO (Nullable SVGAnimatedLength) - --- | -getHeight :: - (MonadIO m) => - SVGForeignObjectElement -> m (Maybe SVGAnimatedLength) -getHeight self = liftIO (nullableToMaybe <$> (js_getHeight (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/SVGGlyphRefElement.hs b/src/GHCJS/DOM/JSFFI/Generated/SVGGlyphRefElement.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/SVGGlyphRefElement.hs +++ /dev/null @@ -1,113 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.SVGGlyphRefElement - (js_setGlyphRef, setGlyphRef, js_getGlyphRef, getGlyphRef, - js_setFormat, setFormat, js_getFormat, getFormat, js_setX, setX, - js_getX, getX, js_setY, setY, js_getY, getY, js_setDx, setDx, - js_getDx, getDx, js_setDy, setDy, js_getDy, getDy, - SVGGlyphRefElement, castToSVGGlyphRefElement, - gTypeSVGGlyphRefElement) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"glyphRef\"] = $2;" - js_setGlyphRef :: SVGGlyphRefElement -> JSString -> IO () - --- | -setGlyphRef :: - (MonadIO m, ToJSString val) => SVGGlyphRefElement -> val -> m () -setGlyphRef self val - = liftIO (js_setGlyphRef (self) (toJSString val)) - -foreign import javascript unsafe "$1[\"glyphRef\"]" js_getGlyphRef - :: SVGGlyphRefElement -> IO JSString - --- | -getGlyphRef :: - (MonadIO m, FromJSString result) => SVGGlyphRefElement -> m result -getGlyphRef self - = liftIO (fromJSString <$> (js_getGlyphRef (self))) - -foreign import javascript unsafe "$1[\"format\"] = $2;" - js_setFormat :: SVGGlyphRefElement -> JSString -> IO () - --- | -setFormat :: - (MonadIO m, ToJSString val) => SVGGlyphRefElement -> val -> m () -setFormat self val = liftIO (js_setFormat (self) (toJSString val)) - -foreign import javascript unsafe "$1[\"format\"]" js_getFormat :: - SVGGlyphRefElement -> IO JSString - --- | -getFormat :: - (MonadIO m, FromJSString result) => SVGGlyphRefElement -> m result -getFormat self = liftIO (fromJSString <$> (js_getFormat (self))) - -foreign import javascript unsafe "$1[\"x\"] = $2;" js_setX :: - SVGGlyphRefElement -> Float -> IO () - --- | -setX :: (MonadIO m) => SVGGlyphRefElement -> Float -> m () -setX self val = liftIO (js_setX (self) val) - -foreign import javascript unsafe "$1[\"x\"]" js_getX :: - SVGGlyphRefElement -> IO Float - --- | -getX :: (MonadIO m) => SVGGlyphRefElement -> m Float -getX self = liftIO (js_getX (self)) - -foreign import javascript unsafe "$1[\"y\"] = $2;" js_setY :: - SVGGlyphRefElement -> Float -> IO () - --- | -setY :: (MonadIO m) => SVGGlyphRefElement -> Float -> m () -setY self val = liftIO (js_setY (self) val) - -foreign import javascript unsafe "$1[\"y\"]" js_getY :: - SVGGlyphRefElement -> IO Float - --- | -getY :: (MonadIO m) => SVGGlyphRefElement -> m Float -getY self = liftIO (js_getY (self)) - -foreign import javascript unsafe "$1[\"dx\"] = $2;" js_setDx :: - SVGGlyphRefElement -> Float -> IO () - --- | -setDx :: (MonadIO m) => SVGGlyphRefElement -> Float -> m () -setDx self val = liftIO (js_setDx (self) val) - -foreign import javascript unsafe "$1[\"dx\"]" js_getDx :: - SVGGlyphRefElement -> IO Float - --- | -getDx :: (MonadIO m) => SVGGlyphRefElement -> m Float -getDx self = liftIO (js_getDx (self)) - -foreign import javascript unsafe "$1[\"dy\"] = $2;" js_setDy :: - SVGGlyphRefElement -> Float -> IO () - --- | -setDy :: (MonadIO m) => SVGGlyphRefElement -> Float -> m () -setDy self val = liftIO (js_setDy (self) val) - -foreign import javascript unsafe "$1[\"dy\"]" js_getDy :: - SVGGlyphRefElement -> IO Float - --- | -getDy :: (MonadIO m) => SVGGlyphRefElement -> m Float -getDy self = liftIO (js_getDy (self)) diff --git a/src/GHCJS/DOM/JSFFI/Generated/SVGGradientElement.hs b/src/GHCJS/DOM/JSFFI/Generated/SVGGradientElement.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/SVGGradientElement.hs +++ /dev/null @@ -1,67 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.SVGGradientElement - (pattern SVG_SPREADMETHOD_UNKNOWN, pattern SVG_SPREADMETHOD_PAD, - pattern SVG_SPREADMETHOD_REFLECT, pattern SVG_SPREADMETHOD_REPEAT, - js_getGradientUnits, getGradientUnits, js_getGradientTransform, - getGradientTransform, js_getSpreadMethod, getSpreadMethod, - SVGGradientElement, castToSVGGradientElement, - gTypeSVGGradientElement, IsSVGGradientElement, - toSVGGradientElement) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums -pattern SVG_SPREADMETHOD_UNKNOWN = 0 -pattern SVG_SPREADMETHOD_PAD = 1 -pattern SVG_SPREADMETHOD_REFLECT = 2 -pattern SVG_SPREADMETHOD_REPEAT = 3 - -foreign import javascript unsafe "$1[\"gradientUnits\"]" - js_getGradientUnits :: - SVGGradientElement -> IO (Nullable SVGAnimatedEnumeration) - --- | -getGradientUnits :: - (MonadIO m, IsSVGGradientElement self) => - self -> m (Maybe SVGAnimatedEnumeration) -getGradientUnits self - = liftIO - (nullableToMaybe <$> - (js_getGradientUnits (toSVGGradientElement self))) - -foreign import javascript unsafe "$1[\"gradientTransform\"]" - js_getGradientTransform :: - SVGGradientElement -> IO (Nullable SVGAnimatedTransformList) - --- | -getGradientTransform :: - (MonadIO m, IsSVGGradientElement self) => - self -> m (Maybe SVGAnimatedTransformList) -getGradientTransform self - = liftIO - (nullableToMaybe <$> - (js_getGradientTransform (toSVGGradientElement self))) - -foreign import javascript unsafe "$1[\"spreadMethod\"]" - js_getSpreadMethod :: - SVGGradientElement -> IO (Nullable SVGAnimatedEnumeration) - --- | -getSpreadMethod :: - (MonadIO m, IsSVGGradientElement self) => - self -> m (Maybe SVGAnimatedEnumeration) -getSpreadMethod self - = liftIO - (nullableToMaybe <$> - (js_getSpreadMethod (toSVGGradientElement self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/SVGGraphicsElement.hs b/src/GHCJS/DOM/JSFFI/Generated/SVGGraphicsElement.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/SVGGraphicsElement.hs +++ /dev/null @@ -1,109 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.SVGGraphicsElement - (js_getBBox, getBBox, js_getCTM, getCTM, js_getScreenCTM, - getScreenCTM, js_getTransformToElement, getTransformToElement, - js_getTransform, getTransform, js_getNearestViewportElement, - getNearestViewportElement, js_getFarthestViewportElement, - getFarthestViewportElement, SVGGraphicsElement, - castToSVGGraphicsElement, gTypeSVGGraphicsElement, - IsSVGGraphicsElement, toSVGGraphicsElement) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"getBBox\"]()" js_getBBox :: - SVGGraphicsElement -> IO (Nullable SVGRect) - --- | -getBBox :: - (MonadIO m, IsSVGGraphicsElement self) => self -> m (Maybe SVGRect) -getBBox self - = liftIO - (nullableToMaybe <$> (js_getBBox (toSVGGraphicsElement self))) - -foreign import javascript unsafe "$1[\"getCTM\"]()" js_getCTM :: - SVGGraphicsElement -> IO (Nullable SVGMatrix) - --- | -getCTM :: - (MonadIO m, IsSVGGraphicsElement self) => - self -> m (Maybe SVGMatrix) -getCTM self - = liftIO - (nullableToMaybe <$> (js_getCTM (toSVGGraphicsElement self))) - -foreign import javascript unsafe "$1[\"getScreenCTM\"]()" - js_getScreenCTM :: SVGGraphicsElement -> IO (Nullable SVGMatrix) - --- | -getScreenCTM :: - (MonadIO m, IsSVGGraphicsElement self) => - self -> m (Maybe SVGMatrix) -getScreenCTM self - = liftIO - (nullableToMaybe <$> (js_getScreenCTM (toSVGGraphicsElement self))) - -foreign import javascript unsafe - "$1[\"getTransformToElement\"]($2)" js_getTransformToElement :: - SVGGraphicsElement -> - Nullable SVGElement -> IO (Nullable SVGMatrix) - --- | -getTransformToElement :: - (MonadIO m, IsSVGGraphicsElement self, IsSVGElement element) => - self -> Maybe element -> m (Maybe SVGMatrix) -getTransformToElement self element - = liftIO - (nullableToMaybe <$> - (js_getTransformToElement (toSVGGraphicsElement self) - (maybeToNullable (fmap toSVGElement element)))) - -foreign import javascript unsafe "$1[\"transform\"]" - js_getTransform :: - SVGGraphicsElement -> IO (Nullable SVGAnimatedTransformList) - --- | -getTransform :: - (MonadIO m, IsSVGGraphicsElement self) => - self -> m (Maybe SVGAnimatedTransformList) -getTransform self - = liftIO - (nullableToMaybe <$> (js_getTransform (toSVGGraphicsElement self))) - -foreign import javascript unsafe "$1[\"nearestViewportElement\"]" - js_getNearestViewportElement :: - SVGGraphicsElement -> IO (Nullable SVGElement) - --- | -getNearestViewportElement :: - (MonadIO m, IsSVGGraphicsElement self) => - self -> m (Maybe SVGElement) -getNearestViewportElement self - = liftIO - (nullableToMaybe <$> - (js_getNearestViewportElement (toSVGGraphicsElement self))) - -foreign import javascript unsafe "$1[\"farthestViewportElement\"]" - js_getFarthestViewportElement :: - SVGGraphicsElement -> IO (Nullable SVGElement) - --- | -getFarthestViewportElement :: - (MonadIO m, IsSVGGraphicsElement self) => - self -> m (Maybe SVGElement) -getFarthestViewportElement self - = liftIO - (nullableToMaybe <$> - (js_getFarthestViewportElement (toSVGGraphicsElement self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/SVGImageElement.hs b/src/GHCJS/DOM/JSFFI/Generated/SVGImageElement.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/SVGImageElement.hs +++ /dev/null @@ -1,63 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.SVGImageElement - (js_getX, getX, js_getY, getY, js_getWidth, getWidth, js_getHeight, - getHeight, js_getPreserveAspectRatio, getPreserveAspectRatio, - SVGImageElement, castToSVGImageElement, gTypeSVGImageElement) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"x\"]" js_getX :: - SVGImageElement -> IO (Nullable SVGAnimatedLength) - --- | -getX :: - (MonadIO m) => SVGImageElement -> m (Maybe SVGAnimatedLength) -getX self = liftIO (nullableToMaybe <$> (js_getX (self))) - -foreign import javascript unsafe "$1[\"y\"]" js_getY :: - SVGImageElement -> IO (Nullable SVGAnimatedLength) - --- | -getY :: - (MonadIO m) => SVGImageElement -> m (Maybe SVGAnimatedLength) -getY self = liftIO (nullableToMaybe <$> (js_getY (self))) - -foreign import javascript unsafe "$1[\"width\"]" js_getWidth :: - SVGImageElement -> IO (Nullable SVGAnimatedLength) - --- | -getWidth :: - (MonadIO m) => SVGImageElement -> m (Maybe SVGAnimatedLength) -getWidth self = liftIO (nullableToMaybe <$> (js_getWidth (self))) - -foreign import javascript unsafe "$1[\"height\"]" js_getHeight :: - SVGImageElement -> IO (Nullable SVGAnimatedLength) - --- | -getHeight :: - (MonadIO m) => SVGImageElement -> m (Maybe SVGAnimatedLength) -getHeight self = liftIO (nullableToMaybe <$> (js_getHeight (self))) - -foreign import javascript unsafe "$1[\"preserveAspectRatio\"]" - js_getPreserveAspectRatio :: - SVGImageElement -> IO (Nullable SVGAnimatedPreserveAspectRatio) - --- | -getPreserveAspectRatio :: - (MonadIO m) => - SVGImageElement -> m (Maybe SVGAnimatedPreserveAspectRatio) -getPreserveAspectRatio self - = liftIO (nullableToMaybe <$> (js_getPreserveAspectRatio (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/SVGLength.hs b/src/GHCJS/DOM/JSFFI/Generated/SVGLength.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/SVGLength.hs +++ /dev/null @@ -1,118 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.SVGLength - (js_newValueSpecifiedUnits, newValueSpecifiedUnits, - js_convertToSpecifiedUnits, convertToSpecifiedUnits, - pattern SVG_LENGTHTYPE_UNKNOWN, pattern SVG_LENGTHTYPE_NUMBER, - pattern SVG_LENGTHTYPE_PERCENTAGE, pattern SVG_LENGTHTYPE_EMS, - pattern SVG_LENGTHTYPE_EXS, pattern SVG_LENGTHTYPE_PX, - pattern SVG_LENGTHTYPE_CM, pattern SVG_LENGTHTYPE_MM, - pattern SVG_LENGTHTYPE_IN, pattern SVG_LENGTHTYPE_PT, - pattern SVG_LENGTHTYPE_PC, js_getUnitType, getUnitType, - js_setValue, setValue, js_getValue, getValue, - js_setValueInSpecifiedUnits, setValueInSpecifiedUnits, - js_getValueInSpecifiedUnits, getValueInSpecifiedUnits, - js_setValueAsString, setValueAsString, js_getValueAsString, - getValueAsString, SVGLength, castToSVGLength, gTypeSVGLength) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe - "$1[\"newValueSpecifiedUnits\"]($2,\n$3)" js_newValueSpecifiedUnits - :: SVGLength -> Word -> Float -> IO () - --- | -newValueSpecifiedUnits :: - (MonadIO m) => SVGLength -> Word -> Float -> m () -newValueSpecifiedUnits self unitType valueInSpecifiedUnits - = liftIO - (js_newValueSpecifiedUnits (self) unitType valueInSpecifiedUnits) - -foreign import javascript unsafe - "$1[\"convertToSpecifiedUnits\"]($2)" js_convertToSpecifiedUnits :: - SVGLength -> Word -> IO () - --- | -convertToSpecifiedUnits :: (MonadIO m) => SVGLength -> Word -> m () -convertToSpecifiedUnits self unitType - = liftIO (js_convertToSpecifiedUnits (self) unitType) -pattern SVG_LENGTHTYPE_UNKNOWN = 0 -pattern SVG_LENGTHTYPE_NUMBER = 1 -pattern SVG_LENGTHTYPE_PERCENTAGE = 2 -pattern SVG_LENGTHTYPE_EMS = 3 -pattern SVG_LENGTHTYPE_EXS = 4 -pattern SVG_LENGTHTYPE_PX = 5 -pattern SVG_LENGTHTYPE_CM = 6 -pattern SVG_LENGTHTYPE_MM = 7 -pattern SVG_LENGTHTYPE_IN = 8 -pattern SVG_LENGTHTYPE_PT = 9 -pattern SVG_LENGTHTYPE_PC = 10 - -foreign import javascript unsafe "$1[\"unitType\"]" js_getUnitType - :: SVGLength -> IO Word - --- | -getUnitType :: (MonadIO m) => SVGLength -> m Word -getUnitType self = liftIO (js_getUnitType (self)) - -foreign import javascript unsafe "$1[\"value\"] = $2;" js_setValue - :: SVGLength -> Float -> IO () - --- | -setValue :: (MonadIO m) => SVGLength -> Float -> m () -setValue self val = liftIO (js_setValue (self) val) - -foreign import javascript unsafe "$1[\"value\"]" js_getValue :: - SVGLength -> IO Float - --- | -getValue :: (MonadIO m) => SVGLength -> m Float -getValue self = liftIO (js_getValue (self)) - -foreign import javascript unsafe - "$1[\"valueInSpecifiedUnits\"] = $2;" js_setValueInSpecifiedUnits - :: SVGLength -> Float -> IO () - --- | -setValueInSpecifiedUnits :: - (MonadIO m) => SVGLength -> Float -> m () -setValueInSpecifiedUnits self val - = liftIO (js_setValueInSpecifiedUnits (self) val) - -foreign import javascript unsafe "$1[\"valueInSpecifiedUnits\"]" - js_getValueInSpecifiedUnits :: SVGLength -> IO Float - --- | -getValueInSpecifiedUnits :: (MonadIO m) => SVGLength -> m Float -getValueInSpecifiedUnits self - = liftIO (js_getValueInSpecifiedUnits (self)) - -foreign import javascript unsafe "$1[\"valueAsString\"] = $2;" - js_setValueAsString :: SVGLength -> Nullable JSString -> IO () - --- | -setValueAsString :: - (MonadIO m, ToJSString val) => SVGLength -> Maybe val -> m () -setValueAsString self val - = liftIO (js_setValueAsString (self) (toMaybeJSString val)) - -foreign import javascript unsafe "$1[\"valueAsString\"]" - js_getValueAsString :: SVGLength -> IO (Nullable JSString) - --- | -getValueAsString :: - (MonadIO m, FromJSString result) => SVGLength -> m (Maybe result) -getValueAsString self - = liftIO (fromMaybeJSString <$> (js_getValueAsString (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/SVGLengthList.hs b/src/GHCJS/DOM/JSFFI/Generated/SVGLengthList.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/SVGLengthList.hs +++ /dev/null @@ -1,106 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.SVGLengthList - (js_clear, clear, js_initialize, initialize, js_getItem, getItem, - js_insertItemBefore, insertItemBefore, js_replaceItem, replaceItem, - js_removeItem, removeItem, js_appendItem, appendItem, - js_getNumberOfItems, getNumberOfItems, SVGLengthList, - castToSVGLengthList, gTypeSVGLengthList) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"clear\"]()" js_clear :: - SVGLengthList -> IO () - --- | -clear :: (MonadIO m) => SVGLengthList -> m () -clear self = liftIO (js_clear (self)) - -foreign import javascript unsafe "$1[\"initialize\"]($2)" - js_initialize :: - SVGLengthList -> Nullable SVGLength -> IO (Nullable SVGLength) - --- | -initialize :: - (MonadIO m) => - SVGLengthList -> Maybe SVGLength -> m (Maybe SVGLength) -initialize self item - = liftIO - (nullableToMaybe <$> (js_initialize (self) (maybeToNullable item))) - -foreign import javascript unsafe "$1[\"getItem\"]($2)" js_getItem - :: SVGLengthList -> Word -> IO (Nullable SVGLength) - --- | -getItem :: - (MonadIO m) => SVGLengthList -> Word -> m (Maybe SVGLength) -getItem self index - = liftIO (nullableToMaybe <$> (js_getItem (self) index)) - -foreign import javascript unsafe "$1[\"insertItemBefore\"]($2, $3)" - js_insertItemBefore :: - SVGLengthList -> - Nullable SVGLength -> Word -> IO (Nullable SVGLength) - --- | -insertItemBefore :: - (MonadIO m) => - SVGLengthList -> Maybe SVGLength -> Word -> m (Maybe SVGLength) -insertItemBefore self item index - = liftIO - (nullableToMaybe <$> - (js_insertItemBefore (self) (maybeToNullable item) index)) - -foreign import javascript unsafe "$1[\"replaceItem\"]($2, $3)" - js_replaceItem :: - SVGLengthList -> - Nullable SVGLength -> Word -> IO (Nullable SVGLength) - --- | -replaceItem :: - (MonadIO m) => - SVGLengthList -> Maybe SVGLength -> Word -> m (Maybe SVGLength) -replaceItem self item index - = liftIO - (nullableToMaybe <$> - (js_replaceItem (self) (maybeToNullable item) index)) - -foreign import javascript unsafe "$1[\"removeItem\"]($2)" - js_removeItem :: SVGLengthList -> Word -> IO (Nullable SVGLength) - --- | -removeItem :: - (MonadIO m) => SVGLengthList -> Word -> m (Maybe SVGLength) -removeItem self index - = liftIO (nullableToMaybe <$> (js_removeItem (self) index)) - -foreign import javascript unsafe "$1[\"appendItem\"]($2)" - js_appendItem :: - SVGLengthList -> Nullable SVGLength -> IO (Nullable SVGLength) - --- | -appendItem :: - (MonadIO m) => - SVGLengthList -> Maybe SVGLength -> m (Maybe SVGLength) -appendItem self item - = liftIO - (nullableToMaybe <$> (js_appendItem (self) (maybeToNullable item))) - -foreign import javascript unsafe "$1[\"numberOfItems\"]" - js_getNumberOfItems :: SVGLengthList -> IO Word - --- | -getNumberOfItems :: (MonadIO m) => SVGLengthList -> m Word -getNumberOfItems self = liftIO (js_getNumberOfItems (self)) diff --git a/src/GHCJS/DOM/JSFFI/Generated/SVGLineElement.hs b/src/GHCJS/DOM/JSFFI/Generated/SVGLineElement.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/SVGLineElement.hs +++ /dev/null @@ -1,51 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.SVGLineElement - (js_getX1, getX1, js_getY1, getY1, js_getX2, getX2, js_getY2, - getY2, SVGLineElement, castToSVGLineElement, gTypeSVGLineElement) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"x1\"]" js_getX1 :: - SVGLineElement -> IO (Nullable SVGAnimatedLength) - --- | -getX1 :: - (MonadIO m) => SVGLineElement -> m (Maybe SVGAnimatedLength) -getX1 self = liftIO (nullableToMaybe <$> (js_getX1 (self))) - -foreign import javascript unsafe "$1[\"y1\"]" js_getY1 :: - SVGLineElement -> IO (Nullable SVGAnimatedLength) - --- | -getY1 :: - (MonadIO m) => SVGLineElement -> m (Maybe SVGAnimatedLength) -getY1 self = liftIO (nullableToMaybe <$> (js_getY1 (self))) - -foreign import javascript unsafe "$1[\"x2\"]" js_getX2 :: - SVGLineElement -> IO (Nullable SVGAnimatedLength) - --- | -getX2 :: - (MonadIO m) => SVGLineElement -> m (Maybe SVGAnimatedLength) -getX2 self = liftIO (nullableToMaybe <$> (js_getX2 (self))) - -foreign import javascript unsafe "$1[\"y2\"]" js_getY2 :: - SVGLineElement -> IO (Nullable SVGAnimatedLength) - --- | -getY2 :: - (MonadIO m) => SVGLineElement -> m (Maybe SVGAnimatedLength) -getY2 self = liftIO (nullableToMaybe <$> (js_getY2 (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/SVGLinearGradientElement.hs b/src/GHCJS/DOM/JSFFI/Generated/SVGLinearGradientElement.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/SVGLinearGradientElement.hs +++ /dev/null @@ -1,56 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.SVGLinearGradientElement - (js_getX1, getX1, js_getY1, getY1, js_getX2, getX2, js_getY2, - getY2, SVGLinearGradientElement, castToSVGLinearGradientElement, - gTypeSVGLinearGradientElement) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"x1\"]" js_getX1 :: - SVGLinearGradientElement -> IO (Nullable SVGAnimatedLength) - --- | -getX1 :: - (MonadIO m) => - SVGLinearGradientElement -> m (Maybe SVGAnimatedLength) -getX1 self = liftIO (nullableToMaybe <$> (js_getX1 (self))) - -foreign import javascript unsafe "$1[\"y1\"]" js_getY1 :: - SVGLinearGradientElement -> IO (Nullable SVGAnimatedLength) - --- | -getY1 :: - (MonadIO m) => - SVGLinearGradientElement -> m (Maybe SVGAnimatedLength) -getY1 self = liftIO (nullableToMaybe <$> (js_getY1 (self))) - -foreign import javascript unsafe "$1[\"x2\"]" js_getX2 :: - SVGLinearGradientElement -> IO (Nullable SVGAnimatedLength) - --- | -getX2 :: - (MonadIO m) => - SVGLinearGradientElement -> m (Maybe SVGAnimatedLength) -getX2 self = liftIO (nullableToMaybe <$> (js_getX2 (self))) - -foreign import javascript unsafe "$1[\"y2\"]" js_getY2 :: - SVGLinearGradientElement -> IO (Nullable SVGAnimatedLength) - --- | -getY2 :: - (MonadIO m) => - SVGLinearGradientElement -> m (Maybe SVGAnimatedLength) -getY2 self = liftIO (nullableToMaybe <$> (js_getY2 (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/SVGMarkerElement.hs b/src/GHCJS/DOM/JSFFI/Generated/SVGMarkerElement.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/SVGMarkerElement.hs +++ /dev/null @@ -1,116 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.SVGMarkerElement - (js_setOrientToAuto, setOrientToAuto, js_setOrientToAngle, - setOrientToAngle, pattern SVG_MARKERUNITS_UNKNOWN, - pattern SVG_MARKERUNITS_USERSPACEONUSE, - pattern SVG_MARKERUNITS_STROKEWIDTH, - pattern SVG_MARKER_ORIENT_UNKNOWN, pattern SVG_MARKER_ORIENT_AUTO, - pattern SVG_MARKER_ORIENT_ANGLE, js_getRefX, getRefX, js_getRefY, - getRefY, js_getMarkerUnits, getMarkerUnits, js_getMarkerWidth, - getMarkerWidth, js_getMarkerHeight, getMarkerHeight, - js_getOrientType, getOrientType, js_getOrientAngle, getOrientAngle, - SVGMarkerElement, castToSVGMarkerElement, gTypeSVGMarkerElement) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"setOrientToAuto\"]()" - js_setOrientToAuto :: SVGMarkerElement -> IO () - --- | -setOrientToAuto :: (MonadIO m) => SVGMarkerElement -> m () -setOrientToAuto self = liftIO (js_setOrientToAuto (self)) - -foreign import javascript unsafe "$1[\"setOrientToAngle\"]($2)" - js_setOrientToAngle :: - SVGMarkerElement -> Nullable SVGAngle -> IO () - --- | -setOrientToAngle :: - (MonadIO m) => SVGMarkerElement -> Maybe SVGAngle -> m () -setOrientToAngle self angle - = liftIO (js_setOrientToAngle (self) (maybeToNullable angle)) -pattern SVG_MARKERUNITS_UNKNOWN = 0 -pattern SVG_MARKERUNITS_USERSPACEONUSE = 1 -pattern SVG_MARKERUNITS_STROKEWIDTH = 2 -pattern SVG_MARKER_ORIENT_UNKNOWN = 0 -pattern SVG_MARKER_ORIENT_AUTO = 1 -pattern SVG_MARKER_ORIENT_ANGLE = 2 - -foreign import javascript unsafe "$1[\"refX\"]" js_getRefX :: - SVGMarkerElement -> IO (Nullable SVGAnimatedLength) - --- | -getRefX :: - (MonadIO m) => SVGMarkerElement -> m (Maybe SVGAnimatedLength) -getRefX self = liftIO (nullableToMaybe <$> (js_getRefX (self))) - -foreign import javascript unsafe "$1[\"refY\"]" js_getRefY :: - SVGMarkerElement -> IO (Nullable SVGAnimatedLength) - --- | -getRefY :: - (MonadIO m) => SVGMarkerElement -> m (Maybe SVGAnimatedLength) -getRefY self = liftIO (nullableToMaybe <$> (js_getRefY (self))) - -foreign import javascript unsafe "$1[\"markerUnits\"]" - js_getMarkerUnits :: - SVGMarkerElement -> IO (Nullable SVGAnimatedEnumeration) - --- | -getMarkerUnits :: - (MonadIO m) => SVGMarkerElement -> m (Maybe SVGAnimatedEnumeration) -getMarkerUnits self - = liftIO (nullableToMaybe <$> (js_getMarkerUnits (self))) - -foreign import javascript unsafe "$1[\"markerWidth\"]" - js_getMarkerWidth :: - SVGMarkerElement -> IO (Nullable SVGAnimatedLength) - --- | -getMarkerWidth :: - (MonadIO m) => SVGMarkerElement -> m (Maybe SVGAnimatedLength) -getMarkerWidth self - = liftIO (nullableToMaybe <$> (js_getMarkerWidth (self))) - -foreign import javascript unsafe "$1[\"markerHeight\"]" - js_getMarkerHeight :: - SVGMarkerElement -> IO (Nullable SVGAnimatedLength) - --- | -getMarkerHeight :: - (MonadIO m) => SVGMarkerElement -> m (Maybe SVGAnimatedLength) -getMarkerHeight self - = liftIO (nullableToMaybe <$> (js_getMarkerHeight (self))) - -foreign import javascript unsafe "$1[\"orientType\"]" - js_getOrientType :: - SVGMarkerElement -> IO (Nullable SVGAnimatedEnumeration) - --- | -getOrientType :: - (MonadIO m) => SVGMarkerElement -> m (Maybe SVGAnimatedEnumeration) -getOrientType self - = liftIO (nullableToMaybe <$> (js_getOrientType (self))) - -foreign import javascript unsafe "$1[\"orientAngle\"]" - js_getOrientAngle :: - SVGMarkerElement -> IO (Nullable SVGAnimatedAngle) - --- | -getOrientAngle :: - (MonadIO m) => SVGMarkerElement -> m (Maybe SVGAnimatedAngle) -getOrientAngle self - = liftIO (nullableToMaybe <$> (js_getOrientAngle (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/SVGMaskElement.hs b/src/GHCJS/DOM/JSFFI/Generated/SVGMaskElement.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/SVGMaskElement.hs +++ /dev/null @@ -1,73 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.SVGMaskElement - (js_getMaskUnits, getMaskUnits, js_getMaskContentUnits, - getMaskContentUnits, js_getX, getX, js_getY, getY, js_getWidth, - getWidth, js_getHeight, getHeight, SVGMaskElement, - castToSVGMaskElement, gTypeSVGMaskElement) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"maskUnits\"]" - js_getMaskUnits :: - SVGMaskElement -> IO (Nullable SVGAnimatedEnumeration) - --- | -getMaskUnits :: - (MonadIO m) => SVGMaskElement -> m (Maybe SVGAnimatedEnumeration) -getMaskUnits self - = liftIO (nullableToMaybe <$> (js_getMaskUnits (self))) - -foreign import javascript unsafe "$1[\"maskContentUnits\"]" - js_getMaskContentUnits :: - SVGMaskElement -> IO (Nullable SVGAnimatedEnumeration) - --- | -getMaskContentUnits :: - (MonadIO m) => SVGMaskElement -> m (Maybe SVGAnimatedEnumeration) -getMaskContentUnits self - = liftIO (nullableToMaybe <$> (js_getMaskContentUnits (self))) - -foreign import javascript unsafe "$1[\"x\"]" js_getX :: - SVGMaskElement -> IO (Nullable SVGAnimatedLength) - --- | -getX :: - (MonadIO m) => SVGMaskElement -> m (Maybe SVGAnimatedLength) -getX self = liftIO (nullableToMaybe <$> (js_getX (self))) - -foreign import javascript unsafe "$1[\"y\"]" js_getY :: - SVGMaskElement -> IO (Nullable SVGAnimatedLength) - --- | -getY :: - (MonadIO m) => SVGMaskElement -> m (Maybe SVGAnimatedLength) -getY self = liftIO (nullableToMaybe <$> (js_getY (self))) - -foreign import javascript unsafe "$1[\"width\"]" js_getWidth :: - SVGMaskElement -> IO (Nullable SVGAnimatedLength) - --- | -getWidth :: - (MonadIO m) => SVGMaskElement -> m (Maybe SVGAnimatedLength) -getWidth self = liftIO (nullableToMaybe <$> (js_getWidth (self))) - -foreign import javascript unsafe "$1[\"height\"]" js_getHeight :: - SVGMaskElement -> IO (Nullable SVGAnimatedLength) - --- | -getHeight :: - (MonadIO m) => SVGMaskElement -> m (Maybe SVGAnimatedLength) -getHeight self = liftIO (nullableToMaybe <$> (js_getHeight (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/SVGMatrix.hs b/src/GHCJS/DOM/JSFFI/Generated/SVGMatrix.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/SVGMatrix.hs +++ /dev/null @@ -1,205 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.SVGMatrix - (js_multiply, multiply, js_inverse, inverse, js_translate, - translate, js_scale, scale, js_scaleNonUniform, scaleNonUniform, - js_rotate, rotate, js_rotateFromVector, rotateFromVector, js_flipX, - flipX, js_flipY, flipY, js_skewX, skewX, js_skewY, skewY, js_setA, - setA, js_getA, getA, js_setB, setB, js_getB, getB, js_setC, setC, - js_getC, getC, js_setD, setD, js_getD, getD, js_setE, setE, - js_getE, getE, js_setF, setF, js_getF, getF, SVGMatrix, - castToSVGMatrix, gTypeSVGMatrix) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"multiply\"]($2)" js_multiply - :: SVGMatrix -> Nullable SVGMatrix -> IO (Nullable SVGMatrix) - --- | -multiply :: - (MonadIO m) => SVGMatrix -> Maybe SVGMatrix -> m (Maybe SVGMatrix) -multiply self secondMatrix - = liftIO - (nullableToMaybe <$> - (js_multiply (self) (maybeToNullable secondMatrix))) - -foreign import javascript unsafe "$1[\"inverse\"]()" js_inverse :: - SVGMatrix -> IO (Nullable SVGMatrix) - --- | -inverse :: (MonadIO m) => SVGMatrix -> m (Maybe SVGMatrix) -inverse self = liftIO (nullableToMaybe <$> (js_inverse (self))) - -foreign import javascript unsafe "$1[\"translate\"]($2, $3)" - js_translate :: - SVGMatrix -> Float -> Float -> IO (Nullable SVGMatrix) - --- | -translate :: - (MonadIO m) => SVGMatrix -> Float -> Float -> m (Maybe SVGMatrix) -translate self x y - = liftIO (nullableToMaybe <$> (js_translate (self) x y)) - -foreign import javascript unsafe "$1[\"scale\"]($2)" js_scale :: - SVGMatrix -> Float -> IO (Nullable SVGMatrix) - --- | -scale :: (MonadIO m) => SVGMatrix -> Float -> m (Maybe SVGMatrix) -scale self scaleFactor - = liftIO (nullableToMaybe <$> (js_scale (self) scaleFactor)) - -foreign import javascript unsafe "$1[\"scaleNonUniform\"]($2, $3)" - js_scaleNonUniform :: - SVGMatrix -> Float -> Float -> IO (Nullable SVGMatrix) - --- | -scaleNonUniform :: - (MonadIO m) => SVGMatrix -> Float -> Float -> m (Maybe SVGMatrix) -scaleNonUniform self scaleFactorX scaleFactorY - = liftIO - (nullableToMaybe <$> - (js_scaleNonUniform (self) scaleFactorX scaleFactorY)) - -foreign import javascript unsafe "$1[\"rotate\"]($2)" js_rotate :: - SVGMatrix -> Float -> IO (Nullable SVGMatrix) - --- | -rotate :: (MonadIO m) => SVGMatrix -> Float -> m (Maybe SVGMatrix) -rotate self angle - = liftIO (nullableToMaybe <$> (js_rotate (self) angle)) - -foreign import javascript unsafe "$1[\"rotateFromVector\"]($2, $3)" - js_rotateFromVector :: - SVGMatrix -> Float -> Float -> IO (Nullable SVGMatrix) - --- | -rotateFromVector :: - (MonadIO m) => SVGMatrix -> Float -> Float -> m (Maybe SVGMatrix) -rotateFromVector self x y - = liftIO (nullableToMaybe <$> (js_rotateFromVector (self) x y)) - -foreign import javascript unsafe "$1[\"flipX\"]()" js_flipX :: - SVGMatrix -> IO (Nullable SVGMatrix) - --- | -flipX :: (MonadIO m) => SVGMatrix -> m (Maybe SVGMatrix) -flipX self = liftIO (nullableToMaybe <$> (js_flipX (self))) - -foreign import javascript unsafe "$1[\"flipY\"]()" js_flipY :: - SVGMatrix -> IO (Nullable SVGMatrix) - --- | -flipY :: (MonadIO m) => SVGMatrix -> m (Maybe SVGMatrix) -flipY self = liftIO (nullableToMaybe <$> (js_flipY (self))) - -foreign import javascript unsafe "$1[\"skewX\"]($2)" js_skewX :: - SVGMatrix -> Float -> IO (Nullable SVGMatrix) - --- | -skewX :: (MonadIO m) => SVGMatrix -> Float -> m (Maybe SVGMatrix) -skewX self angle - = liftIO (nullableToMaybe <$> (js_skewX (self) angle)) - -foreign import javascript unsafe "$1[\"skewY\"]($2)" js_skewY :: - SVGMatrix -> Float -> IO (Nullable SVGMatrix) - --- | -skewY :: (MonadIO m) => SVGMatrix -> Float -> m (Maybe SVGMatrix) -skewY self angle - = liftIO (nullableToMaybe <$> (js_skewY (self) angle)) - -foreign import javascript unsafe "$1[\"a\"] = $2;" js_setA :: - SVGMatrix -> Double -> IO () - --- | -setA :: (MonadIO m) => SVGMatrix -> Double -> m () -setA self val = liftIO (js_setA (self) val) - -foreign import javascript unsafe "$1[\"a\"]" js_getA :: - SVGMatrix -> IO Double - --- | -getA :: (MonadIO m) => SVGMatrix -> m Double -getA self = liftIO (js_getA (self)) - -foreign import javascript unsafe "$1[\"b\"] = $2;" js_setB :: - SVGMatrix -> Double -> IO () - --- | -setB :: (MonadIO m) => SVGMatrix -> Double -> m () -setB self val = liftIO (js_setB (self) val) - -foreign import javascript unsafe "$1[\"b\"]" js_getB :: - SVGMatrix -> IO Double - --- | -getB :: (MonadIO m) => SVGMatrix -> m Double -getB self = liftIO (js_getB (self)) - -foreign import javascript unsafe "$1[\"c\"] = $2;" js_setC :: - SVGMatrix -> Double -> IO () - --- | -setC :: (MonadIO m) => SVGMatrix -> Double -> m () -setC self val = liftIO (js_setC (self) val) - -foreign import javascript unsafe "$1[\"c\"]" js_getC :: - SVGMatrix -> IO Double - --- | -getC :: (MonadIO m) => SVGMatrix -> m Double -getC self = liftIO (js_getC (self)) - -foreign import javascript unsafe "$1[\"d\"] = $2;" js_setD :: - SVGMatrix -> Double -> IO () - --- | -setD :: (MonadIO m) => SVGMatrix -> Double -> m () -setD self val = liftIO (js_setD (self) val) - -foreign import javascript unsafe "$1[\"d\"]" js_getD :: - SVGMatrix -> IO Double - --- | -getD :: (MonadIO m) => SVGMatrix -> m Double -getD self = liftIO (js_getD (self)) - -foreign import javascript unsafe "$1[\"e\"] = $2;" js_setE :: - SVGMatrix -> Double -> IO () - --- | -setE :: (MonadIO m) => SVGMatrix -> Double -> m () -setE self val = liftIO (js_setE (self) val) - -foreign import javascript unsafe "$1[\"e\"]" js_getE :: - SVGMatrix -> IO Double - --- | -getE :: (MonadIO m) => SVGMatrix -> m Double -getE self = liftIO (js_getE (self)) - -foreign import javascript unsafe "$1[\"f\"] = $2;" js_setF :: - SVGMatrix -> Double -> IO () - --- | -setF :: (MonadIO m) => SVGMatrix -> Double -> m () -setF self val = liftIO (js_setF (self) val) - -foreign import javascript unsafe "$1[\"f\"]" js_getF :: - SVGMatrix -> IO Double - --- | -getF :: (MonadIO m) => SVGMatrix -> m Double -getF self = liftIO (js_getF (self)) diff --git a/src/GHCJS/DOM/JSFFI/Generated/SVGNumber.hs b/src/GHCJS/DOM/JSFFI/Generated/SVGNumber.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/SVGNumber.hs +++ /dev/null @@ -1,33 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.SVGNumber - (js_setValue, setValue, js_getValue, getValue, SVGNumber, - castToSVGNumber, gTypeSVGNumber) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"value\"] = $2;" js_setValue - :: SVGNumber -> Float -> IO () - --- | -setValue :: (MonadIO m) => SVGNumber -> Float -> m () -setValue self val = liftIO (js_setValue (self) val) - -foreign import javascript unsafe "$1[\"value\"]" js_getValue :: - SVGNumber -> IO Float - --- | -getValue :: (MonadIO m) => SVGNumber -> m Float -getValue self = liftIO (js_getValue (self)) diff --git a/src/GHCJS/DOM/JSFFI/Generated/SVGNumberList.hs b/src/GHCJS/DOM/JSFFI/Generated/SVGNumberList.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/SVGNumberList.hs +++ /dev/null @@ -1,106 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.SVGNumberList - (js_clear, clear, js_initialize, initialize, js_getItem, getItem, - js_insertItemBefore, insertItemBefore, js_replaceItem, replaceItem, - js_removeItem, removeItem, js_appendItem, appendItem, - js_getNumberOfItems, getNumberOfItems, SVGNumberList, - castToSVGNumberList, gTypeSVGNumberList) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"clear\"]()" js_clear :: - SVGNumberList -> IO () - --- | -clear :: (MonadIO m) => SVGNumberList -> m () -clear self = liftIO (js_clear (self)) - -foreign import javascript unsafe "$1[\"initialize\"]($2)" - js_initialize :: - SVGNumberList -> Nullable SVGNumber -> IO (Nullable SVGNumber) - --- | -initialize :: - (MonadIO m) => - SVGNumberList -> Maybe SVGNumber -> m (Maybe SVGNumber) -initialize self item - = liftIO - (nullableToMaybe <$> (js_initialize (self) (maybeToNullable item))) - -foreign import javascript unsafe "$1[\"getItem\"]($2)" js_getItem - :: SVGNumberList -> Word -> IO (Nullable SVGNumber) - --- | -getItem :: - (MonadIO m) => SVGNumberList -> Word -> m (Maybe SVGNumber) -getItem self index - = liftIO (nullableToMaybe <$> (js_getItem (self) index)) - -foreign import javascript unsafe "$1[\"insertItemBefore\"]($2, $3)" - js_insertItemBefore :: - SVGNumberList -> - Nullable SVGNumber -> Word -> IO (Nullable SVGNumber) - --- | -insertItemBefore :: - (MonadIO m) => - SVGNumberList -> Maybe SVGNumber -> Word -> m (Maybe SVGNumber) -insertItemBefore self item index - = liftIO - (nullableToMaybe <$> - (js_insertItemBefore (self) (maybeToNullable item) index)) - -foreign import javascript unsafe "$1[\"replaceItem\"]($2, $3)" - js_replaceItem :: - SVGNumberList -> - Nullable SVGNumber -> Word -> IO (Nullable SVGNumber) - --- | -replaceItem :: - (MonadIO m) => - SVGNumberList -> Maybe SVGNumber -> Word -> m (Maybe SVGNumber) -replaceItem self item index - = liftIO - (nullableToMaybe <$> - (js_replaceItem (self) (maybeToNullable item) index)) - -foreign import javascript unsafe "$1[\"removeItem\"]($2)" - js_removeItem :: SVGNumberList -> Word -> IO (Nullable SVGNumber) - --- | -removeItem :: - (MonadIO m) => SVGNumberList -> Word -> m (Maybe SVGNumber) -removeItem self index - = liftIO (nullableToMaybe <$> (js_removeItem (self) index)) - -foreign import javascript unsafe "$1[\"appendItem\"]($2)" - js_appendItem :: - SVGNumberList -> Nullable SVGNumber -> IO (Nullable SVGNumber) - --- | -appendItem :: - (MonadIO m) => - SVGNumberList -> Maybe SVGNumber -> m (Maybe SVGNumber) -appendItem self item - = liftIO - (nullableToMaybe <$> (js_appendItem (self) (maybeToNullable item))) - -foreign import javascript unsafe "$1[\"numberOfItems\"]" - js_getNumberOfItems :: SVGNumberList -> IO Word - --- | -getNumberOfItems :: (MonadIO m) => SVGNumberList -> m Word -getNumberOfItems self = liftIO (js_getNumberOfItems (self)) diff --git a/src/GHCJS/DOM/JSFFI/Generated/SVGPaint.hs b/src/GHCJS/DOM/JSFFI/Generated/SVGPaint.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/SVGPaint.hs +++ /dev/null @@ -1,73 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.SVGPaint - (js_setUri, setUri, js_setPaint, setPaint, - pattern SVG_PAINTTYPE_UNKNOWN, pattern SVG_PAINTTYPE_RGBCOLOR, - pattern SVG_PAINTTYPE_RGBCOLOR_ICCCOLOR, - pattern SVG_PAINTTYPE_NONE, pattern SVG_PAINTTYPE_CURRENTCOLOR, - pattern SVG_PAINTTYPE_URI_NONE, - pattern SVG_PAINTTYPE_URI_CURRENTCOLOR, - pattern SVG_PAINTTYPE_URI_RGBCOLOR, - pattern SVG_PAINTTYPE_URI_RGBCOLOR_ICCCOLOR, - pattern SVG_PAINTTYPE_URI, js_getPaintType, getPaintType, - js_getUri, getUri, SVGPaint, castToSVGPaint, gTypeSVGPaint) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"setUri\"]($2)" js_setUri :: - SVGPaint -> JSString -> IO () - --- | -setUri :: (MonadIO m, ToJSString uri) => SVGPaint -> uri -> m () -setUri self uri = liftIO (js_setUri (self) (toJSString uri)) - -foreign import javascript unsafe "$1[\"setPaint\"]($2, $3, $4, $5)" - js_setPaint :: - SVGPaint -> Word -> JSString -> JSString -> JSString -> IO () - --- | -setPaint :: - (MonadIO m, ToJSString uri, ToJSString rgbColor, - ToJSString iccColor) => - SVGPaint -> Word -> uri -> rgbColor -> iccColor -> m () -setPaint self paintType uri rgbColor iccColor - = liftIO - (js_setPaint (self) paintType (toJSString uri) - (toJSString rgbColor) - (toJSString iccColor)) -pattern SVG_PAINTTYPE_UNKNOWN = 0 -pattern SVG_PAINTTYPE_RGBCOLOR = 1 -pattern SVG_PAINTTYPE_RGBCOLOR_ICCCOLOR = 2 -pattern SVG_PAINTTYPE_NONE = 101 -pattern SVG_PAINTTYPE_CURRENTCOLOR = 102 -pattern SVG_PAINTTYPE_URI_NONE = 103 -pattern SVG_PAINTTYPE_URI_CURRENTCOLOR = 104 -pattern SVG_PAINTTYPE_URI_RGBCOLOR = 105 -pattern SVG_PAINTTYPE_URI_RGBCOLOR_ICCCOLOR = 106 -pattern SVG_PAINTTYPE_URI = 107 - -foreign import javascript unsafe "$1[\"paintType\"]" - js_getPaintType :: SVGPaint -> IO Word - --- | -getPaintType :: (MonadIO m) => SVGPaint -> m Word -getPaintType self = liftIO (js_getPaintType (self)) - -foreign import javascript unsafe "$1[\"uri\"]" js_getUri :: - SVGPaint -> IO JSString - --- | -getUri :: (MonadIO m, FromJSString result) => SVGPaint -> m result -getUri self = liftIO (fromJSString <$> (js_getUri (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/SVGPathElement.hs b/src/GHCJS/DOM/JSFFI/Generated/SVGPathElement.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/SVGPathElement.hs +++ /dev/null @@ -1,474 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.SVGPathElement - (js_getTotalLength, getTotalLength, js_getPointAtLength, - getPointAtLength, js_getPathSegAtLength, getPathSegAtLength, - js_createSVGPathSegClosePath, createSVGPathSegClosePath, - js_createSVGPathSegMovetoAbs, createSVGPathSegMovetoAbs, - js_createSVGPathSegMovetoRel, createSVGPathSegMovetoRel, - js_createSVGPathSegLinetoAbs, createSVGPathSegLinetoAbs, - js_createSVGPathSegLinetoRel, createSVGPathSegLinetoRel, - js_createSVGPathSegCurvetoCubicAbs, - createSVGPathSegCurvetoCubicAbs, - js_createSVGPathSegCurvetoCubicRel, - createSVGPathSegCurvetoCubicRel, - js_createSVGPathSegCurvetoQuadraticAbs, - createSVGPathSegCurvetoQuadraticAbs, - js_createSVGPathSegCurvetoQuadraticRel, - createSVGPathSegCurvetoQuadraticRel, js_createSVGPathSegArcAbs, - createSVGPathSegArcAbs, js_createSVGPathSegArcRel, - createSVGPathSegArcRel, js_createSVGPathSegLinetoHorizontalAbs, - createSVGPathSegLinetoHorizontalAbs, - js_createSVGPathSegLinetoHorizontalRel, - createSVGPathSegLinetoHorizontalRel, - js_createSVGPathSegLinetoVerticalAbs, - createSVGPathSegLinetoVerticalAbs, - js_createSVGPathSegLinetoVerticalRel, - createSVGPathSegLinetoVerticalRel, - js_createSVGPathSegCurvetoCubicSmoothAbs, - createSVGPathSegCurvetoCubicSmoothAbs, - js_createSVGPathSegCurvetoCubicSmoothRel, - createSVGPathSegCurvetoCubicSmoothRel, - js_createSVGPathSegCurvetoQuadraticSmoothAbs, - createSVGPathSegCurvetoQuadraticSmoothAbs, - js_createSVGPathSegCurvetoQuadraticSmoothRel, - createSVGPathSegCurvetoQuadraticSmoothRel, js_getPathLength, - getPathLength, js_getPathSegList, getPathSegList, - js_getNormalizedPathSegList, getNormalizedPathSegList, - js_getAnimatedPathSegList, getAnimatedPathSegList, - js_getAnimatedNormalizedPathSegList, - getAnimatedNormalizedPathSegList, SVGPathElement, - castToSVGPathElement, gTypeSVGPathElement) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"getTotalLength\"]()" - js_getTotalLength :: SVGPathElement -> IO Float - --- | -getTotalLength :: (MonadIO m) => SVGPathElement -> m Float -getTotalLength self = liftIO (js_getTotalLength (self)) - -foreign import javascript unsafe "$1[\"getPointAtLength\"]($2)" - js_getPointAtLength :: - SVGPathElement -> Float -> IO (Nullable SVGPoint) - --- | -getPointAtLength :: - (MonadIO m) => SVGPathElement -> Float -> m (Maybe SVGPoint) -getPointAtLength self distance - = liftIO - (nullableToMaybe <$> (js_getPointAtLength (self) distance)) - -foreign import javascript unsafe "$1[\"getPathSegAtLength\"]($2)" - js_getPathSegAtLength :: SVGPathElement -> Float -> IO Word - --- | -getPathSegAtLength :: - (MonadIO m) => SVGPathElement -> Float -> m Word -getPathSegAtLength self distance - = liftIO (js_getPathSegAtLength (self) distance) - -foreign import javascript unsafe - "$1[\"createSVGPathSegClosePath\"]()" js_createSVGPathSegClosePath - :: SVGPathElement -> IO (Nullable SVGPathSegClosePath) - --- | -createSVGPathSegClosePath :: - (MonadIO m) => SVGPathElement -> m (Maybe SVGPathSegClosePath) -createSVGPathSegClosePath self - = liftIO - (nullableToMaybe <$> (js_createSVGPathSegClosePath (self))) - -foreign import javascript unsafe - "$1[\"createSVGPathSegMovetoAbs\"]($2,\n$3)" - js_createSVGPathSegMovetoAbs :: - SVGPathElement -> - Float -> Float -> IO (Nullable SVGPathSegMovetoAbs) - --- | -createSVGPathSegMovetoAbs :: - (MonadIO m) => - SVGPathElement -> Float -> Float -> m (Maybe SVGPathSegMovetoAbs) -createSVGPathSegMovetoAbs self x y - = liftIO - (nullableToMaybe <$> (js_createSVGPathSegMovetoAbs (self) x y)) - -foreign import javascript unsafe - "$1[\"createSVGPathSegMovetoRel\"]($2,\n$3)" - js_createSVGPathSegMovetoRel :: - SVGPathElement -> - Float -> Float -> IO (Nullable SVGPathSegMovetoRel) - --- | -createSVGPathSegMovetoRel :: - (MonadIO m) => - SVGPathElement -> Float -> Float -> m (Maybe SVGPathSegMovetoRel) -createSVGPathSegMovetoRel self x y - = liftIO - (nullableToMaybe <$> (js_createSVGPathSegMovetoRel (self) x y)) - -foreign import javascript unsafe - "$1[\"createSVGPathSegLinetoAbs\"]($2,\n$3)" - js_createSVGPathSegLinetoAbs :: - SVGPathElement -> - Float -> Float -> IO (Nullable SVGPathSegLinetoAbs) - --- | -createSVGPathSegLinetoAbs :: - (MonadIO m) => - SVGPathElement -> Float -> Float -> m (Maybe SVGPathSegLinetoAbs) -createSVGPathSegLinetoAbs self x y - = liftIO - (nullableToMaybe <$> (js_createSVGPathSegLinetoAbs (self) x y)) - -foreign import javascript unsafe - "$1[\"createSVGPathSegLinetoRel\"]($2,\n$3)" - js_createSVGPathSegLinetoRel :: - SVGPathElement -> - Float -> Float -> IO (Nullable SVGPathSegLinetoRel) - --- | -createSVGPathSegLinetoRel :: - (MonadIO m) => - SVGPathElement -> Float -> Float -> m (Maybe SVGPathSegLinetoRel) -createSVGPathSegLinetoRel self x y - = liftIO - (nullableToMaybe <$> (js_createSVGPathSegLinetoRel (self) x y)) - -foreign import javascript unsafe - "$1[\"createSVGPathSegCurvetoCubicAbs\"]($2,\n$3, $4, $5, $6, $7)" - js_createSVGPathSegCurvetoCubicAbs :: - SVGPathElement -> - Float -> - Float -> - Float -> - Float -> Float -> Float -> IO (Nullable SVGPathSegCurvetoCubicAbs) - --- | -createSVGPathSegCurvetoCubicAbs :: - (MonadIO m) => - SVGPathElement -> - Float -> - Float -> - Float -> - Float -> - Float -> Float -> m (Maybe SVGPathSegCurvetoCubicAbs) -createSVGPathSegCurvetoCubicAbs self x y x1 y1 x2 y2 - = liftIO - (nullableToMaybe <$> - (js_createSVGPathSegCurvetoCubicAbs (self) x y x1 y1 x2 y2)) - -foreign import javascript unsafe - "$1[\"createSVGPathSegCurvetoCubicRel\"]($2,\n$3, $4, $5, $6, $7)" - js_createSVGPathSegCurvetoCubicRel :: - SVGPathElement -> - Float -> - Float -> - Float -> - Float -> Float -> Float -> IO (Nullable SVGPathSegCurvetoCubicRel) - --- | -createSVGPathSegCurvetoCubicRel :: - (MonadIO m) => - SVGPathElement -> - Float -> - Float -> - Float -> - Float -> - Float -> Float -> m (Maybe SVGPathSegCurvetoCubicRel) -createSVGPathSegCurvetoCubicRel self x y x1 y1 x2 y2 - = liftIO - (nullableToMaybe <$> - (js_createSVGPathSegCurvetoCubicRel (self) x y x1 y1 x2 y2)) - -foreign import javascript unsafe - "$1[\"createSVGPathSegCurvetoQuadraticAbs\"]($2,\n$3, $4, $5)" - js_createSVGPathSegCurvetoQuadraticAbs :: - SVGPathElement -> - Float -> - Float -> - Float -> Float -> IO (Nullable SVGPathSegCurvetoQuadraticAbs) - --- | -createSVGPathSegCurvetoQuadraticAbs :: - (MonadIO m) => - SVGPathElement -> - Float -> - Float -> - Float -> - Float -> m (Maybe SVGPathSegCurvetoQuadraticAbs) -createSVGPathSegCurvetoQuadraticAbs self x y x1 y1 - = liftIO - (nullableToMaybe <$> - (js_createSVGPathSegCurvetoQuadraticAbs (self) x y x1 y1)) - -foreign import javascript unsafe - "$1[\"createSVGPathSegCurvetoQuadraticRel\"]($2,\n$3, $4, $5)" - js_createSVGPathSegCurvetoQuadraticRel :: - SVGPathElement -> - Float -> - Float -> - Float -> Float -> IO (Nullable SVGPathSegCurvetoQuadraticRel) - --- | -createSVGPathSegCurvetoQuadraticRel :: - (MonadIO m) => - SVGPathElement -> - Float -> - Float -> - Float -> - Float -> m (Maybe SVGPathSegCurvetoQuadraticRel) -createSVGPathSegCurvetoQuadraticRel self x y x1 y1 - = liftIO - (nullableToMaybe <$> - (js_createSVGPathSegCurvetoQuadraticRel (self) x y x1 y1)) - -foreign import javascript unsafe - "$1[\"createSVGPathSegArcAbs\"]($2,\n$3, $4, $5, $6, $7, $8)" - js_createSVGPathSegArcAbs :: - SVGPathElement -> - Float -> - Float -> - Float -> - Float -> Float -> Bool -> Bool -> IO (Nullable SVGPathSegArcAbs) - --- | -createSVGPathSegArcAbs :: - (MonadIO m) => - SVGPathElement -> - Float -> - Float -> - Float -> - Float -> Float -> Bool -> Bool -> m (Maybe SVGPathSegArcAbs) -createSVGPathSegArcAbs self x y r1 r2 angle largeArcFlag sweepFlag - = liftIO - (nullableToMaybe <$> - (js_createSVGPathSegArcAbs (self) x y r1 r2 angle largeArcFlag - sweepFlag)) - -foreign import javascript unsafe - "$1[\"createSVGPathSegArcRel\"]($2,\n$3, $4, $5, $6, $7, $8)" - js_createSVGPathSegArcRel :: - SVGPathElement -> - Float -> - Float -> - Float -> - Float -> Float -> Bool -> Bool -> IO (Nullable SVGPathSegArcRel) - --- | -createSVGPathSegArcRel :: - (MonadIO m) => - SVGPathElement -> - Float -> - Float -> - Float -> - Float -> Float -> Bool -> Bool -> m (Maybe SVGPathSegArcRel) -createSVGPathSegArcRel self x y r1 r2 angle largeArcFlag sweepFlag - = liftIO - (nullableToMaybe <$> - (js_createSVGPathSegArcRel (self) x y r1 r2 angle largeArcFlag - sweepFlag)) - -foreign import javascript unsafe - "$1[\"createSVGPathSegLinetoHorizontalAbs\"]($2)" - js_createSVGPathSegLinetoHorizontalAbs :: - SVGPathElement -> - Float -> IO (Nullable SVGPathSegLinetoHorizontalAbs) - --- | -createSVGPathSegLinetoHorizontalAbs :: - (MonadIO m) => - SVGPathElement -> - Float -> m (Maybe SVGPathSegLinetoHorizontalAbs) -createSVGPathSegLinetoHorizontalAbs self x - = liftIO - (nullableToMaybe <$> - (js_createSVGPathSegLinetoHorizontalAbs (self) x)) - -foreign import javascript unsafe - "$1[\"createSVGPathSegLinetoHorizontalRel\"]($2)" - js_createSVGPathSegLinetoHorizontalRel :: - SVGPathElement -> - Float -> IO (Nullable SVGPathSegLinetoHorizontalRel) - --- | -createSVGPathSegLinetoHorizontalRel :: - (MonadIO m) => - SVGPathElement -> - Float -> m (Maybe SVGPathSegLinetoHorizontalRel) -createSVGPathSegLinetoHorizontalRel self x - = liftIO - (nullableToMaybe <$> - (js_createSVGPathSegLinetoHorizontalRel (self) x)) - -foreign import javascript unsafe - "$1[\"createSVGPathSegLinetoVerticalAbs\"]($2)" - js_createSVGPathSegLinetoVerticalAbs :: - SVGPathElement -> - Float -> IO (Nullable SVGPathSegLinetoVerticalAbs) - --- | -createSVGPathSegLinetoVerticalAbs :: - (MonadIO m) => - SVGPathElement -> Float -> m (Maybe SVGPathSegLinetoVerticalAbs) -createSVGPathSegLinetoVerticalAbs self y - = liftIO - (nullableToMaybe <$> - (js_createSVGPathSegLinetoVerticalAbs (self) y)) - -foreign import javascript unsafe - "$1[\"createSVGPathSegLinetoVerticalRel\"]($2)" - js_createSVGPathSegLinetoVerticalRel :: - SVGPathElement -> - Float -> IO (Nullable SVGPathSegLinetoVerticalRel) - --- | -createSVGPathSegLinetoVerticalRel :: - (MonadIO m) => - SVGPathElement -> Float -> m (Maybe SVGPathSegLinetoVerticalRel) -createSVGPathSegLinetoVerticalRel self y - = liftIO - (nullableToMaybe <$> - (js_createSVGPathSegLinetoVerticalRel (self) y)) - -foreign import javascript unsafe - "$1[\"createSVGPathSegCurvetoCubicSmoothAbs\"]($2,\n$3, $4, $5)" - js_createSVGPathSegCurvetoCubicSmoothAbs :: - SVGPathElement -> - Float -> - Float -> - Float -> Float -> IO (Nullable SVGPathSegCurvetoCubicSmoothAbs) - --- | -createSVGPathSegCurvetoCubicSmoothAbs :: - (MonadIO m) => - SVGPathElement -> - Float -> - Float -> - Float -> - Float -> m (Maybe SVGPathSegCurvetoCubicSmoothAbs) -createSVGPathSegCurvetoCubicSmoothAbs self x y x2 y2 - = liftIO - (nullableToMaybe <$> - (js_createSVGPathSegCurvetoCubicSmoothAbs (self) x y x2 y2)) - -foreign import javascript unsafe - "$1[\"createSVGPathSegCurvetoCubicSmoothRel\"]($2,\n$3, $4, $5)" - js_createSVGPathSegCurvetoCubicSmoothRel :: - SVGPathElement -> - Float -> - Float -> - Float -> Float -> IO (Nullable SVGPathSegCurvetoCubicSmoothRel) - --- | -createSVGPathSegCurvetoCubicSmoothRel :: - (MonadIO m) => - SVGPathElement -> - Float -> - Float -> - Float -> - Float -> m (Maybe SVGPathSegCurvetoCubicSmoothRel) -createSVGPathSegCurvetoCubicSmoothRel self x y x2 y2 - = liftIO - (nullableToMaybe <$> - (js_createSVGPathSegCurvetoCubicSmoothRel (self) x y x2 y2)) - -foreign import javascript unsafe - "$1[\"createSVGPathSegCurvetoQuadraticSmoothAbs\"]($2,\n$3)" - js_createSVGPathSegCurvetoQuadraticSmoothAbs :: - SVGPathElement -> - Float -> Float -> IO (Nullable SVGPathSegCurvetoQuadraticSmoothAbs) - --- | -createSVGPathSegCurvetoQuadraticSmoothAbs :: - (MonadIO m) => - SVGPathElement -> - Float -> - Float -> - m (Maybe SVGPathSegCurvetoQuadraticSmoothAbs) -createSVGPathSegCurvetoQuadraticSmoothAbs self x y - = liftIO - (nullableToMaybe <$> - (js_createSVGPathSegCurvetoQuadraticSmoothAbs (self) x y)) - -foreign import javascript unsafe - "$1[\"createSVGPathSegCurvetoQuadraticSmoothRel\"]($2,\n$3)" - js_createSVGPathSegCurvetoQuadraticSmoothRel :: - SVGPathElement -> - Float -> Float -> IO (Nullable SVGPathSegCurvetoQuadraticSmoothRel) - --- | -createSVGPathSegCurvetoQuadraticSmoothRel :: - (MonadIO m) => - SVGPathElement -> - Float -> - Float -> - m (Maybe SVGPathSegCurvetoQuadraticSmoothRel) -createSVGPathSegCurvetoQuadraticSmoothRel self x y - = liftIO - (nullableToMaybe <$> - (js_createSVGPathSegCurvetoQuadraticSmoothRel (self) x y)) - -foreign import javascript unsafe "$1[\"pathLength\"]" - js_getPathLength :: - SVGPathElement -> IO (Nullable SVGAnimatedNumber) - --- | -getPathLength :: - (MonadIO m) => SVGPathElement -> m (Maybe SVGAnimatedNumber) -getPathLength self - = liftIO (nullableToMaybe <$> (js_getPathLength (self))) - -foreign import javascript unsafe "$1[\"pathSegList\"]" - js_getPathSegList :: SVGPathElement -> IO (Nullable SVGPathSegList) - --- | -getPathSegList :: - (MonadIO m) => SVGPathElement -> m (Maybe SVGPathSegList) -getPathSegList self - = liftIO (nullableToMaybe <$> (js_getPathSegList (self))) - -foreign import javascript unsafe "$1[\"normalizedPathSegList\"]" - js_getNormalizedPathSegList :: - SVGPathElement -> IO (Nullable SVGPathSegList) - --- | -getNormalizedPathSegList :: - (MonadIO m) => SVGPathElement -> m (Maybe SVGPathSegList) -getNormalizedPathSegList self - = liftIO (nullableToMaybe <$> (js_getNormalizedPathSegList (self))) - -foreign import javascript unsafe "$1[\"animatedPathSegList\"]" - js_getAnimatedPathSegList :: - SVGPathElement -> IO (Nullable SVGPathSegList) - --- | -getAnimatedPathSegList :: - (MonadIO m) => SVGPathElement -> m (Maybe SVGPathSegList) -getAnimatedPathSegList self - = liftIO (nullableToMaybe <$> (js_getAnimatedPathSegList (self))) - -foreign import javascript unsafe - "$1[\"animatedNormalizedPathSegList\"]" - js_getAnimatedNormalizedPathSegList :: - SVGPathElement -> IO (Nullable SVGPathSegList) - --- | -getAnimatedNormalizedPathSegList :: - (MonadIO m) => SVGPathElement -> m (Maybe SVGPathSegList) -getAnimatedNormalizedPathSegList self - = liftIO - (nullableToMaybe <$> (js_getAnimatedNormalizedPathSegList (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/SVGPathSeg.hs b/src/GHCJS/DOM/JSFFI/Generated/SVGPathSeg.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/SVGPathSeg.hs +++ /dev/null @@ -1,74 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.SVGPathSeg - (pattern PATHSEG_UNKNOWN, pattern PATHSEG_CLOSEPATH, - pattern PATHSEG_MOVETO_ABS, pattern PATHSEG_MOVETO_REL, - pattern PATHSEG_LINETO_ABS, pattern PATHSEG_LINETO_REL, - pattern PATHSEG_CURVETO_CUBIC_ABS, - pattern PATHSEG_CURVETO_CUBIC_REL, - pattern PATHSEG_CURVETO_QUADRATIC_ABS, - pattern PATHSEG_CURVETO_QUADRATIC_REL, pattern PATHSEG_ARC_ABS, - pattern PATHSEG_ARC_REL, pattern PATHSEG_LINETO_HORIZONTAL_ABS, - pattern PATHSEG_LINETO_HORIZONTAL_REL, - pattern PATHSEG_LINETO_VERTICAL_ABS, - pattern PATHSEG_LINETO_VERTICAL_REL, - pattern PATHSEG_CURVETO_CUBIC_SMOOTH_ABS, - pattern PATHSEG_CURVETO_CUBIC_SMOOTH_REL, - pattern PATHSEG_CURVETO_QUADRATIC_SMOOTH_ABS, - pattern PATHSEG_CURVETO_QUADRATIC_SMOOTH_REL, js_getPathSegType, - getPathSegType, js_getPathSegTypeAsLetter, getPathSegTypeAsLetter, - SVGPathSeg, castToSVGPathSeg, gTypeSVGPathSeg, IsSVGPathSeg, - toSVGPathSeg) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums -pattern PATHSEG_UNKNOWN = 0 -pattern PATHSEG_CLOSEPATH = 1 -pattern PATHSEG_MOVETO_ABS = 2 -pattern PATHSEG_MOVETO_REL = 3 -pattern PATHSEG_LINETO_ABS = 4 -pattern PATHSEG_LINETO_REL = 5 -pattern PATHSEG_CURVETO_CUBIC_ABS = 6 -pattern PATHSEG_CURVETO_CUBIC_REL = 7 -pattern PATHSEG_CURVETO_QUADRATIC_ABS = 8 -pattern PATHSEG_CURVETO_QUADRATIC_REL = 9 -pattern PATHSEG_ARC_ABS = 10 -pattern PATHSEG_ARC_REL = 11 -pattern PATHSEG_LINETO_HORIZONTAL_ABS = 12 -pattern PATHSEG_LINETO_HORIZONTAL_REL = 13 -pattern PATHSEG_LINETO_VERTICAL_ABS = 14 -pattern PATHSEG_LINETO_VERTICAL_REL = 15 -pattern PATHSEG_CURVETO_CUBIC_SMOOTH_ABS = 16 -pattern PATHSEG_CURVETO_CUBIC_SMOOTH_REL = 17 -pattern PATHSEG_CURVETO_QUADRATIC_SMOOTH_ABS = 18 -pattern PATHSEG_CURVETO_QUADRATIC_SMOOTH_REL = 19 - -foreign import javascript unsafe "$1[\"pathSegType\"]" - js_getPathSegType :: SVGPathSeg -> IO Word - --- | -getPathSegType :: (MonadIO m, IsSVGPathSeg self) => self -> m Word -getPathSegType self - = liftIO (js_getPathSegType (toSVGPathSeg self)) - -foreign import javascript unsafe "$1[\"pathSegTypeAsLetter\"]" - js_getPathSegTypeAsLetter :: SVGPathSeg -> IO JSString - --- | -getPathSegTypeAsLetter :: - (MonadIO m, IsSVGPathSeg self, FromJSString result) => - self -> m result -getPathSegTypeAsLetter self - = liftIO - (fromJSString <$> (js_getPathSegTypeAsLetter (toSVGPathSeg self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/SVGPathSegArcAbs.hs b/src/GHCJS/DOM/JSFFI/Generated/SVGPathSegArcAbs.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/SVGPathSegArcAbs.hs +++ /dev/null @@ -1,121 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.SVGPathSegArcAbs - (js_setX, setX, js_getX, getX, js_setY, setY, js_getY, getY, - js_setR1, setR1, js_getR1, getR1, js_setR2, setR2, js_getR2, getR2, - js_setAngle, setAngle, js_getAngle, getAngle, js_setLargeArcFlag, - setLargeArcFlag, js_getLargeArcFlag, getLargeArcFlag, - js_setSweepFlag, setSweepFlag, js_getSweepFlag, getSweepFlag, - SVGPathSegArcAbs, castToSVGPathSegArcAbs, gTypeSVGPathSegArcAbs) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"x\"] = $2;" js_setX :: - SVGPathSegArcAbs -> Float -> IO () - --- | -setX :: (MonadIO m) => SVGPathSegArcAbs -> Float -> m () -setX self val = liftIO (js_setX (self) val) - -foreign import javascript unsafe "$1[\"x\"]" js_getX :: - SVGPathSegArcAbs -> IO Float - --- | -getX :: (MonadIO m) => SVGPathSegArcAbs -> m Float -getX self = liftIO (js_getX (self)) - -foreign import javascript unsafe "$1[\"y\"] = $2;" js_setY :: - SVGPathSegArcAbs -> Float -> IO () - --- | -setY :: (MonadIO m) => SVGPathSegArcAbs -> Float -> m () -setY self val = liftIO (js_setY (self) val) - -foreign import javascript unsafe "$1[\"y\"]" js_getY :: - SVGPathSegArcAbs -> IO Float - --- | -getY :: (MonadIO m) => SVGPathSegArcAbs -> m Float -getY self = liftIO (js_getY (self)) - -foreign import javascript unsafe "$1[\"r1\"] = $2;" js_setR1 :: - SVGPathSegArcAbs -> Float -> IO () - --- | -setR1 :: (MonadIO m) => SVGPathSegArcAbs -> Float -> m () -setR1 self val = liftIO (js_setR1 (self) val) - -foreign import javascript unsafe "$1[\"r1\"]" js_getR1 :: - SVGPathSegArcAbs -> IO Float - --- | -getR1 :: (MonadIO m) => SVGPathSegArcAbs -> m Float -getR1 self = liftIO (js_getR1 (self)) - -foreign import javascript unsafe "$1[\"r2\"] = $2;" js_setR2 :: - SVGPathSegArcAbs -> Float -> IO () - --- | -setR2 :: (MonadIO m) => SVGPathSegArcAbs -> Float -> m () -setR2 self val = liftIO (js_setR2 (self) val) - -foreign import javascript unsafe "$1[\"r2\"]" js_getR2 :: - SVGPathSegArcAbs -> IO Float - --- | -getR2 :: (MonadIO m) => SVGPathSegArcAbs -> m Float -getR2 self = liftIO (js_getR2 (self)) - -foreign import javascript unsafe "$1[\"angle\"] = $2;" js_setAngle - :: SVGPathSegArcAbs -> Float -> IO () - --- | -setAngle :: (MonadIO m) => SVGPathSegArcAbs -> Float -> m () -setAngle self val = liftIO (js_setAngle (self) val) - -foreign import javascript unsafe "$1[\"angle\"]" js_getAngle :: - SVGPathSegArcAbs -> IO Float - --- | -getAngle :: (MonadIO m) => SVGPathSegArcAbs -> m Float -getAngle self = liftIO (js_getAngle (self)) - -foreign import javascript unsafe "$1[\"largeArcFlag\"] = $2;" - js_setLargeArcFlag :: SVGPathSegArcAbs -> Bool -> IO () - --- | -setLargeArcFlag :: (MonadIO m) => SVGPathSegArcAbs -> Bool -> m () -setLargeArcFlag self val = liftIO (js_setLargeArcFlag (self) val) - -foreign import javascript unsafe "($1[\"largeArcFlag\"] ? 1 : 0)" - js_getLargeArcFlag :: SVGPathSegArcAbs -> IO Bool - --- | -getLargeArcFlag :: (MonadIO m) => SVGPathSegArcAbs -> m Bool -getLargeArcFlag self = liftIO (js_getLargeArcFlag (self)) - -foreign import javascript unsafe "$1[\"sweepFlag\"] = $2;" - js_setSweepFlag :: SVGPathSegArcAbs -> Bool -> IO () - --- | -setSweepFlag :: (MonadIO m) => SVGPathSegArcAbs -> Bool -> m () -setSweepFlag self val = liftIO (js_setSweepFlag (self) val) - -foreign import javascript unsafe "($1[\"sweepFlag\"] ? 1 : 0)" - js_getSweepFlag :: SVGPathSegArcAbs -> IO Bool - --- | -getSweepFlag :: (MonadIO m) => SVGPathSegArcAbs -> m Bool -getSweepFlag self = liftIO (js_getSweepFlag (self)) diff --git a/src/GHCJS/DOM/JSFFI/Generated/SVGPathSegArcRel.hs b/src/GHCJS/DOM/JSFFI/Generated/SVGPathSegArcRel.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/SVGPathSegArcRel.hs +++ /dev/null @@ -1,121 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.SVGPathSegArcRel - (js_setX, setX, js_getX, getX, js_setY, setY, js_getY, getY, - js_setR1, setR1, js_getR1, getR1, js_setR2, setR2, js_getR2, getR2, - js_setAngle, setAngle, js_getAngle, getAngle, js_setLargeArcFlag, - setLargeArcFlag, js_getLargeArcFlag, getLargeArcFlag, - js_setSweepFlag, setSweepFlag, js_getSweepFlag, getSweepFlag, - SVGPathSegArcRel, castToSVGPathSegArcRel, gTypeSVGPathSegArcRel) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"x\"] = $2;" js_setX :: - SVGPathSegArcRel -> Float -> IO () - --- | -setX :: (MonadIO m) => SVGPathSegArcRel -> Float -> m () -setX self val = liftIO (js_setX (self) val) - -foreign import javascript unsafe "$1[\"x\"]" js_getX :: - SVGPathSegArcRel -> IO Float - --- | -getX :: (MonadIO m) => SVGPathSegArcRel -> m Float -getX self = liftIO (js_getX (self)) - -foreign import javascript unsafe "$1[\"y\"] = $2;" js_setY :: - SVGPathSegArcRel -> Float -> IO () - --- | -setY :: (MonadIO m) => SVGPathSegArcRel -> Float -> m () -setY self val = liftIO (js_setY (self) val) - -foreign import javascript unsafe "$1[\"y\"]" js_getY :: - SVGPathSegArcRel -> IO Float - --- | -getY :: (MonadIO m) => SVGPathSegArcRel -> m Float -getY self = liftIO (js_getY (self)) - -foreign import javascript unsafe "$1[\"r1\"] = $2;" js_setR1 :: - SVGPathSegArcRel -> Float -> IO () - --- | -setR1 :: (MonadIO m) => SVGPathSegArcRel -> Float -> m () -setR1 self val = liftIO (js_setR1 (self) val) - -foreign import javascript unsafe "$1[\"r1\"]" js_getR1 :: - SVGPathSegArcRel -> IO Float - --- | -getR1 :: (MonadIO m) => SVGPathSegArcRel -> m Float -getR1 self = liftIO (js_getR1 (self)) - -foreign import javascript unsafe "$1[\"r2\"] = $2;" js_setR2 :: - SVGPathSegArcRel -> Float -> IO () - --- | -setR2 :: (MonadIO m) => SVGPathSegArcRel -> Float -> m () -setR2 self val = liftIO (js_setR2 (self) val) - -foreign import javascript unsafe "$1[\"r2\"]" js_getR2 :: - SVGPathSegArcRel -> IO Float - --- | -getR2 :: (MonadIO m) => SVGPathSegArcRel -> m Float -getR2 self = liftIO (js_getR2 (self)) - -foreign import javascript unsafe "$1[\"angle\"] = $2;" js_setAngle - :: SVGPathSegArcRel -> Float -> IO () - --- | -setAngle :: (MonadIO m) => SVGPathSegArcRel -> Float -> m () -setAngle self val = liftIO (js_setAngle (self) val) - -foreign import javascript unsafe "$1[\"angle\"]" js_getAngle :: - SVGPathSegArcRel -> IO Float - --- | -getAngle :: (MonadIO m) => SVGPathSegArcRel -> m Float -getAngle self = liftIO (js_getAngle (self)) - -foreign import javascript unsafe "$1[\"largeArcFlag\"] = $2;" - js_setLargeArcFlag :: SVGPathSegArcRel -> Bool -> IO () - --- | -setLargeArcFlag :: (MonadIO m) => SVGPathSegArcRel -> Bool -> m () -setLargeArcFlag self val = liftIO (js_setLargeArcFlag (self) val) - -foreign import javascript unsafe "($1[\"largeArcFlag\"] ? 1 : 0)" - js_getLargeArcFlag :: SVGPathSegArcRel -> IO Bool - --- | -getLargeArcFlag :: (MonadIO m) => SVGPathSegArcRel -> m Bool -getLargeArcFlag self = liftIO (js_getLargeArcFlag (self)) - -foreign import javascript unsafe "$1[\"sweepFlag\"] = $2;" - js_setSweepFlag :: SVGPathSegArcRel -> Bool -> IO () - --- | -setSweepFlag :: (MonadIO m) => SVGPathSegArcRel -> Bool -> m () -setSweepFlag self val = liftIO (js_setSweepFlag (self) val) - -foreign import javascript unsafe "($1[\"sweepFlag\"] ? 1 : 0)" - js_getSweepFlag :: SVGPathSegArcRel -> IO Bool - --- | -getSweepFlag :: (MonadIO m) => SVGPathSegArcRel -> m Bool -getSweepFlag self = liftIO (js_getSweepFlag (self)) diff --git a/src/GHCJS/DOM/JSFFI/Generated/SVGPathSegCurvetoCubicAbs.hs b/src/GHCJS/DOM/JSFFI/Generated/SVGPathSegCurvetoCubicAbs.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/SVGPathSegCurvetoCubicAbs.hs +++ /dev/null @@ -1,106 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.SVGPathSegCurvetoCubicAbs - (js_setX, setX, js_getX, getX, js_setY, setY, js_getY, getY, - js_setX1, setX1, js_getX1, getX1, js_setY1, setY1, js_getY1, getY1, - js_setX2, setX2, js_getX2, getX2, js_setY2, setY2, js_getY2, getY2, - SVGPathSegCurvetoCubicAbs, castToSVGPathSegCurvetoCubicAbs, - gTypeSVGPathSegCurvetoCubicAbs) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"x\"] = $2;" js_setX :: - SVGPathSegCurvetoCubicAbs -> Float -> IO () - --- | -setX :: (MonadIO m) => SVGPathSegCurvetoCubicAbs -> Float -> m () -setX self val = liftIO (js_setX (self) val) - -foreign import javascript unsafe "$1[\"x\"]" js_getX :: - SVGPathSegCurvetoCubicAbs -> IO Float - --- | -getX :: (MonadIO m) => SVGPathSegCurvetoCubicAbs -> m Float -getX self = liftIO (js_getX (self)) - -foreign import javascript unsafe "$1[\"y\"] = $2;" js_setY :: - SVGPathSegCurvetoCubicAbs -> Float -> IO () - --- | -setY :: (MonadIO m) => SVGPathSegCurvetoCubicAbs -> Float -> m () -setY self val = liftIO (js_setY (self) val) - -foreign import javascript unsafe "$1[\"y\"]" js_getY :: - SVGPathSegCurvetoCubicAbs -> IO Float - --- | -getY :: (MonadIO m) => SVGPathSegCurvetoCubicAbs -> m Float -getY self = liftIO (js_getY (self)) - -foreign import javascript unsafe "$1[\"x1\"] = $2;" js_setX1 :: - SVGPathSegCurvetoCubicAbs -> Float -> IO () - --- | -setX1 :: (MonadIO m) => SVGPathSegCurvetoCubicAbs -> Float -> m () -setX1 self val = liftIO (js_setX1 (self) val) - -foreign import javascript unsafe "$1[\"x1\"]" js_getX1 :: - SVGPathSegCurvetoCubicAbs -> IO Float - --- | -getX1 :: (MonadIO m) => SVGPathSegCurvetoCubicAbs -> m Float -getX1 self = liftIO (js_getX1 (self)) - -foreign import javascript unsafe "$1[\"y1\"] = $2;" js_setY1 :: - SVGPathSegCurvetoCubicAbs -> Float -> IO () - --- | -setY1 :: (MonadIO m) => SVGPathSegCurvetoCubicAbs -> Float -> m () -setY1 self val = liftIO (js_setY1 (self) val) - -foreign import javascript unsafe "$1[\"y1\"]" js_getY1 :: - SVGPathSegCurvetoCubicAbs -> IO Float - --- | -getY1 :: (MonadIO m) => SVGPathSegCurvetoCubicAbs -> m Float -getY1 self = liftIO (js_getY1 (self)) - -foreign import javascript unsafe "$1[\"x2\"] = $2;" js_setX2 :: - SVGPathSegCurvetoCubicAbs -> Float -> IO () - --- | -setX2 :: (MonadIO m) => SVGPathSegCurvetoCubicAbs -> Float -> m () -setX2 self val = liftIO (js_setX2 (self) val) - -foreign import javascript unsafe "$1[\"x2\"]" js_getX2 :: - SVGPathSegCurvetoCubicAbs -> IO Float - --- | -getX2 :: (MonadIO m) => SVGPathSegCurvetoCubicAbs -> m Float -getX2 self = liftIO (js_getX2 (self)) - -foreign import javascript unsafe "$1[\"y2\"] = $2;" js_setY2 :: - SVGPathSegCurvetoCubicAbs -> Float -> IO () - --- | -setY2 :: (MonadIO m) => SVGPathSegCurvetoCubicAbs -> Float -> m () -setY2 self val = liftIO (js_setY2 (self) val) - -foreign import javascript unsafe "$1[\"y2\"]" js_getY2 :: - SVGPathSegCurvetoCubicAbs -> IO Float - --- | -getY2 :: (MonadIO m) => SVGPathSegCurvetoCubicAbs -> m Float -getY2 self = liftIO (js_getY2 (self)) diff --git a/src/GHCJS/DOM/JSFFI/Generated/SVGPathSegCurvetoCubicRel.hs b/src/GHCJS/DOM/JSFFI/Generated/SVGPathSegCurvetoCubicRel.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/SVGPathSegCurvetoCubicRel.hs +++ /dev/null @@ -1,106 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.SVGPathSegCurvetoCubicRel - (js_setX, setX, js_getX, getX, js_setY, setY, js_getY, getY, - js_setX1, setX1, js_getX1, getX1, js_setY1, setY1, js_getY1, getY1, - js_setX2, setX2, js_getX2, getX2, js_setY2, setY2, js_getY2, getY2, - SVGPathSegCurvetoCubicRel, castToSVGPathSegCurvetoCubicRel, - gTypeSVGPathSegCurvetoCubicRel) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"x\"] = $2;" js_setX :: - SVGPathSegCurvetoCubicRel -> Float -> IO () - --- | -setX :: (MonadIO m) => SVGPathSegCurvetoCubicRel -> Float -> m () -setX self val = liftIO (js_setX (self) val) - -foreign import javascript unsafe "$1[\"x\"]" js_getX :: - SVGPathSegCurvetoCubicRel -> IO Float - --- | -getX :: (MonadIO m) => SVGPathSegCurvetoCubicRel -> m Float -getX self = liftIO (js_getX (self)) - -foreign import javascript unsafe "$1[\"y\"] = $2;" js_setY :: - SVGPathSegCurvetoCubicRel -> Float -> IO () - --- | -setY :: (MonadIO m) => SVGPathSegCurvetoCubicRel -> Float -> m () -setY self val = liftIO (js_setY (self) val) - -foreign import javascript unsafe "$1[\"y\"]" js_getY :: - SVGPathSegCurvetoCubicRel -> IO Float - --- | -getY :: (MonadIO m) => SVGPathSegCurvetoCubicRel -> m Float -getY self = liftIO (js_getY (self)) - -foreign import javascript unsafe "$1[\"x1\"] = $2;" js_setX1 :: - SVGPathSegCurvetoCubicRel -> Float -> IO () - --- | -setX1 :: (MonadIO m) => SVGPathSegCurvetoCubicRel -> Float -> m () -setX1 self val = liftIO (js_setX1 (self) val) - -foreign import javascript unsafe "$1[\"x1\"]" js_getX1 :: - SVGPathSegCurvetoCubicRel -> IO Float - --- | -getX1 :: (MonadIO m) => SVGPathSegCurvetoCubicRel -> m Float -getX1 self = liftIO (js_getX1 (self)) - -foreign import javascript unsafe "$1[\"y1\"] = $2;" js_setY1 :: - SVGPathSegCurvetoCubicRel -> Float -> IO () - --- | -setY1 :: (MonadIO m) => SVGPathSegCurvetoCubicRel -> Float -> m () -setY1 self val = liftIO (js_setY1 (self) val) - -foreign import javascript unsafe "$1[\"y1\"]" js_getY1 :: - SVGPathSegCurvetoCubicRel -> IO Float - --- | -getY1 :: (MonadIO m) => SVGPathSegCurvetoCubicRel -> m Float -getY1 self = liftIO (js_getY1 (self)) - -foreign import javascript unsafe "$1[\"x2\"] = $2;" js_setX2 :: - SVGPathSegCurvetoCubicRel -> Float -> IO () - --- | -setX2 :: (MonadIO m) => SVGPathSegCurvetoCubicRel -> Float -> m () -setX2 self val = liftIO (js_setX2 (self) val) - -foreign import javascript unsafe "$1[\"x2\"]" js_getX2 :: - SVGPathSegCurvetoCubicRel -> IO Float - --- | -getX2 :: (MonadIO m) => SVGPathSegCurvetoCubicRel -> m Float -getX2 self = liftIO (js_getX2 (self)) - -foreign import javascript unsafe "$1[\"y2\"] = $2;" js_setY2 :: - SVGPathSegCurvetoCubicRel -> Float -> IO () - --- | -setY2 :: (MonadIO m) => SVGPathSegCurvetoCubicRel -> Float -> m () -setY2 self val = liftIO (js_setY2 (self) val) - -foreign import javascript unsafe "$1[\"y2\"]" js_getY2 :: - SVGPathSegCurvetoCubicRel -> IO Float - --- | -getY2 :: (MonadIO m) => SVGPathSegCurvetoCubicRel -> m Float -getY2 self = liftIO (js_getY2 (self)) diff --git a/src/GHCJS/DOM/JSFFI/Generated/SVGPathSegCurvetoCubicSmoothAbs.hs b/src/GHCJS/DOM/JSFFI/Generated/SVGPathSegCurvetoCubicSmoothAbs.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/SVGPathSegCurvetoCubicSmoothAbs.hs +++ /dev/null @@ -1,82 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.SVGPathSegCurvetoCubicSmoothAbs - (js_setX, setX, js_getX, getX, js_setY, setY, js_getY, getY, - js_setX2, setX2, js_getX2, getX2, js_setY2, setY2, js_getY2, getY2, - SVGPathSegCurvetoCubicSmoothAbs, - castToSVGPathSegCurvetoCubicSmoothAbs, - gTypeSVGPathSegCurvetoCubicSmoothAbs) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"x\"] = $2;" js_setX :: - SVGPathSegCurvetoCubicSmoothAbs -> Float -> IO () - --- | -setX :: - (MonadIO m) => SVGPathSegCurvetoCubicSmoothAbs -> Float -> m () -setX self val = liftIO (js_setX (self) val) - -foreign import javascript unsafe "$1[\"x\"]" js_getX :: - SVGPathSegCurvetoCubicSmoothAbs -> IO Float - --- | -getX :: (MonadIO m) => SVGPathSegCurvetoCubicSmoothAbs -> m Float -getX self = liftIO (js_getX (self)) - -foreign import javascript unsafe "$1[\"y\"] = $2;" js_setY :: - SVGPathSegCurvetoCubicSmoothAbs -> Float -> IO () - --- | -setY :: - (MonadIO m) => SVGPathSegCurvetoCubicSmoothAbs -> Float -> m () -setY self val = liftIO (js_setY (self) val) - -foreign import javascript unsafe "$1[\"y\"]" js_getY :: - SVGPathSegCurvetoCubicSmoothAbs -> IO Float - --- | -getY :: (MonadIO m) => SVGPathSegCurvetoCubicSmoothAbs -> m Float -getY self = liftIO (js_getY (self)) - -foreign import javascript unsafe "$1[\"x2\"] = $2;" js_setX2 :: - SVGPathSegCurvetoCubicSmoothAbs -> Float -> IO () - --- | -setX2 :: - (MonadIO m) => SVGPathSegCurvetoCubicSmoothAbs -> Float -> m () -setX2 self val = liftIO (js_setX2 (self) val) - -foreign import javascript unsafe "$1[\"x2\"]" js_getX2 :: - SVGPathSegCurvetoCubicSmoothAbs -> IO Float - --- | -getX2 :: (MonadIO m) => SVGPathSegCurvetoCubicSmoothAbs -> m Float -getX2 self = liftIO (js_getX2 (self)) - -foreign import javascript unsafe "$1[\"y2\"] = $2;" js_setY2 :: - SVGPathSegCurvetoCubicSmoothAbs -> Float -> IO () - --- | -setY2 :: - (MonadIO m) => SVGPathSegCurvetoCubicSmoothAbs -> Float -> m () -setY2 self val = liftIO (js_setY2 (self) val) - -foreign import javascript unsafe "$1[\"y2\"]" js_getY2 :: - SVGPathSegCurvetoCubicSmoothAbs -> IO Float - --- | -getY2 :: (MonadIO m) => SVGPathSegCurvetoCubicSmoothAbs -> m Float -getY2 self = liftIO (js_getY2 (self)) diff --git a/src/GHCJS/DOM/JSFFI/Generated/SVGPathSegCurvetoCubicSmoothRel.hs b/src/GHCJS/DOM/JSFFI/Generated/SVGPathSegCurvetoCubicSmoothRel.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/SVGPathSegCurvetoCubicSmoothRel.hs +++ /dev/null @@ -1,82 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.SVGPathSegCurvetoCubicSmoothRel - (js_setX, setX, js_getX, getX, js_setY, setY, js_getY, getY, - js_setX2, setX2, js_getX2, getX2, js_setY2, setY2, js_getY2, getY2, - SVGPathSegCurvetoCubicSmoothRel, - castToSVGPathSegCurvetoCubicSmoothRel, - gTypeSVGPathSegCurvetoCubicSmoothRel) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"x\"] = $2;" js_setX :: - SVGPathSegCurvetoCubicSmoothRel -> Float -> IO () - --- | -setX :: - (MonadIO m) => SVGPathSegCurvetoCubicSmoothRel -> Float -> m () -setX self val = liftIO (js_setX (self) val) - -foreign import javascript unsafe "$1[\"x\"]" js_getX :: - SVGPathSegCurvetoCubicSmoothRel -> IO Float - --- | -getX :: (MonadIO m) => SVGPathSegCurvetoCubicSmoothRel -> m Float -getX self = liftIO (js_getX (self)) - -foreign import javascript unsafe "$1[\"y\"] = $2;" js_setY :: - SVGPathSegCurvetoCubicSmoothRel -> Float -> IO () - --- | -setY :: - (MonadIO m) => SVGPathSegCurvetoCubicSmoothRel -> Float -> m () -setY self val = liftIO (js_setY (self) val) - -foreign import javascript unsafe "$1[\"y\"]" js_getY :: - SVGPathSegCurvetoCubicSmoothRel -> IO Float - --- | -getY :: (MonadIO m) => SVGPathSegCurvetoCubicSmoothRel -> m Float -getY self = liftIO (js_getY (self)) - -foreign import javascript unsafe "$1[\"x2\"] = $2;" js_setX2 :: - SVGPathSegCurvetoCubicSmoothRel -> Float -> IO () - --- | -setX2 :: - (MonadIO m) => SVGPathSegCurvetoCubicSmoothRel -> Float -> m () -setX2 self val = liftIO (js_setX2 (self) val) - -foreign import javascript unsafe "$1[\"x2\"]" js_getX2 :: - SVGPathSegCurvetoCubicSmoothRel -> IO Float - --- | -getX2 :: (MonadIO m) => SVGPathSegCurvetoCubicSmoothRel -> m Float -getX2 self = liftIO (js_getX2 (self)) - -foreign import javascript unsafe "$1[\"y2\"] = $2;" js_setY2 :: - SVGPathSegCurvetoCubicSmoothRel -> Float -> IO () - --- | -setY2 :: - (MonadIO m) => SVGPathSegCurvetoCubicSmoothRel -> Float -> m () -setY2 self val = liftIO (js_setY2 (self) val) - -foreign import javascript unsafe "$1[\"y2\"]" js_getY2 :: - SVGPathSegCurvetoCubicSmoothRel -> IO Float - --- | -getY2 :: (MonadIO m) => SVGPathSegCurvetoCubicSmoothRel -> m Float -getY2 self = liftIO (js_getY2 (self)) diff --git a/src/GHCJS/DOM/JSFFI/Generated/SVGPathSegCurvetoQuadraticAbs.hs b/src/GHCJS/DOM/JSFFI/Generated/SVGPathSegCurvetoQuadraticAbs.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/SVGPathSegCurvetoQuadraticAbs.hs +++ /dev/null @@ -1,81 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.SVGPathSegCurvetoQuadraticAbs - (js_setX, setX, js_getX, getX, js_setY, setY, js_getY, getY, - js_setX1, setX1, js_getX1, getX1, js_setY1, setY1, js_getY1, getY1, - SVGPathSegCurvetoQuadraticAbs, castToSVGPathSegCurvetoQuadraticAbs, - gTypeSVGPathSegCurvetoQuadraticAbs) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"x\"] = $2;" js_setX :: - SVGPathSegCurvetoQuadraticAbs -> Float -> IO () - --- | -setX :: - (MonadIO m) => SVGPathSegCurvetoQuadraticAbs -> Float -> m () -setX self val = liftIO (js_setX (self) val) - -foreign import javascript unsafe "$1[\"x\"]" js_getX :: - SVGPathSegCurvetoQuadraticAbs -> IO Float - --- | -getX :: (MonadIO m) => SVGPathSegCurvetoQuadraticAbs -> m Float -getX self = liftIO (js_getX (self)) - -foreign import javascript unsafe "$1[\"y\"] = $2;" js_setY :: - SVGPathSegCurvetoQuadraticAbs -> Float -> IO () - --- | -setY :: - (MonadIO m) => SVGPathSegCurvetoQuadraticAbs -> Float -> m () -setY self val = liftIO (js_setY (self) val) - -foreign import javascript unsafe "$1[\"y\"]" js_getY :: - SVGPathSegCurvetoQuadraticAbs -> IO Float - --- | -getY :: (MonadIO m) => SVGPathSegCurvetoQuadraticAbs -> m Float -getY self = liftIO (js_getY (self)) - -foreign import javascript unsafe "$1[\"x1\"] = $2;" js_setX1 :: - SVGPathSegCurvetoQuadraticAbs -> Float -> IO () - --- | -setX1 :: - (MonadIO m) => SVGPathSegCurvetoQuadraticAbs -> Float -> m () -setX1 self val = liftIO (js_setX1 (self) val) - -foreign import javascript unsafe "$1[\"x1\"]" js_getX1 :: - SVGPathSegCurvetoQuadraticAbs -> IO Float - --- | -getX1 :: (MonadIO m) => SVGPathSegCurvetoQuadraticAbs -> m Float -getX1 self = liftIO (js_getX1 (self)) - -foreign import javascript unsafe "$1[\"y1\"] = $2;" js_setY1 :: - SVGPathSegCurvetoQuadraticAbs -> Float -> IO () - --- | -setY1 :: - (MonadIO m) => SVGPathSegCurvetoQuadraticAbs -> Float -> m () -setY1 self val = liftIO (js_setY1 (self) val) - -foreign import javascript unsafe "$1[\"y1\"]" js_getY1 :: - SVGPathSegCurvetoQuadraticAbs -> IO Float - --- | -getY1 :: (MonadIO m) => SVGPathSegCurvetoQuadraticAbs -> m Float -getY1 self = liftIO (js_getY1 (self)) diff --git a/src/GHCJS/DOM/JSFFI/Generated/SVGPathSegCurvetoQuadraticRel.hs b/src/GHCJS/DOM/JSFFI/Generated/SVGPathSegCurvetoQuadraticRel.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/SVGPathSegCurvetoQuadraticRel.hs +++ /dev/null @@ -1,81 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.SVGPathSegCurvetoQuadraticRel - (js_setX, setX, js_getX, getX, js_setY, setY, js_getY, getY, - js_setX1, setX1, js_getX1, getX1, js_setY1, setY1, js_getY1, getY1, - SVGPathSegCurvetoQuadraticRel, castToSVGPathSegCurvetoQuadraticRel, - gTypeSVGPathSegCurvetoQuadraticRel) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"x\"] = $2;" js_setX :: - SVGPathSegCurvetoQuadraticRel -> Float -> IO () - --- | -setX :: - (MonadIO m) => SVGPathSegCurvetoQuadraticRel -> Float -> m () -setX self val = liftIO (js_setX (self) val) - -foreign import javascript unsafe "$1[\"x\"]" js_getX :: - SVGPathSegCurvetoQuadraticRel -> IO Float - --- | -getX :: (MonadIO m) => SVGPathSegCurvetoQuadraticRel -> m Float -getX self = liftIO (js_getX (self)) - -foreign import javascript unsafe "$1[\"y\"] = $2;" js_setY :: - SVGPathSegCurvetoQuadraticRel -> Float -> IO () - --- | -setY :: - (MonadIO m) => SVGPathSegCurvetoQuadraticRel -> Float -> m () -setY self val = liftIO (js_setY (self) val) - -foreign import javascript unsafe "$1[\"y\"]" js_getY :: - SVGPathSegCurvetoQuadraticRel -> IO Float - --- | -getY :: (MonadIO m) => SVGPathSegCurvetoQuadraticRel -> m Float -getY self = liftIO (js_getY (self)) - -foreign import javascript unsafe "$1[\"x1\"] = $2;" js_setX1 :: - SVGPathSegCurvetoQuadraticRel -> Float -> IO () - --- | -setX1 :: - (MonadIO m) => SVGPathSegCurvetoQuadraticRel -> Float -> m () -setX1 self val = liftIO (js_setX1 (self) val) - -foreign import javascript unsafe "$1[\"x1\"]" js_getX1 :: - SVGPathSegCurvetoQuadraticRel -> IO Float - --- | -getX1 :: (MonadIO m) => SVGPathSegCurvetoQuadraticRel -> m Float -getX1 self = liftIO (js_getX1 (self)) - -foreign import javascript unsafe "$1[\"y1\"] = $2;" js_setY1 :: - SVGPathSegCurvetoQuadraticRel -> Float -> IO () - --- | -setY1 :: - (MonadIO m) => SVGPathSegCurvetoQuadraticRel -> Float -> m () -setY1 self val = liftIO (js_setY1 (self) val) - -foreign import javascript unsafe "$1[\"y1\"]" js_getY1 :: - SVGPathSegCurvetoQuadraticRel -> IO Float - --- | -getY1 :: (MonadIO m) => SVGPathSegCurvetoQuadraticRel -> m Float -getY1 self = liftIO (js_getY1 (self)) diff --git a/src/GHCJS/DOM/JSFFI/Generated/SVGPathSegCurvetoQuadraticSmoothAbs.hs b/src/GHCJS/DOM/JSFFI/Generated/SVGPathSegCurvetoQuadraticSmoothAbs.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/SVGPathSegCurvetoQuadraticSmoothAbs.hs +++ /dev/null @@ -1,53 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.SVGPathSegCurvetoQuadraticSmoothAbs - (js_setX, setX, js_getX, getX, js_setY, setY, js_getY, getY, - SVGPathSegCurvetoQuadraticSmoothAbs, - castToSVGPathSegCurvetoQuadraticSmoothAbs, - gTypeSVGPathSegCurvetoQuadraticSmoothAbs) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"x\"] = $2;" js_setX :: - SVGPathSegCurvetoQuadraticSmoothAbs -> Float -> IO () - --- | -setX :: - (MonadIO m) => SVGPathSegCurvetoQuadraticSmoothAbs -> Float -> m () -setX self val = liftIO (js_setX (self) val) - -foreign import javascript unsafe "$1[\"x\"]" js_getX :: - SVGPathSegCurvetoQuadraticSmoothAbs -> IO Float - --- | -getX :: - (MonadIO m) => SVGPathSegCurvetoQuadraticSmoothAbs -> m Float -getX self = liftIO (js_getX (self)) - -foreign import javascript unsafe "$1[\"y\"] = $2;" js_setY :: - SVGPathSegCurvetoQuadraticSmoothAbs -> Float -> IO () - --- | -setY :: - (MonadIO m) => SVGPathSegCurvetoQuadraticSmoothAbs -> Float -> m () -setY self val = liftIO (js_setY (self) val) - -foreign import javascript unsafe "$1[\"y\"]" js_getY :: - SVGPathSegCurvetoQuadraticSmoothAbs -> IO Float - --- | -getY :: - (MonadIO m) => SVGPathSegCurvetoQuadraticSmoothAbs -> m Float -getY self = liftIO (js_getY (self)) diff --git a/src/GHCJS/DOM/JSFFI/Generated/SVGPathSegCurvetoQuadraticSmoothRel.hs b/src/GHCJS/DOM/JSFFI/Generated/SVGPathSegCurvetoQuadraticSmoothRel.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/SVGPathSegCurvetoQuadraticSmoothRel.hs +++ /dev/null @@ -1,53 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.SVGPathSegCurvetoQuadraticSmoothRel - (js_setX, setX, js_getX, getX, js_setY, setY, js_getY, getY, - SVGPathSegCurvetoQuadraticSmoothRel, - castToSVGPathSegCurvetoQuadraticSmoothRel, - gTypeSVGPathSegCurvetoQuadraticSmoothRel) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"x\"] = $2;" js_setX :: - SVGPathSegCurvetoQuadraticSmoothRel -> Float -> IO () - --- | -setX :: - (MonadIO m) => SVGPathSegCurvetoQuadraticSmoothRel -> Float -> m () -setX self val = liftIO (js_setX (self) val) - -foreign import javascript unsafe "$1[\"x\"]" js_getX :: - SVGPathSegCurvetoQuadraticSmoothRel -> IO Float - --- | -getX :: - (MonadIO m) => SVGPathSegCurvetoQuadraticSmoothRel -> m Float -getX self = liftIO (js_getX (self)) - -foreign import javascript unsafe "$1[\"y\"] = $2;" js_setY :: - SVGPathSegCurvetoQuadraticSmoothRel -> Float -> IO () - --- | -setY :: - (MonadIO m) => SVGPathSegCurvetoQuadraticSmoothRel -> Float -> m () -setY self val = liftIO (js_setY (self) val) - -foreign import javascript unsafe "$1[\"y\"]" js_getY :: - SVGPathSegCurvetoQuadraticSmoothRel -> IO Float - --- | -getY :: - (MonadIO m) => SVGPathSegCurvetoQuadraticSmoothRel -> m Float -getY self = liftIO (js_getY (self)) diff --git a/src/GHCJS/DOM/JSFFI/Generated/SVGPathSegLinetoAbs.hs b/src/GHCJS/DOM/JSFFI/Generated/SVGPathSegLinetoAbs.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/SVGPathSegLinetoAbs.hs +++ /dev/null @@ -1,48 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.SVGPathSegLinetoAbs - (js_setX, setX, js_getX, getX, js_setY, setY, js_getY, getY, - SVGPathSegLinetoAbs, castToSVGPathSegLinetoAbs, - gTypeSVGPathSegLinetoAbs) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"x\"] = $2;" js_setX :: - SVGPathSegLinetoAbs -> Float -> IO () - --- | -setX :: (MonadIO m) => SVGPathSegLinetoAbs -> Float -> m () -setX self val = liftIO (js_setX (self) val) - -foreign import javascript unsafe "$1[\"x\"]" js_getX :: - SVGPathSegLinetoAbs -> IO Float - --- | -getX :: (MonadIO m) => SVGPathSegLinetoAbs -> m Float -getX self = liftIO (js_getX (self)) - -foreign import javascript unsafe "$1[\"y\"] = $2;" js_setY :: - SVGPathSegLinetoAbs -> Float -> IO () - --- | -setY :: (MonadIO m) => SVGPathSegLinetoAbs -> Float -> m () -setY self val = liftIO (js_setY (self) val) - -foreign import javascript unsafe "$1[\"y\"]" js_getY :: - SVGPathSegLinetoAbs -> IO Float - --- | -getY :: (MonadIO m) => SVGPathSegLinetoAbs -> m Float -getY self = liftIO (js_getY (self)) diff --git a/src/GHCJS/DOM/JSFFI/Generated/SVGPathSegLinetoHorizontalAbs.hs b/src/GHCJS/DOM/JSFFI/Generated/SVGPathSegLinetoHorizontalAbs.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/SVGPathSegLinetoHorizontalAbs.hs +++ /dev/null @@ -1,35 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.SVGPathSegLinetoHorizontalAbs - (js_setX, setX, js_getX, getX, SVGPathSegLinetoHorizontalAbs, - castToSVGPathSegLinetoHorizontalAbs, - gTypeSVGPathSegLinetoHorizontalAbs) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"x\"] = $2;" js_setX :: - SVGPathSegLinetoHorizontalAbs -> Float -> IO () - --- | -setX :: - (MonadIO m) => SVGPathSegLinetoHorizontalAbs -> Float -> m () -setX self val = liftIO (js_setX (self) val) - -foreign import javascript unsafe "$1[\"x\"]" js_getX :: - SVGPathSegLinetoHorizontalAbs -> IO Float - --- | -getX :: (MonadIO m) => SVGPathSegLinetoHorizontalAbs -> m Float -getX self = liftIO (js_getX (self)) diff --git a/src/GHCJS/DOM/JSFFI/Generated/SVGPathSegLinetoHorizontalRel.hs b/src/GHCJS/DOM/JSFFI/Generated/SVGPathSegLinetoHorizontalRel.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/SVGPathSegLinetoHorizontalRel.hs +++ /dev/null @@ -1,35 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.SVGPathSegLinetoHorizontalRel - (js_setX, setX, js_getX, getX, SVGPathSegLinetoHorizontalRel, - castToSVGPathSegLinetoHorizontalRel, - gTypeSVGPathSegLinetoHorizontalRel) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"x\"] = $2;" js_setX :: - SVGPathSegLinetoHorizontalRel -> Float -> IO () - --- | -setX :: - (MonadIO m) => SVGPathSegLinetoHorizontalRel -> Float -> m () -setX self val = liftIO (js_setX (self) val) - -foreign import javascript unsafe "$1[\"x\"]" js_getX :: - SVGPathSegLinetoHorizontalRel -> IO Float - --- | -getX :: (MonadIO m) => SVGPathSegLinetoHorizontalRel -> m Float -getX self = liftIO (js_getX (self)) diff --git a/src/GHCJS/DOM/JSFFI/Generated/SVGPathSegLinetoRel.hs b/src/GHCJS/DOM/JSFFI/Generated/SVGPathSegLinetoRel.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/SVGPathSegLinetoRel.hs +++ /dev/null @@ -1,48 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.SVGPathSegLinetoRel - (js_setX, setX, js_getX, getX, js_setY, setY, js_getY, getY, - SVGPathSegLinetoRel, castToSVGPathSegLinetoRel, - gTypeSVGPathSegLinetoRel) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"x\"] = $2;" js_setX :: - SVGPathSegLinetoRel -> Float -> IO () - --- | -setX :: (MonadIO m) => SVGPathSegLinetoRel -> Float -> m () -setX self val = liftIO (js_setX (self) val) - -foreign import javascript unsafe "$1[\"x\"]" js_getX :: - SVGPathSegLinetoRel -> IO Float - --- | -getX :: (MonadIO m) => SVGPathSegLinetoRel -> m Float -getX self = liftIO (js_getX (self)) - -foreign import javascript unsafe "$1[\"y\"] = $2;" js_setY :: - SVGPathSegLinetoRel -> Float -> IO () - --- | -setY :: (MonadIO m) => SVGPathSegLinetoRel -> Float -> m () -setY self val = liftIO (js_setY (self) val) - -foreign import javascript unsafe "$1[\"y\"]" js_getY :: - SVGPathSegLinetoRel -> IO Float - --- | -getY :: (MonadIO m) => SVGPathSegLinetoRel -> m Float -getY self = liftIO (js_getY (self)) diff --git a/src/GHCJS/DOM/JSFFI/Generated/SVGPathSegLinetoVerticalAbs.hs b/src/GHCJS/DOM/JSFFI/Generated/SVGPathSegLinetoVerticalAbs.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/SVGPathSegLinetoVerticalAbs.hs +++ /dev/null @@ -1,34 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.SVGPathSegLinetoVerticalAbs - (js_setY, setY, js_getY, getY, SVGPathSegLinetoVerticalAbs, - castToSVGPathSegLinetoVerticalAbs, - gTypeSVGPathSegLinetoVerticalAbs) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"y\"] = $2;" js_setY :: - SVGPathSegLinetoVerticalAbs -> Float -> IO () - --- | -setY :: (MonadIO m) => SVGPathSegLinetoVerticalAbs -> Float -> m () -setY self val = liftIO (js_setY (self) val) - -foreign import javascript unsafe "$1[\"y\"]" js_getY :: - SVGPathSegLinetoVerticalAbs -> IO Float - --- | -getY :: (MonadIO m) => SVGPathSegLinetoVerticalAbs -> m Float -getY self = liftIO (js_getY (self)) diff --git a/src/GHCJS/DOM/JSFFI/Generated/SVGPathSegLinetoVerticalRel.hs b/src/GHCJS/DOM/JSFFI/Generated/SVGPathSegLinetoVerticalRel.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/SVGPathSegLinetoVerticalRel.hs +++ /dev/null @@ -1,34 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.SVGPathSegLinetoVerticalRel - (js_setY, setY, js_getY, getY, SVGPathSegLinetoVerticalRel, - castToSVGPathSegLinetoVerticalRel, - gTypeSVGPathSegLinetoVerticalRel) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"y\"] = $2;" js_setY :: - SVGPathSegLinetoVerticalRel -> Float -> IO () - --- | -setY :: (MonadIO m) => SVGPathSegLinetoVerticalRel -> Float -> m () -setY self val = liftIO (js_setY (self) val) - -foreign import javascript unsafe "$1[\"y\"]" js_getY :: - SVGPathSegLinetoVerticalRel -> IO Float - --- | -getY :: (MonadIO m) => SVGPathSegLinetoVerticalRel -> m Float -getY self = liftIO (js_getY (self)) diff --git a/src/GHCJS/DOM/JSFFI/Generated/SVGPathSegList.hs b/src/GHCJS/DOM/JSFFI/Generated/SVGPathSegList.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/SVGPathSegList.hs +++ /dev/null @@ -1,114 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.SVGPathSegList - (js_clear, clear, js_initialize, initialize, js_getItem, getItem, - js_insertItemBefore, insertItemBefore, js_replaceItem, replaceItem, - js_removeItem, removeItem, js_appendItem, appendItem, - js_getNumberOfItems, getNumberOfItems, SVGPathSegList, - castToSVGPathSegList, gTypeSVGPathSegList) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"clear\"]()" js_clear :: - SVGPathSegList -> IO () - --- | -clear :: (MonadIO m) => SVGPathSegList -> m () -clear self = liftIO (js_clear (self)) - -foreign import javascript unsafe "$1[\"initialize\"]($2)" - js_initialize :: - SVGPathSegList -> Nullable SVGPathSeg -> IO (Nullable SVGPathSeg) - --- | -initialize :: - (MonadIO m, IsSVGPathSeg newItem) => - SVGPathSegList -> Maybe newItem -> m (Maybe SVGPathSeg) -initialize self newItem - = liftIO - (nullableToMaybe <$> - (js_initialize (self) - (maybeToNullable (fmap toSVGPathSeg newItem)))) - -foreign import javascript unsafe "$1[\"getItem\"]($2)" js_getItem - :: SVGPathSegList -> Word -> IO (Nullable SVGPathSeg) - --- | -getItem :: - (MonadIO m) => SVGPathSegList -> Word -> m (Maybe SVGPathSeg) -getItem self index - = liftIO (nullableToMaybe <$> (js_getItem (self) index)) - -foreign import javascript unsafe "$1[\"insertItemBefore\"]($2, $3)" - js_insertItemBefore :: - SVGPathSegList -> - Nullable SVGPathSeg -> Word -> IO (Nullable SVGPathSeg) - --- | -insertItemBefore :: - (MonadIO m, IsSVGPathSeg newItem) => - SVGPathSegList -> Maybe newItem -> Word -> m (Maybe SVGPathSeg) -insertItemBefore self newItem index - = liftIO - (nullableToMaybe <$> - (js_insertItemBefore (self) - (maybeToNullable (fmap toSVGPathSeg newItem)) - index)) - -foreign import javascript unsafe "$1[\"replaceItem\"]($2, $3)" - js_replaceItem :: - SVGPathSegList -> - Nullable SVGPathSeg -> Word -> IO (Nullable SVGPathSeg) - --- | -replaceItem :: - (MonadIO m, IsSVGPathSeg newItem) => - SVGPathSegList -> Maybe newItem -> Word -> m (Maybe SVGPathSeg) -replaceItem self newItem index - = liftIO - (nullableToMaybe <$> - (js_replaceItem (self) - (maybeToNullable (fmap toSVGPathSeg newItem)) - index)) - -foreign import javascript unsafe "$1[\"removeItem\"]($2)" - js_removeItem :: SVGPathSegList -> Word -> IO (Nullable SVGPathSeg) - --- | -removeItem :: - (MonadIO m) => SVGPathSegList -> Word -> m (Maybe SVGPathSeg) -removeItem self index - = liftIO (nullableToMaybe <$> (js_removeItem (self) index)) - -foreign import javascript unsafe "$1[\"appendItem\"]($2)" - js_appendItem :: - SVGPathSegList -> Nullable SVGPathSeg -> IO (Nullable SVGPathSeg) - --- | -appendItem :: - (MonadIO m, IsSVGPathSeg newItem) => - SVGPathSegList -> Maybe newItem -> m (Maybe SVGPathSeg) -appendItem self newItem - = liftIO - (nullableToMaybe <$> - (js_appendItem (self) - (maybeToNullable (fmap toSVGPathSeg newItem)))) - -foreign import javascript unsafe "$1[\"numberOfItems\"]" - js_getNumberOfItems :: SVGPathSegList -> IO Word - --- | -getNumberOfItems :: (MonadIO m) => SVGPathSegList -> m Word -getNumberOfItems self = liftIO (js_getNumberOfItems (self)) diff --git a/src/GHCJS/DOM/JSFFI/Generated/SVGPathSegMovetoAbs.hs b/src/GHCJS/DOM/JSFFI/Generated/SVGPathSegMovetoAbs.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/SVGPathSegMovetoAbs.hs +++ /dev/null @@ -1,48 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.SVGPathSegMovetoAbs - (js_setX, setX, js_getX, getX, js_setY, setY, js_getY, getY, - SVGPathSegMovetoAbs, castToSVGPathSegMovetoAbs, - gTypeSVGPathSegMovetoAbs) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"x\"] = $2;" js_setX :: - SVGPathSegMovetoAbs -> Float -> IO () - --- | -setX :: (MonadIO m) => SVGPathSegMovetoAbs -> Float -> m () -setX self val = liftIO (js_setX (self) val) - -foreign import javascript unsafe "$1[\"x\"]" js_getX :: - SVGPathSegMovetoAbs -> IO Float - --- | -getX :: (MonadIO m) => SVGPathSegMovetoAbs -> m Float -getX self = liftIO (js_getX (self)) - -foreign import javascript unsafe "$1[\"y\"] = $2;" js_setY :: - SVGPathSegMovetoAbs -> Float -> IO () - --- | -setY :: (MonadIO m) => SVGPathSegMovetoAbs -> Float -> m () -setY self val = liftIO (js_setY (self) val) - -foreign import javascript unsafe "$1[\"y\"]" js_getY :: - SVGPathSegMovetoAbs -> IO Float - --- | -getY :: (MonadIO m) => SVGPathSegMovetoAbs -> m Float -getY self = liftIO (js_getY (self)) diff --git a/src/GHCJS/DOM/JSFFI/Generated/SVGPathSegMovetoRel.hs b/src/GHCJS/DOM/JSFFI/Generated/SVGPathSegMovetoRel.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/SVGPathSegMovetoRel.hs +++ /dev/null @@ -1,48 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.SVGPathSegMovetoRel - (js_setX, setX, js_getX, getX, js_setY, setY, js_getY, getY, - SVGPathSegMovetoRel, castToSVGPathSegMovetoRel, - gTypeSVGPathSegMovetoRel) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"x\"] = $2;" js_setX :: - SVGPathSegMovetoRel -> Float -> IO () - --- | -setX :: (MonadIO m) => SVGPathSegMovetoRel -> Float -> m () -setX self val = liftIO (js_setX (self) val) - -foreign import javascript unsafe "$1[\"x\"]" js_getX :: - SVGPathSegMovetoRel -> IO Float - --- | -getX :: (MonadIO m) => SVGPathSegMovetoRel -> m Float -getX self = liftIO (js_getX (self)) - -foreign import javascript unsafe "$1[\"y\"] = $2;" js_setY :: - SVGPathSegMovetoRel -> Float -> IO () - --- | -setY :: (MonadIO m) => SVGPathSegMovetoRel -> Float -> m () -setY self val = liftIO (js_setY (self) val) - -foreign import javascript unsafe "$1[\"y\"]" js_getY :: - SVGPathSegMovetoRel -> IO Float - --- | -getY :: (MonadIO m) => SVGPathSegMovetoRel -> m Float -getY self = liftIO (js_getY (self)) diff --git a/src/GHCJS/DOM/JSFFI/Generated/SVGPatternElement.hs b/src/GHCJS/DOM/JSFFI/Generated/SVGPatternElement.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/SVGPatternElement.hs +++ /dev/null @@ -1,87 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.SVGPatternElement - (js_getPatternUnits, getPatternUnits, js_getPatternContentUnits, - getPatternContentUnits, js_getPatternTransform, - getPatternTransform, js_getX, getX, js_getY, getY, js_getWidth, - getWidth, js_getHeight, getHeight, SVGPatternElement, - castToSVGPatternElement, gTypeSVGPatternElement) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"patternUnits\"]" - js_getPatternUnits :: - SVGPatternElement -> IO (Nullable SVGAnimatedEnumeration) - --- | -getPatternUnits :: - (MonadIO m) => - SVGPatternElement -> m (Maybe SVGAnimatedEnumeration) -getPatternUnits self - = liftIO (nullableToMaybe <$> (js_getPatternUnits (self))) - -foreign import javascript unsafe "$1[\"patternContentUnits\"]" - js_getPatternContentUnits :: - SVGPatternElement -> IO (Nullable SVGAnimatedEnumeration) - --- | -getPatternContentUnits :: - (MonadIO m) => - SVGPatternElement -> m (Maybe SVGAnimatedEnumeration) -getPatternContentUnits self - = liftIO (nullableToMaybe <$> (js_getPatternContentUnits (self))) - -foreign import javascript unsafe "$1[\"patternTransform\"]" - js_getPatternTransform :: - SVGPatternElement -> IO (Nullable SVGAnimatedTransformList) - --- | -getPatternTransform :: - (MonadIO m) => - SVGPatternElement -> m (Maybe SVGAnimatedTransformList) -getPatternTransform self - = liftIO (nullableToMaybe <$> (js_getPatternTransform (self))) - -foreign import javascript unsafe "$1[\"x\"]" js_getX :: - SVGPatternElement -> IO (Nullable SVGAnimatedLength) - --- | -getX :: - (MonadIO m) => SVGPatternElement -> m (Maybe SVGAnimatedLength) -getX self = liftIO (nullableToMaybe <$> (js_getX (self))) - -foreign import javascript unsafe "$1[\"y\"]" js_getY :: - SVGPatternElement -> IO (Nullable SVGAnimatedLength) - --- | -getY :: - (MonadIO m) => SVGPatternElement -> m (Maybe SVGAnimatedLength) -getY self = liftIO (nullableToMaybe <$> (js_getY (self))) - -foreign import javascript unsafe "$1[\"width\"]" js_getWidth :: - SVGPatternElement -> IO (Nullable SVGAnimatedLength) - --- | -getWidth :: - (MonadIO m) => SVGPatternElement -> m (Maybe SVGAnimatedLength) -getWidth self = liftIO (nullableToMaybe <$> (js_getWidth (self))) - -foreign import javascript unsafe "$1[\"height\"]" js_getHeight :: - SVGPatternElement -> IO (Nullable SVGAnimatedLength) - --- | -getHeight :: - (MonadIO m) => SVGPatternElement -> m (Maybe SVGAnimatedLength) -getHeight self = liftIO (nullableToMaybe <$> (js_getHeight (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/SVGPoint.hs b/src/GHCJS/DOM/JSFFI/Generated/SVGPoint.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/SVGPoint.hs +++ /dev/null @@ -1,60 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.SVGPoint - (js_matrixTransform, matrixTransform, js_setX, setX, js_getX, getX, - js_setY, setY, js_getY, getY, SVGPoint, castToSVGPoint, - gTypeSVGPoint) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"matrixTransform\"]($2)" - js_matrixTransform :: - SVGPoint -> Nullable SVGMatrix -> IO (Nullable SVGPoint) - --- | -matrixTransform :: - (MonadIO m) => SVGPoint -> Maybe SVGMatrix -> m (Maybe SVGPoint) -matrixTransform self matrix - = liftIO - (nullableToMaybe <$> - (js_matrixTransform (self) (maybeToNullable matrix))) - -foreign import javascript unsafe "$1[\"x\"] = $2;" js_setX :: - SVGPoint -> Float -> IO () - --- | -setX :: (MonadIO m) => SVGPoint -> Float -> m () -setX self val = liftIO (js_setX (self) val) - -foreign import javascript unsafe "$1[\"x\"]" js_getX :: - SVGPoint -> IO Float - --- | -getX :: (MonadIO m) => SVGPoint -> m Float -getX self = liftIO (js_getX (self)) - -foreign import javascript unsafe "$1[\"y\"] = $2;" js_setY :: - SVGPoint -> Float -> IO () - --- | -setY :: (MonadIO m) => SVGPoint -> Float -> m () -setY self val = liftIO (js_setY (self) val) - -foreign import javascript unsafe "$1[\"y\"]" js_getY :: - SVGPoint -> IO Float - --- | -getY :: (MonadIO m) => SVGPoint -> m Float -getY self = liftIO (js_getY (self)) diff --git a/src/GHCJS/DOM/JSFFI/Generated/SVGPointList.hs b/src/GHCJS/DOM/JSFFI/Generated/SVGPointList.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/SVGPointList.hs +++ /dev/null @@ -1,102 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.SVGPointList - (js_clear, clear, js_initialize, initialize, js_getItem, getItem, - js_insertItemBefore, insertItemBefore, js_replaceItem, replaceItem, - js_removeItem, removeItem, js_appendItem, appendItem, - js_getNumberOfItems, getNumberOfItems, SVGPointList, - castToSVGPointList, gTypeSVGPointList) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"clear\"]()" js_clear :: - SVGPointList -> IO () - --- | -clear :: (MonadIO m) => SVGPointList -> m () -clear self = liftIO (js_clear (self)) - -foreign import javascript unsafe "$1[\"initialize\"]($2)" - js_initialize :: - SVGPointList -> Nullable SVGPoint -> IO (Nullable SVGPoint) - --- | -initialize :: - (MonadIO m) => SVGPointList -> Maybe SVGPoint -> m (Maybe SVGPoint) -initialize self item - = liftIO - (nullableToMaybe <$> (js_initialize (self) (maybeToNullable item))) - -foreign import javascript unsafe "$1[\"getItem\"]($2)" js_getItem - :: SVGPointList -> Word -> IO (Nullable SVGPoint) - --- | -getItem :: - (MonadIO m) => SVGPointList -> Word -> m (Maybe SVGPoint) -getItem self index - = liftIO (nullableToMaybe <$> (js_getItem (self) index)) - -foreign import javascript unsafe "$1[\"insertItemBefore\"]($2, $3)" - js_insertItemBefore :: - SVGPointList -> Nullable SVGPoint -> Word -> IO (Nullable SVGPoint) - --- | -insertItemBefore :: - (MonadIO m) => - SVGPointList -> Maybe SVGPoint -> Word -> m (Maybe SVGPoint) -insertItemBefore self item index - = liftIO - (nullableToMaybe <$> - (js_insertItemBefore (self) (maybeToNullable item) index)) - -foreign import javascript unsafe "$1[\"replaceItem\"]($2, $3)" - js_replaceItem :: - SVGPointList -> Nullable SVGPoint -> Word -> IO (Nullable SVGPoint) - --- | -replaceItem :: - (MonadIO m) => - SVGPointList -> Maybe SVGPoint -> Word -> m (Maybe SVGPoint) -replaceItem self item index - = liftIO - (nullableToMaybe <$> - (js_replaceItem (self) (maybeToNullable item) index)) - -foreign import javascript unsafe "$1[\"removeItem\"]($2)" - js_removeItem :: SVGPointList -> Word -> IO (Nullable SVGPoint) - --- | -removeItem :: - (MonadIO m) => SVGPointList -> Word -> m (Maybe SVGPoint) -removeItem self index - = liftIO (nullableToMaybe <$> (js_removeItem (self) index)) - -foreign import javascript unsafe "$1[\"appendItem\"]($2)" - js_appendItem :: - SVGPointList -> Nullable SVGPoint -> IO (Nullable SVGPoint) - --- | -appendItem :: - (MonadIO m) => SVGPointList -> Maybe SVGPoint -> m (Maybe SVGPoint) -appendItem self item - = liftIO - (nullableToMaybe <$> (js_appendItem (self) (maybeToNullable item))) - -foreign import javascript unsafe "$1[\"numberOfItems\"]" - js_getNumberOfItems :: SVGPointList -> IO Word - --- | -getNumberOfItems :: (MonadIO m) => SVGPointList -> m Word -getNumberOfItems self = liftIO (js_getNumberOfItems (self)) diff --git a/src/GHCJS/DOM/JSFFI/Generated/SVGPolygonElement.hs b/src/GHCJS/DOM/JSFFI/Generated/SVGPolygonElement.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/SVGPolygonElement.hs +++ /dev/null @@ -1,37 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.SVGPolygonElement - (js_getPoints, getPoints, js_getAnimatedPoints, getAnimatedPoints, - SVGPolygonElement, castToSVGPolygonElement, gTypeSVGPolygonElement) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"points\"]" js_getPoints :: - SVGPolygonElement -> IO (Nullable SVGPointList) - --- | -getPoints :: - (MonadIO m) => SVGPolygonElement -> m (Maybe SVGPointList) -getPoints self = liftIO (nullableToMaybe <$> (js_getPoints (self))) - -foreign import javascript unsafe "$1[\"animatedPoints\"]" - js_getAnimatedPoints :: - SVGPolygonElement -> IO (Nullable SVGPointList) - --- | -getAnimatedPoints :: - (MonadIO m) => SVGPolygonElement -> m (Maybe SVGPointList) -getAnimatedPoints self - = liftIO (nullableToMaybe <$> (js_getAnimatedPoints (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/SVGPolylineElement.hs b/src/GHCJS/DOM/JSFFI/Generated/SVGPolylineElement.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/SVGPolylineElement.hs +++ /dev/null @@ -1,38 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.SVGPolylineElement - (js_getPoints, getPoints, js_getAnimatedPoints, getAnimatedPoints, - SVGPolylineElement, castToSVGPolylineElement, - gTypeSVGPolylineElement) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"points\"]" js_getPoints :: - SVGPolylineElement -> IO (Nullable SVGPointList) - --- | -getPoints :: - (MonadIO m) => SVGPolylineElement -> m (Maybe SVGPointList) -getPoints self = liftIO (nullableToMaybe <$> (js_getPoints (self))) - -foreign import javascript unsafe "$1[\"animatedPoints\"]" - js_getAnimatedPoints :: - SVGPolylineElement -> IO (Nullable SVGPointList) - --- | -getAnimatedPoints :: - (MonadIO m) => SVGPolylineElement -> m (Maybe SVGPointList) -getAnimatedPoints self - = liftIO (nullableToMaybe <$> (js_getAnimatedPoints (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/SVGPreserveAspectRatio.hs b/src/GHCJS/DOM/JSFFI/Generated/SVGPreserveAspectRatio.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/SVGPreserveAspectRatio.hs +++ /dev/null @@ -1,76 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.SVGPreserveAspectRatio - (pattern SVG_PRESERVEASPECTRATIO_UNKNOWN, - pattern SVG_PRESERVEASPECTRATIO_NONE, - pattern SVG_PRESERVEASPECTRATIO_XMINYMIN, - pattern SVG_PRESERVEASPECTRATIO_XMIDYMIN, - pattern SVG_PRESERVEASPECTRATIO_XMAXYMIN, - pattern SVG_PRESERVEASPECTRATIO_XMINYMID, - pattern SVG_PRESERVEASPECTRATIO_XMIDYMID, - pattern SVG_PRESERVEASPECTRATIO_XMAXYMID, - pattern SVG_PRESERVEASPECTRATIO_XMINYMAX, - pattern SVG_PRESERVEASPECTRATIO_XMIDYMAX, - pattern SVG_PRESERVEASPECTRATIO_XMAXYMAX, - pattern SVG_MEETORSLICE_UNKNOWN, pattern SVG_MEETORSLICE_MEET, - pattern SVG_MEETORSLICE_SLICE, js_setAlign, setAlign, js_getAlign, - getAlign, js_setMeetOrSlice, setMeetOrSlice, js_getMeetOrSlice, - getMeetOrSlice, SVGPreserveAspectRatio, - castToSVGPreserveAspectRatio, gTypeSVGPreserveAspectRatio) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums -pattern SVG_PRESERVEASPECTRATIO_UNKNOWN = 0 -pattern SVG_PRESERVEASPECTRATIO_NONE = 1 -pattern SVG_PRESERVEASPECTRATIO_XMINYMIN = 2 -pattern SVG_PRESERVEASPECTRATIO_XMIDYMIN = 3 -pattern SVG_PRESERVEASPECTRATIO_XMAXYMIN = 4 -pattern SVG_PRESERVEASPECTRATIO_XMINYMID = 5 -pattern SVG_PRESERVEASPECTRATIO_XMIDYMID = 6 -pattern SVG_PRESERVEASPECTRATIO_XMAXYMID = 7 -pattern SVG_PRESERVEASPECTRATIO_XMINYMAX = 8 -pattern SVG_PRESERVEASPECTRATIO_XMIDYMAX = 9 -pattern SVG_PRESERVEASPECTRATIO_XMAXYMAX = 10 -pattern SVG_MEETORSLICE_UNKNOWN = 0 -pattern SVG_MEETORSLICE_MEET = 1 -pattern SVG_MEETORSLICE_SLICE = 2 - -foreign import javascript unsafe "$1[\"align\"] = $2;" js_setAlign - :: SVGPreserveAspectRatio -> Word -> IO () - --- | -setAlign :: (MonadIO m) => SVGPreserveAspectRatio -> Word -> m () -setAlign self val = liftIO (js_setAlign (self) val) - -foreign import javascript unsafe "$1[\"align\"]" js_getAlign :: - SVGPreserveAspectRatio -> IO Word - --- | -getAlign :: (MonadIO m) => SVGPreserveAspectRatio -> m Word -getAlign self = liftIO (js_getAlign (self)) - -foreign import javascript unsafe "$1[\"meetOrSlice\"] = $2;" - js_setMeetOrSlice :: SVGPreserveAspectRatio -> Word -> IO () - --- | -setMeetOrSlice :: - (MonadIO m) => SVGPreserveAspectRatio -> Word -> m () -setMeetOrSlice self val = liftIO (js_setMeetOrSlice (self) val) - -foreign import javascript unsafe "$1[\"meetOrSlice\"]" - js_getMeetOrSlice :: SVGPreserveAspectRatio -> IO Word - --- | -getMeetOrSlice :: (MonadIO m) => SVGPreserveAspectRatio -> m Word -getMeetOrSlice self = liftIO (js_getMeetOrSlice (self)) diff --git a/src/GHCJS/DOM/JSFFI/Generated/SVGRadialGradientElement.hs b/src/GHCJS/DOM/JSFFI/Generated/SVGRadialGradientElement.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/SVGRadialGradientElement.hs +++ /dev/null @@ -1,74 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.SVGRadialGradientElement - (js_getCx, getCx, js_getCy, getCy, js_getR, getR, js_getFx, getFx, - js_getFy, getFy, js_getFr, getFr, SVGRadialGradientElement, - castToSVGRadialGradientElement, gTypeSVGRadialGradientElement) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"cx\"]" js_getCx :: - SVGRadialGradientElement -> IO (Nullable SVGAnimatedLength) - --- | -getCx :: - (MonadIO m) => - SVGRadialGradientElement -> m (Maybe SVGAnimatedLength) -getCx self = liftIO (nullableToMaybe <$> (js_getCx (self))) - -foreign import javascript unsafe "$1[\"cy\"]" js_getCy :: - SVGRadialGradientElement -> IO (Nullable SVGAnimatedLength) - --- | -getCy :: - (MonadIO m) => - SVGRadialGradientElement -> m (Maybe SVGAnimatedLength) -getCy self = liftIO (nullableToMaybe <$> (js_getCy (self))) - -foreign import javascript unsafe "$1[\"r\"]" js_getR :: - SVGRadialGradientElement -> IO (Nullable SVGAnimatedLength) - --- | -getR :: - (MonadIO m) => - SVGRadialGradientElement -> m (Maybe SVGAnimatedLength) -getR self = liftIO (nullableToMaybe <$> (js_getR (self))) - -foreign import javascript unsafe "$1[\"fx\"]" js_getFx :: - SVGRadialGradientElement -> IO (Nullable SVGAnimatedLength) - --- | -getFx :: - (MonadIO m) => - SVGRadialGradientElement -> m (Maybe SVGAnimatedLength) -getFx self = liftIO (nullableToMaybe <$> (js_getFx (self))) - -foreign import javascript unsafe "$1[\"fy\"]" js_getFy :: - SVGRadialGradientElement -> IO (Nullable SVGAnimatedLength) - --- | -getFy :: - (MonadIO m) => - SVGRadialGradientElement -> m (Maybe SVGAnimatedLength) -getFy self = liftIO (nullableToMaybe <$> (js_getFy (self))) - -foreign import javascript unsafe "$1[\"fr\"]" js_getFr :: - SVGRadialGradientElement -> IO (Nullable SVGAnimatedLength) - --- | -getFr :: - (MonadIO m) => - SVGRadialGradientElement -> m (Maybe SVGAnimatedLength) -getFr self = liftIO (nullableToMaybe <$> (js_getFr (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/SVGRect.hs b/src/GHCJS/DOM/JSFFI/Generated/SVGRect.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/SVGRect.hs +++ /dev/null @@ -1,77 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.SVGRect - (js_setX, setX, js_getX, getX, js_setY, setY, js_getY, getY, - js_setWidth, setWidth, js_getWidth, getWidth, js_setHeight, - setHeight, js_getHeight, getHeight, SVGRect, castToSVGRect, - gTypeSVGRect) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"x\"] = $2;" js_setX :: - SVGRect -> Float -> IO () - --- | -setX :: (MonadIO m) => SVGRect -> Float -> m () -setX self val = liftIO (js_setX (self) val) - -foreign import javascript unsafe "$1[\"x\"]" js_getX :: - SVGRect -> IO Float - --- | -getX :: (MonadIO m) => SVGRect -> m Float -getX self = liftIO (js_getX (self)) - -foreign import javascript unsafe "$1[\"y\"] = $2;" js_setY :: - SVGRect -> Float -> IO () - --- | -setY :: (MonadIO m) => SVGRect -> Float -> m () -setY self val = liftIO (js_setY (self) val) - -foreign import javascript unsafe "$1[\"y\"]" js_getY :: - SVGRect -> IO Float - --- | -getY :: (MonadIO m) => SVGRect -> m Float -getY self = liftIO (js_getY (self)) - -foreign import javascript unsafe "$1[\"width\"] = $2;" js_setWidth - :: SVGRect -> Float -> IO () - --- | -setWidth :: (MonadIO m) => SVGRect -> Float -> m () -setWidth self val = liftIO (js_setWidth (self) val) - -foreign import javascript unsafe "$1[\"width\"]" js_getWidth :: - SVGRect -> IO Float - --- | -getWidth :: (MonadIO m) => SVGRect -> m Float -getWidth self = liftIO (js_getWidth (self)) - -foreign import javascript unsafe "$1[\"height\"] = $2;" - js_setHeight :: SVGRect -> Float -> IO () - --- | -setHeight :: (MonadIO m) => SVGRect -> Float -> m () -setHeight self val = liftIO (js_setHeight (self) val) - -foreign import javascript unsafe "$1[\"height\"]" js_getHeight :: - SVGRect -> IO Float - --- | -getHeight :: (MonadIO m) => SVGRect -> m Float -getHeight self = liftIO (js_getHeight (self)) diff --git a/src/GHCJS/DOM/JSFFI/Generated/SVGRectElement.hs b/src/GHCJS/DOM/JSFFI/Generated/SVGRectElement.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/SVGRectElement.hs +++ /dev/null @@ -1,68 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.SVGRectElement - (js_getX, getX, js_getY, getY, js_getWidth, getWidth, js_getHeight, - getHeight, js_getRx, getRx, js_getRy, getRy, SVGRectElement, - castToSVGRectElement, gTypeSVGRectElement) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"x\"]" js_getX :: - SVGRectElement -> IO (Nullable SVGAnimatedLength) - --- | -getX :: - (MonadIO m) => SVGRectElement -> m (Maybe SVGAnimatedLength) -getX self = liftIO (nullableToMaybe <$> (js_getX (self))) - -foreign import javascript unsafe "$1[\"y\"]" js_getY :: - SVGRectElement -> IO (Nullable SVGAnimatedLength) - --- | -getY :: - (MonadIO m) => SVGRectElement -> m (Maybe SVGAnimatedLength) -getY self = liftIO (nullableToMaybe <$> (js_getY (self))) - -foreign import javascript unsafe "$1[\"width\"]" js_getWidth :: - SVGRectElement -> IO (Nullable SVGAnimatedLength) - --- | -getWidth :: - (MonadIO m) => SVGRectElement -> m (Maybe SVGAnimatedLength) -getWidth self = liftIO (nullableToMaybe <$> (js_getWidth (self))) - -foreign import javascript unsafe "$1[\"height\"]" js_getHeight :: - SVGRectElement -> IO (Nullable SVGAnimatedLength) - --- | -getHeight :: - (MonadIO m) => SVGRectElement -> m (Maybe SVGAnimatedLength) -getHeight self = liftIO (nullableToMaybe <$> (js_getHeight (self))) - -foreign import javascript unsafe "$1[\"rx\"]" js_getRx :: - SVGRectElement -> IO (Nullable SVGAnimatedLength) - --- | -getRx :: - (MonadIO m) => SVGRectElement -> m (Maybe SVGAnimatedLength) -getRx self = liftIO (nullableToMaybe <$> (js_getRx (self))) - -foreign import javascript unsafe "$1[\"ry\"]" js_getRy :: - SVGRectElement -> IO (Nullable SVGAnimatedLength) - --- | -getRy :: - (MonadIO m) => SVGRectElement -> m (Maybe SVGAnimatedLength) -getRy self = liftIO (nullableToMaybe <$> (js_getRy (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/SVGRenderingIntent.hs b/src/GHCJS/DOM/JSFFI/Generated/SVGRenderingIntent.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/SVGRenderingIntent.hs +++ /dev/null @@ -1,29 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.SVGRenderingIntent - (pattern RENDERING_INTENT_UNKNOWN, pattern RENDERING_INTENT_AUTO, - pattern RENDERING_INTENT_PERCEPTUAL, - pattern RENDERING_INTENT_RELATIVE_COLORIMETRIC, - pattern RENDERING_INTENT_SATURATION, - pattern RENDERING_INTENT_ABSOLUTE_COLORIMETRIC, SVGRenderingIntent, - castToSVGRenderingIntent, gTypeSVGRenderingIntent) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums -pattern RENDERING_INTENT_UNKNOWN = 0 -pattern RENDERING_INTENT_AUTO = 1 -pattern RENDERING_INTENT_PERCEPTUAL = 2 -pattern RENDERING_INTENT_RELATIVE_COLORIMETRIC = 3 -pattern RENDERING_INTENT_SATURATION = 4 -pattern RENDERING_INTENT_ABSOLUTE_COLORIMETRIC = 5 diff --git a/src/GHCJS/DOM/JSFFI/Generated/SVGSVGElement.hs b/src/GHCJS/DOM/JSFFI/Generated/SVGSVGElement.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/SVGSVGElement.hs +++ /dev/null @@ -1,420 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.SVGSVGElement - (js_suspendRedraw, suspendRedraw, js_unsuspendRedraw, - unsuspendRedraw, js_unsuspendRedrawAll, unsuspendRedrawAll, - js_forceRedraw, forceRedraw, js_pauseAnimations, pauseAnimations, - js_unpauseAnimations, unpauseAnimations, js_animationsPaused, - animationsPaused, js_getCurrentTime, getCurrentTime, - js_setCurrentTime, setCurrentTime, js_getIntersectionList, - getIntersectionList, js_getEnclosureList, getEnclosureList, - js_checkIntersection, checkIntersection, js_checkEnclosure, - checkEnclosure, js_deselectAll, deselectAll, js_createSVGNumber, - createSVGNumber, js_createSVGLength, createSVGLength, - js_createSVGAngle, createSVGAngle, js_createSVGPoint, - createSVGPoint, js_createSVGMatrix, createSVGMatrix, - js_createSVGRect, createSVGRect, js_createSVGTransform, - createSVGTransform, js_createSVGTransformFromMatrix, - createSVGTransformFromMatrix, js_getElementById, getElementById, - js_getX, getX, js_getY, getY, js_getWidth, getWidth, js_getHeight, - getHeight, js_setContentScriptType, setContentScriptType, - js_getContentScriptType, getContentScriptType, - js_setContentStyleType, setContentStyleType, - js_getContentStyleType, getContentStyleType, js_getViewport, - getViewport, js_getPixelUnitToMillimeterX, - getPixelUnitToMillimeterX, js_getPixelUnitToMillimeterY, - getPixelUnitToMillimeterY, js_getScreenPixelToMillimeterX, - getScreenPixelToMillimeterX, js_getScreenPixelToMillimeterY, - getScreenPixelToMillimeterY, js_getUseCurrentView, - getUseCurrentView, js_getCurrentView, getCurrentView, - js_setCurrentScale, setCurrentScale, js_getCurrentScale, - getCurrentScale, js_getCurrentTranslate, getCurrentTranslate, - SVGSVGElement, castToSVGSVGElement, gTypeSVGSVGElement) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"suspendRedraw\"]($2)" - js_suspendRedraw :: SVGSVGElement -> Word -> IO Word - --- | -suspendRedraw :: (MonadIO m) => SVGSVGElement -> Word -> m Word -suspendRedraw self maxWaitMilliseconds - = liftIO (js_suspendRedraw (self) maxWaitMilliseconds) - -foreign import javascript unsafe "$1[\"unsuspendRedraw\"]($2)" - js_unsuspendRedraw :: SVGSVGElement -> Word -> IO () - --- | -unsuspendRedraw :: (MonadIO m) => SVGSVGElement -> Word -> m () -unsuspendRedraw self suspendHandleId - = liftIO (js_unsuspendRedraw (self) suspendHandleId) - -foreign import javascript unsafe "$1[\"unsuspendRedrawAll\"]()" - js_unsuspendRedrawAll :: SVGSVGElement -> IO () - --- | -unsuspendRedrawAll :: (MonadIO m) => SVGSVGElement -> m () -unsuspendRedrawAll self = liftIO (js_unsuspendRedrawAll (self)) - -foreign import javascript unsafe "$1[\"forceRedraw\"]()" - js_forceRedraw :: SVGSVGElement -> IO () - --- | -forceRedraw :: (MonadIO m) => SVGSVGElement -> m () -forceRedraw self = liftIO (js_forceRedraw (self)) - -foreign import javascript unsafe "$1[\"pauseAnimations\"]()" - js_pauseAnimations :: SVGSVGElement -> IO () - --- | -pauseAnimations :: (MonadIO m) => SVGSVGElement -> m () -pauseAnimations self = liftIO (js_pauseAnimations (self)) - -foreign import javascript unsafe "$1[\"unpauseAnimations\"]()" - js_unpauseAnimations :: SVGSVGElement -> IO () - --- | -unpauseAnimations :: (MonadIO m) => SVGSVGElement -> m () -unpauseAnimations self = liftIO (js_unpauseAnimations (self)) - -foreign import javascript unsafe - "($1[\"animationsPaused\"]() ? 1 : 0)" js_animationsPaused :: - SVGSVGElement -> IO Bool - --- | -animationsPaused :: (MonadIO m) => SVGSVGElement -> m Bool -animationsPaused self = liftIO (js_animationsPaused (self)) - -foreign import javascript unsafe "$1[\"getCurrentTime\"]()" - js_getCurrentTime :: SVGSVGElement -> IO Float - --- | -getCurrentTime :: (MonadIO m) => SVGSVGElement -> m Float -getCurrentTime self = liftIO (js_getCurrentTime (self)) - -foreign import javascript unsafe "$1[\"setCurrentTime\"]($2)" - js_setCurrentTime :: SVGSVGElement -> Float -> IO () - --- | -setCurrentTime :: (MonadIO m) => SVGSVGElement -> Float -> m () -setCurrentTime self seconds - = liftIO (js_setCurrentTime (self) seconds) - -foreign import javascript unsafe - "$1[\"getIntersectionList\"]($2,\n$3)" js_getIntersectionList :: - SVGSVGElement -> - Nullable SVGRect -> Nullable SVGElement -> IO (Nullable NodeList) - --- | -getIntersectionList :: - (MonadIO m, IsSVGElement referenceElement) => - SVGSVGElement -> - Maybe SVGRect -> Maybe referenceElement -> m (Maybe NodeList) -getIntersectionList self rect referenceElement - = liftIO - (nullableToMaybe <$> - (js_getIntersectionList (self) (maybeToNullable rect) - (maybeToNullable (fmap toSVGElement referenceElement)))) - -foreign import javascript unsafe "$1[\"getEnclosureList\"]($2, $3)" - js_getEnclosureList :: - SVGSVGElement -> - Nullable SVGRect -> Nullable SVGElement -> IO (Nullable NodeList) - --- | -getEnclosureList :: - (MonadIO m, IsSVGElement referenceElement) => - SVGSVGElement -> - Maybe SVGRect -> Maybe referenceElement -> m (Maybe NodeList) -getEnclosureList self rect referenceElement - = liftIO - (nullableToMaybe <$> - (js_getEnclosureList (self) (maybeToNullable rect) - (maybeToNullable (fmap toSVGElement referenceElement)))) - -foreign import javascript unsafe - "($1[\"checkIntersection\"]($2,\n$3) ? 1 : 0)" js_checkIntersection - :: - SVGSVGElement -> Nullable SVGElement -> Nullable SVGRect -> IO Bool - --- | -checkIntersection :: - (MonadIO m, IsSVGElement element) => - SVGSVGElement -> Maybe element -> Maybe SVGRect -> m Bool -checkIntersection self element rect - = liftIO - (js_checkIntersection (self) - (maybeToNullable (fmap toSVGElement element)) - (maybeToNullable rect)) - -foreign import javascript unsafe - "($1[\"checkEnclosure\"]($2,\n$3) ? 1 : 0)" js_checkEnclosure :: - SVGSVGElement -> Nullable SVGElement -> Nullable SVGRect -> IO Bool - --- | -checkEnclosure :: - (MonadIO m, IsSVGElement element) => - SVGSVGElement -> Maybe element -> Maybe SVGRect -> m Bool -checkEnclosure self element rect - = liftIO - (js_checkEnclosure (self) - (maybeToNullable (fmap toSVGElement element)) - (maybeToNullable rect)) - -foreign import javascript unsafe "$1[\"deselectAll\"]()" - js_deselectAll :: SVGSVGElement -> IO () - --- | -deselectAll :: (MonadIO m) => SVGSVGElement -> m () -deselectAll self = liftIO (js_deselectAll (self)) - -foreign import javascript unsafe "$1[\"createSVGNumber\"]()" - js_createSVGNumber :: SVGSVGElement -> IO (Nullable SVGNumber) - --- | -createSVGNumber :: - (MonadIO m) => SVGSVGElement -> m (Maybe SVGNumber) -createSVGNumber self - = liftIO (nullableToMaybe <$> (js_createSVGNumber (self))) - -foreign import javascript unsafe "$1[\"createSVGLength\"]()" - js_createSVGLength :: SVGSVGElement -> IO (Nullable SVGLength) - --- | -createSVGLength :: - (MonadIO m) => SVGSVGElement -> m (Maybe SVGLength) -createSVGLength self - = liftIO (nullableToMaybe <$> (js_createSVGLength (self))) - -foreign import javascript unsafe "$1[\"createSVGAngle\"]()" - js_createSVGAngle :: SVGSVGElement -> IO (Nullable SVGAngle) - --- | -createSVGAngle :: - (MonadIO m) => SVGSVGElement -> m (Maybe SVGAngle) -createSVGAngle self - = liftIO (nullableToMaybe <$> (js_createSVGAngle (self))) - -foreign import javascript unsafe "$1[\"createSVGPoint\"]()" - js_createSVGPoint :: SVGSVGElement -> IO (Nullable SVGPoint) - --- | -createSVGPoint :: - (MonadIO m) => SVGSVGElement -> m (Maybe SVGPoint) -createSVGPoint self - = liftIO (nullableToMaybe <$> (js_createSVGPoint (self))) - -foreign import javascript unsafe "$1[\"createSVGMatrix\"]()" - js_createSVGMatrix :: SVGSVGElement -> IO (Nullable SVGMatrix) - --- | -createSVGMatrix :: - (MonadIO m) => SVGSVGElement -> m (Maybe SVGMatrix) -createSVGMatrix self - = liftIO (nullableToMaybe <$> (js_createSVGMatrix (self))) - -foreign import javascript unsafe "$1[\"createSVGRect\"]()" - js_createSVGRect :: SVGSVGElement -> IO (Nullable SVGRect) - --- | -createSVGRect :: (MonadIO m) => SVGSVGElement -> m (Maybe SVGRect) -createSVGRect self - = liftIO (nullableToMaybe <$> (js_createSVGRect (self))) - -foreign import javascript unsafe "$1[\"createSVGTransform\"]()" - js_createSVGTransform :: - SVGSVGElement -> IO (Nullable SVGTransform) - --- | -createSVGTransform :: - (MonadIO m) => SVGSVGElement -> m (Maybe SVGTransform) -createSVGTransform self - = liftIO (nullableToMaybe <$> (js_createSVGTransform (self))) - -foreign import javascript unsafe - "$1[\"createSVGTransformFromMatrix\"]($2)" - js_createSVGTransformFromMatrix :: - SVGSVGElement -> Nullable SVGMatrix -> IO (Nullable SVGTransform) - --- | -createSVGTransformFromMatrix :: - (MonadIO m) => - SVGSVGElement -> Maybe SVGMatrix -> m (Maybe SVGTransform) -createSVGTransformFromMatrix self matrix - = liftIO - (nullableToMaybe <$> - (js_createSVGTransformFromMatrix (self) (maybeToNullable matrix))) - -foreign import javascript unsafe "$1[\"getElementById\"]($2)" - js_getElementById :: - SVGSVGElement -> JSString -> IO (Nullable Element) - --- | -getElementById :: - (MonadIO m, ToJSString elementId) => - SVGSVGElement -> elementId -> m (Maybe Element) -getElementById self elementId - = liftIO - (nullableToMaybe <$> - (js_getElementById (self) (toJSString elementId))) - -foreign import javascript unsafe "$1[\"x\"]" js_getX :: - SVGSVGElement -> IO (Nullable SVGAnimatedLength) - --- | -getX :: (MonadIO m) => SVGSVGElement -> m (Maybe SVGAnimatedLength) -getX self = liftIO (nullableToMaybe <$> (js_getX (self))) - -foreign import javascript unsafe "$1[\"y\"]" js_getY :: - SVGSVGElement -> IO (Nullable SVGAnimatedLength) - --- | -getY :: (MonadIO m) => SVGSVGElement -> m (Maybe SVGAnimatedLength) -getY self = liftIO (nullableToMaybe <$> (js_getY (self))) - -foreign import javascript unsafe "$1[\"width\"]" js_getWidth :: - SVGSVGElement -> IO (Nullable SVGAnimatedLength) - --- | -getWidth :: - (MonadIO m) => SVGSVGElement -> m (Maybe SVGAnimatedLength) -getWidth self = liftIO (nullableToMaybe <$> (js_getWidth (self))) - -foreign import javascript unsafe "$1[\"height\"]" js_getHeight :: - SVGSVGElement -> IO (Nullable SVGAnimatedLength) - --- | -getHeight :: - (MonadIO m) => SVGSVGElement -> m (Maybe SVGAnimatedLength) -getHeight self = liftIO (nullableToMaybe <$> (js_getHeight (self))) - -foreign import javascript unsafe "$1[\"contentScriptType\"] = $2;" - js_setContentScriptType :: SVGSVGElement -> JSString -> IO () - --- | -setContentScriptType :: - (MonadIO m, ToJSString val) => SVGSVGElement -> val -> m () -setContentScriptType self val - = liftIO (js_setContentScriptType (self) (toJSString val)) - -foreign import javascript unsafe "$1[\"contentScriptType\"]" - js_getContentScriptType :: SVGSVGElement -> IO JSString - --- | -getContentScriptType :: - (MonadIO m, FromJSString result) => SVGSVGElement -> m result -getContentScriptType self - = liftIO (fromJSString <$> (js_getContentScriptType (self))) - -foreign import javascript unsafe "$1[\"contentStyleType\"] = $2;" - js_setContentStyleType :: SVGSVGElement -> JSString -> IO () - --- | -setContentStyleType :: - (MonadIO m, ToJSString val) => SVGSVGElement -> val -> m () -setContentStyleType self val - = liftIO (js_setContentStyleType (self) (toJSString val)) - -foreign import javascript unsafe "$1[\"contentStyleType\"]" - js_getContentStyleType :: SVGSVGElement -> IO JSString - --- | -getContentStyleType :: - (MonadIO m, FromJSString result) => SVGSVGElement -> m result -getContentStyleType self - = liftIO (fromJSString <$> (js_getContentStyleType (self))) - -foreign import javascript unsafe "$1[\"viewport\"]" js_getViewport - :: SVGSVGElement -> IO (Nullable SVGRect) - --- | -getViewport :: (MonadIO m) => SVGSVGElement -> m (Maybe SVGRect) -getViewport self - = liftIO (nullableToMaybe <$> (js_getViewport (self))) - -foreign import javascript unsafe "$1[\"pixelUnitToMillimeterX\"]" - js_getPixelUnitToMillimeterX :: SVGSVGElement -> IO Float - --- | -getPixelUnitToMillimeterX :: - (MonadIO m) => SVGSVGElement -> m Float -getPixelUnitToMillimeterX self - = liftIO (js_getPixelUnitToMillimeterX (self)) - -foreign import javascript unsafe "$1[\"pixelUnitToMillimeterY\"]" - js_getPixelUnitToMillimeterY :: SVGSVGElement -> IO Float - --- | -getPixelUnitToMillimeterY :: - (MonadIO m) => SVGSVGElement -> m Float -getPixelUnitToMillimeterY self - = liftIO (js_getPixelUnitToMillimeterY (self)) - -foreign import javascript unsafe "$1[\"screenPixelToMillimeterX\"]" - js_getScreenPixelToMillimeterX :: SVGSVGElement -> IO Float - --- | -getScreenPixelToMillimeterX :: - (MonadIO m) => SVGSVGElement -> m Float -getScreenPixelToMillimeterX self - = liftIO (js_getScreenPixelToMillimeterX (self)) - -foreign import javascript unsafe "$1[\"screenPixelToMillimeterY\"]" - js_getScreenPixelToMillimeterY :: SVGSVGElement -> IO Float - --- | -getScreenPixelToMillimeterY :: - (MonadIO m) => SVGSVGElement -> m Float -getScreenPixelToMillimeterY self - = liftIO (js_getScreenPixelToMillimeterY (self)) - -foreign import javascript unsafe "($1[\"useCurrentView\"] ? 1 : 0)" - js_getUseCurrentView :: SVGSVGElement -> IO Bool - --- | -getUseCurrentView :: (MonadIO m) => SVGSVGElement -> m Bool -getUseCurrentView self = liftIO (js_getUseCurrentView (self)) - -foreign import javascript unsafe "$1[\"currentView\"]" - js_getCurrentView :: SVGSVGElement -> IO (Nullable SVGViewSpec) - --- | -getCurrentView :: - (MonadIO m) => SVGSVGElement -> m (Maybe SVGViewSpec) -getCurrentView self - = liftIO (nullableToMaybe <$> (js_getCurrentView (self))) - -foreign import javascript unsafe "$1[\"currentScale\"] = $2;" - js_setCurrentScale :: SVGSVGElement -> Float -> IO () - --- | -setCurrentScale :: (MonadIO m) => SVGSVGElement -> Float -> m () -setCurrentScale self val = liftIO (js_setCurrentScale (self) val) - -foreign import javascript unsafe "$1[\"currentScale\"]" - js_getCurrentScale :: SVGSVGElement -> IO Float - --- | -getCurrentScale :: (MonadIO m) => SVGSVGElement -> m Float -getCurrentScale self = liftIO (js_getCurrentScale (self)) - -foreign import javascript unsafe "$1[\"currentTranslate\"]" - js_getCurrentTranslate :: SVGSVGElement -> IO (Nullable SVGPoint) - --- | -getCurrentTranslate :: - (MonadIO m) => SVGSVGElement -> m (Maybe SVGPoint) -getCurrentTranslate self - = liftIO (nullableToMaybe <$> (js_getCurrentTranslate (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/SVGScriptElement.hs b/src/GHCJS/DOM/JSFFI/Generated/SVGScriptElement.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/SVGScriptElement.hs +++ /dev/null @@ -1,37 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.SVGScriptElement - (js_setType, setType, js_getType, getType, SVGScriptElement, - castToSVGScriptElement, gTypeSVGScriptElement) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"type\"] = $2;" js_setType :: - SVGScriptElement -> Nullable JSString -> IO () - --- | -setType :: - (MonadIO m, ToJSString val) => - SVGScriptElement -> Maybe val -> m () -setType self val = liftIO (js_setType (self) (toMaybeJSString val)) - -foreign import javascript unsafe "$1[\"type\"]" js_getType :: - SVGScriptElement -> IO (Nullable JSString) - --- | -getType :: - (MonadIO m, FromJSString result) => - SVGScriptElement -> m (Maybe result) -getType self = liftIO (fromMaybeJSString <$> (js_getType (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/SVGStopElement.hs b/src/GHCJS/DOM/JSFFI/Generated/SVGStopElement.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/SVGStopElement.hs +++ /dev/null @@ -1,27 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.SVGStopElement - (js_getOffset, getOffset, SVGStopElement, castToSVGStopElement, - gTypeSVGStopElement) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"offset\"]" js_getOffset :: - SVGStopElement -> IO (Nullable SVGAnimatedNumber) - --- | -getOffset :: - (MonadIO m) => SVGStopElement -> m (Maybe SVGAnimatedNumber) -getOffset self = liftIO (nullableToMaybe <$> (js_getOffset (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/SVGStringList.hs b/src/GHCJS/DOM/JSFFI/Generated/SVGStringList.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/SVGStringList.hs +++ /dev/null @@ -1,102 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.SVGStringList - (js_clear, clear, js_initialize, initialize, js_getItem, getItem, - js_insertItemBefore, insertItemBefore, js_replaceItem, replaceItem, - js_removeItem, removeItem, js_appendItem, appendItem, - js_getNumberOfItems, getNumberOfItems, SVGStringList, - castToSVGStringList, gTypeSVGStringList) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"clear\"]()" js_clear :: - SVGStringList -> IO () - --- | -clear :: (MonadIO m) => SVGStringList -> m () -clear self = liftIO (js_clear (self)) - -foreign import javascript unsafe "$1[\"initialize\"]($2)" - js_initialize :: SVGStringList -> JSString -> IO JSString - --- | -initialize :: - (MonadIO m, ToJSString item, FromJSString result) => - SVGStringList -> item -> m result -initialize self item - = liftIO - (fromJSString <$> (js_initialize (self) (toJSString item))) - -foreign import javascript unsafe "$1[\"getItem\"]($2)" js_getItem - :: SVGStringList -> Word -> IO JSString - --- | -getItem :: - (MonadIO m, FromJSString result) => - SVGStringList -> Word -> m result -getItem self index - = liftIO (fromJSString <$> (js_getItem (self) index)) - -foreign import javascript unsafe "$1[\"insertItemBefore\"]($2, $3)" - js_insertItemBefore :: - SVGStringList -> JSString -> Word -> IO JSString - --- | -insertItemBefore :: - (MonadIO m, ToJSString item, FromJSString result) => - SVGStringList -> item -> Word -> m result -insertItemBefore self item index - = liftIO - (fromJSString <$> - (js_insertItemBefore (self) (toJSString item) index)) - -foreign import javascript unsafe "$1[\"replaceItem\"]($2, $3)" - js_replaceItem :: SVGStringList -> JSString -> Word -> IO JSString - --- | -replaceItem :: - (MonadIO m, ToJSString item, FromJSString result) => - SVGStringList -> item -> Word -> m result -replaceItem self item index - = liftIO - (fromJSString <$> (js_replaceItem (self) (toJSString item) index)) - -foreign import javascript unsafe "$1[\"removeItem\"]($2)" - js_removeItem :: SVGStringList -> Word -> IO JSString - --- | -removeItem :: - (MonadIO m, FromJSString result) => - SVGStringList -> Word -> m result -removeItem self index - = liftIO (fromJSString <$> (js_removeItem (self) index)) - -foreign import javascript unsafe "$1[\"appendItem\"]($2)" - js_appendItem :: SVGStringList -> JSString -> IO JSString - --- | -appendItem :: - (MonadIO m, ToJSString item, FromJSString result) => - SVGStringList -> item -> m result -appendItem self item - = liftIO - (fromJSString <$> (js_appendItem (self) (toJSString item))) - -foreign import javascript unsafe "$1[\"numberOfItems\"]" - js_getNumberOfItems :: SVGStringList -> IO Word - --- | -getNumberOfItems :: (MonadIO m) => SVGStringList -> m Word -getNumberOfItems self = liftIO (js_getNumberOfItems (self)) diff --git a/src/GHCJS/DOM/JSFFI/Generated/SVGStyleElement.hs b/src/GHCJS/DOM/JSFFI/Generated/SVGStyleElement.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/SVGStyleElement.hs +++ /dev/null @@ -1,84 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.SVGStyleElement - (js_setDisabled, setDisabled, js_getDisabled, getDisabled, - js_setType, setType, js_getType, getType, js_setMedia, setMedia, - js_getMedia, getMedia, js_setTitle, setTitle, js_getTitle, - getTitle, SVGStyleElement, castToSVGStyleElement, - gTypeSVGStyleElement) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"disabled\"] = $2;" - js_setDisabled :: SVGStyleElement -> Bool -> IO () - --- | -setDisabled :: (MonadIO m) => SVGStyleElement -> Bool -> m () -setDisabled self val = liftIO (js_setDisabled (self) val) - -foreign import javascript unsafe "($1[\"disabled\"] ? 1 : 0)" - js_getDisabled :: SVGStyleElement -> IO Bool - --- | -getDisabled :: (MonadIO m) => SVGStyleElement -> m Bool -getDisabled self = liftIO (js_getDisabled (self)) - -foreign import javascript unsafe "$1[\"type\"] = $2;" js_setType :: - SVGStyleElement -> JSString -> IO () - --- | -setType :: - (MonadIO m, ToJSString val) => SVGStyleElement -> val -> m () -setType self val = liftIO (js_setType (self) (toJSString val)) - -foreign import javascript unsafe "$1[\"type\"]" js_getType :: - SVGStyleElement -> IO JSString - --- | -getType :: - (MonadIO m, FromJSString result) => SVGStyleElement -> m result -getType self = liftIO (fromJSString <$> (js_getType (self))) - -foreign import javascript unsafe "$1[\"media\"] = $2;" js_setMedia - :: SVGStyleElement -> JSString -> IO () - --- | -setMedia :: - (MonadIO m, ToJSString val) => SVGStyleElement -> val -> m () -setMedia self val = liftIO (js_setMedia (self) (toJSString val)) - -foreign import javascript unsafe "$1[\"media\"]" js_getMedia :: - SVGStyleElement -> IO JSString - --- | -getMedia :: - (MonadIO m, FromJSString result) => SVGStyleElement -> m result -getMedia self = liftIO (fromJSString <$> (js_getMedia (self))) - -foreign import javascript unsafe "$1[\"title\"] = $2;" js_setTitle - :: SVGStyleElement -> JSString -> IO () - --- | -setTitle :: - (MonadIO m, ToJSString val) => SVGStyleElement -> val -> m () -setTitle self val = liftIO (js_setTitle (self) (toJSString val)) - -foreign import javascript unsafe "$1[\"title\"]" js_getTitle :: - SVGStyleElement -> IO JSString - --- | -getTitle :: - (MonadIO m, FromJSString result) => SVGStyleElement -> m result -getTitle self = liftIO (fromJSString <$> (js_getTitle (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/SVGTests.hs b/src/GHCJS/DOM/JSFFI/Generated/SVGTests.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/SVGTests.hs +++ /dev/null @@ -1,59 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.SVGTests - (js_hasExtension, hasExtension, js_getRequiredFeatures, - getRequiredFeatures, js_getRequiredExtensions, - getRequiredExtensions, js_getSystemLanguage, getSystemLanguage, - SVGTests, castToSVGTests, gTypeSVGTests) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe - "($1[\"hasExtension\"]($2) ? 1 : 0)" js_hasExtension :: - SVGTests -> JSString -> IO Bool - --- | -hasExtension :: - (MonadIO m, ToJSString extension) => - SVGTests -> extension -> m Bool -hasExtension self extension - = liftIO (js_hasExtension (self) (toJSString extension)) - -foreign import javascript unsafe "$1[\"requiredFeatures\"]" - js_getRequiredFeatures :: SVGTests -> IO (Nullable SVGStringList) - --- | -getRequiredFeatures :: - (MonadIO m) => SVGTests -> m (Maybe SVGStringList) -getRequiredFeatures self - = liftIO (nullableToMaybe <$> (js_getRequiredFeatures (self))) - -foreign import javascript unsafe "$1[\"requiredExtensions\"]" - js_getRequiredExtensions :: SVGTests -> IO (Nullable SVGStringList) - --- | -getRequiredExtensions :: - (MonadIO m) => SVGTests -> m (Maybe SVGStringList) -getRequiredExtensions self - = liftIO (nullableToMaybe <$> (js_getRequiredExtensions (self))) - -foreign import javascript unsafe "$1[\"systemLanguage\"]" - js_getSystemLanguage :: SVGTests -> IO (Nullable SVGStringList) - --- | -getSystemLanguage :: - (MonadIO m) => SVGTests -> m (Maybe SVGStringList) -getSystemLanguage self - = liftIO (nullableToMaybe <$> (js_getSystemLanguage (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/SVGTextContentElement.hs b/src/GHCJS/DOM/JSFFI/Generated/SVGTextContentElement.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/SVGTextContentElement.hs +++ /dev/null @@ -1,165 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.SVGTextContentElement - (js_getNumberOfChars, getNumberOfChars, js_getComputedTextLength, - getComputedTextLength, js_getSubStringLength, getSubStringLength, - js_getStartPositionOfChar, getStartPositionOfChar, - js_getEndPositionOfChar, getEndPositionOfChar, js_getExtentOfChar, - getExtentOfChar, js_getRotationOfChar, getRotationOfChar, - js_getCharNumAtPosition, getCharNumAtPosition, js_selectSubString, - selectSubString, pattern LENGTHADJUST_UNKNOWN, - pattern LENGTHADJUST_SPACING, - pattern LENGTHADJUST_SPACINGANDGLYPHS, js_getTextLength, - getTextLength, js_getLengthAdjust, getLengthAdjust, - SVGTextContentElement, castToSVGTextContentElement, - gTypeSVGTextContentElement, IsSVGTextContentElement, - toSVGTextContentElement) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"getNumberOfChars\"]()" - js_getNumberOfChars :: SVGTextContentElement -> IO Int - --- | -getNumberOfChars :: - (MonadIO m, IsSVGTextContentElement self) => self -> m Int -getNumberOfChars self - = liftIO (js_getNumberOfChars (toSVGTextContentElement self)) - -foreign import javascript unsafe "$1[\"getComputedTextLength\"]()" - js_getComputedTextLength :: SVGTextContentElement -> IO Float - --- | -getComputedTextLength :: - (MonadIO m, IsSVGTextContentElement self) => self -> m Float -getComputedTextLength self - = liftIO (js_getComputedTextLength (toSVGTextContentElement self)) - -foreign import javascript unsafe - "$1[\"getSubStringLength\"]($2, $3)" js_getSubStringLength :: - SVGTextContentElement -> Word -> Word -> IO Float - --- | -getSubStringLength :: - (MonadIO m, IsSVGTextContentElement self) => - self -> Word -> Word -> m Float -getSubStringLength self offset length - = liftIO - (js_getSubStringLength (toSVGTextContentElement self) offset - length) - -foreign import javascript unsafe - "$1[\"getStartPositionOfChar\"]($2)" js_getStartPositionOfChar :: - SVGTextContentElement -> Word -> IO (Nullable SVGPoint) - --- | -getStartPositionOfChar :: - (MonadIO m, IsSVGTextContentElement self) => - self -> Word -> m (Maybe SVGPoint) -getStartPositionOfChar self offset - = liftIO - (nullableToMaybe <$> - (js_getStartPositionOfChar (toSVGTextContentElement self) offset)) - -foreign import javascript unsafe "$1[\"getEndPositionOfChar\"]($2)" - js_getEndPositionOfChar :: - SVGTextContentElement -> Word -> IO (Nullable SVGPoint) - --- | -getEndPositionOfChar :: - (MonadIO m, IsSVGTextContentElement self) => - self -> Word -> m (Maybe SVGPoint) -getEndPositionOfChar self offset - = liftIO - (nullableToMaybe <$> - (js_getEndPositionOfChar (toSVGTextContentElement self) offset)) - -foreign import javascript unsafe "$1[\"getExtentOfChar\"]($2)" - js_getExtentOfChar :: - SVGTextContentElement -> Word -> IO (Nullable SVGRect) - --- | -getExtentOfChar :: - (MonadIO m, IsSVGTextContentElement self) => - self -> Word -> m (Maybe SVGRect) -getExtentOfChar self offset - = liftIO - (nullableToMaybe <$> - (js_getExtentOfChar (toSVGTextContentElement self) offset)) - -foreign import javascript unsafe "$1[\"getRotationOfChar\"]($2)" - js_getRotationOfChar :: SVGTextContentElement -> Word -> IO Float - --- | -getRotationOfChar :: - (MonadIO m, IsSVGTextContentElement self) => - self -> Word -> m Float -getRotationOfChar self offset - = liftIO - (js_getRotationOfChar (toSVGTextContentElement self) offset) - -foreign import javascript unsafe "$1[\"getCharNumAtPosition\"]($2)" - js_getCharNumAtPosition :: - SVGTextContentElement -> Nullable SVGPoint -> IO Int - --- | -getCharNumAtPosition :: - (MonadIO m, IsSVGTextContentElement self) => - self -> Maybe SVGPoint -> m Int -getCharNumAtPosition self point - = liftIO - (js_getCharNumAtPosition (toSVGTextContentElement self) - (maybeToNullable point)) - -foreign import javascript unsafe "$1[\"selectSubString\"]($2, $3)" - js_selectSubString :: - SVGTextContentElement -> Word -> Word -> IO () - --- | -selectSubString :: - (MonadIO m, IsSVGTextContentElement self) => - self -> Word -> Word -> m () -selectSubString self offset length - = liftIO - (js_selectSubString (toSVGTextContentElement self) offset length) -pattern LENGTHADJUST_UNKNOWN = 0 -pattern LENGTHADJUST_SPACING = 1 -pattern LENGTHADJUST_SPACINGANDGLYPHS = 2 - -foreign import javascript unsafe "$1[\"textLength\"]" - js_getTextLength :: - SVGTextContentElement -> IO (Nullable SVGAnimatedLength) - --- | -getTextLength :: - (MonadIO m, IsSVGTextContentElement self) => - self -> m (Maybe SVGAnimatedLength) -getTextLength self - = liftIO - (nullableToMaybe <$> - (js_getTextLength (toSVGTextContentElement self))) - -foreign import javascript unsafe "$1[\"lengthAdjust\"]" - js_getLengthAdjust :: - SVGTextContentElement -> IO (Nullable SVGAnimatedEnumeration) - --- | -getLengthAdjust :: - (MonadIO m, IsSVGTextContentElement self) => - self -> m (Maybe SVGAnimatedEnumeration) -getLengthAdjust self - = liftIO - (nullableToMaybe <$> - (js_getLengthAdjust (toSVGTextContentElement self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/SVGTextPathElement.hs b/src/GHCJS/DOM/JSFFI/Generated/SVGTextPathElement.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/SVGTextPathElement.hs +++ /dev/null @@ -1,61 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.SVGTextPathElement - (pattern TEXTPATH_METHODTYPE_UNKNOWN, - pattern TEXTPATH_METHODTYPE_ALIGN, - pattern TEXTPATH_METHODTYPE_STRETCH, - pattern TEXTPATH_SPACINGTYPE_UNKNOWN, - pattern TEXTPATH_SPACINGTYPE_AUTO, - pattern TEXTPATH_SPACINGTYPE_EXACT, js_getStartOffset, - getStartOffset, js_getMethod, getMethod, js_getSpacing, getSpacing, - SVGTextPathElement, castToSVGTextPathElement, - gTypeSVGTextPathElement) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums -pattern TEXTPATH_METHODTYPE_UNKNOWN = 0 -pattern TEXTPATH_METHODTYPE_ALIGN = 1 -pattern TEXTPATH_METHODTYPE_STRETCH = 2 -pattern TEXTPATH_SPACINGTYPE_UNKNOWN = 0 -pattern TEXTPATH_SPACINGTYPE_AUTO = 1 -pattern TEXTPATH_SPACINGTYPE_EXACT = 2 - -foreign import javascript unsafe "$1[\"startOffset\"]" - js_getStartOffset :: - SVGTextPathElement -> IO (Nullable SVGAnimatedLength) - --- | -getStartOffset :: - (MonadIO m) => SVGTextPathElement -> m (Maybe SVGAnimatedLength) -getStartOffset self - = liftIO (nullableToMaybe <$> (js_getStartOffset (self))) - -foreign import javascript unsafe "$1[\"method\"]" js_getMethod :: - SVGTextPathElement -> IO (Nullable SVGAnimatedEnumeration) - --- | -getMethod :: - (MonadIO m) => - SVGTextPathElement -> m (Maybe SVGAnimatedEnumeration) -getMethod self = liftIO (nullableToMaybe <$> (js_getMethod (self))) - -foreign import javascript unsafe "$1[\"spacing\"]" js_getSpacing :: - SVGTextPathElement -> IO (Nullable SVGAnimatedEnumeration) - --- | -getSpacing :: - (MonadIO m) => - SVGTextPathElement -> m (Maybe SVGAnimatedEnumeration) -getSpacing self - = liftIO (nullableToMaybe <$> (js_getSpacing (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/SVGTextPositioningElement.hs b/src/GHCJS/DOM/JSFFI/Generated/SVGTextPositioningElement.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/SVGTextPositioningElement.hs +++ /dev/null @@ -1,77 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.SVGTextPositioningElement - (js_getX, getX, js_getY, getY, js_getDx, getDx, js_getDy, getDy, - js_getRotate, getRotate, SVGTextPositioningElement, - castToSVGTextPositioningElement, gTypeSVGTextPositioningElement, - IsSVGTextPositioningElement, toSVGTextPositioningElement) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"x\"]" js_getX :: - SVGTextPositioningElement -> IO (Nullable SVGAnimatedLengthList) - --- | -getX :: - (MonadIO m, IsSVGTextPositioningElement self) => - self -> m (Maybe SVGAnimatedLengthList) -getX self - = liftIO - (nullableToMaybe <$> (js_getX (toSVGTextPositioningElement self))) - -foreign import javascript unsafe "$1[\"y\"]" js_getY :: - SVGTextPositioningElement -> IO (Nullable SVGAnimatedLengthList) - --- | -getY :: - (MonadIO m, IsSVGTextPositioningElement self) => - self -> m (Maybe SVGAnimatedLengthList) -getY self - = liftIO - (nullableToMaybe <$> (js_getY (toSVGTextPositioningElement self))) - -foreign import javascript unsafe "$1[\"dx\"]" js_getDx :: - SVGTextPositioningElement -> IO (Nullable SVGAnimatedLengthList) - --- | -getDx :: - (MonadIO m, IsSVGTextPositioningElement self) => - self -> m (Maybe SVGAnimatedLengthList) -getDx self - = liftIO - (nullableToMaybe <$> (js_getDx (toSVGTextPositioningElement self))) - -foreign import javascript unsafe "$1[\"dy\"]" js_getDy :: - SVGTextPositioningElement -> IO (Nullable SVGAnimatedLengthList) - --- | -getDy :: - (MonadIO m, IsSVGTextPositioningElement self) => - self -> m (Maybe SVGAnimatedLengthList) -getDy self - = liftIO - (nullableToMaybe <$> (js_getDy (toSVGTextPositioningElement self))) - -foreign import javascript unsafe "$1[\"rotate\"]" js_getRotate :: - SVGTextPositioningElement -> IO (Nullable SVGAnimatedNumberList) - --- | -getRotate :: - (MonadIO m, IsSVGTextPositioningElement self) => - self -> m (Maybe SVGAnimatedNumberList) -getRotate self - = liftIO - (nullableToMaybe <$> - (js_getRotate (toSVGTextPositioningElement self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/SVGTransform.hs b/src/GHCJS/DOM/JSFFI/Generated/SVGTransform.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/SVGTransform.hs +++ /dev/null @@ -1,99 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.SVGTransform - (js_setMatrix, setMatrix, js_setTranslate, setTranslate, - js_setScale, setScale, js_setRotate, setRotate, js_setSkewX, - setSkewX, js_setSkewY, setSkewY, pattern SVG_TRANSFORM_UNKNOWN, - pattern SVG_TRANSFORM_MATRIX, pattern SVG_TRANSFORM_TRANSLATE, - pattern SVG_TRANSFORM_SCALE, pattern SVG_TRANSFORM_ROTATE, - pattern SVG_TRANSFORM_SKEWX, pattern SVG_TRANSFORM_SKEWY, - js_getType, getType, js_getMatrix, getMatrix, js_getAngle, - getAngle, SVGTransform, castToSVGTransform, gTypeSVGTransform) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"setMatrix\"]($2)" - js_setMatrix :: SVGTransform -> Nullable SVGMatrix -> IO () - --- | -setMatrix :: (MonadIO m) => SVGTransform -> Maybe SVGMatrix -> m () -setMatrix self matrix - = liftIO (js_setMatrix (self) (maybeToNullable matrix)) - -foreign import javascript unsafe "$1[\"setTranslate\"]($2, $3)" - js_setTranslate :: SVGTransform -> Float -> Float -> IO () - --- | -setTranslate :: - (MonadIO m) => SVGTransform -> Float -> Float -> m () -setTranslate self tx ty = liftIO (js_setTranslate (self) tx ty) - -foreign import javascript unsafe "$1[\"setScale\"]($2, $3)" - js_setScale :: SVGTransform -> Float -> Float -> IO () - --- | -setScale :: (MonadIO m) => SVGTransform -> Float -> Float -> m () -setScale self sx sy = liftIO (js_setScale (self) sx sy) - -foreign import javascript unsafe "$1[\"setRotate\"]($2, $3, $4)" - js_setRotate :: SVGTransform -> Float -> Float -> Float -> IO () - --- | -setRotate :: - (MonadIO m) => SVGTransform -> Float -> Float -> Float -> m () -setRotate self angle cx cy - = liftIO (js_setRotate (self) angle cx cy) - -foreign import javascript unsafe "$1[\"setSkewX\"]($2)" js_setSkewX - :: SVGTransform -> Float -> IO () - --- | -setSkewX :: (MonadIO m) => SVGTransform -> Float -> m () -setSkewX self angle = liftIO (js_setSkewX (self) angle) - -foreign import javascript unsafe "$1[\"setSkewY\"]($2)" js_setSkewY - :: SVGTransform -> Float -> IO () - --- | -setSkewY :: (MonadIO m) => SVGTransform -> Float -> m () -setSkewY self angle = liftIO (js_setSkewY (self) angle) -pattern SVG_TRANSFORM_UNKNOWN = 0 -pattern SVG_TRANSFORM_MATRIX = 1 -pattern SVG_TRANSFORM_TRANSLATE = 2 -pattern SVG_TRANSFORM_SCALE = 3 -pattern SVG_TRANSFORM_ROTATE = 4 -pattern SVG_TRANSFORM_SKEWX = 5 -pattern SVG_TRANSFORM_SKEWY = 6 - -foreign import javascript unsafe "$1[\"type\"]" js_getType :: - SVGTransform -> IO Word - --- | -getType :: (MonadIO m) => SVGTransform -> m Word -getType self = liftIO (js_getType (self)) - -foreign import javascript unsafe "$1[\"matrix\"]" js_getMatrix :: - SVGTransform -> IO (Nullable SVGMatrix) - --- | -getMatrix :: (MonadIO m) => SVGTransform -> m (Maybe SVGMatrix) -getMatrix self = liftIO (nullableToMaybe <$> (js_getMatrix (self))) - -foreign import javascript unsafe "$1[\"angle\"]" js_getAngle :: - SVGTransform -> IO Float - --- | -getAngle :: (MonadIO m) => SVGTransform -> m Float -getAngle self = liftIO (js_getAngle (self)) diff --git a/src/GHCJS/DOM/JSFFI/Generated/SVGTransformList.hs b/src/GHCJS/DOM/JSFFI/Generated/SVGTransformList.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/SVGTransformList.hs +++ /dev/null @@ -1,136 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.SVGTransformList - (js_clear, clear, js_initialize, initialize, js_getItem, getItem, - js_insertItemBefore, insertItemBefore, js_replaceItem, replaceItem, - js_removeItem, removeItem, js_appendItem, appendItem, - js_createSVGTransformFromMatrix, createSVGTransformFromMatrix, - js_consolidate, consolidate, js_getNumberOfItems, getNumberOfItems, - SVGTransformList, castToSVGTransformList, gTypeSVGTransformList) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"clear\"]()" js_clear :: - SVGTransformList -> IO () - --- | -clear :: (MonadIO m) => SVGTransformList -> m () -clear self = liftIO (js_clear (self)) - -foreign import javascript unsafe "$1[\"initialize\"]($2)" - js_initialize :: - SVGTransformList -> - Nullable SVGTransform -> IO (Nullable SVGTransform) - --- | -initialize :: - (MonadIO m) => - SVGTransformList -> Maybe SVGTransform -> m (Maybe SVGTransform) -initialize self item - = liftIO - (nullableToMaybe <$> (js_initialize (self) (maybeToNullable item))) - -foreign import javascript unsafe "$1[\"getItem\"]($2)" js_getItem - :: SVGTransformList -> Word -> IO (Nullable SVGTransform) - --- | -getItem :: - (MonadIO m) => SVGTransformList -> Word -> m (Maybe SVGTransform) -getItem self index - = liftIO (nullableToMaybe <$> (js_getItem (self) index)) - -foreign import javascript unsafe "$1[\"insertItemBefore\"]($2, $3)" - js_insertItemBefore :: - SVGTransformList -> - Nullable SVGTransform -> Word -> IO (Nullable SVGTransform) - --- | -insertItemBefore :: - (MonadIO m) => - SVGTransformList -> - Maybe SVGTransform -> Word -> m (Maybe SVGTransform) -insertItemBefore self item index - = liftIO - (nullableToMaybe <$> - (js_insertItemBefore (self) (maybeToNullable item) index)) - -foreign import javascript unsafe "$1[\"replaceItem\"]($2, $3)" - js_replaceItem :: - SVGTransformList -> - Nullable SVGTransform -> Word -> IO (Nullable SVGTransform) - --- | -replaceItem :: - (MonadIO m) => - SVGTransformList -> - Maybe SVGTransform -> Word -> m (Maybe SVGTransform) -replaceItem self item index - = liftIO - (nullableToMaybe <$> - (js_replaceItem (self) (maybeToNullable item) index)) - -foreign import javascript unsafe "$1[\"removeItem\"]($2)" - js_removeItem :: - SVGTransformList -> Word -> IO (Nullable SVGTransform) - --- | -removeItem :: - (MonadIO m) => SVGTransformList -> Word -> m (Maybe SVGTransform) -removeItem self index - = liftIO (nullableToMaybe <$> (js_removeItem (self) index)) - -foreign import javascript unsafe "$1[\"appendItem\"]($2)" - js_appendItem :: - SVGTransformList -> - Nullable SVGTransform -> IO (Nullable SVGTransform) - --- | -appendItem :: - (MonadIO m) => - SVGTransformList -> Maybe SVGTransform -> m (Maybe SVGTransform) -appendItem self item - = liftIO - (nullableToMaybe <$> (js_appendItem (self) (maybeToNullable item))) - -foreign import javascript unsafe - "$1[\"createSVGTransformFromMatrix\"]($2)" - js_createSVGTransformFromMatrix :: - SVGTransformList -> - Nullable SVGMatrix -> IO (Nullable SVGTransform) - --- | -createSVGTransformFromMatrix :: - (MonadIO m) => - SVGTransformList -> Maybe SVGMatrix -> m (Maybe SVGTransform) -createSVGTransformFromMatrix self matrix - = liftIO - (nullableToMaybe <$> - (js_createSVGTransformFromMatrix (self) (maybeToNullable matrix))) - -foreign import javascript unsafe "$1[\"consolidate\"]()" - js_consolidate :: SVGTransformList -> IO (Nullable SVGTransform) - --- | -consolidate :: - (MonadIO m) => SVGTransformList -> m (Maybe SVGTransform) -consolidate self - = liftIO (nullableToMaybe <$> (js_consolidate (self))) - -foreign import javascript unsafe "$1[\"numberOfItems\"]" - js_getNumberOfItems :: SVGTransformList -> IO Word - --- | -getNumberOfItems :: (MonadIO m) => SVGTransformList -> m Word -getNumberOfItems self = liftIO (js_getNumberOfItems (self)) diff --git a/src/GHCJS/DOM/JSFFI/Generated/SVGURIReference.hs b/src/GHCJS/DOM/JSFFI/Generated/SVGURIReference.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/SVGURIReference.hs +++ /dev/null @@ -1,27 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.SVGURIReference - (js_getHref, getHref, SVGURIReference, castToSVGURIReference, - gTypeSVGURIReference) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"href\"]" js_getHref :: - SVGURIReference -> IO (Nullable SVGAnimatedString) - --- | -getHref :: - (MonadIO m) => SVGURIReference -> m (Maybe SVGAnimatedString) -getHref self = liftIO (nullableToMaybe <$> (js_getHref (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/SVGUnitTypes.hs b/src/GHCJS/DOM/JSFFI/Generated/SVGUnitTypes.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/SVGUnitTypes.hs +++ /dev/null @@ -1,24 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.SVGUnitTypes - (pattern SVG_UNIT_TYPE_UNKNOWN, - pattern SVG_UNIT_TYPE_USERSPACEONUSE, - pattern SVG_UNIT_TYPE_OBJECTBOUNDINGBOX, SVGUnitTypes, - castToSVGUnitTypes, gTypeSVGUnitTypes) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums -pattern SVG_UNIT_TYPE_UNKNOWN = 0 -pattern SVG_UNIT_TYPE_USERSPACEONUSE = 1 -pattern SVG_UNIT_TYPE_OBJECTBOUNDINGBOX = 2 diff --git a/src/GHCJS/DOM/JSFFI/Generated/SVGUseElement.hs b/src/GHCJS/DOM/JSFFI/Generated/SVGUseElement.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/SVGUseElement.hs +++ /dev/null @@ -1,49 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.SVGUseElement - (js_getX, getX, js_getY, getY, js_getWidth, getWidth, js_getHeight, - getHeight, SVGUseElement, castToSVGUseElement, gTypeSVGUseElement) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"x\"]" js_getX :: - SVGUseElement -> IO (Nullable SVGAnimatedLength) - --- | -getX :: (MonadIO m) => SVGUseElement -> m (Maybe SVGAnimatedLength) -getX self = liftIO (nullableToMaybe <$> (js_getX (self))) - -foreign import javascript unsafe "$1[\"y\"]" js_getY :: - SVGUseElement -> IO (Nullable SVGAnimatedLength) - --- | -getY :: (MonadIO m) => SVGUseElement -> m (Maybe SVGAnimatedLength) -getY self = liftIO (nullableToMaybe <$> (js_getY (self))) - -foreign import javascript unsafe "$1[\"width\"]" js_getWidth :: - SVGUseElement -> IO (Nullable SVGAnimatedLength) - --- | -getWidth :: - (MonadIO m) => SVGUseElement -> m (Maybe SVGAnimatedLength) -getWidth self = liftIO (nullableToMaybe <$> (js_getWidth (self))) - -foreign import javascript unsafe "$1[\"height\"]" js_getHeight :: - SVGUseElement -> IO (Nullable SVGAnimatedLength) - --- | -getHeight :: - (MonadIO m) => SVGUseElement -> m (Maybe SVGAnimatedLength) -getHeight self = liftIO (nullableToMaybe <$> (js_getHeight (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/SVGViewElement.hs b/src/GHCJS/DOM/JSFFI/Generated/SVGViewElement.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/SVGViewElement.hs +++ /dev/null @@ -1,28 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.SVGViewElement - (js_getViewTarget, getViewTarget, SVGViewElement, - castToSVGViewElement, gTypeSVGViewElement) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"viewTarget\"]" - js_getViewTarget :: SVGViewElement -> IO (Nullable SVGStringList) - --- | -getViewTarget :: - (MonadIO m) => SVGViewElement -> m (Maybe SVGStringList) -getViewTarget self - = liftIO (nullableToMaybe <$> (js_getViewTarget (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/SVGViewSpec.hs b/src/GHCJS/DOM/JSFFI/Generated/SVGViewSpec.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/SVGViewSpec.hs +++ /dev/null @@ -1,93 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.SVGViewSpec - (js_getTransform, getTransform, js_getViewTarget, getViewTarget, - js_getViewBoxString, getViewBoxString, - js_getPreserveAspectRatioString, getPreserveAspectRatioString, - js_getTransformString, getTransformString, js_getViewTargetString, - getViewTargetString, js_setZoomAndPan, setZoomAndPan, - js_getZoomAndPan, getZoomAndPan, SVGViewSpec, castToSVGViewSpec, - gTypeSVGViewSpec) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"transform\"]" - js_getTransform :: SVGViewSpec -> IO (Nullable SVGTransformList) - --- | -getTransform :: - (MonadIO m) => SVGViewSpec -> m (Maybe SVGTransformList) -getTransform self - = liftIO (nullableToMaybe <$> (js_getTransform (self))) - -foreign import javascript unsafe "$1[\"viewTarget\"]" - js_getViewTarget :: SVGViewSpec -> IO (Nullable SVGElement) - --- | -getViewTarget :: (MonadIO m) => SVGViewSpec -> m (Maybe SVGElement) -getViewTarget self - = liftIO (nullableToMaybe <$> (js_getViewTarget (self))) - -foreign import javascript unsafe "$1[\"viewBoxString\"]" - js_getViewBoxString :: SVGViewSpec -> IO JSString - --- | -getViewBoxString :: - (MonadIO m, FromJSString result) => SVGViewSpec -> m result -getViewBoxString self - = liftIO (fromJSString <$> (js_getViewBoxString (self))) - -foreign import javascript unsafe - "$1[\"preserveAspectRatioString\"]" js_getPreserveAspectRatioString - :: SVGViewSpec -> IO JSString - --- | -getPreserveAspectRatioString :: - (MonadIO m, FromJSString result) => SVGViewSpec -> m result -getPreserveAspectRatioString self - = liftIO - (fromJSString <$> (js_getPreserveAspectRatioString (self))) - -foreign import javascript unsafe "$1[\"transformString\"]" - js_getTransformString :: SVGViewSpec -> IO JSString - --- | -getTransformString :: - (MonadIO m, FromJSString result) => SVGViewSpec -> m result -getTransformString self - = liftIO (fromJSString <$> (js_getTransformString (self))) - -foreign import javascript unsafe "$1[\"viewTargetString\"]" - js_getViewTargetString :: SVGViewSpec -> IO JSString - --- | -getViewTargetString :: - (MonadIO m, FromJSString result) => SVGViewSpec -> m result -getViewTargetString self - = liftIO (fromJSString <$> (js_getViewTargetString (self))) - -foreign import javascript unsafe "$1[\"zoomAndPan\"] = $2;" - js_setZoomAndPan :: SVGViewSpec -> Word -> IO () - --- | -setZoomAndPan :: (MonadIO m) => SVGViewSpec -> Word -> m () -setZoomAndPan self val = liftIO (js_setZoomAndPan (self) val) - -foreign import javascript unsafe "$1[\"zoomAndPan\"]" - js_getZoomAndPan :: SVGViewSpec -> IO Word - --- | -getZoomAndPan :: (MonadIO m) => SVGViewSpec -> m Word -getZoomAndPan self = liftIO (js_getZoomAndPan (self)) diff --git a/src/GHCJS/DOM/JSFFI/Generated/SVGZoomAndPan.hs b/src/GHCJS/DOM/JSFFI/Generated/SVGZoomAndPan.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/SVGZoomAndPan.hs +++ /dev/null @@ -1,38 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.SVGZoomAndPan - (pattern SVG_ZOOMANDPAN_UNKNOWN, pattern SVG_ZOOMANDPAN_DISABLE, - pattern SVG_ZOOMANDPAN_MAGNIFY, js_setZoomAndPan, setZoomAndPan, - js_getZoomAndPan, getZoomAndPan, SVGZoomAndPan, - castToSVGZoomAndPan, gTypeSVGZoomAndPan) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums -pattern SVG_ZOOMANDPAN_UNKNOWN = 0 -pattern SVG_ZOOMANDPAN_DISABLE = 1 -pattern SVG_ZOOMANDPAN_MAGNIFY = 2 - -foreign import javascript unsafe "$1[\"zoomAndPan\"] = $2;" - js_setZoomAndPan :: SVGZoomAndPan -> Word -> IO () - --- | -setZoomAndPan :: (MonadIO m) => SVGZoomAndPan -> Word -> m () -setZoomAndPan self val = liftIO (js_setZoomAndPan (self) val) - -foreign import javascript unsafe "$1[\"zoomAndPan\"]" - js_getZoomAndPan :: SVGZoomAndPan -> IO Word - --- | -getZoomAndPan :: (MonadIO m) => SVGZoomAndPan -> m Word -getZoomAndPan self = liftIO (js_getZoomAndPan (self)) diff --git a/src/GHCJS/DOM/JSFFI/Generated/SVGZoomEvent.hs b/src/GHCJS/DOM/JSFFI/Generated/SVGZoomEvent.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/SVGZoomEvent.hs +++ /dev/null @@ -1,62 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.SVGZoomEvent - (js_getZoomRectScreen, getZoomRectScreen, js_getPreviousScale, - getPreviousScale, js_getPreviousTranslate, getPreviousTranslate, - js_getNewScale, getNewScale, js_getNewTranslate, getNewTranslate, - SVGZoomEvent, castToSVGZoomEvent, gTypeSVGZoomEvent) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"zoomRectScreen\"]" - js_getZoomRectScreen :: SVGZoomEvent -> IO (Nullable SVGRect) - --- | -getZoomRectScreen :: - (MonadIO m) => SVGZoomEvent -> m (Maybe SVGRect) -getZoomRectScreen self - = liftIO (nullableToMaybe <$> (js_getZoomRectScreen (self))) - -foreign import javascript unsafe "$1[\"previousScale\"]" - js_getPreviousScale :: SVGZoomEvent -> IO Float - --- | -getPreviousScale :: (MonadIO m) => SVGZoomEvent -> m Float -getPreviousScale self = liftIO (js_getPreviousScale (self)) - -foreign import javascript unsafe "$1[\"previousTranslate\"]" - js_getPreviousTranslate :: SVGZoomEvent -> IO (Nullable SVGPoint) - --- | -getPreviousTranslate :: - (MonadIO m) => SVGZoomEvent -> m (Maybe SVGPoint) -getPreviousTranslate self - = liftIO (nullableToMaybe <$> (js_getPreviousTranslate (self))) - -foreign import javascript unsafe "$1[\"newScale\"]" js_getNewScale - :: SVGZoomEvent -> IO Float - --- | -getNewScale :: (MonadIO m) => SVGZoomEvent -> m Float -getNewScale self = liftIO (js_getNewScale (self)) - -foreign import javascript unsafe "$1[\"newTranslate\"]" - js_getNewTranslate :: SVGZoomEvent -> IO (Nullable SVGPoint) - --- | -getNewTranslate :: - (MonadIO m) => SVGZoomEvent -> m (Maybe SVGPoint) -getNewTranslate self - = liftIO (nullableToMaybe <$> (js_getNewTranslate (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/Screen.hs b/src/GHCJS/DOM/JSFFI/Generated/Screen.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/Screen.hs +++ /dev/null @@ -1,78 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.Screen - (js_getHeight, getHeight, js_getWidth, getWidth, js_getColorDepth, - getColorDepth, js_getPixelDepth, getPixelDepth, js_getAvailLeft, - getAvailLeft, js_getAvailTop, getAvailTop, js_getAvailHeight, - getAvailHeight, js_getAvailWidth, getAvailWidth, Screen, - castToScreen, gTypeScreen) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"height\"]" js_getHeight :: - Screen -> IO Word - --- | -getHeight :: (MonadIO m) => Screen -> m Word -getHeight self = liftIO (js_getHeight (self)) - -foreign import javascript unsafe "$1[\"width\"]" js_getWidth :: - Screen -> IO Word - --- | -getWidth :: (MonadIO m) => Screen -> m Word -getWidth self = liftIO (js_getWidth (self)) - -foreign import javascript unsafe "$1[\"colorDepth\"]" - js_getColorDepth :: Screen -> IO Word - --- | -getColorDepth :: (MonadIO m) => Screen -> m Word -getColorDepth self = liftIO (js_getColorDepth (self)) - -foreign import javascript unsafe "$1[\"pixelDepth\"]" - js_getPixelDepth :: Screen -> IO Word - --- | -getPixelDepth :: (MonadIO m) => Screen -> m Word -getPixelDepth self = liftIO (js_getPixelDepth (self)) - -foreign import javascript unsafe "$1[\"availLeft\"]" - js_getAvailLeft :: Screen -> IO Int - --- | -getAvailLeft :: (MonadIO m) => Screen -> m Int -getAvailLeft self = liftIO (js_getAvailLeft (self)) - -foreign import javascript unsafe "$1[\"availTop\"]" js_getAvailTop - :: Screen -> IO Int - --- | -getAvailTop :: (MonadIO m) => Screen -> m Int -getAvailTop self = liftIO (js_getAvailTop (self)) - -foreign import javascript unsafe "$1[\"availHeight\"]" - js_getAvailHeight :: Screen -> IO Word - --- | -getAvailHeight :: (MonadIO m) => Screen -> m Word -getAvailHeight self = liftIO (js_getAvailHeight (self)) - -foreign import javascript unsafe "$1[\"availWidth\"]" - js_getAvailWidth :: Screen -> IO Word - --- | -getAvailWidth :: (MonadIO m) => Screen -> m Word -getAvailWidth self = liftIO (js_getAvailWidth (self)) diff --git a/src/GHCJS/DOM/JSFFI/Generated/ScriptProcessorNode.hs b/src/GHCJS/DOM/JSFFI/Generated/ScriptProcessorNode.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/ScriptProcessorNode.hs +++ /dev/null @@ -1,31 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.ScriptProcessorNode - (audioProcess, js_getBufferSize, getBufferSize, - ScriptProcessorNode, castToScriptProcessorNode, - gTypeScriptProcessorNode) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - --- | -audioProcess :: EventName ScriptProcessorNode AudioProcessingEvent -audioProcess = unsafeEventName (toJSString "audioprocess") - -foreign import javascript unsafe "$1[\"bufferSize\"]" - js_getBufferSize :: ScriptProcessorNode -> IO Int - --- | -getBufferSize :: (MonadIO m) => ScriptProcessorNode -> m Int -getBufferSize self = liftIO (js_getBufferSize (self)) diff --git a/src/GHCJS/DOM/JSFFI/Generated/ScriptProfile.hs b/src/GHCJS/DOM/JSFFI/Generated/ScriptProfile.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/ScriptProfile.hs +++ /dev/null @@ -1,44 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.ScriptProfile - (js_getTitle, getTitle, js_getUid, getUid, js_getRootNode, - getRootNode, ScriptProfile, castToScriptProfile, - gTypeScriptProfile) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"title\"]" js_getTitle :: - ScriptProfile -> IO JSString - --- | -getTitle :: - (MonadIO m, FromJSString result) => ScriptProfile -> m result -getTitle self = liftIO (fromJSString <$> (js_getTitle (self))) - -foreign import javascript unsafe "$1[\"uid\"]" js_getUid :: - ScriptProfile -> IO Word - --- | -getUid :: (MonadIO m) => ScriptProfile -> m Word -getUid self = liftIO (js_getUid (self)) - -foreign import javascript unsafe "$1[\"rootNode\"]" js_getRootNode - :: ScriptProfile -> IO (Nullable ScriptProfileNode) - --- | -getRootNode :: - (MonadIO m) => ScriptProfile -> m (Maybe ScriptProfileNode) -getRootNode self - = liftIO (nullableToMaybe <$> (js_getRootNode (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/ScriptProfileNode.hs b/src/GHCJS/DOM/JSFFI/Generated/ScriptProfileNode.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/ScriptProfileNode.hs +++ /dev/null @@ -1,68 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.ScriptProfileNode - (js_children, children, js_getId, getId, js_getFunctionName, - getFunctionName, js_getUrl, getUrl, js_getLineNumber, - getLineNumber, js_getColumnNumber, getColumnNumber, - ScriptProfileNode, castToScriptProfileNode, gTypeScriptProfileNode) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"children\"]()" js_children - :: ScriptProfileNode -> IO JSVal - --- | -children :: - (MonadIO m) => ScriptProfileNode -> m [Maybe ScriptProfileNode] -children self - = liftIO ((js_children (self)) >>= fromJSValUnchecked) - -foreign import javascript unsafe "$1[\"id\"]" js_getId :: - ScriptProfileNode -> IO Word - --- | -getId :: (MonadIO m) => ScriptProfileNode -> m Word -getId self = liftIO (js_getId (self)) - -foreign import javascript unsafe "$1[\"functionName\"]" - js_getFunctionName :: ScriptProfileNode -> IO JSString - --- | -getFunctionName :: - (MonadIO m, FromJSString result) => ScriptProfileNode -> m result -getFunctionName self - = liftIO (fromJSString <$> (js_getFunctionName (self))) - -foreign import javascript unsafe "$1[\"url\"]" js_getUrl :: - ScriptProfileNode -> IO JSString - --- | -getUrl :: - (MonadIO m, FromJSString result) => ScriptProfileNode -> m result -getUrl self = liftIO (fromJSString <$> (js_getUrl (self))) - -foreign import javascript unsafe "$1[\"lineNumber\"]" - js_getLineNumber :: ScriptProfileNode -> IO Word - --- | -getLineNumber :: (MonadIO m) => ScriptProfileNode -> m Word -getLineNumber self = liftIO (js_getLineNumber (self)) - -foreign import javascript unsafe "$1[\"columnNumber\"]" - js_getColumnNumber :: ScriptProfileNode -> IO Word - --- | -getColumnNumber :: (MonadIO m) => ScriptProfileNode -> m Word -getColumnNumber self = liftIO (js_getColumnNumber (self)) diff --git a/src/GHCJS/DOM/JSFFI/Generated/SecurityPolicy.hs b/src/GHCJS/DOM/JSFFI/Generated/SecurityPolicy.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/SecurityPolicy.hs +++ /dev/null @@ -1,168 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.SecurityPolicy - (js_allowsConnectionTo, allowsConnectionTo, js_allowsFontFrom, - allowsFontFrom, js_allowsFormAction, allowsFormAction, - js_allowsFrameFrom, allowsFrameFrom, js_allowsImageFrom, - allowsImageFrom, js_allowsMediaFrom, allowsMediaFrom, - js_allowsObjectFrom, allowsObjectFrom, js_allowsPluginType, - allowsPluginType, js_allowsScriptFrom, allowsScriptFrom, - js_allowsStyleFrom, allowsStyleFrom, js_getAllowsEval, - getAllowsEval, js_getAllowsInlineScript, getAllowsInlineScript, - js_getAllowsInlineStyle, getAllowsInlineStyle, js_getIsActive, - getIsActive, js_getReportURIs, getReportURIs, SecurityPolicy, - castToSecurityPolicy, gTypeSecurityPolicy) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe - "($1[\"allowsConnectionTo\"]($2) ? 1 : 0)" js_allowsConnectionTo :: - SecurityPolicy -> JSString -> IO Bool - --- | -allowsConnectionTo :: - (MonadIO m, ToJSString url) => SecurityPolicy -> url -> m Bool -allowsConnectionTo self url - = liftIO (js_allowsConnectionTo (self) (toJSString url)) - -foreign import javascript unsafe - "($1[\"allowsFontFrom\"]($2) ? 1 : 0)" js_allowsFontFrom :: - SecurityPolicy -> JSString -> IO Bool - --- | -allowsFontFrom :: - (MonadIO m, ToJSString url) => SecurityPolicy -> url -> m Bool -allowsFontFrom self url - = liftIO (js_allowsFontFrom (self) (toJSString url)) - -foreign import javascript unsafe - "($1[\"allowsFormAction\"]($2) ? 1 : 0)" js_allowsFormAction :: - SecurityPolicy -> JSString -> IO Bool - --- | -allowsFormAction :: - (MonadIO m, ToJSString url) => SecurityPolicy -> url -> m Bool -allowsFormAction self url - = liftIO (js_allowsFormAction (self) (toJSString url)) - -foreign import javascript unsafe - "($1[\"allowsFrameFrom\"]($2) ? 1 : 0)" js_allowsFrameFrom :: - SecurityPolicy -> JSString -> IO Bool - --- | -allowsFrameFrom :: - (MonadIO m, ToJSString url) => SecurityPolicy -> url -> m Bool -allowsFrameFrom self url - = liftIO (js_allowsFrameFrom (self) (toJSString url)) - -foreign import javascript unsafe - "($1[\"allowsImageFrom\"]($2) ? 1 : 0)" js_allowsImageFrom :: - SecurityPolicy -> JSString -> IO Bool - --- | -allowsImageFrom :: - (MonadIO m, ToJSString url) => SecurityPolicy -> url -> m Bool -allowsImageFrom self url - = liftIO (js_allowsImageFrom (self) (toJSString url)) - -foreign import javascript unsafe - "($1[\"allowsMediaFrom\"]($2) ? 1 : 0)" js_allowsMediaFrom :: - SecurityPolicy -> JSString -> IO Bool - --- | -allowsMediaFrom :: - (MonadIO m, ToJSString url) => SecurityPolicy -> url -> m Bool -allowsMediaFrom self url - = liftIO (js_allowsMediaFrom (self) (toJSString url)) - -foreign import javascript unsafe - "($1[\"allowsObjectFrom\"]($2) ? 1 : 0)" js_allowsObjectFrom :: - SecurityPolicy -> JSString -> IO Bool - --- | -allowsObjectFrom :: - (MonadIO m, ToJSString url) => SecurityPolicy -> url -> m Bool -allowsObjectFrom self url - = liftIO (js_allowsObjectFrom (self) (toJSString url)) - -foreign import javascript unsafe - "($1[\"allowsPluginType\"]($2) ? 1 : 0)" js_allowsPluginType :: - SecurityPolicy -> JSString -> IO Bool - --- | -allowsPluginType :: - (MonadIO m, ToJSString type') => SecurityPolicy -> type' -> m Bool -allowsPluginType self type' - = liftIO (js_allowsPluginType (self) (toJSString type')) - -foreign import javascript unsafe - "($1[\"allowsScriptFrom\"]($2) ? 1 : 0)" js_allowsScriptFrom :: - SecurityPolicy -> JSString -> IO Bool - --- | -allowsScriptFrom :: - (MonadIO m, ToJSString url) => SecurityPolicy -> url -> m Bool -allowsScriptFrom self url - = liftIO (js_allowsScriptFrom (self) (toJSString url)) - -foreign import javascript unsafe - "($1[\"allowsStyleFrom\"]($2) ? 1 : 0)" js_allowsStyleFrom :: - SecurityPolicy -> JSString -> IO Bool - --- | -allowsStyleFrom :: - (MonadIO m, ToJSString url) => SecurityPolicy -> url -> m Bool -allowsStyleFrom self url - = liftIO (js_allowsStyleFrom (self) (toJSString url)) - -foreign import javascript unsafe "($1[\"allowsEval\"] ? 1 : 0)" - js_getAllowsEval :: SecurityPolicy -> IO Bool - --- | -getAllowsEval :: (MonadIO m) => SecurityPolicy -> m Bool -getAllowsEval self = liftIO (js_getAllowsEval (self)) - -foreign import javascript unsafe - "($1[\"allowsInlineScript\"] ? 1 : 0)" js_getAllowsInlineScript :: - SecurityPolicy -> IO Bool - --- | -getAllowsInlineScript :: (MonadIO m) => SecurityPolicy -> m Bool -getAllowsInlineScript self - = liftIO (js_getAllowsInlineScript (self)) - -foreign import javascript unsafe - "($1[\"allowsInlineStyle\"] ? 1 : 0)" js_getAllowsInlineStyle :: - SecurityPolicy -> IO Bool - --- | -getAllowsInlineStyle :: (MonadIO m) => SecurityPolicy -> m Bool -getAllowsInlineStyle self = liftIO (js_getAllowsInlineStyle (self)) - -foreign import javascript unsafe "($1[\"isActive\"] ? 1 : 0)" - js_getIsActive :: SecurityPolicy -> IO Bool - --- | -getIsActive :: (MonadIO m) => SecurityPolicy -> m Bool -getIsActive self = liftIO (js_getIsActive (self)) - -foreign import javascript unsafe "$1[\"reportURIs\"]" - js_getReportURIs :: SecurityPolicy -> IO (Nullable DOMStringList) - --- | -getReportURIs :: - (MonadIO m) => SecurityPolicy -> m (Maybe DOMStringList) -getReportURIs self - = liftIO (nullableToMaybe <$> (js_getReportURIs (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/SecurityPolicyViolationEvent.hs b/src/GHCJS/DOM/JSFFI/Generated/SecurityPolicyViolationEvent.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/SecurityPolicyViolationEvent.hs +++ /dev/null @@ -1,104 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.SecurityPolicyViolationEvent - (js_getDocumentURI, getDocumentURI, js_getReferrer, getReferrer, - js_getBlockedURI, getBlockedURI, js_getViolatedDirective, - getViolatedDirective, js_getEffectiveDirective, - getEffectiveDirective, js_getOriginalPolicy, getOriginalPolicy, - js_getSourceFile, getSourceFile, js_getLineNumber, getLineNumber, - SecurityPolicyViolationEvent, castToSecurityPolicyViolationEvent, - gTypeSecurityPolicyViolationEvent) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"documentURI\"]" - js_getDocumentURI :: SecurityPolicyViolationEvent -> IO JSString - --- | -getDocumentURI :: - (MonadIO m, FromJSString result) => - SecurityPolicyViolationEvent -> m result -getDocumentURI self - = liftIO (fromJSString <$> (js_getDocumentURI (self))) - -foreign import javascript unsafe "$1[\"referrer\"]" js_getReferrer - :: SecurityPolicyViolationEvent -> IO JSString - --- | -getReferrer :: - (MonadIO m, FromJSString result) => - SecurityPolicyViolationEvent -> m result -getReferrer self - = liftIO (fromJSString <$> (js_getReferrer (self))) - -foreign import javascript unsafe "$1[\"blockedURI\"]" - js_getBlockedURI :: SecurityPolicyViolationEvent -> IO JSString - --- | -getBlockedURI :: - (MonadIO m, FromJSString result) => - SecurityPolicyViolationEvent -> m result -getBlockedURI self - = liftIO (fromJSString <$> (js_getBlockedURI (self))) - -foreign import javascript unsafe "$1[\"violatedDirective\"]" - js_getViolatedDirective :: - SecurityPolicyViolationEvent -> IO JSString - --- | -getViolatedDirective :: - (MonadIO m, FromJSString result) => - SecurityPolicyViolationEvent -> m result -getViolatedDirective self - = liftIO (fromJSString <$> (js_getViolatedDirective (self))) - -foreign import javascript unsafe "$1[\"effectiveDirective\"]" - js_getEffectiveDirective :: - SecurityPolicyViolationEvent -> IO JSString - --- | -getEffectiveDirective :: - (MonadIO m, FromJSString result) => - SecurityPolicyViolationEvent -> m result -getEffectiveDirective self - = liftIO (fromJSString <$> (js_getEffectiveDirective (self))) - -foreign import javascript unsafe "$1[\"originalPolicy\"]" - js_getOriginalPolicy :: SecurityPolicyViolationEvent -> IO JSString - --- | -getOriginalPolicy :: - (MonadIO m, FromJSString result) => - SecurityPolicyViolationEvent -> m result -getOriginalPolicy self - = liftIO (fromJSString <$> (js_getOriginalPolicy (self))) - -foreign import javascript unsafe "$1[\"sourceFile\"]" - js_getSourceFile :: SecurityPolicyViolationEvent -> IO JSString - --- | -getSourceFile :: - (MonadIO m, FromJSString result) => - SecurityPolicyViolationEvent -> m result -getSourceFile self - = liftIO (fromJSString <$> (js_getSourceFile (self))) - -foreign import javascript unsafe "$1[\"lineNumber\"]" - js_getLineNumber :: SecurityPolicyViolationEvent -> IO Int - --- | -getLineNumber :: - (MonadIO m) => SecurityPolicyViolationEvent -> m Int -getLineNumber self = liftIO (js_getLineNumber (self)) diff --git a/src/GHCJS/DOM/JSFFI/Generated/Selection.hs b/src/GHCJS/DOM/JSFFI/Generated/Selection.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/Selection.hs +++ /dev/null @@ -1,255 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.Selection - (js_collapse, collapse, js_collapseToEnd, collapseToEnd, - js_collapseToStart, collapseToStart, js_deleteFromDocument, - deleteFromDocument, js_containsNode, containsNode, - js_selectAllChildren, selectAllChildren, js_extend, extend, - js_getRangeAt, getRangeAt, js_removeAllRanges, removeAllRanges, - js_addRange, addRange, js_toString, toString, js_modify, modify, - js_setBaseAndExtent, setBaseAndExtent, js_setPosition, setPosition, - js_empty, empty, js_getAnchorNode, getAnchorNode, - js_getAnchorOffset, getAnchorOffset, js_getFocusNode, getFocusNode, - js_getFocusOffset, getFocusOffset, js_getIsCollapsed, - getIsCollapsed, js_getRangeCount, getRangeCount, js_getBaseNode, - getBaseNode, js_getBaseOffset, getBaseOffset, js_getExtentNode, - getExtentNode, js_getExtentOffset, getExtentOffset, js_getType, - getType, Selection, castToSelection, gTypeSelection) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"collapse\"]($2, $3)" - js_collapse :: Selection -> Nullable Node -> Int -> IO () - --- | -collapse :: - (MonadIO m, IsNode node) => Selection -> Maybe node -> Int -> m () -collapse self node index - = liftIO - (js_collapse (self) (maybeToNullable (fmap toNode node)) index) - -foreign import javascript unsafe "$1[\"collapseToEnd\"]()" - js_collapseToEnd :: Selection -> IO () - --- | -collapseToEnd :: (MonadIO m) => Selection -> m () -collapseToEnd self = liftIO (js_collapseToEnd (self)) - -foreign import javascript unsafe "$1[\"collapseToStart\"]()" - js_collapseToStart :: Selection -> IO () - --- | -collapseToStart :: (MonadIO m) => Selection -> m () -collapseToStart self = liftIO (js_collapseToStart (self)) - -foreign import javascript unsafe "$1[\"deleteFromDocument\"]()" - js_deleteFromDocument :: Selection -> IO () - --- | -deleteFromDocument :: (MonadIO m) => Selection -> m () -deleteFromDocument self = liftIO (js_deleteFromDocument (self)) - -foreign import javascript unsafe - "($1[\"containsNode\"]($2,\n$3) ? 1 : 0)" js_containsNode :: - Selection -> Nullable Node -> Bool -> IO Bool - --- | -containsNode :: - (MonadIO m, IsNode node) => - Selection -> Maybe node -> Bool -> m Bool -containsNode self node allowPartial - = liftIO - (js_containsNode (self) (maybeToNullable (fmap toNode node)) - allowPartial) - -foreign import javascript unsafe "$1[\"selectAllChildren\"]($2)" - js_selectAllChildren :: Selection -> Nullable Node -> IO () - --- | -selectAllChildren :: - (MonadIO m, IsNode node) => Selection -> Maybe node -> m () -selectAllChildren self node - = liftIO - (js_selectAllChildren (self) (maybeToNullable (fmap toNode node))) - -foreign import javascript unsafe "$1[\"extend\"]($2, $3)" js_extend - :: Selection -> Nullable Node -> Int -> IO () - --- | -extend :: - (MonadIO m, IsNode node) => Selection -> Maybe node -> Int -> m () -extend self node offset - = liftIO - (js_extend (self) (maybeToNullable (fmap toNode node)) offset) - -foreign import javascript unsafe "$1[\"getRangeAt\"]($2)" - js_getRangeAt :: Selection -> Int -> IO (Nullable Range) - --- | -getRangeAt :: (MonadIO m) => Selection -> Int -> m (Maybe Range) -getRangeAt self index - = liftIO (nullableToMaybe <$> (js_getRangeAt (self) index)) - -foreign import javascript unsafe "$1[\"removeAllRanges\"]()" - js_removeAllRanges :: Selection -> IO () - --- | -removeAllRanges :: (MonadIO m) => Selection -> m () -removeAllRanges self = liftIO (js_removeAllRanges (self)) - -foreign import javascript unsafe "$1[\"addRange\"]($2)" js_addRange - :: Selection -> Nullable Range -> IO () - --- | -addRange :: (MonadIO m) => Selection -> Maybe Range -> m () -addRange self range - = liftIO (js_addRange (self) (maybeToNullable range)) - -foreign import javascript unsafe "$1[\"toString\"]()" js_toString - :: Selection -> IO JSString - --- | -toString :: - (MonadIO m, FromJSString result) => Selection -> m result -toString self = liftIO (fromJSString <$> (js_toString (self))) - -foreign import javascript unsafe "$1[\"modify\"]($2, $3, $4)" - js_modify :: Selection -> JSString -> JSString -> JSString -> IO () - --- | -modify :: - (MonadIO m, ToJSString alter, ToJSString direction, - ToJSString granularity) => - Selection -> alter -> direction -> granularity -> m () -modify self alter direction granularity - = liftIO - (js_modify (self) (toJSString alter) (toJSString direction) - (toJSString granularity)) - -foreign import javascript unsafe - "$1[\"setBaseAndExtent\"]($2, $3,\n$4, $5)" js_setBaseAndExtent :: - Selection -> Nullable Node -> Int -> Nullable Node -> Int -> IO () - --- | -setBaseAndExtent :: - (MonadIO m, IsNode baseNode, IsNode extentNode) => - Selection -> - Maybe baseNode -> Int -> Maybe extentNode -> Int -> m () -setBaseAndExtent self baseNode baseOffset extentNode extentOffset - = liftIO - (js_setBaseAndExtent (self) - (maybeToNullable (fmap toNode baseNode)) - baseOffset - (maybeToNullable (fmap toNode extentNode)) - extentOffset) - -foreign import javascript unsafe "$1[\"setPosition\"]($2, $3)" - js_setPosition :: Selection -> Nullable Node -> Int -> IO () - --- | -setPosition :: - (MonadIO m, IsNode node) => Selection -> Maybe node -> Int -> m () -setPosition self node offset - = liftIO - (js_setPosition (self) (maybeToNullable (fmap toNode node)) offset) - -foreign import javascript unsafe "$1[\"empty\"]()" js_empty :: - Selection -> IO () - --- | -empty :: (MonadIO m) => Selection -> m () -empty self = liftIO (js_empty (self)) - -foreign import javascript unsafe "$1[\"anchorNode\"]" - js_getAnchorNode :: Selection -> IO (Nullable Node) - --- | -getAnchorNode :: (MonadIO m) => Selection -> m (Maybe Node) -getAnchorNode self - = liftIO (nullableToMaybe <$> (js_getAnchorNode (self))) - -foreign import javascript unsafe "$1[\"anchorOffset\"]" - js_getAnchorOffset :: Selection -> IO Int - --- | -getAnchorOffset :: (MonadIO m) => Selection -> m Int -getAnchorOffset self = liftIO (js_getAnchorOffset (self)) - -foreign import javascript unsafe "$1[\"focusNode\"]" - js_getFocusNode :: Selection -> IO (Nullable Node) - --- | -getFocusNode :: (MonadIO m) => Selection -> m (Maybe Node) -getFocusNode self - = liftIO (nullableToMaybe <$> (js_getFocusNode (self))) - -foreign import javascript unsafe "$1[\"focusOffset\"]" - js_getFocusOffset :: Selection -> IO Int - --- | -getFocusOffset :: (MonadIO m) => Selection -> m Int -getFocusOffset self = liftIO (js_getFocusOffset (self)) - -foreign import javascript unsafe "($1[\"isCollapsed\"] ? 1 : 0)" - js_getIsCollapsed :: Selection -> IO Bool - --- | -getIsCollapsed :: (MonadIO m) => Selection -> m Bool -getIsCollapsed self = liftIO (js_getIsCollapsed (self)) - -foreign import javascript unsafe "$1[\"rangeCount\"]" - js_getRangeCount :: Selection -> IO Int - --- | -getRangeCount :: (MonadIO m) => Selection -> m Int -getRangeCount self = liftIO (js_getRangeCount (self)) - -foreign import javascript unsafe "$1[\"baseNode\"]" js_getBaseNode - :: Selection -> IO (Nullable Node) - --- | -getBaseNode :: (MonadIO m) => Selection -> m (Maybe Node) -getBaseNode self - = liftIO (nullableToMaybe <$> (js_getBaseNode (self))) - -foreign import javascript unsafe "$1[\"baseOffset\"]" - js_getBaseOffset :: Selection -> IO Int - --- | -getBaseOffset :: (MonadIO m) => Selection -> m Int -getBaseOffset self = liftIO (js_getBaseOffset (self)) - -foreign import javascript unsafe "$1[\"extentNode\"]" - js_getExtentNode :: Selection -> IO (Nullable Node) - --- | -getExtentNode :: (MonadIO m) => Selection -> m (Maybe Node) -getExtentNode self - = liftIO (nullableToMaybe <$> (js_getExtentNode (self))) - -foreign import javascript unsafe "$1[\"extentOffset\"]" - js_getExtentOffset :: Selection -> IO Int - --- | -getExtentOffset :: (MonadIO m) => Selection -> m Int -getExtentOffset self = liftIO (js_getExtentOffset (self)) - -foreign import javascript unsafe "$1[\"type\"]" js_getType :: - Selection -> IO JSString - --- | -getType :: - (MonadIO m, FromJSString result) => Selection -> m result -getType self = liftIO (fromJSString <$> (js_getType (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/SourceBuffer.hs b/src/GHCJS/DOM/JSFFI/Generated/SourceBuffer.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/SourceBuffer.hs +++ /dev/null @@ -1,170 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.SourceBuffer - (js_appendBuffer, appendBuffer, js_appendBufferView, - appendBufferView, js_abort, abort, js_remove, remove, js_setMode, - setMode, js_getMode, getMode, js_getUpdating, getUpdating, - js_getBuffered, getBuffered, js_setTimestampOffset, - setTimestampOffset, js_getTimestampOffset, getTimestampOffset, - js_getAudioTracks, getAudioTracks, js_getVideoTracks, - getVideoTracks, js_getTextTracks, getTextTracks, - js_setAppendWindowStart, setAppendWindowStart, - js_getAppendWindowStart, getAppendWindowStart, - js_setAppendWindowEnd, setAppendWindowEnd, js_getAppendWindowEnd, - getAppendWindowEnd, SourceBuffer, castToSourceBuffer, - gTypeSourceBuffer) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"appendBuffer\"]($2)" - js_appendBuffer :: SourceBuffer -> Nullable ArrayBuffer -> IO () - --- | -appendBuffer :: - (MonadIO m, IsArrayBuffer data') => - SourceBuffer -> Maybe data' -> m () -appendBuffer self data' - = liftIO - (js_appendBuffer (self) - (maybeToNullable (fmap toArrayBuffer data'))) - -foreign import javascript unsafe "$1[\"appendBuffer\"]($2)" - js_appendBufferView :: - SourceBuffer -> Nullable ArrayBufferView -> IO () - --- | -appendBufferView :: - (MonadIO m, IsArrayBufferView data') => - SourceBuffer -> Maybe data' -> m () -appendBufferView self data' - = liftIO - (js_appendBufferView (self) - (maybeToNullable (fmap toArrayBufferView data'))) - -foreign import javascript unsafe "$1[\"abort\"]()" js_abort :: - SourceBuffer -> IO () - --- | -abort :: (MonadIO m) => SourceBuffer -> m () -abort self = liftIO (js_abort (self)) - -foreign import javascript unsafe "$1[\"remove\"]($2, $3)" js_remove - :: SourceBuffer -> Double -> Double -> IO () - --- | -remove :: (MonadIO m) => SourceBuffer -> Double -> Double -> m () -remove self start end = liftIO (js_remove (self) start end) - -foreign import javascript unsafe "$1[\"mode\"] = $2;" js_setMode :: - SourceBuffer -> JSVal -> IO () - --- | -setMode :: (MonadIO m) => SourceBuffer -> AppendMode -> m () -setMode self val = liftIO (js_setMode (self) (pToJSVal val)) - -foreign import javascript unsafe "$1[\"mode\"]" js_getMode :: - SourceBuffer -> IO JSVal - --- | -getMode :: (MonadIO m) => SourceBuffer -> m AppendMode -getMode self = liftIO ((js_getMode (self)) >>= fromJSValUnchecked) - -foreign import javascript unsafe "($1[\"updating\"] ? 1 : 0)" - js_getUpdating :: SourceBuffer -> IO Bool - --- | -getUpdating :: (MonadIO m) => SourceBuffer -> m Bool -getUpdating self = liftIO (js_getUpdating (self)) - -foreign import javascript unsafe "$1[\"buffered\"]" js_getBuffered - :: SourceBuffer -> IO (Nullable TimeRanges) - --- | -getBuffered :: (MonadIO m) => SourceBuffer -> m (Maybe TimeRanges) -getBuffered self - = liftIO (nullableToMaybe <$> (js_getBuffered (self))) - -foreign import javascript unsafe "$1[\"timestampOffset\"] = $2;" - js_setTimestampOffset :: SourceBuffer -> Double -> IO () - --- | -setTimestampOffset :: (MonadIO m) => SourceBuffer -> Double -> m () -setTimestampOffset self val - = liftIO (js_setTimestampOffset (self) val) - -foreign import javascript unsafe "$1[\"timestampOffset\"]" - js_getTimestampOffset :: SourceBuffer -> IO Double - --- | -getTimestampOffset :: (MonadIO m) => SourceBuffer -> m Double -getTimestampOffset self = liftIO (js_getTimestampOffset (self)) - -foreign import javascript unsafe "$1[\"audioTracks\"]" - js_getAudioTracks :: SourceBuffer -> IO (Nullable AudioTrackList) - --- | -getAudioTracks :: - (MonadIO m) => SourceBuffer -> m (Maybe AudioTrackList) -getAudioTracks self - = liftIO (nullableToMaybe <$> (js_getAudioTracks (self))) - -foreign import javascript unsafe "$1[\"videoTracks\"]" - js_getVideoTracks :: SourceBuffer -> IO (Nullable VideoTrackList) - --- | -getVideoTracks :: - (MonadIO m) => SourceBuffer -> m (Maybe VideoTrackList) -getVideoTracks self - = liftIO (nullableToMaybe <$> (js_getVideoTracks (self))) - -foreign import javascript unsafe "$1[\"textTracks\"]" - js_getTextTracks :: SourceBuffer -> IO (Nullable TextTrackList) - --- | -getTextTracks :: - (MonadIO m) => SourceBuffer -> m (Maybe TextTrackList) -getTextTracks self - = liftIO (nullableToMaybe <$> (js_getTextTracks (self))) - -foreign import javascript unsafe "$1[\"appendWindowStart\"] = $2;" - js_setAppendWindowStart :: SourceBuffer -> Double -> IO () - --- | -setAppendWindowStart :: - (MonadIO m) => SourceBuffer -> Double -> m () -setAppendWindowStart self val - = liftIO (js_setAppendWindowStart (self) val) - -foreign import javascript unsafe "$1[\"appendWindowStart\"]" - js_getAppendWindowStart :: SourceBuffer -> IO Double - --- | -getAppendWindowStart :: (MonadIO m) => SourceBuffer -> m Double -getAppendWindowStart self = liftIO (js_getAppendWindowStart (self)) - -foreign import javascript unsafe "$1[\"appendWindowEnd\"] = $2;" - js_setAppendWindowEnd :: SourceBuffer -> Double -> IO () - --- | -setAppendWindowEnd :: (MonadIO m) => SourceBuffer -> Double -> m () -setAppendWindowEnd self val - = liftIO (js_setAppendWindowEnd (self) val) - -foreign import javascript unsafe "$1[\"appendWindowEnd\"]" - js_getAppendWindowEnd :: SourceBuffer -> IO Double - --- | -getAppendWindowEnd :: (MonadIO m) => SourceBuffer -> m Double -getAppendWindowEnd self = liftIO (js_getAppendWindowEnd (self)) diff --git a/src/GHCJS/DOM/JSFFI/Generated/SourceBufferList.hs b/src/GHCJS/DOM/JSFFI/Generated/SourceBufferList.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/SourceBufferList.hs +++ /dev/null @@ -1,35 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.SourceBufferList - (js_item, item, js_getLength, getLength, SourceBufferList, - castToSourceBufferList, gTypeSourceBufferList) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"item\"]($2)" js_item :: - SourceBufferList -> Word -> IO (Nullable SourceBuffer) - --- | -item :: - (MonadIO m) => SourceBufferList -> Word -> m (Maybe SourceBuffer) -item self index - = liftIO (nullableToMaybe <$> (js_item (self) index)) - -foreign import javascript unsafe "$1[\"length\"]" js_getLength :: - SourceBufferList -> IO Word - --- | -getLength :: (MonadIO m) => SourceBufferList -> m Word -getLength self = liftIO (js_getLength (self)) diff --git a/src/GHCJS/DOM/JSFFI/Generated/SourceInfo.hs b/src/GHCJS/DOM/JSFFI/Generated/SourceInfo.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/SourceInfo.hs +++ /dev/null @@ -1,44 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.SourceInfo - (js_getSourceId, getSourceId, js_getKind, getKind, js_getLabel, - getLabel, SourceInfo, castToSourceInfo, gTypeSourceInfo) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"sourceId\"]" js_getSourceId - :: SourceInfo -> IO JSString - --- | -getSourceId :: - (MonadIO m, FromJSString result) => SourceInfo -> m result -getSourceId self - = liftIO (fromJSString <$> (js_getSourceId (self))) - -foreign import javascript unsafe "$1[\"kind\"]" js_getKind :: - SourceInfo -> IO JSString - --- | -getKind :: - (MonadIO m, FromJSString result) => SourceInfo -> m result -getKind self = liftIO (fromJSString <$> (js_getKind (self))) - -foreign import javascript unsafe "$1[\"label\"]" js_getLabel :: - SourceInfo -> IO JSString - --- | -getLabel :: - (MonadIO m, FromJSString result) => SourceInfo -> m result -getLabel self = liftIO (fromJSString <$> (js_getLabel (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/SpeechSynthesis.hs b/src/GHCJS/DOM/JSFFI/Generated/SpeechSynthesis.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/SpeechSynthesis.hs +++ /dev/null @@ -1,82 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.SpeechSynthesis - (js_speak, speak, js_cancel, cancel, js_pause, pause, js_resume, - resume, js_getVoices, getVoices, js_getPending, getPending, - js_getSpeaking, getSpeaking, js_getPaused, getPaused, - SpeechSynthesis, castToSpeechSynthesis, gTypeSpeechSynthesis) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"speak\"]($2)" js_speak :: - SpeechSynthesis -> Nullable SpeechSynthesisUtterance -> IO () - --- | -speak :: - (MonadIO m) => - SpeechSynthesis -> Maybe SpeechSynthesisUtterance -> m () -speak self utterance - = liftIO (js_speak (self) (maybeToNullable utterance)) - -foreign import javascript unsafe "$1[\"cancel\"]()" js_cancel :: - SpeechSynthesis -> IO () - --- | -cancel :: (MonadIO m) => SpeechSynthesis -> m () -cancel self = liftIO (js_cancel (self)) - -foreign import javascript unsafe "$1[\"pause\"]()" js_pause :: - SpeechSynthesis -> IO () - --- | -pause :: (MonadIO m) => SpeechSynthesis -> m () -pause self = liftIO (js_pause (self)) - -foreign import javascript unsafe "$1[\"resume\"]()" js_resume :: - SpeechSynthesis -> IO () - --- | -resume :: (MonadIO m) => SpeechSynthesis -> m () -resume self = liftIO (js_resume (self)) - -foreign import javascript unsafe "$1[\"getVoices\"]()" js_getVoices - :: SpeechSynthesis -> IO JSVal - --- | -getVoices :: - (MonadIO m) => SpeechSynthesis -> m [Maybe SpeechSynthesisVoice] -getVoices self - = liftIO ((js_getVoices (self)) >>= fromJSValUnchecked) - -foreign import javascript unsafe "($1[\"pending\"] ? 1 : 0)" - js_getPending :: SpeechSynthesis -> IO Bool - --- | -getPending :: (MonadIO m) => SpeechSynthesis -> m Bool -getPending self = liftIO (js_getPending (self)) - -foreign import javascript unsafe "($1[\"speaking\"] ? 1 : 0)" - js_getSpeaking :: SpeechSynthesis -> IO Bool - --- | -getSpeaking :: (MonadIO m) => SpeechSynthesis -> m Bool -getSpeaking self = liftIO (js_getSpeaking (self)) - -foreign import javascript unsafe "($1[\"paused\"] ? 1 : 0)" - js_getPaused :: SpeechSynthesis -> IO Bool - --- | -getPaused :: (MonadIO m) => SpeechSynthesis -> m Bool -getPaused self = liftIO (js_getPaused (self)) diff --git a/src/GHCJS/DOM/JSFFI/Generated/SpeechSynthesisEvent.hs b/src/GHCJS/DOM/JSFFI/Generated/SpeechSynthesisEvent.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/SpeechSynthesisEvent.hs +++ /dev/null @@ -1,43 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.SpeechSynthesisEvent - (js_getCharIndex, getCharIndex, js_getElapsedTime, getElapsedTime, - js_getName, getName, SpeechSynthesisEvent, - castToSpeechSynthesisEvent, gTypeSpeechSynthesisEvent) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"charIndex\"]" - js_getCharIndex :: SpeechSynthesisEvent -> IO Word - --- | -getCharIndex :: (MonadIO m) => SpeechSynthesisEvent -> m Word -getCharIndex self = liftIO (js_getCharIndex (self)) - -foreign import javascript unsafe "$1[\"elapsedTime\"]" - js_getElapsedTime :: SpeechSynthesisEvent -> IO Float - --- | -getElapsedTime :: (MonadIO m) => SpeechSynthesisEvent -> m Float -getElapsedTime self = liftIO (js_getElapsedTime (self)) - -foreign import javascript unsafe "$1[\"name\"]" js_getName :: - SpeechSynthesisEvent -> IO JSString - --- | -getName :: - (MonadIO m, FromJSString result) => - SpeechSynthesisEvent -> m result -getName self = liftIO (fromJSString <$> (js_getName (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/SpeechSynthesisUtterance.hs b/src/GHCJS/DOM/JSFFI/Generated/SpeechSynthesisUtterance.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/SpeechSynthesisUtterance.hs +++ /dev/null @@ -1,164 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.SpeechSynthesisUtterance - (js_newSpeechSynthesisUtterance, newSpeechSynthesisUtterance, - js_setText, setText, js_getText, getText, js_setLang, setLang, - js_getLang, getLang, js_setVoice, setVoice, js_getVoice, getVoice, - js_setVolume, setVolume, js_getVolume, getVolume, js_setRate, - setRate, js_getRate, getRate, js_setPitch, setPitch, js_getPitch, - getPitch, start, end, error, pause, resume, mark, boundary, - SpeechSynthesisUtterance, castToSpeechSynthesisUtterance, - gTypeSpeechSynthesisUtterance) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe - "new window[\"SpeechSynthesisUtterance\"]($1)" - js_newSpeechSynthesisUtterance :: - JSString -> IO SpeechSynthesisUtterance - --- | -newSpeechSynthesisUtterance :: - (MonadIO m, ToJSString text) => text -> m SpeechSynthesisUtterance -newSpeechSynthesisUtterance text - = liftIO (js_newSpeechSynthesisUtterance (toJSString text)) - -foreign import javascript unsafe "$1[\"text\"] = $2;" js_setText :: - SpeechSynthesisUtterance -> JSString -> IO () - --- | -setText :: - (MonadIO m, ToJSString val) => - SpeechSynthesisUtterance -> val -> m () -setText self val = liftIO (js_setText (self) (toJSString val)) - -foreign import javascript unsafe "$1[\"text\"]" js_getText :: - SpeechSynthesisUtterance -> IO JSString - --- | -getText :: - (MonadIO m, FromJSString result) => - SpeechSynthesisUtterance -> m result -getText self = liftIO (fromJSString <$> (js_getText (self))) - -foreign import javascript unsafe "$1[\"lang\"] = $2;" js_setLang :: - SpeechSynthesisUtterance -> JSString -> IO () - --- | -setLang :: - (MonadIO m, ToJSString val) => - SpeechSynthesisUtterance -> val -> m () -setLang self val = liftIO (js_setLang (self) (toJSString val)) - -foreign import javascript unsafe "$1[\"lang\"]" js_getLang :: - SpeechSynthesisUtterance -> IO JSString - --- | -getLang :: - (MonadIO m, FromJSString result) => - SpeechSynthesisUtterance -> m result -getLang self = liftIO (fromJSString <$> (js_getLang (self))) - -foreign import javascript unsafe "$1[\"voice\"] = $2;" js_setVoice - :: - SpeechSynthesisUtterance -> Nullable SpeechSynthesisVoice -> IO () - --- | -setVoice :: - (MonadIO m) => - SpeechSynthesisUtterance -> Maybe SpeechSynthesisVoice -> m () -setVoice self val - = liftIO (js_setVoice (self) (maybeToNullable val)) - -foreign import javascript unsafe "$1[\"voice\"]" js_getVoice :: - SpeechSynthesisUtterance -> IO (Nullable SpeechSynthesisVoice) - --- | -getVoice :: - (MonadIO m) => - SpeechSynthesisUtterance -> m (Maybe SpeechSynthesisVoice) -getVoice self = liftIO (nullableToMaybe <$> (js_getVoice (self))) - -foreign import javascript unsafe "$1[\"volume\"] = $2;" - js_setVolume :: SpeechSynthesisUtterance -> Float -> IO () - --- | -setVolume :: - (MonadIO m) => SpeechSynthesisUtterance -> Float -> m () -setVolume self val = liftIO (js_setVolume (self) val) - -foreign import javascript unsafe "$1[\"volume\"]" js_getVolume :: - SpeechSynthesisUtterance -> IO Float - --- | -getVolume :: (MonadIO m) => SpeechSynthesisUtterance -> m Float -getVolume self = liftIO (js_getVolume (self)) - -foreign import javascript unsafe "$1[\"rate\"] = $2;" js_setRate :: - SpeechSynthesisUtterance -> Float -> IO () - --- | -setRate :: (MonadIO m) => SpeechSynthesisUtterance -> Float -> m () -setRate self val = liftIO (js_setRate (self) val) - -foreign import javascript unsafe "$1[\"rate\"]" js_getRate :: - SpeechSynthesisUtterance -> IO Float - --- | -getRate :: (MonadIO m) => SpeechSynthesisUtterance -> m Float -getRate self = liftIO (js_getRate (self)) - -foreign import javascript unsafe "$1[\"pitch\"] = $2;" js_setPitch - :: SpeechSynthesisUtterance -> Float -> IO () - --- | -setPitch :: - (MonadIO m) => SpeechSynthesisUtterance -> Float -> m () -setPitch self val = liftIO (js_setPitch (self) val) - -foreign import javascript unsafe "$1[\"pitch\"]" js_getPitch :: - SpeechSynthesisUtterance -> IO Float - --- | -getPitch :: (MonadIO m) => SpeechSynthesisUtterance -> m Float -getPitch self = liftIO (js_getPitch (self)) - --- | -start :: EventName SpeechSynthesisUtterance Event -start = unsafeEventName (toJSString "start") - --- | -end :: EventName SpeechSynthesisUtterance Event -end = unsafeEventName (toJSString "end") - --- | -error :: EventName SpeechSynthesisUtterance UIEvent -error = unsafeEventName (toJSString "error") - --- | -pause :: EventName SpeechSynthesisUtterance Event -pause = unsafeEventName (toJSString "pause") - --- | -resume :: EventName SpeechSynthesisUtterance Event -resume = unsafeEventName (toJSString "resume") - --- | -mark :: EventName SpeechSynthesisUtterance Event -mark = unsafeEventName (toJSString "mark") - --- | -boundary :: EventName SpeechSynthesisUtterance Event -boundary = unsafeEventName (toJSString "boundary") diff --git a/src/GHCJS/DOM/JSFFI/Generated/SpeechSynthesisVoice.hs b/src/GHCJS/DOM/JSFFI/Generated/SpeechSynthesisVoice.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/SpeechSynthesisVoice.hs +++ /dev/null @@ -1,63 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.SpeechSynthesisVoice - (js_getVoiceURI, getVoiceURI, js_getName, getName, js_getLang, - getLang, js_getLocalService, getLocalService, js_getDefault, - getDefault, SpeechSynthesisVoice, castToSpeechSynthesisVoice, - gTypeSpeechSynthesisVoice) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"voiceURI\"]" js_getVoiceURI - :: SpeechSynthesisVoice -> IO JSString - --- | -getVoiceURI :: - (MonadIO m, FromJSString result) => - SpeechSynthesisVoice -> m result -getVoiceURI self - = liftIO (fromJSString <$> (js_getVoiceURI (self))) - -foreign import javascript unsafe "$1[\"name\"]" js_getName :: - SpeechSynthesisVoice -> IO JSString - --- | -getName :: - (MonadIO m, FromJSString result) => - SpeechSynthesisVoice -> m result -getName self = liftIO (fromJSString <$> (js_getName (self))) - -foreign import javascript unsafe "$1[\"lang\"]" js_getLang :: - SpeechSynthesisVoice -> IO JSString - --- | -getLang :: - (MonadIO m, FromJSString result) => - SpeechSynthesisVoice -> m result -getLang self = liftIO (fromJSString <$> (js_getLang (self))) - -foreign import javascript unsafe "($1[\"localService\"] ? 1 : 0)" - js_getLocalService :: SpeechSynthesisVoice -> IO Bool - --- | -getLocalService :: (MonadIO m) => SpeechSynthesisVoice -> m Bool -getLocalService self = liftIO (js_getLocalService (self)) - -foreign import javascript unsafe "($1[\"default\"] ? 1 : 0)" - js_getDefault :: SpeechSynthesisVoice -> IO Bool - --- | -getDefault :: (MonadIO m) => SpeechSynthesisVoice -> m Bool -getDefault self = liftIO (js_getDefault (self)) diff --git a/src/GHCJS/DOM/JSFFI/Generated/Storage.hs b/src/GHCJS/DOM/JSFFI/Generated/Storage.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/Storage.hs +++ /dev/null @@ -1,73 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.Storage - (js_key, key, js_getItem, getItem, js_setItem, setItem, - js_removeItem, removeItem, js_clear, clear, js_getLength, - getLength, Storage, castToStorage, gTypeStorage) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"key\"]($2)" js_key :: - Storage -> Word -> IO (Nullable JSString) - --- | -key :: - (MonadIO m, FromJSString result) => - Storage -> Word -> m (Maybe result) -key self index - = liftIO (fromMaybeJSString <$> (js_key (self) index)) - -foreign import javascript unsafe "$1[\"getItem\"]($2)" js_getItem - :: Storage -> JSString -> IO (Nullable JSString) - --- | -getItem :: - (MonadIO m, ToJSString key, FromJSString result) => - Storage -> key -> m (Maybe result) -getItem self key - = liftIO - (fromMaybeJSString <$> (js_getItem (self) (toJSString key))) - -foreign import javascript unsafe "$1[\"setItem\"]($2, $3)" - js_setItem :: Storage -> JSString -> JSString -> IO () - --- | -setItem :: - (MonadIO m, ToJSString key, ToJSString data') => - Storage -> key -> data' -> m () -setItem self key data' - = liftIO (js_setItem (self) (toJSString key) (toJSString data')) - -foreign import javascript unsafe "$1[\"removeItem\"]($2)" - js_removeItem :: Storage -> JSString -> IO () - --- | -removeItem :: (MonadIO m, ToJSString key) => Storage -> key -> m () -removeItem self key - = liftIO (js_removeItem (self) (toJSString key)) - -foreign import javascript unsafe "$1[\"clear\"]()" js_clear :: - Storage -> IO () - --- | -clear :: (MonadIO m) => Storage -> m () -clear self = liftIO (js_clear (self)) - -foreign import javascript unsafe "$1[\"length\"]" js_getLength :: - Storage -> IO Word - --- | -getLength :: (MonadIO m) => Storage -> m Word -getLength self = liftIO (js_getLength (self)) diff --git a/src/GHCJS/DOM/JSFFI/Generated/StorageErrorCallback.hs b/src/GHCJS/DOM/JSFFI/Generated/StorageErrorCallback.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/StorageErrorCallback.hs +++ /dev/null @@ -1,52 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.StorageErrorCallback - (newStorageErrorCallback, newStorageErrorCallbackSync, - newStorageErrorCallbackAsync, StorageErrorCallback) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - --- | -newStorageErrorCallback :: - (MonadIO m) => - (Maybe DOMException -> IO ()) -> m StorageErrorCallback -newStorageErrorCallback callback - = liftIO - (StorageErrorCallback <$> - syncCallback1 ThrowWouldBlock - (\ error -> - fromJSValUnchecked error >>= \ error' -> callback error')) - --- | -newStorageErrorCallbackSync :: - (MonadIO m) => - (Maybe DOMException -> IO ()) -> m StorageErrorCallback -newStorageErrorCallbackSync callback - = liftIO - (StorageErrorCallback <$> - syncCallback1 ContinueAsync - (\ error -> - fromJSValUnchecked error >>= \ error' -> callback error')) - --- | -newStorageErrorCallbackAsync :: - (MonadIO m) => - (Maybe DOMException -> IO ()) -> m StorageErrorCallback -newStorageErrorCallbackAsync callback - = liftIO - (StorageErrorCallback <$> - asyncCallback1 - (\ error -> - fromJSValUnchecked error >>= \ error' -> callback error')) diff --git a/src/GHCJS/DOM/JSFFI/Generated/StorageEvent.hs b/src/GHCJS/DOM/JSFFI/Generated/StorageEvent.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/StorageEvent.hs +++ /dev/null @@ -1,99 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.StorageEvent - (js_initStorageEvent, initStorageEvent, js_getKey, getKey, - js_getOldValue, getOldValue, js_getNewValue, getNewValue, - js_getUrl, getUrl, js_getStorageArea, getStorageArea, StorageEvent, - castToStorageEvent, gTypeStorageEvent) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe - "$1[\"initStorageEvent\"]($2, $3,\n$4, $5, $6, $7, $8, $9)" - js_initStorageEvent :: - StorageEvent -> - JSString -> - Bool -> - Bool -> - JSString -> - Nullable JSString -> - Nullable JSString -> JSString -> Nullable Storage -> IO () - --- | -initStorageEvent :: - (MonadIO m, ToJSString typeArg, ToJSString keyArg, - ToJSString oldValueArg, ToJSString newValueArg, - ToJSString urlArg) => - StorageEvent -> - typeArg -> - Bool -> - Bool -> - keyArg -> - Maybe oldValueArg -> - Maybe newValueArg -> urlArg -> Maybe Storage -> m () -initStorageEvent self typeArg canBubbleArg cancelableArg keyArg - oldValueArg newValueArg urlArg storageAreaArg - = liftIO - (js_initStorageEvent (self) (toJSString typeArg) canBubbleArg - cancelableArg - (toJSString keyArg) - (toMaybeJSString oldValueArg) - (toMaybeJSString newValueArg) - (toJSString urlArg) - (maybeToNullable storageAreaArg)) - -foreign import javascript unsafe "$1[\"key\"]" js_getKey :: - StorageEvent -> IO JSString - --- | -getKey :: - (MonadIO m, FromJSString result) => StorageEvent -> m result -getKey self = liftIO (fromJSString <$> (js_getKey (self))) - -foreign import javascript unsafe "$1[\"oldValue\"]" js_getOldValue - :: StorageEvent -> IO (Nullable JSString) - --- | -getOldValue :: - (MonadIO m, FromJSString result) => - StorageEvent -> m (Maybe result) -getOldValue self - = liftIO (fromMaybeJSString <$> (js_getOldValue (self))) - -foreign import javascript unsafe "$1[\"newValue\"]" js_getNewValue - :: StorageEvent -> IO (Nullable JSString) - --- | -getNewValue :: - (MonadIO m, FromJSString result) => - StorageEvent -> m (Maybe result) -getNewValue self - = liftIO (fromMaybeJSString <$> (js_getNewValue (self))) - -foreign import javascript unsafe "$1[\"url\"]" js_getUrl :: - StorageEvent -> IO JSString - --- | -getUrl :: - (MonadIO m, FromJSString result) => StorageEvent -> m result -getUrl self = liftIO (fromJSString <$> (js_getUrl (self))) - -foreign import javascript unsafe "$1[\"storageArea\"]" - js_getStorageArea :: StorageEvent -> IO (Nullable Storage) - --- | -getStorageArea :: (MonadIO m) => StorageEvent -> m (Maybe Storage) -getStorageArea self - = liftIO (nullableToMaybe <$> (js_getStorageArea (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/StorageInfo.hs b/src/GHCJS/DOM/JSFFI/Generated/StorageInfo.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/StorageInfo.hs +++ /dev/null @@ -1,63 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.StorageInfo - (js_queryUsageAndQuota, queryUsageAndQuota, js_requestQuota, - requestQuota, pattern TEMPORARY, pattern PERSISTENT, StorageInfo, - castToStorageInfo, gTypeStorageInfo) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe - "$1[\"queryUsageAndQuota\"]($2, $3,\n$4)" js_queryUsageAndQuota :: - StorageInfo -> - Word -> - Nullable StorageUsageCallback -> - Nullable StorageErrorCallback -> IO () - --- | -queryUsageAndQuota :: - (MonadIO m) => - StorageInfo -> - Word -> - Maybe StorageUsageCallback -> Maybe StorageErrorCallback -> m () -queryUsageAndQuota self storageType usageCallback errorCallback - = liftIO - (js_queryUsageAndQuota (self) storageType - (maybeToNullable usageCallback) - (maybeToNullable errorCallback)) - -foreign import javascript unsafe - "$1[\"requestQuota\"]($2, $3, $4,\n$5)" js_requestQuota :: - StorageInfo -> - Word -> - Double -> - Nullable StorageQuotaCallback -> - Nullable StorageErrorCallback -> IO () - --- | -requestQuota :: - (MonadIO m) => - StorageInfo -> - Word -> - Word64 -> - Maybe StorageQuotaCallback -> Maybe StorageErrorCallback -> m () -requestQuota self storageType newQuotaInBytes quotaCallback - errorCallback - = liftIO - (js_requestQuota (self) storageType (fromIntegral newQuotaInBytes) - (maybeToNullable quotaCallback) - (maybeToNullable errorCallback)) -pattern TEMPORARY = 0 -pattern PERSISTENT = 1 diff --git a/src/GHCJS/DOM/JSFFI/Generated/StorageQuota.hs b/src/GHCJS/DOM/JSFFI/Generated/StorageQuota.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/StorageQuota.hs +++ /dev/null @@ -1,54 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.StorageQuota - (js_queryUsageAndQuota, queryUsageAndQuota, js_requestQuota, - requestQuota, StorageQuota, castToStorageQuota, gTypeStorageQuota) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe - "$1[\"queryUsageAndQuota\"]($2, $3)" js_queryUsageAndQuota :: - StorageQuota -> - Nullable StorageUsageCallback -> - Nullable StorageErrorCallback -> IO () - --- | -queryUsageAndQuota :: - (MonadIO m) => - StorageQuota -> - Maybe StorageUsageCallback -> Maybe StorageErrorCallback -> m () -queryUsageAndQuota self usageCallback errorCallback - = liftIO - (js_queryUsageAndQuota (self) (maybeToNullable usageCallback) - (maybeToNullable errorCallback)) - -foreign import javascript unsafe "$1[\"requestQuota\"]($2, $3, $4)" - js_requestQuota :: - StorageQuota -> - Double -> - Nullable StorageQuotaCallback -> - Nullable StorageErrorCallback -> IO () - --- | -requestQuota :: - (MonadIO m) => - StorageQuota -> - Word64 -> - Maybe StorageQuotaCallback -> Maybe StorageErrorCallback -> m () -requestQuota self newQuotaInBytes quotaCallback errorCallback - = liftIO - (js_requestQuota (self) (fromIntegral newQuotaInBytes) - (maybeToNullable quotaCallback) - (maybeToNullable errorCallback)) diff --git a/src/GHCJS/DOM/JSFFI/Generated/StorageQuotaCallback.hs b/src/GHCJS/DOM/JSFFI/Generated/StorageQuotaCallback.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/StorageQuotaCallback.hs +++ /dev/null @@ -1,52 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.StorageQuotaCallback - (newStorageQuotaCallback, newStorageQuotaCallbackSync, - newStorageQuotaCallbackAsync, StorageQuotaCallback) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - --- | -newStorageQuotaCallback :: - (MonadIO m) => (Double -> IO ()) -> m StorageQuotaCallback -newStorageQuotaCallback callback - = liftIO - (StorageQuotaCallback <$> - syncCallback1 ThrowWouldBlock - (\ grantedQuotaInBytes -> - fromJSValUnchecked grantedQuotaInBytes >>= - \ grantedQuotaInBytes' -> callback grantedQuotaInBytes')) - --- | -newStorageQuotaCallbackSync :: - (MonadIO m) => (Double -> IO ()) -> m StorageQuotaCallback -newStorageQuotaCallbackSync callback - = liftIO - (StorageQuotaCallback <$> - syncCallback1 ContinueAsync - (\ grantedQuotaInBytes -> - fromJSValUnchecked grantedQuotaInBytes >>= - \ grantedQuotaInBytes' -> callback grantedQuotaInBytes')) - --- | -newStorageQuotaCallbackAsync :: - (MonadIO m) => (Double -> IO ()) -> m StorageQuotaCallback -newStorageQuotaCallbackAsync callback - = liftIO - (StorageQuotaCallback <$> - asyncCallback1 - (\ grantedQuotaInBytes -> - fromJSValUnchecked grantedQuotaInBytes >>= - \ grantedQuotaInBytes' -> callback grantedQuotaInBytes')) diff --git a/src/GHCJS/DOM/JSFFI/Generated/StorageUsageCallback.hs b/src/GHCJS/DOM/JSFFI/Generated/StorageUsageCallback.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/StorageUsageCallback.hs +++ /dev/null @@ -1,64 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.StorageUsageCallback - (newStorageUsageCallback, newStorageUsageCallbackSync, - newStorageUsageCallbackAsync, StorageUsageCallback) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - --- | -newStorageUsageCallback :: - (MonadIO m) => - (Double -> Double -> IO ()) -> m StorageUsageCallback -newStorageUsageCallback callback - = liftIO - (StorageUsageCallback <$> - syncCallback2 ThrowWouldBlock - (\ currentUsageInBytes currentQuotaInBytes -> - fromJSValUnchecked currentQuotaInBytes >>= - \ currentQuotaInBytes' -> - fromJSValUnchecked currentUsageInBytes >>= - \ currentUsageInBytes' -> callback currentUsageInBytes' - currentQuotaInBytes')) - --- | -newStorageUsageCallbackSync :: - (MonadIO m) => - (Double -> Double -> IO ()) -> m StorageUsageCallback -newStorageUsageCallbackSync callback - = liftIO - (StorageUsageCallback <$> - syncCallback2 ContinueAsync - (\ currentUsageInBytes currentQuotaInBytes -> - fromJSValUnchecked currentQuotaInBytes >>= - \ currentQuotaInBytes' -> - fromJSValUnchecked currentUsageInBytes >>= - \ currentUsageInBytes' -> callback currentUsageInBytes' - currentQuotaInBytes')) - --- | -newStorageUsageCallbackAsync :: - (MonadIO m) => - (Double -> Double -> IO ()) -> m StorageUsageCallback -newStorageUsageCallbackAsync callback - = liftIO - (StorageUsageCallback <$> - asyncCallback2 - (\ currentUsageInBytes currentQuotaInBytes -> - fromJSValUnchecked currentQuotaInBytes >>= - \ currentQuotaInBytes' -> - fromJSValUnchecked currentUsageInBytes >>= - \ currentUsageInBytes' -> callback currentUsageInBytes' - currentQuotaInBytes')) diff --git a/src/GHCJS/DOM/JSFFI/Generated/StringCallback.hs b/src/GHCJS/DOM/JSFFI/Generated/StringCallback.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/StringCallback.hs +++ /dev/null @@ -1,52 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.StringCallback - (newStringCallback, newStringCallbackSync, newStringCallbackAsync, - StringCallback) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - --- | -newStringCallback :: - (MonadIO m, FromJSString data') => - (data' -> IO ()) -> m (StringCallback data') -newStringCallback callback - = liftIO - (StringCallback <$> - syncCallback1 ThrowWouldBlock - (\ data' -> - fromJSValUnchecked data' >>= \ data'' -> callback data'')) - --- | -newStringCallbackSync :: - (MonadIO m, FromJSString data') => - (data' -> IO ()) -> m (StringCallback data') -newStringCallbackSync callback - = liftIO - (StringCallback <$> - syncCallback1 ContinueAsync - (\ data' -> - fromJSValUnchecked data' >>= \ data'' -> callback data'')) - --- | -newStringCallbackAsync :: - (MonadIO m, FromJSString data') => - (data' -> IO ()) -> m (StringCallback data') -newStringCallbackAsync callback - = liftIO - (StringCallback <$> - asyncCallback1 - (\ data' -> - fromJSValUnchecked data' >>= \ data'' -> callback data'')) diff --git a/src/GHCJS/DOM/JSFFI/Generated/StyleMedia.hs b/src/GHCJS/DOM/JSFFI/Generated/StyleMedia.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/StyleMedia.hs +++ /dev/null @@ -1,38 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.StyleMedia - (js_matchMedium, matchMedium, js_getType, getType, StyleMedia, - castToStyleMedia, gTypeStyleMedia) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe - "($1[\"matchMedium\"]($2) ? 1 : 0)" js_matchMedium :: - StyleMedia -> JSString -> IO Bool - --- | -matchMedium :: - (MonadIO m, ToJSString mediaquery) => - StyleMedia -> mediaquery -> m Bool -matchMedium self mediaquery - = liftIO (js_matchMedium (self) (toJSString mediaquery)) - -foreign import javascript unsafe "$1[\"type\"]" js_getType :: - StyleMedia -> IO JSString - --- | -getType :: - (MonadIO m, FromJSString result) => StyleMedia -> m result -getType self = liftIO (fromJSString <$> (js_getType (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/StyleSheet.hs b/src/GHCJS/DOM/JSFFI/Generated/StyleSheet.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/StyleSheet.hs +++ /dev/null @@ -1,97 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.StyleSheet - (js_getType, getType, js_setDisabled, setDisabled, js_getDisabled, - getDisabled, js_getOwnerNode, getOwnerNode, js_getParentStyleSheet, - getParentStyleSheet, js_getHref, getHref, js_getTitle, getTitle, - js_getMedia, getMedia, StyleSheet, castToStyleSheet, - gTypeStyleSheet, IsStyleSheet, toStyleSheet) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"type\"]" js_getType :: - StyleSheet -> IO (Nullable JSString) - --- | -getType :: - (MonadIO m, IsStyleSheet self, FromJSString result) => - self -> m (Maybe result) -getType self - = liftIO (fromMaybeJSString <$> (js_getType (toStyleSheet self))) - -foreign import javascript unsafe "$1[\"disabled\"] = $2;" - js_setDisabled :: StyleSheet -> Bool -> IO () - --- | -setDisabled :: - (MonadIO m, IsStyleSheet self) => self -> Bool -> m () -setDisabled self val - = liftIO (js_setDisabled (toStyleSheet self) val) - -foreign import javascript unsafe "($1[\"disabled\"] ? 1 : 0)" - js_getDisabled :: StyleSheet -> IO Bool - --- | -getDisabled :: (MonadIO m, IsStyleSheet self) => self -> m Bool -getDisabled self = liftIO (js_getDisabled (toStyleSheet self)) - -foreign import javascript unsafe "$1[\"ownerNode\"]" - js_getOwnerNode :: StyleSheet -> IO (Nullable Node) - --- | -getOwnerNode :: - (MonadIO m, IsStyleSheet self) => self -> m (Maybe Node) -getOwnerNode self - = liftIO - (nullableToMaybe <$> (js_getOwnerNode (toStyleSheet self))) - -foreign import javascript unsafe "$1[\"parentStyleSheet\"]" - js_getParentStyleSheet :: StyleSheet -> IO (Nullable StyleSheet) - --- | -getParentStyleSheet :: - (MonadIO m, IsStyleSheet self) => self -> m (Maybe StyleSheet) -getParentStyleSheet self - = liftIO - (nullableToMaybe <$> (js_getParentStyleSheet (toStyleSheet self))) - -foreign import javascript unsafe "$1[\"href\"]" js_getHref :: - StyleSheet -> IO (Nullable JSString) - --- | -getHref :: - (MonadIO m, IsStyleSheet self, FromJSString result) => - self -> m (Maybe result) -getHref self - = liftIO (fromMaybeJSString <$> (js_getHref (toStyleSheet self))) - -foreign import javascript unsafe "$1[\"title\"]" js_getTitle :: - StyleSheet -> IO (Nullable JSString) - --- | -getTitle :: - (MonadIO m, IsStyleSheet self, FromJSString result) => - self -> m (Maybe result) -getTitle self - = liftIO (fromMaybeJSString <$> (js_getTitle (toStyleSheet self))) - -foreign import javascript unsafe "$1[\"media\"]" js_getMedia :: - StyleSheet -> IO (Nullable MediaList) - --- | -getMedia :: - (MonadIO m, IsStyleSheet self) => self -> m (Maybe MediaList) -getMedia self - = liftIO (nullableToMaybe <$> (js_getMedia (toStyleSheet self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/StyleSheetList.hs b/src/GHCJS/DOM/JSFFI/Generated/StyleSheetList.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/StyleSheetList.hs +++ /dev/null @@ -1,45 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.StyleSheetList - (js_item, item, js__get, _get, js_getLength, getLength, - StyleSheetList, castToStyleSheetList, gTypeStyleSheetList) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"item\"]($2)" js_item :: - StyleSheetList -> Word -> IO (Nullable StyleSheet) - --- | -item :: - (MonadIO m) => StyleSheetList -> Word -> m (Maybe StyleSheet) -item self index - = liftIO (nullableToMaybe <$> (js_item (self) index)) - -foreign import javascript unsafe "$1[\"_get\"]($2)" js__get :: - StyleSheetList -> JSString -> IO (Nullable CSSStyleSheet) - --- | -_get :: - (MonadIO m, ToJSString name) => - StyleSheetList -> name -> m (Maybe CSSStyleSheet) -_get self name - = liftIO (nullableToMaybe <$> (js__get (self) (toJSString name))) - -foreign import javascript unsafe "$1[\"length\"]" js_getLength :: - StyleSheetList -> IO Word - --- | -getLength :: (MonadIO m) => StyleSheetList -> m Word -getLength self = liftIO (js_getLength (self)) diff --git a/src/GHCJS/DOM/JSFFI/Generated/SubtleCrypto.hs b/src/GHCJS/DOM/JSFFI/Generated/SubtleCrypto.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/SubtleCrypto.hs +++ /dev/null @@ -1,223 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.SubtleCrypto - (js_encrypt, encrypt, js_decrypt, decrypt, js_sign, sign, - js_verify, verify, js_digest, digest, js_generateKey, generateKey, - js_importKey, importKey, js_exportKey, exportKey, js_wrapKey, - wrapKey, js_unwrapKey, unwrapKey, SubtleCrypto, castToSubtleCrypto, - gTypeSubtleCrypto) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"encrypt\"]($2, $3, $4)" - js_encrypt :: - SubtleCrypto -> - JSString -> Nullable CryptoKey -> JSVal -> IO (Nullable Promise) - --- | -encrypt :: - (MonadIO m, ToJSString algorithm, IsCryptoOperationData data') => - SubtleCrypto -> - algorithm -> Maybe CryptoKey -> [Maybe data'] -> m (Maybe Promise) -encrypt self algorithm key data' - = liftIO - (nullableToMaybe <$> - (toJSVal data' >>= - \ data'' -> - js_encrypt (self) (toJSString algorithm) (maybeToNullable key) - data'')) - -foreign import javascript unsafe "$1[\"decrypt\"]($2, $3, $4)" - js_decrypt :: - SubtleCrypto -> - JSString -> Nullable CryptoKey -> JSVal -> IO (Nullable Promise) - --- | -decrypt :: - (MonadIO m, ToJSString algorithm, IsCryptoOperationData data') => - SubtleCrypto -> - algorithm -> Maybe CryptoKey -> [Maybe data'] -> m (Maybe Promise) -decrypt self algorithm key data' - = liftIO - (nullableToMaybe <$> - (toJSVal data' >>= - \ data'' -> - js_decrypt (self) (toJSString algorithm) (maybeToNullable key) - data'')) - -foreign import javascript unsafe "$1[\"sign\"]($2, $3, $4)" js_sign - :: - SubtleCrypto -> - JSString -> Nullable CryptoKey -> JSVal -> IO (Nullable Promise) - --- | -sign :: - (MonadIO m, ToJSString algorithm, IsCryptoOperationData data') => - SubtleCrypto -> - algorithm -> Maybe CryptoKey -> [Maybe data'] -> m (Maybe Promise) -sign self algorithm key data' - = liftIO - (nullableToMaybe <$> - (toJSVal data' >>= - \ data'' -> - js_sign (self) (toJSString algorithm) (maybeToNullable key) - data'')) - -foreign import javascript unsafe "$1[\"verify\"]($2, $3, $4, $5)" - js_verify :: - SubtleCrypto -> - JSString -> - Nullable CryptoKey -> - Nullable CryptoOperationData -> JSVal -> IO (Nullable Promise) - --- | -verify :: - (MonadIO m, ToJSString algorithm, IsCryptoOperationData signature, - IsCryptoOperationData data') => - SubtleCrypto -> - algorithm -> - Maybe CryptoKey -> - Maybe signature -> [Maybe data'] -> m (Maybe Promise) -verify self algorithm key signature data' - = liftIO - (nullableToMaybe <$> - (toJSVal data' >>= - \ data'' -> - js_verify (self) (toJSString algorithm) (maybeToNullable key) - (maybeToNullable (fmap toCryptoOperationData signature)) - data'')) - -foreign import javascript unsafe "$1[\"digest\"]($2, $3)" js_digest - :: SubtleCrypto -> JSString -> JSVal -> IO (Nullable Promise) - --- | -digest :: - (MonadIO m, ToJSString algorithm, IsCryptoOperationData data') => - SubtleCrypto -> algorithm -> [Maybe data'] -> m (Maybe Promise) -digest self algorithm data' - = liftIO - (nullableToMaybe <$> - (toJSVal data' >>= - \ data'' -> js_digest (self) (toJSString algorithm) data'')) - -foreign import javascript unsafe "$1[\"generateKey\"]($2, $3, $4)" - js_generateKey :: - SubtleCrypto -> JSString -> Bool -> JSVal -> IO (Nullable Promise) - --- | -generateKey :: - (MonadIO m, ToJSString algorithm) => - SubtleCrypto -> - algorithm -> Bool -> [KeyUsage] -> m (Maybe Promise) -generateKey self algorithm extractable keyUsages - = liftIO - (nullableToMaybe <$> - (toJSVal keyUsages >>= - \ keyUsages' -> - js_generateKey (self) (toJSString algorithm) extractable - keyUsages')) - -foreign import javascript unsafe - "$1[\"importKey\"]($2, $3, $4, $5,\n$6)" js_importKey :: - SubtleCrypto -> - JSString -> - Nullable CryptoOperationData -> - JSString -> Bool -> JSVal -> IO (Nullable Promise) - --- | -importKey :: - (MonadIO m, ToJSString format, IsCryptoOperationData keyData, - ToJSString algorithm) => - SubtleCrypto -> - format -> - Maybe keyData -> - algorithm -> Bool -> [KeyUsage] -> m (Maybe Promise) -importKey self format keyData algorithm extractable keyUsages - = liftIO - (nullableToMaybe <$> - (toJSVal keyUsages >>= - \ keyUsages' -> - js_importKey (self) (toJSString format) - (maybeToNullable (fmap toCryptoOperationData keyData)) - (toJSString algorithm) - extractable - keyUsages')) - -foreign import javascript unsafe "$1[\"exportKey\"]($2, $3)" - js_exportKey :: - SubtleCrypto -> - JSString -> Nullable CryptoKey -> IO (Nullable Promise) - --- | -exportKey :: - (MonadIO m, ToJSString format) => - SubtleCrypto -> format -> Maybe CryptoKey -> m (Maybe Promise) -exportKey self format key - = liftIO - (nullableToMaybe <$> - (js_exportKey (self) (toJSString format) (maybeToNullable key))) - -foreign import javascript unsafe "$1[\"wrapKey\"]($2, $3, $4, $5)" - js_wrapKey :: - SubtleCrypto -> - JSString -> - Nullable CryptoKey -> - Nullable CryptoKey -> JSString -> IO (Nullable Promise) - --- | -wrapKey :: - (MonadIO m, ToJSString format, ToJSString wrapAlgorithm) => - SubtleCrypto -> - format -> - Maybe CryptoKey -> - Maybe CryptoKey -> wrapAlgorithm -> m (Maybe Promise) -wrapKey self format key wrappingKey wrapAlgorithm - = liftIO - (nullableToMaybe <$> - (js_wrapKey (self) (toJSString format) (maybeToNullable key) - (maybeToNullable wrappingKey) - (toJSString wrapAlgorithm))) - -foreign import javascript unsafe - "$1[\"unwrapKey\"]($2, $3, $4, $5,\n$6, $7, $8)" js_unwrapKey :: - SubtleCrypto -> - JSString -> - Nullable CryptoOperationData -> - Nullable CryptoKey -> - JSString -> JSString -> Bool -> JSVal -> IO (Nullable Promise) - --- | -unwrapKey :: - (MonadIO m, ToJSString format, IsCryptoOperationData wrappedKey, - ToJSString unwrapAlgorithm, ToJSString unwrappedKeyAlgorithm) => - SubtleCrypto -> - format -> - Maybe wrappedKey -> - Maybe CryptoKey -> - unwrapAlgorithm -> - unwrappedKeyAlgorithm -> Bool -> [KeyUsage] -> m (Maybe Promise) -unwrapKey self format wrappedKey unwrappingKey unwrapAlgorithm - unwrappedKeyAlgorithm extractable keyUsages - = liftIO - (nullableToMaybe <$> - (toJSVal keyUsages >>= - \ keyUsages' -> - js_unwrapKey (self) (toJSString format) - (maybeToNullable (fmap toCryptoOperationData wrappedKey)) - (maybeToNullable unwrappingKey) - (toJSString unwrapAlgorithm) - (toJSString unwrappedKeyAlgorithm) - extractable - keyUsages')) diff --git a/src/GHCJS/DOM/JSFFI/Generated/Text.hs b/src/GHCJS/DOM/JSFFI/Generated/Text.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/Text.hs +++ /dev/null @@ -1,57 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.Text - (js_newText, newText, js_splitText, splitText, js_replaceWholeText, - replaceWholeText, js_getWholeText, getWholeText, Text, castToText, - gTypeText, IsText, toText) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "new window[\"Text\"]($1)" - js_newText :: JSString -> IO Text - --- | -newText :: (MonadIO m, ToJSString data') => data' -> m Text -newText data' = liftIO (js_newText (toJSString data')) - -foreign import javascript unsafe "$1[\"splitText\"]($2)" - js_splitText :: Text -> Word -> IO (Nullable Text) - --- | -splitText :: - (MonadIO m, IsText self) => self -> Word -> m (Maybe Text) -splitText self offset - = liftIO (nullableToMaybe <$> (js_splitText (toText self) offset)) - -foreign import javascript unsafe "$1[\"replaceWholeText\"]($2)" - js_replaceWholeText :: Text -> JSString -> IO (Nullable Text) - --- | -replaceWholeText :: - (MonadIO m, IsText self, ToJSString content) => - self -> content -> m (Maybe Text) -replaceWholeText self content - = liftIO - (nullableToMaybe <$> - (js_replaceWholeText (toText self) (toJSString content))) - -foreign import javascript unsafe "$1[\"wholeText\"]" - js_getWholeText :: Text -> IO JSString - --- | -getWholeText :: - (MonadIO m, IsText self, FromJSString result) => self -> m result -getWholeText self - = liftIO (fromJSString <$> (js_getWholeText (toText self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/TextEvent.hs b/src/GHCJS/DOM/JSFFI/Generated/TextEvent.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/TextEvent.hs +++ /dev/null @@ -1,45 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.TextEvent - (js_initTextEvent, initTextEvent, js_getData, getData, TextEvent, - castToTextEvent, gTypeTextEvent) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe - "$1[\"initTextEvent\"]($2, $3, $4,\n$5, $6)" js_initTextEvent :: - TextEvent -> - JSString -> Bool -> Bool -> Nullable Window -> JSString -> IO () - --- | -initTextEvent :: - (MonadIO m, ToJSString typeArg, ToJSString dataArg) => - TextEvent -> - typeArg -> Bool -> Bool -> Maybe Window -> dataArg -> m () -initTextEvent self typeArg canBubbleArg cancelableArg viewArg - dataArg - = liftIO - (js_initTextEvent (self) (toJSString typeArg) canBubbleArg - cancelableArg - (maybeToNullable viewArg) - (toJSString dataArg)) - -foreign import javascript unsafe "$1[\"data\"]" js_getData :: - TextEvent -> IO JSString - --- | -getData :: - (MonadIO m, FromJSString result) => TextEvent -> m result -getData self = liftIO (fromJSString <$> (js_getData (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/TextMetrics.hs b/src/GHCJS/DOM/JSFFI/Generated/TextMetrics.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/TextMetrics.hs +++ /dev/null @@ -1,26 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.TextMetrics - (js_getWidth, getWidth, TextMetrics, castToTextMetrics, - gTypeTextMetrics) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"width\"]" js_getWidth :: - TextMetrics -> IO Float - --- | -getWidth :: (MonadIO m) => TextMetrics -> m Float -getWidth self = liftIO (js_getWidth (self)) diff --git a/src/GHCJS/DOM/JSFFI/Generated/TextTrack.hs b/src/GHCJS/DOM/JSFFI/Generated/TextTrack.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/TextTrack.hs +++ /dev/null @@ -1,172 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.TextTrack - (js_addCue, addCue, js_removeCue, removeCue, js_addRegion, - addRegion, js_removeRegion, removeRegion, js_getId, getId, - js_setKind, setKind, js_getKind, getKind, js_getLabel, getLabel, - js_setLanguage, setLanguage, js_getLanguage, getLanguage, - js_getInBandMetadataTrackDispatchType, - getInBandMetadataTrackDispatchType, js_setMode, setMode, - js_getMode, getMode, js_getCues, getCues, js_getActiveCues, - getActiveCues, cueChange, js_getRegions, getRegions, - js_getSourceBuffer, getSourceBuffer, TextTrack, castToTextTrack, - gTypeTextTrack) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"addCue\"]($2)" js_addCue :: - TextTrack -> Nullable TextTrackCue -> IO () - --- | -addCue :: - (MonadIO m, IsTextTrackCue cue) => TextTrack -> Maybe cue -> m () -addCue self cue - = liftIO - (js_addCue (self) (maybeToNullable (fmap toTextTrackCue cue))) - -foreign import javascript unsafe "$1[\"removeCue\"]($2)" - js_removeCue :: TextTrack -> Nullable TextTrackCue -> IO () - --- | -removeCue :: - (MonadIO m, IsTextTrackCue cue) => TextTrack -> Maybe cue -> m () -removeCue self cue - = liftIO - (js_removeCue (self) (maybeToNullable (fmap toTextTrackCue cue))) - -foreign import javascript unsafe "$1[\"addRegion\"]($2)" - js_addRegion :: TextTrack -> Nullable VTTRegion -> IO () - --- | -addRegion :: (MonadIO m) => TextTrack -> Maybe VTTRegion -> m () -addRegion self region - = liftIO (js_addRegion (self) (maybeToNullable region)) - -foreign import javascript unsafe "$1[\"removeRegion\"]($2)" - js_removeRegion :: TextTrack -> Nullable VTTRegion -> IO () - --- | -removeRegion :: (MonadIO m) => TextTrack -> Maybe VTTRegion -> m () -removeRegion self region - = liftIO (js_removeRegion (self) (maybeToNullable region)) - -foreign import javascript unsafe "$1[\"id\"]" js_getId :: - TextTrack -> IO JSString - --- | -getId :: (MonadIO m, FromJSString result) => TextTrack -> m result -getId self = liftIO (fromJSString <$> (js_getId (self))) - -foreign import javascript unsafe "$1[\"kind\"] = $2;" js_setKind :: - TextTrack -> JSVal -> IO () - --- | -setKind :: (MonadIO m) => TextTrack -> TextTrackKind -> m () -setKind self val = liftIO (js_setKind (self) (pToJSVal val)) - -foreign import javascript unsafe "$1[\"kind\"]" js_getKind :: - TextTrack -> IO JSVal - --- | -getKind :: (MonadIO m) => TextTrack -> m TextTrackKind -getKind self = liftIO ((js_getKind (self)) >>= fromJSValUnchecked) - -foreign import javascript unsafe "$1[\"label\"]" js_getLabel :: - TextTrack -> IO JSString - --- | -getLabel :: - (MonadIO m, FromJSString result) => TextTrack -> m result -getLabel self = liftIO (fromJSString <$> (js_getLabel (self))) - -foreign import javascript unsafe "$1[\"language\"] = $2;" - js_setLanguage :: TextTrack -> JSString -> IO () - --- | -setLanguage :: - (MonadIO m, ToJSString val) => TextTrack -> val -> m () -setLanguage self val - = liftIO (js_setLanguage (self) (toJSString val)) - -foreign import javascript unsafe "$1[\"language\"]" js_getLanguage - :: TextTrack -> IO JSString - --- | -getLanguage :: - (MonadIO m, FromJSString result) => TextTrack -> m result -getLanguage self - = liftIO (fromJSString <$> (js_getLanguage (self))) - -foreign import javascript unsafe - "$1[\"inBandMetadataTrackDispatchType\"]" - js_getInBandMetadataTrackDispatchType :: TextTrack -> IO JSString - --- | -getInBandMetadataTrackDispatchType :: - (MonadIO m, FromJSString result) => TextTrack -> m result -getInBandMetadataTrackDispatchType self - = liftIO - (fromJSString <$> (js_getInBandMetadataTrackDispatchType (self))) - -foreign import javascript unsafe "$1[\"mode\"] = $2;" js_setMode :: - TextTrack -> JSVal -> IO () - --- | -setMode :: (MonadIO m) => TextTrack -> TextTrackMode -> m () -setMode self val = liftIO (js_setMode (self) (pToJSVal val)) - -foreign import javascript unsafe "$1[\"mode\"]" js_getMode :: - TextTrack -> IO JSVal - --- | -getMode :: (MonadIO m) => TextTrack -> m TextTrackMode -getMode self = liftIO ((js_getMode (self)) >>= fromJSValUnchecked) - -foreign import javascript unsafe "$1[\"cues\"]" js_getCues :: - TextTrack -> IO (Nullable TextTrackCueList) - --- | -getCues :: (MonadIO m) => TextTrack -> m (Maybe TextTrackCueList) -getCues self = liftIO (nullableToMaybe <$> (js_getCues (self))) - -foreign import javascript unsafe "$1[\"activeCues\"]" - js_getActiveCues :: TextTrack -> IO (Nullable TextTrackCueList) - --- | -getActiveCues :: - (MonadIO m) => TextTrack -> m (Maybe TextTrackCueList) -getActiveCues self - = liftIO (nullableToMaybe <$> (js_getActiveCues (self))) - --- | -cueChange :: EventName TextTrack Event -cueChange = unsafeEventName (toJSString "cuechange") - -foreign import javascript unsafe "$1[\"regions\"]" js_getRegions :: - TextTrack -> IO (Nullable VTTRegionList) - --- | -getRegions :: (MonadIO m) => TextTrack -> m (Maybe VTTRegionList) -getRegions self - = liftIO (nullableToMaybe <$> (js_getRegions (self))) - -foreign import javascript unsafe "$1[\"sourceBuffer\"]" - js_getSourceBuffer :: TextTrack -> IO (Nullable SourceBuffer) - --- | -getSourceBuffer :: - (MonadIO m) => TextTrack -> m (Maybe SourceBuffer) -getSourceBuffer self - = liftIO (nullableToMaybe <$> (js_getSourceBuffer (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/TextTrackCue.hs b/src/GHCJS/DOM/JSFFI/Generated/TextTrackCue.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/TextTrackCue.hs +++ /dev/null @@ -1,125 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.TextTrackCue - (js_newTextTrackCue, newTextTrackCue, js_getTrack, getTrack, - js_setId, setId, js_getId, getId, js_setStartTime, setStartTime, - js_getStartTime, getStartTime, js_setEndTime, setEndTime, - js_getEndTime, getEndTime, js_setPauseOnExit, setPauseOnExit, - js_getPauseOnExit, getPauseOnExit, enter, exit, TextTrackCue, - castToTextTrackCue, gTypeTextTrackCue, IsTextTrackCue, - toTextTrackCue) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe - "new window[\"TextTrackCue\"]($1,\n$2, $3)" js_newTextTrackCue :: - Double -> Double -> JSString -> IO TextTrackCue - --- | -newTextTrackCue :: - (MonadIO m, ToJSString text) => - Double -> Double -> text -> m TextTrackCue -newTextTrackCue startTime endTime text - = liftIO (js_newTextTrackCue startTime endTime (toJSString text)) - -foreign import javascript unsafe "$1[\"track\"]" js_getTrack :: - TextTrackCue -> IO (Nullable TextTrack) - --- | -getTrack :: - (MonadIO m, IsTextTrackCue self) => self -> m (Maybe TextTrack) -getTrack self - = liftIO (nullableToMaybe <$> (js_getTrack (toTextTrackCue self))) - -foreign import javascript unsafe "$1[\"id\"] = $2;" js_setId :: - TextTrackCue -> JSString -> IO () - --- | -setId :: - (MonadIO m, IsTextTrackCue self, ToJSString val) => - self -> val -> m () -setId self val - = liftIO (js_setId (toTextTrackCue self) (toJSString val)) - -foreign import javascript unsafe "$1[\"id\"]" js_getId :: - TextTrackCue -> IO JSString - --- | -getId :: - (MonadIO m, IsTextTrackCue self, FromJSString result) => - self -> m result -getId self - = liftIO (fromJSString <$> (js_getId (toTextTrackCue self))) - -foreign import javascript unsafe "$1[\"startTime\"] = $2;" - js_setStartTime :: TextTrackCue -> Double -> IO () - --- | -setStartTime :: - (MonadIO m, IsTextTrackCue self) => self -> Double -> m () -setStartTime self val - = liftIO (js_setStartTime (toTextTrackCue self) val) - -foreign import javascript unsafe "$1[\"startTime\"]" - js_getStartTime :: TextTrackCue -> IO Double - --- | -getStartTime :: - (MonadIO m, IsTextTrackCue self) => self -> m Double -getStartTime self = liftIO (js_getStartTime (toTextTrackCue self)) - -foreign import javascript unsafe "$1[\"endTime\"] = $2;" - js_setEndTime :: TextTrackCue -> Double -> IO () - --- | -setEndTime :: - (MonadIO m, IsTextTrackCue self) => self -> Double -> m () -setEndTime self val - = liftIO (js_setEndTime (toTextTrackCue self) val) - -foreign import javascript unsafe "$1[\"endTime\"]" js_getEndTime :: - TextTrackCue -> IO Double - --- | -getEndTime :: (MonadIO m, IsTextTrackCue self) => self -> m Double -getEndTime self = liftIO (js_getEndTime (toTextTrackCue self)) - -foreign import javascript unsafe "$1[\"pauseOnExit\"] = $2;" - js_setPauseOnExit :: TextTrackCue -> Bool -> IO () - --- | -setPauseOnExit :: - (MonadIO m, IsTextTrackCue self) => self -> Bool -> m () -setPauseOnExit self val - = liftIO (js_setPauseOnExit (toTextTrackCue self) val) - -foreign import javascript unsafe "($1[\"pauseOnExit\"] ? 1 : 0)" - js_getPauseOnExit :: TextTrackCue -> IO Bool - --- | -getPauseOnExit :: - (MonadIO m, IsTextTrackCue self) => self -> m Bool -getPauseOnExit self - = liftIO (js_getPauseOnExit (toTextTrackCue self)) - --- | -enter :: - (IsTextTrackCue self, IsEventTarget self) => EventName self Event -enter = unsafeEventName (toJSString "enter") - --- | -exit :: - (IsTextTrackCue self, IsEventTarget self) => EventName self Event -exit = unsafeEventName (toJSString "exit") diff --git a/src/GHCJS/DOM/JSFFI/Generated/TextTrackCueList.hs b/src/GHCJS/DOM/JSFFI/Generated/TextTrackCueList.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/TextTrackCueList.hs +++ /dev/null @@ -1,47 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.TextTrackCueList - (js_item, item, js_getCueById, getCueById, js_getLength, getLength, - TextTrackCueList, castToTextTrackCueList, gTypeTextTrackCueList) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"item\"]($2)" js_item :: - TextTrackCueList -> Word -> IO (Nullable TextTrackCue) - --- | -item :: - (MonadIO m) => TextTrackCueList -> Word -> m (Maybe TextTrackCue) -item self index - = liftIO (nullableToMaybe <$> (js_item (self) index)) - -foreign import javascript unsafe "$1[\"getCueById\"]($2)" - js_getCueById :: - TextTrackCueList -> JSString -> IO (Nullable TextTrackCue) - --- | -getCueById :: - (MonadIO m, ToJSString id) => - TextTrackCueList -> id -> m (Maybe TextTrackCue) -getCueById self id - = liftIO - (nullableToMaybe <$> (js_getCueById (self) (toJSString id))) - -foreign import javascript unsafe "$1[\"length\"]" js_getLength :: - TextTrackCueList -> IO Word - --- | -getLength :: (MonadIO m) => TextTrackCueList -> m Word -getLength self = liftIO (js_getLength (self)) diff --git a/src/GHCJS/DOM/JSFFI/Generated/TextTrackList.hs b/src/GHCJS/DOM/JSFFI/Generated/TextTrackList.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/TextTrackList.hs +++ /dev/null @@ -1,59 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.TextTrackList - (js_item, item, js_getTrackById, getTrackById, js_getLength, - getLength, addTrack, change, removeTrack, TextTrackList, - castToTextTrackList, gTypeTextTrackList) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"item\"]($2)" js_item :: - TextTrackList -> Word -> IO (Nullable TextTrack) - --- | -item :: (MonadIO m) => TextTrackList -> Word -> m (Maybe TextTrack) -item self index - = liftIO (nullableToMaybe <$> (js_item (self) index)) - -foreign import javascript unsafe "$1[\"getTrackById\"]($2)" - js_getTrackById :: - TextTrackList -> JSString -> IO (Nullable TextTrack) - --- | -getTrackById :: - (MonadIO m, ToJSString id) => - TextTrackList -> id -> m (Maybe TextTrack) -getTrackById self id - = liftIO - (nullableToMaybe <$> (js_getTrackById (self) (toJSString id))) - -foreign import javascript unsafe "$1[\"length\"]" js_getLength :: - TextTrackList -> IO Word - --- | -getLength :: (MonadIO m) => TextTrackList -> m Word -getLength self = liftIO (js_getLength (self)) - --- | -addTrack :: EventName TextTrackList Event -addTrack = unsafeEventName (toJSString "addtrack") - --- | -change :: EventName TextTrackList Event -change = unsafeEventName (toJSString "change") - --- | -removeTrack :: EventName TextTrackList Event -removeTrack = unsafeEventName (toJSString "removetrack") diff --git a/src/GHCJS/DOM/JSFFI/Generated/TimeRanges.hs b/src/GHCJS/DOM/JSFFI/Generated/TimeRanges.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/TimeRanges.hs +++ /dev/null @@ -1,40 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.TimeRanges - (js_start, start, js_end, end, js_getLength, getLength, TimeRanges, - castToTimeRanges, gTypeTimeRanges) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"start\"]($2)" js_start :: - TimeRanges -> Word -> IO Double - --- | -start :: (MonadIO m) => TimeRanges -> Word -> m Double -start self index = liftIO (js_start (self) index) - -foreign import javascript unsafe "$1[\"end\"]($2)" js_end :: - TimeRanges -> Word -> IO Double - --- | -end :: (MonadIO m) => TimeRanges -> Word -> m Double -end self index = liftIO (js_end (self) index) - -foreign import javascript unsafe "$1[\"length\"]" js_getLength :: - TimeRanges -> IO Word - --- | -getLength :: (MonadIO m) => TimeRanges -> m Word -getLength self = liftIO (js_getLength (self)) diff --git a/src/GHCJS/DOM/JSFFI/Generated/Touch.hs b/src/GHCJS/DOM/JSFFI/Generated/Touch.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/Touch.hs +++ /dev/null @@ -1,109 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.Touch - (js_getClientX, getClientX, js_getClientY, getClientY, - js_getScreenX, getScreenX, js_getScreenY, getScreenY, js_getPageX, - getPageX, js_getPageY, getPageY, js_getTarget, getTarget, - js_getIdentifier, getIdentifier, js_getWebkitRadiusX, - getWebkitRadiusX, js_getWebkitRadiusY, getWebkitRadiusY, - js_getWebkitRotationAngle, getWebkitRotationAngle, - js_getWebkitForce, getWebkitForce, Touch, castToTouch, gTypeTouch) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"clientX\"]" js_getClientX :: - Touch -> IO Int - --- | -getClientX :: (MonadIO m) => Touch -> m Int -getClientX self = liftIO (js_getClientX (self)) - -foreign import javascript unsafe "$1[\"clientY\"]" js_getClientY :: - Touch -> IO Int - --- | -getClientY :: (MonadIO m) => Touch -> m Int -getClientY self = liftIO (js_getClientY (self)) - -foreign import javascript unsafe "$1[\"screenX\"]" js_getScreenX :: - Touch -> IO Int - --- | -getScreenX :: (MonadIO m) => Touch -> m Int -getScreenX self = liftIO (js_getScreenX (self)) - -foreign import javascript unsafe "$1[\"screenY\"]" js_getScreenY :: - Touch -> IO Int - --- | -getScreenY :: (MonadIO m) => Touch -> m Int -getScreenY self = liftIO (js_getScreenY (self)) - -foreign import javascript unsafe "$1[\"pageX\"]" js_getPageX :: - Touch -> IO Int - --- | -getPageX :: (MonadIO m) => Touch -> m Int -getPageX self = liftIO (js_getPageX (self)) - -foreign import javascript unsafe "$1[\"pageY\"]" js_getPageY :: - Touch -> IO Int - --- | -getPageY :: (MonadIO m) => Touch -> m Int -getPageY self = liftIO (js_getPageY (self)) - -foreign import javascript unsafe "$1[\"target\"]" js_getTarget :: - Touch -> IO (Nullable EventTarget) - --- | -getTarget :: (MonadIO m) => Touch -> m (Maybe EventTarget) -getTarget self = liftIO (nullableToMaybe <$> (js_getTarget (self))) - -foreign import javascript unsafe "$1[\"identifier\"]" - js_getIdentifier :: Touch -> IO Word - --- | -getIdentifier :: (MonadIO m) => Touch -> m Word -getIdentifier self = liftIO (js_getIdentifier (self)) - -foreign import javascript unsafe "$1[\"webkitRadiusX\"]" - js_getWebkitRadiusX :: Touch -> IO Int - --- | -getWebkitRadiusX :: (MonadIO m) => Touch -> m Int -getWebkitRadiusX self = liftIO (js_getWebkitRadiusX (self)) - -foreign import javascript unsafe "$1[\"webkitRadiusY\"]" - js_getWebkitRadiusY :: Touch -> IO Int - --- | -getWebkitRadiusY :: (MonadIO m) => Touch -> m Int -getWebkitRadiusY self = liftIO (js_getWebkitRadiusY (self)) - -foreign import javascript unsafe "$1[\"webkitRotationAngle\"]" - js_getWebkitRotationAngle :: Touch -> IO Float - --- | -getWebkitRotationAngle :: (MonadIO m) => Touch -> m Float -getWebkitRotationAngle self - = liftIO (js_getWebkitRotationAngle (self)) - -foreign import javascript unsafe "$1[\"webkitForce\"]" - js_getWebkitForce :: Touch -> IO Float - --- | -getWebkitForce :: (MonadIO m) => Touch -> m Float -getWebkitForce self = liftIO (js_getWebkitForce (self)) diff --git a/src/GHCJS/DOM/JSFFI/Generated/TouchEvent.hs b/src/GHCJS/DOM/JSFFI/Generated/TouchEvent.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/TouchEvent.hs +++ /dev/null @@ -1,114 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.TouchEvent - (js_initTouchEvent, initTouchEvent, js_getTouches, getTouches, - js_getTargetTouches, getTargetTouches, js_getChangedTouches, - getChangedTouches, js_getCtrlKey, getCtrlKey, js_getShiftKey, - getShiftKey, js_getAltKey, getAltKey, js_getMetaKey, getMetaKey, - TouchEvent, castToTouchEvent, gTypeTouchEvent) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe - "$1[\"initTouchEvent\"]($2, $3, $4,\n$5, $6, $7, $8, $9, $10, $11,\n$12, $13, $14)" - js_initTouchEvent :: - TouchEvent -> - Nullable TouchList -> - Nullable TouchList -> - Nullable TouchList -> - JSString -> - Nullable Window -> - Int -> Int -> Int -> Int -> Bool -> Bool -> Bool -> Bool -> IO () - --- | -initTouchEvent :: - (MonadIO m, ToJSString type') => - TouchEvent -> - Maybe TouchList -> - Maybe TouchList -> - Maybe TouchList -> - type' -> - Maybe Window -> - Int -> Int -> Int -> Int -> Bool -> Bool -> Bool -> Bool -> m () -initTouchEvent self touches targetTouches changedTouches type' view - screenX screenY clientX clientY ctrlKey altKey shiftKey metaKey - = liftIO - (js_initTouchEvent (self) (maybeToNullable touches) - (maybeToNullable targetTouches) - (maybeToNullable changedTouches) - (toJSString type') - (maybeToNullable view) - screenX - screenY - clientX - clientY - ctrlKey - altKey - shiftKey - metaKey) - -foreign import javascript unsafe "$1[\"touches\"]" js_getTouches :: - TouchEvent -> IO (Nullable TouchList) - --- | -getTouches :: (MonadIO m) => TouchEvent -> m (Maybe TouchList) -getTouches self - = liftIO (nullableToMaybe <$> (js_getTouches (self))) - -foreign import javascript unsafe "$1[\"targetTouches\"]" - js_getTargetTouches :: TouchEvent -> IO (Nullable TouchList) - --- | -getTargetTouches :: - (MonadIO m) => TouchEvent -> m (Maybe TouchList) -getTargetTouches self - = liftIO (nullableToMaybe <$> (js_getTargetTouches (self))) - -foreign import javascript unsafe "$1[\"changedTouches\"]" - js_getChangedTouches :: TouchEvent -> IO (Nullable TouchList) - --- | -getChangedTouches :: - (MonadIO m) => TouchEvent -> m (Maybe TouchList) -getChangedTouches self - = liftIO (nullableToMaybe <$> (js_getChangedTouches (self))) - -foreign import javascript unsafe "($1[\"ctrlKey\"] ? 1 : 0)" - js_getCtrlKey :: TouchEvent -> IO Bool - --- | -getCtrlKey :: (MonadIO m) => TouchEvent -> m Bool -getCtrlKey self = liftIO (js_getCtrlKey (self)) - -foreign import javascript unsafe "($1[\"shiftKey\"] ? 1 : 0)" - js_getShiftKey :: TouchEvent -> IO Bool - --- | -getShiftKey :: (MonadIO m) => TouchEvent -> m Bool -getShiftKey self = liftIO (js_getShiftKey (self)) - -foreign import javascript unsafe "($1[\"altKey\"] ? 1 : 0)" - js_getAltKey :: TouchEvent -> IO Bool - --- | -getAltKey :: (MonadIO m) => TouchEvent -> m Bool -getAltKey self = liftIO (js_getAltKey (self)) - -foreign import javascript unsafe "($1[\"metaKey\"] ? 1 : 0)" - js_getMetaKey :: TouchEvent -> IO Bool - --- | -getMetaKey :: (MonadIO m) => TouchEvent -> m Bool -getMetaKey self = liftIO (js_getMetaKey (self)) diff --git a/src/GHCJS/DOM/JSFFI/Generated/TouchList.hs b/src/GHCJS/DOM/JSFFI/Generated/TouchList.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/TouchList.hs +++ /dev/null @@ -1,34 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.TouchList - (js_item, item, js_getLength, getLength, TouchList, - castToTouchList, gTypeTouchList) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"item\"]($2)" js_item :: - TouchList -> Word -> IO (Nullable Touch) - --- | -item :: (MonadIO m) => TouchList -> Word -> m (Maybe Touch) -item self index - = liftIO (nullableToMaybe <$> (js_item (self) index)) - -foreign import javascript unsafe "$1[\"length\"]" js_getLength :: - TouchList -> IO Word - --- | -getLength :: (MonadIO m) => TouchList -> m Word -getLength self = liftIO (js_getLength (self)) diff --git a/src/GHCJS/DOM/JSFFI/Generated/TrackEvent.hs b/src/GHCJS/DOM/JSFFI/Generated/TrackEvent.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/TrackEvent.hs +++ /dev/null @@ -1,26 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.TrackEvent - (js_getTrack, getTrack, TrackEvent, castToTrackEvent, - gTypeTrackEvent) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"track\"]" js_getTrack :: - TrackEvent -> IO (Nullable GObject) - --- | -getTrack :: (MonadIO m) => TrackEvent -> m (Maybe GObject) -getTrack self = liftIO (nullableToMaybe <$> (js_getTrack (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/TransitionEvent.hs b/src/GHCJS/DOM/JSFFI/Generated/TransitionEvent.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/TransitionEvent.hs +++ /dev/null @@ -1,45 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.TransitionEvent - (js_getPropertyName, getPropertyName, js_getElapsedTime, - getElapsedTime, js_getPseudoElement, getPseudoElement, - TransitionEvent, castToTransitionEvent, gTypeTransitionEvent) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"propertyName\"]" - js_getPropertyName :: TransitionEvent -> IO JSString - --- | -getPropertyName :: - (MonadIO m, FromJSString result) => TransitionEvent -> m result -getPropertyName self - = liftIO (fromJSString <$> (js_getPropertyName (self))) - -foreign import javascript unsafe "$1[\"elapsedTime\"]" - js_getElapsedTime :: TransitionEvent -> IO Double - --- | -getElapsedTime :: (MonadIO m) => TransitionEvent -> m Double -getElapsedTime self = liftIO (js_getElapsedTime (self)) - -foreign import javascript unsafe "$1[\"pseudoElement\"]" - js_getPseudoElement :: TransitionEvent -> IO JSString - --- | -getPseudoElement :: - (MonadIO m, FromJSString result) => TransitionEvent -> m result -getPseudoElement self - = liftIO (fromJSString <$> (js_getPseudoElement (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/TreeWalker.hs b/src/GHCJS/DOM/JSFFI/Generated/TreeWalker.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/TreeWalker.hs +++ /dev/null @@ -1,127 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.TreeWalker - (js_parentNode, parentNode, js_firstChild, firstChild, - js_lastChild, lastChild, js_previousSibling, previousSibling, - js_nextSibling, nextSibling, js_previousNode, previousNode, - js_nextNode, nextNode, js_getRoot, getRoot, js_getWhatToShow, - getWhatToShow, js_getFilter, getFilter, - js_getExpandEntityReferences, getExpandEntityReferences, - js_setCurrentNode, setCurrentNode, js_getCurrentNode, - getCurrentNode, TreeWalker, castToTreeWalker, gTypeTreeWalker) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"parentNode\"]()" - js_parentNode :: TreeWalker -> IO (Nullable Node) - --- | -parentNode :: (MonadIO m) => TreeWalker -> m (Maybe Node) -parentNode self - = liftIO (nullableToMaybe <$> (js_parentNode (self))) - -foreign import javascript unsafe "$1[\"firstChild\"]()" - js_firstChild :: TreeWalker -> IO (Nullable Node) - --- | -firstChild :: (MonadIO m) => TreeWalker -> m (Maybe Node) -firstChild self - = liftIO (nullableToMaybe <$> (js_firstChild (self))) - -foreign import javascript unsafe "$1[\"lastChild\"]()" js_lastChild - :: TreeWalker -> IO (Nullable Node) - --- | -lastChild :: (MonadIO m) => TreeWalker -> m (Maybe Node) -lastChild self = liftIO (nullableToMaybe <$> (js_lastChild (self))) - -foreign import javascript unsafe "$1[\"previousSibling\"]()" - js_previousSibling :: TreeWalker -> IO (Nullable Node) - --- | -previousSibling :: (MonadIO m) => TreeWalker -> m (Maybe Node) -previousSibling self - = liftIO (nullableToMaybe <$> (js_previousSibling (self))) - -foreign import javascript unsafe "$1[\"nextSibling\"]()" - js_nextSibling :: TreeWalker -> IO (Nullable Node) - --- | -nextSibling :: (MonadIO m) => TreeWalker -> m (Maybe Node) -nextSibling self - = liftIO (nullableToMaybe <$> (js_nextSibling (self))) - -foreign import javascript unsafe "$1[\"previousNode\"]()" - js_previousNode :: TreeWalker -> IO (Nullable Node) - --- | -previousNode :: (MonadIO m) => TreeWalker -> m (Maybe Node) -previousNode self - = liftIO (nullableToMaybe <$> (js_previousNode (self))) - -foreign import javascript unsafe "$1[\"nextNode\"]()" js_nextNode - :: TreeWalker -> IO (Nullable Node) - --- | -nextNode :: (MonadIO m) => TreeWalker -> m (Maybe Node) -nextNode self = liftIO (nullableToMaybe <$> (js_nextNode (self))) - -foreign import javascript unsafe "$1[\"root\"]" js_getRoot :: - TreeWalker -> IO (Nullable Node) - --- | -getRoot :: (MonadIO m) => TreeWalker -> m (Maybe Node) -getRoot self = liftIO (nullableToMaybe <$> (js_getRoot (self))) - -foreign import javascript unsafe "$1[\"whatToShow\"]" - js_getWhatToShow :: TreeWalker -> IO Word - --- | -getWhatToShow :: (MonadIO m) => TreeWalker -> m Word -getWhatToShow self = liftIO (js_getWhatToShow (self)) - -foreign import javascript unsafe "$1[\"filter\"]" js_getFilter :: - TreeWalker -> IO (Nullable NodeFilter) - --- | -getFilter :: (MonadIO m) => TreeWalker -> m (Maybe NodeFilter) -getFilter self = liftIO (nullableToMaybe <$> (js_getFilter (self))) - -foreign import javascript unsafe - "($1[\"expandEntityReferences\"] ? 1 : 0)" - js_getExpandEntityReferences :: TreeWalker -> IO Bool - --- | -getExpandEntityReferences :: (MonadIO m) => TreeWalker -> m Bool -getExpandEntityReferences self - = liftIO (js_getExpandEntityReferences (self)) - -foreign import javascript unsafe "$1[\"currentNode\"] = $2;" - js_setCurrentNode :: TreeWalker -> Nullable Node -> IO () - --- | -setCurrentNode :: - (MonadIO m, IsNode val) => TreeWalker -> Maybe val -> m () -setCurrentNode self val - = liftIO - (js_setCurrentNode (self) (maybeToNullable (fmap toNode val))) - -foreign import javascript unsafe "$1[\"currentNode\"]" - js_getCurrentNode :: TreeWalker -> IO (Nullable Node) - --- | -getCurrentNode :: (MonadIO m) => TreeWalker -> m (Maybe Node) -getCurrentNode self - = liftIO (nullableToMaybe <$> (js_getCurrentNode (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/TypeConversions.hs b/src/GHCJS/DOM/JSFFI/Generated/TypeConversions.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/TypeConversions.hs +++ /dev/null @@ -1,332 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.TypeConversions - (js_setTestLong, setTestLong, js_getTestLong, getTestLong, - js_setTestEnforceRangeLong, setTestEnforceRangeLong, - js_getTestEnforceRangeLong, getTestEnforceRangeLong, - js_setTestUnsignedLong, setTestUnsignedLong, - js_getTestUnsignedLong, getTestUnsignedLong, - js_setTestEnforceRangeUnsignedLong, - setTestEnforceRangeUnsignedLong, - js_getTestEnforceRangeUnsignedLong, - getTestEnforceRangeUnsignedLong, js_setTestLongLong, - setTestLongLong, js_getTestLongLong, getTestLongLong, - js_setTestEnforceRangeLongLong, setTestEnforceRangeLongLong, - js_getTestEnforceRangeLongLong, getTestEnforceRangeLongLong, - js_setTestUnsignedLongLong, setTestUnsignedLongLong, - js_getTestUnsignedLongLong, getTestUnsignedLongLong, - js_setTestEnforceRangeUnsignedLongLong, - setTestEnforceRangeUnsignedLongLong, - js_getTestEnforceRangeUnsignedLongLong, - getTestEnforceRangeUnsignedLongLong, js_setTestByte, setTestByte, - js_getTestByte, getTestByte, js_setTestEnforceRangeByte, - setTestEnforceRangeByte, js_getTestEnforceRangeByte, - getTestEnforceRangeByte, js_setTestOctet, setTestOctet, - js_getTestOctet, getTestOctet, js_setTestEnforceRangeOctet, - setTestEnforceRangeOctet, js_getTestEnforceRangeOctet, - getTestEnforceRangeOctet, js_setTestShort, setTestShort, - js_getTestShort, getTestShort, js_setTestEnforceRangeShort, - setTestEnforceRangeShort, js_getTestEnforceRangeShort, - getTestEnforceRangeShort, js_setTestUnsignedShort, - setTestUnsignedShort, js_getTestUnsignedShort, - getTestUnsignedShort, js_setTestEnforceRangeUnsignedShort, - setTestEnforceRangeUnsignedShort, - js_getTestEnforceRangeUnsignedShort, - getTestEnforceRangeUnsignedShort, TypeConversions, - castToTypeConversions, gTypeTypeConversions) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"testLong\"] = $2;" - js_setTestLong :: TypeConversions -> Int -> IO () - --- | -setTestLong :: (MonadIO m) => TypeConversions -> Int -> m () -setTestLong self val = liftIO (js_setTestLong (self) val) - -foreign import javascript unsafe "$1[\"testLong\"]" js_getTestLong - :: TypeConversions -> IO Int - --- | -getTestLong :: (MonadIO m) => TypeConversions -> m Int -getTestLong self = liftIO (js_getTestLong (self)) - -foreign import javascript unsafe - "$1[\"testEnforceRangeLong\"] = $2;" js_setTestEnforceRangeLong :: - TypeConversions -> Int -> IO () - --- | -setTestEnforceRangeLong :: - (MonadIO m) => TypeConversions -> Int -> m () -setTestEnforceRangeLong self val - = liftIO (js_setTestEnforceRangeLong (self) val) - -foreign import javascript unsafe "$1[\"testEnforceRangeLong\"]" - js_getTestEnforceRangeLong :: TypeConversions -> IO Int - --- | -getTestEnforceRangeLong :: (MonadIO m) => TypeConversions -> m Int -getTestEnforceRangeLong self - = liftIO (js_getTestEnforceRangeLong (self)) - -foreign import javascript unsafe "$1[\"testUnsignedLong\"] = $2;" - js_setTestUnsignedLong :: TypeConversions -> Word -> IO () - --- | -setTestUnsignedLong :: - (MonadIO m) => TypeConversions -> Word -> m () -setTestUnsignedLong self val - = liftIO (js_setTestUnsignedLong (self) val) - -foreign import javascript unsafe "$1[\"testUnsignedLong\"]" - js_getTestUnsignedLong :: TypeConversions -> IO Word - --- | -getTestUnsignedLong :: (MonadIO m) => TypeConversions -> m Word -getTestUnsignedLong self = liftIO (js_getTestUnsignedLong (self)) - -foreign import javascript unsafe - "$1[\"testEnforceRangeUnsignedLong\"] = $2;" - js_setTestEnforceRangeUnsignedLong :: - TypeConversions -> Word -> IO () - --- | -setTestEnforceRangeUnsignedLong :: - (MonadIO m) => TypeConversions -> Word -> m () -setTestEnforceRangeUnsignedLong self val - = liftIO (js_setTestEnforceRangeUnsignedLong (self) val) - -foreign import javascript unsafe - "$1[\"testEnforceRangeUnsignedLong\"]" - js_getTestEnforceRangeUnsignedLong :: TypeConversions -> IO Word - --- | -getTestEnforceRangeUnsignedLong :: - (MonadIO m) => TypeConversions -> m Word -getTestEnforceRangeUnsignedLong self - = liftIO (js_getTestEnforceRangeUnsignedLong (self)) - -foreign import javascript unsafe "$1[\"testLongLong\"] = $2;" - js_setTestLongLong :: TypeConversions -> Double -> IO () - --- | -setTestLongLong :: (MonadIO m) => TypeConversions -> Int64 -> m () -setTestLongLong self val - = liftIO (js_setTestLongLong (self) (fromIntegral val)) - -foreign import javascript unsafe "$1[\"testLongLong\"]" - js_getTestLongLong :: TypeConversions -> IO Double - --- | -getTestLongLong :: (MonadIO m) => TypeConversions -> m Int64 -getTestLongLong self - = liftIO (round <$> (js_getTestLongLong (self))) - -foreign import javascript unsafe - "$1[\"testEnforceRangeLongLong\"] = $2;" - js_setTestEnforceRangeLongLong :: - TypeConversions -> Double -> IO () - --- | -setTestEnforceRangeLongLong :: - (MonadIO m) => TypeConversions -> Int64 -> m () -setTestEnforceRangeLongLong self val - = liftIO (js_setTestEnforceRangeLongLong (self) (fromIntegral val)) - -foreign import javascript unsafe "$1[\"testEnforceRangeLongLong\"]" - js_getTestEnforceRangeLongLong :: TypeConversions -> IO Double - --- | -getTestEnforceRangeLongLong :: - (MonadIO m) => TypeConversions -> m Int64 -getTestEnforceRangeLongLong self - = liftIO (round <$> (js_getTestEnforceRangeLongLong (self))) - -foreign import javascript unsafe - "$1[\"testUnsignedLongLong\"] = $2;" js_setTestUnsignedLongLong :: - TypeConversions -> Double -> IO () - --- | -setTestUnsignedLongLong :: - (MonadIO m) => TypeConversions -> Word64 -> m () -setTestUnsignedLongLong self val - = liftIO (js_setTestUnsignedLongLong (self) (fromIntegral val)) - -foreign import javascript unsafe "$1[\"testUnsignedLongLong\"]" - js_getTestUnsignedLongLong :: TypeConversions -> IO Double - --- | -getTestUnsignedLongLong :: - (MonadIO m) => TypeConversions -> m Word64 -getTestUnsignedLongLong self - = liftIO (round <$> (js_getTestUnsignedLongLong (self))) - -foreign import javascript unsafe - "$1[\"testEnforceRangeUnsignedLongLong\"] = $2;" - js_setTestEnforceRangeUnsignedLongLong :: - TypeConversions -> Double -> IO () - --- | -setTestEnforceRangeUnsignedLongLong :: - (MonadIO m) => TypeConversions -> Word64 -> m () -setTestEnforceRangeUnsignedLongLong self val - = liftIO - (js_setTestEnforceRangeUnsignedLongLong (self) (fromIntegral val)) - -foreign import javascript unsafe - "$1[\"testEnforceRangeUnsignedLongLong\"]" - js_getTestEnforceRangeUnsignedLongLong :: - TypeConversions -> IO Double - --- | -getTestEnforceRangeUnsignedLongLong :: - (MonadIO m) => TypeConversions -> m Word64 -getTestEnforceRangeUnsignedLongLong self - = liftIO - (round <$> (js_getTestEnforceRangeUnsignedLongLong (self))) - -foreign import javascript unsafe "$1[\"testByte\"] = $2;" - js_setTestByte :: TypeConversions -> Int -> IO () - --- | -setTestByte :: (MonadIO m) => TypeConversions -> Int -> m () -setTestByte self val = liftIO (js_setTestByte (self) val) - -foreign import javascript unsafe "$1[\"testByte\"]" js_getTestByte - :: TypeConversions -> IO Int - --- | -getTestByte :: (MonadIO m) => TypeConversions -> m Int -getTestByte self = liftIO (js_getTestByte (self)) - -foreign import javascript unsafe - "$1[\"testEnforceRangeByte\"] = $2;" js_setTestEnforceRangeByte :: - TypeConversions -> Int -> IO () - --- | -setTestEnforceRangeByte :: - (MonadIO m) => TypeConversions -> Int -> m () -setTestEnforceRangeByte self val - = liftIO (js_setTestEnforceRangeByte (self) val) - -foreign import javascript unsafe "$1[\"testEnforceRangeByte\"]" - js_getTestEnforceRangeByte :: TypeConversions -> IO Int - --- | -getTestEnforceRangeByte :: (MonadIO m) => TypeConversions -> m Int -getTestEnforceRangeByte self - = liftIO (js_getTestEnforceRangeByte (self)) - -foreign import javascript unsafe "$1[\"testOctet\"] = $2;" - js_setTestOctet :: TypeConversions -> Word -> IO () - --- | -setTestOctet :: (MonadIO m) => TypeConversions -> Word -> m () -setTestOctet self val = liftIO (js_setTestOctet (self) val) - -foreign import javascript unsafe "$1[\"testOctet\"]" - js_getTestOctet :: TypeConversions -> IO Word - --- | -getTestOctet :: (MonadIO m) => TypeConversions -> m Word -getTestOctet self = liftIO (js_getTestOctet (self)) - -foreign import javascript unsafe - "$1[\"testEnforceRangeOctet\"] = $2;" js_setTestEnforceRangeOctet - :: TypeConversions -> Word -> IO () - --- | -setTestEnforceRangeOctet :: - (MonadIO m) => TypeConversions -> Word -> m () -setTestEnforceRangeOctet self val - = liftIO (js_setTestEnforceRangeOctet (self) val) - -foreign import javascript unsafe "$1[\"testEnforceRangeOctet\"]" - js_getTestEnforceRangeOctet :: TypeConversions -> IO Word - --- | -getTestEnforceRangeOctet :: - (MonadIO m) => TypeConversions -> m Word -getTestEnforceRangeOctet self - = liftIO (js_getTestEnforceRangeOctet (self)) - -foreign import javascript unsafe "$1[\"testShort\"] = $2;" - js_setTestShort :: TypeConversions -> Int -> IO () - --- | -setTestShort :: (MonadIO m) => TypeConversions -> Int -> m () -setTestShort self val = liftIO (js_setTestShort (self) val) - -foreign import javascript unsafe "$1[\"testShort\"]" - js_getTestShort :: TypeConversions -> IO Int - --- | -getTestShort :: (MonadIO m) => TypeConversions -> m Int -getTestShort self = liftIO (js_getTestShort (self)) - -foreign import javascript unsafe - "$1[\"testEnforceRangeShort\"] = $2;" js_setTestEnforceRangeShort - :: TypeConversions -> Int -> IO () - --- | -setTestEnforceRangeShort :: - (MonadIO m) => TypeConversions -> Int -> m () -setTestEnforceRangeShort self val - = liftIO (js_setTestEnforceRangeShort (self) val) - -foreign import javascript unsafe "$1[\"testEnforceRangeShort\"]" - js_getTestEnforceRangeShort :: TypeConversions -> IO Int - --- | -getTestEnforceRangeShort :: (MonadIO m) => TypeConversions -> m Int -getTestEnforceRangeShort self - = liftIO (js_getTestEnforceRangeShort (self)) - -foreign import javascript unsafe "$1[\"testUnsignedShort\"] = $2;" - js_setTestUnsignedShort :: TypeConversions -> Word -> IO () - --- | -setTestUnsignedShort :: - (MonadIO m) => TypeConversions -> Word -> m () -setTestUnsignedShort self val - = liftIO (js_setTestUnsignedShort (self) val) - -foreign import javascript unsafe "$1[\"testUnsignedShort\"]" - js_getTestUnsignedShort :: TypeConversions -> IO Word - --- | -getTestUnsignedShort :: (MonadIO m) => TypeConversions -> m Word -getTestUnsignedShort self = liftIO (js_getTestUnsignedShort (self)) - -foreign import javascript unsafe - "$1[\"testEnforceRangeUnsignedShort\"] = $2;" - js_setTestEnforceRangeUnsignedShort :: - TypeConversions -> Word -> IO () - --- | -setTestEnforceRangeUnsignedShort :: - (MonadIO m) => TypeConversions -> Word -> m () -setTestEnforceRangeUnsignedShort self val - = liftIO (js_setTestEnforceRangeUnsignedShort (self) val) - -foreign import javascript unsafe - "$1[\"testEnforceRangeUnsignedShort\"]" - js_getTestEnforceRangeUnsignedShort :: TypeConversions -> IO Word - --- | -getTestEnforceRangeUnsignedShort :: - (MonadIO m) => TypeConversions -> m Word -getTestEnforceRangeUnsignedShort self - = liftIO (js_getTestEnforceRangeUnsignedShort (self)) diff --git a/src/GHCJS/DOM/JSFFI/Generated/UIEvent.hs b/src/GHCJS/DOM/JSFFI/Generated/UIEvent.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/UIEvent.hs +++ /dev/null @@ -1,101 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.UIEvent - (js_initUIEvent, initUIEvent, js_getView, getView, js_getDetail, - getDetail, js_getKeyCode, getKeyCode, js_getCharCode, getCharCode, - js_getLayerX, getLayerX, js_getLayerY, getLayerY, js_getPageX, - getPageX, js_getPageY, getPageY, js_getWhich, getWhich, UIEvent, - castToUIEvent, gTypeUIEvent, IsUIEvent, toUIEvent) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.Enums - -foreign import javascript unsafe - "$1[\"initUIEvent\"]($2, $3, $4,\n$5, $6)" js_initUIEvent :: - UIEvent -> - JSString -> Bool -> Bool -> Nullable Window -> Int -> IO () - --- | -initUIEvent :: - (MonadIO m, IsUIEvent self, ToJSString type') => - self -> type' -> Bool -> Bool -> Maybe Window -> Int -> m () -initUIEvent self type' canBubble cancelable view detail - = liftIO - (js_initUIEvent (toUIEvent self) (toJSString type') canBubble - cancelable - (maybeToNullable view) - detail) - -foreign import javascript unsafe "$1[\"view\"]" js_getView :: - UIEvent -> IO (Nullable Window) - --- | -getView :: (MonadIO m, IsUIEvent self) => self -> m (Maybe Window) -getView self - = liftIO (nullableToMaybe <$> (js_getView (toUIEvent self))) - -foreign import javascript unsafe "$1[\"detail\"]" js_getDetail :: - UIEvent -> IO Int - --- | -getDetail :: (MonadIO m, IsUIEvent self) => self -> m Int -getDetail self = liftIO (js_getDetail (toUIEvent self)) - -foreign import javascript unsafe "$1[\"keyCode\"]" js_getKeyCode :: - UIEvent -> IO Int - --- | -getKeyCode :: (MonadIO m, IsUIEvent self) => self -> m Int -getKeyCode self = liftIO (js_getKeyCode (toUIEvent self)) - -foreign import javascript unsafe "$1[\"charCode\"]" js_getCharCode - :: UIEvent -> IO Int - --- | -getCharCode :: (MonadIO m, IsUIEvent self) => self -> m Int -getCharCode self = liftIO (js_getCharCode (toUIEvent self)) - -foreign import javascript unsafe "$1[\"layerX\"]" js_getLayerX :: - UIEvent -> IO Int - --- | -getLayerX :: (MonadIO m, IsUIEvent self) => self -> m Int -getLayerX self = liftIO (js_getLayerX (toUIEvent self)) - -foreign import javascript unsafe "$1[\"layerY\"]" js_getLayerY :: - UIEvent -> IO Int - --- | -getLayerY :: (MonadIO m, IsUIEvent self) => self -> m Int -getLayerY self = liftIO (js_getLayerY (toUIEvent self)) - -foreign import javascript unsafe "$1[\"pageX\"]" js_getPageX :: - UIEvent -> IO Int - --- | -getPageX :: (MonadIO m, IsUIEvent self) => self -> m Int -getPageX self = liftIO (js_getPageX (toUIEvent self)) - -foreign import javascript unsafe "$1[\"pageY\"]" js_getPageY :: - UIEvent -> IO Int - --- | -getPageY :: (MonadIO m, IsUIEvent self) => self -> m Int -getPageY self = liftIO (js_getPageY (toUIEvent self)) - -foreign import javascript unsafe "$1[\"which\"]" js_getWhich :: - UIEvent -> IO Int - --- | -getWhich :: (MonadIO m, IsUIEvent self) => self -> m Int -getWhich self = liftIO (js_getWhich (toUIEvent self)) diff --git a/src/GHCJS/DOM/JSFFI/Generated/UIRequestEvent.hs b/src/GHCJS/DOM/JSFFI/Generated/UIRequestEvent.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/UIRequestEvent.hs +++ /dev/null @@ -1,28 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.UIRequestEvent - (js_getReceiver, getReceiver, UIRequestEvent, castToUIRequestEvent, - gTypeUIRequestEvent) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"receiver\"]" js_getReceiver - :: UIRequestEvent -> IO (Nullable EventTarget) - --- | -getReceiver :: - (MonadIO m) => UIRequestEvent -> m (Maybe EventTarget) -getReceiver self - = liftIO (nullableToMaybe <$> (js_getReceiver (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/URL.hs b/src/GHCJS/DOM/JSFFI/Generated/URL.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/URL.hs +++ /dev/null @@ -1,96 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.URL - (js_newURL, newURL, js_newURL', newURL', js_newURL'', newURL'', - js_createObjectURL, createObjectURL, js_revokeObjectURL, - revokeObjectURL, js_createObjectURLSource, createObjectURLSource, - js_createObjectURLStream, createObjectURLStream, URL, castToURL, - gTypeURL) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "new window[\"URL\"]($1)" - js_newURL :: JSString -> IO URL - --- | -newURL :: (MonadIO m, ToJSString url) => url -> m URL -newURL url = liftIO (js_newURL (toJSString url)) - -foreign import javascript unsafe "new window[\"URL\"]($1, $2)" - js_newURL' :: JSString -> JSString -> IO URL - --- | -newURL' :: - (MonadIO m, ToJSString url, ToJSString base) => - url -> base -> m URL -newURL' url base - = liftIO (js_newURL' (toJSString url) (toJSString base)) - -foreign import javascript unsafe "new window[\"URL\"]($1, $2)" - js_newURL'' :: JSString -> Nullable URL -> IO URL - --- | -newURL'' :: - (MonadIO m, ToJSString url) => url -> Maybe URL -> m URL -newURL'' url base - = liftIO (js_newURL'' (toJSString url) (maybeToNullable base)) - -foreign import javascript unsafe "$1[\"createObjectURL\"]($2)" - js_createObjectURL :: - URL -> Nullable Blob -> IO (Nullable JSString) - --- | -createObjectURL :: - (MonadIO m, IsBlob blob, FromJSString result) => - URL -> Maybe blob -> m (Maybe result) -createObjectURL self blob - = liftIO - (fromMaybeJSString <$> - (js_createObjectURL (self) (maybeToNullable (fmap toBlob blob)))) - -foreign import javascript unsafe "$1[\"revokeObjectURL\"]($2)" - js_revokeObjectURL :: URL -> JSString -> IO () - --- | -revokeObjectURL :: - (MonadIO m, ToJSString url) => URL -> url -> m () -revokeObjectURL self url - = liftIO (js_revokeObjectURL (self) (toJSString url)) - -foreign import javascript unsafe "$1[\"createObjectURL\"]($2)" - js_createObjectURLSource :: - URL -> Nullable MediaSource -> IO (Nullable JSString) - --- | -createObjectURLSource :: - (MonadIO m, FromJSString result) => - URL -> Maybe MediaSource -> m (Maybe result) -createObjectURLSource self source - = liftIO - (fromMaybeJSString <$> - (js_createObjectURLSource (self) (maybeToNullable source))) - -foreign import javascript unsafe "$1[\"createObjectURL\"]($2)" - js_createObjectURLStream :: - URL -> Nullable MediaStream -> IO (Nullable JSString) - --- | -createObjectURLStream :: - (MonadIO m, FromJSString result) => - URL -> Maybe MediaStream -> m (Maybe result) -createObjectURLStream self stream - = liftIO - (fromMaybeJSString <$> - (js_createObjectURLStream (self) (maybeToNullable stream))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/URLUtils.hs b/src/GHCJS/DOM/JSFFI/Generated/URLUtils.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/URLUtils.hs +++ /dev/null @@ -1,213 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.URLUtils - (js_toString, toString, js_setHref, setHref, js_getHref, getHref, - js_getOrigin, getOrigin, js_setProtocol, setProtocol, - js_getProtocol, getProtocol, js_setUsername, setUsername, - js_getUsername, getUsername, js_setPassword, setPassword, - js_getPassword, getPassword, js_setHost, setHost, js_getHost, - getHost, js_setHostname, setHostname, js_getHostname, getHostname, - js_setPort, setPort, js_getPort, getPort, js_setPathname, - setPathname, js_getPathname, getPathname, js_setSearch, setSearch, - js_getSearch, getSearch, js_setHash, setHash, js_getHash, getHash, - URLUtils, castToURLUtils, gTypeURLUtils) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"toString\"]()" js_toString - :: URLUtils -> IO JSString - --- | -toString :: - (MonadIO m, FromJSString result) => URLUtils -> m result -toString self = liftIO (fromJSString <$> (js_toString (self))) - -foreign import javascript unsafe "$1[\"href\"] = $2;" js_setHref :: - URLUtils -> JSString -> IO () - --- | -setHref :: (MonadIO m, ToJSString val) => URLUtils -> val -> m () -setHref self val = liftIO (js_setHref (self) (toJSString val)) - -foreign import javascript unsafe "$1[\"href\"]" js_getHref :: - URLUtils -> IO JSString - --- | -getHref :: (MonadIO m, FromJSString result) => URLUtils -> m result -getHref self = liftIO (fromJSString <$> (js_getHref (self))) - -foreign import javascript unsafe "$1[\"origin\"]" js_getOrigin :: - URLUtils -> IO JSString - --- | -getOrigin :: - (MonadIO m, FromJSString result) => URLUtils -> m result -getOrigin self = liftIO (fromJSString <$> (js_getOrigin (self))) - -foreign import javascript unsafe "$1[\"protocol\"] = $2;" - js_setProtocol :: URLUtils -> Nullable JSString -> IO () - --- | -setProtocol :: - (MonadIO m, ToJSString val) => URLUtils -> Maybe val -> m () -setProtocol self val - = liftIO (js_setProtocol (self) (toMaybeJSString val)) - -foreign import javascript unsafe "$1[\"protocol\"]" js_getProtocol - :: URLUtils -> IO (Nullable JSString) - --- | -getProtocol :: - (MonadIO m, FromJSString result) => URLUtils -> m (Maybe result) -getProtocol self - = liftIO (fromMaybeJSString <$> (js_getProtocol (self))) - -foreign import javascript unsafe "$1[\"username\"] = $2;" - js_setUsername :: URLUtils -> Nullable JSString -> IO () - --- | -setUsername :: - (MonadIO m, ToJSString val) => URLUtils -> Maybe val -> m () -setUsername self val - = liftIO (js_setUsername (self) (toMaybeJSString val)) - -foreign import javascript unsafe "$1[\"username\"]" js_getUsername - :: URLUtils -> IO (Nullable JSString) - --- | -getUsername :: - (MonadIO m, FromJSString result) => URLUtils -> m (Maybe result) -getUsername self - = liftIO (fromMaybeJSString <$> (js_getUsername (self))) - -foreign import javascript unsafe "$1[\"password\"] = $2;" - js_setPassword :: URLUtils -> Nullable JSString -> IO () - --- | -setPassword :: - (MonadIO m, ToJSString val) => URLUtils -> Maybe val -> m () -setPassword self val - = liftIO (js_setPassword (self) (toMaybeJSString val)) - -foreign import javascript unsafe "$1[\"password\"]" js_getPassword - :: URLUtils -> IO (Nullable JSString) - --- | -getPassword :: - (MonadIO m, FromJSString result) => URLUtils -> m (Maybe result) -getPassword self - = liftIO (fromMaybeJSString <$> (js_getPassword (self))) - -foreign import javascript unsafe "$1[\"host\"] = $2;" js_setHost :: - URLUtils -> Nullable JSString -> IO () - --- | -setHost :: - (MonadIO m, ToJSString val) => URLUtils -> Maybe val -> m () -setHost self val = liftIO (js_setHost (self) (toMaybeJSString val)) - -foreign import javascript unsafe "$1[\"host\"]" js_getHost :: - URLUtils -> IO (Nullable JSString) - --- | -getHost :: - (MonadIO m, FromJSString result) => URLUtils -> m (Maybe result) -getHost self = liftIO (fromMaybeJSString <$> (js_getHost (self))) - -foreign import javascript unsafe "$1[\"hostname\"] = $2;" - js_setHostname :: URLUtils -> Nullable JSString -> IO () - --- | -setHostname :: - (MonadIO m, ToJSString val) => URLUtils -> Maybe val -> m () -setHostname self val - = liftIO (js_setHostname (self) (toMaybeJSString val)) - -foreign import javascript unsafe "$1[\"hostname\"]" js_getHostname - :: URLUtils -> IO (Nullable JSString) - --- | -getHostname :: - (MonadIO m, FromJSString result) => URLUtils -> m (Maybe result) -getHostname self - = liftIO (fromMaybeJSString <$> (js_getHostname (self))) - -foreign import javascript unsafe "$1[\"port\"] = $2;" js_setPort :: - URLUtils -> Nullable JSString -> IO () - --- | -setPort :: - (MonadIO m, ToJSString val) => URLUtils -> Maybe val -> m () -setPort self val = liftIO (js_setPort (self) (toMaybeJSString val)) - -foreign import javascript unsafe "$1[\"port\"]" js_getPort :: - URLUtils -> IO (Nullable JSString) - --- | -getPort :: - (MonadIO m, FromJSString result) => URLUtils -> m (Maybe result) -getPort self = liftIO (fromMaybeJSString <$> (js_getPort (self))) - -foreign import javascript unsafe "$1[\"pathname\"] = $2;" - js_setPathname :: URLUtils -> Nullable JSString -> IO () - --- | -setPathname :: - (MonadIO m, ToJSString val) => URLUtils -> Maybe val -> m () -setPathname self val - = liftIO (js_setPathname (self) (toMaybeJSString val)) - -foreign import javascript unsafe "$1[\"pathname\"]" js_getPathname - :: URLUtils -> IO (Nullable JSString) - --- | -getPathname :: - (MonadIO m, FromJSString result) => URLUtils -> m (Maybe result) -getPathname self - = liftIO (fromMaybeJSString <$> (js_getPathname (self))) - -foreign import javascript unsafe "$1[\"search\"] = $2;" - js_setSearch :: URLUtils -> Nullable JSString -> IO () - --- | -setSearch :: - (MonadIO m, ToJSString val) => URLUtils -> Maybe val -> m () -setSearch self val - = liftIO (js_setSearch (self) (toMaybeJSString val)) - -foreign import javascript unsafe "$1[\"search\"]" js_getSearch :: - URLUtils -> IO (Nullable JSString) - --- | -getSearch :: - (MonadIO m, FromJSString result) => URLUtils -> m (Maybe result) -getSearch self - = liftIO (fromMaybeJSString <$> (js_getSearch (self))) - -foreign import javascript unsafe "$1[\"hash\"] = $2;" js_setHash :: - URLUtils -> Nullable JSString -> IO () - --- | -setHash :: - (MonadIO m, ToJSString val) => URLUtils -> Maybe val -> m () -setHash self val = liftIO (js_setHash (self) (toMaybeJSString val)) - -foreign import javascript unsafe "$1[\"hash\"]" js_getHash :: - URLUtils -> IO (Nullable JSString) - --- | -getHash :: - (MonadIO m, FromJSString result) => URLUtils -> m (Maybe result) -getHash self = liftIO (fromMaybeJSString <$> (js_getHash (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/UserMessageHandler.hs b/src/GHCJS/DOM/JSFFI/Generated/UserMessageHandler.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/UserMessageHandler.hs +++ /dev/null @@ -1,32 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.UserMessageHandler - (js_postMessage, postMessage, UserMessageHandler, - castToUserMessageHandler, gTypeUserMessageHandler) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"postMessage\"]($2)" - js_postMessage :: - UserMessageHandler -> Nullable SerializedScriptValue -> IO () - --- | -postMessage :: - (MonadIO m, IsSerializedScriptValue message) => - UserMessageHandler -> Maybe message -> m () -postMessage self message - = liftIO - (js_postMessage (self) - (maybeToNullable (fmap toSerializedScriptValue message))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/VTTCue.hs b/src/GHCJS/DOM/JSFFI/Generated/VTTCue.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/VTTCue.hs +++ /dev/null @@ -1,163 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.VTTCue - (js_newVTTCue, newVTTCue, js_getCueAsHTML, getCueAsHTML, - js_setVertical, setVertical, js_getVertical, getVertical, - js_setSnapToLines, setSnapToLines, js_getSnapToLines, - getSnapToLines, js_setLine, setLine, js_getLine, getLine, - js_setPosition, setPosition, js_getPosition, getPosition, - js_setSize, setSize, js_getSize, getSize, js_setAlign, setAlign, - js_getAlign, getAlign, js_setText, setText, js_getText, getText, - js_setRegionId, setRegionId, js_getRegionId, getRegionId, VTTCue, - castToVTTCue, gTypeVTTCue) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe - "new window[\"VTTCue\"]($1, $2, $3)" js_newVTTCue :: - Double -> Double -> JSString -> IO VTTCue - --- | -newVTTCue :: - (MonadIO m, ToJSString text) => - Double -> Double -> text -> m VTTCue -newVTTCue startTime endTime text - = liftIO (js_newVTTCue startTime endTime (toJSString text)) - -foreign import javascript unsafe "$1[\"getCueAsHTML\"]()" - js_getCueAsHTML :: VTTCue -> IO (Nullable DocumentFragment) - --- | -getCueAsHTML :: (MonadIO m) => VTTCue -> m (Maybe DocumentFragment) -getCueAsHTML self - = liftIO (nullableToMaybe <$> (js_getCueAsHTML (self))) - -foreign import javascript unsafe "$1[\"vertical\"] = $2;" - js_setVertical :: VTTCue -> JSString -> IO () - --- | -setVertical :: (MonadIO m, ToJSString val) => VTTCue -> val -> m () -setVertical self val - = liftIO (js_setVertical (self) (toJSString val)) - -foreign import javascript unsafe "$1[\"vertical\"]" js_getVertical - :: VTTCue -> IO JSString - --- | -getVertical :: - (MonadIO m, FromJSString result) => VTTCue -> m result -getVertical self - = liftIO (fromJSString <$> (js_getVertical (self))) - -foreign import javascript unsafe "$1[\"snapToLines\"] = $2;" - js_setSnapToLines :: VTTCue -> Bool -> IO () - --- | -setSnapToLines :: (MonadIO m) => VTTCue -> Bool -> m () -setSnapToLines self val = liftIO (js_setSnapToLines (self) val) - -foreign import javascript unsafe "($1[\"snapToLines\"] ? 1 : 0)" - js_getSnapToLines :: VTTCue -> IO Bool - --- | -getSnapToLines :: (MonadIO m) => VTTCue -> m Bool -getSnapToLines self = liftIO (js_getSnapToLines (self)) - -foreign import javascript unsafe "$1[\"line\"] = $2;" js_setLine :: - VTTCue -> Double -> IO () - --- | -setLine :: (MonadIO m) => VTTCue -> Double -> m () -setLine self val = liftIO (js_setLine (self) val) - -foreign import javascript unsafe "$1[\"line\"]" js_getLine :: - VTTCue -> IO Double - --- | -getLine :: (MonadIO m) => VTTCue -> m Double -getLine self = liftIO (js_getLine (self)) - -foreign import javascript unsafe "$1[\"position\"] = $2;" - js_setPosition :: VTTCue -> Double -> IO () - --- | -setPosition :: (MonadIO m) => VTTCue -> Double -> m () -setPosition self val = liftIO (js_setPosition (self) val) - -foreign import javascript unsafe "$1[\"position\"]" js_getPosition - :: VTTCue -> IO Double - --- | -getPosition :: (MonadIO m) => VTTCue -> m Double -getPosition self = liftIO (js_getPosition (self)) - -foreign import javascript unsafe "$1[\"size\"] = $2;" js_setSize :: - VTTCue -> Double -> IO () - --- | -setSize :: (MonadIO m) => VTTCue -> Double -> m () -setSize self val = liftIO (js_setSize (self) val) - -foreign import javascript unsafe "$1[\"size\"]" js_getSize :: - VTTCue -> IO Double - --- | -getSize :: (MonadIO m) => VTTCue -> m Double -getSize self = liftIO (js_getSize (self)) - -foreign import javascript unsafe "$1[\"align\"] = $2;" js_setAlign - :: VTTCue -> JSString -> IO () - --- | -setAlign :: (MonadIO m, ToJSString val) => VTTCue -> val -> m () -setAlign self val = liftIO (js_setAlign (self) (toJSString val)) - -foreign import javascript unsafe "$1[\"align\"]" js_getAlign :: - VTTCue -> IO JSString - --- | -getAlign :: (MonadIO m, FromJSString result) => VTTCue -> m result -getAlign self = liftIO (fromJSString <$> (js_getAlign (self))) - -foreign import javascript unsafe "$1[\"text\"] = $2;" js_setText :: - VTTCue -> JSString -> IO () - --- | -setText :: (MonadIO m, ToJSString val) => VTTCue -> val -> m () -setText self val = liftIO (js_setText (self) (toJSString val)) - -foreign import javascript unsafe "$1[\"text\"]" js_getText :: - VTTCue -> IO JSString - --- | -getText :: (MonadIO m, FromJSString result) => VTTCue -> m result -getText self = liftIO (fromJSString <$> (js_getText (self))) - -foreign import javascript unsafe "$1[\"regionId\"] = $2;" - js_setRegionId :: VTTCue -> JSString -> IO () - --- | -setRegionId :: (MonadIO m, ToJSString val) => VTTCue -> val -> m () -setRegionId self val - = liftIO (js_setRegionId (self) (toJSString val)) - -foreign import javascript unsafe "$1[\"regionId\"]" js_getRegionId - :: VTTCue -> IO JSString - --- | -getRegionId :: - (MonadIO m, FromJSString result) => VTTCue -> m result -getRegionId self - = liftIO (fromJSString <$> (js_getRegionId (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/VTTRegion.hs b/src/GHCJS/DOM/JSFFI/Generated/VTTRegion.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/VTTRegion.hs +++ /dev/null @@ -1,157 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.VTTRegion - (js_newVTTRegion, newVTTRegion, js_getTrack, getTrack, js_setId, - setId, js_getId, getId, js_setWidth, setWidth, js_getWidth, - getWidth, js_setHeight, setHeight, js_getHeight, getHeight, - js_setRegionAnchorX, setRegionAnchorX, js_getRegionAnchorX, - getRegionAnchorX, js_setRegionAnchorY, setRegionAnchorY, - js_getRegionAnchorY, getRegionAnchorY, js_setViewportAnchorX, - setViewportAnchorX, js_getViewportAnchorX, getViewportAnchorX, - js_setViewportAnchorY, setViewportAnchorY, js_getViewportAnchorY, - getViewportAnchorY, js_setScroll, setScroll, js_getScroll, - getScroll, VTTRegion, castToVTTRegion, gTypeVTTRegion) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "new window[\"VTTRegion\"]()" - js_newVTTRegion :: IO VTTRegion - --- | -newVTTRegion :: (MonadIO m) => m VTTRegion -newVTTRegion = liftIO (js_newVTTRegion) - -foreign import javascript unsafe "$1[\"track\"]" js_getTrack :: - VTTRegion -> IO (Nullable TextTrack) - --- | -getTrack :: (MonadIO m) => VTTRegion -> m (Maybe TextTrack) -getTrack self = liftIO (nullableToMaybe <$> (js_getTrack (self))) - -foreign import javascript unsafe "$1[\"id\"] = $2;" js_setId :: - VTTRegion -> JSString -> IO () - --- | -setId :: (MonadIO m, ToJSString val) => VTTRegion -> val -> m () -setId self val = liftIO (js_setId (self) (toJSString val)) - -foreign import javascript unsafe "$1[\"id\"]" js_getId :: - VTTRegion -> IO JSString - --- | -getId :: (MonadIO m, FromJSString result) => VTTRegion -> m result -getId self = liftIO (fromJSString <$> (js_getId (self))) - -foreign import javascript unsafe "$1[\"width\"] = $2;" js_setWidth - :: VTTRegion -> Double -> IO () - --- | -setWidth :: (MonadIO m) => VTTRegion -> Double -> m () -setWidth self val = liftIO (js_setWidth (self) val) - -foreign import javascript unsafe "$1[\"width\"]" js_getWidth :: - VTTRegion -> IO Double - --- | -getWidth :: (MonadIO m) => VTTRegion -> m Double -getWidth self = liftIO (js_getWidth (self)) - -foreign import javascript unsafe "$1[\"height\"] = $2;" - js_setHeight :: VTTRegion -> Int -> IO () - --- | -setHeight :: (MonadIO m) => VTTRegion -> Int -> m () -setHeight self val = liftIO (js_setHeight (self) val) - -foreign import javascript unsafe "$1[\"height\"]" js_getHeight :: - VTTRegion -> IO Int - --- | -getHeight :: (MonadIO m) => VTTRegion -> m Int -getHeight self = liftIO (js_getHeight (self)) - -foreign import javascript unsafe "$1[\"regionAnchorX\"] = $2;" - js_setRegionAnchorX :: VTTRegion -> Double -> IO () - --- | -setRegionAnchorX :: (MonadIO m) => VTTRegion -> Double -> m () -setRegionAnchorX self val = liftIO (js_setRegionAnchorX (self) val) - -foreign import javascript unsafe "$1[\"regionAnchorX\"]" - js_getRegionAnchorX :: VTTRegion -> IO Double - --- | -getRegionAnchorX :: (MonadIO m) => VTTRegion -> m Double -getRegionAnchorX self = liftIO (js_getRegionAnchorX (self)) - -foreign import javascript unsafe "$1[\"regionAnchorY\"] = $2;" - js_setRegionAnchorY :: VTTRegion -> Double -> IO () - --- | -setRegionAnchorY :: (MonadIO m) => VTTRegion -> Double -> m () -setRegionAnchorY self val = liftIO (js_setRegionAnchorY (self) val) - -foreign import javascript unsafe "$1[\"regionAnchorY\"]" - js_getRegionAnchorY :: VTTRegion -> IO Double - --- | -getRegionAnchorY :: (MonadIO m) => VTTRegion -> m Double -getRegionAnchorY self = liftIO (js_getRegionAnchorY (self)) - -foreign import javascript unsafe "$1[\"viewportAnchorX\"] = $2;" - js_setViewportAnchorX :: VTTRegion -> Double -> IO () - --- | -setViewportAnchorX :: (MonadIO m) => VTTRegion -> Double -> m () -setViewportAnchorX self val - = liftIO (js_setViewportAnchorX (self) val) - -foreign import javascript unsafe "$1[\"viewportAnchorX\"]" - js_getViewportAnchorX :: VTTRegion -> IO Double - --- | -getViewportAnchorX :: (MonadIO m) => VTTRegion -> m Double -getViewportAnchorX self = liftIO (js_getViewportAnchorX (self)) - -foreign import javascript unsafe "$1[\"viewportAnchorY\"] = $2;" - js_setViewportAnchorY :: VTTRegion -> Double -> IO () - --- | -setViewportAnchorY :: (MonadIO m) => VTTRegion -> Double -> m () -setViewportAnchorY self val - = liftIO (js_setViewportAnchorY (self) val) - -foreign import javascript unsafe "$1[\"viewportAnchorY\"]" - js_getViewportAnchorY :: VTTRegion -> IO Double - --- | -getViewportAnchorY :: (MonadIO m) => VTTRegion -> m Double -getViewportAnchorY self = liftIO (js_getViewportAnchorY (self)) - -foreign import javascript unsafe "$1[\"scroll\"] = $2;" - js_setScroll :: VTTRegion -> JSString -> IO () - --- | -setScroll :: - (MonadIO m, ToJSString val) => VTTRegion -> val -> m () -setScroll self val = liftIO (js_setScroll (self) (toJSString val)) - -foreign import javascript unsafe "$1[\"scroll\"]" js_getScroll :: - VTTRegion -> IO JSString - --- | -getScroll :: - (MonadIO m, FromJSString result) => VTTRegion -> m result -getScroll self = liftIO (fromJSString <$> (js_getScroll (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/VTTRegionList.hs b/src/GHCJS/DOM/JSFFI/Generated/VTTRegionList.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/VTTRegionList.hs +++ /dev/null @@ -1,46 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.VTTRegionList - (js_item, item, js_getRegionById, getRegionById, js_getLength, - getLength, VTTRegionList, castToVTTRegionList, gTypeVTTRegionList) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"item\"]($2)" js_item :: - VTTRegionList -> Word -> IO (Nullable VTTRegion) - --- | -item :: (MonadIO m) => VTTRegionList -> Word -> m (Maybe VTTRegion) -item self index - = liftIO (nullableToMaybe <$> (js_item (self) index)) - -foreign import javascript unsafe "$1[\"getRegionById\"]($2)" - js_getRegionById :: - VTTRegionList -> JSString -> IO (Nullable VTTRegion) - --- | -getRegionById :: - (MonadIO m, ToJSString id) => - VTTRegionList -> id -> m (Maybe VTTRegion) -getRegionById self id - = liftIO - (nullableToMaybe <$> (js_getRegionById (self) (toJSString id))) - -foreign import javascript unsafe "$1[\"length\"]" js_getLength :: - VTTRegionList -> IO Word - --- | -getLength :: (MonadIO m) => VTTRegionList -> m Word -getLength self = liftIO (js_getLength (self)) diff --git a/src/GHCJS/DOM/JSFFI/Generated/ValidityState.hs b/src/GHCJS/DOM/JSFFI/Generated/ValidityState.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/ValidityState.hs +++ /dev/null @@ -1,95 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.ValidityState - (js_getValueMissing, getValueMissing, js_getTypeMismatch, - getTypeMismatch, js_getPatternMismatch, getPatternMismatch, - js_getTooLong, getTooLong, js_getRangeUnderflow, getRangeUnderflow, - js_getRangeOverflow, getRangeOverflow, js_getStepMismatch, - getStepMismatch, js_getBadInput, getBadInput, js_getCustomError, - getCustomError, js_getValid, getValid, ValidityState, - castToValidityState, gTypeValidityState) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "($1[\"valueMissing\"] ? 1 : 0)" - js_getValueMissing :: ValidityState -> IO Bool - --- | -getValueMissing :: (MonadIO m) => ValidityState -> m Bool -getValueMissing self = liftIO (js_getValueMissing (self)) - -foreign import javascript unsafe "($1[\"typeMismatch\"] ? 1 : 0)" - js_getTypeMismatch :: ValidityState -> IO Bool - --- | -getTypeMismatch :: (MonadIO m) => ValidityState -> m Bool -getTypeMismatch self = liftIO (js_getTypeMismatch (self)) - -foreign import javascript unsafe - "($1[\"patternMismatch\"] ? 1 : 0)" js_getPatternMismatch :: - ValidityState -> IO Bool - --- | -getPatternMismatch :: (MonadIO m) => ValidityState -> m Bool -getPatternMismatch self = liftIO (js_getPatternMismatch (self)) - -foreign import javascript unsafe "($1[\"tooLong\"] ? 1 : 0)" - js_getTooLong :: ValidityState -> IO Bool - --- | -getTooLong :: (MonadIO m) => ValidityState -> m Bool -getTooLong self = liftIO (js_getTooLong (self)) - -foreign import javascript unsafe "($1[\"rangeUnderflow\"] ? 1 : 0)" - js_getRangeUnderflow :: ValidityState -> IO Bool - --- | -getRangeUnderflow :: (MonadIO m) => ValidityState -> m Bool -getRangeUnderflow self = liftIO (js_getRangeUnderflow (self)) - -foreign import javascript unsafe "($1[\"rangeOverflow\"] ? 1 : 0)" - js_getRangeOverflow :: ValidityState -> IO Bool - --- | -getRangeOverflow :: (MonadIO m) => ValidityState -> m Bool -getRangeOverflow self = liftIO (js_getRangeOverflow (self)) - -foreign import javascript unsafe "($1[\"stepMismatch\"] ? 1 : 0)" - js_getStepMismatch :: ValidityState -> IO Bool - --- | -getStepMismatch :: (MonadIO m) => ValidityState -> m Bool -getStepMismatch self = liftIO (js_getStepMismatch (self)) - -foreign import javascript unsafe "($1[\"badInput\"] ? 1 : 0)" - js_getBadInput :: ValidityState -> IO Bool - --- | -getBadInput :: (MonadIO m) => ValidityState -> m Bool -getBadInput self = liftIO (js_getBadInput (self)) - -foreign import javascript unsafe "($1[\"customError\"] ? 1 : 0)" - js_getCustomError :: ValidityState -> IO Bool - --- | -getCustomError :: (MonadIO m) => ValidityState -> m Bool -getCustomError self = liftIO (js_getCustomError (self)) - -foreign import javascript unsafe "($1[\"valid\"] ? 1 : 0)" - js_getValid :: ValidityState -> IO Bool - --- | -getValid :: (MonadIO m) => ValidityState -> m Bool -getValid self = liftIO (js_getValid (self)) diff --git a/src/GHCJS/DOM/JSFFI/Generated/VideoPlaybackQuality.hs b/src/GHCJS/DOM/JSFFI/Generated/VideoPlaybackQuality.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/VideoPlaybackQuality.hs +++ /dev/null @@ -1,64 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.VideoPlaybackQuality - (js_getCreationTime, getCreationTime, js_getTotalVideoFrames, - getTotalVideoFrames, js_getDroppedVideoFrames, - getDroppedVideoFrames, js_getCorruptedVideoFrames, - getCorruptedVideoFrames, js_getTotalFrameDelay, getTotalFrameDelay, - VideoPlaybackQuality, castToVideoPlaybackQuality, - gTypeVideoPlaybackQuality) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"creationTime\"]" - js_getCreationTime :: VideoPlaybackQuality -> IO Double - --- | -getCreationTime :: (MonadIO m) => VideoPlaybackQuality -> m Double -getCreationTime self = liftIO (js_getCreationTime (self)) - -foreign import javascript unsafe "$1[\"totalVideoFrames\"]" - js_getTotalVideoFrames :: VideoPlaybackQuality -> IO Word - --- | -getTotalVideoFrames :: - (MonadIO m) => VideoPlaybackQuality -> m Word -getTotalVideoFrames self = liftIO (js_getTotalVideoFrames (self)) - -foreign import javascript unsafe "$1[\"droppedVideoFrames\"]" - js_getDroppedVideoFrames :: VideoPlaybackQuality -> IO Word - --- | -getDroppedVideoFrames :: - (MonadIO m) => VideoPlaybackQuality -> m Word -getDroppedVideoFrames self - = liftIO (js_getDroppedVideoFrames (self)) - -foreign import javascript unsafe "$1[\"corruptedVideoFrames\"]" - js_getCorruptedVideoFrames :: VideoPlaybackQuality -> IO Word - --- | -getCorruptedVideoFrames :: - (MonadIO m) => VideoPlaybackQuality -> m Word -getCorruptedVideoFrames self - = liftIO (js_getCorruptedVideoFrames (self)) - -foreign import javascript unsafe "$1[\"totalFrameDelay\"]" - js_getTotalFrameDelay :: VideoPlaybackQuality -> IO Double - --- | -getTotalFrameDelay :: - (MonadIO m) => VideoPlaybackQuality -> m Double -getTotalFrameDelay self = liftIO (js_getTotalFrameDelay (self)) diff --git a/src/GHCJS/DOM/JSFFI/Generated/VideoStreamTrack.hs b/src/GHCJS/DOM/JSFFI/Generated/VideoStreamTrack.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/VideoStreamTrack.hs +++ /dev/null @@ -1,32 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.VideoStreamTrack - (js_newVideoStreamTrack, newVideoStreamTrack, VideoStreamTrack, - castToVideoStreamTrack, gTypeVideoStreamTrack) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe - "new window[\"VideoStreamTrack\"]($1)" js_newVideoStreamTrack :: - Nullable Dictionary -> IO VideoStreamTrack - --- | -newVideoStreamTrack :: - (MonadIO m, IsDictionary videoConstraints) => - Maybe videoConstraints -> m VideoStreamTrack -newVideoStreamTrack videoConstraints - = liftIO - (js_newVideoStreamTrack - (maybeToNullable (fmap toDictionary videoConstraints))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/VideoTrack.hs b/src/GHCJS/DOM/JSFFI/Generated/VideoTrack.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/VideoTrack.hs +++ /dev/null @@ -1,93 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.VideoTrack - (js_getId, getId, js_setKind, setKind, js_getKind, getKind, - js_getLabel, getLabel, js_setLanguage, setLanguage, js_getLanguage, - getLanguage, js_setSelected, setSelected, js_getSelected, - getSelected, js_getSourceBuffer, getSourceBuffer, VideoTrack, - castToVideoTrack, gTypeVideoTrack) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"id\"]" js_getId :: - VideoTrack -> IO JSString - --- | -getId :: (MonadIO m, FromJSString result) => VideoTrack -> m result -getId self = liftIO (fromJSString <$> (js_getId (self))) - -foreign import javascript unsafe "$1[\"kind\"] = $2;" js_setKind :: - VideoTrack -> JSString -> IO () - --- | -setKind :: (MonadIO m, ToJSString val) => VideoTrack -> val -> m () -setKind self val = liftIO (js_setKind (self) (toJSString val)) - -foreign import javascript unsafe "$1[\"kind\"]" js_getKind :: - VideoTrack -> IO JSString - --- | -getKind :: - (MonadIO m, FromJSString result) => VideoTrack -> m result -getKind self = liftIO (fromJSString <$> (js_getKind (self))) - -foreign import javascript unsafe "$1[\"label\"]" js_getLabel :: - VideoTrack -> IO JSString - --- | -getLabel :: - (MonadIO m, FromJSString result) => VideoTrack -> m result -getLabel self = liftIO (fromJSString <$> (js_getLabel (self))) - -foreign import javascript unsafe "$1[\"language\"] = $2;" - js_setLanguage :: VideoTrack -> JSString -> IO () - --- | -setLanguage :: - (MonadIO m, ToJSString val) => VideoTrack -> val -> m () -setLanguage self val - = liftIO (js_setLanguage (self) (toJSString val)) - -foreign import javascript unsafe "$1[\"language\"]" js_getLanguage - :: VideoTrack -> IO JSString - --- | -getLanguage :: - (MonadIO m, FromJSString result) => VideoTrack -> m result -getLanguage self - = liftIO (fromJSString <$> (js_getLanguage (self))) - -foreign import javascript unsafe "$1[\"selected\"] = $2;" - js_setSelected :: VideoTrack -> Bool -> IO () - --- | -setSelected :: (MonadIO m) => VideoTrack -> Bool -> m () -setSelected self val = liftIO (js_setSelected (self) val) - -foreign import javascript unsafe "($1[\"selected\"] ? 1 : 0)" - js_getSelected :: VideoTrack -> IO Bool - --- | -getSelected :: (MonadIO m) => VideoTrack -> m Bool -getSelected self = liftIO (js_getSelected (self)) - -foreign import javascript unsafe "$1[\"sourceBuffer\"]" - js_getSourceBuffer :: VideoTrack -> IO (Nullable SourceBuffer) - --- | -getSourceBuffer :: - (MonadIO m) => VideoTrack -> m (Maybe SourceBuffer) -getSourceBuffer self - = liftIO (nullableToMaybe <$> (js_getSourceBuffer (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/VideoTrackList.hs b/src/GHCJS/DOM/JSFFI/Generated/VideoTrackList.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/VideoTrackList.hs +++ /dev/null @@ -1,68 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.VideoTrackList - (js_item, item, js_getTrackById, getTrackById, js_getLength, - getLength, js_getSelectedIndex, getSelectedIndex, change, addTrack, - removeTrack, VideoTrackList, castToVideoTrackList, - gTypeVideoTrackList) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"item\"]($2)" js_item :: - VideoTrackList -> Word -> IO (Nullable VideoTrack) - --- | -item :: - (MonadIO m) => VideoTrackList -> Word -> m (Maybe VideoTrack) -item self index - = liftIO (nullableToMaybe <$> (js_item (self) index)) - -foreign import javascript unsafe "$1[\"getTrackById\"]($2)" - js_getTrackById :: - VideoTrackList -> JSString -> IO (Nullable VideoTrack) - --- | -getTrackById :: - (MonadIO m, ToJSString id) => - VideoTrackList -> id -> m (Maybe VideoTrack) -getTrackById self id - = liftIO - (nullableToMaybe <$> (js_getTrackById (self) (toJSString id))) - -foreign import javascript unsafe "$1[\"length\"]" js_getLength :: - VideoTrackList -> IO Word - --- | -getLength :: (MonadIO m) => VideoTrackList -> m Word -getLength self = liftIO (js_getLength (self)) - -foreign import javascript unsafe "$1[\"selectedIndex\"]" - js_getSelectedIndex :: VideoTrackList -> IO Int - --- | -getSelectedIndex :: (MonadIO m) => VideoTrackList -> m Int -getSelectedIndex self = liftIO (js_getSelectedIndex (self)) - --- | -change :: EventName VideoTrackList Event -change = unsafeEventName (toJSString "change") - --- | -addTrack :: EventName VideoTrackList Event -addTrack = unsafeEventName (toJSString "addtrack") - --- | -removeTrack :: EventName VideoTrackList Event -removeTrack = unsafeEventName (toJSString "removetrack") diff --git a/src/GHCJS/DOM/JSFFI/Generated/VoidCallback.hs b/src/GHCJS/DOM/JSFFI/Generated/VoidCallback.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/VoidCallback.hs +++ /dev/null @@ -1,34 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.VoidCallback - (newVoidCallback, newVoidCallbackSync, newVoidCallbackAsync, - VoidCallback) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - --- | -newVoidCallback :: (MonadIO m) => IO () -> m VoidCallback -newVoidCallback callback - = liftIO (VoidCallback <$> syncCallback ThrowWouldBlock callback) - --- | -newVoidCallbackSync :: (MonadIO m) => IO () -> m VoidCallback -newVoidCallbackSync callback - = liftIO (VoidCallback <$> syncCallback ContinueAsync callback) - --- | -newVoidCallbackAsync :: (MonadIO m) => IO () -> m VoidCallback -newVoidCallbackAsync callback - = liftIO (VoidCallback <$> asyncCallback callback) diff --git a/src/GHCJS/DOM/JSFFI/Generated/WaveShaperNode.hs b/src/GHCJS/DOM/JSFFI/Generated/WaveShaperNode.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/WaveShaperNode.hs +++ /dev/null @@ -1,55 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.WaveShaperNode - (js_setCurve, setCurve, js_getCurve, getCurve, js_setOversample, - setOversample, js_getOversample, getOversample, WaveShaperNode, - castToWaveShaperNode, gTypeWaveShaperNode) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"curve\"] = $2;" js_setCurve - :: WaveShaperNode -> Nullable Float32Array -> IO () - --- | -setCurve :: - (MonadIO m, IsFloat32Array val) => - WaveShaperNode -> Maybe val -> m () -setCurve self val - = liftIO - (js_setCurve (self) (maybeToNullable (fmap toFloat32Array val))) - -foreign import javascript unsafe "$1[\"curve\"]" js_getCurve :: - WaveShaperNode -> IO (Nullable Float32Array) - --- | -getCurve :: (MonadIO m) => WaveShaperNode -> m (Maybe Float32Array) -getCurve self = liftIO (nullableToMaybe <$> (js_getCurve (self))) - -foreign import javascript unsafe "$1[\"oversample\"] = $2;" - js_setOversample :: WaveShaperNode -> JSVal -> IO () - --- | -setOversample :: - (MonadIO m) => WaveShaperNode -> OverSampleType -> m () -setOversample self val - = liftIO (js_setOversample (self) (pToJSVal val)) - -foreign import javascript unsafe "$1[\"oversample\"]" - js_getOversample :: WaveShaperNode -> IO JSVal - --- | -getOversample :: (MonadIO m) => WaveShaperNode -> m OverSampleType -getOversample self - = liftIO ((js_getOversample (self)) >>= fromJSValUnchecked) diff --git a/src/GHCJS/DOM/JSFFI/Generated/WebGL2RenderingContext.hs b/src/GHCJS/DOM/JSFFI/Generated/WebGL2RenderingContext.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/WebGL2RenderingContext.hs +++ /dev/null @@ -1,1953 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.WebGL2RenderingContext - (js_copyBufferSubData, copyBufferSubData, js_getBufferSubDataView, - getBufferSubDataView, js_getBufferSubData, getBufferSubData, - js_getFramebufferAttachmentParameter, - getFramebufferAttachmentParameter, js_blitFramebuffer, - blitFramebuffer, js_framebufferTextureLayer, - framebufferTextureLayer, js_getInternalformatParameter, - getInternalformatParameter, js_invalidateFramebuffer, - invalidateFramebuffer, js_invalidateSubFramebuffer, - invalidateSubFramebuffer, js_readBuffer, readBuffer, - js_renderbufferStorageMultisample, renderbufferStorageMultisample, - js_texStorage2D, texStorage2D, js_texStorage3D, texStorage3D, - js_texImage3D, texImage3D, js_texSubImage3DView, texSubImage3DView, - js_texSubImage3DData, texSubImage3DData, js_texSubImage3D, - texSubImage3D, js_texSubImage3DCanvas, texSubImage3DCanvas, - js_texSubImage3DVideo, texSubImage3DVideo, js_copyTexSubImage3D, - copyTexSubImage3D, js_compressedTexImage3D, compressedTexImage3D, - js_compressedTexSubImage3D, compressedTexSubImage3D, - js_getFragDataLocation, getFragDataLocation, js_uniform1ui, - uniform1ui, js_uniform2ui, uniform2ui, js_uniform3ui, uniform3ui, - js_uniform4ui, uniform4ui, js_uniform1uiv, uniform1uiv, - js_uniform2uiv, uniform2uiv, js_uniform3uiv, uniform3uiv, - js_uniform4uiv, uniform4uiv, js_uniformMatrix2x3fv, - uniformMatrix2x3fv, js_uniformMatrix3x2fv, uniformMatrix3x2fv, - js_uniformMatrix2x4fv, uniformMatrix2x4fv, js_uniformMatrix4x2fv, - uniformMatrix4x2fv, js_uniformMatrix3x4fv, uniformMatrix3x4fv, - js_uniformMatrix4x3fv, uniformMatrix4x3fv, js_vertexAttribI4i, - vertexAttribI4i, js_vertexAttribI4iv, vertexAttribI4iv, - js_vertexAttribI4ui, vertexAttribI4ui, js_vertexAttribI4uiv, - vertexAttribI4uiv, js_vertexAttribIPointer, vertexAttribIPointer, - js_vertexAttribDivisor, vertexAttribDivisor, - js_drawArraysInstanced, drawArraysInstanced, - js_drawElementsInstanced, drawElementsInstanced, - js_drawRangeElements, drawRangeElements, js_drawBuffers, - drawBuffers, js_clearBufferiv, clearBufferiv, js_clearBufferuiv, - clearBufferuiv, js_clearBufferfv, clearBufferfv, js_clearBufferfi, - clearBufferfi, js_createQuery, createQuery, js_deleteQuery, - deleteQuery, js_isQuery, isQuery, js_beginQuery, beginQuery, - js_endQuery, endQuery, js_getQuery, getQuery, js_getQueryParameter, - getQueryParameter, js_createSampler, createSampler, - js_deleteSampler, deleteSampler, js_isSampler, isSampler, - js_bindSampler, bindSampler, js_samplerParameteri, - samplerParameteri, js_samplerParameterf, samplerParameterf, - js_getSamplerParameter, getSamplerParameter, js_fenceSync, - fenceSync, js_isSync, isSync, js_deleteSync, deleteSync, - js_clientWaitSync, clientWaitSync, js_waitSync, waitSync, - js_getSyncParameter, getSyncParameter, js_createTransformFeedback, - createTransformFeedback, js_deleteTransformFeedback, - deleteTransformFeedback, js_isTransformFeedback, - isTransformFeedback, js_bindTransformFeedback, - bindTransformFeedback, js_beginTransformFeedback, - beginTransformFeedback, js_endTransformFeedback, - endTransformFeedback, js_transformFeedbackVaryings, - transformFeedbackVaryings, js_getTransformFeedbackVarying, - getTransformFeedbackVarying, js_pauseTransformFeedback, - pauseTransformFeedback, js_resumeTransformFeedback, - resumeTransformFeedback, js_bindBufferBase, bindBufferBase, - js_bindBufferRange, bindBufferRange, js_getIndexedParameter, - getIndexedParameter, js_getUniformIndices, getUniformIndices, - js_getActiveUniforms, getActiveUniforms, js_getUniformBlockIndex, - getUniformBlockIndex, js_getActiveUniformBlockParameter, - getActiveUniformBlockParameter, js_getActiveUniformBlockName, - getActiveUniformBlockName, js_uniformBlockBinding, - uniformBlockBinding, js_createVertexArray, createVertexArray, - js_deleteVertexArray, deleteVertexArray, js_isVertexArray, - isVertexArray, js_bindVertexArray, bindVertexArray, - pattern READ_BUFFER, pattern UNPACK_ROW_LENGTH, - pattern UNPACK_SKIP_ROWS, pattern UNPACK_SKIP_PIXELS, - pattern PACK_ROW_LENGTH, pattern PACK_SKIP_ROWS, - pattern PACK_SKIP_PIXELS, pattern COLOR, pattern DEPTH, - pattern STENCIL, pattern RED, pattern RGB8, pattern RGBA8, - pattern RGB10_A2, pattern TEXTURE_BINDING_3D, - pattern UNPACK_SKIP_IMAGES, pattern UNPACK_IMAGE_HEIGHT, - pattern TEXTURE_3D, pattern TEXTURE_WRAP_R, - pattern MAX_3D_TEXTURE_SIZE, pattern UNSIGNED_INT_2_10_10_10_REV, - pattern MAX_ELEMENTS_VERTICES, pattern MAX_ELEMENTS_INDICES, - pattern TEXTURE_MIN_LOD, pattern TEXTURE_MAX_LOD, - pattern TEXTURE_BASE_LEVEL, pattern TEXTURE_MAX_LEVEL, pattern MIN, - pattern MAX, pattern DEPTH_COMPONENT24, - pattern MAX_TEXTURE_LOD_BIAS, pattern TEXTURE_COMPARE_MODE, - pattern TEXTURE_COMPARE_FUNC, pattern CURRENT_QUERY, - pattern QUERY_RESULT, pattern QUERY_RESULT_AVAILABLE, - pattern STREAM_READ, pattern STREAM_COPY, pattern STATIC_READ, - pattern STATIC_COPY, pattern DYNAMIC_READ, pattern DYNAMIC_COPY, - pattern MAX_DRAW_BUFFERS, pattern DRAW_BUFFER0, - pattern DRAW_BUFFER1, pattern DRAW_BUFFER2, pattern DRAW_BUFFER3, - pattern DRAW_BUFFER4, pattern DRAW_BUFFER5, pattern DRAW_BUFFER6, - pattern DRAW_BUFFER7, pattern DRAW_BUFFER8, pattern DRAW_BUFFER9, - pattern DRAW_BUFFER10, pattern DRAW_BUFFER11, - pattern DRAW_BUFFER12, pattern DRAW_BUFFER13, - pattern DRAW_BUFFER14, pattern DRAW_BUFFER15, - pattern MAX_FRAGMENT_UNIFORM_COMPONENTS, - pattern MAX_VERTEX_UNIFORM_COMPONENTS, pattern SAMPLER_3D, - pattern SAMPLER_2D_SHADOW, pattern FRAGMENT_SHADER_DERIVATIVE_HINT, - pattern PIXEL_PACK_BUFFER, pattern PIXEL_UNPACK_BUFFER, - pattern PIXEL_PACK_BUFFER_BINDING, - pattern PIXEL_UNPACK_BUFFER_BINDING, pattern FLOAT_MAT2x3, - pattern FLOAT_MAT2x4, pattern FLOAT_MAT3x2, pattern FLOAT_MAT3x4, - pattern FLOAT_MAT4x2, pattern FLOAT_MAT4x3, pattern SRGB, - pattern SRGB8, pattern SRGB8_ALPHA8, - pattern COMPARE_REF_TO_TEXTURE, pattern RGBA32F, pattern RGB32F, - pattern RGBA16F, pattern RGB16F, - pattern VERTEX_ATTRIB_ARRAY_INTEGER, - pattern MAX_ARRAY_TEXTURE_LAYERS, pattern MIN_PROGRAM_TEXEL_OFFSET, - pattern MAX_PROGRAM_TEXEL_OFFSET, pattern MAX_VARYING_COMPONENTS, - pattern TEXTURE_2D_ARRAY, pattern TEXTURE_BINDING_2D_ARRAY, - pattern R11F_G11F_B10F, pattern UNSIGNED_INT_10F_11F_11F_REV, - pattern RGB9_E5, pattern UNSIGNED_INT_5_9_9_9_REV, - pattern TRANSFORM_FEEDBACK_BUFFER_MODE, - pattern MAX_TRANSFORM_FEEDBACK_SEPARATE_COMPONENTS, - pattern TRANSFORM_FEEDBACK_VARYINGS, - pattern TRANSFORM_FEEDBACK_BUFFER_START, - pattern TRANSFORM_FEEDBACK_BUFFER_SIZE, - pattern TRANSFORM_FEEDBACK_PRIMITIVES_WRITTEN, - pattern RASTERIZER_DISCARD, - pattern MAX_TRANSFORM_FEEDBACK_INTERLEAVED_COMPONENTS, - pattern MAX_TRANSFORM_FEEDBACK_SEPARATE_ATTRIBS, - pattern INTERLEAVED_ATTRIBS, pattern SEPARATE_ATTRIBS, - pattern TRANSFORM_FEEDBACK_BUFFER, - pattern TRANSFORM_FEEDBACK_BUFFER_BINDING, pattern RGBA32UI, - pattern RGB32UI, pattern RGBA16UI, pattern RGB16UI, - pattern RGBA8UI, pattern RGB8UI, pattern RGBA32I, pattern RGB32I, - pattern RGBA16I, pattern RGB16I, pattern RGBA8I, pattern RGB8I, - pattern RED_INTEGER, pattern RGB_INTEGER, pattern RGBA_INTEGER, - pattern SAMPLER_2D_ARRAY, pattern SAMPLER_2D_ARRAY_SHADOW, - pattern SAMPLER_CUBE_SHADOW, pattern UNSIGNED_INT_VEC2, - pattern UNSIGNED_INT_VEC3, pattern UNSIGNED_INT_VEC4, - pattern INT_SAMPLER_2D, pattern INT_SAMPLER_3D, - pattern INT_SAMPLER_CUBE, pattern INT_SAMPLER_2D_ARRAY, - pattern UNSIGNED_INT_SAMPLER_2D, pattern UNSIGNED_INT_SAMPLER_3D, - pattern UNSIGNED_INT_SAMPLER_CUBE, - pattern UNSIGNED_INT_SAMPLER_2D_ARRAY, pattern DEPTH_COMPONENT32F, - pattern DEPTH32F_STENCIL8, pattern FLOAT_32_UNSIGNED_INT_24_8_REV, - pattern FRAMEBUFFER_ATTACHMENT_COLOR_ENCODING, - pattern FRAMEBUFFER_ATTACHMENT_COMPONENT_TYPE, - pattern FRAMEBUFFER_ATTACHMENT_RED_SIZE, - pattern FRAMEBUFFER_ATTACHMENT_GREEN_SIZE, - pattern FRAMEBUFFER_ATTACHMENT_BLUE_SIZE, - pattern FRAMEBUFFER_ATTACHMENT_ALPHA_SIZE, - pattern FRAMEBUFFER_ATTACHMENT_DEPTH_SIZE, - pattern FRAMEBUFFER_ATTACHMENT_STENCIL_SIZE, - pattern FRAMEBUFFER_DEFAULT, pattern DEPTH_STENCIL_ATTACHMENT, - pattern DEPTH_STENCIL, pattern UNSIGNED_INT_24_8, - pattern DEPTH24_STENCIL8, pattern UNSIGNED_NORMALIZED, - pattern DRAW_FRAMEBUFFER_BINDING, pattern READ_FRAMEBUFFER, - pattern DRAW_FRAMEBUFFER, pattern READ_FRAMEBUFFER_BINDING, - pattern RENDERBUFFER_SAMPLES, - pattern FRAMEBUFFER_ATTACHMENT_TEXTURE_LAYER, - pattern MAX_COLOR_ATTACHMENTS, pattern COLOR_ATTACHMENT1, - pattern COLOR_ATTACHMENT2, pattern COLOR_ATTACHMENT3, - pattern COLOR_ATTACHMENT4, pattern COLOR_ATTACHMENT5, - pattern COLOR_ATTACHMENT6, pattern COLOR_ATTACHMENT7, - pattern COLOR_ATTACHMENT8, pattern COLOR_ATTACHMENT9, - pattern COLOR_ATTACHMENT10, pattern COLOR_ATTACHMENT11, - pattern COLOR_ATTACHMENT12, pattern COLOR_ATTACHMENT13, - pattern COLOR_ATTACHMENT14, pattern COLOR_ATTACHMENT15, - pattern FRAMEBUFFER_INCOMPLETE_MULTISAMPLE, pattern MAX_SAMPLES, - pattern HALF_FLOAT, pattern RG, pattern RG_INTEGER, pattern R8, - pattern RG8, pattern R16F, pattern R32F, pattern RG16F, - pattern RG32F, pattern R8I, pattern R8UI, pattern R16I, - pattern R16UI, pattern R32I, pattern R32UI, pattern RG8I, - pattern RG8UI, pattern RG16I, pattern RG16UI, pattern RG32I, - pattern RG32UI, pattern VERTEX_ARRAY_BINDING, pattern R8_SNORM, - pattern RG8_SNORM, pattern RGB8_SNORM, pattern RGBA8_SNORM, - pattern SIGNED_NORMALIZED, pattern PRIMITIVE_RESTART_FIXED_INDEX, - pattern COPY_READ_BUFFER, pattern COPY_WRITE_BUFFER, - pattern COPY_READ_BUFFER_BINDING, - pattern COPY_WRITE_BUFFER_BINDING, pattern UNIFORM_BUFFER, - pattern UNIFORM_BUFFER_BINDING, pattern UNIFORM_BUFFER_START, - pattern UNIFORM_BUFFER_SIZE, pattern MAX_VERTEX_UNIFORM_BLOCKS, - pattern MAX_FRAGMENT_UNIFORM_BLOCKS, - pattern MAX_COMBINED_UNIFORM_BLOCKS, - pattern MAX_UNIFORM_BUFFER_BINDINGS, - pattern MAX_UNIFORM_BLOCK_SIZE, - pattern MAX_COMBINED_VERTEX_UNIFORM_COMPONENTS, - pattern MAX_COMBINED_FRAGMENT_UNIFORM_COMPONENTS, - pattern UNIFORM_BUFFER_OFFSET_ALIGNMENT, - pattern ACTIVE_UNIFORM_BLOCKS, pattern UNIFORM_TYPE, - pattern UNIFORM_SIZE, pattern UNIFORM_BLOCK_INDEX, - pattern UNIFORM_OFFSET, pattern UNIFORM_ARRAY_STRIDE, - pattern UNIFORM_MATRIX_STRIDE, pattern UNIFORM_IS_ROW_MAJOR, - pattern UNIFORM_BLOCK_BINDING, pattern UNIFORM_BLOCK_DATA_SIZE, - pattern UNIFORM_BLOCK_ACTIVE_UNIFORMS, - pattern UNIFORM_BLOCK_ACTIVE_UNIFORM_INDICES, - pattern UNIFORM_BLOCK_REFERENCED_BY_VERTEX_SHADER, - pattern UNIFORM_BLOCK_REFERENCED_BY_FRAGMENT_SHADER, - pattern INVALID_INDEX, pattern MAX_VERTEX_OUTPUT_COMPONENTS, - pattern MAX_FRAGMENT_INPUT_COMPONENTS, - pattern MAX_SERVER_WAIT_TIMEOUT, pattern OBJECT_TYPE, - pattern SYNC_CONDITION, pattern SYNC_STATUS, pattern SYNC_FLAGS, - pattern SYNC_FENCE, pattern SYNC_GPU_COMMANDS_COMPLETE, - pattern UNSIGNALED, pattern SIGNALED, pattern ALREADY_SIGNALED, - pattern TIMEOUT_EXPIRED, pattern CONDITION_SATISFIED, - pattern WAIT_FAILED, pattern SYNC_FLUSH_COMMANDS_BIT, - pattern VERTEX_ATTRIB_ARRAY_DIVISOR, pattern ANY_SAMPLES_PASSED, - pattern ANY_SAMPLES_PASSED_CONSERVATIVE, pattern SAMPLER_BINDING, - pattern RGB10_A2UI, pattern TEXTURE_SWIZZLE_R, - pattern TEXTURE_SWIZZLE_G, pattern TEXTURE_SWIZZLE_B, - pattern TEXTURE_SWIZZLE_A, pattern GREEN, pattern BLUE, - pattern INT_2_10_10_10_REV, pattern TRANSFORM_FEEDBACK, - pattern TRANSFORM_FEEDBACK_PAUSED, - pattern TRANSFORM_FEEDBACK_ACTIVE, - pattern TRANSFORM_FEEDBACK_BINDING, pattern COMPRESSED_R11_EAC, - pattern COMPRESSED_SIGNED_R11_EAC, pattern COMPRESSED_RG11_EAC, - pattern COMPRESSED_SIGNED_RG11_EAC, pattern COMPRESSED_RGB8_ETC2, - pattern COMPRESSED_SRGB8_ETC2, - pattern COMPRESSED_RGB8_PUNCHTHROUGH_ALPHA1_ETC2, - pattern COMPRESSED_SRGB8_PUNCHTHROUGH_ALPHA1_ETC2, - pattern COMPRESSED_RGBA8_ETC2_EAC, - pattern COMPRESSED_SRGB8_ALPHA8_ETC2_EAC, - pattern TEXTURE_IMMUTABLE_FORMAT, pattern MAX_ELEMENT_INDEX, - pattern NUM_SAMPLE_COUNTS, pattern TEXTURE_IMMUTABLE_LEVELS, - pattern TIMEOUT_IGNORED, WebGL2RenderingContext, - castToWebGL2RenderingContext, gTypeWebGL2RenderingContext) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe - "$1[\"copyBufferSubData\"]($2, $3,\n$4, $5, $6)" - js_copyBufferSubData :: - WebGL2RenderingContext -> - GLenum -> GLenum -> Double -> Double -> Double -> IO () - --- | -copyBufferSubData :: - (MonadIO m) => - WebGL2RenderingContext -> - GLenum -> GLenum -> GLintptr -> GLintptr -> GLsizeiptr -> m () -copyBufferSubData self readTarget writeTarget readOffset - writeOffset size - = liftIO - (js_copyBufferSubData (self) readTarget writeTarget - (fromIntegral readOffset) - (fromIntegral writeOffset) - (fromIntegral size)) - -foreign import javascript unsafe - "$1[\"getBufferSubData\"]($2, $3,\n$4)" js_getBufferSubDataView :: - WebGL2RenderingContext -> - GLenum -> Double -> Nullable ArrayBufferView -> IO () - --- | -getBufferSubDataView :: - (MonadIO m, IsArrayBufferView returnedData) => - WebGL2RenderingContext -> - GLenum -> GLintptr -> Maybe returnedData -> m () -getBufferSubDataView self target offset returnedData - = liftIO - (js_getBufferSubDataView (self) target (fromIntegral offset) - (maybeToNullable (fmap toArrayBufferView returnedData))) - -foreign import javascript unsafe - "$1[\"getBufferSubData\"]($2, $3,\n$4)" js_getBufferSubData :: - WebGL2RenderingContext -> - GLenum -> Double -> Nullable ArrayBuffer -> IO () - --- | -getBufferSubData :: - (MonadIO m, IsArrayBuffer returnedData) => - WebGL2RenderingContext -> - GLenum -> GLintptr -> Maybe returnedData -> m () -getBufferSubData self target offset returnedData - = liftIO - (js_getBufferSubData (self) target (fromIntegral offset) - (maybeToNullable (fmap toArrayBuffer returnedData))) - -foreign import javascript unsafe - "$1[\"getFramebufferAttachmentParameter\"]($2,\n$3, $4)" - js_getFramebufferAttachmentParameter :: - WebGL2RenderingContext -> GLenum -> GLenum -> GLenum -> IO JSVal - --- | -getFramebufferAttachmentParameter :: - (MonadIO m) => - WebGL2RenderingContext -> GLenum -> GLenum -> GLenum -> m JSVal -getFramebufferAttachmentParameter self target attachment pname - = liftIO - (js_getFramebufferAttachmentParameter (self) target attachment - pname) - -foreign import javascript unsafe - "$1[\"blitFramebuffer\"]($2, $3,\n$4, $5, $6, $7, $8, $9, $10,\n$11)" - js_blitFramebuffer :: - WebGL2RenderingContext -> - GLint -> - GLint -> - GLint -> - GLint -> - GLint -> GLint -> GLint -> GLint -> GLbitfield -> GLenum -> IO () - --- | -blitFramebuffer :: - (MonadIO m) => - WebGL2RenderingContext -> - GLint -> - GLint -> - GLint -> - GLint -> - GLint -> GLint -> GLint -> GLint -> GLbitfield -> GLenum -> m () -blitFramebuffer self srcX0 srcY0 srcX1 srcY1 dstX0 dstY0 dstX1 - dstY1 mask filter - = liftIO - (js_blitFramebuffer (self) srcX0 srcY0 srcX1 srcY1 dstX0 dstY0 - dstX1 - dstY1 - mask - filter) - -foreign import javascript unsafe - "$1[\"framebufferTextureLayer\"]($2,\n$3, $4, $5, $6)" - js_framebufferTextureLayer :: - WebGL2RenderingContext -> - GLenum -> GLenum -> GLuint -> GLint -> GLint -> IO () - --- | -framebufferTextureLayer :: - (MonadIO m) => - WebGL2RenderingContext -> - GLenum -> GLenum -> GLuint -> GLint -> GLint -> m () -framebufferTextureLayer self target attachment texture level layer - = liftIO - (js_framebufferTextureLayer (self) target attachment texture level - layer) - -foreign import javascript unsafe - "$1[\"getInternalformatParameter\"]($2,\n$3, $4)" - js_getInternalformatParameter :: - WebGL2RenderingContext -> GLenum -> GLenum -> GLenum -> IO JSVal - --- | -getInternalformatParameter :: - (MonadIO m) => - WebGL2RenderingContext -> GLenum -> GLenum -> GLenum -> m JSVal -getInternalformatParameter self target internalformat pname - = liftIO - (js_getInternalformatParameter (self) target internalformat pname) - -foreign import javascript unsafe - "$1[\"invalidateFramebuffer\"]($2,\n$3)" js_invalidateFramebuffer - :: WebGL2RenderingContext -> GLenum -> JSVal -> IO () - --- | -invalidateFramebuffer :: - (MonadIO m) => WebGL2RenderingContext -> GLenum -> [GLenum] -> m () -invalidateFramebuffer self target attachments - = liftIO - (toJSVal attachments >>= - \ attachments' -> - js_invalidateFramebuffer (self) target attachments') - -foreign import javascript unsafe - "$1[\"invalidateSubFramebuffer\"]($2,\n$3, $4, $5, $6, $7)" - js_invalidateSubFramebuffer :: - WebGL2RenderingContext -> - GLenum -> JSVal -> GLint -> GLint -> GLsizei -> GLsizei -> IO () - --- | -invalidateSubFramebuffer :: - (MonadIO m) => - WebGL2RenderingContext -> - GLenum -> [GLenum] -> GLint -> GLint -> GLsizei -> GLsizei -> m () -invalidateSubFramebuffer self target attachments x y width height - = liftIO - (toJSVal attachments >>= - \ attachments' -> - js_invalidateSubFramebuffer (self) target attachments' - x - y - width - height) - -foreign import javascript unsafe "$1[\"readBuffer\"]($2)" - js_readBuffer :: WebGL2RenderingContext -> GLenum -> IO () - --- | -readBuffer :: - (MonadIO m) => WebGL2RenderingContext -> GLenum -> m () -readBuffer self src = liftIO (js_readBuffer (self) src) - -foreign import javascript unsafe - "$1[\"renderbufferStorageMultisample\"]($2,\n$3, $4, $5, $6)" - js_renderbufferStorageMultisample :: - WebGL2RenderingContext -> - GLenum -> GLsizei -> GLenum -> GLsizei -> GLsizei -> IO () - --- | -renderbufferStorageMultisample :: - (MonadIO m) => - WebGL2RenderingContext -> - GLenum -> GLsizei -> GLenum -> GLsizei -> GLsizei -> m () -renderbufferStorageMultisample self target samples internalformat - width height - = liftIO - (js_renderbufferStorageMultisample (self) target samples - internalformat - width - height) - -foreign import javascript unsafe - "$1[\"texStorage2D\"]($2, $3, $4,\n$5, $6)" js_texStorage2D :: - WebGL2RenderingContext -> - GLenum -> GLsizei -> GLenum -> GLsizei -> GLsizei -> IO () - --- | -texStorage2D :: - (MonadIO m) => - WebGL2RenderingContext -> - GLenum -> GLsizei -> GLenum -> GLsizei -> GLsizei -> m () -texStorage2D self target levels internalformat width height - = liftIO - (js_texStorage2D (self) target levels internalformat width height) - -foreign import javascript unsafe - "$1[\"texStorage3D\"]($2, $3, $4,\n$5, $6, $7)" js_texStorage3D :: - WebGL2RenderingContext -> - GLenum -> - GLsizei -> GLenum -> GLsizei -> GLsizei -> GLsizei -> IO () - --- | -texStorage3D :: - (MonadIO m) => - WebGL2RenderingContext -> - GLenum -> - GLsizei -> GLenum -> GLsizei -> GLsizei -> GLsizei -> m () -texStorage3D self target levels internalformat width height depth - = liftIO - (js_texStorage3D (self) target levels internalformat width height - depth) - -foreign import javascript unsafe - "$1[\"texImage3D\"]($2, $3, $4, $5,\n$6, $7, $8, $9, $10, $11)" - js_texImage3D :: - WebGL2RenderingContext -> - GLenum -> - GLint -> - GLint -> - GLsizei -> - GLsizei -> - GLsizei -> - GLint -> GLenum -> GLenum -> Nullable ArrayBufferView -> IO () - --- | -texImage3D :: - (MonadIO m, IsArrayBufferView pixels) => - WebGL2RenderingContext -> - GLenum -> - GLint -> - GLint -> - GLsizei -> - GLsizei -> - GLsizei -> GLint -> GLenum -> GLenum -> Maybe pixels -> m () -texImage3D self target level internalformat width height depth - border format type' pixels - = liftIO - (js_texImage3D (self) target level internalformat width height - depth - border - format - type' - (maybeToNullable (fmap toArrayBufferView pixels))) - -foreign import javascript unsafe - "$1[\"texSubImage3D\"]($2, $3, $4,\n$5, $6, $7, $8, $9, $10, $11,\n$12)" - js_texSubImage3DView :: - WebGL2RenderingContext -> - GLenum -> - GLint -> - GLint -> - GLint -> - GLint -> - GLsizei -> - GLsizei -> - GLsizei -> GLenum -> GLenum -> Nullable ArrayBufferView -> IO () - --- | -texSubImage3DView :: - (MonadIO m, IsArrayBufferView pixels) => - WebGL2RenderingContext -> - GLenum -> - GLint -> - GLint -> - GLint -> - GLint -> - GLsizei -> - GLsizei -> GLsizei -> GLenum -> GLenum -> Maybe pixels -> m () -texSubImage3DView self target level xoffset yoffset zoffset width - height depth format type' pixels - = liftIO - (js_texSubImage3DView (self) target level xoffset yoffset zoffset - width - height - depth - format - type' - (maybeToNullable (fmap toArrayBufferView pixels))) - -foreign import javascript unsafe - "$1[\"texSubImage3D\"]($2, $3, $4,\n$5, $6, $7, $8, $9)" - js_texSubImage3DData :: - WebGL2RenderingContext -> - GLenum -> - GLint -> - GLint -> - GLint -> GLint -> GLenum -> GLenum -> Nullable ImageData -> IO () - --- | -texSubImage3DData :: - (MonadIO m) => - WebGL2RenderingContext -> - GLenum -> - GLint -> - GLint -> - GLint -> GLint -> GLenum -> GLenum -> Maybe ImageData -> m () -texSubImage3DData self target level xoffset yoffset zoffset format - type' source - = liftIO - (js_texSubImage3DData (self) target level xoffset yoffset zoffset - format - type' - (maybeToNullable source)) - -foreign import javascript unsafe - "$1[\"texSubImage3D\"]($2, $3, $4,\n$5, $6, $7, $8, $9)" - js_texSubImage3D :: - WebGL2RenderingContext -> - GLenum -> - GLint -> - GLint -> - GLint -> - GLint -> GLenum -> GLenum -> Nullable HTMLImageElement -> IO () - --- | -texSubImage3D :: - (MonadIO m) => - WebGL2RenderingContext -> - GLenum -> - GLint -> - GLint -> - GLint -> - GLint -> GLenum -> GLenum -> Maybe HTMLImageElement -> m () -texSubImage3D self target level xoffset yoffset zoffset format - type' source - = liftIO - (js_texSubImage3D (self) target level xoffset yoffset zoffset - format - type' - (maybeToNullable source)) - -foreign import javascript unsafe - "$1[\"texSubImage3D\"]($2, $3, $4,\n$5, $6, $7, $8, $9)" - js_texSubImage3DCanvas :: - WebGL2RenderingContext -> - GLenum -> - GLint -> - GLint -> - GLint -> - GLint -> GLenum -> GLenum -> Nullable HTMLCanvasElement -> IO () - --- | -texSubImage3DCanvas :: - (MonadIO m) => - WebGL2RenderingContext -> - GLenum -> - GLint -> - GLint -> - GLint -> - GLint -> GLenum -> GLenum -> Maybe HTMLCanvasElement -> m () -texSubImage3DCanvas self target level xoffset yoffset zoffset - format type' source - = liftIO - (js_texSubImage3DCanvas (self) target level xoffset yoffset zoffset - format - type' - (maybeToNullable source)) - -foreign import javascript unsafe - "$1[\"texSubImage3D\"]($2, $3, $4,\n$5, $6, $7, $8, $9)" - js_texSubImage3DVideo :: - WebGL2RenderingContext -> - GLenum -> - GLint -> - GLint -> - GLint -> - GLint -> GLenum -> GLenum -> Nullable HTMLVideoElement -> IO () - --- | -texSubImage3DVideo :: - (MonadIO m) => - WebGL2RenderingContext -> - GLenum -> - GLint -> - GLint -> - GLint -> - GLint -> GLenum -> GLenum -> Maybe HTMLVideoElement -> m () -texSubImage3DVideo self target level xoffset yoffset zoffset format - type' source - = liftIO - (js_texSubImage3DVideo (self) target level xoffset yoffset zoffset - format - type' - (maybeToNullable source)) - -foreign import javascript unsafe - "$1[\"copyTexSubImage3D\"]($2, $3,\n$4, $5, $6, $7, $8, $9, $10)" - js_copyTexSubImage3D :: - WebGL2RenderingContext -> - GLenum -> - GLint -> - GLint -> - GLint -> GLint -> GLint -> GLint -> GLsizei -> GLsizei -> IO () - --- | -copyTexSubImage3D :: - (MonadIO m) => - WebGL2RenderingContext -> - GLenum -> - GLint -> - GLint -> - GLint -> GLint -> GLint -> GLint -> GLsizei -> GLsizei -> m () -copyTexSubImage3D self target level xoffset yoffset zoffset x y - width height - = liftIO - (js_copyTexSubImage3D (self) target level xoffset yoffset zoffset x - y - width - height) - -foreign import javascript unsafe - "$1[\"compressedTexImage3D\"]($2,\n$3, $4, $5, $6, $7, $8, $9, $10)" - js_compressedTexImage3D :: - WebGL2RenderingContext -> - GLenum -> - GLint -> - GLenum -> - GLsizei -> - GLsizei -> - GLsizei -> GLint -> GLsizei -> Nullable ArrayBufferView -> IO () - --- | -compressedTexImage3D :: - (MonadIO m, IsArrayBufferView data') => - WebGL2RenderingContext -> - GLenum -> - GLint -> - GLenum -> - GLsizei -> - GLsizei -> GLsizei -> GLint -> GLsizei -> Maybe data' -> m () -compressedTexImage3D self target level internalformat width height - depth border imageSize data' - = liftIO - (js_compressedTexImage3D (self) target level internalformat width - height - depth - border - imageSize - (maybeToNullable (fmap toArrayBufferView data'))) - -foreign import javascript unsafe - "$1[\"compressedTexSubImage3D\"]($2,\n$3, $4, $5, $6, $7, $8, $9, $10,\n$11, $12)" - js_compressedTexSubImage3D :: - WebGL2RenderingContext -> - GLenum -> - GLint -> - GLint -> - GLint -> - GLint -> - GLsizei -> - GLsizei -> - GLsizei -> GLenum -> GLsizei -> Nullable ArrayBufferView -> IO () - --- | -compressedTexSubImage3D :: - (MonadIO m, IsArrayBufferView data') => - WebGL2RenderingContext -> - GLenum -> - GLint -> - GLint -> - GLint -> - GLint -> - GLsizei -> - GLsizei -> - GLsizei -> GLenum -> GLsizei -> Maybe data' -> m () -compressedTexSubImage3D self target level xoffset yoffset zoffset - width height depth format imageSize data' - = liftIO - (js_compressedTexSubImage3D (self) target level xoffset yoffset - zoffset - width - height - depth - format - imageSize - (maybeToNullable (fmap toArrayBufferView data'))) - -foreign import javascript unsafe - "$1[\"getFragDataLocation\"]($2,\n$3)" js_getFragDataLocation :: - WebGL2RenderingContext -> - Nullable WebGLProgram -> JSString -> IO GLint - --- | -getFragDataLocation :: - (MonadIO m, ToJSString name) => - WebGL2RenderingContext -> Maybe WebGLProgram -> name -> m GLint -getFragDataLocation self program name - = liftIO - (js_getFragDataLocation (self) (maybeToNullable program) - (toJSString name)) - -foreign import javascript unsafe "$1[\"uniform1ui\"]($2, $3)" - js_uniform1ui :: - WebGL2RenderingContext -> - Nullable WebGLUniformLocation -> GLuint -> IO () - --- | -uniform1ui :: - (MonadIO m) => - WebGL2RenderingContext -> - Maybe WebGLUniformLocation -> GLuint -> m () -uniform1ui self location v0 - = liftIO (js_uniform1ui (self) (maybeToNullable location) v0) - -foreign import javascript unsafe "$1[\"uniform2ui\"]($2, $3, $4)" - js_uniform2ui :: - WebGL2RenderingContext -> - Nullable WebGLUniformLocation -> GLuint -> GLuint -> IO () - --- | -uniform2ui :: - (MonadIO m) => - WebGL2RenderingContext -> - Maybe WebGLUniformLocation -> GLuint -> GLuint -> m () -uniform2ui self location v0 v1 - = liftIO (js_uniform2ui (self) (maybeToNullable location) v0 v1) - -foreign import javascript unsafe - "$1[\"uniform3ui\"]($2, $3, $4, $5)" js_uniform3ui :: - WebGL2RenderingContext -> - Nullable WebGLUniformLocation -> - GLuint -> GLuint -> GLuint -> IO () - --- | -uniform3ui :: - (MonadIO m) => - WebGL2RenderingContext -> - Maybe WebGLUniformLocation -> GLuint -> GLuint -> GLuint -> m () -uniform3ui self location v0 v1 v2 - = liftIO (js_uniform3ui (self) (maybeToNullable location) v0 v1 v2) - -foreign import javascript unsafe - "$1[\"uniform4ui\"]($2, $3, $4, $5,\n$6)" js_uniform4ui :: - WebGL2RenderingContext -> - Nullable WebGLUniformLocation -> - GLuint -> GLuint -> GLuint -> GLuint -> IO () - --- | -uniform4ui :: - (MonadIO m) => - WebGL2RenderingContext -> - Maybe WebGLUniformLocation -> - GLuint -> GLuint -> GLuint -> GLuint -> m () -uniform4ui self location v0 v1 v2 v3 - = liftIO - (js_uniform4ui (self) (maybeToNullable location) v0 v1 v2 v3) - -foreign import javascript unsafe "$1[\"uniform1uiv\"]($2, $3)" - js_uniform1uiv :: - WebGL2RenderingContext -> - Nullable WebGLUniformLocation -> Nullable Uint32Array -> IO () - --- | -uniform1uiv :: - (MonadIO m, IsUint32Array value) => - WebGL2RenderingContext -> - Maybe WebGLUniformLocation -> Maybe value -> m () -uniform1uiv self location value - = liftIO - (js_uniform1uiv (self) (maybeToNullable location) - (maybeToNullable (fmap toUint32Array value))) - -foreign import javascript unsafe "$1[\"uniform2uiv\"]($2, $3)" - js_uniform2uiv :: - WebGL2RenderingContext -> - Nullable WebGLUniformLocation -> Nullable Uint32Array -> IO () - --- | -uniform2uiv :: - (MonadIO m, IsUint32Array value) => - WebGL2RenderingContext -> - Maybe WebGLUniformLocation -> Maybe value -> m () -uniform2uiv self location value - = liftIO - (js_uniform2uiv (self) (maybeToNullable location) - (maybeToNullable (fmap toUint32Array value))) - -foreign import javascript unsafe "$1[\"uniform3uiv\"]($2, $3)" - js_uniform3uiv :: - WebGL2RenderingContext -> - Nullable WebGLUniformLocation -> Nullable Uint32Array -> IO () - --- | -uniform3uiv :: - (MonadIO m, IsUint32Array value) => - WebGL2RenderingContext -> - Maybe WebGLUniformLocation -> Maybe value -> m () -uniform3uiv self location value - = liftIO - (js_uniform3uiv (self) (maybeToNullable location) - (maybeToNullable (fmap toUint32Array value))) - -foreign import javascript unsafe "$1[\"uniform4uiv\"]($2, $3)" - js_uniform4uiv :: - WebGL2RenderingContext -> - Nullable WebGLUniformLocation -> Nullable Uint32Array -> IO () - --- | -uniform4uiv :: - (MonadIO m, IsUint32Array value) => - WebGL2RenderingContext -> - Maybe WebGLUniformLocation -> Maybe value -> m () -uniform4uiv self location value - = liftIO - (js_uniform4uiv (self) (maybeToNullable location) - (maybeToNullable (fmap toUint32Array value))) - -foreign import javascript unsafe - "$1[\"uniformMatrix2x3fv\"]($2, $3,\n$4)" js_uniformMatrix2x3fv :: - WebGL2RenderingContext -> - Nullable WebGLUniformLocation -> - GLboolean -> Nullable Float32Array -> IO () - --- | -uniformMatrix2x3fv :: - (MonadIO m, IsFloat32Array value) => - WebGL2RenderingContext -> - Maybe WebGLUniformLocation -> GLboolean -> Maybe value -> m () -uniformMatrix2x3fv self location transpose value - = liftIO - (js_uniformMatrix2x3fv (self) (maybeToNullable location) transpose - (maybeToNullable (fmap toFloat32Array value))) - -foreign import javascript unsafe - "$1[\"uniformMatrix3x2fv\"]($2, $3,\n$4)" js_uniformMatrix3x2fv :: - WebGL2RenderingContext -> - Nullable WebGLUniformLocation -> - GLboolean -> Nullable Float32Array -> IO () - --- | -uniformMatrix3x2fv :: - (MonadIO m, IsFloat32Array value) => - WebGL2RenderingContext -> - Maybe WebGLUniformLocation -> GLboolean -> Maybe value -> m () -uniformMatrix3x2fv self location transpose value - = liftIO - (js_uniformMatrix3x2fv (self) (maybeToNullable location) transpose - (maybeToNullable (fmap toFloat32Array value))) - -foreign import javascript unsafe - "$1[\"uniformMatrix2x4fv\"]($2, $3,\n$4)" js_uniformMatrix2x4fv :: - WebGL2RenderingContext -> - Nullable WebGLUniformLocation -> - GLboolean -> Nullable Float32Array -> IO () - --- | -uniformMatrix2x4fv :: - (MonadIO m, IsFloat32Array value) => - WebGL2RenderingContext -> - Maybe WebGLUniformLocation -> GLboolean -> Maybe value -> m () -uniformMatrix2x4fv self location transpose value - = liftIO - (js_uniformMatrix2x4fv (self) (maybeToNullable location) transpose - (maybeToNullable (fmap toFloat32Array value))) - -foreign import javascript unsafe - "$1[\"uniformMatrix4x2fv\"]($2, $3,\n$4)" js_uniformMatrix4x2fv :: - WebGL2RenderingContext -> - Nullable WebGLUniformLocation -> - GLboolean -> Nullable Float32Array -> IO () - --- | -uniformMatrix4x2fv :: - (MonadIO m, IsFloat32Array value) => - WebGL2RenderingContext -> - Maybe WebGLUniformLocation -> GLboolean -> Maybe value -> m () -uniformMatrix4x2fv self location transpose value - = liftIO - (js_uniformMatrix4x2fv (self) (maybeToNullable location) transpose - (maybeToNullable (fmap toFloat32Array value))) - -foreign import javascript unsafe - "$1[\"uniformMatrix3x4fv\"]($2, $3,\n$4)" js_uniformMatrix3x4fv :: - WebGL2RenderingContext -> - Nullable WebGLUniformLocation -> - GLboolean -> Nullable Float32Array -> IO () - --- | -uniformMatrix3x4fv :: - (MonadIO m, IsFloat32Array value) => - WebGL2RenderingContext -> - Maybe WebGLUniformLocation -> GLboolean -> Maybe value -> m () -uniformMatrix3x4fv self location transpose value - = liftIO - (js_uniformMatrix3x4fv (self) (maybeToNullable location) transpose - (maybeToNullable (fmap toFloat32Array value))) - -foreign import javascript unsafe - "$1[\"uniformMatrix4x3fv\"]($2, $3,\n$4)" js_uniformMatrix4x3fv :: - WebGL2RenderingContext -> - Nullable WebGLUniformLocation -> - GLboolean -> Nullable Float32Array -> IO () - --- | -uniformMatrix4x3fv :: - (MonadIO m, IsFloat32Array value) => - WebGL2RenderingContext -> - Maybe WebGLUniformLocation -> GLboolean -> Maybe value -> m () -uniformMatrix4x3fv self location transpose value - = liftIO - (js_uniformMatrix4x3fv (self) (maybeToNullable location) transpose - (maybeToNullable (fmap toFloat32Array value))) - -foreign import javascript unsafe - "$1[\"vertexAttribI4i\"]($2, $3,\n$4, $5, $6)" js_vertexAttribI4i - :: - WebGL2RenderingContext -> - GLuint -> GLint -> GLint -> GLint -> GLint -> IO () - --- | -vertexAttribI4i :: - (MonadIO m) => - WebGL2RenderingContext -> - GLuint -> GLint -> GLint -> GLint -> GLint -> m () -vertexAttribI4i self index x y z w - = liftIO (js_vertexAttribI4i (self) index x y z w) - -foreign import javascript unsafe "$1[\"vertexAttribI4iv\"]($2, $3)" - js_vertexAttribI4iv :: - WebGL2RenderingContext -> GLuint -> Nullable Int32Array -> IO () - --- | -vertexAttribI4iv :: - (MonadIO m, IsInt32Array v) => - WebGL2RenderingContext -> GLuint -> Maybe v -> m () -vertexAttribI4iv self index v - = liftIO - (js_vertexAttribI4iv (self) index - (maybeToNullable (fmap toInt32Array v))) - -foreign import javascript unsafe - "$1[\"vertexAttribI4ui\"]($2, $3,\n$4, $5, $6)" js_vertexAttribI4ui - :: - WebGL2RenderingContext -> - GLuint -> GLuint -> GLuint -> GLuint -> GLuint -> IO () - --- | -vertexAttribI4ui :: - (MonadIO m) => - WebGL2RenderingContext -> - GLuint -> GLuint -> GLuint -> GLuint -> GLuint -> m () -vertexAttribI4ui self index x y z w - = liftIO (js_vertexAttribI4ui (self) index x y z w) - -foreign import javascript unsafe - "$1[\"vertexAttribI4uiv\"]($2, $3)" js_vertexAttribI4uiv :: - WebGL2RenderingContext -> GLuint -> Nullable Uint32Array -> IO () - --- | -vertexAttribI4uiv :: - (MonadIO m, IsUint32Array v) => - WebGL2RenderingContext -> GLuint -> Maybe v -> m () -vertexAttribI4uiv self index v - = liftIO - (js_vertexAttribI4uiv (self) index - (maybeToNullable (fmap toUint32Array v))) - -foreign import javascript unsafe - "$1[\"vertexAttribIPointer\"]($2,\n$3, $4, $5, $6)" - js_vertexAttribIPointer :: - WebGL2RenderingContext -> - GLuint -> GLint -> GLenum -> GLsizei -> Double -> IO () - --- | -vertexAttribIPointer :: - (MonadIO m) => - WebGL2RenderingContext -> - GLuint -> GLint -> GLenum -> GLsizei -> GLintptr -> m () -vertexAttribIPointer self index size type' stride offset - = liftIO - (js_vertexAttribIPointer (self) index size type' stride - (fromIntegral offset)) - -foreign import javascript unsafe - "$1[\"vertexAttribDivisor\"]($2,\n$3)" js_vertexAttribDivisor :: - WebGL2RenderingContext -> GLuint -> GLuint -> IO () - --- | -vertexAttribDivisor :: - (MonadIO m) => WebGL2RenderingContext -> GLuint -> GLuint -> m () -vertexAttribDivisor self index divisor - = liftIO (js_vertexAttribDivisor (self) index divisor) - -foreign import javascript unsafe - "$1[\"drawArraysInstanced\"]($2,\n$3, $4, $5)" - js_drawArraysInstanced :: - WebGL2RenderingContext -> - GLenum -> GLint -> GLsizei -> GLsizei -> IO () - --- | -drawArraysInstanced :: - (MonadIO m) => - WebGL2RenderingContext -> - GLenum -> GLint -> GLsizei -> GLsizei -> m () -drawArraysInstanced self mode first count instanceCount - = liftIO - (js_drawArraysInstanced (self) mode first count instanceCount) - -foreign import javascript unsafe - "$1[\"drawElementsInstanced\"]($2,\n$3, $4, $5, $6)" - js_drawElementsInstanced :: - WebGL2RenderingContext -> - GLenum -> GLsizei -> GLenum -> Double -> GLsizei -> IO () - --- | -drawElementsInstanced :: - (MonadIO m) => - WebGL2RenderingContext -> - GLenum -> GLsizei -> GLenum -> GLintptr -> GLsizei -> m () -drawElementsInstanced self mode count type' offset instanceCount - = liftIO - (js_drawElementsInstanced (self) mode count type' - (fromIntegral offset) - instanceCount) - -foreign import javascript unsafe - "$1[\"drawRangeElements\"]($2, $3,\n$4, $5, $6, $7)" - js_drawRangeElements :: - WebGL2RenderingContext -> - GLenum -> GLuint -> GLuint -> GLsizei -> GLenum -> Double -> IO () - --- | -drawRangeElements :: - (MonadIO m) => - WebGL2RenderingContext -> - GLenum -> GLuint -> GLuint -> GLsizei -> GLenum -> GLintptr -> m () -drawRangeElements self mode start end count type' offset - = liftIO - (js_drawRangeElements (self) mode start end count type' - (fromIntegral offset)) - -foreign import javascript unsafe "$1[\"drawBuffers\"]($2)" - js_drawBuffers :: WebGL2RenderingContext -> JSVal -> IO () - --- | -drawBuffers :: - (MonadIO m) => WebGL2RenderingContext -> [GLenum] -> m () -drawBuffers self buffers - = liftIO - (toJSVal buffers >>= \ buffers' -> js_drawBuffers (self) buffers') - -foreign import javascript unsafe - "$1[\"clearBufferiv\"]($2, $3, $4)" js_clearBufferiv :: - WebGL2RenderingContext -> - GLenum -> GLint -> Nullable Int32Array -> IO () - --- | -clearBufferiv :: - (MonadIO m, IsInt32Array value) => - WebGL2RenderingContext -> GLenum -> GLint -> Maybe value -> m () -clearBufferiv self buffer drawbuffer value - = liftIO - (js_clearBufferiv (self) buffer drawbuffer - (maybeToNullable (fmap toInt32Array value))) - -foreign import javascript unsafe - "$1[\"clearBufferuiv\"]($2, $3, $4)" js_clearBufferuiv :: - WebGL2RenderingContext -> - GLenum -> GLint -> Nullable Uint32Array -> IO () - --- | -clearBufferuiv :: - (MonadIO m, IsUint32Array value) => - WebGL2RenderingContext -> GLenum -> GLint -> Maybe value -> m () -clearBufferuiv self buffer drawbuffer value - = liftIO - (js_clearBufferuiv (self) buffer drawbuffer - (maybeToNullable (fmap toUint32Array value))) - -foreign import javascript unsafe - "$1[\"clearBufferfv\"]($2, $3, $4)" js_clearBufferfv :: - WebGL2RenderingContext -> - GLenum -> GLint -> Nullable Float32Array -> IO () - --- | -clearBufferfv :: - (MonadIO m, IsFloat32Array value) => - WebGL2RenderingContext -> GLenum -> GLint -> Maybe value -> m () -clearBufferfv self buffer drawbuffer value - = liftIO - (js_clearBufferfv (self) buffer drawbuffer - (maybeToNullable (fmap toFloat32Array value))) - -foreign import javascript unsafe - "$1[\"clearBufferfi\"]($2, $3, $4,\n$5)" js_clearBufferfi :: - WebGL2RenderingContext -> - GLenum -> GLint -> GLfloat -> GLint -> IO () - --- | -clearBufferfi :: - (MonadIO m) => - WebGL2RenderingContext -> - GLenum -> GLint -> GLfloat -> GLint -> m () -clearBufferfi self buffer drawbuffer depth stencil - = liftIO (js_clearBufferfi (self) buffer drawbuffer depth stencil) - -foreign import javascript unsafe "$1[\"createQuery\"]()" - js_createQuery :: - WebGL2RenderingContext -> IO (Nullable WebGLQuery) - --- | -createQuery :: - (MonadIO m) => WebGL2RenderingContext -> m (Maybe WebGLQuery) -createQuery self - = liftIO (nullableToMaybe <$> (js_createQuery (self))) - -foreign import javascript unsafe "$1[\"deleteQuery\"]($2)" - js_deleteQuery :: - WebGL2RenderingContext -> Nullable WebGLQuery -> IO () - --- | -deleteQuery :: - (MonadIO m) => WebGL2RenderingContext -> Maybe WebGLQuery -> m () -deleteQuery self query - = liftIO (js_deleteQuery (self) (maybeToNullable query)) - -foreign import javascript unsafe "$1[\"isQuery\"]($2)" js_isQuery - :: WebGL2RenderingContext -> Nullable WebGLQuery -> IO GLboolean - --- | -isQuery :: - (MonadIO m) => - WebGL2RenderingContext -> Maybe WebGLQuery -> m GLboolean -isQuery self query - = liftIO (js_isQuery (self) (maybeToNullable query)) - -foreign import javascript unsafe "$1[\"beginQuery\"]($2, $3)" - js_beginQuery :: - WebGL2RenderingContext -> GLenum -> Nullable WebGLQuery -> IO () - --- | -beginQuery :: - (MonadIO m) => - WebGL2RenderingContext -> GLenum -> Maybe WebGLQuery -> m () -beginQuery self target query - = liftIO (js_beginQuery (self) target (maybeToNullable query)) - -foreign import javascript unsafe "$1[\"endQuery\"]($2)" js_endQuery - :: WebGL2RenderingContext -> GLenum -> IO () - --- | -endQuery :: (MonadIO m) => WebGL2RenderingContext -> GLenum -> m () -endQuery self target = liftIO (js_endQuery (self) target) - -foreign import javascript unsafe "$1[\"getQuery\"]($2, $3)" - js_getQuery :: - WebGL2RenderingContext -> - GLenum -> GLenum -> IO (Nullable WebGLQuery) - --- | -getQuery :: - (MonadIO m) => - WebGL2RenderingContext -> GLenum -> GLenum -> m (Maybe WebGLQuery) -getQuery self target pname - = liftIO (nullableToMaybe <$> (js_getQuery (self) target pname)) - -foreign import javascript unsafe - "$1[\"getQueryParameter\"]($2, $3)" js_getQueryParameter :: - WebGL2RenderingContext -> Nullable WebGLQuery -> GLenum -> IO JSVal - --- | -getQueryParameter :: - (MonadIO m) => - WebGL2RenderingContext -> Maybe WebGLQuery -> GLenum -> m JSVal -getQueryParameter self query pname - = liftIO - (js_getQueryParameter (self) (maybeToNullable query) pname) - -foreign import javascript unsafe "$1[\"createSampler\"]()" - js_createSampler :: - WebGL2RenderingContext -> IO (Nullable WebGLSampler) - --- | -createSampler :: - (MonadIO m) => WebGL2RenderingContext -> m (Maybe WebGLSampler) -createSampler self - = liftIO (nullableToMaybe <$> (js_createSampler (self))) - -foreign import javascript unsafe "$1[\"deleteSampler\"]($2)" - js_deleteSampler :: - WebGL2RenderingContext -> Nullable WebGLSampler -> IO () - --- | -deleteSampler :: - (MonadIO m) => WebGL2RenderingContext -> Maybe WebGLSampler -> m () -deleteSampler self sampler - = liftIO (js_deleteSampler (self) (maybeToNullable sampler)) - -foreign import javascript unsafe "$1[\"isSampler\"]($2)" - js_isSampler :: - WebGL2RenderingContext -> Nullable WebGLSampler -> IO GLboolean - --- | -isSampler :: - (MonadIO m) => - WebGL2RenderingContext -> Maybe WebGLSampler -> m GLboolean -isSampler self sampler - = liftIO (js_isSampler (self) (maybeToNullable sampler)) - -foreign import javascript unsafe "$1[\"bindSampler\"]($2, $3)" - js_bindSampler :: - WebGL2RenderingContext -> GLuint -> Nullable WebGLSampler -> IO () - --- | -bindSampler :: - (MonadIO m) => - WebGL2RenderingContext -> GLuint -> Maybe WebGLSampler -> m () -bindSampler self unit sampler - = liftIO (js_bindSampler (self) unit (maybeToNullable sampler)) - -foreign import javascript unsafe - "$1[\"samplerParameteri\"]($2, $3,\n$4)" js_samplerParameteri :: - WebGL2RenderingContext -> - Nullable WebGLSampler -> GLenum -> GLint -> IO () - --- | -samplerParameteri :: - (MonadIO m) => - WebGL2RenderingContext -> - Maybe WebGLSampler -> GLenum -> GLint -> m () -samplerParameteri self sampler pname param - = liftIO - (js_samplerParameteri (self) (maybeToNullable sampler) pname param) - -foreign import javascript unsafe - "$1[\"samplerParameterf\"]($2, $3,\n$4)" js_samplerParameterf :: - WebGL2RenderingContext -> - Nullable WebGLSampler -> GLenum -> GLfloat -> IO () - --- | -samplerParameterf :: - (MonadIO m) => - WebGL2RenderingContext -> - Maybe WebGLSampler -> GLenum -> GLfloat -> m () -samplerParameterf self sampler pname param - = liftIO - (js_samplerParameterf (self) (maybeToNullable sampler) pname param) - -foreign import javascript unsafe - "$1[\"getSamplerParameter\"]($2,\n$3)" js_getSamplerParameter :: - WebGL2RenderingContext -> - Nullable WebGLSampler -> GLenum -> IO JSVal - --- | -getSamplerParameter :: - (MonadIO m) => - WebGL2RenderingContext -> Maybe WebGLSampler -> GLenum -> m JSVal -getSamplerParameter self sampler pname - = liftIO - (js_getSamplerParameter (self) (maybeToNullable sampler) pname) - -foreign import javascript unsafe "$1[\"fenceSync\"]($2, $3)" - js_fenceSync :: - WebGL2RenderingContext -> - GLenum -> GLbitfield -> IO (Nullable WebGLSync) - --- | -fenceSync :: - (MonadIO m) => - WebGL2RenderingContext -> - GLenum -> GLbitfield -> m (Maybe WebGLSync) -fenceSync self condition flags - = liftIO - (nullableToMaybe <$> (js_fenceSync (self) condition flags)) - -foreign import javascript unsafe "$1[\"isSync\"]($2)" js_isSync :: - WebGL2RenderingContext -> Nullable WebGLSync -> IO GLboolean - --- | -isSync :: - (MonadIO m) => - WebGL2RenderingContext -> Maybe WebGLSync -> m GLboolean -isSync self sync = liftIO (js_isSync (self) (maybeToNullable sync)) - -foreign import javascript unsafe "$1[\"deleteSync\"]($2)" - js_deleteSync :: - WebGL2RenderingContext -> Nullable WebGLSync -> IO () - --- | -deleteSync :: - (MonadIO m) => WebGL2RenderingContext -> Maybe WebGLSync -> m () -deleteSync self sync - = liftIO (js_deleteSync (self) (maybeToNullable sync)) - -foreign import javascript unsafe - "$1[\"clientWaitSync\"]($2, $3, $4)" js_clientWaitSync :: - WebGL2RenderingContext -> - Nullable WebGLSync -> GLbitfield -> Double -> IO GLenum - --- | -clientWaitSync :: - (MonadIO m) => - WebGL2RenderingContext -> - Maybe WebGLSync -> GLbitfield -> GLuint64 -> m GLenum -clientWaitSync self sync flags timeout - = liftIO - (js_clientWaitSync (self) (maybeToNullable sync) flags - (fromIntegral timeout)) - -foreign import javascript unsafe "$1[\"waitSync\"]($2, $3, $4)" - js_waitSync :: - WebGL2RenderingContext -> - Nullable WebGLSync -> GLbitfield -> Double -> IO () - --- | -waitSync :: - (MonadIO m) => - WebGL2RenderingContext -> - Maybe WebGLSync -> GLbitfield -> GLuint64 -> m () -waitSync self sync flags timeout - = liftIO - (js_waitSync (self) (maybeToNullable sync) flags - (fromIntegral timeout)) - -foreign import javascript unsafe "$1[\"getSyncParameter\"]($2, $3)" - js_getSyncParameter :: - WebGL2RenderingContext -> Nullable WebGLSync -> GLenum -> IO JSVal - --- | -getSyncParameter :: - (MonadIO m) => - WebGL2RenderingContext -> Maybe WebGLSync -> GLenum -> m JSVal -getSyncParameter self sync pname - = liftIO (js_getSyncParameter (self) (maybeToNullable sync) pname) - -foreign import javascript unsafe - "$1[\"createTransformFeedback\"]()" js_createTransformFeedback :: - WebGL2RenderingContext -> IO (Nullable WebGLTransformFeedback) - --- | -createTransformFeedback :: - (MonadIO m) => - WebGL2RenderingContext -> m (Maybe WebGLTransformFeedback) -createTransformFeedback self - = liftIO (nullableToMaybe <$> (js_createTransformFeedback (self))) - -foreign import javascript unsafe - "$1[\"deleteTransformFeedback\"]($2)" js_deleteTransformFeedback :: - WebGL2RenderingContext -> Nullable WebGLTransformFeedback -> IO () - --- | -deleteTransformFeedback :: - (MonadIO m) => - WebGL2RenderingContext -> Maybe WebGLTransformFeedback -> m () -deleteTransformFeedback self id - = liftIO (js_deleteTransformFeedback (self) (maybeToNullable id)) - -foreign import javascript unsafe "$1[\"isTransformFeedback\"]($2)" - js_isTransformFeedback :: - WebGL2RenderingContext -> - Nullable WebGLTransformFeedback -> IO GLboolean - --- | -isTransformFeedback :: - (MonadIO m) => - WebGL2RenderingContext -> - Maybe WebGLTransformFeedback -> m GLboolean -isTransformFeedback self id - = liftIO (js_isTransformFeedback (self) (maybeToNullable id)) - -foreign import javascript unsafe - "$1[\"bindTransformFeedback\"]($2,\n$3)" js_bindTransformFeedback - :: - WebGL2RenderingContext -> - GLenum -> Nullable WebGLTransformFeedback -> IO () - --- | -bindTransformFeedback :: - (MonadIO m) => - WebGL2RenderingContext -> - GLenum -> Maybe WebGLTransformFeedback -> m () -bindTransformFeedback self target id - = liftIO - (js_bindTransformFeedback (self) target (maybeToNullable id)) - -foreign import javascript unsafe - "$1[\"beginTransformFeedback\"]($2)" js_beginTransformFeedback :: - WebGL2RenderingContext -> GLenum -> IO () - --- | -beginTransformFeedback :: - (MonadIO m) => WebGL2RenderingContext -> GLenum -> m () -beginTransformFeedback self primitiveMode - = liftIO (js_beginTransformFeedback (self) primitiveMode) - -foreign import javascript unsafe "$1[\"endTransformFeedback\"]()" - js_endTransformFeedback :: WebGL2RenderingContext -> IO () - --- | -endTransformFeedback :: - (MonadIO m) => WebGL2RenderingContext -> m () -endTransformFeedback self = liftIO (js_endTransformFeedback (self)) - -foreign import javascript unsafe - "$1[\"transformFeedbackVaryings\"]($2,\n$3, $4)" - js_transformFeedbackVaryings :: - WebGL2RenderingContext -> - Nullable WebGLProgram -> JSVal -> GLenum -> IO () - --- | -transformFeedbackVaryings :: - (MonadIO m, ToJSString varyings) => - WebGL2RenderingContext -> - Maybe WebGLProgram -> [varyings] -> GLenum -> m () -transformFeedbackVaryings self program varyings bufferMode - = liftIO - (toJSVal varyings >>= - \ varyings' -> - js_transformFeedbackVaryings (self) (maybeToNullable program) - varyings' - bufferMode) - -foreign import javascript unsafe - "$1[\"getTransformFeedbackVarying\"]($2,\n$3)" - js_getTransformFeedbackVarying :: - WebGL2RenderingContext -> - Nullable WebGLProgram -> GLuint -> IO (Nullable WebGLActiveInfo) - --- | -getTransformFeedbackVarying :: - (MonadIO m) => - WebGL2RenderingContext -> - Maybe WebGLProgram -> GLuint -> m (Maybe WebGLActiveInfo) -getTransformFeedbackVarying self program index - = liftIO - (nullableToMaybe <$> - (js_getTransformFeedbackVarying (self) (maybeToNullable program) - index)) - -foreign import javascript unsafe "$1[\"pauseTransformFeedback\"]()" - js_pauseTransformFeedback :: WebGL2RenderingContext -> IO () - --- | -pauseTransformFeedback :: - (MonadIO m) => WebGL2RenderingContext -> m () -pauseTransformFeedback self - = liftIO (js_pauseTransformFeedback (self)) - -foreign import javascript unsafe - "$1[\"resumeTransformFeedback\"]()" js_resumeTransformFeedback :: - WebGL2RenderingContext -> IO () - --- | -resumeTransformFeedback :: - (MonadIO m) => WebGL2RenderingContext -> m () -resumeTransformFeedback self - = liftIO (js_resumeTransformFeedback (self)) - -foreign import javascript unsafe - "$1[\"bindBufferBase\"]($2, $3, $4)" js_bindBufferBase :: - WebGL2RenderingContext -> - GLenum -> GLuint -> Nullable WebGLBuffer -> IO () - --- | -bindBufferBase :: - (MonadIO m) => - WebGL2RenderingContext -> - GLenum -> GLuint -> Maybe WebGLBuffer -> m () -bindBufferBase self target index buffer - = liftIO - (js_bindBufferBase (self) target index (maybeToNullable buffer)) - -foreign import javascript unsafe - "$1[\"bindBufferRange\"]($2, $3,\n$4, $5, $6)" js_bindBufferRange - :: - WebGL2RenderingContext -> - GLenum -> - GLuint -> Nullable WebGLBuffer -> Double -> Double -> IO () - --- | -bindBufferRange :: - (MonadIO m) => - WebGL2RenderingContext -> - GLenum -> - GLuint -> Maybe WebGLBuffer -> GLintptr -> GLsizeiptr -> m () -bindBufferRange self target index buffer offset size - = liftIO - (js_bindBufferRange (self) target index (maybeToNullable buffer) - (fromIntegral offset) - (fromIntegral size)) - -foreign import javascript unsafe - "$1[\"getIndexedParameter\"]($2,\n$3)" js_getIndexedParameter :: - WebGL2RenderingContext -> GLenum -> GLuint -> IO JSVal - --- | -getIndexedParameter :: - (MonadIO m) => - WebGL2RenderingContext -> GLenum -> GLuint -> m JSVal -getIndexedParameter self target index - = liftIO (js_getIndexedParameter (self) target index) - -foreign import javascript unsafe - "$1[\"getUniformIndices\"]($2, $3)" js_getUniformIndices :: - WebGL2RenderingContext -> - Nullable WebGLProgram -> JSVal -> IO (Nullable Uint32Array) - --- | -getUniformIndices :: - (MonadIO m, ToJSString uniformNames) => - WebGL2RenderingContext -> - Maybe WebGLProgram -> [uniformNames] -> m (Maybe Uint32Array) -getUniformIndices self program uniformNames - = liftIO - (nullableToMaybe <$> - (toJSVal uniformNames >>= - \ uniformNames' -> - js_getUniformIndices (self) (maybeToNullable program) - uniformNames')) - -foreign import javascript unsafe - "$1[\"getActiveUniforms\"]($2, $3,\n$4)" js_getActiveUniforms :: - WebGL2RenderingContext -> - Nullable WebGLProgram -> - Nullable Uint32Array -> GLenum -> IO (Nullable Int32Array) - --- | -getActiveUniforms :: - (MonadIO m, IsUint32Array uniformIndices) => - WebGL2RenderingContext -> - Maybe WebGLProgram -> - Maybe uniformIndices -> GLenum -> m (Maybe Int32Array) -getActiveUniforms self program uniformIndices pname - = liftIO - (nullableToMaybe <$> - (js_getActiveUniforms (self) (maybeToNullable program) - (maybeToNullable (fmap toUint32Array uniformIndices)) - pname)) - -foreign import javascript unsafe - "$1[\"getUniformBlockIndex\"]($2,\n$3)" js_getUniformBlockIndex :: - WebGL2RenderingContext -> - Nullable WebGLProgram -> JSString -> IO GLuint - --- | -getUniformBlockIndex :: - (MonadIO m, ToJSString uniformBlockName) => - WebGL2RenderingContext -> - Maybe WebGLProgram -> uniformBlockName -> m GLuint -getUniformBlockIndex self program uniformBlockName - = liftIO - (js_getUniformBlockIndex (self) (maybeToNullable program) - (toJSString uniformBlockName)) - -foreign import javascript unsafe - "$1[\"getActiveUniformBlockParameter\"]($2,\n$3, $4)" - js_getActiveUniformBlockParameter :: - WebGL2RenderingContext -> - Nullable WebGLProgram -> GLuint -> GLenum -> IO JSVal - --- | -getActiveUniformBlockParameter :: - (MonadIO m) => - WebGL2RenderingContext -> - Maybe WebGLProgram -> GLuint -> GLenum -> m JSVal -getActiveUniformBlockParameter self program uniformBlockIndex pname - = liftIO - (js_getActiveUniformBlockParameter (self) (maybeToNullable program) - uniformBlockIndex - pname) - -foreign import javascript unsafe - "$1[\"getActiveUniformBlockName\"]($2,\n$3)" - js_getActiveUniformBlockName :: - WebGL2RenderingContext -> - Nullable WebGLProgram -> GLuint -> IO JSVal - --- | -getActiveUniformBlockName :: - (MonadIO m) => - WebGL2RenderingContext -> Maybe WebGLProgram -> GLuint -> m JSVal -getActiveUniformBlockName self program uniformBlockIndex - = liftIO - (js_getActiveUniformBlockName (self) (maybeToNullable program) - uniformBlockIndex) - -foreign import javascript unsafe - "$1[\"uniformBlockBinding\"]($2,\n$3, $4)" js_uniformBlockBinding - :: - WebGL2RenderingContext -> - Nullable WebGLProgram -> GLuint -> GLuint -> IO () - --- | -uniformBlockBinding :: - (MonadIO m) => - WebGL2RenderingContext -> - Maybe WebGLProgram -> GLuint -> GLuint -> m () -uniformBlockBinding self program uniformBlockIndex - uniformBlockBinding - = liftIO - (js_uniformBlockBinding (self) (maybeToNullable program) - uniformBlockIndex - uniformBlockBinding) - -foreign import javascript unsafe "$1[\"createVertexArray\"]()" - js_createVertexArray :: - WebGL2RenderingContext -> IO (Nullable WebGLVertexArrayObject) - --- | -createVertexArray :: - (MonadIO m) => - WebGL2RenderingContext -> m (Maybe WebGLVertexArrayObject) -createVertexArray self - = liftIO (nullableToMaybe <$> (js_createVertexArray (self))) - -foreign import javascript unsafe "$1[\"deleteVertexArray\"]($2)" - js_deleteVertexArray :: - WebGL2RenderingContext -> Nullable WebGLVertexArrayObject -> IO () - --- | -deleteVertexArray :: - (MonadIO m) => - WebGL2RenderingContext -> Maybe WebGLVertexArrayObject -> m () -deleteVertexArray self vertexArray - = liftIO - (js_deleteVertexArray (self) (maybeToNullable vertexArray)) - -foreign import javascript unsafe "$1[\"isVertexArray\"]($2)" - js_isVertexArray :: - WebGL2RenderingContext -> - Nullable WebGLVertexArrayObject -> IO GLboolean - --- | -isVertexArray :: - (MonadIO m) => - WebGL2RenderingContext -> - Maybe WebGLVertexArrayObject -> m GLboolean -isVertexArray self vertexArray - = liftIO (js_isVertexArray (self) (maybeToNullable vertexArray)) - -foreign import javascript unsafe "$1[\"bindVertexArray\"]($2)" - js_bindVertexArray :: - WebGL2RenderingContext -> Nullable WebGLVertexArrayObject -> IO () - --- | -bindVertexArray :: - (MonadIO m) => - WebGL2RenderingContext -> Maybe WebGLVertexArrayObject -> m () -bindVertexArray self vertexArray - = liftIO (js_bindVertexArray (self) (maybeToNullable vertexArray)) -pattern READ_BUFFER = 3074 -pattern UNPACK_ROW_LENGTH = 3314 -pattern UNPACK_SKIP_ROWS = 3315 -pattern UNPACK_SKIP_PIXELS = 3316 -pattern PACK_ROW_LENGTH = 3330 -pattern PACK_SKIP_ROWS = 3331 -pattern PACK_SKIP_PIXELS = 3332 -pattern COLOR = 6144 -pattern DEPTH = 6145 -pattern STENCIL = 6146 -pattern RED = 6403 -pattern RGB8 = 32849 -pattern RGBA8 = 32856 -pattern RGB10_A2 = 32857 -pattern TEXTURE_BINDING_3D = 32874 -pattern UNPACK_SKIP_IMAGES = 32877 -pattern UNPACK_IMAGE_HEIGHT = 32878 -pattern TEXTURE_3D = 32879 -pattern TEXTURE_WRAP_R = 32882 -pattern MAX_3D_TEXTURE_SIZE = 32883 -pattern UNSIGNED_INT_2_10_10_10_REV = 33640 -pattern MAX_ELEMENTS_VERTICES = 33000 -pattern MAX_ELEMENTS_INDICES = 33001 -pattern TEXTURE_MIN_LOD = 33082 -pattern TEXTURE_MAX_LOD = 33083 -pattern TEXTURE_BASE_LEVEL = 33084 -pattern TEXTURE_MAX_LEVEL = 33085 -pattern MIN = 32775 -pattern MAX = 32776 -pattern DEPTH_COMPONENT24 = 33190 -pattern MAX_TEXTURE_LOD_BIAS = 34045 -pattern TEXTURE_COMPARE_MODE = 34892 -pattern TEXTURE_COMPARE_FUNC = 34893 -pattern CURRENT_QUERY = 34917 -pattern QUERY_RESULT = 34918 -pattern QUERY_RESULT_AVAILABLE = 34919 -pattern STREAM_READ = 35041 -pattern STREAM_COPY = 35042 -pattern STATIC_READ = 35045 -pattern STATIC_COPY = 35046 -pattern DYNAMIC_READ = 35049 -pattern DYNAMIC_COPY = 35050 -pattern MAX_DRAW_BUFFERS = 34852 -pattern DRAW_BUFFER0 = 34853 -pattern DRAW_BUFFER1 = 34854 -pattern DRAW_BUFFER2 = 34855 -pattern DRAW_BUFFER3 = 34856 -pattern DRAW_BUFFER4 = 34857 -pattern DRAW_BUFFER5 = 34858 -pattern DRAW_BUFFER6 = 34859 -pattern DRAW_BUFFER7 = 34860 -pattern DRAW_BUFFER8 = 34861 -pattern DRAW_BUFFER9 = 34862 -pattern DRAW_BUFFER10 = 34863 -pattern DRAW_BUFFER11 = 34864 -pattern DRAW_BUFFER12 = 34865 -pattern DRAW_BUFFER13 = 34866 -pattern DRAW_BUFFER14 = 34867 -pattern DRAW_BUFFER15 = 34868 -pattern MAX_FRAGMENT_UNIFORM_COMPONENTS = 35657 -pattern MAX_VERTEX_UNIFORM_COMPONENTS = 35658 -pattern SAMPLER_3D = 35679 -pattern SAMPLER_2D_SHADOW = 35682 -pattern FRAGMENT_SHADER_DERIVATIVE_HINT = 35723 -pattern PIXEL_PACK_BUFFER = 35051 -pattern PIXEL_UNPACK_BUFFER = 35052 -pattern PIXEL_PACK_BUFFER_BINDING = 35053 -pattern PIXEL_UNPACK_BUFFER_BINDING = 35055 -pattern FLOAT_MAT2x3 = 35685 -pattern FLOAT_MAT2x4 = 35686 -pattern FLOAT_MAT3x2 = 35687 -pattern FLOAT_MAT3x4 = 35688 -pattern FLOAT_MAT4x2 = 35689 -pattern FLOAT_MAT4x3 = 35690 -pattern SRGB = 35904 -pattern SRGB8 = 35905 -pattern SRGB8_ALPHA8 = 35907 -pattern COMPARE_REF_TO_TEXTURE = 34894 -pattern RGBA32F = 34836 -pattern RGB32F = 34837 -pattern RGBA16F = 34842 -pattern RGB16F = 34843 -pattern VERTEX_ATTRIB_ARRAY_INTEGER = 35069 -pattern MAX_ARRAY_TEXTURE_LAYERS = 35071 -pattern MIN_PROGRAM_TEXEL_OFFSET = 35076 -pattern MAX_PROGRAM_TEXEL_OFFSET = 35077 -pattern MAX_VARYING_COMPONENTS = 35659 -pattern TEXTURE_2D_ARRAY = 35866 -pattern TEXTURE_BINDING_2D_ARRAY = 35869 -pattern R11F_G11F_B10F = 35898 -pattern UNSIGNED_INT_10F_11F_11F_REV = 35899 -pattern RGB9_E5 = 35901 -pattern UNSIGNED_INT_5_9_9_9_REV = 35902 -pattern TRANSFORM_FEEDBACK_BUFFER_MODE = 35967 -pattern MAX_TRANSFORM_FEEDBACK_SEPARATE_COMPONENTS = 35968 -pattern TRANSFORM_FEEDBACK_VARYINGS = 35971 -pattern TRANSFORM_FEEDBACK_BUFFER_START = 35972 -pattern TRANSFORM_FEEDBACK_BUFFER_SIZE = 35973 -pattern TRANSFORM_FEEDBACK_PRIMITIVES_WRITTEN = 35976 -pattern RASTERIZER_DISCARD = 35977 -pattern MAX_TRANSFORM_FEEDBACK_INTERLEAVED_COMPONENTS = 35978 -pattern MAX_TRANSFORM_FEEDBACK_SEPARATE_ATTRIBS = 35979 -pattern INTERLEAVED_ATTRIBS = 35980 -pattern SEPARATE_ATTRIBS = 35981 -pattern TRANSFORM_FEEDBACK_BUFFER = 35982 -pattern TRANSFORM_FEEDBACK_BUFFER_BINDING = 35983 -pattern RGBA32UI = 36208 -pattern RGB32UI = 36209 -pattern RGBA16UI = 36214 -pattern RGB16UI = 36215 -pattern RGBA8UI = 36220 -pattern RGB8UI = 36221 -pattern RGBA32I = 36226 -pattern RGB32I = 36227 -pattern RGBA16I = 36232 -pattern RGB16I = 36233 -pattern RGBA8I = 36238 -pattern RGB8I = 36239 -pattern RED_INTEGER = 36244 -pattern RGB_INTEGER = 36248 -pattern RGBA_INTEGER = 36249 -pattern SAMPLER_2D_ARRAY = 36289 -pattern SAMPLER_2D_ARRAY_SHADOW = 36292 -pattern SAMPLER_CUBE_SHADOW = 36293 -pattern UNSIGNED_INT_VEC2 = 36294 -pattern UNSIGNED_INT_VEC3 = 36295 -pattern UNSIGNED_INT_VEC4 = 36296 -pattern INT_SAMPLER_2D = 36298 -pattern INT_SAMPLER_3D = 36299 -pattern INT_SAMPLER_CUBE = 36300 -pattern INT_SAMPLER_2D_ARRAY = 36303 -pattern UNSIGNED_INT_SAMPLER_2D = 36306 -pattern UNSIGNED_INT_SAMPLER_3D = 36307 -pattern UNSIGNED_INT_SAMPLER_CUBE = 36308 -pattern UNSIGNED_INT_SAMPLER_2D_ARRAY = 36311 -pattern DEPTH_COMPONENT32F = 36012 -pattern DEPTH32F_STENCIL8 = 36013 -pattern FLOAT_32_UNSIGNED_INT_24_8_REV = 36269 -pattern FRAMEBUFFER_ATTACHMENT_COLOR_ENCODING = 33296 -pattern FRAMEBUFFER_ATTACHMENT_COMPONENT_TYPE = 33297 -pattern FRAMEBUFFER_ATTACHMENT_RED_SIZE = 33298 -pattern FRAMEBUFFER_ATTACHMENT_GREEN_SIZE = 33299 -pattern FRAMEBUFFER_ATTACHMENT_BLUE_SIZE = 33300 -pattern FRAMEBUFFER_ATTACHMENT_ALPHA_SIZE = 33301 -pattern FRAMEBUFFER_ATTACHMENT_DEPTH_SIZE = 33302 -pattern FRAMEBUFFER_ATTACHMENT_STENCIL_SIZE = 33303 -pattern FRAMEBUFFER_DEFAULT = 33304 -pattern DEPTH_STENCIL_ATTACHMENT = 33306 -pattern DEPTH_STENCIL = 34041 -pattern UNSIGNED_INT_24_8 = 34042 -pattern DEPTH24_STENCIL8 = 35056 -pattern UNSIGNED_NORMALIZED = 35863 -pattern DRAW_FRAMEBUFFER_BINDING = 36006 -pattern READ_FRAMEBUFFER = 36008 -pattern DRAW_FRAMEBUFFER = 36009 -pattern READ_FRAMEBUFFER_BINDING = 36010 -pattern RENDERBUFFER_SAMPLES = 36011 -pattern FRAMEBUFFER_ATTACHMENT_TEXTURE_LAYER = 36052 -pattern MAX_COLOR_ATTACHMENTS = 36063 -pattern COLOR_ATTACHMENT1 = 36065 -pattern COLOR_ATTACHMENT2 = 36066 -pattern COLOR_ATTACHMENT3 = 36067 -pattern COLOR_ATTACHMENT4 = 36068 -pattern COLOR_ATTACHMENT5 = 36069 -pattern COLOR_ATTACHMENT6 = 36070 -pattern COLOR_ATTACHMENT7 = 36071 -pattern COLOR_ATTACHMENT8 = 36072 -pattern COLOR_ATTACHMENT9 = 36073 -pattern COLOR_ATTACHMENT10 = 36074 -pattern COLOR_ATTACHMENT11 = 36075 -pattern COLOR_ATTACHMENT12 = 36076 -pattern COLOR_ATTACHMENT13 = 36077 -pattern COLOR_ATTACHMENT14 = 36078 -pattern COLOR_ATTACHMENT15 = 36079 -pattern FRAMEBUFFER_INCOMPLETE_MULTISAMPLE = 36182 -pattern MAX_SAMPLES = 36183 -pattern HALF_FLOAT = 5131 -pattern RG = 33319 -pattern RG_INTEGER = 33320 -pattern R8 = 33321 -pattern RG8 = 33323 -pattern R16F = 33325 -pattern R32F = 33326 -pattern RG16F = 33327 -pattern RG32F = 33328 -pattern R8I = 33329 -pattern R8UI = 33330 -pattern R16I = 33331 -pattern R16UI = 33332 -pattern R32I = 33333 -pattern R32UI = 33334 -pattern RG8I = 33335 -pattern RG8UI = 33336 -pattern RG16I = 33337 -pattern RG16UI = 33338 -pattern RG32I = 33339 -pattern RG32UI = 33340 -pattern VERTEX_ARRAY_BINDING = 34229 -pattern R8_SNORM = 36756 -pattern RG8_SNORM = 36757 -pattern RGB8_SNORM = 36758 -pattern RGBA8_SNORM = 36759 -pattern SIGNED_NORMALIZED = 36764 -pattern PRIMITIVE_RESTART_FIXED_INDEX = 36201 -pattern COPY_READ_BUFFER = 36662 -pattern COPY_WRITE_BUFFER = 36663 -pattern COPY_READ_BUFFER_BINDING = 36662 -pattern COPY_WRITE_BUFFER_BINDING = 36663 -pattern UNIFORM_BUFFER = 35345 -pattern UNIFORM_BUFFER_BINDING = 35368 -pattern UNIFORM_BUFFER_START = 35369 -pattern UNIFORM_BUFFER_SIZE = 35370 -pattern MAX_VERTEX_UNIFORM_BLOCKS = 35371 -pattern MAX_FRAGMENT_UNIFORM_BLOCKS = 35373 -pattern MAX_COMBINED_UNIFORM_BLOCKS = 35374 -pattern MAX_UNIFORM_BUFFER_BINDINGS = 35375 -pattern MAX_UNIFORM_BLOCK_SIZE = 35376 -pattern MAX_COMBINED_VERTEX_UNIFORM_COMPONENTS = 35377 -pattern MAX_COMBINED_FRAGMENT_UNIFORM_COMPONENTS = 35379 -pattern UNIFORM_BUFFER_OFFSET_ALIGNMENT = 35380 -pattern ACTIVE_UNIFORM_BLOCKS = 35382 -pattern UNIFORM_TYPE = 35383 -pattern UNIFORM_SIZE = 35384 -pattern UNIFORM_BLOCK_INDEX = 35386 -pattern UNIFORM_OFFSET = 35387 -pattern UNIFORM_ARRAY_STRIDE = 35388 -pattern UNIFORM_MATRIX_STRIDE = 35389 -pattern UNIFORM_IS_ROW_MAJOR = 35390 -pattern UNIFORM_BLOCK_BINDING = 35391 -pattern UNIFORM_BLOCK_DATA_SIZE = 35392 -pattern UNIFORM_BLOCK_ACTIVE_UNIFORMS = 35394 -pattern UNIFORM_BLOCK_ACTIVE_UNIFORM_INDICES = 35395 -pattern UNIFORM_BLOCK_REFERENCED_BY_VERTEX_SHADER = 35396 -pattern UNIFORM_BLOCK_REFERENCED_BY_FRAGMENT_SHADER = 35398 -pattern INVALID_INDEX = 4294967295 -pattern MAX_VERTEX_OUTPUT_COMPONENTS = 37154 -pattern MAX_FRAGMENT_INPUT_COMPONENTS = 37157 -pattern MAX_SERVER_WAIT_TIMEOUT = 37137 -pattern OBJECT_TYPE = 37138 -pattern SYNC_CONDITION = 37139 -pattern SYNC_STATUS = 37140 -pattern SYNC_FLAGS = 37141 -pattern SYNC_FENCE = 37142 -pattern SYNC_GPU_COMMANDS_COMPLETE = 37143 -pattern UNSIGNALED = 37144 -pattern SIGNALED = 37145 -pattern ALREADY_SIGNALED = 37146 -pattern TIMEOUT_EXPIRED = 37147 -pattern CONDITION_SATISFIED = 37148 -pattern WAIT_FAILED = 37149 -pattern SYNC_FLUSH_COMMANDS_BIT = 1 -pattern VERTEX_ATTRIB_ARRAY_DIVISOR = 35070 -pattern ANY_SAMPLES_PASSED = 35887 -pattern ANY_SAMPLES_PASSED_CONSERVATIVE = 36202 -pattern SAMPLER_BINDING = 35097 -pattern RGB10_A2UI = 36975 -pattern TEXTURE_SWIZZLE_R = 36418 -pattern TEXTURE_SWIZZLE_G = 36419 -pattern TEXTURE_SWIZZLE_B = 36420 -pattern TEXTURE_SWIZZLE_A = 36421 -pattern GREEN = 6404 -pattern BLUE = 6405 -pattern INT_2_10_10_10_REV = 36255 -pattern TRANSFORM_FEEDBACK = 36386 -pattern TRANSFORM_FEEDBACK_PAUSED = 36387 -pattern TRANSFORM_FEEDBACK_ACTIVE = 36388 -pattern TRANSFORM_FEEDBACK_BINDING = 36389 -pattern COMPRESSED_R11_EAC = 37488 -pattern COMPRESSED_SIGNED_R11_EAC = 37489 -pattern COMPRESSED_RG11_EAC = 37490 -pattern COMPRESSED_SIGNED_RG11_EAC = 37491 -pattern COMPRESSED_RGB8_ETC2 = 37492 -pattern COMPRESSED_SRGB8_ETC2 = 37493 -pattern COMPRESSED_RGB8_PUNCHTHROUGH_ALPHA1_ETC2 = 37494 -pattern COMPRESSED_SRGB8_PUNCHTHROUGH_ALPHA1_ETC2 = 37495 -pattern COMPRESSED_RGBA8_ETC2_EAC = 37496 -pattern COMPRESSED_SRGB8_ALPHA8_ETC2_EAC = 37497 -pattern TEXTURE_IMMUTABLE_FORMAT = 37167 -pattern MAX_ELEMENT_INDEX = 36203 -pattern NUM_SAMPLE_COUNTS = 37760 -pattern TEXTURE_IMMUTABLE_LEVELS = 33503 -pattern TIMEOUT_IGNORED = 18446744073709551615 diff --git a/src/GHCJS/DOM/JSFFI/Generated/WebGLActiveInfo.hs b/src/GHCJS/DOM/JSFFI/Generated/WebGLActiveInfo.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/WebGLActiveInfo.hs +++ /dev/null @@ -1,41 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.WebGLActiveInfo - (js_getSize, getSize, js_getType, getType, js_getName, getName, - WebGLActiveInfo, castToWebGLActiveInfo, gTypeWebGLActiveInfo) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"size\"]" js_getSize :: - WebGLActiveInfo -> IO Int - --- | -getSize :: (MonadIO m) => WebGLActiveInfo -> m Int -getSize self = liftIO (js_getSize (self)) - -foreign import javascript unsafe "$1[\"type\"]" js_getType :: - WebGLActiveInfo -> IO Word - --- | -getType :: (MonadIO m) => WebGLActiveInfo -> m Word -getType self = liftIO (js_getType (self)) - -foreign import javascript unsafe "$1[\"name\"]" js_getName :: - WebGLActiveInfo -> IO JSString - --- | -getName :: - (MonadIO m, FromJSString result) => WebGLActiveInfo -> m result -getName self = liftIO (fromJSString <$> (js_getName (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/WebGLCompressedTextureATC.hs b/src/GHCJS/DOM/JSFFI/Generated/WebGLCompressedTextureATC.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/WebGLCompressedTextureATC.hs +++ /dev/null @@ -1,25 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.WebGLCompressedTextureATC - (pattern COMPRESSED_RGB_ATC_WEBGL, - pattern COMPRESSED_RGBA_ATC_EXPLICIT_ALPHA_WEBGL, - pattern COMPRESSED_RGBA_ATC_INTERPOLATED_ALPHA_WEBGL, - WebGLCompressedTextureATC, castToWebGLCompressedTextureATC, - gTypeWebGLCompressedTextureATC) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums -pattern COMPRESSED_RGB_ATC_WEBGL = 35986 -pattern COMPRESSED_RGBA_ATC_EXPLICIT_ALPHA_WEBGL = 35987 -pattern COMPRESSED_RGBA_ATC_INTERPOLATED_ALPHA_WEBGL = 34798 diff --git a/src/GHCJS/DOM/JSFFI/Generated/WebGLCompressedTexturePVRTC.hs b/src/GHCJS/DOM/JSFFI/Generated/WebGLCompressedTexturePVRTC.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/WebGLCompressedTexturePVRTC.hs +++ /dev/null @@ -1,27 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.WebGLCompressedTexturePVRTC - (pattern COMPRESSED_RGB_PVRTC_4BPPV1_IMG, - pattern COMPRESSED_RGB_PVRTC_2BPPV1_IMG, - pattern COMPRESSED_RGBA_PVRTC_4BPPV1_IMG, - pattern COMPRESSED_RGBA_PVRTC_2BPPV1_IMG, - WebGLCompressedTexturePVRTC, castToWebGLCompressedTexturePVRTC, - gTypeWebGLCompressedTexturePVRTC) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums -pattern COMPRESSED_RGB_PVRTC_4BPPV1_IMG = 35840 -pattern COMPRESSED_RGB_PVRTC_2BPPV1_IMG = 35841 -pattern COMPRESSED_RGBA_PVRTC_4BPPV1_IMG = 35842 -pattern COMPRESSED_RGBA_PVRTC_2BPPV1_IMG = 35843 diff --git a/src/GHCJS/DOM/JSFFI/Generated/WebGLCompressedTextureS3TC.hs b/src/GHCJS/DOM/JSFFI/Generated/WebGLCompressedTextureS3TC.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/WebGLCompressedTextureS3TC.hs +++ /dev/null @@ -1,26 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.WebGLCompressedTextureS3TC - (pattern COMPRESSED_RGB_S3TC_DXT1_EXT, - pattern COMPRESSED_RGBA_S3TC_DXT1_EXT, - pattern COMPRESSED_RGBA_S3TC_DXT3_EXT, - pattern COMPRESSED_RGBA_S3TC_DXT5_EXT, WebGLCompressedTextureS3TC, - castToWebGLCompressedTextureS3TC, gTypeWebGLCompressedTextureS3TC) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums -pattern COMPRESSED_RGB_S3TC_DXT1_EXT = 33776 -pattern COMPRESSED_RGBA_S3TC_DXT1_EXT = 33777 -pattern COMPRESSED_RGBA_S3TC_DXT3_EXT = 33778 -pattern COMPRESSED_RGBA_S3TC_DXT5_EXT = 33779 diff --git a/src/GHCJS/DOM/JSFFI/Generated/WebGLContextAttributes.hs b/src/GHCJS/DOM/JSFFI/Generated/WebGLContextAttributes.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/WebGLContextAttributes.hs +++ /dev/null @@ -1,122 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.WebGLContextAttributes - (js_setAlpha, setAlpha, js_getAlpha, getAlpha, js_setDepth, - setDepth, js_getDepth, getDepth, js_setStencil, setStencil, - js_getStencil, getStencil, js_setAntialias, setAntialias, - js_getAntialias, getAntialias, js_setPremultipliedAlpha, - setPremultipliedAlpha, js_getPremultipliedAlpha, - getPremultipliedAlpha, js_setPreserveDrawingBuffer, - setPreserveDrawingBuffer, js_getPreserveDrawingBuffer, - getPreserveDrawingBuffer, WebGLContextAttributes, - castToWebGLContextAttributes, gTypeWebGLContextAttributes) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"alpha\"] = $2;" js_setAlpha - :: WebGLContextAttributes -> Bool -> IO () - --- | -setAlpha :: (MonadIO m) => WebGLContextAttributes -> Bool -> m () -setAlpha self val = liftIO (js_setAlpha (self) val) - -foreign import javascript unsafe "($1[\"alpha\"] ? 1 : 0)" - js_getAlpha :: WebGLContextAttributes -> IO Bool - --- | -getAlpha :: (MonadIO m) => WebGLContextAttributes -> m Bool -getAlpha self = liftIO (js_getAlpha (self)) - -foreign import javascript unsafe "$1[\"depth\"] = $2;" js_setDepth - :: WebGLContextAttributes -> Bool -> IO () - --- | -setDepth :: (MonadIO m) => WebGLContextAttributes -> Bool -> m () -setDepth self val = liftIO (js_setDepth (self) val) - -foreign import javascript unsafe "($1[\"depth\"] ? 1 : 0)" - js_getDepth :: WebGLContextAttributes -> IO Bool - --- | -getDepth :: (MonadIO m) => WebGLContextAttributes -> m Bool -getDepth self = liftIO (js_getDepth (self)) - -foreign import javascript unsafe "$1[\"stencil\"] = $2;" - js_setStencil :: WebGLContextAttributes -> Bool -> IO () - --- | -setStencil :: (MonadIO m) => WebGLContextAttributes -> Bool -> m () -setStencil self val = liftIO (js_setStencil (self) val) - -foreign import javascript unsafe "($1[\"stencil\"] ? 1 : 0)" - js_getStencil :: WebGLContextAttributes -> IO Bool - --- | -getStencil :: (MonadIO m) => WebGLContextAttributes -> m Bool -getStencil self = liftIO (js_getStencil (self)) - -foreign import javascript unsafe "$1[\"antialias\"] = $2;" - js_setAntialias :: WebGLContextAttributes -> Bool -> IO () - --- | -setAntialias :: - (MonadIO m) => WebGLContextAttributes -> Bool -> m () -setAntialias self val = liftIO (js_setAntialias (self) val) - -foreign import javascript unsafe "($1[\"antialias\"] ? 1 : 0)" - js_getAntialias :: WebGLContextAttributes -> IO Bool - --- | -getAntialias :: (MonadIO m) => WebGLContextAttributes -> m Bool -getAntialias self = liftIO (js_getAntialias (self)) - -foreign import javascript unsafe "$1[\"premultipliedAlpha\"] = $2;" - js_setPremultipliedAlpha :: WebGLContextAttributes -> Bool -> IO () - --- | -setPremultipliedAlpha :: - (MonadIO m) => WebGLContextAttributes -> Bool -> m () -setPremultipliedAlpha self val - = liftIO (js_setPremultipliedAlpha (self) val) - -foreign import javascript unsafe - "($1[\"premultipliedAlpha\"] ? 1 : 0)" js_getPremultipliedAlpha :: - WebGLContextAttributes -> IO Bool - --- | -getPremultipliedAlpha :: - (MonadIO m) => WebGLContextAttributes -> m Bool -getPremultipliedAlpha self - = liftIO (js_getPremultipliedAlpha (self)) - -foreign import javascript unsafe - "$1[\"preserveDrawingBuffer\"] = $2;" js_setPreserveDrawingBuffer - :: WebGLContextAttributes -> Bool -> IO () - --- | -setPreserveDrawingBuffer :: - (MonadIO m) => WebGLContextAttributes -> Bool -> m () -setPreserveDrawingBuffer self val - = liftIO (js_setPreserveDrawingBuffer (self) val) - -foreign import javascript unsafe - "($1[\"preserveDrawingBuffer\"] ? 1 : 0)" - js_getPreserveDrawingBuffer :: WebGLContextAttributes -> IO Bool - --- | -getPreserveDrawingBuffer :: - (MonadIO m) => WebGLContextAttributes -> m Bool -getPreserveDrawingBuffer self - = liftIO (js_getPreserveDrawingBuffer (self)) diff --git a/src/GHCJS/DOM/JSFFI/Generated/WebGLContextEvent.hs b/src/GHCJS/DOM/JSFFI/Generated/WebGLContextEvent.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/WebGLContextEvent.hs +++ /dev/null @@ -1,28 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.WebGLContextEvent - (js_getStatusMessage, getStatusMessage, WebGLContextEvent, - castToWebGLContextEvent, gTypeWebGLContextEvent) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"statusMessage\"]" - js_getStatusMessage :: WebGLContextEvent -> IO JSString - --- | -getStatusMessage :: - (MonadIO m, FromJSString result) => WebGLContextEvent -> m result -getStatusMessage self - = liftIO (fromJSString <$> (js_getStatusMessage (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/WebGLDebugRendererInfo.hs b/src/GHCJS/DOM/JSFFI/Generated/WebGLDebugRendererInfo.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/WebGLDebugRendererInfo.hs +++ /dev/null @@ -1,22 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.WebGLDebugRendererInfo - (pattern UNMASKED_VENDOR_WEBGL, pattern UNMASKED_RENDERER_WEBGL, - WebGLDebugRendererInfo, castToWebGLDebugRendererInfo, - gTypeWebGLDebugRendererInfo) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums -pattern UNMASKED_VENDOR_WEBGL = 37445 -pattern UNMASKED_RENDERER_WEBGL = 37446 diff --git a/src/GHCJS/DOM/JSFFI/Generated/WebGLDebugShaders.hs b/src/GHCJS/DOM/JSFFI/Generated/WebGLDebugShaders.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/WebGLDebugShaders.hs +++ /dev/null @@ -1,33 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.WebGLDebugShaders - (js_getTranslatedShaderSource, getTranslatedShaderSource, - WebGLDebugShaders, castToWebGLDebugShaders, gTypeWebGLDebugShaders) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe - "$1[\"getTranslatedShaderSource\"]($2)" - js_getTranslatedShaderSource :: - WebGLDebugShaders -> Nullable WebGLShader -> IO (Nullable JSString) - --- | -getTranslatedShaderSource :: - (MonadIO m, FromJSString result) => - WebGLDebugShaders -> Maybe WebGLShader -> m (Maybe result) -getTranslatedShaderSource self shader - = liftIO - (fromMaybeJSString <$> - (js_getTranslatedShaderSource (self) (maybeToNullable shader))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/WebGLDepthTexture.hs b/src/GHCJS/DOM/JSFFI/Generated/WebGLDepthTexture.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/WebGLDepthTexture.hs +++ /dev/null @@ -1,20 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.WebGLDepthTexture - (pattern UNSIGNED_INT_24_8_WEBGL, WebGLDepthTexture, - castToWebGLDepthTexture, gTypeWebGLDepthTexture) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums -pattern UNSIGNED_INT_24_8_WEBGL = 34042 diff --git a/src/GHCJS/DOM/JSFFI/Generated/WebGLDrawBuffers.hs b/src/GHCJS/DOM/JSFFI/Generated/WebGLDrawBuffers.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/WebGLDrawBuffers.hs +++ /dev/null @@ -1,82 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.WebGLDrawBuffers - (js_drawBuffersWEBGL, drawBuffersWEBGL, - pattern COLOR_ATTACHMENT0_WEBGL, pattern COLOR_ATTACHMENT1_WEBGL, - pattern COLOR_ATTACHMENT2_WEBGL, pattern COLOR_ATTACHMENT3_WEBGL, - pattern COLOR_ATTACHMENT4_WEBGL, pattern COLOR_ATTACHMENT5_WEBGL, - pattern COLOR_ATTACHMENT6_WEBGL, pattern COLOR_ATTACHMENT7_WEBGL, - pattern COLOR_ATTACHMENT8_WEBGL, pattern COLOR_ATTACHMENT9_WEBGL, - pattern COLOR_ATTACHMENT10_WEBGL, pattern COLOR_ATTACHMENT11_WEBGL, - pattern COLOR_ATTACHMENT12_WEBGL, pattern COLOR_ATTACHMENT13_WEBGL, - pattern COLOR_ATTACHMENT14_WEBGL, pattern COLOR_ATTACHMENT15_WEBGL, - pattern DRAW_BUFFER0_WEBGL, pattern DRAW_BUFFER1_WEBGL, - pattern DRAW_BUFFER2_WEBGL, pattern DRAW_BUFFER3_WEBGL, - pattern DRAW_BUFFER4_WEBGL, pattern DRAW_BUFFER5_WEBGL, - pattern DRAW_BUFFER6_WEBGL, pattern DRAW_BUFFER7_WEBGL, - pattern DRAW_BUFFER8_WEBGL, pattern DRAW_BUFFER9_WEBGL, - pattern DRAW_BUFFER10_WEBGL, pattern DRAW_BUFFER11_WEBGL, - pattern DRAW_BUFFER12_WEBGL, pattern DRAW_BUFFER13_WEBGL, - pattern DRAW_BUFFER14_WEBGL, pattern DRAW_BUFFER15_WEBGL, - pattern MAX_COLOR_ATTACHMENTS_WEBGL, - pattern MAX_DRAW_BUFFERS_WEBGL, WebGLDrawBuffers, - castToWebGLDrawBuffers, gTypeWebGLDrawBuffers) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"drawBuffersWEBGL\"]($2)" - js_drawBuffersWEBGL :: WebGLDrawBuffers -> JSVal -> IO () - --- | -drawBuffersWEBGL :: - (MonadIO m) => WebGLDrawBuffers -> [GLenum] -> m () -drawBuffersWEBGL self buffers - = liftIO - (toJSVal buffers >>= - \ buffers' -> js_drawBuffersWEBGL (self) buffers') -pattern COLOR_ATTACHMENT0_WEBGL = 36064 -pattern COLOR_ATTACHMENT1_WEBGL = 36065 -pattern COLOR_ATTACHMENT2_WEBGL = 36066 -pattern COLOR_ATTACHMENT3_WEBGL = 36067 -pattern COLOR_ATTACHMENT4_WEBGL = 36068 -pattern COLOR_ATTACHMENT5_WEBGL = 36069 -pattern COLOR_ATTACHMENT6_WEBGL = 36070 -pattern COLOR_ATTACHMENT7_WEBGL = 36071 -pattern COLOR_ATTACHMENT8_WEBGL = 36072 -pattern COLOR_ATTACHMENT9_WEBGL = 36073 -pattern COLOR_ATTACHMENT10_WEBGL = 36074 -pattern COLOR_ATTACHMENT11_WEBGL = 36075 -pattern COLOR_ATTACHMENT12_WEBGL = 36076 -pattern COLOR_ATTACHMENT13_WEBGL = 36077 -pattern COLOR_ATTACHMENT14_WEBGL = 36078 -pattern COLOR_ATTACHMENT15_WEBGL = 36079 -pattern DRAW_BUFFER0_WEBGL = 34853 -pattern DRAW_BUFFER1_WEBGL = 34854 -pattern DRAW_BUFFER2_WEBGL = 34855 -pattern DRAW_BUFFER3_WEBGL = 34856 -pattern DRAW_BUFFER4_WEBGL = 34857 -pattern DRAW_BUFFER5_WEBGL = 34858 -pattern DRAW_BUFFER6_WEBGL = 34859 -pattern DRAW_BUFFER7_WEBGL = 34860 -pattern DRAW_BUFFER8_WEBGL = 34861 -pattern DRAW_BUFFER9_WEBGL = 34862 -pattern DRAW_BUFFER10_WEBGL = 34863 -pattern DRAW_BUFFER11_WEBGL = 34864 -pattern DRAW_BUFFER12_WEBGL = 34865 -pattern DRAW_BUFFER13_WEBGL = 34866 -pattern DRAW_BUFFER14_WEBGL = 34867 -pattern DRAW_BUFFER15_WEBGL = 34868 -pattern MAX_COLOR_ATTACHMENTS_WEBGL = 36063 -pattern MAX_DRAW_BUFFERS_WEBGL = 34852 diff --git a/src/GHCJS/DOM/JSFFI/Generated/WebGLLoseContext.hs b/src/GHCJS/DOM/JSFFI/Generated/WebGLLoseContext.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/WebGLLoseContext.hs +++ /dev/null @@ -1,33 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.WebGLLoseContext - (js_loseContext, loseContext, js_restoreContext, restoreContext, - WebGLLoseContext, castToWebGLLoseContext, gTypeWebGLLoseContext) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"loseContext\"]()" - js_loseContext :: WebGLLoseContext -> IO () - --- | -loseContext :: (MonadIO m) => WebGLLoseContext -> m () -loseContext self = liftIO (js_loseContext (self)) - -foreign import javascript unsafe "$1[\"restoreContext\"]()" - js_restoreContext :: WebGLLoseContext -> IO () - --- | -restoreContext :: (MonadIO m) => WebGLLoseContext -> m () -restoreContext self = liftIO (js_restoreContext (self)) diff --git a/src/GHCJS/DOM/JSFFI/Generated/WebGLRenderingContextBase.hs b/src/GHCJS/DOM/JSFFI/Generated/WebGLRenderingContextBase.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/WebGLRenderingContextBase.hs +++ /dev/null @@ -1,2801 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.WebGLRenderingContextBase - (js_activeTexture, activeTexture, js_attachShader, attachShader, - js_bindAttribLocation, bindAttribLocation, js_bindBuffer, - bindBuffer, js_bindFramebuffer, bindFramebuffer, - js_bindRenderbuffer, bindRenderbuffer, js_bindTexture, bindTexture, - js_blendColor, blendColor, js_blendEquation, blendEquation, - js_blendEquationSeparate, blendEquationSeparate, js_blendFunc, - blendFunc, js_blendFuncSeparate, blendFuncSeparate, js_bufferData, - bufferData, js_bufferDataView, bufferDataView, js_bufferDataPtr, - bufferDataPtr, js_bufferSubData, bufferSubData, - js_bufferSubDataView, bufferSubDataView, js_checkFramebufferStatus, - checkFramebufferStatus, js_clear, clear, js_clearColor, clearColor, - js_clearDepth, clearDepth, js_clearStencil, clearStencil, - js_colorMask, colorMask, js_compileShader, compileShader, - js_compressedTexImage2D, compressedTexImage2D, - js_compressedTexSubImage2D, compressedTexSubImage2D, - js_copyTexImage2D, copyTexImage2D, js_copyTexSubImage2D, - copyTexSubImage2D, js_createBuffer, createBuffer, - js_createFramebuffer, createFramebuffer, js_createProgram, - createProgram, js_createRenderbuffer, createRenderbuffer, - js_createShader, createShader, js_createTexture, createTexture, - js_cullFace, cullFace, js_deleteBuffer, deleteBuffer, - js_deleteFramebuffer, deleteFramebuffer, js_deleteProgram, - deleteProgram, js_deleteRenderbuffer, deleteRenderbuffer, - js_deleteShader, deleteShader, js_deleteTexture, deleteTexture, - js_depthFunc, depthFunc, js_depthMask, depthMask, js_depthRange, - depthRange, js_detachShader, detachShader, js_disable, disable, - js_disableVertexAttribArray, disableVertexAttribArray, - js_drawArrays, drawArrays, js_drawElements, drawElements, - js_enable, enable, js_enableVertexAttribArray, - enableVertexAttribArray, js_finish, finish, js_flush, flush, - js_framebufferRenderbuffer, framebufferRenderbuffer, - js_framebufferTexture2D, framebufferTexture2D, js_frontFace, - frontFace, js_generateMipmap, generateMipmap, js_getActiveAttrib, - getActiveAttrib, js_getActiveUniform, getActiveUniform, - js_getAttachedShaders, getAttachedShaders, js_getAttribLocation, - getAttribLocation, js_getBufferParameter, getBufferParameter, - js_getContextAttributes, getContextAttributes, js_getError, - getError, js_getExtension, getExtension, - js_getFramebufferAttachmentParameter, - getFramebufferAttachmentParameter, js_getParameter, getParameter, - js_getProgramParameter, getProgramParameter, js_getProgramInfoLog, - getProgramInfoLog, js_getRenderbufferParameter, - getRenderbufferParameter, js_getShaderParameter, - getShaderParameter, js_getShaderInfoLog, getShaderInfoLog, - js_getShaderPrecisionFormat, getShaderPrecisionFormat, - js_getShaderSource, getShaderSource, js_getSupportedExtensions, - getSupportedExtensions, js_getTexParameter, getTexParameter, - js_getUniform, getUniform, js_getUniformLocation, - getUniformLocation, js_getVertexAttrib, getVertexAttrib, - js_getVertexAttribOffset, getVertexAttribOffset, js_hint, hint, - js_isBuffer, isBuffer, js_isContextLost, isContextLost, - js_isEnabled, isEnabled, js_isFramebuffer, isFramebuffer, - js_isProgram, isProgram, js_isRenderbuffer, isRenderbuffer, - js_isShader, isShader, js_isTexture, isTexture, js_lineWidth, - lineWidth, js_linkProgram, linkProgram, js_pixelStorei, - pixelStorei, js_polygonOffset, polygonOffset, js_readPixels, - readPixels, js_releaseShaderCompiler, releaseShaderCompiler, - js_renderbufferStorage, renderbufferStorage, js_sampleCoverage, - sampleCoverage, js_scissor, scissor, js_shaderSource, shaderSource, - js_stencilFunc, stencilFunc, js_stencilFuncSeparate, - stencilFuncSeparate, js_stencilMask, stencilMask, - js_stencilMaskSeparate, stencilMaskSeparate, js_stencilOp, - stencilOp, js_stencilOpSeparate, stencilOpSeparate, - js_texParameterf, texParameterf, js_texParameteri, texParameteri, - js_texImage2DView, texImage2DView, js_texImage2DData, - texImage2DData, js_texImage2D, texImage2D, js_texImage2DCanvas, - texImage2DCanvas, js_texImage2DVideo, texImage2DVideo, - js_texSubImage2DView, texSubImage2DView, js_texSubImage2DData, - texSubImage2DData, js_texSubImage2D, texSubImage2D, - js_texSubImage2DCanvas, texSubImage2DCanvas, js_texSubImage2DVideo, - texSubImage2DVideo, js_uniform1f, uniform1f, js_uniform1fv, - uniform1fv, js_uniform1i, uniform1i, js_uniform1iv, uniform1iv, - js_uniform2f, uniform2f, js_uniform2fv, uniform2fv, js_uniform2i, - uniform2i, js_uniform2iv, uniform2iv, js_uniform3f, uniform3f, - js_uniform3fv, uniform3fv, js_uniform3i, uniform3i, js_uniform3iv, - uniform3iv, js_uniform4f, uniform4f, js_uniform4fv, uniform4fv, - js_uniform4i, uniform4i, js_uniform4iv, uniform4iv, - js_uniformMatrix2fv, uniformMatrix2fv, js_uniformMatrix3fv, - uniformMatrix3fv, js_uniformMatrix4fv, uniformMatrix4fv, - js_useProgram, useProgram, js_validateProgram, validateProgram, - js_vertexAttrib1f, vertexAttrib1f, js_vertexAttrib1fv, - vertexAttrib1fv, js_vertexAttrib2f, vertexAttrib2f, - js_vertexAttrib2fv, vertexAttrib2fv, js_vertexAttrib3f, - vertexAttrib3f, js_vertexAttrib3fv, vertexAttrib3fv, - js_vertexAttrib4f, vertexAttrib4f, js_vertexAttrib4fv, - vertexAttrib4fv, js_vertexAttribPointer, vertexAttribPointer, - js_viewport, viewport, pattern DEPTH_BUFFER_BIT, - pattern STENCIL_BUFFER_BIT, pattern COLOR_BUFFER_BIT, - pattern POINTS, pattern LINES, pattern LINE_LOOP, - pattern LINE_STRIP, pattern TRIANGLES, pattern TRIANGLE_STRIP, - pattern TRIANGLE_FAN, pattern ZERO, pattern ONE, pattern SRC_COLOR, - pattern ONE_MINUS_SRC_COLOR, pattern SRC_ALPHA, - pattern ONE_MINUS_SRC_ALPHA, pattern DST_ALPHA, - pattern ONE_MINUS_DST_ALPHA, pattern DST_COLOR, - pattern ONE_MINUS_DST_COLOR, pattern SRC_ALPHA_SATURATE, - pattern FUNC_ADD, pattern BLEND_EQUATION, - pattern BLEND_EQUATION_RGB, pattern BLEND_EQUATION_ALPHA, - pattern FUNC_SUBTRACT, pattern FUNC_REVERSE_SUBTRACT, - pattern BLEND_DST_RGB, pattern BLEND_SRC_RGB, - pattern BLEND_DST_ALPHA, pattern BLEND_SRC_ALPHA, - pattern CONSTANT_COLOR, pattern ONE_MINUS_CONSTANT_COLOR, - pattern CONSTANT_ALPHA, pattern ONE_MINUS_CONSTANT_ALPHA, - pattern BLEND_COLOR, pattern ARRAY_BUFFER, - pattern ELEMENT_ARRAY_BUFFER, pattern ARRAY_BUFFER_BINDING, - pattern ELEMENT_ARRAY_BUFFER_BINDING, pattern STREAM_DRAW, - pattern STATIC_DRAW, pattern DYNAMIC_DRAW, pattern BUFFER_SIZE, - pattern BUFFER_USAGE, pattern CURRENT_VERTEX_ATTRIB, pattern FRONT, - pattern BACK, pattern FRONT_AND_BACK, pattern TEXTURE_2D, - pattern CULL_FACE, pattern BLEND, pattern DITHER, - pattern STENCIL_TEST, pattern DEPTH_TEST, pattern SCISSOR_TEST, - pattern POLYGON_OFFSET_FILL, pattern SAMPLE_ALPHA_TO_COVERAGE, - pattern SAMPLE_COVERAGE, pattern NO_ERROR, pattern INVALID_ENUM, - pattern INVALID_VALUE, pattern INVALID_OPERATION, - pattern OUT_OF_MEMORY, pattern CW, pattern CCW, pattern LINE_WIDTH, - pattern ALIASED_POINT_SIZE_RANGE, pattern ALIASED_LINE_WIDTH_RANGE, - pattern CULL_FACE_MODE, pattern FRONT_FACE, pattern DEPTH_RANGE, - pattern DEPTH_WRITEMASK, pattern DEPTH_CLEAR_VALUE, - pattern DEPTH_FUNC, pattern STENCIL_CLEAR_VALUE, - pattern STENCIL_FUNC, pattern STENCIL_FAIL, - pattern STENCIL_PASS_DEPTH_FAIL, pattern STENCIL_PASS_DEPTH_PASS, - pattern STENCIL_REF, pattern STENCIL_VALUE_MASK, - pattern STENCIL_WRITEMASK, pattern STENCIL_BACK_FUNC, - pattern STENCIL_BACK_FAIL, pattern STENCIL_BACK_PASS_DEPTH_FAIL, - pattern STENCIL_BACK_PASS_DEPTH_PASS, pattern STENCIL_BACK_REF, - pattern STENCIL_BACK_VALUE_MASK, pattern STENCIL_BACK_WRITEMASK, - pattern VIEWPORT, pattern SCISSOR_BOX, pattern COLOR_CLEAR_VALUE, - pattern COLOR_WRITEMASK, pattern UNPACK_ALIGNMENT, - pattern PACK_ALIGNMENT, pattern MAX_TEXTURE_SIZE, - pattern MAX_VIEWPORT_DIMS, pattern SUBPIXEL_BITS, pattern RED_BITS, - pattern GREEN_BITS, pattern BLUE_BITS, pattern ALPHA_BITS, - pattern DEPTH_BITS, pattern STENCIL_BITS, - pattern POLYGON_OFFSET_UNITS, pattern POLYGON_OFFSET_FACTOR, - pattern TEXTURE_BINDING_2D, pattern SAMPLE_BUFFERS, - pattern SAMPLES, pattern SAMPLE_COVERAGE_VALUE, - pattern SAMPLE_COVERAGE_INVERT, pattern COMPRESSED_TEXTURE_FORMATS, - pattern DONT_CARE, pattern FASTEST, pattern NICEST, - pattern GENERATE_MIPMAP_HINT, pattern BYTE, pattern UNSIGNED_BYTE, - pattern SHORT, pattern UNSIGNED_SHORT, pattern INT, - pattern UNSIGNED_INT, pattern FLOAT, pattern DEPTH_COMPONENT, - pattern ALPHA, pattern RGB, pattern RGBA, pattern LUMINANCE, - pattern LUMINANCE_ALPHA, pattern UNSIGNED_SHORT_4_4_4_4, - pattern UNSIGNED_SHORT_5_5_5_1, pattern UNSIGNED_SHORT_5_6_5, - pattern FRAGMENT_SHADER, pattern VERTEX_SHADER, - pattern MAX_VERTEX_ATTRIBS, pattern MAX_VERTEX_UNIFORM_VECTORS, - pattern MAX_VARYING_VECTORS, - pattern MAX_COMBINED_TEXTURE_IMAGE_UNITS, - pattern MAX_VERTEX_TEXTURE_IMAGE_UNITS, - pattern MAX_TEXTURE_IMAGE_UNITS, - pattern MAX_FRAGMENT_UNIFORM_VECTORS, pattern SHADER_TYPE, - pattern DELETE_STATUS, pattern LINK_STATUS, - pattern VALIDATE_STATUS, pattern ATTACHED_SHADERS, - pattern ACTIVE_UNIFORMS, pattern ACTIVE_ATTRIBUTES, - pattern SHADING_LANGUAGE_VERSION, pattern CURRENT_PROGRAM, - pattern NEVER, pattern LESS, pattern EQUAL, pattern LEQUAL, - pattern GREATER, pattern NOTEQUAL, pattern GEQUAL, pattern ALWAYS, - pattern KEEP, pattern REPLACE, pattern INCR, pattern DECR, - pattern INVERT, pattern INCR_WRAP, pattern DECR_WRAP, - pattern VENDOR, pattern RENDERER, pattern VERSION, pattern NEAREST, - pattern LINEAR, pattern NEAREST_MIPMAP_NEAREST, - pattern LINEAR_MIPMAP_NEAREST, pattern NEAREST_MIPMAP_LINEAR, - pattern LINEAR_MIPMAP_LINEAR, pattern TEXTURE_MAG_FILTER, - pattern TEXTURE_MIN_FILTER, pattern TEXTURE_WRAP_S, - pattern TEXTURE_WRAP_T, pattern TEXTURE, pattern TEXTURE_CUBE_MAP, - pattern TEXTURE_BINDING_CUBE_MAP, - pattern TEXTURE_CUBE_MAP_POSITIVE_X, - pattern TEXTURE_CUBE_MAP_NEGATIVE_X, - pattern TEXTURE_CUBE_MAP_POSITIVE_Y, - pattern TEXTURE_CUBE_MAP_NEGATIVE_Y, - pattern TEXTURE_CUBE_MAP_POSITIVE_Z, - pattern TEXTURE_CUBE_MAP_NEGATIVE_Z, - pattern MAX_CUBE_MAP_TEXTURE_SIZE, pattern TEXTURE0, - pattern TEXTURE1, pattern TEXTURE2, pattern TEXTURE3, - pattern TEXTURE4, pattern TEXTURE5, pattern TEXTURE6, - pattern TEXTURE7, pattern TEXTURE8, pattern TEXTURE9, - pattern TEXTURE10, pattern TEXTURE11, pattern TEXTURE12, - pattern TEXTURE13, pattern TEXTURE14, pattern TEXTURE15, - pattern TEXTURE16, pattern TEXTURE17, pattern TEXTURE18, - pattern TEXTURE19, pattern TEXTURE20, pattern TEXTURE21, - pattern TEXTURE22, pattern TEXTURE23, pattern TEXTURE24, - pattern TEXTURE25, pattern TEXTURE26, pattern TEXTURE27, - pattern TEXTURE28, pattern TEXTURE29, pattern TEXTURE30, - pattern TEXTURE31, pattern ACTIVE_TEXTURE, pattern REPEAT, - pattern CLAMP_TO_EDGE, pattern MIRRORED_REPEAT, pattern FLOAT_VEC2, - pattern FLOAT_VEC3, pattern FLOAT_VEC4, pattern INT_VEC2, - pattern INT_VEC3, pattern INT_VEC4, pattern BOOL, - pattern BOOL_VEC2, pattern BOOL_VEC3, pattern BOOL_VEC4, - pattern FLOAT_MAT2, pattern FLOAT_MAT3, pattern FLOAT_MAT4, - pattern SAMPLER_2D, pattern SAMPLER_CUBE, - pattern VERTEX_ATTRIB_ARRAY_ENABLED, - pattern VERTEX_ATTRIB_ARRAY_SIZE, - pattern VERTEX_ATTRIB_ARRAY_STRIDE, - pattern VERTEX_ATTRIB_ARRAY_TYPE, - pattern VERTEX_ATTRIB_ARRAY_NORMALIZED, - pattern VERTEX_ATTRIB_ARRAY_POINTER, - pattern VERTEX_ATTRIB_ARRAY_BUFFER_BINDING, - pattern IMPLEMENTATION_COLOR_READ_TYPE, - pattern IMPLEMENTATION_COLOR_READ_FORMAT, pattern COMPILE_STATUS, - pattern LOW_FLOAT, pattern MEDIUM_FLOAT, pattern HIGH_FLOAT, - pattern LOW_INT, pattern MEDIUM_INT, pattern HIGH_INT, - pattern FRAMEBUFFER, pattern RENDERBUFFER, pattern RGBA4, - pattern RGB5_A1, pattern RGB565, pattern DEPTH_COMPONENT16, - pattern STENCIL_INDEX, pattern STENCIL_INDEX8, - pattern DEPTH_STENCIL, pattern RENDERBUFFER_WIDTH, - pattern RENDERBUFFER_HEIGHT, pattern RENDERBUFFER_INTERNAL_FORMAT, - pattern RENDERBUFFER_RED_SIZE, pattern RENDERBUFFER_GREEN_SIZE, - pattern RENDERBUFFER_BLUE_SIZE, pattern RENDERBUFFER_ALPHA_SIZE, - pattern RENDERBUFFER_DEPTH_SIZE, pattern RENDERBUFFER_STENCIL_SIZE, - pattern FRAMEBUFFER_ATTACHMENT_OBJECT_TYPE, - pattern FRAMEBUFFER_ATTACHMENT_OBJECT_NAME, - pattern FRAMEBUFFER_ATTACHMENT_TEXTURE_LEVEL, - pattern FRAMEBUFFER_ATTACHMENT_TEXTURE_CUBE_MAP_FACE, - pattern COLOR_ATTACHMENT0, pattern DEPTH_ATTACHMENT, - pattern STENCIL_ATTACHMENT, pattern DEPTH_STENCIL_ATTACHMENT, - pattern NONE, pattern FRAMEBUFFER_COMPLETE, - pattern FRAMEBUFFER_INCOMPLETE_ATTACHMENT, - pattern FRAMEBUFFER_INCOMPLETE_MISSING_ATTACHMENT, - pattern FRAMEBUFFER_INCOMPLETE_DIMENSIONS, - pattern FRAMEBUFFER_UNSUPPORTED, pattern FRAMEBUFFER_BINDING, - pattern RENDERBUFFER_BINDING, pattern MAX_RENDERBUFFER_SIZE, - pattern INVALID_FRAMEBUFFER_OPERATION, pattern UNPACK_FLIP_Y_WEBGL, - pattern UNPACK_PREMULTIPLY_ALPHA_WEBGL, pattern CONTEXT_LOST_WEBGL, - pattern UNPACK_COLORSPACE_CONVERSION_WEBGL, - pattern BROWSER_DEFAULT_WEBGL, js_getDrawingBufferWidth, - getDrawingBufferWidth, js_getDrawingBufferHeight, - getDrawingBufferHeight, WebGLRenderingContextBase, - castToWebGLRenderingContextBase, gTypeWebGLRenderingContextBase, - IsWebGLRenderingContextBase, toWebGLRenderingContextBase) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"activeTexture\"]($2)" - js_activeTexture :: WebGLRenderingContextBase -> GLenum -> IO () - --- | -activeTexture :: - (MonadIO m, IsWebGLRenderingContextBase self) => - self -> GLenum -> m () -activeTexture self texture - = liftIO - (js_activeTexture (toWebGLRenderingContextBase self) texture) - -foreign import javascript unsafe "$1[\"attachShader\"]($2, $3)" - js_attachShader :: - WebGLRenderingContextBase -> - Nullable WebGLProgram -> Nullable WebGLShader -> IO () - --- | -attachShader :: - (MonadIO m, IsWebGLRenderingContextBase self) => - self -> Maybe WebGLProgram -> Maybe WebGLShader -> m () -attachShader self program shader - = liftIO - (js_attachShader (toWebGLRenderingContextBase self) - (maybeToNullable program) - (maybeToNullable shader)) - -foreign import javascript unsafe - "$1[\"bindAttribLocation\"]($2, $3,\n$4)" js_bindAttribLocation :: - WebGLRenderingContextBase -> - Nullable WebGLProgram -> GLuint -> JSString -> IO () - --- | -bindAttribLocation :: - (MonadIO m, IsWebGLRenderingContextBase self, ToJSString name) => - self -> Maybe WebGLProgram -> GLuint -> name -> m () -bindAttribLocation self program index name - = liftIO - (js_bindAttribLocation (toWebGLRenderingContextBase self) - (maybeToNullable program) - index - (toJSString name)) - -foreign import javascript unsafe "$1[\"bindBuffer\"]($2, $3)" - js_bindBuffer :: - WebGLRenderingContextBase -> - GLenum -> Nullable WebGLBuffer -> IO () - --- | -bindBuffer :: - (MonadIO m, IsWebGLRenderingContextBase self) => - self -> GLenum -> Maybe WebGLBuffer -> m () -bindBuffer self target buffer - = liftIO - (js_bindBuffer (toWebGLRenderingContextBase self) target - (maybeToNullable buffer)) - -foreign import javascript unsafe "$1[\"bindFramebuffer\"]($2, $3)" - js_bindFramebuffer :: - WebGLRenderingContextBase -> - GLenum -> Nullable WebGLFramebuffer -> IO () - --- | -bindFramebuffer :: - (MonadIO m, IsWebGLRenderingContextBase self) => - self -> GLenum -> Maybe WebGLFramebuffer -> m () -bindFramebuffer self target framebuffer - = liftIO - (js_bindFramebuffer (toWebGLRenderingContextBase self) target - (maybeToNullable framebuffer)) - -foreign import javascript unsafe "$1[\"bindRenderbuffer\"]($2, $3)" - js_bindRenderbuffer :: - WebGLRenderingContextBase -> - GLenum -> Nullable WebGLRenderbuffer -> IO () - --- | -bindRenderbuffer :: - (MonadIO m, IsWebGLRenderingContextBase self) => - self -> GLenum -> Maybe WebGLRenderbuffer -> m () -bindRenderbuffer self target renderbuffer - = liftIO - (js_bindRenderbuffer (toWebGLRenderingContextBase self) target - (maybeToNullable renderbuffer)) - -foreign import javascript unsafe "$1[\"bindTexture\"]($2, $3)" - js_bindTexture :: - WebGLRenderingContextBase -> - GLenum -> Nullable WebGLTexture -> IO () - --- | -bindTexture :: - (MonadIO m, IsWebGLRenderingContextBase self) => - self -> GLenum -> Maybe WebGLTexture -> m () -bindTexture self target texture - = liftIO - (js_bindTexture (toWebGLRenderingContextBase self) target - (maybeToNullable texture)) - -foreign import javascript unsafe - "$1[\"blendColor\"]($2, $3, $4, $5)" js_blendColor :: - WebGLRenderingContextBase -> - GLclampf -> GLclampf -> GLclampf -> GLclampf -> IO () - --- | -blendColor :: - (MonadIO m, IsWebGLRenderingContextBase self) => - self -> GLclampf -> GLclampf -> GLclampf -> GLclampf -> m () -blendColor self red green blue alpha - = liftIO - (js_blendColor (toWebGLRenderingContextBase self) red green blue - alpha) - -foreign import javascript unsafe "$1[\"blendEquation\"]($2)" - js_blendEquation :: WebGLRenderingContextBase -> GLenum -> IO () - --- | -blendEquation :: - (MonadIO m, IsWebGLRenderingContextBase self) => - self -> GLenum -> m () -blendEquation self mode - = liftIO (js_blendEquation (toWebGLRenderingContextBase self) mode) - -foreign import javascript unsafe - "$1[\"blendEquationSeparate\"]($2,\n$3)" js_blendEquationSeparate - :: WebGLRenderingContextBase -> GLenum -> GLenum -> IO () - --- | -blendEquationSeparate :: - (MonadIO m, IsWebGLRenderingContextBase self) => - self -> GLenum -> GLenum -> m () -blendEquationSeparate self modeRGB modeAlpha - = liftIO - (js_blendEquationSeparate (toWebGLRenderingContextBase self) - modeRGB - modeAlpha) - -foreign import javascript unsafe "$1[\"blendFunc\"]($2, $3)" - js_blendFunc :: - WebGLRenderingContextBase -> GLenum -> GLenum -> IO () - --- | -blendFunc :: - (MonadIO m, IsWebGLRenderingContextBase self) => - self -> GLenum -> GLenum -> m () -blendFunc self sfactor dfactor - = liftIO - (js_blendFunc (toWebGLRenderingContextBase self) sfactor dfactor) - -foreign import javascript unsafe - "$1[\"blendFuncSeparate\"]($2, $3,\n$4, $5)" js_blendFuncSeparate - :: - WebGLRenderingContextBase -> - GLenum -> GLenum -> GLenum -> GLenum -> IO () - --- | -blendFuncSeparate :: - (MonadIO m, IsWebGLRenderingContextBase self) => - self -> GLenum -> GLenum -> GLenum -> GLenum -> m () -blendFuncSeparate self srcRGB dstRGB srcAlpha dstAlpha - = liftIO - (js_blendFuncSeparate (toWebGLRenderingContextBase self) srcRGB - dstRGB - srcAlpha - dstAlpha) - -foreign import javascript unsafe "$1[\"bufferData\"]($2, $3, $4)" - js_bufferData :: - WebGLRenderingContextBase -> - GLenum -> Nullable ArrayBuffer -> GLenum -> IO () - --- | -bufferData :: - (MonadIO m, IsWebGLRenderingContextBase self, - IsArrayBuffer data') => - self -> GLenum -> Maybe data' -> GLenum -> m () -bufferData self target data' usage - = liftIO - (js_bufferData (toWebGLRenderingContextBase self) target - (maybeToNullable (fmap toArrayBuffer data')) - usage) - -foreign import javascript unsafe "$1[\"bufferData\"]($2, $3, $4)" - js_bufferDataView :: - WebGLRenderingContextBase -> - GLenum -> Nullable ArrayBufferView -> GLenum -> IO () - --- | -bufferDataView :: - (MonadIO m, IsWebGLRenderingContextBase self, - IsArrayBufferView data') => - self -> GLenum -> Maybe data' -> GLenum -> m () -bufferDataView self target data' usage - = liftIO - (js_bufferDataView (toWebGLRenderingContextBase self) target - (maybeToNullable (fmap toArrayBufferView data')) - usage) - -foreign import javascript unsafe "$1[\"bufferData\"]($2, $3, $4)" - js_bufferDataPtr :: - WebGLRenderingContextBase -> GLenum -> Double -> GLenum -> IO () - --- | -bufferDataPtr :: - (MonadIO m, IsWebGLRenderingContextBase self) => - self -> GLenum -> GLsizeiptr -> GLenum -> m () -bufferDataPtr self target size usage - = liftIO - (js_bufferDataPtr (toWebGLRenderingContextBase self) target - (fromIntegral size) - usage) - -foreign import javascript unsafe - "$1[\"bufferSubData\"]($2, $3, $4)" js_bufferSubData :: - WebGLRenderingContextBase -> - GLenum -> Double -> Nullable ArrayBuffer -> IO () - --- | -bufferSubData :: - (MonadIO m, IsWebGLRenderingContextBase self, - IsArrayBuffer data') => - self -> GLenum -> GLintptr -> Maybe data' -> m () -bufferSubData self target offset data' - = liftIO - (js_bufferSubData (toWebGLRenderingContextBase self) target - (fromIntegral offset) - (maybeToNullable (fmap toArrayBuffer data'))) - -foreign import javascript unsafe - "$1[\"bufferSubData\"]($2, $3, $4)" js_bufferSubDataView :: - WebGLRenderingContextBase -> - GLenum -> Double -> Nullable ArrayBufferView -> IO () - --- | -bufferSubDataView :: - (MonadIO m, IsWebGLRenderingContextBase self, - IsArrayBufferView data') => - self -> GLenum -> GLintptr -> Maybe data' -> m () -bufferSubDataView self target offset data' - = liftIO - (js_bufferSubDataView (toWebGLRenderingContextBase self) target - (fromIntegral offset) - (maybeToNullable (fmap toArrayBufferView data'))) - -foreign import javascript unsafe - "$1[\"checkFramebufferStatus\"]($2)" js_checkFramebufferStatus :: - WebGLRenderingContextBase -> GLenum -> IO GLenum - --- | -checkFramebufferStatus :: - (MonadIO m, IsWebGLRenderingContextBase self) => - self -> GLenum -> m GLenum -checkFramebufferStatus self target - = liftIO - (js_checkFramebufferStatus (toWebGLRenderingContextBase self) - target) - -foreign import javascript unsafe "$1[\"clear\"]($2)" js_clear :: - WebGLRenderingContextBase -> GLbitfield -> IO () - --- | -clear :: - (MonadIO m, IsWebGLRenderingContextBase self) => - self -> GLbitfield -> m () -clear self mask - = liftIO (js_clear (toWebGLRenderingContextBase self) mask) - -foreign import javascript unsafe - "$1[\"clearColor\"]($2, $3, $4, $5)" js_clearColor :: - WebGLRenderingContextBase -> - GLclampf -> GLclampf -> GLclampf -> GLclampf -> IO () - --- | -clearColor :: - (MonadIO m, IsWebGLRenderingContextBase self) => - self -> GLclampf -> GLclampf -> GLclampf -> GLclampf -> m () -clearColor self red green blue alpha - = liftIO - (js_clearColor (toWebGLRenderingContextBase self) red green blue - alpha) - -foreign import javascript unsafe "$1[\"clearDepth\"]($2)" - js_clearDepth :: WebGLRenderingContextBase -> GLclampf -> IO () - --- | -clearDepth :: - (MonadIO m, IsWebGLRenderingContextBase self) => - self -> GLclampf -> m () -clearDepth self depth - = liftIO (js_clearDepth (toWebGLRenderingContextBase self) depth) - -foreign import javascript unsafe "$1[\"clearStencil\"]($2)" - js_clearStencil :: WebGLRenderingContextBase -> GLint -> IO () - --- | -clearStencil :: - (MonadIO m, IsWebGLRenderingContextBase self) => - self -> GLint -> m () -clearStencil self s - = liftIO (js_clearStencil (toWebGLRenderingContextBase self) s) - -foreign import javascript unsafe - "$1[\"colorMask\"]($2, $3, $4, $5)" js_colorMask :: - WebGLRenderingContextBase -> - GLboolean -> GLboolean -> GLboolean -> GLboolean -> IO () - --- | -colorMask :: - (MonadIO m, IsWebGLRenderingContextBase self) => - self -> GLboolean -> GLboolean -> GLboolean -> GLboolean -> m () -colorMask self red green blue alpha - = liftIO - (js_colorMask (toWebGLRenderingContextBase self) red green blue - alpha) - -foreign import javascript unsafe "$1[\"compileShader\"]($2)" - js_compileShader :: - WebGLRenderingContextBase -> Nullable WebGLShader -> IO () - --- | -compileShader :: - (MonadIO m, IsWebGLRenderingContextBase self) => - self -> Maybe WebGLShader -> m () -compileShader self shader - = liftIO - (js_compileShader (toWebGLRenderingContextBase self) - (maybeToNullable shader)) - -foreign import javascript unsafe - "$1[\"compressedTexImage2D\"]($2,\n$3, $4, $5, $6, $7, $8)" - js_compressedTexImage2D :: - WebGLRenderingContextBase -> - GLenum -> - GLint -> - GLenum -> - GLsizei -> GLsizei -> GLint -> Nullable ArrayBufferView -> IO () - --- | -compressedTexImage2D :: - (MonadIO m, IsWebGLRenderingContextBase self, - IsArrayBufferView data') => - self -> - GLenum -> - GLint -> - GLenum -> GLsizei -> GLsizei -> GLint -> Maybe data' -> m () -compressedTexImage2D self target level internalformat width height - border data' - = liftIO - (js_compressedTexImage2D (toWebGLRenderingContextBase self) target - level - internalformat - width - height - border - (maybeToNullable (fmap toArrayBufferView data'))) - -foreign import javascript unsafe - "$1[\"compressedTexSubImage2D\"]($2,\n$3, $4, $5, $6, $7, $8, $9)" - js_compressedTexSubImage2D :: - WebGLRenderingContextBase -> - GLenum -> - GLint -> - GLint -> - GLint -> - GLsizei -> GLsizei -> GLenum -> Nullable ArrayBufferView -> IO () - --- | -compressedTexSubImage2D :: - (MonadIO m, IsWebGLRenderingContextBase self, - IsArrayBufferView data') => - self -> - GLenum -> - GLint -> - GLint -> - GLint -> GLsizei -> GLsizei -> GLenum -> Maybe data' -> m () -compressedTexSubImage2D self target level xoffset yoffset width - height format data' - = liftIO - (js_compressedTexSubImage2D (toWebGLRenderingContextBase self) - target - level - xoffset - yoffset - width - height - format - (maybeToNullable (fmap toArrayBufferView data'))) - -foreign import javascript unsafe - "$1[\"copyTexImage2D\"]($2, $3, $4,\n$5, $6, $7, $8, $9)" - js_copyTexImage2D :: - WebGLRenderingContextBase -> - GLenum -> - GLint -> - GLenum -> GLint -> GLint -> GLsizei -> GLsizei -> GLint -> IO () - --- | -copyTexImage2D :: - (MonadIO m, IsWebGLRenderingContextBase self) => - self -> - GLenum -> - GLint -> - GLenum -> GLint -> GLint -> GLsizei -> GLsizei -> GLint -> m () -copyTexImage2D self target level internalformat x y width height - border - = liftIO - (js_copyTexImage2D (toWebGLRenderingContextBase self) target level - internalformat - x - y - width - height - border) - -foreign import javascript unsafe - "$1[\"copyTexSubImage2D\"]($2, $3,\n$4, $5, $6, $7, $8, $9)" - js_copyTexSubImage2D :: - WebGLRenderingContextBase -> - GLenum -> - GLint -> - GLint -> GLint -> GLint -> GLint -> GLsizei -> GLsizei -> IO () - --- | -copyTexSubImage2D :: - (MonadIO m, IsWebGLRenderingContextBase self) => - self -> - GLenum -> - GLint -> - GLint -> GLint -> GLint -> GLint -> GLsizei -> GLsizei -> m () -copyTexSubImage2D self target level xoffset yoffset x y width - height - = liftIO - (js_copyTexSubImage2D (toWebGLRenderingContextBase self) target - level - xoffset - yoffset - x - y - width - height) - -foreign import javascript unsafe "$1[\"createBuffer\"]()" - js_createBuffer :: - WebGLRenderingContextBase -> IO (Nullable WebGLBuffer) - --- | -createBuffer :: - (MonadIO m, IsWebGLRenderingContextBase self) => - self -> m (Maybe WebGLBuffer) -createBuffer self - = liftIO - (nullableToMaybe <$> - (js_createBuffer (toWebGLRenderingContextBase self))) - -foreign import javascript unsafe "$1[\"createFramebuffer\"]()" - js_createFramebuffer :: - WebGLRenderingContextBase -> IO (Nullable WebGLFramebuffer) - --- | -createFramebuffer :: - (MonadIO m, IsWebGLRenderingContextBase self) => - self -> m (Maybe WebGLFramebuffer) -createFramebuffer self - = liftIO - (nullableToMaybe <$> - (js_createFramebuffer (toWebGLRenderingContextBase self))) - -foreign import javascript unsafe "$1[\"createProgram\"]()" - js_createProgram :: - WebGLRenderingContextBase -> IO (Nullable WebGLProgram) - --- | -createProgram :: - (MonadIO m, IsWebGLRenderingContextBase self) => - self -> m (Maybe WebGLProgram) -createProgram self - = liftIO - (nullableToMaybe <$> - (js_createProgram (toWebGLRenderingContextBase self))) - -foreign import javascript unsafe "$1[\"createRenderbuffer\"]()" - js_createRenderbuffer :: - WebGLRenderingContextBase -> IO (Nullable WebGLRenderbuffer) - --- | -createRenderbuffer :: - (MonadIO m, IsWebGLRenderingContextBase self) => - self -> m (Maybe WebGLRenderbuffer) -createRenderbuffer self - = liftIO - (nullableToMaybe <$> - (js_createRenderbuffer (toWebGLRenderingContextBase self))) - -foreign import javascript unsafe "$1[\"createShader\"]($2)" - js_createShader :: - WebGLRenderingContextBase -> GLenum -> IO (Nullable WebGLShader) - --- | -createShader :: - (MonadIO m, IsWebGLRenderingContextBase self) => - self -> GLenum -> m (Maybe WebGLShader) -createShader self type' - = liftIO - (nullableToMaybe <$> - (js_createShader (toWebGLRenderingContextBase self) type')) - -foreign import javascript unsafe "$1[\"createTexture\"]()" - js_createTexture :: - WebGLRenderingContextBase -> IO (Nullable WebGLTexture) - --- | -createTexture :: - (MonadIO m, IsWebGLRenderingContextBase self) => - self -> m (Maybe WebGLTexture) -createTexture self - = liftIO - (nullableToMaybe <$> - (js_createTexture (toWebGLRenderingContextBase self))) - -foreign import javascript unsafe "$1[\"cullFace\"]($2)" js_cullFace - :: WebGLRenderingContextBase -> GLenum -> IO () - --- | -cullFace :: - (MonadIO m, IsWebGLRenderingContextBase self) => - self -> GLenum -> m () -cullFace self mode - = liftIO (js_cullFace (toWebGLRenderingContextBase self) mode) - -foreign import javascript unsafe "$1[\"deleteBuffer\"]($2)" - js_deleteBuffer :: - WebGLRenderingContextBase -> Nullable WebGLBuffer -> IO () - --- | -deleteBuffer :: - (MonadIO m, IsWebGLRenderingContextBase self) => - self -> Maybe WebGLBuffer -> m () -deleteBuffer self buffer - = liftIO - (js_deleteBuffer (toWebGLRenderingContextBase self) - (maybeToNullable buffer)) - -foreign import javascript unsafe "$1[\"deleteFramebuffer\"]($2)" - js_deleteFramebuffer :: - WebGLRenderingContextBase -> Nullable WebGLFramebuffer -> IO () - --- | -deleteFramebuffer :: - (MonadIO m, IsWebGLRenderingContextBase self) => - self -> Maybe WebGLFramebuffer -> m () -deleteFramebuffer self framebuffer - = liftIO - (js_deleteFramebuffer (toWebGLRenderingContextBase self) - (maybeToNullable framebuffer)) - -foreign import javascript unsafe "$1[\"deleteProgram\"]($2)" - js_deleteProgram :: - WebGLRenderingContextBase -> Nullable WebGLProgram -> IO () - --- | -deleteProgram :: - (MonadIO m, IsWebGLRenderingContextBase self) => - self -> Maybe WebGLProgram -> m () -deleteProgram self program - = liftIO - (js_deleteProgram (toWebGLRenderingContextBase self) - (maybeToNullable program)) - -foreign import javascript unsafe "$1[\"deleteRenderbuffer\"]($2)" - js_deleteRenderbuffer :: - WebGLRenderingContextBase -> Nullable WebGLRenderbuffer -> IO () - --- | -deleteRenderbuffer :: - (MonadIO m, IsWebGLRenderingContextBase self) => - self -> Maybe WebGLRenderbuffer -> m () -deleteRenderbuffer self renderbuffer - = liftIO - (js_deleteRenderbuffer (toWebGLRenderingContextBase self) - (maybeToNullable renderbuffer)) - -foreign import javascript unsafe "$1[\"deleteShader\"]($2)" - js_deleteShader :: - WebGLRenderingContextBase -> Nullable WebGLShader -> IO () - --- | -deleteShader :: - (MonadIO m, IsWebGLRenderingContextBase self) => - self -> Maybe WebGLShader -> m () -deleteShader self shader - = liftIO - (js_deleteShader (toWebGLRenderingContextBase self) - (maybeToNullable shader)) - -foreign import javascript unsafe "$1[\"deleteTexture\"]($2)" - js_deleteTexture :: - WebGLRenderingContextBase -> Nullable WebGLTexture -> IO () - --- | -deleteTexture :: - (MonadIO m, IsWebGLRenderingContextBase self) => - self -> Maybe WebGLTexture -> m () -deleteTexture self texture - = liftIO - (js_deleteTexture (toWebGLRenderingContextBase self) - (maybeToNullable texture)) - -foreign import javascript unsafe "$1[\"depthFunc\"]($2)" - js_depthFunc :: WebGLRenderingContextBase -> GLenum -> IO () - --- | -depthFunc :: - (MonadIO m, IsWebGLRenderingContextBase self) => - self -> GLenum -> m () -depthFunc self func - = liftIO (js_depthFunc (toWebGLRenderingContextBase self) func) - -foreign import javascript unsafe "$1[\"depthMask\"]($2)" - js_depthMask :: WebGLRenderingContextBase -> GLboolean -> IO () - --- | -depthMask :: - (MonadIO m, IsWebGLRenderingContextBase self) => - self -> GLboolean -> m () -depthMask self flag - = liftIO (js_depthMask (toWebGLRenderingContextBase self) flag) - -foreign import javascript unsafe "$1[\"depthRange\"]($2, $3)" - js_depthRange :: - WebGLRenderingContextBase -> GLclampf -> GLclampf -> IO () - --- | -depthRange :: - (MonadIO m, IsWebGLRenderingContextBase self) => - self -> GLclampf -> GLclampf -> m () -depthRange self zNear zFar - = liftIO - (js_depthRange (toWebGLRenderingContextBase self) zNear zFar) - -foreign import javascript unsafe "$1[\"detachShader\"]($2, $3)" - js_detachShader :: - WebGLRenderingContextBase -> - Nullable WebGLProgram -> Nullable WebGLShader -> IO () - --- | -detachShader :: - (MonadIO m, IsWebGLRenderingContextBase self) => - self -> Maybe WebGLProgram -> Maybe WebGLShader -> m () -detachShader self program shader - = liftIO - (js_detachShader (toWebGLRenderingContextBase self) - (maybeToNullable program) - (maybeToNullable shader)) - -foreign import javascript unsafe "$1[\"disable\"]($2)" js_disable - :: WebGLRenderingContextBase -> GLenum -> IO () - --- | -disable :: - (MonadIO m, IsWebGLRenderingContextBase self) => - self -> GLenum -> m () -disable self cap - = liftIO (js_disable (toWebGLRenderingContextBase self) cap) - -foreign import javascript unsafe - "$1[\"disableVertexAttribArray\"]($2)" js_disableVertexAttribArray - :: WebGLRenderingContextBase -> GLuint -> IO () - --- | -disableVertexAttribArray :: - (MonadIO m, IsWebGLRenderingContextBase self) => - self -> GLuint -> m () -disableVertexAttribArray self index - = liftIO - (js_disableVertexAttribArray (toWebGLRenderingContextBase self) - index) - -foreign import javascript unsafe "$1[\"drawArrays\"]($2, $3, $4)" - js_drawArrays :: - WebGLRenderingContextBase -> GLenum -> GLint -> GLsizei -> IO () - --- | -drawArrays :: - (MonadIO m, IsWebGLRenderingContextBase self) => - self -> GLenum -> GLint -> GLsizei -> m () -drawArrays self mode first count - = liftIO - (js_drawArrays (toWebGLRenderingContextBase self) mode first count) - -foreign import javascript unsafe - "$1[\"drawElements\"]($2, $3, $4,\n$5)" js_drawElements :: - WebGLRenderingContextBase -> - GLenum -> GLsizei -> GLenum -> Double -> IO () - --- | -drawElements :: - (MonadIO m, IsWebGLRenderingContextBase self) => - self -> GLenum -> GLsizei -> GLenum -> GLintptr -> m () -drawElements self mode count type' offset - = liftIO - (js_drawElements (toWebGLRenderingContextBase self) mode count - type' - (fromIntegral offset)) - -foreign import javascript unsafe "$1[\"enable\"]($2)" js_enable :: - WebGLRenderingContextBase -> GLenum -> IO () - --- | -enable :: - (MonadIO m, IsWebGLRenderingContextBase self) => - self -> GLenum -> m () -enable self cap - = liftIO (js_enable (toWebGLRenderingContextBase self) cap) - -foreign import javascript unsafe - "$1[\"enableVertexAttribArray\"]($2)" js_enableVertexAttribArray :: - WebGLRenderingContextBase -> GLuint -> IO () - --- | -enableVertexAttribArray :: - (MonadIO m, IsWebGLRenderingContextBase self) => - self -> GLuint -> m () -enableVertexAttribArray self index - = liftIO - (js_enableVertexAttribArray (toWebGLRenderingContextBase self) - index) - -foreign import javascript unsafe "$1[\"finish\"]()" js_finish :: - WebGLRenderingContextBase -> IO () - --- | -finish :: - (MonadIO m, IsWebGLRenderingContextBase self) => self -> m () -finish self = liftIO (js_finish (toWebGLRenderingContextBase self)) - -foreign import javascript unsafe "$1[\"flush\"]()" js_flush :: - WebGLRenderingContextBase -> IO () - --- | -flush :: - (MonadIO m, IsWebGLRenderingContextBase self) => self -> m () -flush self = liftIO (js_flush (toWebGLRenderingContextBase self)) - -foreign import javascript unsafe - "$1[\"framebufferRenderbuffer\"]($2,\n$3, $4, $5)" - js_framebufferRenderbuffer :: - WebGLRenderingContextBase -> - GLenum -> GLenum -> GLenum -> Nullable WebGLRenderbuffer -> IO () - --- | -framebufferRenderbuffer :: - (MonadIO m, IsWebGLRenderingContextBase self) => - self -> - GLenum -> GLenum -> GLenum -> Maybe WebGLRenderbuffer -> m () -framebufferRenderbuffer self target attachment renderbuffertarget - renderbuffer - = liftIO - (js_framebufferRenderbuffer (toWebGLRenderingContextBase self) - target - attachment - renderbuffertarget - (maybeToNullable renderbuffer)) - -foreign import javascript unsafe - "$1[\"framebufferTexture2D\"]($2,\n$3, $4, $5, $6)" - js_framebufferTexture2D :: - WebGLRenderingContextBase -> - GLenum -> - GLenum -> GLenum -> Nullable WebGLTexture -> GLint -> IO () - --- | -framebufferTexture2D :: - (MonadIO m, IsWebGLRenderingContextBase self) => - self -> - GLenum -> GLenum -> GLenum -> Maybe WebGLTexture -> GLint -> m () -framebufferTexture2D self target attachment textarget texture level - = liftIO - (js_framebufferTexture2D (toWebGLRenderingContextBase self) target - attachment - textarget - (maybeToNullable texture) - level) - -foreign import javascript unsafe "$1[\"frontFace\"]($2)" - js_frontFace :: WebGLRenderingContextBase -> GLenum -> IO () - --- | -frontFace :: - (MonadIO m, IsWebGLRenderingContextBase self) => - self -> GLenum -> m () -frontFace self mode - = liftIO (js_frontFace (toWebGLRenderingContextBase self) mode) - -foreign import javascript unsafe "$1[\"generateMipmap\"]($2)" - js_generateMipmap :: WebGLRenderingContextBase -> GLenum -> IO () - --- | -generateMipmap :: - (MonadIO m, IsWebGLRenderingContextBase self) => - self -> GLenum -> m () -generateMipmap self target - = liftIO - (js_generateMipmap (toWebGLRenderingContextBase self) target) - -foreign import javascript unsafe "$1[\"getActiveAttrib\"]($2, $3)" - js_getActiveAttrib :: - WebGLRenderingContextBase -> - Nullable WebGLProgram -> GLuint -> IO (Nullable WebGLActiveInfo) - --- | -getActiveAttrib :: - (MonadIO m, IsWebGLRenderingContextBase self) => - self -> Maybe WebGLProgram -> GLuint -> m (Maybe WebGLActiveInfo) -getActiveAttrib self program index - = liftIO - (nullableToMaybe <$> - (js_getActiveAttrib (toWebGLRenderingContextBase self) - (maybeToNullable program) - index)) - -foreign import javascript unsafe "$1[\"getActiveUniform\"]($2, $3)" - js_getActiveUniform :: - WebGLRenderingContextBase -> - Nullable WebGLProgram -> GLuint -> IO (Nullable WebGLActiveInfo) - --- | -getActiveUniform :: - (MonadIO m, IsWebGLRenderingContextBase self) => - self -> Maybe WebGLProgram -> GLuint -> m (Maybe WebGLActiveInfo) -getActiveUniform self program index - = liftIO - (nullableToMaybe <$> - (js_getActiveUniform (toWebGLRenderingContextBase self) - (maybeToNullable program) - index)) - -foreign import javascript unsafe "$1[\"getAttachedShaders\"]($2)" - js_getAttachedShaders :: - WebGLRenderingContextBase -> Nullable WebGLProgram -> IO () - --- | -getAttachedShaders :: - (MonadIO m, IsWebGLRenderingContextBase self) => - self -> Maybe WebGLProgram -> m () -getAttachedShaders self program - = liftIO - (js_getAttachedShaders (toWebGLRenderingContextBase self) - (maybeToNullable program)) - -foreign import javascript unsafe - "$1[\"getAttribLocation\"]($2, $3)" js_getAttribLocation :: - WebGLRenderingContextBase -> - Nullable WebGLProgram -> JSString -> IO GLint - --- | -getAttribLocation :: - (MonadIO m, IsWebGLRenderingContextBase self, ToJSString name) => - self -> Maybe WebGLProgram -> name -> m GLint -getAttribLocation self program name - = liftIO - (js_getAttribLocation (toWebGLRenderingContextBase self) - (maybeToNullable program) - (toJSString name)) - -foreign import javascript unsafe - "$1[\"getBufferParameter\"]($2, $3)" js_getBufferParameter :: - WebGLRenderingContextBase -> GLenum -> GLenum -> IO JSVal - --- | -getBufferParameter :: - (MonadIO m, IsWebGLRenderingContextBase self) => - self -> GLenum -> GLenum -> m JSVal -getBufferParameter self target pname - = liftIO - (js_getBufferParameter (toWebGLRenderingContextBase self) target - pname) - -foreign import javascript unsafe "$1[\"getContextAttributes\"]()" - js_getContextAttributes :: - WebGLRenderingContextBase -> IO (Nullable WebGLContextAttributes) - --- | -getContextAttributes :: - (MonadIO m, IsWebGLRenderingContextBase self) => - self -> m (Maybe WebGLContextAttributes) -getContextAttributes self - = liftIO - (nullableToMaybe <$> - (js_getContextAttributes (toWebGLRenderingContextBase self))) - -foreign import javascript unsafe "$1[\"getError\"]()" js_getError - :: WebGLRenderingContextBase -> IO GLenum - --- | -getError :: - (MonadIO m, IsWebGLRenderingContextBase self) => self -> m GLenum -getError self - = liftIO (js_getError (toWebGLRenderingContextBase self)) - -foreign import javascript unsafe "$1[\"getExtension\"]($2)" - js_getExtension :: - WebGLRenderingContextBase -> JSString -> IO JSVal - --- | -getExtension :: - (MonadIO m, IsWebGLRenderingContextBase self, ToJSString name) => - self -> name -> m JSVal -getExtension self name - = liftIO - (js_getExtension (toWebGLRenderingContextBase self) - (toJSString name)) - -foreign import javascript unsafe - "$1[\"getFramebufferAttachmentParameter\"]($2,\n$3, $4)" - js_getFramebufferAttachmentParameter :: - WebGLRenderingContextBase -> GLenum -> GLenum -> GLenum -> IO JSVal - --- | -getFramebufferAttachmentParameter :: - (MonadIO m, IsWebGLRenderingContextBase self) => - self -> GLenum -> GLenum -> GLenum -> m JSVal -getFramebufferAttachmentParameter self target attachment pname - = liftIO - (js_getFramebufferAttachmentParameter - (toWebGLRenderingContextBase self) - target - attachment - pname) - -foreign import javascript unsafe "$1[\"getParameter\"]($2)" - js_getParameter :: WebGLRenderingContextBase -> GLenum -> IO JSVal - --- | -getParameter :: - (MonadIO m, IsWebGLRenderingContextBase self) => - self -> GLenum -> m JSVal -getParameter self pname - = liftIO (js_getParameter (toWebGLRenderingContextBase self) pname) - -foreign import javascript unsafe - "$1[\"getProgramParameter\"]($2,\n$3)" js_getProgramParameter :: - WebGLRenderingContextBase -> - Nullable WebGLProgram -> GLenum -> IO JSVal - --- | -getProgramParameter :: - (MonadIO m, IsWebGLRenderingContextBase self) => - self -> Maybe WebGLProgram -> GLenum -> m JSVal -getProgramParameter self program pname - = liftIO - (js_getProgramParameter (toWebGLRenderingContextBase self) - (maybeToNullable program) - pname) - -foreign import javascript unsafe "$1[\"getProgramInfoLog\"]($2)" - js_getProgramInfoLog :: - WebGLRenderingContextBase -> - Nullable WebGLProgram -> IO (Nullable JSString) - --- | -getProgramInfoLog :: - (MonadIO m, IsWebGLRenderingContextBase self, - FromJSString result) => - self -> Maybe WebGLProgram -> m (Maybe result) -getProgramInfoLog self program - = liftIO - (fromMaybeJSString <$> - (js_getProgramInfoLog (toWebGLRenderingContextBase self) - (maybeToNullable program))) - -foreign import javascript unsafe - "$1[\"getRenderbufferParameter\"]($2,\n$3)" - js_getRenderbufferParameter :: - WebGLRenderingContextBase -> GLenum -> GLenum -> IO JSVal - --- | -getRenderbufferParameter :: - (MonadIO m, IsWebGLRenderingContextBase self) => - self -> GLenum -> GLenum -> m JSVal -getRenderbufferParameter self target pname - = liftIO - (js_getRenderbufferParameter (toWebGLRenderingContextBase self) - target - pname) - -foreign import javascript unsafe - "$1[\"getShaderParameter\"]($2, $3)" js_getShaderParameter :: - WebGLRenderingContextBase -> - Nullable WebGLShader -> GLenum -> IO JSVal - --- | -getShaderParameter :: - (MonadIO m, IsWebGLRenderingContextBase self) => - self -> Maybe WebGLShader -> GLenum -> m JSVal -getShaderParameter self shader pname - = liftIO - (js_getShaderParameter (toWebGLRenderingContextBase self) - (maybeToNullable shader) - pname) - -foreign import javascript unsafe "$1[\"getShaderInfoLog\"]($2)" - js_getShaderInfoLog :: - WebGLRenderingContextBase -> - Nullable WebGLShader -> IO (Nullable JSString) - --- | -getShaderInfoLog :: - (MonadIO m, IsWebGLRenderingContextBase self, - FromJSString result) => - self -> Maybe WebGLShader -> m (Maybe result) -getShaderInfoLog self shader - = liftIO - (fromMaybeJSString <$> - (js_getShaderInfoLog (toWebGLRenderingContextBase self) - (maybeToNullable shader))) - -foreign import javascript unsafe - "$1[\"getShaderPrecisionFormat\"]($2,\n$3)" - js_getShaderPrecisionFormat :: - WebGLRenderingContextBase -> - GLenum -> GLenum -> IO (Nullable WebGLShaderPrecisionFormat) - --- | -getShaderPrecisionFormat :: - (MonadIO m, IsWebGLRenderingContextBase self) => - self -> GLenum -> GLenum -> m (Maybe WebGLShaderPrecisionFormat) -getShaderPrecisionFormat self shadertype precisiontype - = liftIO - (nullableToMaybe <$> - (js_getShaderPrecisionFormat (toWebGLRenderingContextBase self) - shadertype - precisiontype)) - -foreign import javascript unsafe "$1[\"getShaderSource\"]($2)" - js_getShaderSource :: - WebGLRenderingContextBase -> - Nullable WebGLShader -> IO (Nullable JSString) - --- | -getShaderSource :: - (MonadIO m, IsWebGLRenderingContextBase self, - FromJSString result) => - self -> Maybe WebGLShader -> m (Maybe result) -getShaderSource self shader - = liftIO - (fromMaybeJSString <$> - (js_getShaderSource (toWebGLRenderingContextBase self) - (maybeToNullable shader))) - -foreign import javascript unsafe "$1[\"getSupportedExtensions\"]()" - js_getSupportedExtensions :: WebGLRenderingContextBase -> IO JSVal - --- | -getSupportedExtensions :: - (MonadIO m, IsWebGLRenderingContextBase self, - FromJSString result) => - self -> m [result] -getSupportedExtensions self - = liftIO - ((js_getSupportedExtensions (toWebGLRenderingContextBase self)) >>= - fromJSValUnchecked) - -foreign import javascript unsafe "$1[\"getTexParameter\"]($2, $3)" - js_getTexParameter :: - WebGLRenderingContextBase -> GLenum -> GLenum -> IO JSVal - --- | -getTexParameter :: - (MonadIO m, IsWebGLRenderingContextBase self) => - self -> GLenum -> GLenum -> m JSVal -getTexParameter self target pname - = liftIO - (js_getTexParameter (toWebGLRenderingContextBase self) target - pname) - -foreign import javascript unsafe "$1[\"getUniform\"]($2, $3)" - js_getUniform :: - WebGLRenderingContextBase -> - Nullable WebGLProgram -> Nullable WebGLUniformLocation -> IO JSVal - --- | -getUniform :: - (MonadIO m, IsWebGLRenderingContextBase self) => - self -> Maybe WebGLProgram -> Maybe WebGLUniformLocation -> m JSVal -getUniform self program location - = liftIO - (js_getUniform (toWebGLRenderingContextBase self) - (maybeToNullable program) - (maybeToNullable location)) - -foreign import javascript unsafe - "$1[\"getUniformLocation\"]($2, $3)" js_getUniformLocation :: - WebGLRenderingContextBase -> - Nullable WebGLProgram -> - JSString -> IO (Nullable WebGLUniformLocation) - --- | -getUniformLocation :: - (MonadIO m, IsWebGLRenderingContextBase self, ToJSString name) => - self -> - Maybe WebGLProgram -> name -> m (Maybe WebGLUniformLocation) -getUniformLocation self program name - = liftIO - (nullableToMaybe <$> - (js_getUniformLocation (toWebGLRenderingContextBase self) - (maybeToNullable program) - (toJSString name))) - -foreign import javascript unsafe "$1[\"getVertexAttrib\"]($2, $3)" - js_getVertexAttrib :: - WebGLRenderingContextBase -> GLuint -> GLenum -> IO JSVal - --- | -getVertexAttrib :: - (MonadIO m, IsWebGLRenderingContextBase self) => - self -> GLuint -> GLenum -> m JSVal -getVertexAttrib self index pname - = liftIO - (js_getVertexAttrib (toWebGLRenderingContextBase self) index pname) - -foreign import javascript unsafe - "$1[\"getVertexAttribOffset\"]($2,\n$3)" js_getVertexAttribOffset - :: WebGLRenderingContextBase -> GLuint -> GLenum -> IO Double - --- | -getVertexAttribOffset :: - (MonadIO m, IsWebGLRenderingContextBase self) => - self -> GLuint -> GLenum -> m GLsizeiptr -getVertexAttribOffset self index pname - = liftIO - (round <$> - (js_getVertexAttribOffset (toWebGLRenderingContextBase self) index - pname)) - -foreign import javascript unsafe "$1[\"hint\"]($2, $3)" js_hint :: - WebGLRenderingContextBase -> GLenum -> GLenum -> IO () - --- | -hint :: - (MonadIO m, IsWebGLRenderingContextBase self) => - self -> GLenum -> GLenum -> m () -hint self target mode - = liftIO (js_hint (toWebGLRenderingContextBase self) target mode) - -foreign import javascript unsafe "$1[\"isBuffer\"]($2)" js_isBuffer - :: - WebGLRenderingContextBase -> Nullable WebGLBuffer -> IO GLboolean - --- | -isBuffer :: - (MonadIO m, IsWebGLRenderingContextBase self) => - self -> Maybe WebGLBuffer -> m GLboolean -isBuffer self buffer - = liftIO - (js_isBuffer (toWebGLRenderingContextBase self) - (maybeToNullable buffer)) - -foreign import javascript unsafe "$1[\"isContextLost\"]()" - js_isContextLost :: WebGLRenderingContextBase -> IO GLboolean - --- | -isContextLost :: - (MonadIO m, IsWebGLRenderingContextBase self) => - self -> m GLboolean -isContextLost self - = liftIO (js_isContextLost (toWebGLRenderingContextBase self)) - -foreign import javascript unsafe "$1[\"isEnabled\"]($2)" - js_isEnabled :: WebGLRenderingContextBase -> GLenum -> IO GLboolean - --- | -isEnabled :: - (MonadIO m, IsWebGLRenderingContextBase self) => - self -> GLenum -> m GLboolean -isEnabled self cap - = liftIO (js_isEnabled (toWebGLRenderingContextBase self) cap) - -foreign import javascript unsafe "$1[\"isFramebuffer\"]($2)" - js_isFramebuffer :: - WebGLRenderingContextBase -> - Nullable WebGLFramebuffer -> IO GLboolean - --- | -isFramebuffer :: - (MonadIO m, IsWebGLRenderingContextBase self) => - self -> Maybe WebGLFramebuffer -> m GLboolean -isFramebuffer self framebuffer - = liftIO - (js_isFramebuffer (toWebGLRenderingContextBase self) - (maybeToNullable framebuffer)) - -foreign import javascript unsafe "$1[\"isProgram\"]($2)" - js_isProgram :: - WebGLRenderingContextBase -> Nullable WebGLProgram -> IO GLboolean - --- | -isProgram :: - (MonadIO m, IsWebGLRenderingContextBase self) => - self -> Maybe WebGLProgram -> m GLboolean -isProgram self program - = liftIO - (js_isProgram (toWebGLRenderingContextBase self) - (maybeToNullable program)) - -foreign import javascript unsafe "$1[\"isRenderbuffer\"]($2)" - js_isRenderbuffer :: - WebGLRenderingContextBase -> - Nullable WebGLRenderbuffer -> IO GLboolean - --- | -isRenderbuffer :: - (MonadIO m, IsWebGLRenderingContextBase self) => - self -> Maybe WebGLRenderbuffer -> m GLboolean -isRenderbuffer self renderbuffer - = liftIO - (js_isRenderbuffer (toWebGLRenderingContextBase self) - (maybeToNullable renderbuffer)) - -foreign import javascript unsafe "$1[\"isShader\"]($2)" js_isShader - :: - WebGLRenderingContextBase -> Nullable WebGLShader -> IO GLboolean - --- | -isShader :: - (MonadIO m, IsWebGLRenderingContextBase self) => - self -> Maybe WebGLShader -> m GLboolean -isShader self shader - = liftIO - (js_isShader (toWebGLRenderingContextBase self) - (maybeToNullable shader)) - -foreign import javascript unsafe "$1[\"isTexture\"]($2)" - js_isTexture :: - WebGLRenderingContextBase -> Nullable WebGLTexture -> IO GLboolean - --- | -isTexture :: - (MonadIO m, IsWebGLRenderingContextBase self) => - self -> Maybe WebGLTexture -> m GLboolean -isTexture self texture - = liftIO - (js_isTexture (toWebGLRenderingContextBase self) - (maybeToNullable texture)) - -foreign import javascript unsafe "$1[\"lineWidth\"]($2)" - js_lineWidth :: WebGLRenderingContextBase -> GLfloat -> IO () - --- | -lineWidth :: - (MonadIO m, IsWebGLRenderingContextBase self) => - self -> GLfloat -> m () -lineWidth self width - = liftIO (js_lineWidth (toWebGLRenderingContextBase self) width) - -foreign import javascript unsafe "$1[\"linkProgram\"]($2)" - js_linkProgram :: - WebGLRenderingContextBase -> Nullable WebGLProgram -> IO () - --- | -linkProgram :: - (MonadIO m, IsWebGLRenderingContextBase self) => - self -> Maybe WebGLProgram -> m () -linkProgram self program - = liftIO - (js_linkProgram (toWebGLRenderingContextBase self) - (maybeToNullable program)) - -foreign import javascript unsafe "$1[\"pixelStorei\"]($2, $3)" - js_pixelStorei :: - WebGLRenderingContextBase -> GLenum -> GLint -> IO () - --- | -pixelStorei :: - (MonadIO m, IsWebGLRenderingContextBase self) => - self -> GLenum -> GLint -> m () -pixelStorei self pname param - = liftIO - (js_pixelStorei (toWebGLRenderingContextBase self) pname param) - -foreign import javascript unsafe "$1[\"polygonOffset\"]($2, $3)" - js_polygonOffset :: - WebGLRenderingContextBase -> GLfloat -> GLfloat -> IO () - --- | -polygonOffset :: - (MonadIO m, IsWebGLRenderingContextBase self) => - self -> GLfloat -> GLfloat -> m () -polygonOffset self factor units - = liftIO - (js_polygonOffset (toWebGLRenderingContextBase self) factor units) - -foreign import javascript unsafe - "$1[\"readPixels\"]($2, $3, $4, $5,\n$6, $7, $8)" js_readPixels :: - WebGLRenderingContextBase -> - GLint -> - GLint -> - GLsizei -> - GLsizei -> GLenum -> GLenum -> Nullable ArrayBufferView -> IO () - --- | -readPixels :: - (MonadIO m, IsWebGLRenderingContextBase self, - IsArrayBufferView pixels) => - self -> - GLint -> - GLint -> - GLsizei -> GLsizei -> GLenum -> GLenum -> Maybe pixels -> m () -readPixels self x y width height format type' pixels - = liftIO - (js_readPixels (toWebGLRenderingContextBase self) x y width height - format - type' - (maybeToNullable (fmap toArrayBufferView pixels))) - -foreign import javascript unsafe "$1[\"releaseShaderCompiler\"]()" - js_releaseShaderCompiler :: WebGLRenderingContextBase -> IO () - --- | -releaseShaderCompiler :: - (MonadIO m, IsWebGLRenderingContextBase self) => self -> m () -releaseShaderCompiler self - = liftIO - (js_releaseShaderCompiler (toWebGLRenderingContextBase self)) - -foreign import javascript unsafe - "$1[\"renderbufferStorage\"]($2,\n$3, $4, $5)" - js_renderbufferStorage :: - WebGLRenderingContextBase -> - GLenum -> GLenum -> GLsizei -> GLsizei -> IO () - --- | -renderbufferStorage :: - (MonadIO m, IsWebGLRenderingContextBase self) => - self -> GLenum -> GLenum -> GLsizei -> GLsizei -> m () -renderbufferStorage self target internalformat width height - = liftIO - (js_renderbufferStorage (toWebGLRenderingContextBase self) target - internalformat - width - height) - -foreign import javascript unsafe "$1[\"sampleCoverage\"]($2, $3)" - js_sampleCoverage :: - WebGLRenderingContextBase -> GLclampf -> GLboolean -> IO () - --- | -sampleCoverage :: - (MonadIO m, IsWebGLRenderingContextBase self) => - self -> GLclampf -> GLboolean -> m () -sampleCoverage self value invert - = liftIO - (js_sampleCoverage (toWebGLRenderingContextBase self) value invert) - -foreign import javascript unsafe "$1[\"scissor\"]($2, $3, $4, $5)" - js_scissor :: - WebGLRenderingContextBase -> - GLint -> GLint -> GLsizei -> GLsizei -> IO () - --- | -scissor :: - (MonadIO m, IsWebGLRenderingContextBase self) => - self -> GLint -> GLint -> GLsizei -> GLsizei -> m () -scissor self x y width height - = liftIO - (js_scissor (toWebGLRenderingContextBase self) x y width height) - -foreign import javascript unsafe "$1[\"shaderSource\"]($2, $3)" - js_shaderSource :: - WebGLRenderingContextBase -> - Nullable WebGLShader -> JSString -> IO () - --- | -shaderSource :: - (MonadIO m, IsWebGLRenderingContextBase self, ToJSString string) => - self -> Maybe WebGLShader -> string -> m () -shaderSource self shader string - = liftIO - (js_shaderSource (toWebGLRenderingContextBase self) - (maybeToNullable shader) - (toJSString string)) - -foreign import javascript unsafe "$1[\"stencilFunc\"]($2, $3, $4)" - js_stencilFunc :: - WebGLRenderingContextBase -> GLenum -> GLint -> GLuint -> IO () - --- | -stencilFunc :: - (MonadIO m, IsWebGLRenderingContextBase self) => - self -> GLenum -> GLint -> GLuint -> m () -stencilFunc self func ref mask - = liftIO - (js_stencilFunc (toWebGLRenderingContextBase self) func ref mask) - -foreign import javascript unsafe - "$1[\"stencilFuncSeparate\"]($2,\n$3, $4, $5)" - js_stencilFuncSeparate :: - WebGLRenderingContextBase -> - GLenum -> GLenum -> GLint -> GLuint -> IO () - --- | -stencilFuncSeparate :: - (MonadIO m, IsWebGLRenderingContextBase self) => - self -> GLenum -> GLenum -> GLint -> GLuint -> m () -stencilFuncSeparate self face func ref mask - = liftIO - (js_stencilFuncSeparate (toWebGLRenderingContextBase self) face - func - ref - mask) - -foreign import javascript unsafe "$1[\"stencilMask\"]($2)" - js_stencilMask :: WebGLRenderingContextBase -> GLuint -> IO () - --- | -stencilMask :: - (MonadIO m, IsWebGLRenderingContextBase self) => - self -> GLuint -> m () -stencilMask self mask - = liftIO (js_stencilMask (toWebGLRenderingContextBase self) mask) - -foreign import javascript unsafe - "$1[\"stencilMaskSeparate\"]($2,\n$3)" js_stencilMaskSeparate :: - WebGLRenderingContextBase -> GLenum -> GLuint -> IO () - --- | -stencilMaskSeparate :: - (MonadIO m, IsWebGLRenderingContextBase self) => - self -> GLenum -> GLuint -> m () -stencilMaskSeparate self face mask - = liftIO - (js_stencilMaskSeparate (toWebGLRenderingContextBase self) face - mask) - -foreign import javascript unsafe "$1[\"stencilOp\"]($2, $3, $4)" - js_stencilOp :: - WebGLRenderingContextBase -> GLenum -> GLenum -> GLenum -> IO () - --- | -stencilOp :: - (MonadIO m, IsWebGLRenderingContextBase self) => - self -> GLenum -> GLenum -> GLenum -> m () -stencilOp self fail zfail zpass - = liftIO - (js_stencilOp (toWebGLRenderingContextBase self) fail zfail zpass) - -foreign import javascript unsafe - "$1[\"stencilOpSeparate\"]($2, $3,\n$4, $5)" js_stencilOpSeparate - :: - WebGLRenderingContextBase -> - GLenum -> GLenum -> GLenum -> GLenum -> IO () - --- | -stencilOpSeparate :: - (MonadIO m, IsWebGLRenderingContextBase self) => - self -> GLenum -> GLenum -> GLenum -> GLenum -> m () -stencilOpSeparate self face fail zfail zpass - = liftIO - (js_stencilOpSeparate (toWebGLRenderingContextBase self) face fail - zfail - zpass) - -foreign import javascript unsafe - "$1[\"texParameterf\"]($2, $3, $4)" js_texParameterf :: - WebGLRenderingContextBase -> GLenum -> GLenum -> GLfloat -> IO () - --- | -texParameterf :: - (MonadIO m, IsWebGLRenderingContextBase self) => - self -> GLenum -> GLenum -> GLfloat -> m () -texParameterf self target pname param - = liftIO - (js_texParameterf (toWebGLRenderingContextBase self) target pname - param) - -foreign import javascript unsafe - "$1[\"texParameteri\"]($2, $3, $4)" js_texParameteri :: - WebGLRenderingContextBase -> GLenum -> GLenum -> GLint -> IO () - --- | -texParameteri :: - (MonadIO m, IsWebGLRenderingContextBase self) => - self -> GLenum -> GLenum -> GLint -> m () -texParameteri self target pname param - = liftIO - (js_texParameteri (toWebGLRenderingContextBase self) target pname - param) - -foreign import javascript unsafe - "$1[\"texImage2D\"]($2, $3, $4, $5,\n$6, $7, $8, $9, $10)" - js_texImage2DView :: - WebGLRenderingContextBase -> - GLenum -> - GLint -> - GLenum -> - GLsizei -> - GLsizei -> - GLint -> GLenum -> GLenum -> Nullable ArrayBufferView -> IO () - --- | -texImage2DView :: - (MonadIO m, IsWebGLRenderingContextBase self, - IsArrayBufferView pixels) => - self -> - GLenum -> - GLint -> - GLenum -> - GLsizei -> - GLsizei -> GLint -> GLenum -> GLenum -> Maybe pixels -> m () -texImage2DView self target level internalformat width height border - format type' pixels - = liftIO - (js_texImage2DView (toWebGLRenderingContextBase self) target level - internalformat - width - height - border - format - type' - (maybeToNullable (fmap toArrayBufferView pixels))) - -foreign import javascript unsafe - "$1[\"texImage2D\"]($2, $3, $4, $5,\n$6, $7)" js_texImage2DData :: - WebGLRenderingContextBase -> - GLenum -> - GLint -> GLenum -> GLenum -> GLenum -> Nullable ImageData -> IO () - --- | -texImage2DData :: - (MonadIO m, IsWebGLRenderingContextBase self) => - self -> - GLenum -> - GLint -> GLenum -> GLenum -> GLenum -> Maybe ImageData -> m () -texImage2DData self target level internalformat format type' pixels - = liftIO - (js_texImage2DData (toWebGLRenderingContextBase self) target level - internalformat - format - type' - (maybeToNullable pixels)) - -foreign import javascript unsafe - "$1[\"texImage2D\"]($2, $3, $4, $5,\n$6, $7)" js_texImage2D :: - WebGLRenderingContextBase -> - GLenum -> - GLint -> - GLenum -> GLenum -> GLenum -> Nullable HTMLImageElement -> IO () - --- | -texImage2D :: - (MonadIO m, IsWebGLRenderingContextBase self) => - self -> - GLenum -> - GLint -> - GLenum -> GLenum -> GLenum -> Maybe HTMLImageElement -> m () -texImage2D self target level internalformat format type' image - = liftIO - (js_texImage2D (toWebGLRenderingContextBase self) target level - internalformat - format - type' - (maybeToNullable image)) - -foreign import javascript unsafe - "$1[\"texImage2D\"]($2, $3, $4, $5,\n$6, $7)" js_texImage2DCanvas - :: - WebGLRenderingContextBase -> - GLenum -> - GLint -> - GLenum -> GLenum -> GLenum -> Nullable HTMLCanvasElement -> IO () - --- | -texImage2DCanvas :: - (MonadIO m, IsWebGLRenderingContextBase self) => - self -> - GLenum -> - GLint -> - GLenum -> GLenum -> GLenum -> Maybe HTMLCanvasElement -> m () -texImage2DCanvas self target level internalformat format type' - canvas - = liftIO - (js_texImage2DCanvas (toWebGLRenderingContextBase self) target - level - internalformat - format - type' - (maybeToNullable canvas)) - -foreign import javascript unsafe - "$1[\"texImage2D\"]($2, $3, $4, $5,\n$6, $7)" js_texImage2DVideo :: - WebGLRenderingContextBase -> - GLenum -> - GLint -> - GLenum -> GLenum -> GLenum -> Nullable HTMLVideoElement -> IO () - --- | -texImage2DVideo :: - (MonadIO m, IsWebGLRenderingContextBase self) => - self -> - GLenum -> - GLint -> - GLenum -> GLenum -> GLenum -> Maybe HTMLVideoElement -> m () -texImage2DVideo self target level internalformat format type' video - = liftIO - (js_texImage2DVideo (toWebGLRenderingContextBase self) target level - internalformat - format - type' - (maybeToNullable video)) - -foreign import javascript unsafe - "$1[\"texSubImage2D\"]($2, $3, $4,\n$5, $6, $7, $8, $9, $10)" - js_texSubImage2DView :: - WebGLRenderingContextBase -> - GLenum -> - GLint -> - GLint -> - GLint -> - GLsizei -> - GLsizei -> GLenum -> GLenum -> Nullable ArrayBufferView -> IO () - --- | -texSubImage2DView :: - (MonadIO m, IsWebGLRenderingContextBase self, - IsArrayBufferView pixels) => - self -> - GLenum -> - GLint -> - GLint -> - GLint -> - GLsizei -> GLsizei -> GLenum -> GLenum -> Maybe pixels -> m () -texSubImage2DView self target level xoffset yoffset width height - format type' pixels - = liftIO - (js_texSubImage2DView (toWebGLRenderingContextBase self) target - level - xoffset - yoffset - width - height - format - type' - (maybeToNullable (fmap toArrayBufferView pixels))) - -foreign import javascript unsafe - "$1[\"texSubImage2D\"]($2, $3, $4,\n$5, $6, $7, $8)" - js_texSubImage2DData :: - WebGLRenderingContextBase -> - GLenum -> - GLint -> - GLint -> GLint -> GLenum -> GLenum -> Nullable ImageData -> IO () - --- | -texSubImage2DData :: - (MonadIO m, IsWebGLRenderingContextBase self) => - self -> - GLenum -> - GLint -> - GLint -> GLint -> GLenum -> GLenum -> Maybe ImageData -> m () -texSubImage2DData self target level xoffset yoffset format type' - pixels - = liftIO - (js_texSubImage2DData (toWebGLRenderingContextBase self) target - level - xoffset - yoffset - format - type' - (maybeToNullable pixels)) - -foreign import javascript unsafe - "$1[\"texSubImage2D\"]($2, $3, $4,\n$5, $6, $7, $8)" - js_texSubImage2D :: - WebGLRenderingContextBase -> - GLenum -> - GLint -> - GLint -> - GLint -> GLenum -> GLenum -> Nullable HTMLImageElement -> IO () - --- | -texSubImage2D :: - (MonadIO m, IsWebGLRenderingContextBase self) => - self -> - GLenum -> - GLint -> - GLint -> - GLint -> GLenum -> GLenum -> Maybe HTMLImageElement -> m () -texSubImage2D self target level xoffset yoffset format type' image - = liftIO - (js_texSubImage2D (toWebGLRenderingContextBase self) target level - xoffset - yoffset - format - type' - (maybeToNullable image)) - -foreign import javascript unsafe - "$1[\"texSubImage2D\"]($2, $3, $4,\n$5, $6, $7, $8)" - js_texSubImage2DCanvas :: - WebGLRenderingContextBase -> - GLenum -> - GLint -> - GLint -> - GLint -> GLenum -> GLenum -> Nullable HTMLCanvasElement -> IO () - --- | -texSubImage2DCanvas :: - (MonadIO m, IsWebGLRenderingContextBase self) => - self -> - GLenum -> - GLint -> - GLint -> - GLint -> GLenum -> GLenum -> Maybe HTMLCanvasElement -> m () -texSubImage2DCanvas self target level xoffset yoffset format type' - canvas - = liftIO - (js_texSubImage2DCanvas (toWebGLRenderingContextBase self) target - level - xoffset - yoffset - format - type' - (maybeToNullable canvas)) - -foreign import javascript unsafe - "$1[\"texSubImage2D\"]($2, $3, $4,\n$5, $6, $7, $8)" - js_texSubImage2DVideo :: - WebGLRenderingContextBase -> - GLenum -> - GLint -> - GLint -> - GLint -> GLenum -> GLenum -> Nullable HTMLVideoElement -> IO () - --- | -texSubImage2DVideo :: - (MonadIO m, IsWebGLRenderingContextBase self) => - self -> - GLenum -> - GLint -> - GLint -> - GLint -> GLenum -> GLenum -> Maybe HTMLVideoElement -> m () -texSubImage2DVideo self target level xoffset yoffset format type' - video - = liftIO - (js_texSubImage2DVideo (toWebGLRenderingContextBase self) target - level - xoffset - yoffset - format - type' - (maybeToNullable video)) - -foreign import javascript unsafe "$1[\"uniform1f\"]($2, $3)" - js_uniform1f :: - WebGLRenderingContextBase -> - Nullable WebGLUniformLocation -> GLfloat -> IO () - --- | -uniform1f :: - (MonadIO m, IsWebGLRenderingContextBase self) => - self -> Maybe WebGLUniformLocation -> GLfloat -> m () -uniform1f self location x - = liftIO - (js_uniform1f (toWebGLRenderingContextBase self) - (maybeToNullable location) - x) - -foreign import javascript unsafe "$1[\"uniform1fv\"]($2, $3)" - js_uniform1fv :: - WebGLRenderingContextBase -> - Nullable WebGLUniformLocation -> Nullable Float32Array -> IO () - --- | -uniform1fv :: - (MonadIO m, IsWebGLRenderingContextBase self, IsFloat32Array v) => - self -> Maybe WebGLUniformLocation -> Maybe v -> m () -uniform1fv self location v - = liftIO - (js_uniform1fv (toWebGLRenderingContextBase self) - (maybeToNullable location) - (maybeToNullable (fmap toFloat32Array v))) - -foreign import javascript unsafe "$1[\"uniform1i\"]($2, $3)" - js_uniform1i :: - WebGLRenderingContextBase -> - Nullable WebGLUniformLocation -> GLint -> IO () - --- | -uniform1i :: - (MonadIO m, IsWebGLRenderingContextBase self) => - self -> Maybe WebGLUniformLocation -> GLint -> m () -uniform1i self location x - = liftIO - (js_uniform1i (toWebGLRenderingContextBase self) - (maybeToNullable location) - x) - -foreign import javascript unsafe "$1[\"uniform1iv\"]($2, $3)" - js_uniform1iv :: - WebGLRenderingContextBase -> - Nullable WebGLUniformLocation -> Nullable Int32Array -> IO () - --- | -uniform1iv :: - (MonadIO m, IsWebGLRenderingContextBase self, IsInt32Array v) => - self -> Maybe WebGLUniformLocation -> Maybe v -> m () -uniform1iv self location v - = liftIO - (js_uniform1iv (toWebGLRenderingContextBase self) - (maybeToNullable location) - (maybeToNullable (fmap toInt32Array v))) - -foreign import javascript unsafe "$1[\"uniform2f\"]($2, $3, $4)" - js_uniform2f :: - WebGLRenderingContextBase -> - Nullable WebGLUniformLocation -> GLfloat -> GLfloat -> IO () - --- | -uniform2f :: - (MonadIO m, IsWebGLRenderingContextBase self) => - self -> Maybe WebGLUniformLocation -> GLfloat -> GLfloat -> m () -uniform2f self location x y - = liftIO - (js_uniform2f (toWebGLRenderingContextBase self) - (maybeToNullable location) - x - y) - -foreign import javascript unsafe "$1[\"uniform2fv\"]($2, $3)" - js_uniform2fv :: - WebGLRenderingContextBase -> - Nullable WebGLUniformLocation -> Nullable Float32Array -> IO () - --- | -uniform2fv :: - (MonadIO m, IsWebGLRenderingContextBase self, IsFloat32Array v) => - self -> Maybe WebGLUniformLocation -> Maybe v -> m () -uniform2fv self location v - = liftIO - (js_uniform2fv (toWebGLRenderingContextBase self) - (maybeToNullable location) - (maybeToNullable (fmap toFloat32Array v))) - -foreign import javascript unsafe "$1[\"uniform2i\"]($2, $3, $4)" - js_uniform2i :: - WebGLRenderingContextBase -> - Nullable WebGLUniformLocation -> GLint -> GLint -> IO () - --- | -uniform2i :: - (MonadIO m, IsWebGLRenderingContextBase self) => - self -> Maybe WebGLUniformLocation -> GLint -> GLint -> m () -uniform2i self location x y - = liftIO - (js_uniform2i (toWebGLRenderingContextBase self) - (maybeToNullable location) - x - y) - -foreign import javascript unsafe "$1[\"uniform2iv\"]($2, $3)" - js_uniform2iv :: - WebGLRenderingContextBase -> - Nullable WebGLUniformLocation -> Nullable Int32Array -> IO () - --- | -uniform2iv :: - (MonadIO m, IsWebGLRenderingContextBase self, IsInt32Array v) => - self -> Maybe WebGLUniformLocation -> Maybe v -> m () -uniform2iv self location v - = liftIO - (js_uniform2iv (toWebGLRenderingContextBase self) - (maybeToNullable location) - (maybeToNullable (fmap toInt32Array v))) - -foreign import javascript unsafe - "$1[\"uniform3f\"]($2, $3, $4, $5)" js_uniform3f :: - WebGLRenderingContextBase -> - Nullable WebGLUniformLocation -> - GLfloat -> GLfloat -> GLfloat -> IO () - --- | -uniform3f :: - (MonadIO m, IsWebGLRenderingContextBase self) => - self -> - Maybe WebGLUniformLocation -> GLfloat -> GLfloat -> GLfloat -> m () -uniform3f self location x y z - = liftIO - (js_uniform3f (toWebGLRenderingContextBase self) - (maybeToNullable location) - x - y - z) - -foreign import javascript unsafe "$1[\"uniform3fv\"]($2, $3)" - js_uniform3fv :: - WebGLRenderingContextBase -> - Nullable WebGLUniformLocation -> Nullable Float32Array -> IO () - --- | -uniform3fv :: - (MonadIO m, IsWebGLRenderingContextBase self, IsFloat32Array v) => - self -> Maybe WebGLUniformLocation -> Maybe v -> m () -uniform3fv self location v - = liftIO - (js_uniform3fv (toWebGLRenderingContextBase self) - (maybeToNullable location) - (maybeToNullable (fmap toFloat32Array v))) - -foreign import javascript unsafe - "$1[\"uniform3i\"]($2, $3, $4, $5)" js_uniform3i :: - WebGLRenderingContextBase -> - Nullable WebGLUniformLocation -> GLint -> GLint -> GLint -> IO () - --- | -uniform3i :: - (MonadIO m, IsWebGLRenderingContextBase self) => - self -> - Maybe WebGLUniformLocation -> GLint -> GLint -> GLint -> m () -uniform3i self location x y z - = liftIO - (js_uniform3i (toWebGLRenderingContextBase self) - (maybeToNullable location) - x - y - z) - -foreign import javascript unsafe "$1[\"uniform3iv\"]($2, $3)" - js_uniform3iv :: - WebGLRenderingContextBase -> - Nullable WebGLUniformLocation -> Nullable Int32Array -> IO () - --- | -uniform3iv :: - (MonadIO m, IsWebGLRenderingContextBase self, IsInt32Array v) => - self -> Maybe WebGLUniformLocation -> Maybe v -> m () -uniform3iv self location v - = liftIO - (js_uniform3iv (toWebGLRenderingContextBase self) - (maybeToNullable location) - (maybeToNullable (fmap toInt32Array v))) - -foreign import javascript unsafe - "$1[\"uniform4f\"]($2, $3, $4, $5,\n$6)" js_uniform4f :: - WebGLRenderingContextBase -> - Nullable WebGLUniformLocation -> - GLfloat -> GLfloat -> GLfloat -> GLfloat -> IO () - --- | -uniform4f :: - (MonadIO m, IsWebGLRenderingContextBase self) => - self -> - Maybe WebGLUniformLocation -> - GLfloat -> GLfloat -> GLfloat -> GLfloat -> m () -uniform4f self location x y z w - = liftIO - (js_uniform4f (toWebGLRenderingContextBase self) - (maybeToNullable location) - x - y - z - w) - -foreign import javascript unsafe "$1[\"uniform4fv\"]($2, $3)" - js_uniform4fv :: - WebGLRenderingContextBase -> - Nullable WebGLUniformLocation -> Nullable Float32Array -> IO () - --- | -uniform4fv :: - (MonadIO m, IsWebGLRenderingContextBase self, IsFloat32Array v) => - self -> Maybe WebGLUniformLocation -> Maybe v -> m () -uniform4fv self location v - = liftIO - (js_uniform4fv (toWebGLRenderingContextBase self) - (maybeToNullable location) - (maybeToNullable (fmap toFloat32Array v))) - -foreign import javascript unsafe - "$1[\"uniform4i\"]($2, $3, $4, $5,\n$6)" js_uniform4i :: - WebGLRenderingContextBase -> - Nullable WebGLUniformLocation -> - GLint -> GLint -> GLint -> GLint -> IO () - --- | -uniform4i :: - (MonadIO m, IsWebGLRenderingContextBase self) => - self -> - Maybe WebGLUniformLocation -> - GLint -> GLint -> GLint -> GLint -> m () -uniform4i self location x y z w - = liftIO - (js_uniform4i (toWebGLRenderingContextBase self) - (maybeToNullable location) - x - y - z - w) - -foreign import javascript unsafe "$1[\"uniform4iv\"]($2, $3)" - js_uniform4iv :: - WebGLRenderingContextBase -> - Nullable WebGLUniformLocation -> Nullable Int32Array -> IO () - --- | -uniform4iv :: - (MonadIO m, IsWebGLRenderingContextBase self, IsInt32Array v) => - self -> Maybe WebGLUniformLocation -> Maybe v -> m () -uniform4iv self location v - = liftIO - (js_uniform4iv (toWebGLRenderingContextBase self) - (maybeToNullable location) - (maybeToNullable (fmap toInt32Array v))) - -foreign import javascript unsafe - "$1[\"uniformMatrix2fv\"]($2, $3,\n$4)" js_uniformMatrix2fv :: - WebGLRenderingContextBase -> - Nullable WebGLUniformLocation -> - GLboolean -> Nullable Float32Array -> IO () - --- | -uniformMatrix2fv :: - (MonadIO m, IsWebGLRenderingContextBase self, - IsFloat32Array array) => - self -> - Maybe WebGLUniformLocation -> GLboolean -> Maybe array -> m () -uniformMatrix2fv self location transpose array - = liftIO - (js_uniformMatrix2fv (toWebGLRenderingContextBase self) - (maybeToNullable location) - transpose - (maybeToNullable (fmap toFloat32Array array))) - -foreign import javascript unsafe - "$1[\"uniformMatrix3fv\"]($2, $3,\n$4)" js_uniformMatrix3fv :: - WebGLRenderingContextBase -> - Nullable WebGLUniformLocation -> - GLboolean -> Nullable Float32Array -> IO () - --- | -uniformMatrix3fv :: - (MonadIO m, IsWebGLRenderingContextBase self, - IsFloat32Array array) => - self -> - Maybe WebGLUniformLocation -> GLboolean -> Maybe array -> m () -uniformMatrix3fv self location transpose array - = liftIO - (js_uniformMatrix3fv (toWebGLRenderingContextBase self) - (maybeToNullable location) - transpose - (maybeToNullable (fmap toFloat32Array array))) - -foreign import javascript unsafe - "$1[\"uniformMatrix4fv\"]($2, $3,\n$4)" js_uniformMatrix4fv :: - WebGLRenderingContextBase -> - Nullable WebGLUniformLocation -> - GLboolean -> Nullable Float32Array -> IO () - --- | -uniformMatrix4fv :: - (MonadIO m, IsWebGLRenderingContextBase self, - IsFloat32Array array) => - self -> - Maybe WebGLUniformLocation -> GLboolean -> Maybe array -> m () -uniformMatrix4fv self location transpose array - = liftIO - (js_uniformMatrix4fv (toWebGLRenderingContextBase self) - (maybeToNullable location) - transpose - (maybeToNullable (fmap toFloat32Array array))) - -foreign import javascript unsafe "$1[\"useProgram\"]($2)" - js_useProgram :: - WebGLRenderingContextBase -> Nullable WebGLProgram -> IO () - --- | -useProgram :: - (MonadIO m, IsWebGLRenderingContextBase self) => - self -> Maybe WebGLProgram -> m () -useProgram self program - = liftIO - (js_useProgram (toWebGLRenderingContextBase self) - (maybeToNullable program)) - -foreign import javascript unsafe "$1[\"validateProgram\"]($2)" - js_validateProgram :: - WebGLRenderingContextBase -> Nullable WebGLProgram -> IO () - --- | -validateProgram :: - (MonadIO m, IsWebGLRenderingContextBase self) => - self -> Maybe WebGLProgram -> m () -validateProgram self program - = liftIO - (js_validateProgram (toWebGLRenderingContextBase self) - (maybeToNullable program)) - -foreign import javascript unsafe "$1[\"vertexAttrib1f\"]($2, $3)" - js_vertexAttrib1f :: - WebGLRenderingContextBase -> GLuint -> GLfloat -> IO () - --- | -vertexAttrib1f :: - (MonadIO m, IsWebGLRenderingContextBase self) => - self -> GLuint -> GLfloat -> m () -vertexAttrib1f self indx x - = liftIO - (js_vertexAttrib1f (toWebGLRenderingContextBase self) indx x) - -foreign import javascript unsafe "$1[\"vertexAttrib1fv\"]($2, $3)" - js_vertexAttrib1fv :: - WebGLRenderingContextBase -> - GLuint -> Nullable Float32Array -> IO () - --- | -vertexAttrib1fv :: - (MonadIO m, IsWebGLRenderingContextBase self, - IsFloat32Array values) => - self -> GLuint -> Maybe values -> m () -vertexAttrib1fv self indx values - = liftIO - (js_vertexAttrib1fv (toWebGLRenderingContextBase self) indx - (maybeToNullable (fmap toFloat32Array values))) - -foreign import javascript unsafe - "$1[\"vertexAttrib2f\"]($2, $3, $4)" js_vertexAttrib2f :: - WebGLRenderingContextBase -> GLuint -> GLfloat -> GLfloat -> IO () - --- | -vertexAttrib2f :: - (MonadIO m, IsWebGLRenderingContextBase self) => - self -> GLuint -> GLfloat -> GLfloat -> m () -vertexAttrib2f self indx x y - = liftIO - (js_vertexAttrib2f (toWebGLRenderingContextBase self) indx x y) - -foreign import javascript unsafe "$1[\"vertexAttrib2fv\"]($2, $3)" - js_vertexAttrib2fv :: - WebGLRenderingContextBase -> - GLuint -> Nullable Float32Array -> IO () - --- | -vertexAttrib2fv :: - (MonadIO m, IsWebGLRenderingContextBase self, - IsFloat32Array values) => - self -> GLuint -> Maybe values -> m () -vertexAttrib2fv self indx values - = liftIO - (js_vertexAttrib2fv (toWebGLRenderingContextBase self) indx - (maybeToNullable (fmap toFloat32Array values))) - -foreign import javascript unsafe - "$1[\"vertexAttrib3f\"]($2, $3, $4,\n$5)" js_vertexAttrib3f :: - WebGLRenderingContextBase -> - GLuint -> GLfloat -> GLfloat -> GLfloat -> IO () - --- | -vertexAttrib3f :: - (MonadIO m, IsWebGLRenderingContextBase self) => - self -> GLuint -> GLfloat -> GLfloat -> GLfloat -> m () -vertexAttrib3f self indx x y z - = liftIO - (js_vertexAttrib3f (toWebGLRenderingContextBase self) indx x y z) - -foreign import javascript unsafe "$1[\"vertexAttrib3fv\"]($2, $3)" - js_vertexAttrib3fv :: - WebGLRenderingContextBase -> - GLuint -> Nullable Float32Array -> IO () - --- | -vertexAttrib3fv :: - (MonadIO m, IsWebGLRenderingContextBase self, - IsFloat32Array values) => - self -> GLuint -> Maybe values -> m () -vertexAttrib3fv self indx values - = liftIO - (js_vertexAttrib3fv (toWebGLRenderingContextBase self) indx - (maybeToNullable (fmap toFloat32Array values))) - -foreign import javascript unsafe - "$1[\"vertexAttrib4f\"]($2, $3, $4,\n$5, $6)" js_vertexAttrib4f :: - WebGLRenderingContextBase -> - GLuint -> GLfloat -> GLfloat -> GLfloat -> GLfloat -> IO () - --- | -vertexAttrib4f :: - (MonadIO m, IsWebGLRenderingContextBase self) => - self -> GLuint -> GLfloat -> GLfloat -> GLfloat -> GLfloat -> m () -vertexAttrib4f self indx x y z w - = liftIO - (js_vertexAttrib4f (toWebGLRenderingContextBase self) indx x y z w) - -foreign import javascript unsafe "$1[\"vertexAttrib4fv\"]($2, $3)" - js_vertexAttrib4fv :: - WebGLRenderingContextBase -> - GLuint -> Nullable Float32Array -> IO () - --- | -vertexAttrib4fv :: - (MonadIO m, IsWebGLRenderingContextBase self, - IsFloat32Array values) => - self -> GLuint -> Maybe values -> m () -vertexAttrib4fv self indx values - = liftIO - (js_vertexAttrib4fv (toWebGLRenderingContextBase self) indx - (maybeToNullable (fmap toFloat32Array values))) - -foreign import javascript unsafe - "$1[\"vertexAttribPointer\"]($2,\n$3, $4, $5, $6, $7)" - js_vertexAttribPointer :: - WebGLRenderingContextBase -> - GLuint -> - GLint -> GLenum -> GLboolean -> GLsizei -> Double -> IO () - --- | -vertexAttribPointer :: - (MonadIO m, IsWebGLRenderingContextBase self) => - self -> - GLuint -> - GLint -> GLenum -> GLboolean -> GLsizei -> GLintptr -> m () -vertexAttribPointer self indx size type' normalized stride offset - = liftIO - (js_vertexAttribPointer (toWebGLRenderingContextBase self) indx - size - type' - normalized - stride - (fromIntegral offset)) - -foreign import javascript unsafe "$1[\"viewport\"]($2, $3, $4, $5)" - js_viewport :: - WebGLRenderingContextBase -> - GLint -> GLint -> GLsizei -> GLsizei -> IO () - --- | -viewport :: - (MonadIO m, IsWebGLRenderingContextBase self) => - self -> GLint -> GLint -> GLsizei -> GLsizei -> m () -viewport self x y width height - = liftIO - (js_viewport (toWebGLRenderingContextBase self) x y width height) -pattern DEPTH_BUFFER_BIT = 256 -pattern STENCIL_BUFFER_BIT = 1024 -pattern COLOR_BUFFER_BIT = 16384 -pattern POINTS = 0 -pattern LINES = 1 -pattern LINE_LOOP = 2 -pattern LINE_STRIP = 3 -pattern TRIANGLES = 4 -pattern TRIANGLE_STRIP = 5 -pattern TRIANGLE_FAN = 6 -pattern ZERO = 0 -pattern ONE = 1 -pattern SRC_COLOR = 768 -pattern ONE_MINUS_SRC_COLOR = 769 -pattern SRC_ALPHA = 770 -pattern ONE_MINUS_SRC_ALPHA = 771 -pattern DST_ALPHA = 772 -pattern ONE_MINUS_DST_ALPHA = 773 -pattern DST_COLOR = 774 -pattern ONE_MINUS_DST_COLOR = 775 -pattern SRC_ALPHA_SATURATE = 776 -pattern FUNC_ADD = 32774 -pattern BLEND_EQUATION = 32777 -pattern BLEND_EQUATION_RGB = 32777 -pattern BLEND_EQUATION_ALPHA = 34877 -pattern FUNC_SUBTRACT = 32778 -pattern FUNC_REVERSE_SUBTRACT = 32779 -pattern BLEND_DST_RGB = 32968 -pattern BLEND_SRC_RGB = 32969 -pattern BLEND_DST_ALPHA = 32970 -pattern BLEND_SRC_ALPHA = 32971 -pattern CONSTANT_COLOR = 32769 -pattern ONE_MINUS_CONSTANT_COLOR = 32770 -pattern CONSTANT_ALPHA = 32771 -pattern ONE_MINUS_CONSTANT_ALPHA = 32772 -pattern BLEND_COLOR = 32773 -pattern ARRAY_BUFFER = 34962 -pattern ELEMENT_ARRAY_BUFFER = 34963 -pattern ARRAY_BUFFER_BINDING = 34964 -pattern ELEMENT_ARRAY_BUFFER_BINDING = 34965 -pattern STREAM_DRAW = 35040 -pattern STATIC_DRAW = 35044 -pattern DYNAMIC_DRAW = 35048 -pattern BUFFER_SIZE = 34660 -pattern BUFFER_USAGE = 34661 -pattern CURRENT_VERTEX_ATTRIB = 34342 -pattern FRONT = 1028 -pattern BACK = 1029 -pattern FRONT_AND_BACK = 1032 -pattern TEXTURE_2D = 3553 -pattern CULL_FACE = 2884 -pattern BLEND = 3042 -pattern DITHER = 3024 -pattern STENCIL_TEST = 2960 -pattern DEPTH_TEST = 2929 -pattern SCISSOR_TEST = 3089 -pattern POLYGON_OFFSET_FILL = 32823 -pattern SAMPLE_ALPHA_TO_COVERAGE = 32926 -pattern SAMPLE_COVERAGE = 32928 -pattern NO_ERROR = 0 -pattern INVALID_ENUM = 1280 -pattern INVALID_VALUE = 1281 -pattern INVALID_OPERATION = 1282 -pattern OUT_OF_MEMORY = 1285 -pattern CW = 2304 -pattern CCW = 2305 -pattern LINE_WIDTH = 2849 -pattern ALIASED_POINT_SIZE_RANGE = 33901 -pattern ALIASED_LINE_WIDTH_RANGE = 33902 -pattern CULL_FACE_MODE = 2885 -pattern FRONT_FACE = 2886 -pattern DEPTH_RANGE = 2928 -pattern DEPTH_WRITEMASK = 2930 -pattern DEPTH_CLEAR_VALUE = 2931 -pattern DEPTH_FUNC = 2932 -pattern STENCIL_CLEAR_VALUE = 2961 -pattern STENCIL_FUNC = 2962 -pattern STENCIL_FAIL = 2964 -pattern STENCIL_PASS_DEPTH_FAIL = 2965 -pattern STENCIL_PASS_DEPTH_PASS = 2966 -pattern STENCIL_REF = 2967 -pattern STENCIL_VALUE_MASK = 2963 -pattern STENCIL_WRITEMASK = 2968 -pattern STENCIL_BACK_FUNC = 34816 -pattern STENCIL_BACK_FAIL = 34817 -pattern STENCIL_BACK_PASS_DEPTH_FAIL = 34818 -pattern STENCIL_BACK_PASS_DEPTH_PASS = 34819 -pattern STENCIL_BACK_REF = 36003 -pattern STENCIL_BACK_VALUE_MASK = 36004 -pattern STENCIL_BACK_WRITEMASK = 36005 -pattern VIEWPORT = 2978 -pattern SCISSOR_BOX = 3088 -pattern COLOR_CLEAR_VALUE = 3106 -pattern COLOR_WRITEMASK = 3107 -pattern UNPACK_ALIGNMENT = 3317 -pattern PACK_ALIGNMENT = 3333 -pattern MAX_TEXTURE_SIZE = 3379 -pattern MAX_VIEWPORT_DIMS = 3386 -pattern SUBPIXEL_BITS = 3408 -pattern RED_BITS = 3410 -pattern GREEN_BITS = 3411 -pattern BLUE_BITS = 3412 -pattern ALPHA_BITS = 3413 -pattern DEPTH_BITS = 3414 -pattern STENCIL_BITS = 3415 -pattern POLYGON_OFFSET_UNITS = 10752 -pattern POLYGON_OFFSET_FACTOR = 32824 -pattern TEXTURE_BINDING_2D = 32873 -pattern SAMPLE_BUFFERS = 32936 -pattern SAMPLES = 32937 -pattern SAMPLE_COVERAGE_VALUE = 32938 -pattern SAMPLE_COVERAGE_INVERT = 32939 -pattern COMPRESSED_TEXTURE_FORMATS = 34467 -pattern DONT_CARE = 4352 -pattern FASTEST = 4353 -pattern NICEST = 4354 -pattern GENERATE_MIPMAP_HINT = 33170 -pattern BYTE = 5120 -pattern UNSIGNED_BYTE = 5121 -pattern SHORT = 5122 -pattern UNSIGNED_SHORT = 5123 -pattern INT = 5124 -pattern UNSIGNED_INT = 5125 -pattern FLOAT = 5126 -pattern DEPTH_COMPONENT = 6402 -pattern ALPHA = 6406 -pattern RGB = 6407 -pattern RGBA = 6408 -pattern LUMINANCE = 6409 -pattern LUMINANCE_ALPHA = 6410 -pattern UNSIGNED_SHORT_4_4_4_4 = 32819 -pattern UNSIGNED_SHORT_5_5_5_1 = 32820 -pattern UNSIGNED_SHORT_5_6_5 = 33635 -pattern FRAGMENT_SHADER = 35632 -pattern VERTEX_SHADER = 35633 -pattern MAX_VERTEX_ATTRIBS = 34921 -pattern MAX_VERTEX_UNIFORM_VECTORS = 36347 -pattern MAX_VARYING_VECTORS = 36348 -pattern MAX_COMBINED_TEXTURE_IMAGE_UNITS = 35661 -pattern MAX_VERTEX_TEXTURE_IMAGE_UNITS = 35660 -pattern MAX_TEXTURE_IMAGE_UNITS = 34930 -pattern MAX_FRAGMENT_UNIFORM_VECTORS = 36349 -pattern SHADER_TYPE = 35663 -pattern DELETE_STATUS = 35712 -pattern LINK_STATUS = 35714 -pattern VALIDATE_STATUS = 35715 -pattern ATTACHED_SHADERS = 35717 -pattern ACTIVE_UNIFORMS = 35718 -pattern ACTIVE_ATTRIBUTES = 35721 -pattern SHADING_LANGUAGE_VERSION = 35724 -pattern CURRENT_PROGRAM = 35725 -pattern NEVER = 512 -pattern LESS = 513 -pattern EQUAL = 514 -pattern LEQUAL = 515 -pattern GREATER = 516 -pattern NOTEQUAL = 517 -pattern GEQUAL = 518 -pattern ALWAYS = 519 -pattern KEEP = 7680 -pattern REPLACE = 7681 -pattern INCR = 7682 -pattern DECR = 7683 -pattern INVERT = 5386 -pattern INCR_WRAP = 34055 -pattern DECR_WRAP = 34056 -pattern VENDOR = 7936 -pattern RENDERER = 7937 -pattern VERSION = 7938 -pattern NEAREST = 9728 -pattern LINEAR = 9729 -pattern NEAREST_MIPMAP_NEAREST = 9984 -pattern LINEAR_MIPMAP_NEAREST = 9985 -pattern NEAREST_MIPMAP_LINEAR = 9986 -pattern LINEAR_MIPMAP_LINEAR = 9987 -pattern TEXTURE_MAG_FILTER = 10240 -pattern TEXTURE_MIN_FILTER = 10241 -pattern TEXTURE_WRAP_S = 10242 -pattern TEXTURE_WRAP_T = 10243 -pattern TEXTURE = 5890 -pattern TEXTURE_CUBE_MAP = 34067 -pattern TEXTURE_BINDING_CUBE_MAP = 34068 -pattern TEXTURE_CUBE_MAP_POSITIVE_X = 34069 -pattern TEXTURE_CUBE_MAP_NEGATIVE_X = 34070 -pattern TEXTURE_CUBE_MAP_POSITIVE_Y = 34071 -pattern TEXTURE_CUBE_MAP_NEGATIVE_Y = 34072 -pattern TEXTURE_CUBE_MAP_POSITIVE_Z = 34073 -pattern TEXTURE_CUBE_MAP_NEGATIVE_Z = 34074 -pattern MAX_CUBE_MAP_TEXTURE_SIZE = 34076 -pattern TEXTURE0 = 33984 -pattern TEXTURE1 = 33985 -pattern TEXTURE2 = 33986 -pattern TEXTURE3 = 33987 -pattern TEXTURE4 = 33988 -pattern TEXTURE5 = 33989 -pattern TEXTURE6 = 33990 -pattern TEXTURE7 = 33991 -pattern TEXTURE8 = 33992 -pattern TEXTURE9 = 33993 -pattern TEXTURE10 = 33994 -pattern TEXTURE11 = 33995 -pattern TEXTURE12 = 33996 -pattern TEXTURE13 = 33997 -pattern TEXTURE14 = 33998 -pattern TEXTURE15 = 33999 -pattern TEXTURE16 = 34000 -pattern TEXTURE17 = 34001 -pattern TEXTURE18 = 34002 -pattern TEXTURE19 = 34003 -pattern TEXTURE20 = 34004 -pattern TEXTURE21 = 34005 -pattern TEXTURE22 = 34006 -pattern TEXTURE23 = 34007 -pattern TEXTURE24 = 34008 -pattern TEXTURE25 = 34009 -pattern TEXTURE26 = 34010 -pattern TEXTURE27 = 34011 -pattern TEXTURE28 = 34012 -pattern TEXTURE29 = 34013 -pattern TEXTURE30 = 34014 -pattern TEXTURE31 = 34015 -pattern ACTIVE_TEXTURE = 34016 -pattern REPEAT = 10497 -pattern CLAMP_TO_EDGE = 33071 -pattern MIRRORED_REPEAT = 33648 -pattern FLOAT_VEC2 = 35664 -pattern FLOAT_VEC3 = 35665 -pattern FLOAT_VEC4 = 35666 -pattern INT_VEC2 = 35667 -pattern INT_VEC3 = 35668 -pattern INT_VEC4 = 35669 -pattern BOOL = 35670 -pattern BOOL_VEC2 = 35671 -pattern BOOL_VEC3 = 35672 -pattern BOOL_VEC4 = 35673 -pattern FLOAT_MAT2 = 35674 -pattern FLOAT_MAT3 = 35675 -pattern FLOAT_MAT4 = 35676 -pattern SAMPLER_2D = 35678 -pattern SAMPLER_CUBE = 35680 -pattern VERTEX_ATTRIB_ARRAY_ENABLED = 34338 -pattern VERTEX_ATTRIB_ARRAY_SIZE = 34339 -pattern VERTEX_ATTRIB_ARRAY_STRIDE = 34340 -pattern VERTEX_ATTRIB_ARRAY_TYPE = 34341 -pattern VERTEX_ATTRIB_ARRAY_NORMALIZED = 34922 -pattern VERTEX_ATTRIB_ARRAY_POINTER = 34373 -pattern VERTEX_ATTRIB_ARRAY_BUFFER_BINDING = 34975 -pattern IMPLEMENTATION_COLOR_READ_TYPE = 35738 -pattern IMPLEMENTATION_COLOR_READ_FORMAT = 35739 -pattern COMPILE_STATUS = 35713 -pattern LOW_FLOAT = 36336 -pattern MEDIUM_FLOAT = 36337 -pattern HIGH_FLOAT = 36338 -pattern LOW_INT = 36339 -pattern MEDIUM_INT = 36340 -pattern HIGH_INT = 36341 -pattern FRAMEBUFFER = 36160 -pattern RENDERBUFFER = 36161 -pattern RGBA4 = 32854 -pattern RGB5_A1 = 32855 -pattern RGB565 = 36194 -pattern DEPTH_COMPONENT16 = 33189 -pattern STENCIL_INDEX = 6401 -pattern STENCIL_INDEX8 = 36168 -pattern DEPTH_STENCIL = 34041 -pattern RENDERBUFFER_WIDTH = 36162 -pattern RENDERBUFFER_HEIGHT = 36163 -pattern RENDERBUFFER_INTERNAL_FORMAT = 36164 -pattern RENDERBUFFER_RED_SIZE = 36176 -pattern RENDERBUFFER_GREEN_SIZE = 36177 -pattern RENDERBUFFER_BLUE_SIZE = 36178 -pattern RENDERBUFFER_ALPHA_SIZE = 36179 -pattern RENDERBUFFER_DEPTH_SIZE = 36180 -pattern RENDERBUFFER_STENCIL_SIZE = 36181 -pattern FRAMEBUFFER_ATTACHMENT_OBJECT_TYPE = 36048 -pattern FRAMEBUFFER_ATTACHMENT_OBJECT_NAME = 36049 -pattern FRAMEBUFFER_ATTACHMENT_TEXTURE_LEVEL = 36050 -pattern FRAMEBUFFER_ATTACHMENT_TEXTURE_CUBE_MAP_FACE = 36051 -pattern COLOR_ATTACHMENT0 = 36064 -pattern DEPTH_ATTACHMENT = 36096 -pattern STENCIL_ATTACHMENT = 36128 -pattern DEPTH_STENCIL_ATTACHMENT = 33306 -pattern NONE = 0 -pattern FRAMEBUFFER_COMPLETE = 36053 -pattern FRAMEBUFFER_INCOMPLETE_ATTACHMENT = 36054 -pattern FRAMEBUFFER_INCOMPLETE_MISSING_ATTACHMENT = 36055 -pattern FRAMEBUFFER_INCOMPLETE_DIMENSIONS = 36057 -pattern FRAMEBUFFER_UNSUPPORTED = 36061 -pattern FRAMEBUFFER_BINDING = 36006 -pattern RENDERBUFFER_BINDING = 36007 -pattern MAX_RENDERBUFFER_SIZE = 34024 -pattern INVALID_FRAMEBUFFER_OPERATION = 1286 -pattern UNPACK_FLIP_Y_WEBGL = 37440 -pattern UNPACK_PREMULTIPLY_ALPHA_WEBGL = 37441 -pattern CONTEXT_LOST_WEBGL = 37442 -pattern UNPACK_COLORSPACE_CONVERSION_WEBGL = 37443 -pattern BROWSER_DEFAULT_WEBGL = 37444 - -foreign import javascript unsafe "$1[\"drawingBufferWidth\"]" - js_getDrawingBufferWidth :: WebGLRenderingContextBase -> IO GLsizei - --- | -getDrawingBufferWidth :: - (MonadIO m, IsWebGLRenderingContextBase self) => self -> m GLsizei -getDrawingBufferWidth self - = liftIO - (js_getDrawingBufferWidth (toWebGLRenderingContextBase self)) - -foreign import javascript unsafe "$1[\"drawingBufferHeight\"]" - js_getDrawingBufferHeight :: - WebGLRenderingContextBase -> IO GLsizei - --- | -getDrawingBufferHeight :: - (MonadIO m, IsWebGLRenderingContextBase self) => self -> m GLsizei -getDrawingBufferHeight self - = liftIO - (js_getDrawingBufferHeight (toWebGLRenderingContextBase self)) diff --git a/src/GHCJS/DOM/JSFFI/Generated/WebGLShaderPrecisionFormat.hs b/src/GHCJS/DOM/JSFFI/Generated/WebGLShaderPrecisionFormat.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/WebGLShaderPrecisionFormat.hs +++ /dev/null @@ -1,41 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.WebGLShaderPrecisionFormat - (js_getRangeMin, getRangeMin, js_getRangeMax, getRangeMax, - js_getPrecision, getPrecision, WebGLShaderPrecisionFormat, - castToWebGLShaderPrecisionFormat, gTypeWebGLShaderPrecisionFormat) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"rangeMin\"]" js_getRangeMin - :: WebGLShaderPrecisionFormat -> IO Int - --- | -getRangeMin :: (MonadIO m) => WebGLShaderPrecisionFormat -> m Int -getRangeMin self = liftIO (js_getRangeMin (self)) - -foreign import javascript unsafe "$1[\"rangeMax\"]" js_getRangeMax - :: WebGLShaderPrecisionFormat -> IO Int - --- | -getRangeMax :: (MonadIO m) => WebGLShaderPrecisionFormat -> m Int -getRangeMax self = liftIO (js_getRangeMax (self)) - -foreign import javascript unsafe "$1[\"precision\"]" - js_getPrecision :: WebGLShaderPrecisionFormat -> IO Int - --- | -getPrecision :: (MonadIO m) => WebGLShaderPrecisionFormat -> m Int -getPrecision self = liftIO (js_getPrecision (self)) diff --git a/src/GHCJS/DOM/JSFFI/Generated/WebKitAnimationEvent.hs b/src/GHCJS/DOM/JSFFI/Generated/WebKitAnimationEvent.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/WebKitAnimationEvent.hs +++ /dev/null @@ -1,37 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.WebKitAnimationEvent - (js_getAnimationName, getAnimationName, js_getElapsedTime, - getElapsedTime, WebKitAnimationEvent, castToWebKitAnimationEvent, - gTypeWebKitAnimationEvent) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"animationName\"]" - js_getAnimationName :: WebKitAnimationEvent -> IO JSString - --- | -getAnimationName :: - (MonadIO m, FromJSString result) => - WebKitAnimationEvent -> m result -getAnimationName self - = liftIO (fromJSString <$> (js_getAnimationName (self))) - -foreign import javascript unsafe "$1[\"elapsedTime\"]" - js_getElapsedTime :: WebKitAnimationEvent -> IO Double - --- | -getElapsedTime :: (MonadIO m) => WebKitAnimationEvent -> m Double -getElapsedTime self = liftIO (js_getElapsedTime (self)) diff --git a/src/GHCJS/DOM/JSFFI/Generated/WebKitCSSFilterValue.hs b/src/GHCJS/DOM/JSFFI/Generated/WebKitCSSFilterValue.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/WebKitCSSFilterValue.hs +++ /dev/null @@ -1,52 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.WebKitCSSFilterValue - (js__get, _get, pattern CSS_FILTER_REFERENCE, - pattern CSS_FILTER_GRAYSCALE, pattern CSS_FILTER_SEPIA, - pattern CSS_FILTER_SATURATE, pattern CSS_FILTER_HUE_ROTATE, - pattern CSS_FILTER_INVERT, pattern CSS_FILTER_OPACITY, - pattern CSS_FILTER_BRIGHTNESS, pattern CSS_FILTER_CONTRAST, - pattern CSS_FILTER_BLUR, pattern CSS_FILTER_DROP_SHADOW, - js_getOperationType, getOperationType, WebKitCSSFilterValue, - castToWebKitCSSFilterValue, gTypeWebKitCSSFilterValue) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"_get\"]($2)" js__get :: - WebKitCSSFilterValue -> Word -> IO (Nullable CSSValue) - --- | -_get :: - (MonadIO m) => WebKitCSSFilterValue -> Word -> m (Maybe CSSValue) -_get self index - = liftIO (nullableToMaybe <$> (js__get (self) index)) -pattern CSS_FILTER_REFERENCE = 1 -pattern CSS_FILTER_GRAYSCALE = 2 -pattern CSS_FILTER_SEPIA = 3 -pattern CSS_FILTER_SATURATE = 4 -pattern CSS_FILTER_HUE_ROTATE = 5 -pattern CSS_FILTER_INVERT = 6 -pattern CSS_FILTER_OPACITY = 7 -pattern CSS_FILTER_BRIGHTNESS = 8 -pattern CSS_FILTER_CONTRAST = 9 -pattern CSS_FILTER_BLUR = 10 -pattern CSS_FILTER_DROP_SHADOW = 11 - -foreign import javascript unsafe "$1[\"operationType\"]" - js_getOperationType :: WebKitCSSFilterValue -> IO Word - --- | -getOperationType :: (MonadIO m) => WebKitCSSFilterValue -> m Word -getOperationType self = liftIO (js_getOperationType (self)) diff --git a/src/GHCJS/DOM/JSFFI/Generated/WebKitCSSMatrix.hs b/src/GHCJS/DOM/JSFFI/Generated/WebKitCSSMatrix.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/WebKitCSSMatrix.hs +++ /dev/null @@ -1,468 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.WebKitCSSMatrix - (js_newWebKitCSSMatrix, newWebKitCSSMatrix, js_setMatrixValue, - setMatrixValue, js_multiply, multiply, js_inverse, inverse, - js_translate, translate, js_scale, scale, js_rotate, rotate, - js_rotateAxisAngle, rotateAxisAngle, js_skewX, skewX, js_skewY, - skewY, js_toString, toString, js_setA, setA, js_getA, getA, - js_setB, setB, js_getB, getB, js_setC, setC, js_getC, getC, - js_setD, setD, js_getD, getD, js_setE, setE, js_getE, getE, - js_setF, setF, js_getF, getF, js_setM11, setM11, js_getM11, getM11, - js_setM12, setM12, js_getM12, getM12, js_setM13, setM13, js_getM13, - getM13, js_setM14, setM14, js_getM14, getM14, js_setM21, setM21, - js_getM21, getM21, js_setM22, setM22, js_getM22, getM22, js_setM23, - setM23, js_getM23, getM23, js_setM24, setM24, js_getM24, getM24, - js_setM31, setM31, js_getM31, getM31, js_setM32, setM32, js_getM32, - getM32, js_setM33, setM33, js_getM33, getM33, js_setM34, setM34, - js_getM34, getM34, js_setM41, setM41, js_getM41, getM41, js_setM42, - setM42, js_getM42, getM42, js_setM43, setM43, js_getM43, getM43, - js_setM44, setM44, js_getM44, getM44, WebKitCSSMatrix, - castToWebKitCSSMatrix, gTypeWebKitCSSMatrix) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe - "new window[\"WebKitCSSMatrix\"]($1)" js_newWebKitCSSMatrix :: - JSString -> IO WebKitCSSMatrix - --- | -newWebKitCSSMatrix :: - (MonadIO m, ToJSString cssValue) => cssValue -> m WebKitCSSMatrix -newWebKitCSSMatrix cssValue - = liftIO (js_newWebKitCSSMatrix (toJSString cssValue)) - -foreign import javascript unsafe "$1[\"setMatrixValue\"]($2)" - js_setMatrixValue :: WebKitCSSMatrix -> JSString -> IO () - --- | -setMatrixValue :: - (MonadIO m, ToJSString string) => WebKitCSSMatrix -> string -> m () -setMatrixValue self string - = liftIO (js_setMatrixValue (self) (toJSString string)) - -foreign import javascript unsafe "$1[\"multiply\"]($2)" js_multiply - :: - WebKitCSSMatrix -> - Nullable WebKitCSSMatrix -> IO (Nullable WebKitCSSMatrix) - --- | -multiply :: - (MonadIO m) => - WebKitCSSMatrix -> - Maybe WebKitCSSMatrix -> m (Maybe WebKitCSSMatrix) -multiply self secondMatrix - = liftIO - (nullableToMaybe <$> - (js_multiply (self) (maybeToNullable secondMatrix))) - -foreign import javascript unsafe "$1[\"inverse\"]()" js_inverse :: - WebKitCSSMatrix -> IO (Nullable WebKitCSSMatrix) - --- | -inverse :: - (MonadIO m) => WebKitCSSMatrix -> m (Maybe WebKitCSSMatrix) -inverse self = liftIO (nullableToMaybe <$> (js_inverse (self))) - -foreign import javascript unsafe "$1[\"translate\"]($2, $3, $4)" - js_translate :: - WebKitCSSMatrix -> - Double -> Double -> Double -> IO (Nullable WebKitCSSMatrix) - --- | -translate :: - (MonadIO m) => - WebKitCSSMatrix -> - Double -> Double -> Double -> m (Maybe WebKitCSSMatrix) -translate self x y z - = liftIO (nullableToMaybe <$> (js_translate (self) x y z)) - -foreign import javascript unsafe "$1[\"scale\"]($2, $3, $4)" - js_scale :: - WebKitCSSMatrix -> - Double -> Double -> Double -> IO (Nullable WebKitCSSMatrix) - --- | -scale :: - (MonadIO m) => - WebKitCSSMatrix -> - Double -> Double -> Double -> m (Maybe WebKitCSSMatrix) -scale self scaleX scaleY scaleZ - = liftIO - (nullableToMaybe <$> (js_scale (self) scaleX scaleY scaleZ)) - -foreign import javascript unsafe "$1[\"rotate\"]($2, $3, $4)" - js_rotate :: - WebKitCSSMatrix -> - Double -> Double -> Double -> IO (Nullable WebKitCSSMatrix) - --- | -rotate :: - (MonadIO m) => - WebKitCSSMatrix -> - Double -> Double -> Double -> m (Maybe WebKitCSSMatrix) -rotate self rotX rotY rotZ - = liftIO (nullableToMaybe <$> (js_rotate (self) rotX rotY rotZ)) - -foreign import javascript unsafe - "$1[\"rotateAxisAngle\"]($2, $3,\n$4, $5)" js_rotateAxisAngle :: - WebKitCSSMatrix -> - Double -> - Double -> Double -> Double -> IO (Nullable WebKitCSSMatrix) - --- | -rotateAxisAngle :: - (MonadIO m) => - WebKitCSSMatrix -> - Double -> Double -> Double -> Double -> m (Maybe WebKitCSSMatrix) -rotateAxisAngle self x y z angle - = liftIO - (nullableToMaybe <$> (js_rotateAxisAngle (self) x y z angle)) - -foreign import javascript unsafe "$1[\"skewX\"]($2)" js_skewX :: - WebKitCSSMatrix -> Double -> IO (Nullable WebKitCSSMatrix) - --- | -skewX :: - (MonadIO m) => - WebKitCSSMatrix -> Double -> m (Maybe WebKitCSSMatrix) -skewX self angle - = liftIO (nullableToMaybe <$> (js_skewX (self) angle)) - -foreign import javascript unsafe "$1[\"skewY\"]($2)" js_skewY :: - WebKitCSSMatrix -> Double -> IO (Nullable WebKitCSSMatrix) - --- | -skewY :: - (MonadIO m) => - WebKitCSSMatrix -> Double -> m (Maybe WebKitCSSMatrix) -skewY self angle - = liftIO (nullableToMaybe <$> (js_skewY (self) angle)) - -foreign import javascript unsafe "$1[\"toString\"]()" js_toString - :: WebKitCSSMatrix -> IO JSString - --- | -toString :: - (MonadIO m, FromJSString result) => WebKitCSSMatrix -> m result -toString self = liftIO (fromJSString <$> (js_toString (self))) - -foreign import javascript unsafe "$1[\"a\"] = $2;" js_setA :: - WebKitCSSMatrix -> Double -> IO () - --- | -setA :: (MonadIO m) => WebKitCSSMatrix -> Double -> m () -setA self val = liftIO (js_setA (self) val) - -foreign import javascript unsafe "$1[\"a\"]" js_getA :: - WebKitCSSMatrix -> IO Double - --- | -getA :: (MonadIO m) => WebKitCSSMatrix -> m Double -getA self = liftIO (js_getA (self)) - -foreign import javascript unsafe "$1[\"b\"] = $2;" js_setB :: - WebKitCSSMatrix -> Double -> IO () - --- | -setB :: (MonadIO m) => WebKitCSSMatrix -> Double -> m () -setB self val = liftIO (js_setB (self) val) - -foreign import javascript unsafe "$1[\"b\"]" js_getB :: - WebKitCSSMatrix -> IO Double - --- | -getB :: (MonadIO m) => WebKitCSSMatrix -> m Double -getB self = liftIO (js_getB (self)) - -foreign import javascript unsafe "$1[\"c\"] = $2;" js_setC :: - WebKitCSSMatrix -> Double -> IO () - --- | -setC :: (MonadIO m) => WebKitCSSMatrix -> Double -> m () -setC self val = liftIO (js_setC (self) val) - -foreign import javascript unsafe "$1[\"c\"]" js_getC :: - WebKitCSSMatrix -> IO Double - --- | -getC :: (MonadIO m) => WebKitCSSMatrix -> m Double -getC self = liftIO (js_getC (self)) - -foreign import javascript unsafe "$1[\"d\"] = $2;" js_setD :: - WebKitCSSMatrix -> Double -> IO () - --- | -setD :: (MonadIO m) => WebKitCSSMatrix -> Double -> m () -setD self val = liftIO (js_setD (self) val) - -foreign import javascript unsafe "$1[\"d\"]" js_getD :: - WebKitCSSMatrix -> IO Double - --- | -getD :: (MonadIO m) => WebKitCSSMatrix -> m Double -getD self = liftIO (js_getD (self)) - -foreign import javascript unsafe "$1[\"e\"] = $2;" js_setE :: - WebKitCSSMatrix -> Double -> IO () - --- | -setE :: (MonadIO m) => WebKitCSSMatrix -> Double -> m () -setE self val = liftIO (js_setE (self) val) - -foreign import javascript unsafe "$1[\"e\"]" js_getE :: - WebKitCSSMatrix -> IO Double - --- | -getE :: (MonadIO m) => WebKitCSSMatrix -> m Double -getE self = liftIO (js_getE (self)) - -foreign import javascript unsafe "$1[\"f\"] = $2;" js_setF :: - WebKitCSSMatrix -> Double -> IO () - --- | -setF :: (MonadIO m) => WebKitCSSMatrix -> Double -> m () -setF self val = liftIO (js_setF (self) val) - -foreign import javascript unsafe "$1[\"f\"]" js_getF :: - WebKitCSSMatrix -> IO Double - --- | -getF :: (MonadIO m) => WebKitCSSMatrix -> m Double -getF self = liftIO (js_getF (self)) - -foreign import javascript unsafe "$1[\"m11\"] = $2;" js_setM11 :: - WebKitCSSMatrix -> Double -> IO () - --- | -setM11 :: (MonadIO m) => WebKitCSSMatrix -> Double -> m () -setM11 self val = liftIO (js_setM11 (self) val) - -foreign import javascript unsafe "$1[\"m11\"]" js_getM11 :: - WebKitCSSMatrix -> IO Double - --- | -getM11 :: (MonadIO m) => WebKitCSSMatrix -> m Double -getM11 self = liftIO (js_getM11 (self)) - -foreign import javascript unsafe "$1[\"m12\"] = $2;" js_setM12 :: - WebKitCSSMatrix -> Double -> IO () - --- | -setM12 :: (MonadIO m) => WebKitCSSMatrix -> Double -> m () -setM12 self val = liftIO (js_setM12 (self) val) - -foreign import javascript unsafe "$1[\"m12\"]" js_getM12 :: - WebKitCSSMatrix -> IO Double - --- | -getM12 :: (MonadIO m) => WebKitCSSMatrix -> m Double -getM12 self = liftIO (js_getM12 (self)) - -foreign import javascript unsafe "$1[\"m13\"] = $2;" js_setM13 :: - WebKitCSSMatrix -> Double -> IO () - --- | -setM13 :: (MonadIO m) => WebKitCSSMatrix -> Double -> m () -setM13 self val = liftIO (js_setM13 (self) val) - -foreign import javascript unsafe "$1[\"m13\"]" js_getM13 :: - WebKitCSSMatrix -> IO Double - --- | -getM13 :: (MonadIO m) => WebKitCSSMatrix -> m Double -getM13 self = liftIO (js_getM13 (self)) - -foreign import javascript unsafe "$1[\"m14\"] = $2;" js_setM14 :: - WebKitCSSMatrix -> Double -> IO () - --- | -setM14 :: (MonadIO m) => WebKitCSSMatrix -> Double -> m () -setM14 self val = liftIO (js_setM14 (self) val) - -foreign import javascript unsafe "$1[\"m14\"]" js_getM14 :: - WebKitCSSMatrix -> IO Double - --- | -getM14 :: (MonadIO m) => WebKitCSSMatrix -> m Double -getM14 self = liftIO (js_getM14 (self)) - -foreign import javascript unsafe "$1[\"m21\"] = $2;" js_setM21 :: - WebKitCSSMatrix -> Double -> IO () - --- | -setM21 :: (MonadIO m) => WebKitCSSMatrix -> Double -> m () -setM21 self val = liftIO (js_setM21 (self) val) - -foreign import javascript unsafe "$1[\"m21\"]" js_getM21 :: - WebKitCSSMatrix -> IO Double - --- | -getM21 :: (MonadIO m) => WebKitCSSMatrix -> m Double -getM21 self = liftIO (js_getM21 (self)) - -foreign import javascript unsafe "$1[\"m22\"] = $2;" js_setM22 :: - WebKitCSSMatrix -> Double -> IO () - --- | -setM22 :: (MonadIO m) => WebKitCSSMatrix -> Double -> m () -setM22 self val = liftIO (js_setM22 (self) val) - -foreign import javascript unsafe "$1[\"m22\"]" js_getM22 :: - WebKitCSSMatrix -> IO Double - --- | -getM22 :: (MonadIO m) => WebKitCSSMatrix -> m Double -getM22 self = liftIO (js_getM22 (self)) - -foreign import javascript unsafe "$1[\"m23\"] = $2;" js_setM23 :: - WebKitCSSMatrix -> Double -> IO () - --- | -setM23 :: (MonadIO m) => WebKitCSSMatrix -> Double -> m () -setM23 self val = liftIO (js_setM23 (self) val) - -foreign import javascript unsafe "$1[\"m23\"]" js_getM23 :: - WebKitCSSMatrix -> IO Double - --- | -getM23 :: (MonadIO m) => WebKitCSSMatrix -> m Double -getM23 self = liftIO (js_getM23 (self)) - -foreign import javascript unsafe "$1[\"m24\"] = $2;" js_setM24 :: - WebKitCSSMatrix -> Double -> IO () - --- | -setM24 :: (MonadIO m) => WebKitCSSMatrix -> Double -> m () -setM24 self val = liftIO (js_setM24 (self) val) - -foreign import javascript unsafe "$1[\"m24\"]" js_getM24 :: - WebKitCSSMatrix -> IO Double - --- | -getM24 :: (MonadIO m) => WebKitCSSMatrix -> m Double -getM24 self = liftIO (js_getM24 (self)) - -foreign import javascript unsafe "$1[\"m31\"] = $2;" js_setM31 :: - WebKitCSSMatrix -> Double -> IO () - --- | -setM31 :: (MonadIO m) => WebKitCSSMatrix -> Double -> m () -setM31 self val = liftIO (js_setM31 (self) val) - -foreign import javascript unsafe "$1[\"m31\"]" js_getM31 :: - WebKitCSSMatrix -> IO Double - --- | -getM31 :: (MonadIO m) => WebKitCSSMatrix -> m Double -getM31 self = liftIO (js_getM31 (self)) - -foreign import javascript unsafe "$1[\"m32\"] = $2;" js_setM32 :: - WebKitCSSMatrix -> Double -> IO () - --- | -setM32 :: (MonadIO m) => WebKitCSSMatrix -> Double -> m () -setM32 self val = liftIO (js_setM32 (self) val) - -foreign import javascript unsafe "$1[\"m32\"]" js_getM32 :: - WebKitCSSMatrix -> IO Double - --- | -getM32 :: (MonadIO m) => WebKitCSSMatrix -> m Double -getM32 self = liftIO (js_getM32 (self)) - -foreign import javascript unsafe "$1[\"m33\"] = $2;" js_setM33 :: - WebKitCSSMatrix -> Double -> IO () - --- | -setM33 :: (MonadIO m) => WebKitCSSMatrix -> Double -> m () -setM33 self val = liftIO (js_setM33 (self) val) - -foreign import javascript unsafe "$1[\"m33\"]" js_getM33 :: - WebKitCSSMatrix -> IO Double - --- | -getM33 :: (MonadIO m) => WebKitCSSMatrix -> m Double -getM33 self = liftIO (js_getM33 (self)) - -foreign import javascript unsafe "$1[\"m34\"] = $2;" js_setM34 :: - WebKitCSSMatrix -> Double -> IO () - --- | -setM34 :: (MonadIO m) => WebKitCSSMatrix -> Double -> m () -setM34 self val = liftIO (js_setM34 (self) val) - -foreign import javascript unsafe "$1[\"m34\"]" js_getM34 :: - WebKitCSSMatrix -> IO Double - --- | -getM34 :: (MonadIO m) => WebKitCSSMatrix -> m Double -getM34 self = liftIO (js_getM34 (self)) - -foreign import javascript unsafe "$1[\"m41\"] = $2;" js_setM41 :: - WebKitCSSMatrix -> Double -> IO () - --- | -setM41 :: (MonadIO m) => WebKitCSSMatrix -> Double -> m () -setM41 self val = liftIO (js_setM41 (self) val) - -foreign import javascript unsafe "$1[\"m41\"]" js_getM41 :: - WebKitCSSMatrix -> IO Double - --- | -getM41 :: (MonadIO m) => WebKitCSSMatrix -> m Double -getM41 self = liftIO (js_getM41 (self)) - -foreign import javascript unsafe "$1[\"m42\"] = $2;" js_setM42 :: - WebKitCSSMatrix -> Double -> IO () - --- | -setM42 :: (MonadIO m) => WebKitCSSMatrix -> Double -> m () -setM42 self val = liftIO (js_setM42 (self) val) - -foreign import javascript unsafe "$1[\"m42\"]" js_getM42 :: - WebKitCSSMatrix -> IO Double - --- | -getM42 :: (MonadIO m) => WebKitCSSMatrix -> m Double -getM42 self = liftIO (js_getM42 (self)) - -foreign import javascript unsafe "$1[\"m43\"] = $2;" js_setM43 :: - WebKitCSSMatrix -> Double -> IO () - --- | -setM43 :: (MonadIO m) => WebKitCSSMatrix -> Double -> m () -setM43 self val = liftIO (js_setM43 (self) val) - -foreign import javascript unsafe "$1[\"m43\"]" js_getM43 :: - WebKitCSSMatrix -> IO Double - --- | -getM43 :: (MonadIO m) => WebKitCSSMatrix -> m Double -getM43 self = liftIO (js_getM43 (self)) - -foreign import javascript unsafe "$1[\"m44\"] = $2;" js_setM44 :: - WebKitCSSMatrix -> Double -> IO () - --- | -setM44 :: (MonadIO m) => WebKitCSSMatrix -> Double -> m () -setM44 self val = liftIO (js_setM44 (self) val) - -foreign import javascript unsafe "$1[\"m44\"]" js_getM44 :: - WebKitCSSMatrix -> IO Double - --- | -getM44 :: (MonadIO m) => WebKitCSSMatrix -> m Double -getM44 self = liftIO (js_getM44 (self)) diff --git a/src/GHCJS/DOM/JSFFI/Generated/WebKitCSSRegionRule.hs b/src/GHCJS/DOM/JSFFI/Generated/WebKitCSSRegionRule.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/WebKitCSSRegionRule.hs +++ /dev/null @@ -1,28 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.WebKitCSSRegionRule - (js_getCssRules, getCssRules, WebKitCSSRegionRule, - castToWebKitCSSRegionRule, gTypeWebKitCSSRegionRule) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"cssRules\"]" js_getCssRules - :: WebKitCSSRegionRule -> IO (Nullable CSSRuleList) - --- | -getCssRules :: - (MonadIO m) => WebKitCSSRegionRule -> m (Maybe CSSRuleList) -getCssRules self - = liftIO (nullableToMaybe <$> (js_getCssRules (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/WebKitCSSTransformValue.hs b/src/GHCJS/DOM/JSFFI/Generated/WebKitCSSTransformValue.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/WebKitCSSTransformValue.hs +++ /dev/null @@ -1,66 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.WebKitCSSTransformValue - (js__get, _get, pattern CSS_TRANSLATE, pattern CSS_TRANSLATEX, - pattern CSS_TRANSLATEY, pattern CSS_ROTATE, pattern CSS_SCALE, - pattern CSS_SCALEX, pattern CSS_SCALEY, pattern CSS_SKEW, - pattern CSS_SKEWX, pattern CSS_SKEWY, pattern CSS_MATRIX, - pattern CSS_TRANSLATEZ, pattern CSS_TRANSLATE3D, - pattern CSS_ROTATEX, pattern CSS_ROTATEY, pattern CSS_ROTATEZ, - pattern CSS_ROTATE3D, pattern CSS_SCALEZ, pattern CSS_SCALE3D, - pattern CSS_PERSPECTIVE, pattern CSS_MATRIX3D, js_getOperationType, - getOperationType, WebKitCSSTransformValue, - castToWebKitCSSTransformValue, gTypeWebKitCSSTransformValue) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"_get\"]($2)" js__get :: - WebKitCSSTransformValue -> Word -> IO (Nullable CSSValue) - --- | -_get :: - (MonadIO m) => - WebKitCSSTransformValue -> Word -> m (Maybe CSSValue) -_get self index - = liftIO (nullableToMaybe <$> (js__get (self) index)) -pattern CSS_TRANSLATE = 1 -pattern CSS_TRANSLATEX = 2 -pattern CSS_TRANSLATEY = 3 -pattern CSS_ROTATE = 4 -pattern CSS_SCALE = 5 -pattern CSS_SCALEX = 6 -pattern CSS_SCALEY = 7 -pattern CSS_SKEW = 8 -pattern CSS_SKEWX = 9 -pattern CSS_SKEWY = 10 -pattern CSS_MATRIX = 11 -pattern CSS_TRANSLATEZ = 12 -pattern CSS_TRANSLATE3D = 13 -pattern CSS_ROTATEX = 14 -pattern CSS_ROTATEY = 15 -pattern CSS_ROTATEZ = 16 -pattern CSS_ROTATE3D = 17 -pattern CSS_SCALEZ = 18 -pattern CSS_SCALE3D = 19 -pattern CSS_PERSPECTIVE = 20 -pattern CSS_MATRIX3D = 21 - -foreign import javascript unsafe "$1[\"operationType\"]" - js_getOperationType :: WebKitCSSTransformValue -> IO Word - --- | -getOperationType :: - (MonadIO m) => WebKitCSSTransformValue -> m Word -getOperationType self = liftIO (js_getOperationType (self)) diff --git a/src/GHCJS/DOM/JSFFI/Generated/WebKitCSSViewportRule.hs b/src/GHCJS/DOM/JSFFI/Generated/WebKitCSSViewportRule.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/WebKitCSSViewportRule.hs +++ /dev/null @@ -1,28 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.WebKitCSSViewportRule - (js_getStyle, getStyle, WebKitCSSViewportRule, - castToWebKitCSSViewportRule, gTypeWebKitCSSViewportRule) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"style\"]" js_getStyle :: - WebKitCSSViewportRule -> IO (Nullable CSSStyleDeclaration) - --- | -getStyle :: - (MonadIO m) => - WebKitCSSViewportRule -> m (Maybe CSSStyleDeclaration) -getStyle self = liftIO (nullableToMaybe <$> (js_getStyle (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/WebKitNamedFlow.hs b/src/GHCJS/DOM/JSFFI/Generated/WebKitNamedFlow.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/WebKitNamedFlow.hs +++ /dev/null @@ -1,75 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.WebKitNamedFlow - (js_getRegionsByContent, getRegionsByContent, js_getRegions, - getRegions, js_getContent, getContent, js_getName, getName, - js_getOverset, getOverset, js_getFirstEmptyRegionIndex, - getFirstEmptyRegionIndex, WebKitNamedFlow, castToWebKitNamedFlow, - gTypeWebKitNamedFlow) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"getRegionsByContent\"]($2)" - js_getRegionsByContent :: - WebKitNamedFlow -> Nullable Node -> IO (Nullable NodeList) - --- | -getRegionsByContent :: - (MonadIO m, IsNode contentNode) => - WebKitNamedFlow -> Maybe contentNode -> m (Maybe NodeList) -getRegionsByContent self contentNode - = liftIO - (nullableToMaybe <$> - (js_getRegionsByContent (self) - (maybeToNullable (fmap toNode contentNode)))) - -foreign import javascript unsafe "$1[\"getRegions\"]()" - js_getRegions :: WebKitNamedFlow -> IO (Nullable NodeList) - --- | -getRegions :: (MonadIO m) => WebKitNamedFlow -> m (Maybe NodeList) -getRegions self - = liftIO (nullableToMaybe <$> (js_getRegions (self))) - -foreign import javascript unsafe "$1[\"getContent\"]()" - js_getContent :: WebKitNamedFlow -> IO (Nullable NodeList) - --- | -getContent :: (MonadIO m) => WebKitNamedFlow -> m (Maybe NodeList) -getContent self - = liftIO (nullableToMaybe <$> (js_getContent (self))) - -foreign import javascript unsafe "$1[\"name\"]" js_getName :: - WebKitNamedFlow -> IO JSString - --- | -getName :: - (MonadIO m, FromJSString result) => WebKitNamedFlow -> m result -getName self = liftIO (fromJSString <$> (js_getName (self))) - -foreign import javascript unsafe "($1[\"overset\"] ? 1 : 0)" - js_getOverset :: WebKitNamedFlow -> IO Bool - --- | -getOverset :: (MonadIO m) => WebKitNamedFlow -> m Bool -getOverset self = liftIO (js_getOverset (self)) - -foreign import javascript unsafe "$1[\"firstEmptyRegionIndex\"]" - js_getFirstEmptyRegionIndex :: WebKitNamedFlow -> IO Int - --- | -getFirstEmptyRegionIndex :: (MonadIO m) => WebKitNamedFlow -> m Int -getFirstEmptyRegionIndex self - = liftIO (js_getFirstEmptyRegionIndex (self)) diff --git a/src/GHCJS/DOM/JSFFI/Generated/WebKitNamespace.hs b/src/GHCJS/DOM/JSFFI/Generated/WebKitNamespace.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/WebKitNamespace.hs +++ /dev/null @@ -1,30 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.WebKitNamespace - (js_getMessageHandlers, getMessageHandlers, WebKitNamespace, - castToWebKitNamespace, gTypeWebKitNamespace) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"messageHandlers\"]" - js_getMessageHandlers :: - WebKitNamespace -> IO (Nullable UserMessageHandlersNamespace) - --- | -getMessageHandlers :: - (MonadIO m) => - WebKitNamespace -> m (Maybe UserMessageHandlersNamespace) -getMessageHandlers self - = liftIO (nullableToMaybe <$> (js_getMessageHandlers (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/WebKitPlaybackTargetAvailabilityEvent.hs b/src/GHCJS/DOM/JSFFI/Generated/WebKitPlaybackTargetAvailabilityEvent.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/WebKitPlaybackTargetAvailabilityEvent.hs +++ /dev/null @@ -1,32 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.WebKitPlaybackTargetAvailabilityEvent - (js_getAvailability, getAvailability, - WebKitPlaybackTargetAvailabilityEvent, - castToWebKitPlaybackTargetAvailabilityEvent, - gTypeWebKitPlaybackTargetAvailabilityEvent) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"availability\"]" - js_getAvailability :: - WebKitPlaybackTargetAvailabilityEvent -> IO JSString - --- | -getAvailability :: - (MonadIO m, FromJSString result) => - WebKitPlaybackTargetAvailabilityEvent -> m result -getAvailability self - = liftIO (fromJSString <$> (js_getAvailability (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/WebKitPoint.hs b/src/GHCJS/DOM/JSFFI/Generated/WebKitPoint.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/WebKitPoint.hs +++ /dev/null @@ -1,63 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.WebKitPoint - (js_newWebKitPoint, newWebKitPoint, js_newWebKitPoint', - newWebKitPoint', js_setX, setX, js_getX, getX, js_setY, setY, - js_getY, getY, WebKitPoint, castToWebKitPoint, gTypeWebKitPoint) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "new window[\"WebKitPoint\"]()" - js_newWebKitPoint :: IO WebKitPoint - --- | -newWebKitPoint :: (MonadIO m) => m WebKitPoint -newWebKitPoint = liftIO (js_newWebKitPoint) - -foreign import javascript unsafe - "new window[\"WebKitPoint\"]($1,\n$2)" js_newWebKitPoint' :: - Float -> Float -> IO WebKitPoint - --- | -newWebKitPoint' :: (MonadIO m) => Float -> Float -> m WebKitPoint -newWebKitPoint' x y = liftIO (js_newWebKitPoint' x y) - -foreign import javascript unsafe "$1[\"x\"] = $2;" js_setX :: - WebKitPoint -> Float -> IO () - --- | -setX :: (MonadIO m) => WebKitPoint -> Float -> m () -setX self val = liftIO (js_setX (self) val) - -foreign import javascript unsafe "$1[\"x\"]" js_getX :: - WebKitPoint -> IO Float - --- | -getX :: (MonadIO m) => WebKitPoint -> m Float -getX self = liftIO (js_getX (self)) - -foreign import javascript unsafe "$1[\"y\"] = $2;" js_setY :: - WebKitPoint -> Float -> IO () - --- | -setY :: (MonadIO m) => WebKitPoint -> Float -> m () -setY self val = liftIO (js_setY (self) val) - -foreign import javascript unsafe "$1[\"y\"]" js_getY :: - WebKitPoint -> IO Float - --- | -getY :: (MonadIO m) => WebKitPoint -> m Float -getY self = liftIO (js_getY (self)) diff --git a/src/GHCJS/DOM/JSFFI/Generated/WebKitTransitionEvent.hs b/src/GHCJS/DOM/JSFFI/Generated/WebKitTransitionEvent.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/WebKitTransitionEvent.hs +++ /dev/null @@ -1,48 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.WebKitTransitionEvent - (js_getPropertyName, getPropertyName, js_getElapsedTime, - getElapsedTime, js_getPseudoElement, getPseudoElement, - WebKitTransitionEvent, castToWebKitTransitionEvent, - gTypeWebKitTransitionEvent) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"propertyName\"]" - js_getPropertyName :: WebKitTransitionEvent -> IO JSString - --- | -getPropertyName :: - (MonadIO m, FromJSString result) => - WebKitTransitionEvent -> m result -getPropertyName self - = liftIO (fromJSString <$> (js_getPropertyName (self))) - -foreign import javascript unsafe "$1[\"elapsedTime\"]" - js_getElapsedTime :: WebKitTransitionEvent -> IO Double - --- | -getElapsedTime :: (MonadIO m) => WebKitTransitionEvent -> m Double -getElapsedTime self = liftIO (js_getElapsedTime (self)) - -foreign import javascript unsafe "$1[\"pseudoElement\"]" - js_getPseudoElement :: WebKitTransitionEvent -> IO JSString - --- | -getPseudoElement :: - (MonadIO m, FromJSString result) => - WebKitTransitionEvent -> m result -getPseudoElement self - = liftIO (fromJSString <$> (js_getPseudoElement (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/WebSocket.hs b/src/GHCJS/DOM/JSFFI/Generated/WebSocket.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/WebSocket.hs +++ /dev/null @@ -1,178 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.WebSocket - (js_newWebSocket, newWebSocket, js_newWebSocket', newWebSocket', - js_send, send, js_sendView, sendView, js_sendBlob, sendBlob, - js_sendString, sendString, js_close, close, pattern CONNECTING, - pattern OPEN, pattern CLOSING, pattern CLOSED, js_getUrl, getUrl, - js_getReadyState, getReadyState, js_getBufferedAmount, - getBufferedAmount, open, message, error, closeEvent, - js_getProtocol, getProtocol, js_getExtensions, getExtensions, - js_setBinaryType, setBinaryType, js_getBinaryType, getBinaryType, - WebSocket, castToWebSocket, gTypeWebSocket) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe - "new window[\"WebSocket\"]($1, $2)" js_newWebSocket :: - JSString -> JSVal -> IO WebSocket - --- | -newWebSocket :: - (MonadIO m, ToJSString url, ToJSString protocols) => - url -> Maybe [protocols] -> m WebSocket -newWebSocket url protocols - = liftIO - (toJSVal protocols >>= - \ protocols' -> js_newWebSocket (toJSString url) protocols') - -foreign import javascript unsafe - "new window[\"WebSocket\"]($1, $2)" js_newWebSocket' :: - JSString -> JSString -> IO WebSocket - --- | -newWebSocket' :: - (MonadIO m, ToJSString url, ToJSString protocol) => - url -> protocol -> m WebSocket -newWebSocket' url protocol - = liftIO (js_newWebSocket' (toJSString url) (toJSString protocol)) - -foreign import javascript unsafe "$1[\"send\"]($2)" js_send :: - WebSocket -> Nullable ArrayBuffer -> IO () - --- | -send :: - (MonadIO m, IsArrayBuffer data') => - WebSocket -> Maybe data' -> m () -send self data' - = liftIO - (js_send (self) (maybeToNullable (fmap toArrayBuffer data'))) - -foreign import javascript unsafe "$1[\"send\"]($2)" js_sendView :: - WebSocket -> Nullable ArrayBufferView -> IO () - --- | -sendView :: - (MonadIO m, IsArrayBufferView data') => - WebSocket -> Maybe data' -> m () -sendView self data' - = liftIO - (js_sendView (self) - (maybeToNullable (fmap toArrayBufferView data'))) - -foreign import javascript unsafe "$1[\"send\"]($2)" js_sendBlob :: - WebSocket -> Nullable Blob -> IO () - --- | -sendBlob :: - (MonadIO m, IsBlob data') => WebSocket -> Maybe data' -> m () -sendBlob self data' - = liftIO (js_sendBlob (self) (maybeToNullable (fmap toBlob data'))) - -foreign import javascript unsafe "$1[\"send\"]($2)" js_sendString - :: WebSocket -> JSString -> IO () - --- | -sendString :: - (MonadIO m, ToJSString data') => WebSocket -> data' -> m () -sendString self data' - = liftIO (js_sendString (self) (toJSString data')) - -foreign import javascript unsafe "$1[\"close\"]($2, $3)" js_close - :: WebSocket -> Word -> JSString -> IO () - --- | -close :: - (MonadIO m, ToJSString reason) => - WebSocket -> Word -> reason -> m () -close self code reason - = liftIO (js_close (self) code (toJSString reason)) -pattern CONNECTING = 0 -pattern OPEN = 1 -pattern CLOSING = 2 -pattern CLOSED = 3 - -foreign import javascript unsafe "$1[\"url\"]" js_getUrl :: - WebSocket -> IO JSString - --- | -getUrl :: (MonadIO m, FromJSString result) => WebSocket -> m result -getUrl self = liftIO (fromJSString <$> (js_getUrl (self))) - -foreign import javascript unsafe "$1[\"readyState\"]" - js_getReadyState :: WebSocket -> IO Word - --- | -getReadyState :: (MonadIO m) => WebSocket -> m Word -getReadyState self = liftIO (js_getReadyState (self)) - -foreign import javascript unsafe "$1[\"bufferedAmount\"]" - js_getBufferedAmount :: WebSocket -> IO Word - --- | -getBufferedAmount :: (MonadIO m) => WebSocket -> m Word -getBufferedAmount self = liftIO (js_getBufferedAmount (self)) - --- | -open :: EventName WebSocket Event -open = unsafeEventName (toJSString "open") - --- | -message :: EventName WebSocket MessageEvent -message = unsafeEventName (toJSString "message") - --- | -error :: EventName WebSocket UIEvent -error = unsafeEventName (toJSString "error") - --- | -closeEvent :: EventName WebSocket Event -closeEvent = unsafeEventName (toJSString "close") - -foreign import javascript unsafe "$1[\"protocol\"]" js_getProtocol - :: WebSocket -> IO (Nullable JSString) - --- | -getProtocol :: - (MonadIO m, FromJSString result) => WebSocket -> m (Maybe result) -getProtocol self - = liftIO (fromMaybeJSString <$> (js_getProtocol (self))) - -foreign import javascript unsafe "$1[\"extensions\"]" - js_getExtensions :: WebSocket -> IO (Nullable JSString) - --- | -getExtensions :: - (MonadIO m, FromJSString result) => WebSocket -> m (Maybe result) -getExtensions self - = liftIO (fromMaybeJSString <$> (js_getExtensions (self))) - -foreign import javascript unsafe "$1[\"binaryType\"] = $2;" - js_setBinaryType :: WebSocket -> JSString -> IO () - --- | -setBinaryType :: - (MonadIO m, ToJSString val) => WebSocket -> val -> m () -setBinaryType self val - = liftIO (js_setBinaryType (self) (toJSString val)) - -foreign import javascript unsafe "$1[\"binaryType\"]" - js_getBinaryType :: WebSocket -> IO JSString - --- | -getBinaryType :: - (MonadIO m, FromJSString result) => WebSocket -> m result -getBinaryType self - = liftIO (fromJSString <$> (js_getBinaryType (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/WheelEvent.hs b/src/GHCJS/DOM/JSFFI/Generated/WheelEvent.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/WheelEvent.hs +++ /dev/null @@ -1,119 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.WheelEvent - (js_initWebKitWheelEvent, initWebKitWheelEvent, - pattern DOM_DELTA_PIXEL, pattern DOM_DELTA_LINE, - pattern DOM_DELTA_PAGE, js_getDeltaX, getDeltaX, js_getDeltaY, - getDeltaY, js_getDeltaZ, getDeltaZ, js_getDeltaMode, getDeltaMode, - js_getWheelDeltaX, getWheelDeltaX, js_getWheelDeltaY, - getWheelDeltaY, js_getWheelDelta, getWheelDelta, - js_getWebkitDirectionInvertedFromDevice, - getWebkitDirectionInvertedFromDevice, WheelEvent, castToWheelEvent, - gTypeWheelEvent) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe - "$1[\"initWebKitWheelEvent\"]($2,\n$3, $4, $5, $6, $7, $8, $9, $10,\n$11, $12)" - js_initWebKitWheelEvent :: - WheelEvent -> - Int -> - Int -> - Nullable Window -> - Int -> Int -> Int -> Int -> Bool -> Bool -> Bool -> Bool -> IO () - --- | -initWebKitWheelEvent :: - (MonadIO m) => - WheelEvent -> - Int -> - Int -> - Maybe Window -> - Int -> Int -> Int -> Int -> Bool -> Bool -> Bool -> Bool -> m () -initWebKitWheelEvent self wheelDeltaX wheelDeltaY view screenX - screenY clientX clientY ctrlKey altKey shiftKey metaKey - = liftIO - (js_initWebKitWheelEvent (self) wheelDeltaX wheelDeltaY - (maybeToNullable view) - screenX - screenY - clientX - clientY - ctrlKey - altKey - shiftKey - metaKey) -pattern DOM_DELTA_PIXEL = 0 -pattern DOM_DELTA_LINE = 1 -pattern DOM_DELTA_PAGE = 2 - -foreign import javascript unsafe "$1[\"deltaX\"]" js_getDeltaX :: - WheelEvent -> IO Double - --- | -getDeltaX :: (MonadIO m) => WheelEvent -> m Double -getDeltaX self = liftIO (js_getDeltaX (self)) - -foreign import javascript unsafe "$1[\"deltaY\"]" js_getDeltaY :: - WheelEvent -> IO Double - --- | -getDeltaY :: (MonadIO m) => WheelEvent -> m Double -getDeltaY self = liftIO (js_getDeltaY (self)) - -foreign import javascript unsafe "$1[\"deltaZ\"]" js_getDeltaZ :: - WheelEvent -> IO Double - --- | -getDeltaZ :: (MonadIO m) => WheelEvent -> m Double -getDeltaZ self = liftIO (js_getDeltaZ (self)) - -foreign import javascript unsafe "$1[\"deltaMode\"]" - js_getDeltaMode :: WheelEvent -> IO Word - --- | -getDeltaMode :: (MonadIO m) => WheelEvent -> m Word -getDeltaMode self = liftIO (js_getDeltaMode (self)) - -foreign import javascript unsafe "$1[\"wheelDeltaX\"]" - js_getWheelDeltaX :: WheelEvent -> IO Int - --- | -getWheelDeltaX :: (MonadIO m) => WheelEvent -> m Int -getWheelDeltaX self = liftIO (js_getWheelDeltaX (self)) - -foreign import javascript unsafe "$1[\"wheelDeltaY\"]" - js_getWheelDeltaY :: WheelEvent -> IO Int - --- | -getWheelDeltaY :: (MonadIO m) => WheelEvent -> m Int -getWheelDeltaY self = liftIO (js_getWheelDeltaY (self)) - -foreign import javascript unsafe "$1[\"wheelDelta\"]" - js_getWheelDelta :: WheelEvent -> IO Int - --- | -getWheelDelta :: (MonadIO m) => WheelEvent -> m Int -getWheelDelta self = liftIO (js_getWheelDelta (self)) - -foreign import javascript unsafe - "($1[\"webkitDirectionInvertedFromDevice\"] ? 1 : 0)" - js_getWebkitDirectionInvertedFromDevice :: WheelEvent -> IO Bool - --- | -getWebkitDirectionInvertedFromDevice :: - (MonadIO m) => WheelEvent -> m Bool -getWebkitDirectionInvertedFromDevice self - = liftIO (js_getWebkitDirectionInvertedFromDevice (self)) diff --git a/src/GHCJS/DOM/JSFFI/Generated/Window.hs b/src/GHCJS/DOM/JSFFI/Generated/Window.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/Window.hs +++ /dev/null @@ -1,1250 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.Window - (js_openDatabase, openDatabase, js_getSelection, getSelection, - js_focus, focus, js_blur, blur, js_close, close, js_print, print, - js_stop, stop, js_open, open, js_showModalDialog, showModalDialog, - js_alert, alert, js_confirm, confirm, js_prompt, prompt, js_find, - find, js_scrollBy, scrollBy, js_scrollTo, scrollTo, js_scroll, - scroll, js_moveBy, moveBy, js_moveTo, moveTo, js_resizeBy, - resizeBy, js_resizeTo, resizeTo, js_matchMedia, matchMedia, - js_getComputedStyle, getComputedStyle, js_getMatchedCSSRules, - getMatchedCSSRules, js_webkitConvertPointFromPageToNode, - webkitConvertPointFromPageToNode, - js_webkitConvertPointFromNodeToPage, - webkitConvertPointFromNodeToPage, js_postMessage, postMessage, - js_requestAnimationFrame, requestAnimationFrame, - js_cancelAnimationFrame, cancelAnimationFrame, - js_webkitRequestAnimationFrame, webkitRequestAnimationFrame, - js_webkitCancelAnimationFrame, webkitCancelAnimationFrame, - js_webkitCancelRequestAnimationFrame, - webkitCancelRequestAnimationFrame, js_captureEvents, captureEvents, - js_releaseEvents, releaseEvents, js_getWebkitIndexedDB, - getWebkitIndexedDB, js_getIndexedDB, getIndexedDB, - js_getWebkitStorageInfo, getWebkitStorageInfo, - js_getSpeechSynthesis, getSpeechSynthesis, js_getScreen, getScreen, - js_getHistory, getHistory, js_getLocationbar, getLocationbar, - js_getMenubar, getMenubar, js_getPersonalbar, getPersonalbar, - js_getScrollbars, getScrollbars, js_getStatusbar, getStatusbar, - js_getToolbar, getToolbar, js_getNavigator, getNavigator, - js_getClientInformation, getClientInformation, js_getCrypto, - getCrypto, js_setLocation, setLocation, js_getLocation, - getLocation, js_getEvent, getEvent, js_getFrameElement, - getFrameElement, js_getOffscreenBuffering, getOffscreenBuffering, - js_getOuterHeight, getOuterHeight, js_getOuterWidth, getOuterWidth, - js_getInnerHeight, getInnerHeight, js_getInnerWidth, getInnerWidth, - js_getScreenX, getScreenX, js_getScreenY, getScreenY, - js_getScreenLeft, getScreenLeft, js_getScreenTop, getScreenTop, - js_getScrollX, getScrollX, js_getScrollY, getScrollY, - js_getPageXOffset, getPageXOffset, js_getPageYOffset, - getPageYOffset, js_getClosed, getClosed, js_getLength, getLength, - js_setName, setName, js_getName, getName, js_setStatus, setStatus, - js_getStatus, getStatus, js_setDefaultStatus, setDefaultStatus, - js_getDefaultStatus, getDefaultStatus, js_setDefaultstatus, - setDefaultstatus, js_getDefaultstatus, getDefaultstatus, - js_getSelf, getSelf, js_getWindow, getWindow, js_getFrames, - getFrames, js_getOpener, getOpener, js_getParent, getParent, - js_getTop, getTop, js_getDocument, getDocument, js_getStyleMedia, - getStyleMedia, js_getDevicePixelRatio, getDevicePixelRatio, - js_getApplicationCache, getApplicationCache, js_getSessionStorage, - getSessionStorage, js_getLocalStorage, getLocalStorage, - js_getOrientation, getOrientation, js_getPerformance, - getPerformance, js_getCSS, getCSS, abort, beforeUnload, blurEvent, - canPlay, canPlayThrough, change, click, contextMenu, dblClick, - drag, dragEnd, dragEnter, dragLeave, dragOver, dragStart, drop, - durationChange, emptied, ended, error, focusEvent, hashChange, - input, invalid, keyDown, keyPress, keyUp, load, loadedData, - loadedMetadata, loadStart, message, mouseDown, mouseEnter, - mouseLeave, mouseMove, mouseOut, mouseOver, mouseUp, mouseWheel, - offline, online, pageHide, pageShow, pause, play, playing, - popState, progress, rateChange, resize, scrollEvent, seeked, - seeking, select, stalled, storage, submit, suspend, timeUpdate, - unload, volumeChange, waiting, wheel, reset, search, - webKitAnimationEnd, webKitAnimationIteration, webKitAnimationStart, - animationEnd, animationIteration, animationStart, - webKitTransitionEnd, transitionEnd, orientationChange, touchStart, - touchMove, touchEnd, touchCancel, gestureStart, gestureChange, - gestureEnd, deviceMotion, deviceOrientation, webKitDeviceProximity, - webKitWillRevealBottom, webKitWillRevealLeft, - webKitWillRevealRight, webKitWillRevealTop, Window, castToWindow, - gTypeWindow) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe - "$1[\"openDatabase\"]($2, $3, $4,\n$5, $6)" js_openDatabase :: - Window -> - JSString -> - JSString -> - JSString -> - Word -> Nullable DatabaseCallback -> IO (Nullable Database) - --- | -openDatabase :: - (MonadIO m, ToJSString name, ToJSString version, - ToJSString displayName) => - Window -> - name -> - version -> - displayName -> Word -> Maybe DatabaseCallback -> m (Maybe Database) -openDatabase self name version displayName estimatedSize - creationCallback - = liftIO - (nullableToMaybe <$> - (js_openDatabase (self) (toJSString name) (toJSString version) - (toJSString displayName) - estimatedSize - (maybeToNullable creationCallback))) - -foreign import javascript unsafe "$1[\"getSelection\"]()" - js_getSelection :: Window -> IO (Nullable Selection) - --- | -getSelection :: (MonadIO m) => Window -> m (Maybe Selection) -getSelection self - = liftIO (nullableToMaybe <$> (js_getSelection (self))) - -foreign import javascript unsafe "$1[\"focus\"]()" js_focus :: - Window -> IO () - --- | -focus :: (MonadIO m) => Window -> m () -focus self = liftIO (js_focus (self)) - -foreign import javascript unsafe "$1[\"blur\"]()" js_blur :: - Window -> IO () - --- | -blur :: (MonadIO m) => Window -> m () -blur self = liftIO (js_blur (self)) - -foreign import javascript unsafe "$1[\"close\"]()" js_close :: - Window -> IO () - --- | -close :: (MonadIO m) => Window -> m () -close self = liftIO (js_close (self)) - -foreign import javascript unsafe "$1[\"print\"]()" js_print :: - Window -> IO () - --- | -print :: (MonadIO m) => Window -> m () -print self = liftIO (js_print (self)) - -foreign import javascript unsafe "$1[\"stop\"]()" js_stop :: - Window -> IO () - --- | -stop :: (MonadIO m) => Window -> m () -stop self = liftIO (js_stop (self)) - -foreign import javascript unsafe "$1[\"open\"]($2, $3, $4)" js_open - :: - Window -> JSString -> JSString -> JSString -> IO (Nullable Window) - --- | -open :: - (MonadIO m, ToJSString url, ToJSString name, ToJSString options) => - Window -> url -> name -> options -> m (Maybe Window) -open self url name options - = liftIO - (nullableToMaybe <$> - (js_open (self) (toJSString url) (toJSString name) - (toJSString options))) - -foreign import javascript unsafe - "$1[\"showModalDialog\"]($2, $3,\n$4)" js_showModalDialog :: - Window -> JSString -> JSVal -> JSString -> IO JSVal - --- | -showModalDialog :: - (MonadIO m, ToJSString url, ToJSString featureArgs) => - Window -> url -> JSVal -> featureArgs -> m JSVal -showModalDialog self url dialogArgs featureArgs - = liftIO - (js_showModalDialog (self) (toJSString url) dialogArgs - (toJSString featureArgs)) - -foreign import javascript unsafe "$1[\"alert\"]($2)" js_alert :: - Window -> JSString -> IO () - --- | -alert :: - (MonadIO m, ToJSString message) => Window -> message -> m () -alert self message = liftIO (js_alert (self) (toJSString message)) - -foreign import javascript unsafe "($1[\"confirm\"]($2) ? 1 : 0)" - js_confirm :: Window -> JSString -> IO Bool - --- | -confirm :: - (MonadIO m, ToJSString message) => Window -> message -> m Bool -confirm self message - = liftIO (js_confirm (self) (toJSString message)) - -foreign import javascript unsafe "$1[\"prompt\"]($2, $3)" js_prompt - :: - Window -> JSString -> Nullable JSString -> IO (Nullable JSString) - --- | -prompt :: - (MonadIO m, ToJSString message, ToJSString defaultValue, - FromJSString result) => - Window -> message -> Maybe defaultValue -> m (Maybe result) -prompt self message defaultValue - = liftIO - (fromMaybeJSString <$> - (js_prompt (self) (toJSString message) - (toMaybeJSString defaultValue))) - -foreign import javascript unsafe - "($1[\"find\"]($2, $3, $4, $5, $6,\n$7, $8) ? 1 : 0)" js_find :: - Window -> - JSString -> Bool -> Bool -> Bool -> Bool -> Bool -> Bool -> IO Bool - --- | -find :: - (MonadIO m, ToJSString string) => - Window -> - string -> Bool -> Bool -> Bool -> Bool -> Bool -> Bool -> m Bool -find self string caseSensitive backwards wrap wholeWord - searchInFrames showDialog - = liftIO - (js_find (self) (toJSString string) caseSensitive backwards wrap - wholeWord - searchInFrames - showDialog) - -foreign import javascript unsafe "$1[\"scrollBy\"]($2, $3)" - js_scrollBy :: Window -> Int -> Int -> IO () - --- | -scrollBy :: (MonadIO m) => Window -> Int -> Int -> m () -scrollBy self x y = liftIO (js_scrollBy (self) x y) - -foreign import javascript unsafe "$1[\"scrollTo\"]($2, $3)" - js_scrollTo :: Window -> Int -> Int -> IO () - --- | -scrollTo :: (MonadIO m) => Window -> Int -> Int -> m () -scrollTo self x y = liftIO (js_scrollTo (self) x y) - -foreign import javascript unsafe "$1[\"scroll\"]($2, $3)" js_scroll - :: Window -> Int -> Int -> IO () - --- | -scroll :: (MonadIO m) => Window -> Int -> Int -> m () -scroll self x y = liftIO (js_scroll (self) x y) - -foreign import javascript unsafe "$1[\"moveBy\"]($2, $3)" js_moveBy - :: Window -> Float -> Float -> IO () - --- | -moveBy :: (MonadIO m) => Window -> Float -> Float -> m () -moveBy self x y = liftIO (js_moveBy (self) x y) - -foreign import javascript unsafe "$1[\"moveTo\"]($2, $3)" js_moveTo - :: Window -> Float -> Float -> IO () - --- | -moveTo :: (MonadIO m) => Window -> Float -> Float -> m () -moveTo self x y = liftIO (js_moveTo (self) x y) - -foreign import javascript unsafe "$1[\"resizeBy\"]($2, $3)" - js_resizeBy :: Window -> Float -> Float -> IO () - --- | -resizeBy :: (MonadIO m) => Window -> Float -> Float -> m () -resizeBy self x y = liftIO (js_resizeBy (self) x y) - -foreign import javascript unsafe "$1[\"resizeTo\"]($2, $3)" - js_resizeTo :: Window -> Float -> Float -> IO () - --- | -resizeTo :: (MonadIO m) => Window -> Float -> Float -> m () -resizeTo self width height - = liftIO (js_resizeTo (self) width height) - -foreign import javascript unsafe "$1[\"matchMedia\"]($2)" - js_matchMedia :: Window -> JSString -> IO (Nullable MediaQueryList) - --- | -matchMedia :: - (MonadIO m, ToJSString query) => - Window -> query -> m (Maybe MediaQueryList) -matchMedia self query - = liftIO - (nullableToMaybe <$> (js_matchMedia (self) (toJSString query))) - -foreign import javascript unsafe "$1[\"getComputedStyle\"]($2, $3)" - js_getComputedStyle :: - Window -> - Nullable Element -> - Nullable JSString -> IO (Nullable CSSStyleDeclaration) - --- | -getComputedStyle :: - (MonadIO m, IsElement element, ToJSString pseudoElement) => - Window -> - Maybe element -> - Maybe pseudoElement -> m (Maybe CSSStyleDeclaration) -getComputedStyle self element pseudoElement - = liftIO - (nullableToMaybe <$> - (js_getComputedStyle (self) - (maybeToNullable (fmap toElement element)) - (toMaybeJSString pseudoElement))) - -foreign import javascript unsafe - "$1[\"getMatchedCSSRules\"]($2, $3)" js_getMatchedCSSRules :: - Window -> - Nullable Element -> Nullable JSString -> IO (Nullable CSSRuleList) - --- | -getMatchedCSSRules :: - (MonadIO m, IsElement element, ToJSString pseudoElement) => - Window -> - Maybe element -> Maybe pseudoElement -> m (Maybe CSSRuleList) -getMatchedCSSRules self element pseudoElement - = liftIO - (nullableToMaybe <$> - (js_getMatchedCSSRules (self) - (maybeToNullable (fmap toElement element)) - (toMaybeJSString pseudoElement))) - -foreign import javascript unsafe - "$1[\"webkitConvertPointFromPageToNode\"]($2,\n$3)" - js_webkitConvertPointFromPageToNode :: - Window -> - Nullable Node -> Nullable WebKitPoint -> IO (Nullable WebKitPoint) - --- | -webkitConvertPointFromPageToNode :: - (MonadIO m, IsNode node) => - Window -> - Maybe node -> Maybe WebKitPoint -> m (Maybe WebKitPoint) -webkitConvertPointFromPageToNode self node p - = liftIO - (nullableToMaybe <$> - (js_webkitConvertPointFromPageToNode (self) - (maybeToNullable (fmap toNode node)) - (maybeToNullable p))) - -foreign import javascript unsafe - "$1[\"webkitConvertPointFromNodeToPage\"]($2,\n$3)" - js_webkitConvertPointFromNodeToPage :: - Window -> - Nullable Node -> Nullable WebKitPoint -> IO (Nullable WebKitPoint) - --- | -webkitConvertPointFromNodeToPage :: - (MonadIO m, IsNode node) => - Window -> - Maybe node -> Maybe WebKitPoint -> m (Maybe WebKitPoint) -webkitConvertPointFromNodeToPage self node p - = liftIO - (nullableToMaybe <$> - (js_webkitConvertPointFromNodeToPage (self) - (maybeToNullable (fmap toNode node)) - (maybeToNullable p))) - -foreign import javascript unsafe "$1[\"postMessage\"]($2, $3, $4)" - js_postMessage :: - Window -> - Nullable SerializedScriptValue -> - JSString -> Nullable Array -> IO () - --- | -postMessage :: - (MonadIO m, IsSerializedScriptValue message, - ToJSString targetOrigin, IsArray messagePorts) => - Window -> - Maybe message -> targetOrigin -> Maybe messagePorts -> m () -postMessage self message targetOrigin messagePorts - = liftIO - (js_postMessage (self) - (maybeToNullable (fmap toSerializedScriptValue message)) - (toJSString targetOrigin) - (maybeToNullable (fmap toArray messagePorts))) - -foreign import javascript unsafe - "$1[\"requestAnimationFrame\"]($2)" js_requestAnimationFrame :: - Window -> Nullable RequestAnimationFrameCallback -> IO Int - --- | -requestAnimationFrame :: - (MonadIO m) => - Window -> Maybe RequestAnimationFrameCallback -> m Int -requestAnimationFrame self callback - = liftIO - (js_requestAnimationFrame (self) (maybeToNullable callback)) - -foreign import javascript unsafe "$1[\"cancelAnimationFrame\"]($2)" - js_cancelAnimationFrame :: Window -> Int -> IO () - --- | -cancelAnimationFrame :: (MonadIO m) => Window -> Int -> m () -cancelAnimationFrame self id - = liftIO (js_cancelAnimationFrame (self) id) - -foreign import javascript unsafe - "$1[\"webkitRequestAnimationFrame\"]($2)" - js_webkitRequestAnimationFrame :: - Window -> Nullable RequestAnimationFrameCallback -> IO Int - --- | -webkitRequestAnimationFrame :: - (MonadIO m) => - Window -> Maybe RequestAnimationFrameCallback -> m Int -webkitRequestAnimationFrame self callback - = liftIO - (js_webkitRequestAnimationFrame (self) (maybeToNullable callback)) - -foreign import javascript unsafe - "$1[\"webkitCancelAnimationFrame\"]($2)" - js_webkitCancelAnimationFrame :: Window -> Int -> IO () - --- | -webkitCancelAnimationFrame :: (MonadIO m) => Window -> Int -> m () -webkitCancelAnimationFrame self id - = liftIO (js_webkitCancelAnimationFrame (self) id) - -foreign import javascript unsafe - "$1[\"webkitCancelRequestAnimationFrame\"]($2)" - js_webkitCancelRequestAnimationFrame :: Window -> Int -> IO () - --- | -webkitCancelRequestAnimationFrame :: - (MonadIO m) => Window -> Int -> m () -webkitCancelRequestAnimationFrame self id - = liftIO (js_webkitCancelRequestAnimationFrame (self) id) - -foreign import javascript unsafe "$1[\"captureEvents\"]()" - js_captureEvents :: Window -> IO () - --- | -captureEvents :: (MonadIO m) => Window -> m () -captureEvents self = liftIO (js_captureEvents (self)) - -foreign import javascript unsafe "$1[\"releaseEvents\"]()" - js_releaseEvents :: Window -> IO () - --- | -releaseEvents :: (MonadIO m) => Window -> m () -releaseEvents self = liftIO (js_releaseEvents (self)) - -foreign import javascript unsafe "$1[\"webkitIndexedDB\"]" - js_getWebkitIndexedDB :: Window -> IO (Nullable IDBFactory) - --- | -getWebkitIndexedDB :: (MonadIO m) => Window -> m (Maybe IDBFactory) -getWebkitIndexedDB self - = liftIO (nullableToMaybe <$> (js_getWebkitIndexedDB (self))) - -foreign import javascript unsafe "$1[\"indexedDB\"]" - js_getIndexedDB :: Window -> IO (Nullable IDBFactory) - --- | -getIndexedDB :: (MonadIO m) => Window -> m (Maybe IDBFactory) -getIndexedDB self - = liftIO (nullableToMaybe <$> (js_getIndexedDB (self))) - -foreign import javascript unsafe "$1[\"webkitStorageInfo\"]" - js_getWebkitStorageInfo :: Window -> IO (Nullable StorageInfo) - --- | -getWebkitStorageInfo :: - (MonadIO m) => Window -> m (Maybe StorageInfo) -getWebkitStorageInfo self - = liftIO (nullableToMaybe <$> (js_getWebkitStorageInfo (self))) - -foreign import javascript unsafe "$1[\"speechSynthesis\"]" - js_getSpeechSynthesis :: Window -> IO (Nullable SpeechSynthesis) - --- | -getSpeechSynthesis :: - (MonadIO m) => Window -> m (Maybe SpeechSynthesis) -getSpeechSynthesis self - = liftIO (nullableToMaybe <$> (js_getSpeechSynthesis (self))) - -foreign import javascript unsafe "$1[\"screen\"]" js_getScreen :: - Window -> IO (Nullable Screen) - --- | -getScreen :: (MonadIO m) => Window -> m (Maybe Screen) -getScreen self = liftIO (nullableToMaybe <$> (js_getScreen (self))) - -foreign import javascript unsafe "$1[\"history\"]" js_getHistory :: - Window -> IO (Nullable History) - --- | -getHistory :: (MonadIO m) => Window -> m (Maybe History) -getHistory self - = liftIO (nullableToMaybe <$> (js_getHistory (self))) - -foreign import javascript unsafe "$1[\"locationbar\"]" - js_getLocationbar :: Window -> IO (Nullable BarProp) - --- | -getLocationbar :: (MonadIO m) => Window -> m (Maybe BarProp) -getLocationbar self - = liftIO (nullableToMaybe <$> (js_getLocationbar (self))) - -foreign import javascript unsafe "$1[\"menubar\"]" js_getMenubar :: - Window -> IO (Nullable BarProp) - --- | -getMenubar :: (MonadIO m) => Window -> m (Maybe BarProp) -getMenubar self - = liftIO (nullableToMaybe <$> (js_getMenubar (self))) - -foreign import javascript unsafe "$1[\"personalbar\"]" - js_getPersonalbar :: Window -> IO (Nullable BarProp) - --- | -getPersonalbar :: (MonadIO m) => Window -> m (Maybe BarProp) -getPersonalbar self - = liftIO (nullableToMaybe <$> (js_getPersonalbar (self))) - -foreign import javascript unsafe "$1[\"scrollbars\"]" - js_getScrollbars :: Window -> IO (Nullable BarProp) - --- | -getScrollbars :: (MonadIO m) => Window -> m (Maybe BarProp) -getScrollbars self - = liftIO (nullableToMaybe <$> (js_getScrollbars (self))) - -foreign import javascript unsafe "$1[\"statusbar\"]" - js_getStatusbar :: Window -> IO (Nullable BarProp) - --- | -getStatusbar :: (MonadIO m) => Window -> m (Maybe BarProp) -getStatusbar self - = liftIO (nullableToMaybe <$> (js_getStatusbar (self))) - -foreign import javascript unsafe "$1[\"toolbar\"]" js_getToolbar :: - Window -> IO (Nullable BarProp) - --- | -getToolbar :: (MonadIO m) => Window -> m (Maybe BarProp) -getToolbar self - = liftIO (nullableToMaybe <$> (js_getToolbar (self))) - -foreign import javascript unsafe "$1[\"navigator\"]" - js_getNavigator :: Window -> IO (Nullable Navigator) - --- | -getNavigator :: (MonadIO m) => Window -> m (Maybe Navigator) -getNavigator self - = liftIO (nullableToMaybe <$> (js_getNavigator (self))) - -foreign import javascript unsafe "$1[\"clientInformation\"]" - js_getClientInformation :: Window -> IO (Nullable Navigator) - --- | -getClientInformation :: - (MonadIO m) => Window -> m (Maybe Navigator) -getClientInformation self - = liftIO (nullableToMaybe <$> (js_getClientInformation (self))) - -foreign import javascript unsafe "$1[\"crypto\"]" js_getCrypto :: - Window -> IO (Nullable Crypto) - --- | -getCrypto :: (MonadIO m) => Window -> m (Maybe Crypto) -getCrypto self = liftIO (nullableToMaybe <$> (js_getCrypto (self))) - -foreign import javascript unsafe "$1[\"location\"] = $2;" - js_setLocation :: Window -> Nullable Location -> IO () - --- | -setLocation :: (MonadIO m) => Window -> Maybe Location -> m () -setLocation self val - = liftIO (js_setLocation (self) (maybeToNullable val)) - -foreign import javascript unsafe "$1[\"location\"]" js_getLocation - :: Window -> IO (Nullable Location) - --- | -getLocation :: (MonadIO m) => Window -> m (Maybe Location) -getLocation self - = liftIO (nullableToMaybe <$> (js_getLocation (self))) - -foreign import javascript unsafe "$1[\"event\"]" js_getEvent :: - Window -> IO (Nullable Event) - --- | -getEvent :: (MonadIO m) => Window -> m (Maybe Event) -getEvent self = liftIO (nullableToMaybe <$> (js_getEvent (self))) - -foreign import javascript unsafe "$1[\"frameElement\"]" - js_getFrameElement :: Window -> IO (Nullable Element) - --- | -getFrameElement :: (MonadIO m) => Window -> m (Maybe Element) -getFrameElement self - = liftIO (nullableToMaybe <$> (js_getFrameElement (self))) - -foreign import javascript unsafe - "($1[\"offscreenBuffering\"] ? 1 : 0)" js_getOffscreenBuffering :: - Window -> IO Bool - --- | -getOffscreenBuffering :: (MonadIO m) => Window -> m Bool -getOffscreenBuffering self - = liftIO (js_getOffscreenBuffering (self)) - -foreign import javascript unsafe "$1[\"outerHeight\"]" - js_getOuterHeight :: Window -> IO Int - --- | -getOuterHeight :: (MonadIO m) => Window -> m Int -getOuterHeight self = liftIO (js_getOuterHeight (self)) - -foreign import javascript unsafe "$1[\"outerWidth\"]" - js_getOuterWidth :: Window -> IO Int - --- | -getOuterWidth :: (MonadIO m) => Window -> m Int -getOuterWidth self = liftIO (js_getOuterWidth (self)) - -foreign import javascript unsafe "$1[\"innerHeight\"]" - js_getInnerHeight :: Window -> IO Int - --- | -getInnerHeight :: (MonadIO m) => Window -> m Int -getInnerHeight self = liftIO (js_getInnerHeight (self)) - -foreign import javascript unsafe "$1[\"innerWidth\"]" - js_getInnerWidth :: Window -> IO Int - --- | -getInnerWidth :: (MonadIO m) => Window -> m Int -getInnerWidth self = liftIO (js_getInnerWidth (self)) - -foreign import javascript unsafe "$1[\"screenX\"]" js_getScreenX :: - Window -> IO Int - --- | -getScreenX :: (MonadIO m) => Window -> m Int -getScreenX self = liftIO (js_getScreenX (self)) - -foreign import javascript unsafe "$1[\"screenY\"]" js_getScreenY :: - Window -> IO Int - --- | -getScreenY :: (MonadIO m) => Window -> m Int -getScreenY self = liftIO (js_getScreenY (self)) - -foreign import javascript unsafe "$1[\"screenLeft\"]" - js_getScreenLeft :: Window -> IO Int - --- | -getScreenLeft :: (MonadIO m) => Window -> m Int -getScreenLeft self = liftIO (js_getScreenLeft (self)) - -foreign import javascript unsafe "$1[\"screenTop\"]" - js_getScreenTop :: Window -> IO Int - --- | -getScreenTop :: (MonadIO m) => Window -> m Int -getScreenTop self = liftIO (js_getScreenTop (self)) - -foreign import javascript unsafe "$1[\"scrollX\"]" js_getScrollX :: - Window -> IO Int - --- | -getScrollX :: (MonadIO m) => Window -> m Int -getScrollX self = liftIO (js_getScrollX (self)) - -foreign import javascript unsafe "$1[\"scrollY\"]" js_getScrollY :: - Window -> IO Int - --- | -getScrollY :: (MonadIO m) => Window -> m Int -getScrollY self = liftIO (js_getScrollY (self)) - -foreign import javascript unsafe "$1[\"pageXOffset\"]" - js_getPageXOffset :: Window -> IO Int - --- | -getPageXOffset :: (MonadIO m) => Window -> m Int -getPageXOffset self = liftIO (js_getPageXOffset (self)) - -foreign import javascript unsafe "$1[\"pageYOffset\"]" - js_getPageYOffset :: Window -> IO Int - --- | -getPageYOffset :: (MonadIO m) => Window -> m Int -getPageYOffset self = liftIO (js_getPageYOffset (self)) - -foreign import javascript unsafe "($1[\"closed\"] ? 1 : 0)" - js_getClosed :: Window -> IO Bool - --- | -getClosed :: (MonadIO m) => Window -> m Bool -getClosed self = liftIO (js_getClosed (self)) - -foreign import javascript unsafe "$1[\"length\"]" js_getLength :: - Window -> IO Word - --- | -getLength :: (MonadIO m) => Window -> m Word -getLength self = liftIO (js_getLength (self)) - -foreign import javascript unsafe "$1[\"name\"] = $2;" js_setName :: - Window -> JSString -> IO () - --- | -setName :: (MonadIO m, ToJSString val) => Window -> val -> m () -setName self val = liftIO (js_setName (self) (toJSString val)) - -foreign import javascript unsafe "$1[\"name\"]" js_getName :: - Window -> IO JSString - --- | -getName :: (MonadIO m, FromJSString result) => Window -> m result -getName self = liftIO (fromJSString <$> (js_getName (self))) - -foreign import javascript unsafe "$1[\"status\"] = $2;" - js_setStatus :: Window -> JSString -> IO () - --- | -setStatus :: (MonadIO m, ToJSString val) => Window -> val -> m () -setStatus self val = liftIO (js_setStatus (self) (toJSString val)) - -foreign import javascript unsafe "$1[\"status\"]" js_getStatus :: - Window -> IO JSString - --- | -getStatus :: (MonadIO m, FromJSString result) => Window -> m result -getStatus self = liftIO (fromJSString <$> (js_getStatus (self))) - -foreign import javascript unsafe "$1[\"defaultStatus\"] = $2;" - js_setDefaultStatus :: Window -> JSString -> IO () - --- | -setDefaultStatus :: - (MonadIO m, ToJSString val) => Window -> val -> m () -setDefaultStatus self val - = liftIO (js_setDefaultStatus (self) (toJSString val)) - -foreign import javascript unsafe "$1[\"defaultStatus\"]" - js_getDefaultStatus :: Window -> IO JSString - --- | -getDefaultStatus :: - (MonadIO m, FromJSString result) => Window -> m result -getDefaultStatus self - = liftIO (fromJSString <$> (js_getDefaultStatus (self))) - -foreign import javascript unsafe "$1[\"defaultstatus\"] = $2;" - js_setDefaultstatus :: Window -> JSString -> IO () - --- | -setDefaultstatus :: - (MonadIO m, ToJSString val) => Window -> val -> m () -setDefaultstatus self val - = liftIO (js_setDefaultstatus (self) (toJSString val)) - -foreign import javascript unsafe "$1[\"defaultstatus\"]" - js_getDefaultstatus :: Window -> IO JSString - --- | -getDefaultstatus :: - (MonadIO m, FromJSString result) => Window -> m result -getDefaultstatus self - = liftIO (fromJSString <$> (js_getDefaultstatus (self))) - -foreign import javascript unsafe "$1[\"self\"]" js_getSelf :: - Window -> IO (Nullable Window) - --- | -getSelf :: (MonadIO m) => Window -> m (Maybe Window) -getSelf self = liftIO (nullableToMaybe <$> (js_getSelf (self))) - -foreign import javascript unsafe "$1[\"window\"]" js_getWindow :: - Window -> IO (Nullable Window) - --- | -getWindow :: (MonadIO m) => Window -> m (Maybe Window) -getWindow self = liftIO (nullableToMaybe <$> (js_getWindow (self))) - -foreign import javascript unsafe "$1[\"frames\"]" js_getFrames :: - Window -> IO (Nullable Window) - --- | -getFrames :: (MonadIO m) => Window -> m (Maybe Window) -getFrames self = liftIO (nullableToMaybe <$> (js_getFrames (self))) - -foreign import javascript unsafe "$1[\"opener\"]" js_getOpener :: - Window -> IO (Nullable Window) - --- | -getOpener :: (MonadIO m) => Window -> m (Maybe Window) -getOpener self = liftIO (nullableToMaybe <$> (js_getOpener (self))) - -foreign import javascript unsafe "$1[\"parent\"]" js_getParent :: - Window -> IO (Nullable Window) - --- | -getParent :: (MonadIO m) => Window -> m (Maybe Window) -getParent self = liftIO (nullableToMaybe <$> (js_getParent (self))) - -foreign import javascript unsafe "$1[\"top\"]" js_getTop :: - Window -> IO (Nullable Window) - --- | -getTop :: (MonadIO m) => Window -> m (Maybe Window) -getTop self = liftIO (nullableToMaybe <$> (js_getTop (self))) - -foreign import javascript unsafe "$1[\"document\"]" js_getDocument - :: Window -> IO (Nullable Document) - --- | -getDocument :: (MonadIO m) => Window -> m (Maybe Document) -getDocument self - = liftIO (nullableToMaybe <$> (js_getDocument (self))) - -foreign import javascript unsafe "$1[\"styleMedia\"]" - js_getStyleMedia :: Window -> IO (Nullable StyleMedia) - --- | -getStyleMedia :: (MonadIO m) => Window -> m (Maybe StyleMedia) -getStyleMedia self - = liftIO (nullableToMaybe <$> (js_getStyleMedia (self))) - -foreign import javascript unsafe "$1[\"devicePixelRatio\"]" - js_getDevicePixelRatio :: Window -> IO Double - --- | -getDevicePixelRatio :: (MonadIO m) => Window -> m Double -getDevicePixelRatio self = liftIO (js_getDevicePixelRatio (self)) - -foreign import javascript unsafe "$1[\"applicationCache\"]" - js_getApplicationCache :: Window -> IO (Nullable ApplicationCache) - --- | -getApplicationCache :: - (MonadIO m) => Window -> m (Maybe ApplicationCache) -getApplicationCache self - = liftIO (nullableToMaybe <$> (js_getApplicationCache (self))) - -foreign import javascript unsafe "$1[\"sessionStorage\"]" - js_getSessionStorage :: Window -> IO (Nullable Storage) - --- | -getSessionStorage :: (MonadIO m) => Window -> m (Maybe Storage) -getSessionStorage self - = liftIO (nullableToMaybe <$> (js_getSessionStorage (self))) - -foreign import javascript unsafe "$1[\"localStorage\"]" - js_getLocalStorage :: Window -> IO (Nullable Storage) - --- | -getLocalStorage :: (MonadIO m) => Window -> m (Maybe Storage) -getLocalStorage self - = liftIO (nullableToMaybe <$> (js_getLocalStorage (self))) - -foreign import javascript unsafe "$1[\"orientation\"]" - js_getOrientation :: Window -> IO Int - --- | -getOrientation :: (MonadIO m) => Window -> m Int -getOrientation self = liftIO (js_getOrientation (self)) - -foreign import javascript unsafe "$1[\"performance\"]" - js_getPerformance :: Window -> IO (Nullable Performance) - --- | -getPerformance :: (MonadIO m) => Window -> m (Maybe Performance) -getPerformance self - = liftIO (nullableToMaybe <$> (js_getPerformance (self))) - -foreign import javascript unsafe "$1[\"CSS\"]" js_getCSS :: - Window -> IO (Nullable CSS) - --- | -getCSS :: (MonadIO m) => Window -> m (Maybe CSS) -getCSS self = liftIO (nullableToMaybe <$> (js_getCSS (self))) - --- | -abort :: EventName Window UIEvent -abort = unsafeEventName (toJSString "abort") - --- | -beforeUnload :: EventName Window BeforeUnloadEvent -beforeUnload = unsafeEventName (toJSString "beforeunload") - --- | -blurEvent :: EventName Window FocusEvent -blurEvent = unsafeEventName (toJSString "blur") - --- | -canPlay :: EventName Window Event -canPlay = unsafeEventName (toJSString "canplay") - --- | -canPlayThrough :: EventName Window Event -canPlayThrough = unsafeEventName (toJSString "canplaythrough") - --- | -change :: EventName Window Event -change = unsafeEventName (toJSString "change") - --- | -click :: EventName Window MouseEvent -click = unsafeEventName (toJSString "click") - --- | -contextMenu :: EventName Window MouseEvent -contextMenu = unsafeEventName (toJSString "contextmenu") - --- | -dblClick :: EventName Window MouseEvent -dblClick = unsafeEventName (toJSString "dblclick") - --- | -drag :: EventName Window MouseEvent -drag = unsafeEventName (toJSString "drag") - --- | -dragEnd :: EventName Window MouseEvent -dragEnd = unsafeEventName (toJSString "dragend") - --- | -dragEnter :: EventName Window MouseEvent -dragEnter = unsafeEventName (toJSString "dragenter") - --- | -dragLeave :: EventName Window MouseEvent -dragLeave = unsafeEventName (toJSString "dragleave") - --- | -dragOver :: EventName Window MouseEvent -dragOver = unsafeEventName (toJSString "dragover") - --- | -dragStart :: EventName Window MouseEvent -dragStart = unsafeEventName (toJSString "dragstart") - --- | -drop :: EventName Window MouseEvent -drop = unsafeEventName (toJSString "drop") - --- | -durationChange :: EventName Window Event -durationChange = unsafeEventName (toJSString "durationchange") - --- | -emptied :: EventName Window Event -emptied = unsafeEventName (toJSString "emptied") - --- | -ended :: EventName Window Event -ended = unsafeEventName (toJSString "ended") - --- | -error :: EventName Window UIEvent -error = unsafeEventName (toJSString "error") - --- | -focusEvent :: EventName Window FocusEvent -focusEvent = unsafeEventName (toJSString "focus") - --- | -hashChange :: EventName Window HashChangeEvent -hashChange = unsafeEventName (toJSString "hashchange") - --- | -input :: EventName Window Event -input = unsafeEventName (toJSString "input") - --- | -invalid :: EventName Window Event -invalid = unsafeEventName (toJSString "invalid") - --- | -keyDown :: EventName Window KeyboardEvent -keyDown = unsafeEventName (toJSString "keydown") - --- | -keyPress :: EventName Window KeyboardEvent -keyPress = unsafeEventName (toJSString "keypress") - --- | -keyUp :: EventName Window KeyboardEvent -keyUp = unsafeEventName (toJSString "keyup") - --- | -load :: EventName Window UIEvent -load = unsafeEventName (toJSString "load") - --- | -loadedData :: EventName Window Event -loadedData = unsafeEventName (toJSString "loadeddata") - --- | -loadedMetadata :: EventName Window Event -loadedMetadata = unsafeEventName (toJSString "loadedmetadata") - --- | -loadStart :: EventName Window ProgressEvent -loadStart = unsafeEventName (toJSString "loadstart") - --- | -message :: EventName Window MessageEvent -message = unsafeEventName (toJSString "message") - --- | -mouseDown :: EventName Window MouseEvent -mouseDown = unsafeEventName (toJSString "mousedown") - --- | -mouseEnter :: EventName Window MouseEvent -mouseEnter = unsafeEventName (toJSString "mouseenter") - --- | -mouseLeave :: EventName Window MouseEvent -mouseLeave = unsafeEventName (toJSString "mouseleave") - --- | -mouseMove :: EventName Window MouseEvent -mouseMove = unsafeEventName (toJSString "mousemove") - --- | -mouseOut :: EventName Window MouseEvent -mouseOut = unsafeEventName (toJSString "mouseout") - --- | -mouseOver :: EventName Window MouseEvent -mouseOver = unsafeEventName (toJSString "mouseover") - --- | -mouseUp :: EventName Window MouseEvent -mouseUp = unsafeEventName (toJSString "mouseup") - --- | -mouseWheel :: EventName Window MouseEvent -mouseWheel = unsafeEventName (toJSString "mousewheel") - --- | -offline :: EventName Window Event -offline = unsafeEventName (toJSString "offline") - --- | -online :: EventName Window Event -online = unsafeEventName (toJSString "online") - --- | -pageHide :: EventName Window PageTransitionEvent -pageHide = unsafeEventName (toJSString "pagehide") - --- | -pageShow :: EventName Window PageTransitionEvent -pageShow = unsafeEventName (toJSString "pageshow") - --- | -pause :: EventName Window Event -pause = unsafeEventName (toJSString "pause") - --- | -play :: EventName Window Event -play = unsafeEventName (toJSString "play") - --- | -playing :: EventName Window Event -playing = unsafeEventName (toJSString "playing") - --- | -popState :: EventName Window PopStateEvent -popState = unsafeEventName (toJSString "popstate") - --- | -progress :: EventName Window ProgressEvent -progress = unsafeEventName (toJSString "progress") - --- | -rateChange :: EventName Window Event -rateChange = unsafeEventName (toJSString "ratechange") - --- | -resize :: EventName Window UIEvent -resize = unsafeEventName (toJSString "resize") - --- | -scrollEvent :: EventName Window UIEvent -scrollEvent = unsafeEventName (toJSString "scroll") - --- | -seeked :: EventName Window Event -seeked = unsafeEventName (toJSString "seeked") - --- | -seeking :: EventName Window Event -seeking = unsafeEventName (toJSString "seeking") - --- | -select :: EventName Window UIEvent -select = unsafeEventName (toJSString "select") - --- | -stalled :: EventName Window Event -stalled = unsafeEventName (toJSString "stalled") - --- | -storage :: EventName Window StorageEvent -storage = unsafeEventName (toJSString "storage") - --- | -submit :: EventName Window Event -submit = unsafeEventName (toJSString "submit") - --- | -suspend :: EventName Window Event -suspend = unsafeEventName (toJSString "suspend") - --- | -timeUpdate :: EventName Window Event -timeUpdate = unsafeEventName (toJSString "timeupdate") - --- | -unload :: EventName Window UIEvent -unload = unsafeEventName (toJSString "unload") - --- | -volumeChange :: EventName Window Event -volumeChange = unsafeEventName (toJSString "volumechange") - --- | -waiting :: EventName Window Event -waiting = unsafeEventName (toJSString "waiting") - --- | -wheel :: EventName Window WheelEvent -wheel = unsafeEventName (toJSString "wheel") - --- | -reset :: EventName Window Event -reset = unsafeEventName (toJSString "reset") - --- | -search :: EventName Window Event -search = unsafeEventName (toJSString "search") - --- | -webKitAnimationEnd :: EventName Window AnimationEvent -webKitAnimationEnd - = unsafeEventName (toJSString "webkitanimationend") - --- | -webKitAnimationIteration :: EventName Window AnimationEvent -webKitAnimationIteration - = unsafeEventName (toJSString "webkitanimationiteration") - --- | -webKitAnimationStart :: EventName Window AnimationEvent -webKitAnimationStart - = unsafeEventName (toJSString "webkitanimationstart") - --- | -animationEnd :: EventName Window AnimationEvent -animationEnd = unsafeEventName (toJSString "animationend") - --- | -animationIteration :: EventName Window AnimationEvent -animationIteration - = unsafeEventName (toJSString "animationiteration") - --- | -animationStart :: EventName Window AnimationEvent -animationStart = unsafeEventName (toJSString "animationstart") - --- | -webKitTransitionEnd :: EventName Window TransitionEvent -webKitTransitionEnd - = unsafeEventName (toJSString "webkittransitionend") - --- | -transitionEnd :: EventName Window TransitionEvent -transitionEnd = unsafeEventName (toJSString "transitionend") - --- | -orientationChange :: EventName Window Event -orientationChange - = unsafeEventName (toJSString "orientationchange") - --- | -touchStart :: EventName Window TouchEvent -touchStart = unsafeEventName (toJSString "touchstart") - --- | -touchMove :: EventName Window TouchEvent -touchMove = unsafeEventName (toJSString "touchmove") - --- | -touchEnd :: EventName Window TouchEvent -touchEnd = unsafeEventName (toJSString "touchend") - --- | -touchCancel :: EventName Window TouchEvent -touchCancel = unsafeEventName (toJSString "touchcancel") - --- | -gestureStart :: EventName Window UIEvent -gestureStart = unsafeEventName (toJSString "gesturestart") - --- | -gestureChange :: EventName Window UIEvent -gestureChange = unsafeEventName (toJSString "gesturechange") - --- | -gestureEnd :: EventName Window UIEvent -gestureEnd = unsafeEventName (toJSString "gestureend") - --- | -deviceMotion :: EventName Window DeviceMotionEvent -deviceMotion = unsafeEventName (toJSString "devicemotion") - --- | -deviceOrientation :: EventName Window DeviceOrientationEvent -deviceOrientation - = unsafeEventName (toJSString "deviceorientation") - --- | -webKitDeviceProximity :: EventName Window DeviceProximityEvent -webKitDeviceProximity - = unsafeEventName (toJSString "webkitdeviceproximity") - --- | -webKitWillRevealBottom :: EventName Window Event -webKitWillRevealBottom - = unsafeEventName (toJSString "webkitwillrevealbottom") - --- | -webKitWillRevealLeft :: EventName Window Event -webKitWillRevealLeft - = unsafeEventName (toJSString "webkitwillrevealleft") - --- | -webKitWillRevealRight :: EventName Window Event -webKitWillRevealRight - = unsafeEventName (toJSString "webkitwillrevealright") - --- | -webKitWillRevealTop :: EventName Window Event -webKitWillRevealTop - = unsafeEventName (toJSString "webkitwillrevealtop") diff --git a/src/GHCJS/DOM/JSFFI/Generated/WindowBase64.hs b/src/GHCJS/DOM/JSFFI/Generated/WindowBase64.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/WindowBase64.hs +++ /dev/null @@ -1,39 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.WindowBase64 - (js_atob, atob, js_btoa, btoa, WindowBase64, castToWindowBase64, - gTypeWindowBase64) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"atob\"]($2)" js_atob :: - WindowBase64 -> JSString -> IO JSString - --- | -atob :: - (MonadIO m, ToJSString string, FromJSString result) => - WindowBase64 -> string -> m result -atob self string - = liftIO (fromJSString <$> (js_atob (self) (toJSString string))) - -foreign import javascript unsafe "$1[\"btoa\"]($2)" js_btoa :: - WindowBase64 -> JSString -> IO JSString - --- | -btoa :: - (MonadIO m, ToJSString string, FromJSString result) => - WindowBase64 -> string -> m result -btoa self string - = liftIO (fromJSString <$> (js_btoa (self) (toJSString string))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/WindowTimers.hs b/src/GHCJS/DOM/JSFFI/Generated/WindowTimers.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/WindowTimers.hs +++ /dev/null @@ -1,50 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.WindowTimers - (js_setTimeout, setTimeout, js_clearTimeout, clearTimeout, - js_setInterval, setInterval, js_clearInterval, clearInterval, - WindowTimers, castToWindowTimers, gTypeWindowTimers) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"setTimeout\"]($2, $3)" - js_setTimeout :: WindowTimers -> JSVal -> Int -> IO Int - --- | -setTimeout :: (MonadIO m) => WindowTimers -> JSVal -> Int -> m Int -setTimeout self handler timeout - = liftIO (js_setTimeout (self) handler timeout) - -foreign import javascript unsafe "$1[\"clearTimeout\"]($2)" - js_clearTimeout :: WindowTimers -> Int -> IO () - --- | -clearTimeout :: (MonadIO m) => WindowTimers -> Int -> m () -clearTimeout self handle = liftIO (js_clearTimeout (self) handle) - -foreign import javascript unsafe "$1[\"setInterval\"]($2, $3)" - js_setInterval :: WindowTimers -> JSVal -> Int -> IO Int - --- | -setInterval :: (MonadIO m) => WindowTimers -> JSVal -> Int -> m Int -setInterval self handler timeout - = liftIO (js_setInterval (self) handler timeout) - -foreign import javascript unsafe "$1[\"clearInterval\"]($2)" - js_clearInterval :: WindowTimers -> Int -> IO () - --- | -clearInterval :: (MonadIO m) => WindowTimers -> Int -> m () -clearInterval self handle = liftIO (js_clearInterval (self) handle) diff --git a/src/GHCJS/DOM/JSFFI/Generated/Worker.hs b/src/GHCJS/DOM/JSFFI/Generated/Worker.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/Worker.hs +++ /dev/null @@ -1,54 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.Worker - (js_newWorker, newWorker, js_postMessage, postMessage, - js_terminate, terminate, message, Worker, castToWorker, - gTypeWorker) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "new window[\"Worker\"]($1)" - js_newWorker :: JSString -> IO Worker - --- | -newWorker :: - (MonadIO m, ToJSString scriptUrl) => scriptUrl -> m Worker -newWorker scriptUrl = liftIO (js_newWorker (toJSString scriptUrl)) - -foreign import javascript unsafe "$1[\"postMessage\"]($2, $3)" - js_postMessage :: - Worker -> Nullable SerializedScriptValue -> Nullable Array -> IO () - --- | -postMessage :: - (MonadIO m, IsSerializedScriptValue message, - IsArray messagePorts) => - Worker -> Maybe message -> Maybe messagePorts -> m () -postMessage self message messagePorts - = liftIO - (js_postMessage (self) - (maybeToNullable (fmap toSerializedScriptValue message)) - (maybeToNullable (fmap toArray messagePorts))) - -foreign import javascript unsafe "$1[\"terminate\"]()" js_terminate - :: Worker -> IO () - --- | -terminate :: (MonadIO m) => Worker -> m () -terminate self = liftIO (js_terminate (self)) - --- | -message :: EventName Worker MessageEvent -message = unsafeEventName (toJSString "message") diff --git a/src/GHCJS/DOM/JSFFI/Generated/WorkerGlobalScope.hs b/src/GHCJS/DOM/JSFFI/Generated/WorkerGlobalScope.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/WorkerGlobalScope.hs +++ /dev/null @@ -1,90 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.WorkerGlobalScope - (js_close, close, js_importScripts, importScripts, js_getSelf, - getSelf, js_getLocation, getLocation, error, offline, online, - js_getNavigator, getNavigator, WorkerGlobalScope, - castToWorkerGlobalScope, gTypeWorkerGlobalScope, - IsWorkerGlobalScope, toWorkerGlobalScope) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"close\"]()" js_close :: - WorkerGlobalScope -> IO () - --- | -close :: (MonadIO m, IsWorkerGlobalScope self) => self -> m () -close self = liftIO (js_close (toWorkerGlobalScope self)) - -foreign import javascript unsafe "$1[\"importScripts\"]()" - js_importScripts :: WorkerGlobalScope -> IO () - --- | -importScripts :: - (MonadIO m, IsWorkerGlobalScope self) => self -> m () -importScripts self - = liftIO (js_importScripts (toWorkerGlobalScope self)) - -foreign import javascript unsafe "$1[\"self\"]" js_getSelf :: - WorkerGlobalScope -> IO (Nullable WorkerGlobalScope) - --- | -getSelf :: - (MonadIO m, IsWorkerGlobalScope self) => - self -> m (Maybe WorkerGlobalScope) -getSelf self - = liftIO - (nullableToMaybe <$> (js_getSelf (toWorkerGlobalScope self))) - -foreign import javascript unsafe "$1[\"location\"]" js_getLocation - :: WorkerGlobalScope -> IO (Nullable WorkerLocation) - --- | -getLocation :: - (MonadIO m, IsWorkerGlobalScope self) => - self -> m (Maybe WorkerLocation) -getLocation self - = liftIO - (nullableToMaybe <$> (js_getLocation (toWorkerGlobalScope self))) - --- | -error :: - (IsWorkerGlobalScope self, IsEventTarget self) => - EventName self UIEvent -error = unsafeEventName (toJSString "error") - --- | -offline :: - (IsWorkerGlobalScope self, IsEventTarget self) => - EventName self Event -offline = unsafeEventName (toJSString "offline") - --- | -online :: - (IsWorkerGlobalScope self, IsEventTarget self) => - EventName self Event -online = unsafeEventName (toJSString "online") - -foreign import javascript unsafe "$1[\"navigator\"]" - js_getNavigator :: - WorkerGlobalScope -> IO (Nullable WorkerNavigator) - --- | -getNavigator :: - (MonadIO m, IsWorkerGlobalScope self) => - self -> m (Maybe WorkerNavigator) -getNavigator self - = liftIO - (nullableToMaybe <$> (js_getNavigator (toWorkerGlobalScope self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/WorkerLocation.hs b/src/GHCJS/DOM/JSFFI/Generated/WorkerLocation.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/WorkerLocation.hs +++ /dev/null @@ -1,97 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.WorkerLocation - (js_toString, toString, js_getHref, getHref, js_getProtocol, - getProtocol, js_getHost, getHost, js_getHostname, getHostname, - js_getPort, getPort, js_getPathname, getPathname, js_getSearch, - getSearch, js_getHash, getHash, WorkerLocation, - castToWorkerLocation, gTypeWorkerLocation) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"toString\"]()" js_toString - :: WorkerLocation -> IO JSString - --- | -toString :: - (MonadIO m, FromJSString result) => WorkerLocation -> m result -toString self = liftIO (fromJSString <$> (js_toString (self))) - -foreign import javascript unsafe "$1[\"href\"]" js_getHref :: - WorkerLocation -> IO JSString - --- | -getHref :: - (MonadIO m, FromJSString result) => WorkerLocation -> m result -getHref self = liftIO (fromJSString <$> (js_getHref (self))) - -foreign import javascript unsafe "$1[\"protocol\"]" js_getProtocol - :: WorkerLocation -> IO JSString - --- | -getProtocol :: - (MonadIO m, FromJSString result) => WorkerLocation -> m result -getProtocol self - = liftIO (fromJSString <$> (js_getProtocol (self))) - -foreign import javascript unsafe "$1[\"host\"]" js_getHost :: - WorkerLocation -> IO JSString - --- | -getHost :: - (MonadIO m, FromJSString result) => WorkerLocation -> m result -getHost self = liftIO (fromJSString <$> (js_getHost (self))) - -foreign import javascript unsafe "$1[\"hostname\"]" js_getHostname - :: WorkerLocation -> IO JSString - --- | -getHostname :: - (MonadIO m, FromJSString result) => WorkerLocation -> m result -getHostname self - = liftIO (fromJSString <$> (js_getHostname (self))) - -foreign import javascript unsafe "$1[\"port\"]" js_getPort :: - WorkerLocation -> IO JSString - --- | -getPort :: - (MonadIO m, FromJSString result) => WorkerLocation -> m result -getPort self = liftIO (fromJSString <$> (js_getPort (self))) - -foreign import javascript unsafe "$1[\"pathname\"]" js_getPathname - :: WorkerLocation -> IO JSString - --- | -getPathname :: - (MonadIO m, FromJSString result) => WorkerLocation -> m result -getPathname self - = liftIO (fromJSString <$> (js_getPathname (self))) - -foreign import javascript unsafe "$1[\"search\"]" js_getSearch :: - WorkerLocation -> IO JSString - --- | -getSearch :: - (MonadIO m, FromJSString result) => WorkerLocation -> m result -getSearch self = liftIO (fromJSString <$> (js_getSearch (self))) - -foreign import javascript unsafe "$1[\"hash\"]" js_getHash :: - WorkerLocation -> IO JSString - --- | -getHash :: - (MonadIO m, FromJSString result) => WorkerLocation -> m result -getHash self = liftIO (fromJSString <$> (js_getHash (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/WorkerNavigator.hs b/src/GHCJS/DOM/JSFFI/Generated/WorkerNavigator.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/WorkerNavigator.hs +++ /dev/null @@ -1,87 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.WorkerNavigator - (js_getWebkitTemporaryStorage, getWebkitTemporaryStorage, - js_getWebkitPersistentStorage, getWebkitPersistentStorage, - js_getAppName, getAppName, js_getAppVersion, getAppVersion, - js_getPlatform, getPlatform, js_getUserAgent, getUserAgent, - js_getOnLine, getOnLine, WorkerNavigator, castToWorkerNavigator, - gTypeWorkerNavigator) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"webkitTemporaryStorage\"]" - js_getWebkitTemporaryStorage :: - WorkerNavigator -> IO (Nullable StorageQuota) - --- | -getWebkitTemporaryStorage :: - (MonadIO m) => WorkerNavigator -> m (Maybe StorageQuota) -getWebkitTemporaryStorage self - = liftIO - (nullableToMaybe <$> (js_getWebkitTemporaryStorage (self))) - -foreign import javascript unsafe "$1[\"webkitPersistentStorage\"]" - js_getWebkitPersistentStorage :: - WorkerNavigator -> IO (Nullable StorageQuota) - --- | -getWebkitPersistentStorage :: - (MonadIO m) => WorkerNavigator -> m (Maybe StorageQuota) -getWebkitPersistentStorage self - = liftIO - (nullableToMaybe <$> (js_getWebkitPersistentStorage (self))) - -foreign import javascript unsafe "$1[\"appName\"]" js_getAppName :: - WorkerNavigator -> IO JSString - --- | -getAppName :: - (MonadIO m, FromJSString result) => WorkerNavigator -> m result -getAppName self = liftIO (fromJSString <$> (js_getAppName (self))) - -foreign import javascript unsafe "$1[\"appVersion\"]" - js_getAppVersion :: WorkerNavigator -> IO JSString - --- | -getAppVersion :: - (MonadIO m, FromJSString result) => WorkerNavigator -> m result -getAppVersion self - = liftIO (fromJSString <$> (js_getAppVersion (self))) - -foreign import javascript unsafe "$1[\"platform\"]" js_getPlatform - :: WorkerNavigator -> IO JSString - --- | -getPlatform :: - (MonadIO m, FromJSString result) => WorkerNavigator -> m result -getPlatform self - = liftIO (fromJSString <$> (js_getPlatform (self))) - -foreign import javascript unsafe "$1[\"userAgent\"]" - js_getUserAgent :: WorkerNavigator -> IO JSString - --- | -getUserAgent :: - (MonadIO m, FromJSString result) => WorkerNavigator -> m result -getUserAgent self - = liftIO (fromJSString <$> (js_getUserAgent (self))) - -foreign import javascript unsafe "($1[\"onLine\"] ? 1 : 0)" - js_getOnLine :: WorkerNavigator -> IO Bool - --- | -getOnLine :: (MonadIO m) => WorkerNavigator -> m Bool -getOnLine self = liftIO (js_getOnLine (self)) diff --git a/src/GHCJS/DOM/JSFFI/Generated/XMLHttpRequest.hs b/src/GHCJS/DOM/JSFFI/Generated/XMLHttpRequest.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/XMLHttpRequest.hs +++ /dev/null @@ -1,268 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.XMLHttpRequest - (js_newXMLHttpRequest, newXMLHttpRequest, js_open, open, - js_setRequestHeader, setRequestHeader, js_send, send, js_abort, - abort, js_getAllResponseHeaders, getAllResponseHeaders, - js_getResponseHeader, getResponseHeader, js_overrideMimeType, - overrideMimeType, pattern UNSENT, pattern OPENED, - pattern HEADERS_RECEIVED, pattern LOADING, pattern DONE, - abortEvent, error, load, loadEnd, loadStart, progress, timeout, - readyStateChange, js_setTimeout, setTimeout, js_getTimeout, - getTimeout, js_getReadyState, getReadyState, js_setWithCredentials, - setWithCredentials, js_getWithCredentials, getWithCredentials, - js_getUpload, getUpload, js_getResponseText, getResponseText, - js_getResponseXML, getResponseXML, js_setResponseType, - setResponseType, js_getResponseType, getResponseType, - js_getResponse, getResponse, js_getStatus, getStatus, - js_getStatusText, getStatusText, js_getResponseURL, getResponseURL, - XMLHttpRequest, castToXMLHttpRequest, gTypeXMLHttpRequest) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "new window[\"XMLHttpRequest\"]()" - js_newXMLHttpRequest :: IO XMLHttpRequest - --- | -newXMLHttpRequest :: (MonadIO m) => m XMLHttpRequest -newXMLHttpRequest = liftIO (js_newXMLHttpRequest) - -foreign import javascript unsafe "$1[\"open\"]($2, $3, $4, $5, $6)" - js_open :: - XMLHttpRequest -> - JSString -> JSString -> Bool -> JSString -> JSString -> IO () - --- | -open :: - (MonadIO m, ToJSString method, ToJSString url, ToJSString user, - ToJSString password) => - XMLHttpRequest -> method -> url -> Bool -> user -> password -> m () -open self method url async user password - = liftIO - (js_open (self) (toJSString method) (toJSString url) async - (toJSString user) - (toJSString password)) - -foreign import javascript unsafe "$1[\"setRequestHeader\"]($2, $3)" - js_setRequestHeader :: - XMLHttpRequest -> JSString -> JSString -> IO () - --- | -setRequestHeader :: - (MonadIO m, ToJSString header, ToJSString value) => - XMLHttpRequest -> header -> value -> m () -setRequestHeader self header value - = liftIO - (js_setRequestHeader (self) (toJSString header) (toJSString value)) - -foreign import javascript unsafe "$1[\"send\"]()" js_send :: - XMLHttpRequest -> IO () - --- | -send :: (MonadIO m) => XMLHttpRequest -> m () -send self = liftIO (js_send (self)) - -foreign import javascript unsafe "$1[\"abort\"]()" js_abort :: - XMLHttpRequest -> IO () - --- | -abort :: (MonadIO m) => XMLHttpRequest -> m () -abort self = liftIO (js_abort (self)) - -foreign import javascript unsafe "$1[\"getAllResponseHeaders\"]()" - js_getAllResponseHeaders :: - XMLHttpRequest -> IO (Nullable JSString) - --- | -getAllResponseHeaders :: - (MonadIO m, FromJSString result) => - XMLHttpRequest -> m (Maybe result) -getAllResponseHeaders self - = liftIO (fromMaybeJSString <$> (js_getAllResponseHeaders (self))) - -foreign import javascript unsafe "$1[\"getResponseHeader\"]($2)" - js_getResponseHeader :: - XMLHttpRequest -> JSString -> IO (Nullable JSString) - --- | -getResponseHeader :: - (MonadIO m, ToJSString header, FromJSString result) => - XMLHttpRequest -> header -> m (Maybe result) -getResponseHeader self header - = liftIO - (fromMaybeJSString <$> - (js_getResponseHeader (self) (toJSString header))) - -foreign import javascript unsafe "$1[\"overrideMimeType\"]($2)" - js_overrideMimeType :: XMLHttpRequest -> JSString -> IO () - --- | -overrideMimeType :: - (MonadIO m, ToJSString override) => - XMLHttpRequest -> override -> m () -overrideMimeType self override - = liftIO (js_overrideMimeType (self) (toJSString override)) -pattern UNSENT = 0 -pattern OPENED = 1 -pattern HEADERS_RECEIVED = 2 -pattern LOADING = 3 -pattern DONE = 4 - --- | -abortEvent :: EventName XMLHttpRequest XMLHttpRequestProgressEvent -abortEvent = unsafeEventName (toJSString "abort") - --- | -error :: EventName XMLHttpRequest XMLHttpRequestProgressEvent -error = unsafeEventName (toJSString "error") - --- | -load :: EventName XMLHttpRequest XMLHttpRequestProgressEvent -load = unsafeEventName (toJSString "load") - --- | -loadEnd :: EventName XMLHttpRequest ProgressEvent -loadEnd = unsafeEventName (toJSString "loadend") - --- | -loadStart :: EventName XMLHttpRequest ProgressEvent -loadStart = unsafeEventName (toJSString "loadstart") - --- | -progress :: EventName XMLHttpRequest XMLHttpRequestProgressEvent -progress = unsafeEventName (toJSString "progress") - --- | -timeout :: EventName XMLHttpRequest ProgressEvent -timeout = unsafeEventName (toJSString "timeout") - --- | -readyStateChange :: EventName XMLHttpRequest Event -readyStateChange = unsafeEventName (toJSString "readystatechange") - -foreign import javascript unsafe "$1[\"timeout\"] = $2;" - js_setTimeout :: XMLHttpRequest -> Word -> IO () - --- | -setTimeout :: (MonadIO m) => XMLHttpRequest -> Word -> m () -setTimeout self val = liftIO (js_setTimeout (self) val) - -foreign import javascript unsafe "$1[\"timeout\"]" js_getTimeout :: - XMLHttpRequest -> IO Word - --- | -getTimeout :: (MonadIO m) => XMLHttpRequest -> m Word -getTimeout self = liftIO (js_getTimeout (self)) - -foreign import javascript unsafe "$1[\"readyState\"]" - js_getReadyState :: XMLHttpRequest -> IO Word - --- | -getReadyState :: (MonadIO m) => XMLHttpRequest -> m Word -getReadyState self = liftIO (js_getReadyState (self)) - -foreign import javascript unsafe "$1[\"withCredentials\"] = $2;" - js_setWithCredentials :: XMLHttpRequest -> Bool -> IO () - --- | -setWithCredentials :: (MonadIO m) => XMLHttpRequest -> Bool -> m () -setWithCredentials self val - = liftIO (js_setWithCredentials (self) val) - -foreign import javascript unsafe - "($1[\"withCredentials\"] ? 1 : 0)" js_getWithCredentials :: - XMLHttpRequest -> IO Bool - --- | -getWithCredentials :: (MonadIO m) => XMLHttpRequest -> m Bool -getWithCredentials self = liftIO (js_getWithCredentials (self)) - -foreign import javascript unsafe "$1[\"upload\"]" js_getUpload :: - XMLHttpRequest -> IO (Nullable XMLHttpRequestUpload) - --- | -getUpload :: - (MonadIO m) => XMLHttpRequest -> m (Maybe XMLHttpRequestUpload) -getUpload self = liftIO (nullableToMaybe <$> (js_getUpload (self))) - -foreign import javascript unsafe "$1[\"responseText\"]" - js_getResponseText :: XMLHttpRequest -> IO (Nullable JSString) - --- | -getResponseText :: - (MonadIO m, FromJSString result) => - XMLHttpRequest -> m (Maybe result) -getResponseText self - = liftIO (fromMaybeJSString <$> (js_getResponseText (self))) - -foreign import javascript unsafe "$1[\"responseXML\"]" - js_getResponseXML :: XMLHttpRequest -> IO (Nullable Document) - --- | -getResponseXML :: - (MonadIO m) => XMLHttpRequest -> m (Maybe Document) -getResponseXML self - = liftIO (nullableToMaybe <$> (js_getResponseXML (self))) - -foreign import javascript unsafe "$1[\"responseType\"] = $2;" - js_setResponseType :: XMLHttpRequest -> JSVal -> IO () - --- | -setResponseType :: - (MonadIO m) => XMLHttpRequest -> XMLHttpRequestResponseType -> m () -setResponseType self val - = liftIO (js_setResponseType (self) (pToJSVal val)) - -foreign import javascript unsafe "$1[\"responseType\"]" - js_getResponseType :: XMLHttpRequest -> IO JSVal - --- | -getResponseType :: - (MonadIO m) => XMLHttpRequest -> m XMLHttpRequestResponseType -getResponseType self - = liftIO ((js_getResponseType (self)) >>= fromJSValUnchecked) - -foreign import javascript unsafe "$1[\"response\"]" js_getResponse - :: XMLHttpRequest -> IO (Nullable GObject) - --- | -getResponse :: (MonadIO m) => XMLHttpRequest -> m (Maybe GObject) -getResponse self - = liftIO (nullableToMaybe <$> (js_getResponse (self))) - -foreign import javascript unsafe "$1[\"status\"]" js_getStatus :: - XMLHttpRequest -> IO Word - --- | -getStatus :: (MonadIO m) => XMLHttpRequest -> m Word -getStatus self = liftIO (js_getStatus (self)) - -foreign import javascript unsafe "$1[\"statusText\"]" - js_getStatusText :: XMLHttpRequest -> IO JSString - --- | -getStatusText :: - (MonadIO m, FromJSString result) => XMLHttpRequest -> m result -getStatusText self - = liftIO (fromJSString <$> (js_getStatusText (self))) - -foreign import javascript unsafe "$1[\"responseURL\"]" - js_getResponseURL :: XMLHttpRequest -> IO JSString - --- | -getResponseURL :: - (MonadIO m, FromJSString result) => XMLHttpRequest -> m result -getResponseURL self - = liftIO (fromJSString <$> (js_getResponseURL (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/XMLHttpRequestProgressEvent.hs b/src/GHCJS/DOM/JSFFI/Generated/XMLHttpRequestProgressEvent.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/XMLHttpRequestProgressEvent.hs +++ /dev/null @@ -1,36 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.XMLHttpRequestProgressEvent - (js_getPosition, getPosition, js_getTotalSize, getTotalSize, - XMLHttpRequestProgressEvent, castToXMLHttpRequestProgressEvent, - gTypeXMLHttpRequestProgressEvent) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"position\"]" js_getPosition - :: XMLHttpRequestProgressEvent -> IO Double - --- | -getPosition :: - (MonadIO m) => XMLHttpRequestProgressEvent -> m Word64 -getPosition self = liftIO (round <$> (js_getPosition (self))) - -foreign import javascript unsafe "$1[\"totalSize\"]" - js_getTotalSize :: XMLHttpRequestProgressEvent -> IO Double - --- | -getTotalSize :: - (MonadIO m) => XMLHttpRequestProgressEvent -> m Word64 -getTotalSize self = liftIO (round <$> (js_getTotalSize (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/XMLHttpRequestUpload.hs b/src/GHCJS/DOM/JSFFI/Generated/XMLHttpRequestUpload.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/XMLHttpRequestUpload.hs +++ /dev/null @@ -1,45 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.XMLHttpRequestUpload - (abort, error, load, loadEnd, loadStart, progress, - XMLHttpRequestUpload, castToXMLHttpRequestUpload, - gTypeXMLHttpRequestUpload) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - --- | -abort :: EventName XMLHttpRequestUpload XMLHttpRequestProgressEvent -abort = unsafeEventName (toJSString "abort") - --- | -error :: EventName XMLHttpRequestUpload XMLHttpRequestProgressEvent -error = unsafeEventName (toJSString "error") - --- | -load :: EventName XMLHttpRequestUpload XMLHttpRequestProgressEvent -load = unsafeEventName (toJSString "load") - --- | -loadEnd :: EventName XMLHttpRequestUpload ProgressEvent -loadEnd = unsafeEventName (toJSString "loadend") - --- | -loadStart :: EventName XMLHttpRequestUpload ProgressEvent -loadStart = unsafeEventName (toJSString "loadstart") - --- | -progress :: - EventName XMLHttpRequestUpload XMLHttpRequestProgressEvent -progress = unsafeEventName (toJSString "progress") diff --git a/src/GHCJS/DOM/JSFFI/Generated/XMLSerializer.hs b/src/GHCJS/DOM/JSFFI/Generated/XMLSerializer.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/XMLSerializer.hs +++ /dev/null @@ -1,40 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.XMLSerializer - (js_newXMLSerializer, newXMLSerializer, js_serializeToString, - serializeToString, XMLSerializer, castToXMLSerializer, - gTypeXMLSerializer) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "new window[\"XMLSerializer\"]()" - js_newXMLSerializer :: IO XMLSerializer - --- | -newXMLSerializer :: (MonadIO m) => m XMLSerializer -newXMLSerializer = liftIO (js_newXMLSerializer) - -foreign import javascript unsafe "$1[\"serializeToString\"]($2)" - js_serializeToString :: - XMLSerializer -> Nullable Node -> IO JSString - --- | -serializeToString :: - (MonadIO m, IsNode node, FromJSString result) => - XMLSerializer -> Maybe node -> m result -serializeToString self node - = liftIO - (fromJSString <$> - (js_serializeToString (self) (maybeToNullable (fmap toNode node)))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/XPathEvaluator.hs b/src/GHCJS/DOM/JSFFI/Generated/XPathEvaluator.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/XPathEvaluator.hs +++ /dev/null @@ -1,84 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.XPathEvaluator - (js_newXPathEvaluator, newXPathEvaluator, js_createExpression, - createExpression, js_createNSResolver, createNSResolver, - js_evaluate, evaluate, XPathEvaluator, castToXPathEvaluator, - gTypeXPathEvaluator) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "new window[\"XPathEvaluator\"]()" - js_newXPathEvaluator :: IO XPathEvaluator - --- | -newXPathEvaluator :: (MonadIO m) => m XPathEvaluator -newXPathEvaluator = liftIO (js_newXPathEvaluator) - -foreign import javascript unsafe "$1[\"createExpression\"]($2, $3)" - js_createExpression :: - XPathEvaluator -> - JSString -> - Nullable XPathNSResolver -> IO (Nullable XPathExpression) - --- | -createExpression :: - (MonadIO m, ToJSString expression) => - XPathEvaluator -> - expression -> Maybe XPathNSResolver -> m (Maybe XPathExpression) -createExpression self expression resolver - = liftIO - (nullableToMaybe <$> - (js_createExpression (self) (toJSString expression) - (maybeToNullable resolver))) - -foreign import javascript unsafe "$1[\"createNSResolver\"]($2)" - js_createNSResolver :: - XPathEvaluator -> Nullable Node -> IO (Nullable XPathNSResolver) - --- | -createNSResolver :: - (MonadIO m, IsNode nodeResolver) => - XPathEvaluator -> Maybe nodeResolver -> m (Maybe XPathNSResolver) -createNSResolver self nodeResolver - = liftIO - (nullableToMaybe <$> - (js_createNSResolver (self) - (maybeToNullable (fmap toNode nodeResolver)))) - -foreign import javascript unsafe - "$1[\"evaluate\"]($2, $3, $4, $5,\n$6)" js_evaluate :: - XPathEvaluator -> - JSString -> - Nullable Node -> - Nullable XPathNSResolver -> - Word -> Nullable XPathResult -> IO (Nullable XPathResult) - --- | -evaluate :: - (MonadIO m, ToJSString expression, IsNode contextNode) => - XPathEvaluator -> - expression -> - Maybe contextNode -> - Maybe XPathNSResolver -> - Word -> Maybe XPathResult -> m (Maybe XPathResult) -evaluate self expression contextNode resolver type' inResult - = liftIO - (nullableToMaybe <$> - (js_evaluate (self) (toJSString expression) - (maybeToNullable (fmap toNode contextNode)) - (maybeToNullable resolver) - type' - (maybeToNullable inResult))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/XPathExpression.hs b/src/GHCJS/DOM/JSFFI/Generated/XPathExpression.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/XPathExpression.hs +++ /dev/null @@ -1,38 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.XPathExpression - (js_evaluate, evaluate, XPathExpression, castToXPathExpression, - gTypeXPathExpression) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"evaluate\"]($2, $3, $4)" - js_evaluate :: - XPathExpression -> - Nullable Node -> - Word -> Nullable XPathResult -> IO (Nullable XPathResult) - --- | -evaluate :: - (MonadIO m, IsNode contextNode) => - XPathExpression -> - Maybe contextNode -> - Word -> Maybe XPathResult -> m (Maybe XPathResult) -evaluate self contextNode type' inResult - = liftIO - (nullableToMaybe <$> - (js_evaluate (self) (maybeToNullable (fmap toNode contextNode)) - type' - (maybeToNullable inResult))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/XPathNSResolver.hs b/src/GHCJS/DOM/JSFFI/Generated/XPathNSResolver.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/XPathNSResolver.hs +++ /dev/null @@ -1,32 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.XPathNSResolver - (js_lookupNamespaceURI, lookupNamespaceURI, XPathNSResolver, - castToXPathNSResolver, gTypeXPathNSResolver) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"lookupNamespaceURI\"]($2)" - js_lookupNamespaceURI :: - XPathNSResolver -> JSString -> IO (Nullable JSString) - --- | -lookupNamespaceURI :: - (MonadIO m, ToJSString prefix, FromJSString result) => - XPathNSResolver -> prefix -> m (Maybe result) -lookupNamespaceURI self prefix - = liftIO - (fromMaybeJSString <$> - (js_lookupNamespaceURI (self) (toJSString prefix))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/XPathResult.hs b/src/GHCJS/DOM/JSFFI/Generated/XPathResult.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/XPathResult.hs +++ /dev/null @@ -1,111 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.XPathResult - (js_iterateNext, iterateNext, js_snapshotItem, snapshotItem, - pattern ANY_TYPE, pattern NUMBER_TYPE, pattern STRING_TYPE, - pattern BOOLEAN_TYPE, pattern UNORDERED_NODE_ITERATOR_TYPE, - pattern ORDERED_NODE_ITERATOR_TYPE, - pattern UNORDERED_NODE_SNAPSHOT_TYPE, - pattern ORDERED_NODE_SNAPSHOT_TYPE, - pattern ANY_UNORDERED_NODE_TYPE, pattern FIRST_ORDERED_NODE_TYPE, - js_getResultType, getResultType, js_getNumberValue, getNumberValue, - js_getStringValue, getStringValue, js_getBooleanValue, - getBooleanValue, js_getSingleNodeValue, getSingleNodeValue, - js_getInvalidIteratorState, getInvalidIteratorState, - js_getSnapshotLength, getSnapshotLength, XPathResult, - castToXPathResult, gTypeXPathResult) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "$1[\"iterateNext\"]()" - js_iterateNext :: XPathResult -> IO (Nullable Node) - --- | -iterateNext :: (MonadIO m) => XPathResult -> m (Maybe Node) -iterateNext self - = liftIO (nullableToMaybe <$> (js_iterateNext (self))) - -foreign import javascript unsafe "$1[\"snapshotItem\"]($2)" - js_snapshotItem :: XPathResult -> Word -> IO (Nullable Node) - --- | -snapshotItem :: - (MonadIO m) => XPathResult -> Word -> m (Maybe Node) -snapshotItem self index - = liftIO (nullableToMaybe <$> (js_snapshotItem (self) index)) -pattern ANY_TYPE = 0 -pattern NUMBER_TYPE = 1 -pattern STRING_TYPE = 2 -pattern BOOLEAN_TYPE = 3 -pattern UNORDERED_NODE_ITERATOR_TYPE = 4 -pattern ORDERED_NODE_ITERATOR_TYPE = 5 -pattern UNORDERED_NODE_SNAPSHOT_TYPE = 6 -pattern ORDERED_NODE_SNAPSHOT_TYPE = 7 -pattern ANY_UNORDERED_NODE_TYPE = 8 -pattern FIRST_ORDERED_NODE_TYPE = 9 - -foreign import javascript unsafe "$1[\"resultType\"]" - js_getResultType :: XPathResult -> IO Word - --- | -getResultType :: (MonadIO m) => XPathResult -> m Word -getResultType self = liftIO (js_getResultType (self)) - -foreign import javascript unsafe "$1[\"numberValue\"]" - js_getNumberValue :: XPathResult -> IO Double - --- | -getNumberValue :: (MonadIO m) => XPathResult -> m Double -getNumberValue self = liftIO (js_getNumberValue (self)) - -foreign import javascript unsafe "$1[\"stringValue\"]" - js_getStringValue :: XPathResult -> IO JSString - --- | -getStringValue :: - (MonadIO m, FromJSString result) => XPathResult -> m result -getStringValue self - = liftIO (fromJSString <$> (js_getStringValue (self))) - -foreign import javascript unsafe "($1[\"booleanValue\"] ? 1 : 0)" - js_getBooleanValue :: XPathResult -> IO Bool - --- | -getBooleanValue :: (MonadIO m) => XPathResult -> m Bool -getBooleanValue self = liftIO (js_getBooleanValue (self)) - -foreign import javascript unsafe "$1[\"singleNodeValue\"]" - js_getSingleNodeValue :: XPathResult -> IO (Nullable Node) - --- | -getSingleNodeValue :: (MonadIO m) => XPathResult -> m (Maybe Node) -getSingleNodeValue self - = liftIO (nullableToMaybe <$> (js_getSingleNodeValue (self))) - -foreign import javascript unsafe - "($1[\"invalidIteratorState\"] ? 1 : 0)" js_getInvalidIteratorState - :: XPathResult -> IO Bool - --- | -getInvalidIteratorState :: (MonadIO m) => XPathResult -> m Bool -getInvalidIteratorState self - = liftIO (js_getInvalidIteratorState (self)) - -foreign import javascript unsafe "$1[\"snapshotLength\"]" - js_getSnapshotLength :: XPathResult -> IO Word - --- | -getSnapshotLength :: (MonadIO m) => XPathResult -> m Word -getSnapshotLength self = liftIO (js_getSnapshotLength (self)) diff --git a/src/GHCJS/DOM/JSFFI/Generated/XSLTProcessor.hs b/src/GHCJS/DOM/JSFFI/Generated/XSLTProcessor.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Generated/XSLTProcessor.hs +++ /dev/null @@ -1,131 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Generated.XSLTProcessor - (js_newXSLTProcessor, newXSLTProcessor, js_importStylesheet, - importStylesheet, js_transformToFragment, transformToFragment, - js_transformToDocument, transformToDocument, js_setParameter, - setParameter, js_getParameter, getParameter, js_removeParameter, - removeParameter, js_clearParameters, clearParameters, js_reset, - reset, XSLTProcessor, castToXSLTProcessor, gTypeXSLTProcessor) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) -import Data.Typeable (Typeable) -import GHCJS.Types (JSVal(..), JSString) -import GHCJS.Foreign (jsNull) -import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import GHCJS.DOM.Types -import Control.Applicative ((<$>)) -import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) -import GHCJS.DOM.Enums - -foreign import javascript unsafe "new window[\"XSLTProcessor\"]()" - js_newXSLTProcessor :: IO XSLTProcessor - --- | -newXSLTProcessor :: (MonadIO m) => m XSLTProcessor -newXSLTProcessor = liftIO (js_newXSLTProcessor) - -foreign import javascript unsafe "$1[\"importStylesheet\"]($2)" - js_importStylesheet :: XSLTProcessor -> Nullable Node -> IO () - --- | -importStylesheet :: - (MonadIO m, IsNode stylesheet) => - XSLTProcessor -> Maybe stylesheet -> m () -importStylesheet self stylesheet - = liftIO - (js_importStylesheet (self) - (maybeToNullable (fmap toNode stylesheet))) - -foreign import javascript unsafe - "$1[\"transformToFragment\"]($2,\n$3)" js_transformToFragment :: - XSLTProcessor -> - Nullable Node -> - Nullable Document -> IO (Nullable DocumentFragment) - --- | -transformToFragment :: - (MonadIO m, IsNode source, IsDocument docVal) => - XSLTProcessor -> - Maybe source -> Maybe docVal -> m (Maybe DocumentFragment) -transformToFragment self source docVal - = liftIO - (nullableToMaybe <$> - (js_transformToFragment (self) - (maybeToNullable (fmap toNode source)) - (maybeToNullable (fmap toDocument docVal)))) - -foreign import javascript unsafe "$1[\"transformToDocument\"]($2)" - js_transformToDocument :: - XSLTProcessor -> Nullable Node -> IO (Nullable Document) - --- | -transformToDocument :: - (MonadIO m, IsNode source) => - XSLTProcessor -> Maybe source -> m (Maybe Document) -transformToDocument self source - = liftIO - (nullableToMaybe <$> - (js_transformToDocument (self) - (maybeToNullable (fmap toNode source)))) - -foreign import javascript unsafe "$1[\"setParameter\"]($2, $3, $4)" - js_setParameter :: - XSLTProcessor -> JSString -> JSString -> JSString -> IO () - --- | -setParameter :: - (MonadIO m, ToJSString namespaceURI, ToJSString localName, - ToJSString value) => - XSLTProcessor -> namespaceURI -> localName -> value -> m () -setParameter self namespaceURI localName value - = liftIO - (js_setParameter (self) (toJSString namespaceURI) - (toJSString localName) - (toJSString value)) - -foreign import javascript unsafe "$1[\"getParameter\"]($2, $3)" - js_getParameter :: - XSLTProcessor -> JSString -> JSString -> IO (Nullable JSString) - --- | -getParameter :: - (MonadIO m, ToJSString namespaceURI, ToJSString localName, - FromJSString result) => - XSLTProcessor -> namespaceURI -> localName -> m (Maybe result) -getParameter self namespaceURI localName - = liftIO - (fromMaybeJSString <$> - (js_getParameter (self) (toJSString namespaceURI) - (toJSString localName))) - -foreign import javascript unsafe "$1[\"removeParameter\"]($2, $3)" - js_removeParameter :: - XSLTProcessor -> JSString -> JSString -> IO () - --- | -removeParameter :: - (MonadIO m, ToJSString namespaceURI, ToJSString localName) => - XSLTProcessor -> namespaceURI -> localName -> m () -removeParameter self namespaceURI localName - = liftIO - (js_removeParameter (self) (toJSString namespaceURI) - (toJSString localName)) - -foreign import javascript unsafe "$1[\"clearParameters\"]()" - js_clearParameters :: XSLTProcessor -> IO () - --- | -clearParameters :: (MonadIO m) => XSLTProcessor -> m () -clearParameters self = liftIO (js_clearParameters (self)) - -foreign import javascript unsafe "$1[\"reset\"]()" js_reset :: - XSLTProcessor -> IO () - --- | -reset :: (MonadIO m) => XSLTProcessor -> m () -reset self = liftIO (js_reset (self)) diff --git a/src/GHCJS/DOM/JSFFI/Geolocation.hs b/src/GHCJS/DOM/JSFFI/Geolocation.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Geolocation.hs +++ /dev/null @@ -1,34 +0,0 @@ -{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI, GHCForeignImportPrim, - UnboxedTuples, MagicHash, UnliftedFFITypes, LambdaCase #-} -module GHCJS.DOM.JSFFI.Geolocation ( - module Generated - , js_getCurrentPosition - , getCurrentPosition' - , getCurrentPosition -) where - -import GHC.Base (IO(..)) -import GHC.Prim (RealWorld, State#, ByteArray#) - -import Control.Monad.IO.Class (MonadIO(..)) - -import GHCJS.Prim (JSVal(..)) -import GHCJS.DOM.Types - -import GHCJS.DOM.JSFFI.PositionError (throwPositionException) -import GHCJS.DOM.JSFFI.Generated.Geolocation as Generated hiding (js_getCurrentPosition, getCurrentPosition) - -foreign import javascript interruptible - "$1[\"getCurrentPosition\"](function(pos) { $c(true, pos); }, function(e) { $c(false, e); }, $2);" js_getCurrentPosition :: - Geolocation -> Nullable PositionOptions -> State# RealWorld -> (# State# RealWorld, Bool, ByteArray# #) - --- | -getCurrentPosition' :: MonadIO m => Geolocation -> Maybe PositionOptions -> m (Either PositionError Geoposition) -getCurrentPosition' self options = liftIO . IO $ \s# -> - case js_getCurrentPosition self (maybeToNullable options) s# of - (# s2#, False, error #) -> (# s2#, Left (PositionError (JSVal error)) #) - (# s2#, True, pos #) -> (# s2#, Right (Geoposition (JSVal pos )) #) - --- | -getCurrentPosition :: MonadIO m => Geolocation -> Maybe PositionOptions -> m Geoposition -getCurrentPosition self options = getCurrentPosition' self options >>= either throwPositionException return diff --git a/src/GHCJS/DOM/JSFFI/MediaStreamTrack.hs b/src/GHCJS/DOM/JSFFI/MediaStreamTrack.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/MediaStreamTrack.hs +++ /dev/null @@ -1,24 +0,0 @@ -{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.MediaStreamTrack ( - module Generated - , js_getSources - , getSources -) where - -import Control.Monad.IO.Class (MonadIO(..)) - -import GHCJS.Types (JSVal) -import GHCJS.Marshal (fromJSValUnchecked) -import GHCJS.DOM.Types - -import GHCJS.DOM.JSFFI.Generated.MediaStreamTrack as Generated hiding (js_getSources, getSources) - -foreign import javascript interruptible "$1[\"getSources\"]($c);" - js_getSources :: MediaStreamTrack -> IO JSVal - --- | -getSources :: (MonadIO m, IsMediaStreamTrack self) => self -> m [Maybe SourceInfo] -getSources self = liftIO $ - js_getSources (toMediaStreamTrack self) >>= fromJSValUnchecked - - diff --git a/src/GHCJS/DOM/JSFFI/Navigator.hs b/src/GHCJS/DOM/JSFFI/Navigator.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Navigator.hs +++ /dev/null @@ -1,32 +0,0 @@ -{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI, GHCForeignImportPrim, - UnboxedTuples, MagicHash, UnliftedFFITypes, LambdaCase #-} -module GHCJS.DOM.JSFFI.Navigator ( - module Generated - , js_getUserMedia - , getUserMedia -) where - -import GHC.Base (IO(..)) -import GHC.Prim (RealWorld, State#, ByteArray#) - -import Control.Monad.IO.Class (MonadIO(..)) - -import GHCJS.Prim (JSVal(..)) -import GHCJS.DOM.Types - -import GHCJS.DOM.JSFFI.NavigatorUserMediaError (throwUserMediaException) -import GHCJS.DOM.JSFFI.Generated.Navigator as Generated hiding (js_getUserMedia, getUserMedia) - -foreign import javascript interruptible - "$1[\"webkitGetUserMedia\"]($2, function(ms) { $c(true, ms); }, function(e) { $c(false, e); });" js_getUserMedia :: - Navigator -> Nullable Dictionary -> State# RealWorld -> (# State# RealWorld, Bool, ByteArray# #) - --- | -getUserMedia' :: MonadIO m => Navigator -> Maybe Dictionary -> m (Either NavigatorUserMediaError MediaStream) -getUserMedia' self options = liftIO . IO $ \s# -> - case js_getUserMedia self (maybeToNullable options) s# of - (# s2#, False, error #) -> (# s2#, Left (NavigatorUserMediaError (JSVal error)) #) - (# s2#, True, ms #) -> (# s2#, Right (MediaStream (JSVal ms )) #) - -getUserMedia :: MonadIO m => Navigator -> Maybe Dictionary -> m MediaStream -getUserMedia self options = getUserMedia' self options >>= either throwUserMediaException return diff --git a/src/GHCJS/DOM/JSFFI/NavigatorUserMediaError.hs b/src/GHCJS/DOM/JSFFI/NavigatorUserMediaError.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/NavigatorUserMediaError.hs +++ /dev/null @@ -1,27 +0,0 @@ -{-# LANGUAGE RecordWildCards #-} -module GHCJS.DOM.JSFFI.NavigatorUserMediaError ( - module Generated - , UserMediaException(..) - , throwUserMediaException -) where - -import Control.Exception (Exception, throwIO) -import Control.Monad.IO.Class (MonadIO(..)) - -import GHCJS.DOM.JSFFI.DOMError (getName) -import GHCJS.DOM.JSFFI.Generated.NavigatorUserMediaError as Generated - -data UserMediaException = UserMediaException { - userMediaErrorName :: String, - userMediaErrorConstraintName :: String } deriving (Show, Eq) - -instance Exception UserMediaException - -throwUserMediaException :: MonadIO m => NavigatorUserMediaError -> m a -throwUserMediaException error = do - userMediaErrorName <- getName error - userMediaErrorConstraintName <- getConstraintName error - liftIO $ throwIO (UserMediaException{..}) - - - diff --git a/src/GHCJS/DOM/JSFFI/PositionError.hs b/src/GHCJS/DOM/JSFFI/PositionError.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/PositionError.hs +++ /dev/null @@ -1,26 +0,0 @@ -{-# LANGUAGE RecordWildCards #-} -module GHCJS.DOM.JSFFI.PositionError ( - module Generated - , PositionErrorCode(..) - , PositionException(..) - , throwPositionException -) where - -import Control.Exception (Exception, throwIO) -import Control.Monad.IO.Class (MonadIO(..)) - -import GHCJS.DOM.JSFFI.Generated.PositionError as Generated - -data PositionErrorCode = PositionPermissionDenied | PositionUnavailable | PositionTimeout deriving (Show, Eq, Enum) -data PositionException = PositionException { - positionErrorCode :: PositionErrorCode, - positionErrorMessage :: String } deriving (Show, Eq) - -instance Exception PositionException - -throwPositionException :: MonadIO m => PositionError -> m a -throwPositionException error = do - positionErrorCode <- (toEnum . subtract 1 . fromIntegral) <$> getCode error - positionErrorMessage <- getMessage error - liftIO $ throwIO (PositionException{..}) - diff --git a/src/GHCJS/DOM/JSFFI/RTCPeerConnection.hs b/src/GHCJS/DOM/JSFFI/RTCPeerConnection.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/RTCPeerConnection.hs +++ /dev/null @@ -1,107 +0,0 @@ -{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI, GHCForeignImportPrim, - UnboxedTuples, MagicHash, UnliftedFFITypes, LambdaCase #-} -module GHCJS.DOM.JSFFI.RTCPeerConnection ( - module Generated - , js_createOffer - , createOffer' - , createOffer - , js_createAnswer - , createAnswer' - , createAnswer - , js_setLocalDescription - , setLocalDescription' - , setLocalDescription - , js_setRemoteDescription - , setRemoteDescription' - , setRemoteDescription -) where - -import GHC.Base (IO(..)) -import GHC.Prim (RealWorld, State#, ByteArray#) - -import Control.Monad.IO.Class (MonadIO(..)) - -import GHCJS.Prim (JSVal(..)) -import GHCJS.DOM.Types - -import GHCJS.DOM.JSFFI.DOMError (throwDOMErrorException) -import GHCJS.DOM.JSFFI.Generated.Geolocation as Generated hiding (js_getCurrentPosition, getCurrentPosition) - -foreign import javascript interruptible - "$1[\"createOffer\"](function(d) { $c(true, d); }, function(e) { $c(false, e); }, $2);" js_createOffer :: - RTCPeerConnection -> Nullable Dictionary -> State# RealWorld -> (# State# RealWorld, Bool, ByteArray# #) - --- | -createOffer' :: MonadIO m => RTCPeerConnection -> Maybe Dictionary -> m (Either DOMError RTCSessionDescription) -createOffer' self offerOptions = liftIO . IO $ \s# -> - case js_createOffer self (maybeToNullable offerOptions) s# of - (# s2#, False, error #) -> (# s2#, Left (DOMError (JSVal error)) #) - (# s2#, True, d #) -> (# s2#, Right (RTCSessionDescription (JSVal d )) #) - -createOffer :: MonadIO m => RTCPeerConnection -> Maybe Dictionary -> m RTCSessionDescription -createOffer self offerOptions = createOffer' self offerOptions >>= either throwDOMErrorException return - -foreign import javascript interruptible - "$1[\"createAnswer\"](function(d) { $c(true, d); }, function(e) { $c(false, e); }, $2);" js_createAnswer :: - RTCPeerConnection -> Dictionary -> Dictionary -> State# RealWorld -> (# State# RealWorld, Bool, ByteArray# #) - --- | -createAnswer' :: MonadIO m => RTCPeerConnection -> Maybe Dictionary -> m (Either DOMError RTCSessionDescription) -createAnswer' self answerOptions = liftIO . IO $ \s# -> - case js_createOffer self (maybeToNullable answerOptions) s# of - (# s2#, False, error #) -> (# s2#, Left (DOMError (JSVal error)) #) - (# s2#, True, d #) -> (# s2#, Right (RTCSessionDescription (JSVal d )) #) - -createAnswer :: MonadIO m => RTCPeerConnection -> Maybe Dictionary -> m RTCSessionDescription -createAnswer self answerOptions = createAnswer' self answerOptions >>= either throwDOMErrorException return - -foreign import javascript interruptible - "$1[\"setLocalDescription\"]($2, function() { $c(null); }, function(e) { $c(e); });" js_setLocalDescription :: - RTCPeerConnection -> RTCSessionDescription -> IO (Nullable DOMError) - --- | -setLocalDescription' :: MonadIO m => RTCPeerConnection -> RTCSessionDescription -> m (Maybe DOMError) -setLocalDescription' self description = liftIO $ nullableToMaybe <$> - js_setLocalDescription self description - -setLocalDescription :: MonadIO m => RTCPeerConnection -> RTCSessionDescription -> m () -setLocalDescription self description = setLocalDescription' self description >>= maybe (return ()) throwDOMErrorException - -foreign import javascript interruptible - "$1[\"setRemoteDescription\"]($2, function() { $c(null); }, function(e) { $c(e); });" js_setRemoteDescription :: - RTCPeerConnection -> RTCSessionDescription -> IO (Nullable DOMError) - --- | -setRemoteDescription' :: MonadIO m => RTCPeerConnection -> RTCSessionDescription -> m (Maybe DOMError) -setRemoteDescription' self description = liftIO $ nullableToMaybe <$> - js_setRemoteDescription self description - -setRemoteDescription :: MonadIO m => RTCPeerConnection -> RTCSessionDescription -> m () -setRemoteDescription self description = setRemoteDescription' self description >>= maybe (return ())throwDOMErrorException - -foreign import javascript interruptible - "$1[\"addIceCandidate\"]($2, function() { $c(null); }, function(e) { $c(e); });" js_addIceCandidate :: - RTCPeerConnection -> RTCIceCandidate -> IO (Nullable DOMError) - --- | -addIceCandidate' :: MonadIO m => RTCPeerConnection -> RTCIceCandidate -> m (Maybe DOMError) -addIceCandidate' self candidate = liftIO $ nullableToMaybe <$> - js_addIceCandidate self candidate - -addIceCandidate :: MonadIO m => RTCPeerConnection -> RTCIceCandidate -> m () -addIceCandidate self candidate = addIceCandidate' self candidate >>= maybe (return ()) throwDOMErrorException - -foreign import javascript interruptible - "$1[\"getStats\"]($2, function(s) { $c(true, s); }, function(e) { $c(false, e); });" js_getStats :: - RTCPeerConnection -> Nullable MediaStreamTrack -> State# RealWorld -> (# State# RealWorld, Bool, ByteArray# #) - --- | -getStats' :: (MonadIO m, IsMediaStreamTrack selector) => RTCPeerConnection -> Maybe selector -> m (Either DOMError RTCStatsResponse) -getStats' self selector = liftIO . IO $ \s# -> - case js_getStats self (maybeToNullable $ fmap toMediaStreamTrack selector) s# of - (# s2#, False, error #) -> (# s2#, Left (DOMError (JSVal error)) #) - (# s2#, True, stats #) -> (# s2#, Right (RTCStatsResponse (JSVal stats)) #) - -getStats :: (MonadIO m, IsMediaStreamTrack selector) => RTCPeerConnection -> Maybe selector -> m RTCStatsResponse -getStats self selector = getStats' self selector >>= either throwDOMErrorException return - diff --git a/src/GHCJS/DOM/JSFFI/RTCPeerConnectionError.hs b/src/GHCJS/DOM/JSFFI/RTCPeerConnectionError.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/RTCPeerConnectionError.hs +++ /dev/null @@ -1,6 +0,0 @@ -module GHCJS.DOM.JSFFI.RTCPeerConnectionError ( - -) where - - - diff --git a/src/GHCJS/DOM/JSFFI/SQLError.hs b/src/GHCJS/DOM/JSFFI/SQLError.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/SQLError.hs +++ /dev/null @@ -1,32 +0,0 @@ -{-# LANGUAGE RecordWildCards #-} -module GHCJS.DOM.JSFFI.SQLError ( - module Generated - , SQLErrorCode(..) - , SQLException(..) - , throwSQLException -) where - -import Control.Exception (Exception, throwIO) -import Control.Monad.IO.Class (MonadIO(..)) - -import GHCJS.DOM.JSFFI.Generated.SQLError as Generated - -data SQLErrorCode = SQLErrorUnknown - | SQLErrorDatabase - | SQLErrorVersion - | SQLErrorTooLarge - | SQLErrorQuota - | SQLErrorSyntax - | SQLErrorConstraint - | SQLErrorTimeout - deriving (Show, Eq, Enum) -data SQLException = SQLException { sqlErrorCode :: SQLErrorCode, sqlErrorMessage :: String } deriving (Show, Eq) - -instance Exception SQLException - -throwSQLException :: MonadIO m => SQLError -> m a -throwSQLException error = do - sqlErrorCode <- (toEnum . subtract 1 . fromIntegral) <$> getCode error - sqlErrorMessage <- getMessage error - liftIO $ throwIO (SQLException{..}) - diff --git a/src/GHCJS/DOM/JSFFI/SQLTransaction.hs b/src/GHCJS/DOM/JSFFI/SQLTransaction.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/SQLTransaction.hs +++ /dev/null @@ -1,41 +0,0 @@ -{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI, GHCForeignImportPrim, - UnboxedTuples, MagicHash, UnliftedFFITypes, LambdaCase #-} -module GHCJS.DOM.JSFFI.SQLTransaction ( - module Generated - , js_executeSql - , executeSql' - , executeSql - , executeSql_ -) where - -import GHC.Base (IO(..)) -import GHC.Prim (RealWorld, State#, ByteArray#) - -import Control.Monad (void) -import Control.Monad.IO.Class (MonadIO(..)) - -import GHCJS.Prim (JSVal(..)) -import GHCJS.Types (JSString) -import GHCJS.DOM.Types - -import GHCJS.DOM.JSFFI.SQLError (throwSQLException) -import GHCJS.DOM.JSFFI.Generated.SQLTransaction as Generated hiding (js_executeSql, executeSql) - -foreign import javascript interruptible - "$1[\"executeSql\"]($2, $3, function(tx, rs) { $c(true, rs); }, function(tx, e) { $c(false, e); });" - js_executeSql :: SQLTransaction -> JSString -> Nullable ObjectArray -> State# RealWorld -> (# State# RealWorld, Bool, ByteArray# #) - -executeSql' :: (MonadIO m, ToJSString sqlStatement, IsObjectArray arguments) => - SQLTransaction -> sqlStatement -> Maybe arguments -> m (Either SQLError SQLResultSet) -executeSql' self sqlStatement arguments = liftIO $ IO $ \s# -> - case js_executeSql self (toJSString sqlStatement) (maybeToNullable . fmap toObjectArray $ arguments) s# of - (# s2#, False, error #) -> (# s2#, Left (SQLError (JSVal error)) #) - (# s2#, True, rs #) -> (# s2#, Right (SQLResultSet (JSVal rs )) #) - -executeSql :: (MonadIO m, ToJSString sqlStatement, IsObjectArray arguments) => - SQLTransaction -> sqlStatement -> Maybe arguments -> m SQLResultSet -executeSql self sqlStatement arguments = executeSql' self sqlStatement arguments >>= either throwSQLException return - -executeSql_ :: (MonadIO m, ToJSString sqlStatement, IsObjectArray arguments) => - SQLTransaction -> sqlStatement -> Maybe arguments -> m () -executeSql_ self sqlStatement arguments = void $ executeSql self sqlStatement arguments diff --git a/src/GHCJS/DOM/JSFFI/Window.hs b/src/GHCJS/DOM/JSFFI/Window.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/Window.hs +++ /dev/null @@ -1,28 +0,0 @@ -{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.Window ( - module Generated - , js_openDatabase - , openDatabase -) where - -import Control.Monad.IO.Class (MonadIO(..)) - -import GHCJS.Types (JSString) -import GHCJS.DOM.Types - -import GHCJS.DOM.JSFFI.Generated.Window as Generated hiding (js_openDatabase, openDatabase) - -foreign import javascript interruptible - "(function(db) { if(db) $c(db) })($1[\"openDatabase\"]($2, $3, $4, $5, function(d) { $c(d) }));" js_openDatabase :: - Window -> JSString -> JSString -> JSString -> Word -> IO Database - --- | -openDatabase :: (MonadIO m, ToJSString name, ToJSString version, ToJSString displayName) => - Window -> name -> version -> displayName -> Word -> m Database -openDatabase self name version displayName estimatedSize = liftIO $ - js_openDatabase - self - (toJSString name) - (toJSString version) - (toJSString displayName) - estimatedSize diff --git a/src/GHCJS/DOM/JSFFI/XMLHttpRequest.hs b/src/GHCJS/DOM/JSFFI/XMLHttpRequest.hs deleted file mode 100644 --- a/src/GHCJS/DOM/JSFFI/XMLHttpRequest.hs +++ /dev/null @@ -1,58 +0,0 @@ -{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} -module GHCJS.DOM.JSFFI.XMLHttpRequest ( - module Generated - , XHRError(..) - , js_send - , send - , sendString - , sendArrayBuffer - , sendBlob - , sendDocument - , sendFormData -) where - -import Control.Monad.IO.Class (MonadIO(..)) -import Control.Exception (Exception(..), throwIO) - -import GHCJS.Types (JSVal) -import GHCJS.Marshal.Internal (PToJSVal(..)) -import GHCJS.Foreign (jsNull) -import GHCJS.DOM.Types - -import GHCJS.DOM.JSFFI.Generated.XMLHttpRequest as Generated hiding (js_send, send) - -data XHRError = XHRError - | XHRAborted - deriving (Show, Eq) - -instance Exception XHRError - -throwXHRError 0 = return () -throwXHRError 1 = throwIO XHRAborted -throwXHRError 2 = throwIO XHRError - -foreign import javascript interruptible "h$dom$sendXHR($1, $2, $c);" js_send :: XMLHttpRequest -> JSVal -> IO Int - --- | -send :: (MonadIO m) => XMLHttpRequest -> m () -send self = liftIO $ js_send self jsNull >>= throwXHRError - --- | -sendString :: (MonadIO m, ToJSString str) => XMLHttpRequest -> str -> m () -sendString self str = liftIO $ js_send self (pToJSVal str) >>= throwXHRError - --- | -sendArrayBuffer :: (MonadIO m, IsArrayBufferView view) => XMLHttpRequest -> view -> m () -sendArrayBuffer self view = liftIO $ js_send self (unArrayBufferView $ toArrayBufferView view) >>= throwXHRError - --- | -sendBlob :: (MonadIO m, IsBlob blob) => XMLHttpRequest -> blob -> m () -sendBlob self blob = liftIO $ js_send self (unBlob $ toBlob blob) >>= throwXHRError - --- | -sendDocument :: (MonadIO m, IsDocument doc) => XMLHttpRequest -> doc -> m () -sendDocument self doc = liftIO $ js_send self (unDocument $ toDocument doc) >>= throwXHRError - --- | -sendFormData :: (MonadIO m) => XMLHttpRequest -> FormData -> m () -sendFormData self formData = liftIO $ js_send self (unFormData formData) >>= throwXHRError diff --git a/src/GHCJS/DOM/KeyboardEvent.hs b/src/GHCJS/DOM/KeyboardEvent.hs deleted file mode 100644 --- a/src/GHCJS/DOM/KeyboardEvent.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.KeyboardEvent ( - module GHCJS.DOM.JSFFI.Generated.KeyboardEvent - ) where -import GHCJS.DOM.JSFFI.Generated.KeyboardEvent diff --git a/src/GHCJS/DOM/Location.hs b/src/GHCJS/DOM/Location.hs deleted file mode 100644 --- a/src/GHCJS/DOM/Location.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.Location ( - module GHCJS.DOM.JSFFI.Generated.Location - ) where -import GHCJS.DOM.JSFFI.Generated.Location diff --git a/src/GHCJS/DOM/MallocStatistics.hs b/src/GHCJS/DOM/MallocStatistics.hs deleted file mode 100644 --- a/src/GHCJS/DOM/MallocStatistics.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.MallocStatistics ( - module GHCJS.DOM.JSFFI.Generated.MallocStatistics - ) where -import GHCJS.DOM.JSFFI.Generated.MallocStatistics diff --git a/src/GHCJS/DOM/MediaController.hs b/src/GHCJS/DOM/MediaController.hs deleted file mode 100644 --- a/src/GHCJS/DOM/MediaController.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.MediaController ( - module GHCJS.DOM.JSFFI.Generated.MediaController - ) where -import GHCJS.DOM.JSFFI.Generated.MediaController diff --git a/src/GHCJS/DOM/MediaControlsHost.hs b/src/GHCJS/DOM/MediaControlsHost.hs deleted file mode 100644 --- a/src/GHCJS/DOM/MediaControlsHost.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.MediaControlsHost ( - module GHCJS.DOM.JSFFI.Generated.MediaControlsHost - ) where -import GHCJS.DOM.JSFFI.Generated.MediaControlsHost diff --git a/src/GHCJS/DOM/MediaElementAudioSourceNode.hs b/src/GHCJS/DOM/MediaElementAudioSourceNode.hs deleted file mode 100644 --- a/src/GHCJS/DOM/MediaElementAudioSourceNode.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.MediaElementAudioSourceNode ( - module GHCJS.DOM.JSFFI.Generated.MediaElementAudioSourceNode - ) where -import GHCJS.DOM.JSFFI.Generated.MediaElementAudioSourceNode diff --git a/src/GHCJS/DOM/MediaError.hs b/src/GHCJS/DOM/MediaError.hs deleted file mode 100644 --- a/src/GHCJS/DOM/MediaError.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.MediaError ( - module GHCJS.DOM.JSFFI.Generated.MediaError - ) where -import GHCJS.DOM.JSFFI.Generated.MediaError diff --git a/src/GHCJS/DOM/MediaKeyError.hs b/src/GHCJS/DOM/MediaKeyError.hs deleted file mode 100644 --- a/src/GHCJS/DOM/MediaKeyError.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.MediaKeyError ( - module GHCJS.DOM.JSFFI.Generated.MediaKeyError - ) where -import GHCJS.DOM.JSFFI.Generated.MediaKeyError diff --git a/src/GHCJS/DOM/MediaKeyEvent.hs b/src/GHCJS/DOM/MediaKeyEvent.hs deleted file mode 100644 --- a/src/GHCJS/DOM/MediaKeyEvent.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.MediaKeyEvent ( - module GHCJS.DOM.JSFFI.Generated.MediaKeyEvent - ) where -import GHCJS.DOM.JSFFI.Generated.MediaKeyEvent diff --git a/src/GHCJS/DOM/MediaKeyMessageEvent.hs b/src/GHCJS/DOM/MediaKeyMessageEvent.hs deleted file mode 100644 --- a/src/GHCJS/DOM/MediaKeyMessageEvent.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.MediaKeyMessageEvent ( - module GHCJS.DOM.JSFFI.Generated.MediaKeyMessageEvent - ) where -import GHCJS.DOM.JSFFI.Generated.MediaKeyMessageEvent diff --git a/src/GHCJS/DOM/MediaKeyNeededEvent.hs b/src/GHCJS/DOM/MediaKeyNeededEvent.hs deleted file mode 100644 --- a/src/GHCJS/DOM/MediaKeyNeededEvent.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.MediaKeyNeededEvent ( - module GHCJS.DOM.JSFFI.Generated.MediaKeyNeededEvent - ) where -import GHCJS.DOM.JSFFI.Generated.MediaKeyNeededEvent diff --git a/src/GHCJS/DOM/MediaKeySession.hs b/src/GHCJS/DOM/MediaKeySession.hs deleted file mode 100644 --- a/src/GHCJS/DOM/MediaKeySession.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.MediaKeySession ( - module GHCJS.DOM.JSFFI.Generated.MediaKeySession - ) where -import GHCJS.DOM.JSFFI.Generated.MediaKeySession diff --git a/src/GHCJS/DOM/MediaKeys.hs b/src/GHCJS/DOM/MediaKeys.hs deleted file mode 100644 --- a/src/GHCJS/DOM/MediaKeys.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.MediaKeys ( - module GHCJS.DOM.JSFFI.Generated.MediaKeys - ) where -import GHCJS.DOM.JSFFI.Generated.MediaKeys diff --git a/src/GHCJS/DOM/MediaList.hs b/src/GHCJS/DOM/MediaList.hs deleted file mode 100644 --- a/src/GHCJS/DOM/MediaList.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.MediaList ( - module GHCJS.DOM.JSFFI.Generated.MediaList - ) where -import GHCJS.DOM.JSFFI.Generated.MediaList diff --git a/src/GHCJS/DOM/MediaQueryList.hs b/src/GHCJS/DOM/MediaQueryList.hs deleted file mode 100644 --- a/src/GHCJS/DOM/MediaQueryList.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.MediaQueryList ( - module GHCJS.DOM.JSFFI.Generated.MediaQueryList - ) where -import GHCJS.DOM.JSFFI.Generated.MediaQueryList diff --git a/src/GHCJS/DOM/MediaQueryListListener.hs b/src/GHCJS/DOM/MediaQueryListListener.hs deleted file mode 100644 --- a/src/GHCJS/DOM/MediaQueryListListener.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.MediaQueryListListener ( - module GHCJS.DOM.JSFFI.Generated.MediaQueryListListener - ) where -import GHCJS.DOM.JSFFI.Generated.MediaQueryListListener diff --git a/src/GHCJS/DOM/MediaSource.hs b/src/GHCJS/DOM/MediaSource.hs deleted file mode 100644 --- a/src/GHCJS/DOM/MediaSource.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.MediaSource ( - module GHCJS.DOM.JSFFI.Generated.MediaSource - ) where -import GHCJS.DOM.JSFFI.Generated.MediaSource diff --git a/src/GHCJS/DOM/MediaSourceStates.hs b/src/GHCJS/DOM/MediaSourceStates.hs deleted file mode 100644 --- a/src/GHCJS/DOM/MediaSourceStates.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.MediaSourceStates ( - module GHCJS.DOM.JSFFI.Generated.MediaSourceStates - ) where -import GHCJS.DOM.JSFFI.Generated.MediaSourceStates diff --git a/src/GHCJS/DOM/MediaStream.hs b/src/GHCJS/DOM/MediaStream.hs deleted file mode 100644 --- a/src/GHCJS/DOM/MediaStream.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.MediaStream ( - module GHCJS.DOM.JSFFI.Generated.MediaStream - ) where -import GHCJS.DOM.JSFFI.Generated.MediaStream diff --git a/src/GHCJS/DOM/MediaStreamAudioDestinationNode.hs b/src/GHCJS/DOM/MediaStreamAudioDestinationNode.hs deleted file mode 100644 --- a/src/GHCJS/DOM/MediaStreamAudioDestinationNode.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.MediaStreamAudioDestinationNode ( - module GHCJS.DOM.JSFFI.Generated.MediaStreamAudioDestinationNode - ) where -import GHCJS.DOM.JSFFI.Generated.MediaStreamAudioDestinationNode diff --git a/src/GHCJS/DOM/MediaStreamAudioSourceNode.hs b/src/GHCJS/DOM/MediaStreamAudioSourceNode.hs deleted file mode 100644 --- a/src/GHCJS/DOM/MediaStreamAudioSourceNode.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.MediaStreamAudioSourceNode ( - module GHCJS.DOM.JSFFI.Generated.MediaStreamAudioSourceNode - ) where -import GHCJS.DOM.JSFFI.Generated.MediaStreamAudioSourceNode diff --git a/src/GHCJS/DOM/MediaStreamEvent.hs b/src/GHCJS/DOM/MediaStreamEvent.hs deleted file mode 100644 --- a/src/GHCJS/DOM/MediaStreamEvent.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.MediaStreamEvent ( - module GHCJS.DOM.JSFFI.Generated.MediaStreamEvent - ) where -import GHCJS.DOM.JSFFI.Generated.MediaStreamEvent diff --git a/src/GHCJS/DOM/MediaStreamTrack.hs b/src/GHCJS/DOM/MediaStreamTrack.hs deleted file mode 100644 --- a/src/GHCJS/DOM/MediaStreamTrack.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.MediaStreamTrack ( - module GHCJS.DOM.JSFFI.MediaStreamTrack - ) where -import GHCJS.DOM.JSFFI.MediaStreamTrack diff --git a/src/GHCJS/DOM/MediaStreamTrackEvent.hs b/src/GHCJS/DOM/MediaStreamTrackEvent.hs deleted file mode 100644 --- a/src/GHCJS/DOM/MediaStreamTrackEvent.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.MediaStreamTrackEvent ( - module GHCJS.DOM.JSFFI.Generated.MediaStreamTrackEvent - ) where -import GHCJS.DOM.JSFFI.Generated.MediaStreamTrackEvent diff --git a/src/GHCJS/DOM/MediaStreamTrackSourcesCallback.hs b/src/GHCJS/DOM/MediaStreamTrackSourcesCallback.hs deleted file mode 100644 --- a/src/GHCJS/DOM/MediaStreamTrackSourcesCallback.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.MediaStreamTrackSourcesCallback ( - module GHCJS.DOM.JSFFI.Generated.MediaStreamTrackSourcesCallback - ) where -import GHCJS.DOM.JSFFI.Generated.MediaStreamTrackSourcesCallback diff --git a/src/GHCJS/DOM/MediaTrackConstraints.hs b/src/GHCJS/DOM/MediaTrackConstraints.hs deleted file mode 100644 --- a/src/GHCJS/DOM/MediaTrackConstraints.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.MediaTrackConstraints ( - module GHCJS.DOM.JSFFI.Generated.MediaTrackConstraints - ) where -import GHCJS.DOM.JSFFI.Generated.MediaTrackConstraints diff --git a/src/GHCJS/DOM/MemoryInfo.hs b/src/GHCJS/DOM/MemoryInfo.hs deleted file mode 100644 --- a/src/GHCJS/DOM/MemoryInfo.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.MemoryInfo ( - module GHCJS.DOM.JSFFI.Generated.MemoryInfo - ) where -import GHCJS.DOM.JSFFI.Generated.MemoryInfo diff --git a/src/GHCJS/DOM/MessageChannel.hs b/src/GHCJS/DOM/MessageChannel.hs deleted file mode 100644 --- a/src/GHCJS/DOM/MessageChannel.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.MessageChannel ( - module GHCJS.DOM.JSFFI.Generated.MessageChannel - ) where -import GHCJS.DOM.JSFFI.Generated.MessageChannel diff --git a/src/GHCJS/DOM/MessageEvent.hs b/src/GHCJS/DOM/MessageEvent.hs deleted file mode 100644 --- a/src/GHCJS/DOM/MessageEvent.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.MessageEvent ( - module GHCJS.DOM.JSFFI.Generated.MessageEvent - ) where -import GHCJS.DOM.JSFFI.Generated.MessageEvent diff --git a/src/GHCJS/DOM/MessagePort.hs b/src/GHCJS/DOM/MessagePort.hs deleted file mode 100644 --- a/src/GHCJS/DOM/MessagePort.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.MessagePort ( - module GHCJS.DOM.JSFFI.Generated.MessagePort - ) where -import GHCJS.DOM.JSFFI.Generated.MessagePort diff --git a/src/GHCJS/DOM/MimeType.hs b/src/GHCJS/DOM/MimeType.hs deleted file mode 100644 --- a/src/GHCJS/DOM/MimeType.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.MimeType ( - module GHCJS.DOM.JSFFI.Generated.MimeType - ) where -import GHCJS.DOM.JSFFI.Generated.MimeType diff --git a/src/GHCJS/DOM/MimeTypeArray.hs b/src/GHCJS/DOM/MimeTypeArray.hs deleted file mode 100644 --- a/src/GHCJS/DOM/MimeTypeArray.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.MimeTypeArray ( - module GHCJS.DOM.JSFFI.Generated.MimeTypeArray - ) where -import GHCJS.DOM.JSFFI.Generated.MimeTypeArray diff --git a/src/GHCJS/DOM/MouseEvent.hs b/src/GHCJS/DOM/MouseEvent.hs deleted file mode 100644 --- a/src/GHCJS/DOM/MouseEvent.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.MouseEvent ( - module GHCJS.DOM.JSFFI.Generated.MouseEvent - ) where -import GHCJS.DOM.JSFFI.Generated.MouseEvent diff --git a/src/GHCJS/DOM/MutationEvent.hs b/src/GHCJS/DOM/MutationEvent.hs deleted file mode 100644 --- a/src/GHCJS/DOM/MutationEvent.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.MutationEvent ( - module GHCJS.DOM.JSFFI.Generated.MutationEvent - ) where -import GHCJS.DOM.JSFFI.Generated.MutationEvent diff --git a/src/GHCJS/DOM/MutationObserver.hs b/src/GHCJS/DOM/MutationObserver.hs deleted file mode 100644 --- a/src/GHCJS/DOM/MutationObserver.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.MutationObserver ( - module GHCJS.DOM.JSFFI.Generated.MutationObserver - ) where -import GHCJS.DOM.JSFFI.Generated.MutationObserver diff --git a/src/GHCJS/DOM/MutationRecord.hs b/src/GHCJS/DOM/MutationRecord.hs deleted file mode 100644 --- a/src/GHCJS/DOM/MutationRecord.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.MutationRecord ( - module GHCJS.DOM.JSFFI.Generated.MutationRecord - ) where -import GHCJS.DOM.JSFFI.Generated.MutationRecord diff --git a/src/GHCJS/DOM/NamedNodeMap.hs b/src/GHCJS/DOM/NamedNodeMap.hs deleted file mode 100644 --- a/src/GHCJS/DOM/NamedNodeMap.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.NamedNodeMap ( - module GHCJS.DOM.JSFFI.Generated.NamedNodeMap - ) where -import GHCJS.DOM.JSFFI.Generated.NamedNodeMap diff --git a/src/GHCJS/DOM/Navigator.hs b/src/GHCJS/DOM/Navigator.hs deleted file mode 100644 --- a/src/GHCJS/DOM/Navigator.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.Navigator ( - module GHCJS.DOM.JSFFI.Navigator - ) where -import GHCJS.DOM.JSFFI.Navigator diff --git a/src/GHCJS/DOM/NavigatorUserMediaError.hs b/src/GHCJS/DOM/NavigatorUserMediaError.hs deleted file mode 100644 --- a/src/GHCJS/DOM/NavigatorUserMediaError.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.NavigatorUserMediaError ( - module GHCJS.DOM.JSFFI.NavigatorUserMediaError - ) where -import GHCJS.DOM.JSFFI.NavigatorUserMediaError diff --git a/src/GHCJS/DOM/NavigatorUserMediaErrorCallback.hs b/src/GHCJS/DOM/NavigatorUserMediaErrorCallback.hs deleted file mode 100644 --- a/src/GHCJS/DOM/NavigatorUserMediaErrorCallback.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.NavigatorUserMediaErrorCallback ( - module GHCJS.DOM.JSFFI.Generated.NavigatorUserMediaErrorCallback - ) where -import GHCJS.DOM.JSFFI.Generated.NavigatorUserMediaErrorCallback diff --git a/src/GHCJS/DOM/NavigatorUserMediaSuccessCallback.hs b/src/GHCJS/DOM/NavigatorUserMediaSuccessCallback.hs deleted file mode 100644 --- a/src/GHCJS/DOM/NavigatorUserMediaSuccessCallback.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.NavigatorUserMediaSuccessCallback ( - module GHCJS.DOM.JSFFI.Generated.NavigatorUserMediaSuccessCallback - ) where -import GHCJS.DOM.JSFFI.Generated.NavigatorUserMediaSuccessCallback diff --git a/src/GHCJS/DOM/Node.hs b/src/GHCJS/DOM/Node.hs deleted file mode 100644 --- a/src/GHCJS/DOM/Node.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.Node ( - module GHCJS.DOM.JSFFI.Generated.Node - ) where -import GHCJS.DOM.JSFFI.Generated.Node diff --git a/src/GHCJS/DOM/NodeFilter.hs b/src/GHCJS/DOM/NodeFilter.hs deleted file mode 100644 --- a/src/GHCJS/DOM/NodeFilter.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.NodeFilter ( - module GHCJS.DOM.JSFFI.Generated.NodeFilter - ) where -import GHCJS.DOM.JSFFI.Generated.NodeFilter diff --git a/src/GHCJS/DOM/NodeIterator.hs b/src/GHCJS/DOM/NodeIterator.hs deleted file mode 100644 --- a/src/GHCJS/DOM/NodeIterator.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.NodeIterator ( - module GHCJS.DOM.JSFFI.Generated.NodeIterator - ) where -import GHCJS.DOM.JSFFI.Generated.NodeIterator diff --git a/src/GHCJS/DOM/NodeList.hs b/src/GHCJS/DOM/NodeList.hs deleted file mode 100644 --- a/src/GHCJS/DOM/NodeList.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.NodeList ( - module GHCJS.DOM.JSFFI.Generated.NodeList - ) where -import GHCJS.DOM.JSFFI.Generated.NodeList diff --git a/src/GHCJS/DOM/Notification.hs b/src/GHCJS/DOM/Notification.hs deleted file mode 100644 --- a/src/GHCJS/DOM/Notification.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.Notification ( - module GHCJS.DOM.JSFFI.Generated.Notification - ) where -import GHCJS.DOM.JSFFI.Generated.Notification diff --git a/src/GHCJS/DOM/NotificationCenter.hs b/src/GHCJS/DOM/NotificationCenter.hs deleted file mode 100644 --- a/src/GHCJS/DOM/NotificationCenter.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.NotificationCenter ( - module GHCJS.DOM.JSFFI.Generated.NotificationCenter - ) where -import GHCJS.DOM.JSFFI.Generated.NotificationCenter diff --git a/src/GHCJS/DOM/NotificationPermissionCallback.hs b/src/GHCJS/DOM/NotificationPermissionCallback.hs deleted file mode 100644 --- a/src/GHCJS/DOM/NotificationPermissionCallback.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.NotificationPermissionCallback ( - module GHCJS.DOM.JSFFI.Generated.NotificationPermissionCallback - ) where -import GHCJS.DOM.JSFFI.Generated.NotificationPermissionCallback diff --git a/src/GHCJS/DOM/OESStandardDerivatives.hs b/src/GHCJS/DOM/OESStandardDerivatives.hs deleted file mode 100644 --- a/src/GHCJS/DOM/OESStandardDerivatives.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.OESStandardDerivatives ( - module GHCJS.DOM.JSFFI.Generated.OESStandardDerivatives - ) where -import GHCJS.DOM.JSFFI.Generated.OESStandardDerivatives diff --git a/src/GHCJS/DOM/OESTextureHalfFloat.hs b/src/GHCJS/DOM/OESTextureHalfFloat.hs deleted file mode 100644 --- a/src/GHCJS/DOM/OESTextureHalfFloat.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.OESTextureHalfFloat ( - module GHCJS.DOM.JSFFI.Generated.OESTextureHalfFloat - ) where -import GHCJS.DOM.JSFFI.Generated.OESTextureHalfFloat diff --git a/src/GHCJS/DOM/OESVertexArrayObject.hs b/src/GHCJS/DOM/OESVertexArrayObject.hs deleted file mode 100644 --- a/src/GHCJS/DOM/OESVertexArrayObject.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.OESVertexArrayObject ( - module GHCJS.DOM.JSFFI.Generated.OESVertexArrayObject - ) where -import GHCJS.DOM.JSFFI.Generated.OESVertexArrayObject diff --git a/src/GHCJS/DOM/OfflineAudioCompletionEvent.hs b/src/GHCJS/DOM/OfflineAudioCompletionEvent.hs deleted file mode 100644 --- a/src/GHCJS/DOM/OfflineAudioCompletionEvent.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.OfflineAudioCompletionEvent ( - module GHCJS.DOM.JSFFI.Generated.OfflineAudioCompletionEvent - ) where -import GHCJS.DOM.JSFFI.Generated.OfflineAudioCompletionEvent diff --git a/src/GHCJS/DOM/OfflineAudioContext.hs b/src/GHCJS/DOM/OfflineAudioContext.hs deleted file mode 100644 --- a/src/GHCJS/DOM/OfflineAudioContext.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.OfflineAudioContext ( - module GHCJS.DOM.JSFFI.Generated.OfflineAudioContext - ) where -import GHCJS.DOM.JSFFI.Generated.OfflineAudioContext diff --git a/src/GHCJS/DOM/OscillatorNode.hs b/src/GHCJS/DOM/OscillatorNode.hs deleted file mode 100644 --- a/src/GHCJS/DOM/OscillatorNode.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.OscillatorNode ( - module GHCJS.DOM.JSFFI.Generated.OscillatorNode - ) where -import GHCJS.DOM.JSFFI.Generated.OscillatorNode diff --git a/src/GHCJS/DOM/OverflowEvent.hs b/src/GHCJS/DOM/OverflowEvent.hs deleted file mode 100644 --- a/src/GHCJS/DOM/OverflowEvent.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.OverflowEvent ( - module GHCJS.DOM.JSFFI.Generated.OverflowEvent - ) where -import GHCJS.DOM.JSFFI.Generated.OverflowEvent diff --git a/src/GHCJS/DOM/PageTransitionEvent.hs b/src/GHCJS/DOM/PageTransitionEvent.hs deleted file mode 100644 --- a/src/GHCJS/DOM/PageTransitionEvent.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.PageTransitionEvent ( - module GHCJS.DOM.JSFFI.Generated.PageTransitionEvent - ) where -import GHCJS.DOM.JSFFI.Generated.PageTransitionEvent diff --git a/src/GHCJS/DOM/PannerNode.hs b/src/GHCJS/DOM/PannerNode.hs deleted file mode 100644 --- a/src/GHCJS/DOM/PannerNode.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.PannerNode ( - module GHCJS.DOM.JSFFI.Generated.PannerNode - ) where -import GHCJS.DOM.JSFFI.Generated.PannerNode diff --git a/src/GHCJS/DOM/Path2D.hs b/src/GHCJS/DOM/Path2D.hs deleted file mode 100644 --- a/src/GHCJS/DOM/Path2D.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.Path2D ( - module GHCJS.DOM.JSFFI.Generated.Path2D - ) where -import GHCJS.DOM.JSFFI.Generated.Path2D diff --git a/src/GHCJS/DOM/Performance.hs b/src/GHCJS/DOM/Performance.hs deleted file mode 100644 --- a/src/GHCJS/DOM/Performance.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.Performance ( - module GHCJS.DOM.JSFFI.Generated.Performance - ) where -import GHCJS.DOM.JSFFI.Generated.Performance diff --git a/src/GHCJS/DOM/PerformanceEntry.hs b/src/GHCJS/DOM/PerformanceEntry.hs deleted file mode 100644 --- a/src/GHCJS/DOM/PerformanceEntry.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.PerformanceEntry ( - module GHCJS.DOM.JSFFI.Generated.PerformanceEntry - ) where -import GHCJS.DOM.JSFFI.Generated.PerformanceEntry diff --git a/src/GHCJS/DOM/PerformanceEntryList.hs b/src/GHCJS/DOM/PerformanceEntryList.hs deleted file mode 100644 --- a/src/GHCJS/DOM/PerformanceEntryList.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.PerformanceEntryList ( - module GHCJS.DOM.JSFFI.Generated.PerformanceEntryList - ) where -import GHCJS.DOM.JSFFI.Generated.PerformanceEntryList diff --git a/src/GHCJS/DOM/PerformanceNavigation.hs b/src/GHCJS/DOM/PerformanceNavigation.hs deleted file mode 100644 --- a/src/GHCJS/DOM/PerformanceNavigation.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.PerformanceNavigation ( - module GHCJS.DOM.JSFFI.Generated.PerformanceNavigation - ) where -import GHCJS.DOM.JSFFI.Generated.PerformanceNavigation diff --git a/src/GHCJS/DOM/PerformanceResourceTiming.hs b/src/GHCJS/DOM/PerformanceResourceTiming.hs deleted file mode 100644 --- a/src/GHCJS/DOM/PerformanceResourceTiming.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.PerformanceResourceTiming ( - module GHCJS.DOM.JSFFI.Generated.PerformanceResourceTiming - ) where -import GHCJS.DOM.JSFFI.Generated.PerformanceResourceTiming diff --git a/src/GHCJS/DOM/PerformanceTiming.hs b/src/GHCJS/DOM/PerformanceTiming.hs deleted file mode 100644 --- a/src/GHCJS/DOM/PerformanceTiming.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.PerformanceTiming ( - module GHCJS.DOM.JSFFI.Generated.PerformanceTiming - ) where -import GHCJS.DOM.JSFFI.Generated.PerformanceTiming diff --git a/src/GHCJS/DOM/Plugin.hs b/src/GHCJS/DOM/Plugin.hs deleted file mode 100644 --- a/src/GHCJS/DOM/Plugin.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.Plugin ( - module GHCJS.DOM.JSFFI.Generated.Plugin - ) where -import GHCJS.DOM.JSFFI.Generated.Plugin diff --git a/src/GHCJS/DOM/PluginArray.hs b/src/GHCJS/DOM/PluginArray.hs deleted file mode 100644 --- a/src/GHCJS/DOM/PluginArray.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.PluginArray ( - module GHCJS.DOM.JSFFI.Generated.PluginArray - ) where -import GHCJS.DOM.JSFFI.Generated.PluginArray diff --git a/src/GHCJS/DOM/PopStateEvent.hs b/src/GHCJS/DOM/PopStateEvent.hs deleted file mode 100644 --- a/src/GHCJS/DOM/PopStateEvent.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.PopStateEvent ( - module GHCJS.DOM.JSFFI.Generated.PopStateEvent - ) where -import GHCJS.DOM.JSFFI.Generated.PopStateEvent diff --git a/src/GHCJS/DOM/PositionCallback.hs b/src/GHCJS/DOM/PositionCallback.hs deleted file mode 100644 --- a/src/GHCJS/DOM/PositionCallback.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.PositionCallback ( - module GHCJS.DOM.JSFFI.Generated.PositionCallback - ) where -import GHCJS.DOM.JSFFI.Generated.PositionCallback diff --git a/src/GHCJS/DOM/PositionError.hs b/src/GHCJS/DOM/PositionError.hs deleted file mode 100644 --- a/src/GHCJS/DOM/PositionError.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.PositionError ( - module GHCJS.DOM.JSFFI.PositionError - ) where -import GHCJS.DOM.JSFFI.PositionError diff --git a/src/GHCJS/DOM/PositionErrorCallback.hs b/src/GHCJS/DOM/PositionErrorCallback.hs deleted file mode 100644 --- a/src/GHCJS/DOM/PositionErrorCallback.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.PositionErrorCallback ( - module GHCJS.DOM.JSFFI.Generated.PositionErrorCallback - ) where -import GHCJS.DOM.JSFFI.Generated.PositionErrorCallback diff --git a/src/GHCJS/DOM/ProcessingInstruction.hs b/src/GHCJS/DOM/ProcessingInstruction.hs deleted file mode 100644 --- a/src/GHCJS/DOM/ProcessingInstruction.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.ProcessingInstruction ( - module GHCJS.DOM.JSFFI.Generated.ProcessingInstruction - ) where -import GHCJS.DOM.JSFFI.Generated.ProcessingInstruction diff --git a/src/GHCJS/DOM/ProgressEvent.hs b/src/GHCJS/DOM/ProgressEvent.hs deleted file mode 100644 --- a/src/GHCJS/DOM/ProgressEvent.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.ProgressEvent ( - module GHCJS.DOM.JSFFI.Generated.ProgressEvent - ) where -import GHCJS.DOM.JSFFI.Generated.ProgressEvent diff --git a/src/GHCJS/DOM/QuickTimePluginReplacement.hs b/src/GHCJS/DOM/QuickTimePluginReplacement.hs deleted file mode 100644 --- a/src/GHCJS/DOM/QuickTimePluginReplacement.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.QuickTimePluginReplacement ( - module GHCJS.DOM.JSFFI.Generated.QuickTimePluginReplacement - ) where -import GHCJS.DOM.JSFFI.Generated.QuickTimePluginReplacement diff --git a/src/GHCJS/DOM/RGBColor.hs b/src/GHCJS/DOM/RGBColor.hs deleted file mode 100644 --- a/src/GHCJS/DOM/RGBColor.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.RGBColor ( - module GHCJS.DOM.JSFFI.Generated.RGBColor - ) where -import GHCJS.DOM.JSFFI.Generated.RGBColor diff --git a/src/GHCJS/DOM/RTCConfiguration.hs b/src/GHCJS/DOM/RTCConfiguration.hs deleted file mode 100644 --- a/src/GHCJS/DOM/RTCConfiguration.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.RTCConfiguration ( - module GHCJS.DOM.JSFFI.Generated.RTCConfiguration - ) where -import GHCJS.DOM.JSFFI.Generated.RTCConfiguration diff --git a/src/GHCJS/DOM/RTCDTMFSender.hs b/src/GHCJS/DOM/RTCDTMFSender.hs deleted file mode 100644 --- a/src/GHCJS/DOM/RTCDTMFSender.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.RTCDTMFSender ( - module GHCJS.DOM.JSFFI.Generated.RTCDTMFSender - ) where -import GHCJS.DOM.JSFFI.Generated.RTCDTMFSender diff --git a/src/GHCJS/DOM/RTCDTMFToneChangeEvent.hs b/src/GHCJS/DOM/RTCDTMFToneChangeEvent.hs deleted file mode 100644 --- a/src/GHCJS/DOM/RTCDTMFToneChangeEvent.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.RTCDTMFToneChangeEvent ( - module GHCJS.DOM.JSFFI.Generated.RTCDTMFToneChangeEvent - ) where -import GHCJS.DOM.JSFFI.Generated.RTCDTMFToneChangeEvent diff --git a/src/GHCJS/DOM/RTCDataChannel.hs b/src/GHCJS/DOM/RTCDataChannel.hs deleted file mode 100644 --- a/src/GHCJS/DOM/RTCDataChannel.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.RTCDataChannel ( - module GHCJS.DOM.JSFFI.Generated.RTCDataChannel - ) where -import GHCJS.DOM.JSFFI.Generated.RTCDataChannel diff --git a/src/GHCJS/DOM/RTCDataChannelEvent.hs b/src/GHCJS/DOM/RTCDataChannelEvent.hs deleted file mode 100644 --- a/src/GHCJS/DOM/RTCDataChannelEvent.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.RTCDataChannelEvent ( - module GHCJS.DOM.JSFFI.Generated.RTCDataChannelEvent - ) where -import GHCJS.DOM.JSFFI.Generated.RTCDataChannelEvent diff --git a/src/GHCJS/DOM/RTCIceCandidate.hs b/src/GHCJS/DOM/RTCIceCandidate.hs deleted file mode 100644 --- a/src/GHCJS/DOM/RTCIceCandidate.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.RTCIceCandidate ( - module GHCJS.DOM.JSFFI.Generated.RTCIceCandidate - ) where -import GHCJS.DOM.JSFFI.Generated.RTCIceCandidate diff --git a/src/GHCJS/DOM/RTCIceCandidateEvent.hs b/src/GHCJS/DOM/RTCIceCandidateEvent.hs deleted file mode 100644 --- a/src/GHCJS/DOM/RTCIceCandidateEvent.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.RTCIceCandidateEvent ( - module GHCJS.DOM.JSFFI.Generated.RTCIceCandidateEvent - ) where -import GHCJS.DOM.JSFFI.Generated.RTCIceCandidateEvent diff --git a/src/GHCJS/DOM/RTCIceServer.hs b/src/GHCJS/DOM/RTCIceServer.hs deleted file mode 100644 --- a/src/GHCJS/DOM/RTCIceServer.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.RTCIceServer ( - module GHCJS.DOM.JSFFI.Generated.RTCIceServer - ) where -import GHCJS.DOM.JSFFI.Generated.RTCIceServer diff --git a/src/GHCJS/DOM/RTCPeerConnection.hs b/src/GHCJS/DOM/RTCPeerConnection.hs deleted file mode 100644 --- a/src/GHCJS/DOM/RTCPeerConnection.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.RTCPeerConnection ( - module GHCJS.DOM.JSFFI.RTCPeerConnection - ) where -import GHCJS.DOM.JSFFI.RTCPeerConnection diff --git a/src/GHCJS/DOM/RTCPeerConnectionErrorCallback.hs b/src/GHCJS/DOM/RTCPeerConnectionErrorCallback.hs deleted file mode 100644 --- a/src/GHCJS/DOM/RTCPeerConnectionErrorCallback.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.RTCPeerConnectionErrorCallback ( - module GHCJS.DOM.JSFFI.Generated.RTCPeerConnectionErrorCallback - ) where -import GHCJS.DOM.JSFFI.Generated.RTCPeerConnectionErrorCallback diff --git a/src/GHCJS/DOM/RTCSessionDescription.hs b/src/GHCJS/DOM/RTCSessionDescription.hs deleted file mode 100644 --- a/src/GHCJS/DOM/RTCSessionDescription.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.RTCSessionDescription ( - module GHCJS.DOM.JSFFI.Generated.RTCSessionDescription - ) where -import GHCJS.DOM.JSFFI.Generated.RTCSessionDescription diff --git a/src/GHCJS/DOM/RTCSessionDescriptionCallback.hs b/src/GHCJS/DOM/RTCSessionDescriptionCallback.hs deleted file mode 100644 --- a/src/GHCJS/DOM/RTCSessionDescriptionCallback.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.RTCSessionDescriptionCallback ( - module GHCJS.DOM.JSFFI.Generated.RTCSessionDescriptionCallback - ) where -import GHCJS.DOM.JSFFI.Generated.RTCSessionDescriptionCallback diff --git a/src/GHCJS/DOM/RTCStatsCallback.hs b/src/GHCJS/DOM/RTCStatsCallback.hs deleted file mode 100644 --- a/src/GHCJS/DOM/RTCStatsCallback.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.RTCStatsCallback ( - module GHCJS.DOM.JSFFI.Generated.RTCStatsCallback - ) where -import GHCJS.DOM.JSFFI.Generated.RTCStatsCallback diff --git a/src/GHCJS/DOM/RTCStatsReport.hs b/src/GHCJS/DOM/RTCStatsReport.hs deleted file mode 100644 --- a/src/GHCJS/DOM/RTCStatsReport.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.RTCStatsReport ( - module GHCJS.DOM.JSFFI.Generated.RTCStatsReport - ) where -import GHCJS.DOM.JSFFI.Generated.RTCStatsReport diff --git a/src/GHCJS/DOM/RTCStatsResponse.hs b/src/GHCJS/DOM/RTCStatsResponse.hs deleted file mode 100644 --- a/src/GHCJS/DOM/RTCStatsResponse.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.RTCStatsResponse ( - module GHCJS.DOM.JSFFI.Generated.RTCStatsResponse - ) where -import GHCJS.DOM.JSFFI.Generated.RTCStatsResponse diff --git a/src/GHCJS/DOM/RadioNodeList.hs b/src/GHCJS/DOM/RadioNodeList.hs deleted file mode 100644 --- a/src/GHCJS/DOM/RadioNodeList.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.RadioNodeList ( - module GHCJS.DOM.JSFFI.Generated.RadioNodeList - ) where -import GHCJS.DOM.JSFFI.Generated.RadioNodeList diff --git a/src/GHCJS/DOM/Range.hs b/src/GHCJS/DOM/Range.hs deleted file mode 100644 --- a/src/GHCJS/DOM/Range.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.Range ( - module GHCJS.DOM.JSFFI.Generated.Range - ) where -import GHCJS.DOM.JSFFI.Generated.Range diff --git a/src/GHCJS/DOM/ReadableStream.hs b/src/GHCJS/DOM/ReadableStream.hs deleted file mode 100644 --- a/src/GHCJS/DOM/ReadableStream.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.ReadableStream ( - module GHCJS.DOM.JSFFI.Generated.ReadableStream - ) where -import GHCJS.DOM.JSFFI.Generated.ReadableStream diff --git a/src/GHCJS/DOM/Rect.hs b/src/GHCJS/DOM/Rect.hs deleted file mode 100644 --- a/src/GHCJS/DOM/Rect.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.Rect ( - module GHCJS.DOM.JSFFI.Generated.Rect - ) where -import GHCJS.DOM.JSFFI.Generated.Rect diff --git a/src/GHCJS/DOM/RequestAnimationFrameCallback.hs b/src/GHCJS/DOM/RequestAnimationFrameCallback.hs deleted file mode 100644 --- a/src/GHCJS/DOM/RequestAnimationFrameCallback.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.RequestAnimationFrameCallback ( - module GHCJS.DOM.JSFFI.Generated.RequestAnimationFrameCallback - ) where -import GHCJS.DOM.JSFFI.Generated.RequestAnimationFrameCallback diff --git a/src/GHCJS/DOM/SQLError.hs b/src/GHCJS/DOM/SQLError.hs deleted file mode 100644 --- a/src/GHCJS/DOM/SQLError.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.SQLError ( - module GHCJS.DOM.JSFFI.SQLError - ) where -import GHCJS.DOM.JSFFI.SQLError diff --git a/src/GHCJS/DOM/SQLResultSet.hs b/src/GHCJS/DOM/SQLResultSet.hs deleted file mode 100644 --- a/src/GHCJS/DOM/SQLResultSet.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.SQLResultSet ( - module GHCJS.DOM.JSFFI.Generated.SQLResultSet - ) where -import GHCJS.DOM.JSFFI.Generated.SQLResultSet diff --git a/src/GHCJS/DOM/SQLResultSetRowList.hs b/src/GHCJS/DOM/SQLResultSetRowList.hs deleted file mode 100644 --- a/src/GHCJS/DOM/SQLResultSetRowList.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.SQLResultSetRowList ( - module GHCJS.DOM.JSFFI.Generated.SQLResultSetRowList - ) where -import GHCJS.DOM.JSFFI.Generated.SQLResultSetRowList diff --git a/src/GHCJS/DOM/SQLStatementCallback.hs b/src/GHCJS/DOM/SQLStatementCallback.hs deleted file mode 100644 --- a/src/GHCJS/DOM/SQLStatementCallback.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.SQLStatementCallback ( - module GHCJS.DOM.JSFFI.Generated.SQLStatementCallback - ) where -import GHCJS.DOM.JSFFI.Generated.SQLStatementCallback diff --git a/src/GHCJS/DOM/SQLStatementErrorCallback.hs b/src/GHCJS/DOM/SQLStatementErrorCallback.hs deleted file mode 100644 --- a/src/GHCJS/DOM/SQLStatementErrorCallback.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.SQLStatementErrorCallback ( - module GHCJS.DOM.JSFFI.Generated.SQLStatementErrorCallback - ) where -import GHCJS.DOM.JSFFI.Generated.SQLStatementErrorCallback diff --git a/src/GHCJS/DOM/SQLTransaction.hs b/src/GHCJS/DOM/SQLTransaction.hs deleted file mode 100644 --- a/src/GHCJS/DOM/SQLTransaction.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.SQLTransaction ( - module GHCJS.DOM.JSFFI.SQLTransaction - ) where -import GHCJS.DOM.JSFFI.SQLTransaction diff --git a/src/GHCJS/DOM/SQLTransactionCallback.hs b/src/GHCJS/DOM/SQLTransactionCallback.hs deleted file mode 100644 --- a/src/GHCJS/DOM/SQLTransactionCallback.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.SQLTransactionCallback ( - module GHCJS.DOM.JSFFI.Generated.SQLTransactionCallback - ) where -import GHCJS.DOM.JSFFI.Generated.SQLTransactionCallback diff --git a/src/GHCJS/DOM/SQLTransactionErrorCallback.hs b/src/GHCJS/DOM/SQLTransactionErrorCallback.hs deleted file mode 100644 --- a/src/GHCJS/DOM/SQLTransactionErrorCallback.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.SQLTransactionErrorCallback ( - module GHCJS.DOM.JSFFI.Generated.SQLTransactionErrorCallback - ) where -import GHCJS.DOM.JSFFI.Generated.SQLTransactionErrorCallback diff --git a/src/GHCJS/DOM/SVGAElement.hs b/src/GHCJS/DOM/SVGAElement.hs deleted file mode 100644 --- a/src/GHCJS/DOM/SVGAElement.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.SVGAElement ( - module GHCJS.DOM.JSFFI.Generated.SVGAElement - ) where -import GHCJS.DOM.JSFFI.Generated.SVGAElement diff --git a/src/GHCJS/DOM/SVGAltGlyphElement.hs b/src/GHCJS/DOM/SVGAltGlyphElement.hs deleted file mode 100644 --- a/src/GHCJS/DOM/SVGAltGlyphElement.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.SVGAltGlyphElement ( - module GHCJS.DOM.JSFFI.Generated.SVGAltGlyphElement - ) where -import GHCJS.DOM.JSFFI.Generated.SVGAltGlyphElement diff --git a/src/GHCJS/DOM/SVGAngle.hs b/src/GHCJS/DOM/SVGAngle.hs deleted file mode 100644 --- a/src/GHCJS/DOM/SVGAngle.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.SVGAngle ( - module GHCJS.DOM.JSFFI.Generated.SVGAngle - ) where -import GHCJS.DOM.JSFFI.Generated.SVGAngle diff --git a/src/GHCJS/DOM/SVGAnimatedAngle.hs b/src/GHCJS/DOM/SVGAnimatedAngle.hs deleted file mode 100644 --- a/src/GHCJS/DOM/SVGAnimatedAngle.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.SVGAnimatedAngle ( - module GHCJS.DOM.JSFFI.Generated.SVGAnimatedAngle - ) where -import GHCJS.DOM.JSFFI.Generated.SVGAnimatedAngle diff --git a/src/GHCJS/DOM/SVGAnimatedBoolean.hs b/src/GHCJS/DOM/SVGAnimatedBoolean.hs deleted file mode 100644 --- a/src/GHCJS/DOM/SVGAnimatedBoolean.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.SVGAnimatedBoolean ( - module GHCJS.DOM.JSFFI.Generated.SVGAnimatedBoolean - ) where -import GHCJS.DOM.JSFFI.Generated.SVGAnimatedBoolean diff --git a/src/GHCJS/DOM/SVGAnimatedEnumeration.hs b/src/GHCJS/DOM/SVGAnimatedEnumeration.hs deleted file mode 100644 --- a/src/GHCJS/DOM/SVGAnimatedEnumeration.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.SVGAnimatedEnumeration ( - module GHCJS.DOM.JSFFI.Generated.SVGAnimatedEnumeration - ) where -import GHCJS.DOM.JSFFI.Generated.SVGAnimatedEnumeration diff --git a/src/GHCJS/DOM/SVGAnimatedInteger.hs b/src/GHCJS/DOM/SVGAnimatedInteger.hs deleted file mode 100644 --- a/src/GHCJS/DOM/SVGAnimatedInteger.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.SVGAnimatedInteger ( - module GHCJS.DOM.JSFFI.Generated.SVGAnimatedInteger - ) where -import GHCJS.DOM.JSFFI.Generated.SVGAnimatedInteger diff --git a/src/GHCJS/DOM/SVGAnimatedLength.hs b/src/GHCJS/DOM/SVGAnimatedLength.hs deleted file mode 100644 --- a/src/GHCJS/DOM/SVGAnimatedLength.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.SVGAnimatedLength ( - module GHCJS.DOM.JSFFI.Generated.SVGAnimatedLength - ) where -import GHCJS.DOM.JSFFI.Generated.SVGAnimatedLength diff --git a/src/GHCJS/DOM/SVGAnimatedLengthList.hs b/src/GHCJS/DOM/SVGAnimatedLengthList.hs deleted file mode 100644 --- a/src/GHCJS/DOM/SVGAnimatedLengthList.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.SVGAnimatedLengthList ( - module GHCJS.DOM.JSFFI.Generated.SVGAnimatedLengthList - ) where -import GHCJS.DOM.JSFFI.Generated.SVGAnimatedLengthList diff --git a/src/GHCJS/DOM/SVGAnimatedNumber.hs b/src/GHCJS/DOM/SVGAnimatedNumber.hs deleted file mode 100644 --- a/src/GHCJS/DOM/SVGAnimatedNumber.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.SVGAnimatedNumber ( - module GHCJS.DOM.JSFFI.Generated.SVGAnimatedNumber - ) where -import GHCJS.DOM.JSFFI.Generated.SVGAnimatedNumber diff --git a/src/GHCJS/DOM/SVGAnimatedNumberList.hs b/src/GHCJS/DOM/SVGAnimatedNumberList.hs deleted file mode 100644 --- a/src/GHCJS/DOM/SVGAnimatedNumberList.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.SVGAnimatedNumberList ( - module GHCJS.DOM.JSFFI.Generated.SVGAnimatedNumberList - ) where -import GHCJS.DOM.JSFFI.Generated.SVGAnimatedNumberList diff --git a/src/GHCJS/DOM/SVGAnimatedPreserveAspectRatio.hs b/src/GHCJS/DOM/SVGAnimatedPreserveAspectRatio.hs deleted file mode 100644 --- a/src/GHCJS/DOM/SVGAnimatedPreserveAspectRatio.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.SVGAnimatedPreserveAspectRatio ( - module GHCJS.DOM.JSFFI.Generated.SVGAnimatedPreserveAspectRatio - ) where -import GHCJS.DOM.JSFFI.Generated.SVGAnimatedPreserveAspectRatio diff --git a/src/GHCJS/DOM/SVGAnimatedRect.hs b/src/GHCJS/DOM/SVGAnimatedRect.hs deleted file mode 100644 --- a/src/GHCJS/DOM/SVGAnimatedRect.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.SVGAnimatedRect ( - module GHCJS.DOM.JSFFI.Generated.SVGAnimatedRect - ) where -import GHCJS.DOM.JSFFI.Generated.SVGAnimatedRect diff --git a/src/GHCJS/DOM/SVGAnimatedString.hs b/src/GHCJS/DOM/SVGAnimatedString.hs deleted file mode 100644 --- a/src/GHCJS/DOM/SVGAnimatedString.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.SVGAnimatedString ( - module GHCJS.DOM.JSFFI.Generated.SVGAnimatedString - ) where -import GHCJS.DOM.JSFFI.Generated.SVGAnimatedString diff --git a/src/GHCJS/DOM/SVGAnimatedTransformList.hs b/src/GHCJS/DOM/SVGAnimatedTransformList.hs deleted file mode 100644 --- a/src/GHCJS/DOM/SVGAnimatedTransformList.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.SVGAnimatedTransformList ( - module GHCJS.DOM.JSFFI.Generated.SVGAnimatedTransformList - ) where -import GHCJS.DOM.JSFFI.Generated.SVGAnimatedTransformList diff --git a/src/GHCJS/DOM/SVGAnimationElement.hs b/src/GHCJS/DOM/SVGAnimationElement.hs deleted file mode 100644 --- a/src/GHCJS/DOM/SVGAnimationElement.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.SVGAnimationElement ( - module GHCJS.DOM.JSFFI.Generated.SVGAnimationElement - ) where -import GHCJS.DOM.JSFFI.Generated.SVGAnimationElement diff --git a/src/GHCJS/DOM/SVGCircleElement.hs b/src/GHCJS/DOM/SVGCircleElement.hs deleted file mode 100644 --- a/src/GHCJS/DOM/SVGCircleElement.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.SVGCircleElement ( - module GHCJS.DOM.JSFFI.Generated.SVGCircleElement - ) where -import GHCJS.DOM.JSFFI.Generated.SVGCircleElement diff --git a/src/GHCJS/DOM/SVGClipPathElement.hs b/src/GHCJS/DOM/SVGClipPathElement.hs deleted file mode 100644 --- a/src/GHCJS/DOM/SVGClipPathElement.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.SVGClipPathElement ( - module GHCJS.DOM.JSFFI.Generated.SVGClipPathElement - ) where -import GHCJS.DOM.JSFFI.Generated.SVGClipPathElement diff --git a/src/GHCJS/DOM/SVGColor.hs b/src/GHCJS/DOM/SVGColor.hs deleted file mode 100644 --- a/src/GHCJS/DOM/SVGColor.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.SVGColor ( - module GHCJS.DOM.JSFFI.Generated.SVGColor - ) where -import GHCJS.DOM.JSFFI.Generated.SVGColor diff --git a/src/GHCJS/DOM/SVGComponentTransferFunctionElement.hs b/src/GHCJS/DOM/SVGComponentTransferFunctionElement.hs deleted file mode 100644 --- a/src/GHCJS/DOM/SVGComponentTransferFunctionElement.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.SVGComponentTransferFunctionElement ( - module GHCJS.DOM.JSFFI.Generated.SVGComponentTransferFunctionElement - ) where -import GHCJS.DOM.JSFFI.Generated.SVGComponentTransferFunctionElement diff --git a/src/GHCJS/DOM/SVGCursorElement.hs b/src/GHCJS/DOM/SVGCursorElement.hs deleted file mode 100644 --- a/src/GHCJS/DOM/SVGCursorElement.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.SVGCursorElement ( - module GHCJS.DOM.JSFFI.Generated.SVGCursorElement - ) where -import GHCJS.DOM.JSFFI.Generated.SVGCursorElement diff --git a/src/GHCJS/DOM/SVGDocument.hs b/src/GHCJS/DOM/SVGDocument.hs deleted file mode 100644 --- a/src/GHCJS/DOM/SVGDocument.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.SVGDocument ( - module GHCJS.DOM.JSFFI.Generated.SVGDocument - ) where -import GHCJS.DOM.JSFFI.Generated.SVGDocument diff --git a/src/GHCJS/DOM/SVGElement.hs b/src/GHCJS/DOM/SVGElement.hs deleted file mode 100644 --- a/src/GHCJS/DOM/SVGElement.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.SVGElement ( - module GHCJS.DOM.JSFFI.Generated.SVGElement - ) where -import GHCJS.DOM.JSFFI.Generated.SVGElement diff --git a/src/GHCJS/DOM/SVGEllipseElement.hs b/src/GHCJS/DOM/SVGEllipseElement.hs deleted file mode 100644 --- a/src/GHCJS/DOM/SVGEllipseElement.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.SVGEllipseElement ( - module GHCJS.DOM.JSFFI.Generated.SVGEllipseElement - ) where -import GHCJS.DOM.JSFFI.Generated.SVGEllipseElement diff --git a/src/GHCJS/DOM/SVGExternalResourcesRequired.hs b/src/GHCJS/DOM/SVGExternalResourcesRequired.hs deleted file mode 100644 --- a/src/GHCJS/DOM/SVGExternalResourcesRequired.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.SVGExternalResourcesRequired ( - module GHCJS.DOM.JSFFI.Generated.SVGExternalResourcesRequired - ) where -import GHCJS.DOM.JSFFI.Generated.SVGExternalResourcesRequired diff --git a/src/GHCJS/DOM/SVGFEBlendElement.hs b/src/GHCJS/DOM/SVGFEBlendElement.hs deleted file mode 100644 --- a/src/GHCJS/DOM/SVGFEBlendElement.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.SVGFEBlendElement ( - module GHCJS.DOM.JSFFI.Generated.SVGFEBlendElement - ) where -import GHCJS.DOM.JSFFI.Generated.SVGFEBlendElement diff --git a/src/GHCJS/DOM/SVGFEColorMatrixElement.hs b/src/GHCJS/DOM/SVGFEColorMatrixElement.hs deleted file mode 100644 --- a/src/GHCJS/DOM/SVGFEColorMatrixElement.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.SVGFEColorMatrixElement ( - module GHCJS.DOM.JSFFI.Generated.SVGFEColorMatrixElement - ) where -import GHCJS.DOM.JSFFI.Generated.SVGFEColorMatrixElement diff --git a/src/GHCJS/DOM/SVGFEComponentTransferElement.hs b/src/GHCJS/DOM/SVGFEComponentTransferElement.hs deleted file mode 100644 --- a/src/GHCJS/DOM/SVGFEComponentTransferElement.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.SVGFEComponentTransferElement ( - module GHCJS.DOM.JSFFI.Generated.SVGFEComponentTransferElement - ) where -import GHCJS.DOM.JSFFI.Generated.SVGFEComponentTransferElement diff --git a/src/GHCJS/DOM/SVGFECompositeElement.hs b/src/GHCJS/DOM/SVGFECompositeElement.hs deleted file mode 100644 --- a/src/GHCJS/DOM/SVGFECompositeElement.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.SVGFECompositeElement ( - module GHCJS.DOM.JSFFI.Generated.SVGFECompositeElement - ) where -import GHCJS.DOM.JSFFI.Generated.SVGFECompositeElement diff --git a/src/GHCJS/DOM/SVGFEConvolveMatrixElement.hs b/src/GHCJS/DOM/SVGFEConvolveMatrixElement.hs deleted file mode 100644 --- a/src/GHCJS/DOM/SVGFEConvolveMatrixElement.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.SVGFEConvolveMatrixElement ( - module GHCJS.DOM.JSFFI.Generated.SVGFEConvolveMatrixElement - ) where -import GHCJS.DOM.JSFFI.Generated.SVGFEConvolveMatrixElement diff --git a/src/GHCJS/DOM/SVGFEDiffuseLightingElement.hs b/src/GHCJS/DOM/SVGFEDiffuseLightingElement.hs deleted file mode 100644 --- a/src/GHCJS/DOM/SVGFEDiffuseLightingElement.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.SVGFEDiffuseLightingElement ( - module GHCJS.DOM.JSFFI.Generated.SVGFEDiffuseLightingElement - ) where -import GHCJS.DOM.JSFFI.Generated.SVGFEDiffuseLightingElement diff --git a/src/GHCJS/DOM/SVGFEDisplacementMapElement.hs b/src/GHCJS/DOM/SVGFEDisplacementMapElement.hs deleted file mode 100644 --- a/src/GHCJS/DOM/SVGFEDisplacementMapElement.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.SVGFEDisplacementMapElement ( - module GHCJS.DOM.JSFFI.Generated.SVGFEDisplacementMapElement - ) where -import GHCJS.DOM.JSFFI.Generated.SVGFEDisplacementMapElement diff --git a/src/GHCJS/DOM/SVGFEDistantLightElement.hs b/src/GHCJS/DOM/SVGFEDistantLightElement.hs deleted file mode 100644 --- a/src/GHCJS/DOM/SVGFEDistantLightElement.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.SVGFEDistantLightElement ( - module GHCJS.DOM.JSFFI.Generated.SVGFEDistantLightElement - ) where -import GHCJS.DOM.JSFFI.Generated.SVGFEDistantLightElement diff --git a/src/GHCJS/DOM/SVGFEDropShadowElement.hs b/src/GHCJS/DOM/SVGFEDropShadowElement.hs deleted file mode 100644 --- a/src/GHCJS/DOM/SVGFEDropShadowElement.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.SVGFEDropShadowElement ( - module GHCJS.DOM.JSFFI.Generated.SVGFEDropShadowElement - ) where -import GHCJS.DOM.JSFFI.Generated.SVGFEDropShadowElement diff --git a/src/GHCJS/DOM/SVGFEGaussianBlurElement.hs b/src/GHCJS/DOM/SVGFEGaussianBlurElement.hs deleted file mode 100644 --- a/src/GHCJS/DOM/SVGFEGaussianBlurElement.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.SVGFEGaussianBlurElement ( - module GHCJS.DOM.JSFFI.Generated.SVGFEGaussianBlurElement - ) where -import GHCJS.DOM.JSFFI.Generated.SVGFEGaussianBlurElement diff --git a/src/GHCJS/DOM/SVGFEImageElement.hs b/src/GHCJS/DOM/SVGFEImageElement.hs deleted file mode 100644 --- a/src/GHCJS/DOM/SVGFEImageElement.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.SVGFEImageElement ( - module GHCJS.DOM.JSFFI.Generated.SVGFEImageElement - ) where -import GHCJS.DOM.JSFFI.Generated.SVGFEImageElement diff --git a/src/GHCJS/DOM/SVGFEMergeNodeElement.hs b/src/GHCJS/DOM/SVGFEMergeNodeElement.hs deleted file mode 100644 --- a/src/GHCJS/DOM/SVGFEMergeNodeElement.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.SVGFEMergeNodeElement ( - module GHCJS.DOM.JSFFI.Generated.SVGFEMergeNodeElement - ) where -import GHCJS.DOM.JSFFI.Generated.SVGFEMergeNodeElement diff --git a/src/GHCJS/DOM/SVGFEMorphologyElement.hs b/src/GHCJS/DOM/SVGFEMorphologyElement.hs deleted file mode 100644 --- a/src/GHCJS/DOM/SVGFEMorphologyElement.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.SVGFEMorphologyElement ( - module GHCJS.DOM.JSFFI.Generated.SVGFEMorphologyElement - ) where -import GHCJS.DOM.JSFFI.Generated.SVGFEMorphologyElement diff --git a/src/GHCJS/DOM/SVGFEOffsetElement.hs b/src/GHCJS/DOM/SVGFEOffsetElement.hs deleted file mode 100644 --- a/src/GHCJS/DOM/SVGFEOffsetElement.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.SVGFEOffsetElement ( - module GHCJS.DOM.JSFFI.Generated.SVGFEOffsetElement - ) where -import GHCJS.DOM.JSFFI.Generated.SVGFEOffsetElement diff --git a/src/GHCJS/DOM/SVGFEPointLightElement.hs b/src/GHCJS/DOM/SVGFEPointLightElement.hs deleted file mode 100644 --- a/src/GHCJS/DOM/SVGFEPointLightElement.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.SVGFEPointLightElement ( - module GHCJS.DOM.JSFFI.Generated.SVGFEPointLightElement - ) where -import GHCJS.DOM.JSFFI.Generated.SVGFEPointLightElement diff --git a/src/GHCJS/DOM/SVGFESpecularLightingElement.hs b/src/GHCJS/DOM/SVGFESpecularLightingElement.hs deleted file mode 100644 --- a/src/GHCJS/DOM/SVGFESpecularLightingElement.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.SVGFESpecularLightingElement ( - module GHCJS.DOM.JSFFI.Generated.SVGFESpecularLightingElement - ) where -import GHCJS.DOM.JSFFI.Generated.SVGFESpecularLightingElement diff --git a/src/GHCJS/DOM/SVGFESpotLightElement.hs b/src/GHCJS/DOM/SVGFESpotLightElement.hs deleted file mode 100644 --- a/src/GHCJS/DOM/SVGFESpotLightElement.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.SVGFESpotLightElement ( - module GHCJS.DOM.JSFFI.Generated.SVGFESpotLightElement - ) where -import GHCJS.DOM.JSFFI.Generated.SVGFESpotLightElement diff --git a/src/GHCJS/DOM/SVGFETileElement.hs b/src/GHCJS/DOM/SVGFETileElement.hs deleted file mode 100644 --- a/src/GHCJS/DOM/SVGFETileElement.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.SVGFETileElement ( - module GHCJS.DOM.JSFFI.Generated.SVGFETileElement - ) where -import GHCJS.DOM.JSFFI.Generated.SVGFETileElement diff --git a/src/GHCJS/DOM/SVGFETurbulenceElement.hs b/src/GHCJS/DOM/SVGFETurbulenceElement.hs deleted file mode 100644 --- a/src/GHCJS/DOM/SVGFETurbulenceElement.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.SVGFETurbulenceElement ( - module GHCJS.DOM.JSFFI.Generated.SVGFETurbulenceElement - ) where -import GHCJS.DOM.JSFFI.Generated.SVGFETurbulenceElement diff --git a/src/GHCJS/DOM/SVGFilterElement.hs b/src/GHCJS/DOM/SVGFilterElement.hs deleted file mode 100644 --- a/src/GHCJS/DOM/SVGFilterElement.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.SVGFilterElement ( - module GHCJS.DOM.JSFFI.Generated.SVGFilterElement - ) where -import GHCJS.DOM.JSFFI.Generated.SVGFilterElement diff --git a/src/GHCJS/DOM/SVGFilterPrimitiveStandardAttributes.hs b/src/GHCJS/DOM/SVGFilterPrimitiveStandardAttributes.hs deleted file mode 100644 --- a/src/GHCJS/DOM/SVGFilterPrimitiveStandardAttributes.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.SVGFilterPrimitiveStandardAttributes ( - module GHCJS.DOM.JSFFI.Generated.SVGFilterPrimitiveStandardAttributes - ) where -import GHCJS.DOM.JSFFI.Generated.SVGFilterPrimitiveStandardAttributes diff --git a/src/GHCJS/DOM/SVGFitToViewBox.hs b/src/GHCJS/DOM/SVGFitToViewBox.hs deleted file mode 100644 --- a/src/GHCJS/DOM/SVGFitToViewBox.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.SVGFitToViewBox ( - module GHCJS.DOM.JSFFI.Generated.SVGFitToViewBox - ) where -import GHCJS.DOM.JSFFI.Generated.SVGFitToViewBox diff --git a/src/GHCJS/DOM/SVGForeignObjectElement.hs b/src/GHCJS/DOM/SVGForeignObjectElement.hs deleted file mode 100644 --- a/src/GHCJS/DOM/SVGForeignObjectElement.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.SVGForeignObjectElement ( - module GHCJS.DOM.JSFFI.Generated.SVGForeignObjectElement - ) where -import GHCJS.DOM.JSFFI.Generated.SVGForeignObjectElement diff --git a/src/GHCJS/DOM/SVGGlyphRefElement.hs b/src/GHCJS/DOM/SVGGlyphRefElement.hs deleted file mode 100644 --- a/src/GHCJS/DOM/SVGGlyphRefElement.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.SVGGlyphRefElement ( - module GHCJS.DOM.JSFFI.Generated.SVGGlyphRefElement - ) where -import GHCJS.DOM.JSFFI.Generated.SVGGlyphRefElement diff --git a/src/GHCJS/DOM/SVGGradientElement.hs b/src/GHCJS/DOM/SVGGradientElement.hs deleted file mode 100644 --- a/src/GHCJS/DOM/SVGGradientElement.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.SVGGradientElement ( - module GHCJS.DOM.JSFFI.Generated.SVGGradientElement - ) where -import GHCJS.DOM.JSFFI.Generated.SVGGradientElement diff --git a/src/GHCJS/DOM/SVGGraphicsElement.hs b/src/GHCJS/DOM/SVGGraphicsElement.hs deleted file mode 100644 --- a/src/GHCJS/DOM/SVGGraphicsElement.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.SVGGraphicsElement ( - module GHCJS.DOM.JSFFI.Generated.SVGGraphicsElement - ) where -import GHCJS.DOM.JSFFI.Generated.SVGGraphicsElement diff --git a/src/GHCJS/DOM/SVGImageElement.hs b/src/GHCJS/DOM/SVGImageElement.hs deleted file mode 100644 --- a/src/GHCJS/DOM/SVGImageElement.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.SVGImageElement ( - module GHCJS.DOM.JSFFI.Generated.SVGImageElement - ) where -import GHCJS.DOM.JSFFI.Generated.SVGImageElement diff --git a/src/GHCJS/DOM/SVGLength.hs b/src/GHCJS/DOM/SVGLength.hs deleted file mode 100644 --- a/src/GHCJS/DOM/SVGLength.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.SVGLength ( - module GHCJS.DOM.JSFFI.Generated.SVGLength - ) where -import GHCJS.DOM.JSFFI.Generated.SVGLength diff --git a/src/GHCJS/DOM/SVGLengthList.hs b/src/GHCJS/DOM/SVGLengthList.hs deleted file mode 100644 --- a/src/GHCJS/DOM/SVGLengthList.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.SVGLengthList ( - module GHCJS.DOM.JSFFI.Generated.SVGLengthList - ) where -import GHCJS.DOM.JSFFI.Generated.SVGLengthList diff --git a/src/GHCJS/DOM/SVGLineElement.hs b/src/GHCJS/DOM/SVGLineElement.hs deleted file mode 100644 --- a/src/GHCJS/DOM/SVGLineElement.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.SVGLineElement ( - module GHCJS.DOM.JSFFI.Generated.SVGLineElement - ) where -import GHCJS.DOM.JSFFI.Generated.SVGLineElement diff --git a/src/GHCJS/DOM/SVGLinearGradientElement.hs b/src/GHCJS/DOM/SVGLinearGradientElement.hs deleted file mode 100644 --- a/src/GHCJS/DOM/SVGLinearGradientElement.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.SVGLinearGradientElement ( - module GHCJS.DOM.JSFFI.Generated.SVGLinearGradientElement - ) where -import GHCJS.DOM.JSFFI.Generated.SVGLinearGradientElement diff --git a/src/GHCJS/DOM/SVGMarkerElement.hs b/src/GHCJS/DOM/SVGMarkerElement.hs deleted file mode 100644 --- a/src/GHCJS/DOM/SVGMarkerElement.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.SVGMarkerElement ( - module GHCJS.DOM.JSFFI.Generated.SVGMarkerElement - ) where -import GHCJS.DOM.JSFFI.Generated.SVGMarkerElement diff --git a/src/GHCJS/DOM/SVGMaskElement.hs b/src/GHCJS/DOM/SVGMaskElement.hs deleted file mode 100644 --- a/src/GHCJS/DOM/SVGMaskElement.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.SVGMaskElement ( - module GHCJS.DOM.JSFFI.Generated.SVGMaskElement - ) where -import GHCJS.DOM.JSFFI.Generated.SVGMaskElement diff --git a/src/GHCJS/DOM/SVGMatrix.hs b/src/GHCJS/DOM/SVGMatrix.hs deleted file mode 100644 --- a/src/GHCJS/DOM/SVGMatrix.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.SVGMatrix ( - module GHCJS.DOM.JSFFI.Generated.SVGMatrix - ) where -import GHCJS.DOM.JSFFI.Generated.SVGMatrix diff --git a/src/GHCJS/DOM/SVGNumber.hs b/src/GHCJS/DOM/SVGNumber.hs deleted file mode 100644 --- a/src/GHCJS/DOM/SVGNumber.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.SVGNumber ( - module GHCJS.DOM.JSFFI.Generated.SVGNumber - ) where -import GHCJS.DOM.JSFFI.Generated.SVGNumber diff --git a/src/GHCJS/DOM/SVGNumberList.hs b/src/GHCJS/DOM/SVGNumberList.hs deleted file mode 100644 --- a/src/GHCJS/DOM/SVGNumberList.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.SVGNumberList ( - module GHCJS.DOM.JSFFI.Generated.SVGNumberList - ) where -import GHCJS.DOM.JSFFI.Generated.SVGNumberList diff --git a/src/GHCJS/DOM/SVGPaint.hs b/src/GHCJS/DOM/SVGPaint.hs deleted file mode 100644 --- a/src/GHCJS/DOM/SVGPaint.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.SVGPaint ( - module GHCJS.DOM.JSFFI.Generated.SVGPaint - ) where -import GHCJS.DOM.JSFFI.Generated.SVGPaint diff --git a/src/GHCJS/DOM/SVGPathElement.hs b/src/GHCJS/DOM/SVGPathElement.hs deleted file mode 100644 --- a/src/GHCJS/DOM/SVGPathElement.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.SVGPathElement ( - module GHCJS.DOM.JSFFI.Generated.SVGPathElement - ) where -import GHCJS.DOM.JSFFI.Generated.SVGPathElement diff --git a/src/GHCJS/DOM/SVGPathSeg.hs b/src/GHCJS/DOM/SVGPathSeg.hs deleted file mode 100644 --- a/src/GHCJS/DOM/SVGPathSeg.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.SVGPathSeg ( - module GHCJS.DOM.JSFFI.Generated.SVGPathSeg - ) where -import GHCJS.DOM.JSFFI.Generated.SVGPathSeg diff --git a/src/GHCJS/DOM/SVGPathSegArcAbs.hs b/src/GHCJS/DOM/SVGPathSegArcAbs.hs deleted file mode 100644 --- a/src/GHCJS/DOM/SVGPathSegArcAbs.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.SVGPathSegArcAbs ( - module GHCJS.DOM.JSFFI.Generated.SVGPathSegArcAbs - ) where -import GHCJS.DOM.JSFFI.Generated.SVGPathSegArcAbs diff --git a/src/GHCJS/DOM/SVGPathSegArcRel.hs b/src/GHCJS/DOM/SVGPathSegArcRel.hs deleted file mode 100644 --- a/src/GHCJS/DOM/SVGPathSegArcRel.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.SVGPathSegArcRel ( - module GHCJS.DOM.JSFFI.Generated.SVGPathSegArcRel - ) where -import GHCJS.DOM.JSFFI.Generated.SVGPathSegArcRel diff --git a/src/GHCJS/DOM/SVGPathSegCurvetoCubicAbs.hs b/src/GHCJS/DOM/SVGPathSegCurvetoCubicAbs.hs deleted file mode 100644 --- a/src/GHCJS/DOM/SVGPathSegCurvetoCubicAbs.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.SVGPathSegCurvetoCubicAbs ( - module GHCJS.DOM.JSFFI.Generated.SVGPathSegCurvetoCubicAbs - ) where -import GHCJS.DOM.JSFFI.Generated.SVGPathSegCurvetoCubicAbs diff --git a/src/GHCJS/DOM/SVGPathSegCurvetoCubicRel.hs b/src/GHCJS/DOM/SVGPathSegCurvetoCubicRel.hs deleted file mode 100644 --- a/src/GHCJS/DOM/SVGPathSegCurvetoCubicRel.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.SVGPathSegCurvetoCubicRel ( - module GHCJS.DOM.JSFFI.Generated.SVGPathSegCurvetoCubicRel - ) where -import GHCJS.DOM.JSFFI.Generated.SVGPathSegCurvetoCubicRel diff --git a/src/GHCJS/DOM/SVGPathSegCurvetoCubicSmoothAbs.hs b/src/GHCJS/DOM/SVGPathSegCurvetoCubicSmoothAbs.hs deleted file mode 100644 --- a/src/GHCJS/DOM/SVGPathSegCurvetoCubicSmoothAbs.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.SVGPathSegCurvetoCubicSmoothAbs ( - module GHCJS.DOM.JSFFI.Generated.SVGPathSegCurvetoCubicSmoothAbs - ) where -import GHCJS.DOM.JSFFI.Generated.SVGPathSegCurvetoCubicSmoothAbs diff --git a/src/GHCJS/DOM/SVGPathSegCurvetoCubicSmoothRel.hs b/src/GHCJS/DOM/SVGPathSegCurvetoCubicSmoothRel.hs deleted file mode 100644 --- a/src/GHCJS/DOM/SVGPathSegCurvetoCubicSmoothRel.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.SVGPathSegCurvetoCubicSmoothRel ( - module GHCJS.DOM.JSFFI.Generated.SVGPathSegCurvetoCubicSmoothRel - ) where -import GHCJS.DOM.JSFFI.Generated.SVGPathSegCurvetoCubicSmoothRel diff --git a/src/GHCJS/DOM/SVGPathSegCurvetoQuadraticAbs.hs b/src/GHCJS/DOM/SVGPathSegCurvetoQuadraticAbs.hs deleted file mode 100644 --- a/src/GHCJS/DOM/SVGPathSegCurvetoQuadraticAbs.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.SVGPathSegCurvetoQuadraticAbs ( - module GHCJS.DOM.JSFFI.Generated.SVGPathSegCurvetoQuadraticAbs - ) where -import GHCJS.DOM.JSFFI.Generated.SVGPathSegCurvetoQuadraticAbs diff --git a/src/GHCJS/DOM/SVGPathSegCurvetoQuadraticRel.hs b/src/GHCJS/DOM/SVGPathSegCurvetoQuadraticRel.hs deleted file mode 100644 --- a/src/GHCJS/DOM/SVGPathSegCurvetoQuadraticRel.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.SVGPathSegCurvetoQuadraticRel ( - module GHCJS.DOM.JSFFI.Generated.SVGPathSegCurvetoQuadraticRel - ) where -import GHCJS.DOM.JSFFI.Generated.SVGPathSegCurvetoQuadraticRel diff --git a/src/GHCJS/DOM/SVGPathSegCurvetoQuadraticSmoothAbs.hs b/src/GHCJS/DOM/SVGPathSegCurvetoQuadraticSmoothAbs.hs deleted file mode 100644 --- a/src/GHCJS/DOM/SVGPathSegCurvetoQuadraticSmoothAbs.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.SVGPathSegCurvetoQuadraticSmoothAbs ( - module GHCJS.DOM.JSFFI.Generated.SVGPathSegCurvetoQuadraticSmoothAbs - ) where -import GHCJS.DOM.JSFFI.Generated.SVGPathSegCurvetoQuadraticSmoothAbs diff --git a/src/GHCJS/DOM/SVGPathSegCurvetoQuadraticSmoothRel.hs b/src/GHCJS/DOM/SVGPathSegCurvetoQuadraticSmoothRel.hs deleted file mode 100644 --- a/src/GHCJS/DOM/SVGPathSegCurvetoQuadraticSmoothRel.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.SVGPathSegCurvetoQuadraticSmoothRel ( - module GHCJS.DOM.JSFFI.Generated.SVGPathSegCurvetoQuadraticSmoothRel - ) where -import GHCJS.DOM.JSFFI.Generated.SVGPathSegCurvetoQuadraticSmoothRel diff --git a/src/GHCJS/DOM/SVGPathSegLinetoAbs.hs b/src/GHCJS/DOM/SVGPathSegLinetoAbs.hs deleted file mode 100644 --- a/src/GHCJS/DOM/SVGPathSegLinetoAbs.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.SVGPathSegLinetoAbs ( - module GHCJS.DOM.JSFFI.Generated.SVGPathSegLinetoAbs - ) where -import GHCJS.DOM.JSFFI.Generated.SVGPathSegLinetoAbs diff --git a/src/GHCJS/DOM/SVGPathSegLinetoHorizontalAbs.hs b/src/GHCJS/DOM/SVGPathSegLinetoHorizontalAbs.hs deleted file mode 100644 --- a/src/GHCJS/DOM/SVGPathSegLinetoHorizontalAbs.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.SVGPathSegLinetoHorizontalAbs ( - module GHCJS.DOM.JSFFI.Generated.SVGPathSegLinetoHorizontalAbs - ) where -import GHCJS.DOM.JSFFI.Generated.SVGPathSegLinetoHorizontalAbs diff --git a/src/GHCJS/DOM/SVGPathSegLinetoHorizontalRel.hs b/src/GHCJS/DOM/SVGPathSegLinetoHorizontalRel.hs deleted file mode 100644 --- a/src/GHCJS/DOM/SVGPathSegLinetoHorizontalRel.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.SVGPathSegLinetoHorizontalRel ( - module GHCJS.DOM.JSFFI.Generated.SVGPathSegLinetoHorizontalRel - ) where -import GHCJS.DOM.JSFFI.Generated.SVGPathSegLinetoHorizontalRel diff --git a/src/GHCJS/DOM/SVGPathSegLinetoRel.hs b/src/GHCJS/DOM/SVGPathSegLinetoRel.hs deleted file mode 100644 --- a/src/GHCJS/DOM/SVGPathSegLinetoRel.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.SVGPathSegLinetoRel ( - module GHCJS.DOM.JSFFI.Generated.SVGPathSegLinetoRel - ) where -import GHCJS.DOM.JSFFI.Generated.SVGPathSegLinetoRel diff --git a/src/GHCJS/DOM/SVGPathSegLinetoVerticalAbs.hs b/src/GHCJS/DOM/SVGPathSegLinetoVerticalAbs.hs deleted file mode 100644 --- a/src/GHCJS/DOM/SVGPathSegLinetoVerticalAbs.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.SVGPathSegLinetoVerticalAbs ( - module GHCJS.DOM.JSFFI.Generated.SVGPathSegLinetoVerticalAbs - ) where -import GHCJS.DOM.JSFFI.Generated.SVGPathSegLinetoVerticalAbs diff --git a/src/GHCJS/DOM/SVGPathSegLinetoVerticalRel.hs b/src/GHCJS/DOM/SVGPathSegLinetoVerticalRel.hs deleted file mode 100644 --- a/src/GHCJS/DOM/SVGPathSegLinetoVerticalRel.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.SVGPathSegLinetoVerticalRel ( - module GHCJS.DOM.JSFFI.Generated.SVGPathSegLinetoVerticalRel - ) where -import GHCJS.DOM.JSFFI.Generated.SVGPathSegLinetoVerticalRel diff --git a/src/GHCJS/DOM/SVGPathSegList.hs b/src/GHCJS/DOM/SVGPathSegList.hs deleted file mode 100644 --- a/src/GHCJS/DOM/SVGPathSegList.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.SVGPathSegList ( - module GHCJS.DOM.JSFFI.Generated.SVGPathSegList - ) where -import GHCJS.DOM.JSFFI.Generated.SVGPathSegList diff --git a/src/GHCJS/DOM/SVGPathSegMovetoAbs.hs b/src/GHCJS/DOM/SVGPathSegMovetoAbs.hs deleted file mode 100644 --- a/src/GHCJS/DOM/SVGPathSegMovetoAbs.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.SVGPathSegMovetoAbs ( - module GHCJS.DOM.JSFFI.Generated.SVGPathSegMovetoAbs - ) where -import GHCJS.DOM.JSFFI.Generated.SVGPathSegMovetoAbs diff --git a/src/GHCJS/DOM/SVGPathSegMovetoRel.hs b/src/GHCJS/DOM/SVGPathSegMovetoRel.hs deleted file mode 100644 --- a/src/GHCJS/DOM/SVGPathSegMovetoRel.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.SVGPathSegMovetoRel ( - module GHCJS.DOM.JSFFI.Generated.SVGPathSegMovetoRel - ) where -import GHCJS.DOM.JSFFI.Generated.SVGPathSegMovetoRel diff --git a/src/GHCJS/DOM/SVGPatternElement.hs b/src/GHCJS/DOM/SVGPatternElement.hs deleted file mode 100644 --- a/src/GHCJS/DOM/SVGPatternElement.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.SVGPatternElement ( - module GHCJS.DOM.JSFFI.Generated.SVGPatternElement - ) where -import GHCJS.DOM.JSFFI.Generated.SVGPatternElement diff --git a/src/GHCJS/DOM/SVGPoint.hs b/src/GHCJS/DOM/SVGPoint.hs deleted file mode 100644 --- a/src/GHCJS/DOM/SVGPoint.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.SVGPoint ( - module GHCJS.DOM.JSFFI.Generated.SVGPoint - ) where -import GHCJS.DOM.JSFFI.Generated.SVGPoint diff --git a/src/GHCJS/DOM/SVGPointList.hs b/src/GHCJS/DOM/SVGPointList.hs deleted file mode 100644 --- a/src/GHCJS/DOM/SVGPointList.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.SVGPointList ( - module GHCJS.DOM.JSFFI.Generated.SVGPointList - ) where -import GHCJS.DOM.JSFFI.Generated.SVGPointList diff --git a/src/GHCJS/DOM/SVGPolygonElement.hs b/src/GHCJS/DOM/SVGPolygonElement.hs deleted file mode 100644 --- a/src/GHCJS/DOM/SVGPolygonElement.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.SVGPolygonElement ( - module GHCJS.DOM.JSFFI.Generated.SVGPolygonElement - ) where -import GHCJS.DOM.JSFFI.Generated.SVGPolygonElement diff --git a/src/GHCJS/DOM/SVGPolylineElement.hs b/src/GHCJS/DOM/SVGPolylineElement.hs deleted file mode 100644 --- a/src/GHCJS/DOM/SVGPolylineElement.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.SVGPolylineElement ( - module GHCJS.DOM.JSFFI.Generated.SVGPolylineElement - ) where -import GHCJS.DOM.JSFFI.Generated.SVGPolylineElement diff --git a/src/GHCJS/DOM/SVGPreserveAspectRatio.hs b/src/GHCJS/DOM/SVGPreserveAspectRatio.hs deleted file mode 100644 --- a/src/GHCJS/DOM/SVGPreserveAspectRatio.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.SVGPreserveAspectRatio ( - module GHCJS.DOM.JSFFI.Generated.SVGPreserveAspectRatio - ) where -import GHCJS.DOM.JSFFI.Generated.SVGPreserveAspectRatio diff --git a/src/GHCJS/DOM/SVGRadialGradientElement.hs b/src/GHCJS/DOM/SVGRadialGradientElement.hs deleted file mode 100644 --- a/src/GHCJS/DOM/SVGRadialGradientElement.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.SVGRadialGradientElement ( - module GHCJS.DOM.JSFFI.Generated.SVGRadialGradientElement - ) where -import GHCJS.DOM.JSFFI.Generated.SVGRadialGradientElement diff --git a/src/GHCJS/DOM/SVGRect.hs b/src/GHCJS/DOM/SVGRect.hs deleted file mode 100644 --- a/src/GHCJS/DOM/SVGRect.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.SVGRect ( - module GHCJS.DOM.JSFFI.Generated.SVGRect - ) where -import GHCJS.DOM.JSFFI.Generated.SVGRect diff --git a/src/GHCJS/DOM/SVGRectElement.hs b/src/GHCJS/DOM/SVGRectElement.hs deleted file mode 100644 --- a/src/GHCJS/DOM/SVGRectElement.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.SVGRectElement ( - module GHCJS.DOM.JSFFI.Generated.SVGRectElement - ) where -import GHCJS.DOM.JSFFI.Generated.SVGRectElement diff --git a/src/GHCJS/DOM/SVGRenderingIntent.hs b/src/GHCJS/DOM/SVGRenderingIntent.hs deleted file mode 100644 --- a/src/GHCJS/DOM/SVGRenderingIntent.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.SVGRenderingIntent ( - module GHCJS.DOM.JSFFI.Generated.SVGRenderingIntent - ) where -import GHCJS.DOM.JSFFI.Generated.SVGRenderingIntent diff --git a/src/GHCJS/DOM/SVGSVGElement.hs b/src/GHCJS/DOM/SVGSVGElement.hs deleted file mode 100644 --- a/src/GHCJS/DOM/SVGSVGElement.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.SVGSVGElement ( - module GHCJS.DOM.JSFFI.Generated.SVGSVGElement - ) where -import GHCJS.DOM.JSFFI.Generated.SVGSVGElement diff --git a/src/GHCJS/DOM/SVGScriptElement.hs b/src/GHCJS/DOM/SVGScriptElement.hs deleted file mode 100644 --- a/src/GHCJS/DOM/SVGScriptElement.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.SVGScriptElement ( - module GHCJS.DOM.JSFFI.Generated.SVGScriptElement - ) where -import GHCJS.DOM.JSFFI.Generated.SVGScriptElement diff --git a/src/GHCJS/DOM/SVGStopElement.hs b/src/GHCJS/DOM/SVGStopElement.hs deleted file mode 100644 --- a/src/GHCJS/DOM/SVGStopElement.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.SVGStopElement ( - module GHCJS.DOM.JSFFI.Generated.SVGStopElement - ) where -import GHCJS.DOM.JSFFI.Generated.SVGStopElement diff --git a/src/GHCJS/DOM/SVGStringList.hs b/src/GHCJS/DOM/SVGStringList.hs deleted file mode 100644 --- a/src/GHCJS/DOM/SVGStringList.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.SVGStringList ( - module GHCJS.DOM.JSFFI.Generated.SVGStringList - ) where -import GHCJS.DOM.JSFFI.Generated.SVGStringList diff --git a/src/GHCJS/DOM/SVGStyleElement.hs b/src/GHCJS/DOM/SVGStyleElement.hs deleted file mode 100644 --- a/src/GHCJS/DOM/SVGStyleElement.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.SVGStyleElement ( - module GHCJS.DOM.JSFFI.Generated.SVGStyleElement - ) where -import GHCJS.DOM.JSFFI.Generated.SVGStyleElement diff --git a/src/GHCJS/DOM/SVGTests.hs b/src/GHCJS/DOM/SVGTests.hs deleted file mode 100644 --- a/src/GHCJS/DOM/SVGTests.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.SVGTests ( - module GHCJS.DOM.JSFFI.Generated.SVGTests - ) where -import GHCJS.DOM.JSFFI.Generated.SVGTests diff --git a/src/GHCJS/DOM/SVGTextContentElement.hs b/src/GHCJS/DOM/SVGTextContentElement.hs deleted file mode 100644 --- a/src/GHCJS/DOM/SVGTextContentElement.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.SVGTextContentElement ( - module GHCJS.DOM.JSFFI.Generated.SVGTextContentElement - ) where -import GHCJS.DOM.JSFFI.Generated.SVGTextContentElement diff --git a/src/GHCJS/DOM/SVGTextPathElement.hs b/src/GHCJS/DOM/SVGTextPathElement.hs deleted file mode 100644 --- a/src/GHCJS/DOM/SVGTextPathElement.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.SVGTextPathElement ( - module GHCJS.DOM.JSFFI.Generated.SVGTextPathElement - ) where -import GHCJS.DOM.JSFFI.Generated.SVGTextPathElement diff --git a/src/GHCJS/DOM/SVGTextPositioningElement.hs b/src/GHCJS/DOM/SVGTextPositioningElement.hs deleted file mode 100644 --- a/src/GHCJS/DOM/SVGTextPositioningElement.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.SVGTextPositioningElement ( - module GHCJS.DOM.JSFFI.Generated.SVGTextPositioningElement - ) where -import GHCJS.DOM.JSFFI.Generated.SVGTextPositioningElement diff --git a/src/GHCJS/DOM/SVGTransform.hs b/src/GHCJS/DOM/SVGTransform.hs deleted file mode 100644 --- a/src/GHCJS/DOM/SVGTransform.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.SVGTransform ( - module GHCJS.DOM.JSFFI.Generated.SVGTransform - ) where -import GHCJS.DOM.JSFFI.Generated.SVGTransform diff --git a/src/GHCJS/DOM/SVGTransformList.hs b/src/GHCJS/DOM/SVGTransformList.hs deleted file mode 100644 --- a/src/GHCJS/DOM/SVGTransformList.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.SVGTransformList ( - module GHCJS.DOM.JSFFI.Generated.SVGTransformList - ) where -import GHCJS.DOM.JSFFI.Generated.SVGTransformList diff --git a/src/GHCJS/DOM/SVGURIReference.hs b/src/GHCJS/DOM/SVGURIReference.hs deleted file mode 100644 --- a/src/GHCJS/DOM/SVGURIReference.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.SVGURIReference ( - module GHCJS.DOM.JSFFI.Generated.SVGURIReference - ) where -import GHCJS.DOM.JSFFI.Generated.SVGURIReference diff --git a/src/GHCJS/DOM/SVGUnitTypes.hs b/src/GHCJS/DOM/SVGUnitTypes.hs deleted file mode 100644 --- a/src/GHCJS/DOM/SVGUnitTypes.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.SVGUnitTypes ( - module GHCJS.DOM.JSFFI.Generated.SVGUnitTypes - ) where -import GHCJS.DOM.JSFFI.Generated.SVGUnitTypes diff --git a/src/GHCJS/DOM/SVGUseElement.hs b/src/GHCJS/DOM/SVGUseElement.hs deleted file mode 100644 --- a/src/GHCJS/DOM/SVGUseElement.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.SVGUseElement ( - module GHCJS.DOM.JSFFI.Generated.SVGUseElement - ) where -import GHCJS.DOM.JSFFI.Generated.SVGUseElement diff --git a/src/GHCJS/DOM/SVGViewElement.hs b/src/GHCJS/DOM/SVGViewElement.hs deleted file mode 100644 --- a/src/GHCJS/DOM/SVGViewElement.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.SVGViewElement ( - module GHCJS.DOM.JSFFI.Generated.SVGViewElement - ) where -import GHCJS.DOM.JSFFI.Generated.SVGViewElement diff --git a/src/GHCJS/DOM/SVGViewSpec.hs b/src/GHCJS/DOM/SVGViewSpec.hs deleted file mode 100644 --- a/src/GHCJS/DOM/SVGViewSpec.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.SVGViewSpec ( - module GHCJS.DOM.JSFFI.Generated.SVGViewSpec - ) where -import GHCJS.DOM.JSFFI.Generated.SVGViewSpec diff --git a/src/GHCJS/DOM/SVGZoomAndPan.hs b/src/GHCJS/DOM/SVGZoomAndPan.hs deleted file mode 100644 --- a/src/GHCJS/DOM/SVGZoomAndPan.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.SVGZoomAndPan ( - module GHCJS.DOM.JSFFI.Generated.SVGZoomAndPan - ) where -import GHCJS.DOM.JSFFI.Generated.SVGZoomAndPan diff --git a/src/GHCJS/DOM/SVGZoomEvent.hs b/src/GHCJS/DOM/SVGZoomEvent.hs deleted file mode 100644 --- a/src/GHCJS/DOM/SVGZoomEvent.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.SVGZoomEvent ( - module GHCJS.DOM.JSFFI.Generated.SVGZoomEvent - ) where -import GHCJS.DOM.JSFFI.Generated.SVGZoomEvent diff --git a/src/GHCJS/DOM/Screen.hs b/src/GHCJS/DOM/Screen.hs deleted file mode 100644 --- a/src/GHCJS/DOM/Screen.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.Screen ( - module GHCJS.DOM.JSFFI.Generated.Screen - ) where -import GHCJS.DOM.JSFFI.Generated.Screen diff --git a/src/GHCJS/DOM/ScriptProcessorNode.hs b/src/GHCJS/DOM/ScriptProcessorNode.hs deleted file mode 100644 --- a/src/GHCJS/DOM/ScriptProcessorNode.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.ScriptProcessorNode ( - module GHCJS.DOM.JSFFI.Generated.ScriptProcessorNode - ) where -import GHCJS.DOM.JSFFI.Generated.ScriptProcessorNode diff --git a/src/GHCJS/DOM/ScriptProfile.hs b/src/GHCJS/DOM/ScriptProfile.hs deleted file mode 100644 --- a/src/GHCJS/DOM/ScriptProfile.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.ScriptProfile ( - module GHCJS.DOM.JSFFI.Generated.ScriptProfile - ) where -import GHCJS.DOM.JSFFI.Generated.ScriptProfile diff --git a/src/GHCJS/DOM/ScriptProfileNode.hs b/src/GHCJS/DOM/ScriptProfileNode.hs deleted file mode 100644 --- a/src/GHCJS/DOM/ScriptProfileNode.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.ScriptProfileNode ( - module GHCJS.DOM.JSFFI.Generated.ScriptProfileNode - ) where -import GHCJS.DOM.JSFFI.Generated.ScriptProfileNode diff --git a/src/GHCJS/DOM/SecurityPolicy.hs b/src/GHCJS/DOM/SecurityPolicy.hs deleted file mode 100644 --- a/src/GHCJS/DOM/SecurityPolicy.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.SecurityPolicy ( - module GHCJS.DOM.JSFFI.Generated.SecurityPolicy - ) where -import GHCJS.DOM.JSFFI.Generated.SecurityPolicy diff --git a/src/GHCJS/DOM/SecurityPolicyViolationEvent.hs b/src/GHCJS/DOM/SecurityPolicyViolationEvent.hs deleted file mode 100644 --- a/src/GHCJS/DOM/SecurityPolicyViolationEvent.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.SecurityPolicyViolationEvent ( - module GHCJS.DOM.JSFFI.Generated.SecurityPolicyViolationEvent - ) where -import GHCJS.DOM.JSFFI.Generated.SecurityPolicyViolationEvent diff --git a/src/GHCJS/DOM/Selection.hs b/src/GHCJS/DOM/Selection.hs deleted file mode 100644 --- a/src/GHCJS/DOM/Selection.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.Selection ( - module GHCJS.DOM.JSFFI.Generated.Selection - ) where -import GHCJS.DOM.JSFFI.Generated.Selection diff --git a/src/GHCJS/DOM/SourceBuffer.hs b/src/GHCJS/DOM/SourceBuffer.hs deleted file mode 100644 --- a/src/GHCJS/DOM/SourceBuffer.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.SourceBuffer ( - module GHCJS.DOM.JSFFI.Generated.SourceBuffer - ) where -import GHCJS.DOM.JSFFI.Generated.SourceBuffer diff --git a/src/GHCJS/DOM/SourceBufferList.hs b/src/GHCJS/DOM/SourceBufferList.hs deleted file mode 100644 --- a/src/GHCJS/DOM/SourceBufferList.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.SourceBufferList ( - module GHCJS.DOM.JSFFI.Generated.SourceBufferList - ) where -import GHCJS.DOM.JSFFI.Generated.SourceBufferList diff --git a/src/GHCJS/DOM/SourceInfo.hs b/src/GHCJS/DOM/SourceInfo.hs deleted file mode 100644 --- a/src/GHCJS/DOM/SourceInfo.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.SourceInfo ( - module GHCJS.DOM.JSFFI.Generated.SourceInfo - ) where -import GHCJS.DOM.JSFFI.Generated.SourceInfo diff --git a/src/GHCJS/DOM/SpeechSynthesis.hs b/src/GHCJS/DOM/SpeechSynthesis.hs deleted file mode 100644 --- a/src/GHCJS/DOM/SpeechSynthesis.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.SpeechSynthesis ( - module GHCJS.DOM.JSFFI.Generated.SpeechSynthesis - ) where -import GHCJS.DOM.JSFFI.Generated.SpeechSynthesis diff --git a/src/GHCJS/DOM/SpeechSynthesisEvent.hs b/src/GHCJS/DOM/SpeechSynthesisEvent.hs deleted file mode 100644 --- a/src/GHCJS/DOM/SpeechSynthesisEvent.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.SpeechSynthesisEvent ( - module GHCJS.DOM.JSFFI.Generated.SpeechSynthesisEvent - ) where -import GHCJS.DOM.JSFFI.Generated.SpeechSynthesisEvent diff --git a/src/GHCJS/DOM/SpeechSynthesisUtterance.hs b/src/GHCJS/DOM/SpeechSynthesisUtterance.hs deleted file mode 100644 --- a/src/GHCJS/DOM/SpeechSynthesisUtterance.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.SpeechSynthesisUtterance ( - module GHCJS.DOM.JSFFI.Generated.SpeechSynthesisUtterance - ) where -import GHCJS.DOM.JSFFI.Generated.SpeechSynthesisUtterance diff --git a/src/GHCJS/DOM/SpeechSynthesisVoice.hs b/src/GHCJS/DOM/SpeechSynthesisVoice.hs deleted file mode 100644 --- a/src/GHCJS/DOM/SpeechSynthesisVoice.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.SpeechSynthesisVoice ( - module GHCJS.DOM.JSFFI.Generated.SpeechSynthesisVoice - ) where -import GHCJS.DOM.JSFFI.Generated.SpeechSynthesisVoice diff --git a/src/GHCJS/DOM/Storage.hs b/src/GHCJS/DOM/Storage.hs deleted file mode 100644 --- a/src/GHCJS/DOM/Storage.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.Storage ( - module GHCJS.DOM.JSFFI.Generated.Storage - ) where -import GHCJS.DOM.JSFFI.Generated.Storage diff --git a/src/GHCJS/DOM/StorageErrorCallback.hs b/src/GHCJS/DOM/StorageErrorCallback.hs deleted file mode 100644 --- a/src/GHCJS/DOM/StorageErrorCallback.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.StorageErrorCallback ( - module GHCJS.DOM.JSFFI.Generated.StorageErrorCallback - ) where -import GHCJS.DOM.JSFFI.Generated.StorageErrorCallback diff --git a/src/GHCJS/DOM/StorageEvent.hs b/src/GHCJS/DOM/StorageEvent.hs deleted file mode 100644 --- a/src/GHCJS/DOM/StorageEvent.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.StorageEvent ( - module GHCJS.DOM.JSFFI.Generated.StorageEvent - ) where -import GHCJS.DOM.JSFFI.Generated.StorageEvent diff --git a/src/GHCJS/DOM/StorageInfo.hs b/src/GHCJS/DOM/StorageInfo.hs deleted file mode 100644 --- a/src/GHCJS/DOM/StorageInfo.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.StorageInfo ( - module GHCJS.DOM.JSFFI.Generated.StorageInfo - ) where -import GHCJS.DOM.JSFFI.Generated.StorageInfo diff --git a/src/GHCJS/DOM/StorageQuota.hs b/src/GHCJS/DOM/StorageQuota.hs deleted file mode 100644 --- a/src/GHCJS/DOM/StorageQuota.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.StorageQuota ( - module GHCJS.DOM.JSFFI.Generated.StorageQuota - ) where -import GHCJS.DOM.JSFFI.Generated.StorageQuota diff --git a/src/GHCJS/DOM/StorageQuotaCallback.hs b/src/GHCJS/DOM/StorageQuotaCallback.hs deleted file mode 100644 --- a/src/GHCJS/DOM/StorageQuotaCallback.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.StorageQuotaCallback ( - module GHCJS.DOM.JSFFI.Generated.StorageQuotaCallback - ) where -import GHCJS.DOM.JSFFI.Generated.StorageQuotaCallback diff --git a/src/GHCJS/DOM/StorageUsageCallback.hs b/src/GHCJS/DOM/StorageUsageCallback.hs deleted file mode 100644 --- a/src/GHCJS/DOM/StorageUsageCallback.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.StorageUsageCallback ( - module GHCJS.DOM.JSFFI.Generated.StorageUsageCallback - ) where -import GHCJS.DOM.JSFFI.Generated.StorageUsageCallback diff --git a/src/GHCJS/DOM/StringCallback.hs b/src/GHCJS/DOM/StringCallback.hs deleted file mode 100644 --- a/src/GHCJS/DOM/StringCallback.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.StringCallback ( - module GHCJS.DOM.JSFFI.Generated.StringCallback - ) where -import GHCJS.DOM.JSFFI.Generated.StringCallback diff --git a/src/GHCJS/DOM/StyleMedia.hs b/src/GHCJS/DOM/StyleMedia.hs deleted file mode 100644 --- a/src/GHCJS/DOM/StyleMedia.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.StyleMedia ( - module GHCJS.DOM.JSFFI.Generated.StyleMedia - ) where -import GHCJS.DOM.JSFFI.Generated.StyleMedia diff --git a/src/GHCJS/DOM/StyleSheet.hs b/src/GHCJS/DOM/StyleSheet.hs deleted file mode 100644 --- a/src/GHCJS/DOM/StyleSheet.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.StyleSheet ( - module GHCJS.DOM.JSFFI.Generated.StyleSheet - ) where -import GHCJS.DOM.JSFFI.Generated.StyleSheet diff --git a/src/GHCJS/DOM/StyleSheetList.hs b/src/GHCJS/DOM/StyleSheetList.hs deleted file mode 100644 --- a/src/GHCJS/DOM/StyleSheetList.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.StyleSheetList ( - module GHCJS.DOM.JSFFI.Generated.StyleSheetList - ) where -import GHCJS.DOM.JSFFI.Generated.StyleSheetList diff --git a/src/GHCJS/DOM/SubtleCrypto.hs b/src/GHCJS/DOM/SubtleCrypto.hs deleted file mode 100644 --- a/src/GHCJS/DOM/SubtleCrypto.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.SubtleCrypto ( - module GHCJS.DOM.JSFFI.Generated.SubtleCrypto - ) where -import GHCJS.DOM.JSFFI.Generated.SubtleCrypto diff --git a/src/GHCJS/DOM/Text.hs b/src/GHCJS/DOM/Text.hs deleted file mode 100644 --- a/src/GHCJS/DOM/Text.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.Text ( - module GHCJS.DOM.JSFFI.Generated.Text - ) where -import GHCJS.DOM.JSFFI.Generated.Text diff --git a/src/GHCJS/DOM/TextEvent.hs b/src/GHCJS/DOM/TextEvent.hs deleted file mode 100644 --- a/src/GHCJS/DOM/TextEvent.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.TextEvent ( - module GHCJS.DOM.JSFFI.Generated.TextEvent - ) where -import GHCJS.DOM.JSFFI.Generated.TextEvent diff --git a/src/GHCJS/DOM/TextMetrics.hs b/src/GHCJS/DOM/TextMetrics.hs deleted file mode 100644 --- a/src/GHCJS/DOM/TextMetrics.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.TextMetrics ( - module GHCJS.DOM.JSFFI.Generated.TextMetrics - ) where -import GHCJS.DOM.JSFFI.Generated.TextMetrics diff --git a/src/GHCJS/DOM/TextTrack.hs b/src/GHCJS/DOM/TextTrack.hs deleted file mode 100644 --- a/src/GHCJS/DOM/TextTrack.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.TextTrack ( - module GHCJS.DOM.JSFFI.Generated.TextTrack - ) where -import GHCJS.DOM.JSFFI.Generated.TextTrack diff --git a/src/GHCJS/DOM/TextTrackCue.hs b/src/GHCJS/DOM/TextTrackCue.hs deleted file mode 100644 --- a/src/GHCJS/DOM/TextTrackCue.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.TextTrackCue ( - module GHCJS.DOM.JSFFI.Generated.TextTrackCue - ) where -import GHCJS.DOM.JSFFI.Generated.TextTrackCue diff --git a/src/GHCJS/DOM/TextTrackCueList.hs b/src/GHCJS/DOM/TextTrackCueList.hs deleted file mode 100644 --- a/src/GHCJS/DOM/TextTrackCueList.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.TextTrackCueList ( - module GHCJS.DOM.JSFFI.Generated.TextTrackCueList - ) where -import GHCJS.DOM.JSFFI.Generated.TextTrackCueList diff --git a/src/GHCJS/DOM/TextTrackList.hs b/src/GHCJS/DOM/TextTrackList.hs deleted file mode 100644 --- a/src/GHCJS/DOM/TextTrackList.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.TextTrackList ( - module GHCJS.DOM.JSFFI.Generated.TextTrackList - ) where -import GHCJS.DOM.JSFFI.Generated.TextTrackList diff --git a/src/GHCJS/DOM/TimeRanges.hs b/src/GHCJS/DOM/TimeRanges.hs deleted file mode 100644 --- a/src/GHCJS/DOM/TimeRanges.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.TimeRanges ( - module GHCJS.DOM.JSFFI.Generated.TimeRanges - ) where -import GHCJS.DOM.JSFFI.Generated.TimeRanges diff --git a/src/GHCJS/DOM/Touch.hs b/src/GHCJS/DOM/Touch.hs deleted file mode 100644 --- a/src/GHCJS/DOM/Touch.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.Touch ( - module GHCJS.DOM.JSFFI.Generated.Touch - ) where -import GHCJS.DOM.JSFFI.Generated.Touch diff --git a/src/GHCJS/DOM/TouchEvent.hs b/src/GHCJS/DOM/TouchEvent.hs deleted file mode 100644 --- a/src/GHCJS/DOM/TouchEvent.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.TouchEvent ( - module GHCJS.DOM.JSFFI.Generated.TouchEvent - ) where -import GHCJS.DOM.JSFFI.Generated.TouchEvent diff --git a/src/GHCJS/DOM/TouchList.hs b/src/GHCJS/DOM/TouchList.hs deleted file mode 100644 --- a/src/GHCJS/DOM/TouchList.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.TouchList ( - module GHCJS.DOM.JSFFI.Generated.TouchList - ) where -import GHCJS.DOM.JSFFI.Generated.TouchList diff --git a/src/GHCJS/DOM/TrackEvent.hs b/src/GHCJS/DOM/TrackEvent.hs deleted file mode 100644 --- a/src/GHCJS/DOM/TrackEvent.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.TrackEvent ( - module GHCJS.DOM.JSFFI.Generated.TrackEvent - ) where -import GHCJS.DOM.JSFFI.Generated.TrackEvent diff --git a/src/GHCJS/DOM/TransitionEvent.hs b/src/GHCJS/DOM/TransitionEvent.hs deleted file mode 100644 --- a/src/GHCJS/DOM/TransitionEvent.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.TransitionEvent ( - module GHCJS.DOM.JSFFI.Generated.TransitionEvent - ) where -import GHCJS.DOM.JSFFI.Generated.TransitionEvent diff --git a/src/GHCJS/DOM/TreeWalker.hs b/src/GHCJS/DOM/TreeWalker.hs deleted file mode 100644 --- a/src/GHCJS/DOM/TreeWalker.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.TreeWalker ( - module GHCJS.DOM.JSFFI.Generated.TreeWalker - ) where -import GHCJS.DOM.JSFFI.Generated.TreeWalker diff --git a/src/GHCJS/DOM/TypeConversions.hs b/src/GHCJS/DOM/TypeConversions.hs deleted file mode 100644 --- a/src/GHCJS/DOM/TypeConversions.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.TypeConversions ( - module GHCJS.DOM.JSFFI.Generated.TypeConversions - ) where -import GHCJS.DOM.JSFFI.Generated.TypeConversions diff --git a/src/GHCJS/DOM/Types.hs b/src/GHCJS/DOM/Types.hs deleted file mode 100644 --- a/src/GHCJS/DOM/Types.hs +++ /dev/null @@ -1,24143 +0,0 @@ -{-# LANGUAGE JavaScriptFFI, ForeignFunctionInterface, ConstraintKinds, FlexibleInstances #-} -module GHCJS.DOM.Types ( - -- * Monad - DOM, DOMContext, MonadDOM, liftDOM, askDOM, runDOM - - -- * Object - , maybeJSNullOrUndefined, Nullable(..), nullableToMaybe, maybeToNullable, propagateGError, GType(..) - , GObject(..), IsGObject, toGObject, castToGObject, gTypeGObject, unsafeCastGObject, isA, objectToString - , js_eq - - -- * DOMString - , DOMString(..), ToDOMString(..), FromDOMString(..), IsDOMString, ToJSString(..), FromJSString(..) - , toJSString, fromJSString, toMaybeJSString, fromMaybeJSString - - -- * Callbacks - , AudioBufferCallback(..) - , DatabaseCallback(..) - , MediaQueryListListener(..) - , MediaStreamTrackSourcesCallback(..) - , NavigatorUserMediaErrorCallback(..) - , NavigatorUserMediaSuccessCallback(..) - , NotificationPermissionCallback(..) - , PositionCallback(..) - , PositionErrorCallback(..) - , RequestAnimationFrameCallback(..) - , RTCPeerConnectionErrorCallback(..) - , RTCSessionDescriptionCallback(..) - , RTCStatsCallback(..) - , SQLStatementCallback(..) - , SQLStatementErrorCallback(..) - , SQLTransactionCallback(..) - , SQLTransactionErrorCallback(..) - , StorageErrorCallback(..) - , StorageQuotaCallback(..) - , StorageUsageCallback(..) - , StringCallback(..) - , VoidCallback(..) - - -- * Dictionaries - , Dictionary(Dictionary), unDictionary, IsDictionary, toDictionary - , BlobPropertyBag(BlobPropertyBag), unBlobPropertyBag, IsBlobPropertyBag, toBlobPropertyBag - - -- * Mutation Callback - , MutationCallback(MutationCallback), unMutationCallback, IsMutationCallback, toMutationCallback - - -- * Promise - , Promise(Promise), unPromise, IsPromise, toPromise, castToPromise, gTypePromise - - -- * Date - , Date(Date), unDate, IsDate, toDate, castToDate, gTypeDate - - -- * Arrays - , Array(Array), unArray, IsArray, toArray, castToArray, gTypeArray - , ObjectArray(ObjectArray), unObjectArray, IsObjectArray, toObjectArray - , ArrayBuffer(ArrayBuffer), unArrayBuffer, IsArrayBuffer, toArrayBuffer, castToArrayBuffer, gTypeArrayBuffer - , ArrayBufferView(ArrayBufferView), unArrayBufferView, IsArrayBufferView, toArrayBufferView - , Float32Array(Float32Array), unFloat32Array, IsFloat32Array, toFloat32Array, castToFloat32Array, gTypeFloat32Array - , Float64Array(Float64Array), unFloat64Array, IsFloat64Array, toFloat64Array, castToFloat64Array, gTypeFloat64Array - , Uint8Array(Uint8Array), unUint8Array, IsUint8Array, toUint8Array, castToUint8Array, gTypeUint8Array - , Uint8ClampedArray(Uint8ClampedArray), unUint8ClampedArray, IsUint8ClampedArray, toUint8ClampedArray, castToUint8ClampedArray, gTypeUint8ClampedArray - , Uint16Array(Uint16Array), unUint16Array, IsUint16Array, toUint16Array, castToUint16Array, gTypeUint16Array - , Uint32Array(Uint32Array), unUint32Array, IsUint32Array, toUint32Array, castToUint32Array, gTypeUint32Array - , Int8Array(Int8Array), unInt8Array, IsInt8Array, toInt8Array, castToInt8Array, gTypeInt8Array - , Int16Array(Int16Array), unInt16Array, IsInt16Array, toInt16Array, castToInt16Array, gTypeInt16Array - , Int32Array(Int32Array), unInt32Array, IsInt32Array, toInt32Array, castToInt32Array, gTypeInt32Array - - -- * Geolocation - , SerializedScriptValue(SerializedScriptValue), unSerializedScriptValue, IsSerializedScriptValue, toSerializedScriptValue - , PositionOptions(PositionOptions), unPositionOptions, IsPositionOptions, toPositionOptions - , Acceleration(Acceleration), unAcceleration, IsAcceleration, toAcceleration - , RotationRate(RotationRate), unRotationRate, IsRotationRate, toRotationRate - - -- * Crypto - , Algorithm(Algorithm), unAlgorithm, IsAlgorithm, toAlgorithm - , CryptoOperationData(CryptoOperationData), unCryptoOperationData, IsCryptoOperationData, toCryptoOperationData - - -- * CanvasStyle (fill & stroke style) - , CanvasStyle(CanvasStyle), unCanvasStyle, IsCanvasStyle, toCanvasStyle - - , DOMException(DOMException), unDOMException, IsDOMException, toDOMException - - -- * WebGL typedefs - , GLenum(..), GLboolean(..), GLbitfield(..), GLbyte(..), GLshort(..), GLint(..), GLsizei(..) - , GLintptr(..), GLsizeiptr(..), GLubyte(..), GLushort(..), GLuint(..), GLfloat(..), GLclampf(..) - , GLint64, GLuint64 - - -- * Interface types from IDL files - --- AUTO GENERATION STARTS HERE - , ANGLEInstancedArrays(ANGLEInstancedArrays), unANGLEInstancedArrays, castToANGLEInstancedArrays, gTypeANGLEInstancedArrays - , AbstractView(AbstractView), unAbstractView, castToAbstractView, gTypeAbstractView - , AbstractWorker(AbstractWorker), unAbstractWorker, castToAbstractWorker, gTypeAbstractWorker - , AllAudioCapabilities(AllAudioCapabilities), unAllAudioCapabilities, castToAllAudioCapabilities, gTypeAllAudioCapabilities - , AllVideoCapabilities(AllVideoCapabilities), unAllVideoCapabilities, castToAllVideoCapabilities, gTypeAllVideoCapabilities - , AnalyserNode(AnalyserNode), unAnalyserNode, castToAnalyserNode, gTypeAnalyserNode - , AnimationEvent(AnimationEvent), unAnimationEvent, castToAnimationEvent, gTypeAnimationEvent - , ApplicationCache(ApplicationCache), unApplicationCache, castToApplicationCache, gTypeApplicationCache - , Attr(Attr), unAttr, castToAttr, gTypeAttr - , AudioBuffer(AudioBuffer), unAudioBuffer, castToAudioBuffer, gTypeAudioBuffer - , AudioBufferSourceNode(AudioBufferSourceNode), unAudioBufferSourceNode, castToAudioBufferSourceNode, gTypeAudioBufferSourceNode - , AudioContext(AudioContext), unAudioContext, IsAudioContext, toAudioContext, castToAudioContext, gTypeAudioContext - , AudioDestinationNode(AudioDestinationNode), unAudioDestinationNode, castToAudioDestinationNode, gTypeAudioDestinationNode - , AudioListener(AudioListener), unAudioListener, castToAudioListener, gTypeAudioListener - , AudioNode(AudioNode), unAudioNode, IsAudioNode, toAudioNode, castToAudioNode, gTypeAudioNode - , AudioParam(AudioParam), unAudioParam, castToAudioParam, gTypeAudioParam - , AudioProcessingEvent(AudioProcessingEvent), unAudioProcessingEvent, castToAudioProcessingEvent, gTypeAudioProcessingEvent - , AudioStreamTrack(AudioStreamTrack), unAudioStreamTrack, castToAudioStreamTrack, gTypeAudioStreamTrack - , AudioTrack(AudioTrack), unAudioTrack, castToAudioTrack, gTypeAudioTrack - , AudioTrackList(AudioTrackList), unAudioTrackList, castToAudioTrackList, gTypeAudioTrackList - , AutocompleteErrorEvent(AutocompleteErrorEvent), unAutocompleteErrorEvent, castToAutocompleteErrorEvent, gTypeAutocompleteErrorEvent - , BarProp(BarProp), unBarProp, castToBarProp, gTypeBarProp - , BatteryManager(BatteryManager), unBatteryManager, castToBatteryManager, gTypeBatteryManager - , BeforeLoadEvent(BeforeLoadEvent), unBeforeLoadEvent, castToBeforeLoadEvent, gTypeBeforeLoadEvent - , BeforeUnloadEvent(BeforeUnloadEvent), unBeforeUnloadEvent, castToBeforeUnloadEvent, gTypeBeforeUnloadEvent - , BiquadFilterNode(BiquadFilterNode), unBiquadFilterNode, castToBiquadFilterNode, gTypeBiquadFilterNode - , Blob(Blob), unBlob, IsBlob, toBlob, castToBlob, gTypeBlob - , CDATASection(CDATASection), unCDATASection, castToCDATASection, gTypeCDATASection - , CSS(CSS), unCSS, castToCSS, gTypeCSS - , CSSCharsetRule(CSSCharsetRule), unCSSCharsetRule, castToCSSCharsetRule, gTypeCSSCharsetRule - , CSSFontFaceLoadEvent(CSSFontFaceLoadEvent), unCSSFontFaceLoadEvent, castToCSSFontFaceLoadEvent, gTypeCSSFontFaceLoadEvent - , CSSFontFaceRule(CSSFontFaceRule), unCSSFontFaceRule, castToCSSFontFaceRule, gTypeCSSFontFaceRule - , CSSImportRule(CSSImportRule), unCSSImportRule, castToCSSImportRule, gTypeCSSImportRule - , CSSKeyframeRule(CSSKeyframeRule), unCSSKeyframeRule, castToCSSKeyframeRule, gTypeCSSKeyframeRule - , CSSKeyframesRule(CSSKeyframesRule), unCSSKeyframesRule, castToCSSKeyframesRule, gTypeCSSKeyframesRule - , CSSMediaRule(CSSMediaRule), unCSSMediaRule, castToCSSMediaRule, gTypeCSSMediaRule - , CSSPageRule(CSSPageRule), unCSSPageRule, castToCSSPageRule, gTypeCSSPageRule - , CSSPrimitiveValue(CSSPrimitiveValue), unCSSPrimitiveValue, castToCSSPrimitiveValue, gTypeCSSPrimitiveValue - , CSSRule(CSSRule), unCSSRule, IsCSSRule, toCSSRule, castToCSSRule, gTypeCSSRule - , CSSRuleList(CSSRuleList), unCSSRuleList, castToCSSRuleList, gTypeCSSRuleList - , CSSStyleDeclaration(CSSStyleDeclaration), unCSSStyleDeclaration, castToCSSStyleDeclaration, gTypeCSSStyleDeclaration - , CSSStyleRule(CSSStyleRule), unCSSStyleRule, castToCSSStyleRule, gTypeCSSStyleRule - , CSSStyleSheet(CSSStyleSheet), unCSSStyleSheet, castToCSSStyleSheet, gTypeCSSStyleSheet - , CSSSupportsRule(CSSSupportsRule), unCSSSupportsRule, castToCSSSupportsRule, gTypeCSSSupportsRule - , CSSUnknownRule(CSSUnknownRule), unCSSUnknownRule, castToCSSUnknownRule, gTypeCSSUnknownRule - , CSSValue(CSSValue), unCSSValue, IsCSSValue, toCSSValue, castToCSSValue, gTypeCSSValue - , CSSValueList(CSSValueList), unCSSValueList, IsCSSValueList, toCSSValueList, castToCSSValueList, gTypeCSSValueList - , CanvasGradient(CanvasGradient), unCanvasGradient, castToCanvasGradient, gTypeCanvasGradient - , CanvasPattern(CanvasPattern), unCanvasPattern, castToCanvasPattern, gTypeCanvasPattern - , CanvasProxy(CanvasProxy), unCanvasProxy, castToCanvasProxy, gTypeCanvasProxy - , CanvasRenderingContext(CanvasRenderingContext), unCanvasRenderingContext, IsCanvasRenderingContext, toCanvasRenderingContext, castToCanvasRenderingContext, gTypeCanvasRenderingContext - , CanvasRenderingContext2D(CanvasRenderingContext2D), unCanvasRenderingContext2D, castToCanvasRenderingContext2D, gTypeCanvasRenderingContext2D - , CapabilityRange(CapabilityRange), unCapabilityRange, castToCapabilityRange, gTypeCapabilityRange - , ChannelMergerNode(ChannelMergerNode), unChannelMergerNode, castToChannelMergerNode, gTypeChannelMergerNode - , ChannelSplitterNode(ChannelSplitterNode), unChannelSplitterNode, castToChannelSplitterNode, gTypeChannelSplitterNode - , CharacterData(CharacterData), unCharacterData, IsCharacterData, toCharacterData, castToCharacterData, gTypeCharacterData - , ChildNode(ChildNode), unChildNode, castToChildNode, gTypeChildNode - , ClientRect(ClientRect), unClientRect, castToClientRect, gTypeClientRect - , ClientRectList(ClientRectList), unClientRectList, castToClientRectList, gTypeClientRectList - , CloseEvent(CloseEvent), unCloseEvent, castToCloseEvent, gTypeCloseEvent - , CommandLineAPIHost(CommandLineAPIHost), unCommandLineAPIHost, castToCommandLineAPIHost, gTypeCommandLineAPIHost - , Comment(Comment), unComment, castToComment, gTypeComment - , CompositionEvent(CompositionEvent), unCompositionEvent, castToCompositionEvent, gTypeCompositionEvent - , ConvolverNode(ConvolverNode), unConvolverNode, castToConvolverNode, gTypeConvolverNode - , Coordinates(Coordinates), unCoordinates, castToCoordinates, gTypeCoordinates - , Counter(Counter), unCounter, castToCounter, gTypeCounter - , Crypto(Crypto), unCrypto, castToCrypto, gTypeCrypto - , CryptoKey(CryptoKey), unCryptoKey, castToCryptoKey, gTypeCryptoKey - , CryptoKeyPair(CryptoKeyPair), unCryptoKeyPair, castToCryptoKeyPair, gTypeCryptoKeyPair - , CustomEvent(CustomEvent), unCustomEvent, castToCustomEvent, gTypeCustomEvent - , DOMError(DOMError), unDOMError, IsDOMError, toDOMError, castToDOMError, gTypeDOMError - , DOMImplementation(DOMImplementation), unDOMImplementation, castToDOMImplementation, gTypeDOMImplementation - , DOMNamedFlowCollection(DOMNamedFlowCollection), unDOMNamedFlowCollection, castToDOMNamedFlowCollection, gTypeDOMNamedFlowCollection - , DOMParser(DOMParser), unDOMParser, castToDOMParser, gTypeDOMParser - , DOMSettableTokenList(DOMSettableTokenList), unDOMSettableTokenList, castToDOMSettableTokenList, gTypeDOMSettableTokenList - , DOMStringList(DOMStringList), unDOMStringList, castToDOMStringList, gTypeDOMStringList - , DOMStringMap(DOMStringMap), unDOMStringMap, castToDOMStringMap, gTypeDOMStringMap - , DOMTokenList(DOMTokenList), unDOMTokenList, IsDOMTokenList, toDOMTokenList, castToDOMTokenList, gTypeDOMTokenList - , DataCue(DataCue), unDataCue, castToDataCue, gTypeDataCue - , DataTransfer(DataTransfer), unDataTransfer, castToDataTransfer, gTypeDataTransfer - , DataTransferItem(DataTransferItem), unDataTransferItem, castToDataTransferItem, gTypeDataTransferItem - , DataTransferItemList(DataTransferItemList), unDataTransferItemList, castToDataTransferItemList, gTypeDataTransferItemList - , Database(Database), unDatabase, castToDatabase, gTypeDatabase - , DedicatedWorkerGlobalScope(DedicatedWorkerGlobalScope), unDedicatedWorkerGlobalScope, castToDedicatedWorkerGlobalScope, gTypeDedicatedWorkerGlobalScope - , DelayNode(DelayNode), unDelayNode, castToDelayNode, gTypeDelayNode - , DeviceMotionEvent(DeviceMotionEvent), unDeviceMotionEvent, castToDeviceMotionEvent, gTypeDeviceMotionEvent - , DeviceOrientationEvent(DeviceOrientationEvent), unDeviceOrientationEvent, castToDeviceOrientationEvent, gTypeDeviceOrientationEvent - , DeviceProximityEvent(DeviceProximityEvent), unDeviceProximityEvent, castToDeviceProximityEvent, gTypeDeviceProximityEvent - , Document(Document), unDocument, IsDocument, toDocument, castToDocument, gTypeDocument - , DocumentFragment(DocumentFragment), unDocumentFragment, castToDocumentFragment, gTypeDocumentFragment - , DocumentType(DocumentType), unDocumentType, castToDocumentType, gTypeDocumentType - , DynamicsCompressorNode(DynamicsCompressorNode), unDynamicsCompressorNode, castToDynamicsCompressorNode, gTypeDynamicsCompressorNode - , EXTBlendMinMax(EXTBlendMinMax), unEXTBlendMinMax, castToEXTBlendMinMax, gTypeEXTBlendMinMax - , EXTFragDepth(EXTFragDepth), unEXTFragDepth, castToEXTFragDepth, gTypeEXTFragDepth - , EXTShaderTextureLOD(EXTShaderTextureLOD), unEXTShaderTextureLOD, castToEXTShaderTextureLOD, gTypeEXTShaderTextureLOD - , EXTTextureFilterAnisotropic(EXTTextureFilterAnisotropic), unEXTTextureFilterAnisotropic, castToEXTTextureFilterAnisotropic, gTypeEXTTextureFilterAnisotropic - , EXTsRGB(EXTsRGB), unEXTsRGB, castToEXTsRGB, gTypeEXTsRGB - , Element(Element), unElement, IsElement, toElement, castToElement, gTypeElement - , Entity(Entity), unEntity, castToEntity, gTypeEntity - , EntityReference(EntityReference), unEntityReference, castToEntityReference, gTypeEntityReference - , ErrorEvent(ErrorEvent), unErrorEvent, castToErrorEvent, gTypeErrorEvent - , Event(Event), unEvent, IsEvent, toEvent, castToEvent, gTypeEvent - , EventListener(EventListener), unEventListener, castToEventListener, gTypeEventListener - , EventSource(EventSource), unEventSource, castToEventSource, gTypeEventSource - , EventTarget(EventTarget), unEventTarget, IsEventTarget, toEventTarget, castToEventTarget, gTypeEventTarget - , File(File), unFile, castToFile, gTypeFile - , FileError(FileError), unFileError, castToFileError, gTypeFileError - , FileList(FileList), unFileList, castToFileList, gTypeFileList - , FileReader(FileReader), unFileReader, castToFileReader, gTypeFileReader - , FileReaderSync(FileReaderSync), unFileReaderSync, castToFileReaderSync, gTypeFileReaderSync - , FocusEvent(FocusEvent), unFocusEvent, castToFocusEvent, gTypeFocusEvent - , FontLoader(FontLoader), unFontLoader, castToFontLoader, gTypeFontLoader - , FormData(FormData), unFormData, castToFormData, gTypeFormData - , GainNode(GainNode), unGainNode, castToGainNode, gTypeGainNode - , Gamepad(Gamepad), unGamepad, castToGamepad, gTypeGamepad - , GamepadButton(GamepadButton), unGamepadButton, castToGamepadButton, gTypeGamepadButton - , GamepadEvent(GamepadEvent), unGamepadEvent, castToGamepadEvent, gTypeGamepadEvent - , Geolocation(Geolocation), unGeolocation, castToGeolocation, gTypeGeolocation - , Geoposition(Geoposition), unGeoposition, castToGeoposition, gTypeGeoposition - , HTMLAllCollection(HTMLAllCollection), unHTMLAllCollection, castToHTMLAllCollection, gTypeHTMLAllCollection - , HTMLAnchorElement(HTMLAnchorElement), unHTMLAnchorElement, castToHTMLAnchorElement, gTypeHTMLAnchorElement - , HTMLAppletElement(HTMLAppletElement), unHTMLAppletElement, castToHTMLAppletElement, gTypeHTMLAppletElement - , HTMLAreaElement(HTMLAreaElement), unHTMLAreaElement, castToHTMLAreaElement, gTypeHTMLAreaElement - , HTMLAudioElement(HTMLAudioElement), unHTMLAudioElement, castToHTMLAudioElement, gTypeHTMLAudioElement - , HTMLBRElement(HTMLBRElement), unHTMLBRElement, castToHTMLBRElement, gTypeHTMLBRElement - , HTMLBaseElement(HTMLBaseElement), unHTMLBaseElement, castToHTMLBaseElement, gTypeHTMLBaseElement - , HTMLBaseFontElement(HTMLBaseFontElement), unHTMLBaseFontElement, castToHTMLBaseFontElement, gTypeHTMLBaseFontElement - , HTMLBodyElement(HTMLBodyElement), unHTMLBodyElement, castToHTMLBodyElement, gTypeHTMLBodyElement - , HTMLButtonElement(HTMLButtonElement), unHTMLButtonElement, castToHTMLButtonElement, gTypeHTMLButtonElement - , HTMLCanvasElement(HTMLCanvasElement), unHTMLCanvasElement, castToHTMLCanvasElement, gTypeHTMLCanvasElement - , HTMLCollection(HTMLCollection), unHTMLCollection, IsHTMLCollection, toHTMLCollection, castToHTMLCollection, gTypeHTMLCollection - , HTMLDListElement(HTMLDListElement), unHTMLDListElement, castToHTMLDListElement, gTypeHTMLDListElement - , HTMLDataListElement(HTMLDataListElement), unHTMLDataListElement, castToHTMLDataListElement, gTypeHTMLDataListElement - , HTMLDetailsElement(HTMLDetailsElement), unHTMLDetailsElement, castToHTMLDetailsElement, gTypeHTMLDetailsElement - , HTMLDirectoryElement(HTMLDirectoryElement), unHTMLDirectoryElement, castToHTMLDirectoryElement, gTypeHTMLDirectoryElement - , HTMLDivElement(HTMLDivElement), unHTMLDivElement, castToHTMLDivElement, gTypeHTMLDivElement - , HTMLDocument(HTMLDocument), unHTMLDocument, castToHTMLDocument, gTypeHTMLDocument - , HTMLElement(HTMLElement), unHTMLElement, IsHTMLElement, toHTMLElement, castToHTMLElement, gTypeHTMLElement - , HTMLEmbedElement(HTMLEmbedElement), unHTMLEmbedElement, castToHTMLEmbedElement, gTypeHTMLEmbedElement - , HTMLFieldSetElement(HTMLFieldSetElement), unHTMLFieldSetElement, castToHTMLFieldSetElement, gTypeHTMLFieldSetElement - , HTMLFontElement(HTMLFontElement), unHTMLFontElement, castToHTMLFontElement, gTypeHTMLFontElement - , HTMLFormControlsCollection(HTMLFormControlsCollection), unHTMLFormControlsCollection, castToHTMLFormControlsCollection, gTypeHTMLFormControlsCollection - , HTMLFormElement(HTMLFormElement), unHTMLFormElement, castToHTMLFormElement, gTypeHTMLFormElement - , HTMLFrameElement(HTMLFrameElement), unHTMLFrameElement, castToHTMLFrameElement, gTypeHTMLFrameElement - , HTMLFrameSetElement(HTMLFrameSetElement), unHTMLFrameSetElement, castToHTMLFrameSetElement, gTypeHTMLFrameSetElement - , HTMLHRElement(HTMLHRElement), unHTMLHRElement, castToHTMLHRElement, gTypeHTMLHRElement - , HTMLHeadElement(HTMLHeadElement), unHTMLHeadElement, castToHTMLHeadElement, gTypeHTMLHeadElement - , HTMLHeadingElement(HTMLHeadingElement), unHTMLHeadingElement, castToHTMLHeadingElement, gTypeHTMLHeadingElement - , HTMLHtmlElement(HTMLHtmlElement), unHTMLHtmlElement, castToHTMLHtmlElement, gTypeHTMLHtmlElement - , HTMLIFrameElement(HTMLIFrameElement), unHTMLIFrameElement, castToHTMLIFrameElement, gTypeHTMLIFrameElement - , HTMLImageElement(HTMLImageElement), unHTMLImageElement, castToHTMLImageElement, gTypeHTMLImageElement - , HTMLInputElement(HTMLInputElement), unHTMLInputElement, castToHTMLInputElement, gTypeHTMLInputElement - , HTMLKeygenElement(HTMLKeygenElement), unHTMLKeygenElement, castToHTMLKeygenElement, gTypeHTMLKeygenElement - , HTMLLIElement(HTMLLIElement), unHTMLLIElement, castToHTMLLIElement, gTypeHTMLLIElement - , HTMLLabelElement(HTMLLabelElement), unHTMLLabelElement, castToHTMLLabelElement, gTypeHTMLLabelElement - , HTMLLegendElement(HTMLLegendElement), unHTMLLegendElement, castToHTMLLegendElement, gTypeHTMLLegendElement - , HTMLLinkElement(HTMLLinkElement), unHTMLLinkElement, castToHTMLLinkElement, gTypeHTMLLinkElement - , HTMLMapElement(HTMLMapElement), unHTMLMapElement, castToHTMLMapElement, gTypeHTMLMapElement - , HTMLMarqueeElement(HTMLMarqueeElement), unHTMLMarqueeElement, castToHTMLMarqueeElement, gTypeHTMLMarqueeElement - , HTMLMediaElement(HTMLMediaElement), unHTMLMediaElement, IsHTMLMediaElement, toHTMLMediaElement, castToHTMLMediaElement, gTypeHTMLMediaElement - , HTMLMenuElement(HTMLMenuElement), unHTMLMenuElement, castToHTMLMenuElement, gTypeHTMLMenuElement - , HTMLMetaElement(HTMLMetaElement), unHTMLMetaElement, castToHTMLMetaElement, gTypeHTMLMetaElement - , HTMLMeterElement(HTMLMeterElement), unHTMLMeterElement, castToHTMLMeterElement, gTypeHTMLMeterElement - , HTMLModElement(HTMLModElement), unHTMLModElement, castToHTMLModElement, gTypeHTMLModElement - , HTMLOListElement(HTMLOListElement), unHTMLOListElement, castToHTMLOListElement, gTypeHTMLOListElement - , HTMLObjectElement(HTMLObjectElement), unHTMLObjectElement, castToHTMLObjectElement, gTypeHTMLObjectElement - , HTMLOptGroupElement(HTMLOptGroupElement), unHTMLOptGroupElement, castToHTMLOptGroupElement, gTypeHTMLOptGroupElement - , HTMLOptionElement(HTMLOptionElement), unHTMLOptionElement, castToHTMLOptionElement, gTypeHTMLOptionElement - , HTMLOptionsCollection(HTMLOptionsCollection), unHTMLOptionsCollection, castToHTMLOptionsCollection, gTypeHTMLOptionsCollection - , HTMLOutputElement(HTMLOutputElement), unHTMLOutputElement, castToHTMLOutputElement, gTypeHTMLOutputElement - , HTMLParagraphElement(HTMLParagraphElement), unHTMLParagraphElement, castToHTMLParagraphElement, gTypeHTMLParagraphElement - , HTMLParamElement(HTMLParamElement), unHTMLParamElement, castToHTMLParamElement, gTypeHTMLParamElement - , HTMLPreElement(HTMLPreElement), unHTMLPreElement, castToHTMLPreElement, gTypeHTMLPreElement - , HTMLProgressElement(HTMLProgressElement), unHTMLProgressElement, castToHTMLProgressElement, gTypeHTMLProgressElement - , HTMLQuoteElement(HTMLQuoteElement), unHTMLQuoteElement, castToHTMLQuoteElement, gTypeHTMLQuoteElement - , HTMLScriptElement(HTMLScriptElement), unHTMLScriptElement, castToHTMLScriptElement, gTypeHTMLScriptElement - , HTMLSelectElement(HTMLSelectElement), unHTMLSelectElement, castToHTMLSelectElement, gTypeHTMLSelectElement - , HTMLSourceElement(HTMLSourceElement), unHTMLSourceElement, castToHTMLSourceElement, gTypeHTMLSourceElement - , HTMLSpanElement(HTMLSpanElement), unHTMLSpanElement, castToHTMLSpanElement, gTypeHTMLSpanElement - , HTMLStyleElement(HTMLStyleElement), unHTMLStyleElement, castToHTMLStyleElement, gTypeHTMLStyleElement - , HTMLTableCaptionElement(HTMLTableCaptionElement), unHTMLTableCaptionElement, castToHTMLTableCaptionElement, gTypeHTMLTableCaptionElement - , HTMLTableCellElement(HTMLTableCellElement), unHTMLTableCellElement, castToHTMLTableCellElement, gTypeHTMLTableCellElement - , HTMLTableColElement(HTMLTableColElement), unHTMLTableColElement, castToHTMLTableColElement, gTypeHTMLTableColElement - , HTMLTableElement(HTMLTableElement), unHTMLTableElement, castToHTMLTableElement, gTypeHTMLTableElement - , HTMLTableRowElement(HTMLTableRowElement), unHTMLTableRowElement, castToHTMLTableRowElement, gTypeHTMLTableRowElement - , HTMLTableSectionElement(HTMLTableSectionElement), unHTMLTableSectionElement, castToHTMLTableSectionElement, gTypeHTMLTableSectionElement - , HTMLTemplateElement(HTMLTemplateElement), unHTMLTemplateElement, castToHTMLTemplateElement, gTypeHTMLTemplateElement - , HTMLTextAreaElement(HTMLTextAreaElement), unHTMLTextAreaElement, castToHTMLTextAreaElement, gTypeHTMLTextAreaElement - , HTMLTitleElement(HTMLTitleElement), unHTMLTitleElement, castToHTMLTitleElement, gTypeHTMLTitleElement - , HTMLTrackElement(HTMLTrackElement), unHTMLTrackElement, castToHTMLTrackElement, gTypeHTMLTrackElement - , HTMLUListElement(HTMLUListElement), unHTMLUListElement, castToHTMLUListElement, gTypeHTMLUListElement - , HTMLUnknownElement(HTMLUnknownElement), unHTMLUnknownElement, castToHTMLUnknownElement, gTypeHTMLUnknownElement - , HTMLVideoElement(HTMLVideoElement), unHTMLVideoElement, castToHTMLVideoElement, gTypeHTMLVideoElement - , HashChangeEvent(HashChangeEvent), unHashChangeEvent, castToHashChangeEvent, gTypeHashChangeEvent - , History(History), unHistory, castToHistory, gTypeHistory - , IDBAny(IDBAny), unIDBAny, castToIDBAny, gTypeIDBAny - , IDBCursor(IDBCursor), unIDBCursor, IsIDBCursor, toIDBCursor, castToIDBCursor, gTypeIDBCursor - , IDBCursorWithValue(IDBCursorWithValue), unIDBCursorWithValue, castToIDBCursorWithValue, gTypeIDBCursorWithValue - , IDBDatabase(IDBDatabase), unIDBDatabase, castToIDBDatabase, gTypeIDBDatabase - , IDBFactory(IDBFactory), unIDBFactory, castToIDBFactory, gTypeIDBFactory - , IDBIndex(IDBIndex), unIDBIndex, castToIDBIndex, gTypeIDBIndex - , IDBKeyRange(IDBKeyRange), unIDBKeyRange, castToIDBKeyRange, gTypeIDBKeyRange - , IDBObjectStore(IDBObjectStore), unIDBObjectStore, castToIDBObjectStore, gTypeIDBObjectStore - , IDBOpenDBRequest(IDBOpenDBRequest), unIDBOpenDBRequest, castToIDBOpenDBRequest, gTypeIDBOpenDBRequest - , IDBRequest(IDBRequest), unIDBRequest, IsIDBRequest, toIDBRequest, castToIDBRequest, gTypeIDBRequest - , IDBTransaction(IDBTransaction), unIDBTransaction, castToIDBTransaction, gTypeIDBTransaction - , IDBVersionChangeEvent(IDBVersionChangeEvent), unIDBVersionChangeEvent, castToIDBVersionChangeEvent, gTypeIDBVersionChangeEvent - , ImageData(ImageData), unImageData, castToImageData, gTypeImageData - , InspectorFrontendHost(InspectorFrontendHost), unInspectorFrontendHost, castToInspectorFrontendHost, gTypeInspectorFrontendHost - , InternalSettings(InternalSettings), unInternalSettings, castToInternalSettings, gTypeInternalSettings - , Internals(Internals), unInternals, castToInternals, gTypeInternals - , KeyboardEvent(KeyboardEvent), unKeyboardEvent, castToKeyboardEvent, gTypeKeyboardEvent - , Location(Location), unLocation, castToLocation, gTypeLocation - , MallocStatistics(MallocStatistics), unMallocStatistics, castToMallocStatistics, gTypeMallocStatistics - , MediaController(MediaController), unMediaController, castToMediaController, gTypeMediaController - , MediaControlsHost(MediaControlsHost), unMediaControlsHost, castToMediaControlsHost, gTypeMediaControlsHost - , MediaElementAudioSourceNode(MediaElementAudioSourceNode), unMediaElementAudioSourceNode, castToMediaElementAudioSourceNode, gTypeMediaElementAudioSourceNode - , MediaError(MediaError), unMediaError, castToMediaError, gTypeMediaError - , MediaKeyError(MediaKeyError), unMediaKeyError, castToMediaKeyError, gTypeMediaKeyError - , MediaKeyEvent(MediaKeyEvent), unMediaKeyEvent, castToMediaKeyEvent, gTypeMediaKeyEvent - , MediaKeyMessageEvent(MediaKeyMessageEvent), unMediaKeyMessageEvent, castToMediaKeyMessageEvent, gTypeMediaKeyMessageEvent - , MediaKeyNeededEvent(MediaKeyNeededEvent), unMediaKeyNeededEvent, castToMediaKeyNeededEvent, gTypeMediaKeyNeededEvent - , MediaKeySession(MediaKeySession), unMediaKeySession, castToMediaKeySession, gTypeMediaKeySession - , MediaKeys(MediaKeys), unMediaKeys, castToMediaKeys, gTypeMediaKeys - , MediaList(MediaList), unMediaList, castToMediaList, gTypeMediaList - , MediaQueryList(MediaQueryList), unMediaQueryList, castToMediaQueryList, gTypeMediaQueryList - , MediaSource(MediaSource), unMediaSource, castToMediaSource, gTypeMediaSource - , MediaSourceStates(MediaSourceStates), unMediaSourceStates, castToMediaSourceStates, gTypeMediaSourceStates - , MediaStream(MediaStream), unMediaStream, castToMediaStream, gTypeMediaStream - , MediaStreamAudioDestinationNode(MediaStreamAudioDestinationNode), unMediaStreamAudioDestinationNode, castToMediaStreamAudioDestinationNode, gTypeMediaStreamAudioDestinationNode - , MediaStreamAudioSourceNode(MediaStreamAudioSourceNode), unMediaStreamAudioSourceNode, castToMediaStreamAudioSourceNode, gTypeMediaStreamAudioSourceNode - , MediaStreamCapabilities(MediaStreamCapabilities), unMediaStreamCapabilities, IsMediaStreamCapabilities, toMediaStreamCapabilities, castToMediaStreamCapabilities, gTypeMediaStreamCapabilities - , MediaStreamEvent(MediaStreamEvent), unMediaStreamEvent, castToMediaStreamEvent, gTypeMediaStreamEvent - , MediaStreamTrack(MediaStreamTrack), unMediaStreamTrack, IsMediaStreamTrack, toMediaStreamTrack, castToMediaStreamTrack, gTypeMediaStreamTrack - , MediaStreamTrackEvent(MediaStreamTrackEvent), unMediaStreamTrackEvent, castToMediaStreamTrackEvent, gTypeMediaStreamTrackEvent - , MediaTrackConstraint(MediaTrackConstraint), unMediaTrackConstraint, castToMediaTrackConstraint, gTypeMediaTrackConstraint - , MediaTrackConstraintSet(MediaTrackConstraintSet), unMediaTrackConstraintSet, castToMediaTrackConstraintSet, gTypeMediaTrackConstraintSet - , MediaTrackConstraints(MediaTrackConstraints), unMediaTrackConstraints, castToMediaTrackConstraints, gTypeMediaTrackConstraints - , MemoryInfo(MemoryInfo), unMemoryInfo, castToMemoryInfo, gTypeMemoryInfo - , MessageChannel(MessageChannel), unMessageChannel, castToMessageChannel, gTypeMessageChannel - , MessageEvent(MessageEvent), unMessageEvent, castToMessageEvent, gTypeMessageEvent - , MessagePort(MessagePort), unMessagePort, castToMessagePort, gTypeMessagePort - , MimeType(MimeType), unMimeType, castToMimeType, gTypeMimeType - , MimeTypeArray(MimeTypeArray), unMimeTypeArray, castToMimeTypeArray, gTypeMimeTypeArray - , MouseEvent(MouseEvent), unMouseEvent, IsMouseEvent, toMouseEvent, castToMouseEvent, gTypeMouseEvent - , MutationEvent(MutationEvent), unMutationEvent, castToMutationEvent, gTypeMutationEvent - , MutationObserver(MutationObserver), unMutationObserver, castToMutationObserver, gTypeMutationObserver - , MutationRecord(MutationRecord), unMutationRecord, castToMutationRecord, gTypeMutationRecord - , NamedNodeMap(NamedNodeMap), unNamedNodeMap, castToNamedNodeMap, gTypeNamedNodeMap - , Navigator(Navigator), unNavigator, castToNavigator, gTypeNavigator - , NavigatorUserMediaError(NavigatorUserMediaError), unNavigatorUserMediaError, castToNavigatorUserMediaError, gTypeNavigatorUserMediaError - , Node(Node), unNode, IsNode, toNode, castToNode, gTypeNode - , NodeFilter(NodeFilter), unNodeFilter, castToNodeFilter, gTypeNodeFilter - , NodeIterator(NodeIterator), unNodeIterator, castToNodeIterator, gTypeNodeIterator - , NodeList(NodeList), unNodeList, IsNodeList, toNodeList, castToNodeList, gTypeNodeList - , Notification(Notification), unNotification, castToNotification, gTypeNotification - , NotificationCenter(NotificationCenter), unNotificationCenter, castToNotificationCenter, gTypeNotificationCenter - , OESElementIndexUint(OESElementIndexUint), unOESElementIndexUint, castToOESElementIndexUint, gTypeOESElementIndexUint - , OESStandardDerivatives(OESStandardDerivatives), unOESStandardDerivatives, castToOESStandardDerivatives, gTypeOESStandardDerivatives - , OESTextureFloat(OESTextureFloat), unOESTextureFloat, castToOESTextureFloat, gTypeOESTextureFloat - , OESTextureFloatLinear(OESTextureFloatLinear), unOESTextureFloatLinear, castToOESTextureFloatLinear, gTypeOESTextureFloatLinear - , OESTextureHalfFloat(OESTextureHalfFloat), unOESTextureHalfFloat, castToOESTextureHalfFloat, gTypeOESTextureHalfFloat - , OESTextureHalfFloatLinear(OESTextureHalfFloatLinear), unOESTextureHalfFloatLinear, castToOESTextureHalfFloatLinear, gTypeOESTextureHalfFloatLinear - , OESVertexArrayObject(OESVertexArrayObject), unOESVertexArrayObject, castToOESVertexArrayObject, gTypeOESVertexArrayObject - , OfflineAudioCompletionEvent(OfflineAudioCompletionEvent), unOfflineAudioCompletionEvent, castToOfflineAudioCompletionEvent, gTypeOfflineAudioCompletionEvent - , OfflineAudioContext(OfflineAudioContext), unOfflineAudioContext, castToOfflineAudioContext, gTypeOfflineAudioContext - , OscillatorNode(OscillatorNode), unOscillatorNode, castToOscillatorNode, gTypeOscillatorNode - , OverflowEvent(OverflowEvent), unOverflowEvent, castToOverflowEvent, gTypeOverflowEvent - , PageTransitionEvent(PageTransitionEvent), unPageTransitionEvent, castToPageTransitionEvent, gTypePageTransitionEvent - , PannerNode(PannerNode), unPannerNode, castToPannerNode, gTypePannerNode - , Path2D(Path2D), unPath2D, castToPath2D, gTypePath2D - , Performance(Performance), unPerformance, castToPerformance, gTypePerformance - , PerformanceEntry(PerformanceEntry), unPerformanceEntry, IsPerformanceEntry, toPerformanceEntry, castToPerformanceEntry, gTypePerformanceEntry - , PerformanceEntryList(PerformanceEntryList), unPerformanceEntryList, castToPerformanceEntryList, gTypePerformanceEntryList - , PerformanceMark(PerformanceMark), unPerformanceMark, castToPerformanceMark, gTypePerformanceMark - , PerformanceMeasure(PerformanceMeasure), unPerformanceMeasure, castToPerformanceMeasure, gTypePerformanceMeasure - , PerformanceNavigation(PerformanceNavigation), unPerformanceNavigation, castToPerformanceNavigation, gTypePerformanceNavigation - , PerformanceResourceTiming(PerformanceResourceTiming), unPerformanceResourceTiming, castToPerformanceResourceTiming, gTypePerformanceResourceTiming - , PerformanceTiming(PerformanceTiming), unPerformanceTiming, castToPerformanceTiming, gTypePerformanceTiming - , PeriodicWave(PeriodicWave), unPeriodicWave, castToPeriodicWave, gTypePeriodicWave - , Plugin(Plugin), unPlugin, castToPlugin, gTypePlugin - , PluginArray(PluginArray), unPluginArray, castToPluginArray, gTypePluginArray - , PopStateEvent(PopStateEvent), unPopStateEvent, castToPopStateEvent, gTypePopStateEvent - , PositionError(PositionError), unPositionError, castToPositionError, gTypePositionError - , ProcessingInstruction(ProcessingInstruction), unProcessingInstruction, castToProcessingInstruction, gTypeProcessingInstruction - , ProgressEvent(ProgressEvent), unProgressEvent, IsProgressEvent, toProgressEvent, castToProgressEvent, gTypeProgressEvent - , QuickTimePluginReplacement(QuickTimePluginReplacement), unQuickTimePluginReplacement, castToQuickTimePluginReplacement, gTypeQuickTimePluginReplacement - , RGBColor(RGBColor), unRGBColor, castToRGBColor, gTypeRGBColor - , RTCConfiguration(RTCConfiguration), unRTCConfiguration, castToRTCConfiguration, gTypeRTCConfiguration - , RTCDTMFSender(RTCDTMFSender), unRTCDTMFSender, castToRTCDTMFSender, gTypeRTCDTMFSender - , RTCDTMFToneChangeEvent(RTCDTMFToneChangeEvent), unRTCDTMFToneChangeEvent, castToRTCDTMFToneChangeEvent, gTypeRTCDTMFToneChangeEvent - , RTCDataChannel(RTCDataChannel), unRTCDataChannel, castToRTCDataChannel, gTypeRTCDataChannel - , RTCDataChannelEvent(RTCDataChannelEvent), unRTCDataChannelEvent, castToRTCDataChannelEvent, gTypeRTCDataChannelEvent - , RTCIceCandidate(RTCIceCandidate), unRTCIceCandidate, castToRTCIceCandidate, gTypeRTCIceCandidate - , RTCIceCandidateEvent(RTCIceCandidateEvent), unRTCIceCandidateEvent, castToRTCIceCandidateEvent, gTypeRTCIceCandidateEvent - , RTCIceServer(RTCIceServer), unRTCIceServer, castToRTCIceServer, gTypeRTCIceServer - , RTCPeerConnection(RTCPeerConnection), unRTCPeerConnection, castToRTCPeerConnection, gTypeRTCPeerConnection - , RTCSessionDescription(RTCSessionDescription), unRTCSessionDescription, castToRTCSessionDescription, gTypeRTCSessionDescription - , RTCStatsReport(RTCStatsReport), unRTCStatsReport, castToRTCStatsReport, gTypeRTCStatsReport - , RTCStatsResponse(RTCStatsResponse), unRTCStatsResponse, castToRTCStatsResponse, gTypeRTCStatsResponse - , RadioNodeList(RadioNodeList), unRadioNodeList, castToRadioNodeList, gTypeRadioNodeList - , Range(Range), unRange, castToRange, gTypeRange - , ReadableStream(ReadableStream), unReadableStream, castToReadableStream, gTypeReadableStream - , Rect(Rect), unRect, castToRect, gTypeRect - , SQLError(SQLError), unSQLError, castToSQLError, gTypeSQLError - , SQLResultSet(SQLResultSet), unSQLResultSet, castToSQLResultSet, gTypeSQLResultSet - , SQLResultSetRowList(SQLResultSetRowList), unSQLResultSetRowList, castToSQLResultSetRowList, gTypeSQLResultSetRowList - , SQLTransaction(SQLTransaction), unSQLTransaction, castToSQLTransaction, gTypeSQLTransaction - , SVGAElement(SVGAElement), unSVGAElement, castToSVGAElement, gTypeSVGAElement - , SVGAltGlyphDefElement(SVGAltGlyphDefElement), unSVGAltGlyphDefElement, castToSVGAltGlyphDefElement, gTypeSVGAltGlyphDefElement - , SVGAltGlyphElement(SVGAltGlyphElement), unSVGAltGlyphElement, castToSVGAltGlyphElement, gTypeSVGAltGlyphElement - , SVGAltGlyphItemElement(SVGAltGlyphItemElement), unSVGAltGlyphItemElement, castToSVGAltGlyphItemElement, gTypeSVGAltGlyphItemElement - , SVGAngle(SVGAngle), unSVGAngle, castToSVGAngle, gTypeSVGAngle - , SVGAnimateColorElement(SVGAnimateColorElement), unSVGAnimateColorElement, castToSVGAnimateColorElement, gTypeSVGAnimateColorElement - , SVGAnimateElement(SVGAnimateElement), unSVGAnimateElement, castToSVGAnimateElement, gTypeSVGAnimateElement - , SVGAnimateMotionElement(SVGAnimateMotionElement), unSVGAnimateMotionElement, castToSVGAnimateMotionElement, gTypeSVGAnimateMotionElement - , SVGAnimateTransformElement(SVGAnimateTransformElement), unSVGAnimateTransformElement, castToSVGAnimateTransformElement, gTypeSVGAnimateTransformElement - , SVGAnimatedAngle(SVGAnimatedAngle), unSVGAnimatedAngle, castToSVGAnimatedAngle, gTypeSVGAnimatedAngle - , SVGAnimatedBoolean(SVGAnimatedBoolean), unSVGAnimatedBoolean, castToSVGAnimatedBoolean, gTypeSVGAnimatedBoolean - , SVGAnimatedEnumeration(SVGAnimatedEnumeration), unSVGAnimatedEnumeration, castToSVGAnimatedEnumeration, gTypeSVGAnimatedEnumeration - , SVGAnimatedInteger(SVGAnimatedInteger), unSVGAnimatedInteger, castToSVGAnimatedInteger, gTypeSVGAnimatedInteger - , SVGAnimatedLength(SVGAnimatedLength), unSVGAnimatedLength, castToSVGAnimatedLength, gTypeSVGAnimatedLength - , SVGAnimatedLengthList(SVGAnimatedLengthList), unSVGAnimatedLengthList, castToSVGAnimatedLengthList, gTypeSVGAnimatedLengthList - , SVGAnimatedNumber(SVGAnimatedNumber), unSVGAnimatedNumber, castToSVGAnimatedNumber, gTypeSVGAnimatedNumber - , SVGAnimatedNumberList(SVGAnimatedNumberList), unSVGAnimatedNumberList, castToSVGAnimatedNumberList, gTypeSVGAnimatedNumberList - , SVGAnimatedPreserveAspectRatio(SVGAnimatedPreserveAspectRatio), unSVGAnimatedPreserveAspectRatio, castToSVGAnimatedPreserveAspectRatio, gTypeSVGAnimatedPreserveAspectRatio - , SVGAnimatedRect(SVGAnimatedRect), unSVGAnimatedRect, castToSVGAnimatedRect, gTypeSVGAnimatedRect - , SVGAnimatedString(SVGAnimatedString), unSVGAnimatedString, castToSVGAnimatedString, gTypeSVGAnimatedString - , SVGAnimatedTransformList(SVGAnimatedTransformList), unSVGAnimatedTransformList, castToSVGAnimatedTransformList, gTypeSVGAnimatedTransformList - , SVGAnimationElement(SVGAnimationElement), unSVGAnimationElement, IsSVGAnimationElement, toSVGAnimationElement, castToSVGAnimationElement, gTypeSVGAnimationElement - , SVGCircleElement(SVGCircleElement), unSVGCircleElement, castToSVGCircleElement, gTypeSVGCircleElement - , SVGClipPathElement(SVGClipPathElement), unSVGClipPathElement, castToSVGClipPathElement, gTypeSVGClipPathElement - , SVGColor(SVGColor), unSVGColor, IsSVGColor, toSVGColor, castToSVGColor, gTypeSVGColor - , SVGComponentTransferFunctionElement(SVGComponentTransferFunctionElement), unSVGComponentTransferFunctionElement, IsSVGComponentTransferFunctionElement, toSVGComponentTransferFunctionElement, castToSVGComponentTransferFunctionElement, gTypeSVGComponentTransferFunctionElement - , SVGCursorElement(SVGCursorElement), unSVGCursorElement, castToSVGCursorElement, gTypeSVGCursorElement - , SVGDefsElement(SVGDefsElement), unSVGDefsElement, castToSVGDefsElement, gTypeSVGDefsElement - , SVGDescElement(SVGDescElement), unSVGDescElement, castToSVGDescElement, gTypeSVGDescElement - , SVGDocument(SVGDocument), unSVGDocument, castToSVGDocument, gTypeSVGDocument - , SVGElement(SVGElement), unSVGElement, IsSVGElement, toSVGElement, castToSVGElement, gTypeSVGElement - , SVGEllipseElement(SVGEllipseElement), unSVGEllipseElement, castToSVGEllipseElement, gTypeSVGEllipseElement - , SVGExternalResourcesRequired(SVGExternalResourcesRequired), unSVGExternalResourcesRequired, castToSVGExternalResourcesRequired, gTypeSVGExternalResourcesRequired - , SVGFEBlendElement(SVGFEBlendElement), unSVGFEBlendElement, castToSVGFEBlendElement, gTypeSVGFEBlendElement - , SVGFEColorMatrixElement(SVGFEColorMatrixElement), unSVGFEColorMatrixElement, castToSVGFEColorMatrixElement, gTypeSVGFEColorMatrixElement - , SVGFEComponentTransferElement(SVGFEComponentTransferElement), unSVGFEComponentTransferElement, castToSVGFEComponentTransferElement, gTypeSVGFEComponentTransferElement - , SVGFECompositeElement(SVGFECompositeElement), unSVGFECompositeElement, castToSVGFECompositeElement, gTypeSVGFECompositeElement - , SVGFEConvolveMatrixElement(SVGFEConvolveMatrixElement), unSVGFEConvolveMatrixElement, castToSVGFEConvolveMatrixElement, gTypeSVGFEConvolveMatrixElement - , SVGFEDiffuseLightingElement(SVGFEDiffuseLightingElement), unSVGFEDiffuseLightingElement, castToSVGFEDiffuseLightingElement, gTypeSVGFEDiffuseLightingElement - , SVGFEDisplacementMapElement(SVGFEDisplacementMapElement), unSVGFEDisplacementMapElement, castToSVGFEDisplacementMapElement, gTypeSVGFEDisplacementMapElement - , SVGFEDistantLightElement(SVGFEDistantLightElement), unSVGFEDistantLightElement, castToSVGFEDistantLightElement, gTypeSVGFEDistantLightElement - , SVGFEDropShadowElement(SVGFEDropShadowElement), unSVGFEDropShadowElement, castToSVGFEDropShadowElement, gTypeSVGFEDropShadowElement - , SVGFEFloodElement(SVGFEFloodElement), unSVGFEFloodElement, castToSVGFEFloodElement, gTypeSVGFEFloodElement - , SVGFEFuncAElement(SVGFEFuncAElement), unSVGFEFuncAElement, castToSVGFEFuncAElement, gTypeSVGFEFuncAElement - , SVGFEFuncBElement(SVGFEFuncBElement), unSVGFEFuncBElement, castToSVGFEFuncBElement, gTypeSVGFEFuncBElement - , SVGFEFuncGElement(SVGFEFuncGElement), unSVGFEFuncGElement, castToSVGFEFuncGElement, gTypeSVGFEFuncGElement - , SVGFEFuncRElement(SVGFEFuncRElement), unSVGFEFuncRElement, castToSVGFEFuncRElement, gTypeSVGFEFuncRElement - , SVGFEGaussianBlurElement(SVGFEGaussianBlurElement), unSVGFEGaussianBlurElement, castToSVGFEGaussianBlurElement, gTypeSVGFEGaussianBlurElement - , SVGFEImageElement(SVGFEImageElement), unSVGFEImageElement, castToSVGFEImageElement, gTypeSVGFEImageElement - , SVGFEMergeElement(SVGFEMergeElement), unSVGFEMergeElement, castToSVGFEMergeElement, gTypeSVGFEMergeElement - , SVGFEMergeNodeElement(SVGFEMergeNodeElement), unSVGFEMergeNodeElement, castToSVGFEMergeNodeElement, gTypeSVGFEMergeNodeElement - , SVGFEMorphologyElement(SVGFEMorphologyElement), unSVGFEMorphologyElement, castToSVGFEMorphologyElement, gTypeSVGFEMorphologyElement - , SVGFEOffsetElement(SVGFEOffsetElement), unSVGFEOffsetElement, castToSVGFEOffsetElement, gTypeSVGFEOffsetElement - , SVGFEPointLightElement(SVGFEPointLightElement), unSVGFEPointLightElement, castToSVGFEPointLightElement, gTypeSVGFEPointLightElement - , SVGFESpecularLightingElement(SVGFESpecularLightingElement), unSVGFESpecularLightingElement, castToSVGFESpecularLightingElement, gTypeSVGFESpecularLightingElement - , SVGFESpotLightElement(SVGFESpotLightElement), unSVGFESpotLightElement, castToSVGFESpotLightElement, gTypeSVGFESpotLightElement - , SVGFETileElement(SVGFETileElement), unSVGFETileElement, castToSVGFETileElement, gTypeSVGFETileElement - , SVGFETurbulenceElement(SVGFETurbulenceElement), unSVGFETurbulenceElement, castToSVGFETurbulenceElement, gTypeSVGFETurbulenceElement - , SVGFilterElement(SVGFilterElement), unSVGFilterElement, castToSVGFilterElement, gTypeSVGFilterElement - , SVGFilterPrimitiveStandardAttributes(SVGFilterPrimitiveStandardAttributes), unSVGFilterPrimitiveStandardAttributes, castToSVGFilterPrimitiveStandardAttributes, gTypeSVGFilterPrimitiveStandardAttributes - , SVGFitToViewBox(SVGFitToViewBox), unSVGFitToViewBox, castToSVGFitToViewBox, gTypeSVGFitToViewBox - , SVGFontElement(SVGFontElement), unSVGFontElement, castToSVGFontElement, gTypeSVGFontElement - , SVGFontFaceElement(SVGFontFaceElement), unSVGFontFaceElement, castToSVGFontFaceElement, gTypeSVGFontFaceElement - , SVGFontFaceFormatElement(SVGFontFaceFormatElement), unSVGFontFaceFormatElement, castToSVGFontFaceFormatElement, gTypeSVGFontFaceFormatElement - , SVGFontFaceNameElement(SVGFontFaceNameElement), unSVGFontFaceNameElement, castToSVGFontFaceNameElement, gTypeSVGFontFaceNameElement - , SVGFontFaceSrcElement(SVGFontFaceSrcElement), unSVGFontFaceSrcElement, castToSVGFontFaceSrcElement, gTypeSVGFontFaceSrcElement - , SVGFontFaceUriElement(SVGFontFaceUriElement), unSVGFontFaceUriElement, castToSVGFontFaceUriElement, gTypeSVGFontFaceUriElement - , SVGForeignObjectElement(SVGForeignObjectElement), unSVGForeignObjectElement, castToSVGForeignObjectElement, gTypeSVGForeignObjectElement - , SVGGElement(SVGGElement), unSVGGElement, castToSVGGElement, gTypeSVGGElement - , SVGGlyphElement(SVGGlyphElement), unSVGGlyphElement, castToSVGGlyphElement, gTypeSVGGlyphElement - , SVGGlyphRefElement(SVGGlyphRefElement), unSVGGlyphRefElement, castToSVGGlyphRefElement, gTypeSVGGlyphRefElement - , SVGGradientElement(SVGGradientElement), unSVGGradientElement, IsSVGGradientElement, toSVGGradientElement, castToSVGGradientElement, gTypeSVGGradientElement - , SVGGraphicsElement(SVGGraphicsElement), unSVGGraphicsElement, IsSVGGraphicsElement, toSVGGraphicsElement, castToSVGGraphicsElement, gTypeSVGGraphicsElement - , SVGHKernElement(SVGHKernElement), unSVGHKernElement, castToSVGHKernElement, gTypeSVGHKernElement - , SVGImageElement(SVGImageElement), unSVGImageElement, castToSVGImageElement, gTypeSVGImageElement - , SVGLength(SVGLength), unSVGLength, castToSVGLength, gTypeSVGLength - , SVGLengthList(SVGLengthList), unSVGLengthList, castToSVGLengthList, gTypeSVGLengthList - , SVGLineElement(SVGLineElement), unSVGLineElement, castToSVGLineElement, gTypeSVGLineElement - , SVGLinearGradientElement(SVGLinearGradientElement), unSVGLinearGradientElement, castToSVGLinearGradientElement, gTypeSVGLinearGradientElement - , SVGMPathElement(SVGMPathElement), unSVGMPathElement, castToSVGMPathElement, gTypeSVGMPathElement - , SVGMarkerElement(SVGMarkerElement), unSVGMarkerElement, castToSVGMarkerElement, gTypeSVGMarkerElement - , SVGMaskElement(SVGMaskElement), unSVGMaskElement, castToSVGMaskElement, gTypeSVGMaskElement - , SVGMatrix(SVGMatrix), unSVGMatrix, castToSVGMatrix, gTypeSVGMatrix - , SVGMetadataElement(SVGMetadataElement), unSVGMetadataElement, castToSVGMetadataElement, gTypeSVGMetadataElement - , SVGMissingGlyphElement(SVGMissingGlyphElement), unSVGMissingGlyphElement, castToSVGMissingGlyphElement, gTypeSVGMissingGlyphElement - , SVGNumber(SVGNumber), unSVGNumber, castToSVGNumber, gTypeSVGNumber - , SVGNumberList(SVGNumberList), unSVGNumberList, castToSVGNumberList, gTypeSVGNumberList - , SVGPaint(SVGPaint), unSVGPaint, castToSVGPaint, gTypeSVGPaint - , SVGPathElement(SVGPathElement), unSVGPathElement, castToSVGPathElement, gTypeSVGPathElement - , SVGPathSeg(SVGPathSeg), unSVGPathSeg, IsSVGPathSeg, toSVGPathSeg, castToSVGPathSeg, gTypeSVGPathSeg - , SVGPathSegArcAbs(SVGPathSegArcAbs), unSVGPathSegArcAbs, castToSVGPathSegArcAbs, gTypeSVGPathSegArcAbs - , SVGPathSegArcRel(SVGPathSegArcRel), unSVGPathSegArcRel, castToSVGPathSegArcRel, gTypeSVGPathSegArcRel - , SVGPathSegClosePath(SVGPathSegClosePath), unSVGPathSegClosePath, castToSVGPathSegClosePath, gTypeSVGPathSegClosePath - , SVGPathSegCurvetoCubicAbs(SVGPathSegCurvetoCubicAbs), unSVGPathSegCurvetoCubicAbs, castToSVGPathSegCurvetoCubicAbs, gTypeSVGPathSegCurvetoCubicAbs - , SVGPathSegCurvetoCubicRel(SVGPathSegCurvetoCubicRel), unSVGPathSegCurvetoCubicRel, castToSVGPathSegCurvetoCubicRel, gTypeSVGPathSegCurvetoCubicRel - , SVGPathSegCurvetoCubicSmoothAbs(SVGPathSegCurvetoCubicSmoothAbs), unSVGPathSegCurvetoCubicSmoothAbs, castToSVGPathSegCurvetoCubicSmoothAbs, gTypeSVGPathSegCurvetoCubicSmoothAbs - , SVGPathSegCurvetoCubicSmoothRel(SVGPathSegCurvetoCubicSmoothRel), unSVGPathSegCurvetoCubicSmoothRel, castToSVGPathSegCurvetoCubicSmoothRel, gTypeSVGPathSegCurvetoCubicSmoothRel - , SVGPathSegCurvetoQuadraticAbs(SVGPathSegCurvetoQuadraticAbs), unSVGPathSegCurvetoQuadraticAbs, castToSVGPathSegCurvetoQuadraticAbs, gTypeSVGPathSegCurvetoQuadraticAbs - , SVGPathSegCurvetoQuadraticRel(SVGPathSegCurvetoQuadraticRel), unSVGPathSegCurvetoQuadraticRel, castToSVGPathSegCurvetoQuadraticRel, gTypeSVGPathSegCurvetoQuadraticRel - , SVGPathSegCurvetoQuadraticSmoothAbs(SVGPathSegCurvetoQuadraticSmoothAbs), unSVGPathSegCurvetoQuadraticSmoothAbs, castToSVGPathSegCurvetoQuadraticSmoothAbs, gTypeSVGPathSegCurvetoQuadraticSmoothAbs - , SVGPathSegCurvetoQuadraticSmoothRel(SVGPathSegCurvetoQuadraticSmoothRel), unSVGPathSegCurvetoQuadraticSmoothRel, castToSVGPathSegCurvetoQuadraticSmoothRel, gTypeSVGPathSegCurvetoQuadraticSmoothRel - , SVGPathSegLinetoAbs(SVGPathSegLinetoAbs), unSVGPathSegLinetoAbs, castToSVGPathSegLinetoAbs, gTypeSVGPathSegLinetoAbs - , SVGPathSegLinetoHorizontalAbs(SVGPathSegLinetoHorizontalAbs), unSVGPathSegLinetoHorizontalAbs, castToSVGPathSegLinetoHorizontalAbs, gTypeSVGPathSegLinetoHorizontalAbs - , SVGPathSegLinetoHorizontalRel(SVGPathSegLinetoHorizontalRel), unSVGPathSegLinetoHorizontalRel, castToSVGPathSegLinetoHorizontalRel, gTypeSVGPathSegLinetoHorizontalRel - , SVGPathSegLinetoRel(SVGPathSegLinetoRel), unSVGPathSegLinetoRel, castToSVGPathSegLinetoRel, gTypeSVGPathSegLinetoRel - , SVGPathSegLinetoVerticalAbs(SVGPathSegLinetoVerticalAbs), unSVGPathSegLinetoVerticalAbs, castToSVGPathSegLinetoVerticalAbs, gTypeSVGPathSegLinetoVerticalAbs - , SVGPathSegLinetoVerticalRel(SVGPathSegLinetoVerticalRel), unSVGPathSegLinetoVerticalRel, castToSVGPathSegLinetoVerticalRel, gTypeSVGPathSegLinetoVerticalRel - , SVGPathSegList(SVGPathSegList), unSVGPathSegList, castToSVGPathSegList, gTypeSVGPathSegList - , SVGPathSegMovetoAbs(SVGPathSegMovetoAbs), unSVGPathSegMovetoAbs, castToSVGPathSegMovetoAbs, gTypeSVGPathSegMovetoAbs - , SVGPathSegMovetoRel(SVGPathSegMovetoRel), unSVGPathSegMovetoRel, castToSVGPathSegMovetoRel, gTypeSVGPathSegMovetoRel - , SVGPatternElement(SVGPatternElement), unSVGPatternElement, castToSVGPatternElement, gTypeSVGPatternElement - , SVGPoint(SVGPoint), unSVGPoint, castToSVGPoint, gTypeSVGPoint - , SVGPointList(SVGPointList), unSVGPointList, castToSVGPointList, gTypeSVGPointList - , SVGPolygonElement(SVGPolygonElement), unSVGPolygonElement, castToSVGPolygonElement, gTypeSVGPolygonElement - , SVGPolylineElement(SVGPolylineElement), unSVGPolylineElement, castToSVGPolylineElement, gTypeSVGPolylineElement - , SVGPreserveAspectRatio(SVGPreserveAspectRatio), unSVGPreserveAspectRatio, castToSVGPreserveAspectRatio, gTypeSVGPreserveAspectRatio - , SVGRadialGradientElement(SVGRadialGradientElement), unSVGRadialGradientElement, castToSVGRadialGradientElement, gTypeSVGRadialGradientElement - , SVGRect(SVGRect), unSVGRect, castToSVGRect, gTypeSVGRect - , SVGRectElement(SVGRectElement), unSVGRectElement, castToSVGRectElement, gTypeSVGRectElement - , SVGRenderingIntent(SVGRenderingIntent), unSVGRenderingIntent, castToSVGRenderingIntent, gTypeSVGRenderingIntent - , SVGSVGElement(SVGSVGElement), unSVGSVGElement, castToSVGSVGElement, gTypeSVGSVGElement - , SVGScriptElement(SVGScriptElement), unSVGScriptElement, castToSVGScriptElement, gTypeSVGScriptElement - , SVGSetElement(SVGSetElement), unSVGSetElement, castToSVGSetElement, gTypeSVGSetElement - , SVGStopElement(SVGStopElement), unSVGStopElement, castToSVGStopElement, gTypeSVGStopElement - , SVGStringList(SVGStringList), unSVGStringList, castToSVGStringList, gTypeSVGStringList - , SVGStyleElement(SVGStyleElement), unSVGStyleElement, castToSVGStyleElement, gTypeSVGStyleElement - , SVGSwitchElement(SVGSwitchElement), unSVGSwitchElement, castToSVGSwitchElement, gTypeSVGSwitchElement - , SVGSymbolElement(SVGSymbolElement), unSVGSymbolElement, castToSVGSymbolElement, gTypeSVGSymbolElement - , SVGTRefElement(SVGTRefElement), unSVGTRefElement, castToSVGTRefElement, gTypeSVGTRefElement - , SVGTSpanElement(SVGTSpanElement), unSVGTSpanElement, castToSVGTSpanElement, gTypeSVGTSpanElement - , SVGTests(SVGTests), unSVGTests, castToSVGTests, gTypeSVGTests - , SVGTextContentElement(SVGTextContentElement), unSVGTextContentElement, IsSVGTextContentElement, toSVGTextContentElement, castToSVGTextContentElement, gTypeSVGTextContentElement - , SVGTextElement(SVGTextElement), unSVGTextElement, castToSVGTextElement, gTypeSVGTextElement - , SVGTextPathElement(SVGTextPathElement), unSVGTextPathElement, castToSVGTextPathElement, gTypeSVGTextPathElement - , SVGTextPositioningElement(SVGTextPositioningElement), unSVGTextPositioningElement, IsSVGTextPositioningElement, toSVGTextPositioningElement, castToSVGTextPositioningElement, gTypeSVGTextPositioningElement - , SVGTitleElement(SVGTitleElement), unSVGTitleElement, castToSVGTitleElement, gTypeSVGTitleElement - , SVGTransform(SVGTransform), unSVGTransform, castToSVGTransform, gTypeSVGTransform - , SVGTransformList(SVGTransformList), unSVGTransformList, castToSVGTransformList, gTypeSVGTransformList - , SVGURIReference(SVGURIReference), unSVGURIReference, castToSVGURIReference, gTypeSVGURIReference - , SVGUnitTypes(SVGUnitTypes), unSVGUnitTypes, castToSVGUnitTypes, gTypeSVGUnitTypes - , SVGUseElement(SVGUseElement), unSVGUseElement, castToSVGUseElement, gTypeSVGUseElement - , SVGVKernElement(SVGVKernElement), unSVGVKernElement, castToSVGVKernElement, gTypeSVGVKernElement - , SVGViewElement(SVGViewElement), unSVGViewElement, castToSVGViewElement, gTypeSVGViewElement - , SVGViewSpec(SVGViewSpec), unSVGViewSpec, castToSVGViewSpec, gTypeSVGViewSpec - , SVGZoomAndPan(SVGZoomAndPan), unSVGZoomAndPan, castToSVGZoomAndPan, gTypeSVGZoomAndPan - , SVGZoomEvent(SVGZoomEvent), unSVGZoomEvent, castToSVGZoomEvent, gTypeSVGZoomEvent - , Screen(Screen), unScreen, castToScreen, gTypeScreen - , ScriptProcessorNode(ScriptProcessorNode), unScriptProcessorNode, castToScriptProcessorNode, gTypeScriptProcessorNode - , ScriptProfile(ScriptProfile), unScriptProfile, castToScriptProfile, gTypeScriptProfile - , ScriptProfileNode(ScriptProfileNode), unScriptProfileNode, castToScriptProfileNode, gTypeScriptProfileNode - , SecurityPolicy(SecurityPolicy), unSecurityPolicy, castToSecurityPolicy, gTypeSecurityPolicy - , SecurityPolicyViolationEvent(SecurityPolicyViolationEvent), unSecurityPolicyViolationEvent, castToSecurityPolicyViolationEvent, gTypeSecurityPolicyViolationEvent - , Selection(Selection), unSelection, castToSelection, gTypeSelection - , SourceBuffer(SourceBuffer), unSourceBuffer, castToSourceBuffer, gTypeSourceBuffer - , SourceBufferList(SourceBufferList), unSourceBufferList, castToSourceBufferList, gTypeSourceBufferList - , SourceInfo(SourceInfo), unSourceInfo, castToSourceInfo, gTypeSourceInfo - , SpeechSynthesis(SpeechSynthesis), unSpeechSynthesis, castToSpeechSynthesis, gTypeSpeechSynthesis - , SpeechSynthesisEvent(SpeechSynthesisEvent), unSpeechSynthesisEvent, castToSpeechSynthesisEvent, gTypeSpeechSynthesisEvent - , SpeechSynthesisUtterance(SpeechSynthesisUtterance), unSpeechSynthesisUtterance, castToSpeechSynthesisUtterance, gTypeSpeechSynthesisUtterance - , SpeechSynthesisVoice(SpeechSynthesisVoice), unSpeechSynthesisVoice, castToSpeechSynthesisVoice, gTypeSpeechSynthesisVoice - , Storage(Storage), unStorage, castToStorage, gTypeStorage - , StorageEvent(StorageEvent), unStorageEvent, castToStorageEvent, gTypeStorageEvent - , StorageInfo(StorageInfo), unStorageInfo, castToStorageInfo, gTypeStorageInfo - , StorageQuota(StorageQuota), unStorageQuota, castToStorageQuota, gTypeStorageQuota - , StyleMedia(StyleMedia), unStyleMedia, castToStyleMedia, gTypeStyleMedia - , StyleSheet(StyleSheet), unStyleSheet, IsStyleSheet, toStyleSheet, castToStyleSheet, gTypeStyleSheet - , StyleSheetList(StyleSheetList), unStyleSheetList, castToStyleSheetList, gTypeStyleSheetList - , SubtleCrypto(SubtleCrypto), unSubtleCrypto, castToSubtleCrypto, gTypeSubtleCrypto - , Text(Text), unText, IsText, toText, castToText, gTypeText - , TextEvent(TextEvent), unTextEvent, castToTextEvent, gTypeTextEvent - , TextMetrics(TextMetrics), unTextMetrics, castToTextMetrics, gTypeTextMetrics - , TextTrack(TextTrack), unTextTrack, castToTextTrack, gTypeTextTrack - , TextTrackCue(TextTrackCue), unTextTrackCue, IsTextTrackCue, toTextTrackCue, castToTextTrackCue, gTypeTextTrackCue - , TextTrackCueList(TextTrackCueList), unTextTrackCueList, castToTextTrackCueList, gTypeTextTrackCueList - , TextTrackList(TextTrackList), unTextTrackList, castToTextTrackList, gTypeTextTrackList - , TimeRanges(TimeRanges), unTimeRanges, castToTimeRanges, gTypeTimeRanges - , Touch(Touch), unTouch, castToTouch, gTypeTouch - , TouchEvent(TouchEvent), unTouchEvent, castToTouchEvent, gTypeTouchEvent - , TouchList(TouchList), unTouchList, castToTouchList, gTypeTouchList - , TrackEvent(TrackEvent), unTrackEvent, castToTrackEvent, gTypeTrackEvent - , TransitionEvent(TransitionEvent), unTransitionEvent, castToTransitionEvent, gTypeTransitionEvent - , TreeWalker(TreeWalker), unTreeWalker, castToTreeWalker, gTypeTreeWalker - , TypeConversions(TypeConversions), unTypeConversions, castToTypeConversions, gTypeTypeConversions - , UIEvent(UIEvent), unUIEvent, IsUIEvent, toUIEvent, castToUIEvent, gTypeUIEvent - , UIRequestEvent(UIRequestEvent), unUIRequestEvent, castToUIRequestEvent, gTypeUIRequestEvent - , URL(URL), unURL, castToURL, gTypeURL - , URLUtils(URLUtils), unURLUtils, castToURLUtils, gTypeURLUtils - , UserMessageHandler(UserMessageHandler), unUserMessageHandler, castToUserMessageHandler, gTypeUserMessageHandler - , UserMessageHandlersNamespace(UserMessageHandlersNamespace), unUserMessageHandlersNamespace, castToUserMessageHandlersNamespace, gTypeUserMessageHandlersNamespace - , VTTCue(VTTCue), unVTTCue, castToVTTCue, gTypeVTTCue - , VTTRegion(VTTRegion), unVTTRegion, castToVTTRegion, gTypeVTTRegion - , VTTRegionList(VTTRegionList), unVTTRegionList, castToVTTRegionList, gTypeVTTRegionList - , ValidityState(ValidityState), unValidityState, castToValidityState, gTypeValidityState - , VideoPlaybackQuality(VideoPlaybackQuality), unVideoPlaybackQuality, castToVideoPlaybackQuality, gTypeVideoPlaybackQuality - , VideoStreamTrack(VideoStreamTrack), unVideoStreamTrack, castToVideoStreamTrack, gTypeVideoStreamTrack - , VideoTrack(VideoTrack), unVideoTrack, castToVideoTrack, gTypeVideoTrack - , VideoTrackList(VideoTrackList), unVideoTrackList, castToVideoTrackList, gTypeVideoTrackList - , WaveShaperNode(WaveShaperNode), unWaveShaperNode, castToWaveShaperNode, gTypeWaveShaperNode - , WebGL2RenderingContext(WebGL2RenderingContext), unWebGL2RenderingContext, castToWebGL2RenderingContext, gTypeWebGL2RenderingContext - , WebGLActiveInfo(WebGLActiveInfo), unWebGLActiveInfo, castToWebGLActiveInfo, gTypeWebGLActiveInfo - , WebGLBuffer(WebGLBuffer), unWebGLBuffer, castToWebGLBuffer, gTypeWebGLBuffer - , WebGLCompressedTextureATC(WebGLCompressedTextureATC), unWebGLCompressedTextureATC, castToWebGLCompressedTextureATC, gTypeWebGLCompressedTextureATC - , WebGLCompressedTexturePVRTC(WebGLCompressedTexturePVRTC), unWebGLCompressedTexturePVRTC, castToWebGLCompressedTexturePVRTC, gTypeWebGLCompressedTexturePVRTC - , WebGLCompressedTextureS3TC(WebGLCompressedTextureS3TC), unWebGLCompressedTextureS3TC, castToWebGLCompressedTextureS3TC, gTypeWebGLCompressedTextureS3TC - , WebGLContextAttributes(WebGLContextAttributes), unWebGLContextAttributes, castToWebGLContextAttributes, gTypeWebGLContextAttributes - , WebGLContextEvent(WebGLContextEvent), unWebGLContextEvent, castToWebGLContextEvent, gTypeWebGLContextEvent - , WebGLDebugRendererInfo(WebGLDebugRendererInfo), unWebGLDebugRendererInfo, castToWebGLDebugRendererInfo, gTypeWebGLDebugRendererInfo - , WebGLDebugShaders(WebGLDebugShaders), unWebGLDebugShaders, castToWebGLDebugShaders, gTypeWebGLDebugShaders - , WebGLDepthTexture(WebGLDepthTexture), unWebGLDepthTexture, castToWebGLDepthTexture, gTypeWebGLDepthTexture - , WebGLDrawBuffers(WebGLDrawBuffers), unWebGLDrawBuffers, castToWebGLDrawBuffers, gTypeWebGLDrawBuffers - , WebGLFramebuffer(WebGLFramebuffer), unWebGLFramebuffer, castToWebGLFramebuffer, gTypeWebGLFramebuffer - , WebGLLoseContext(WebGLLoseContext), unWebGLLoseContext, castToWebGLLoseContext, gTypeWebGLLoseContext - , WebGLProgram(WebGLProgram), unWebGLProgram, castToWebGLProgram, gTypeWebGLProgram - , WebGLQuery(WebGLQuery), unWebGLQuery, castToWebGLQuery, gTypeWebGLQuery - , WebGLRenderbuffer(WebGLRenderbuffer), unWebGLRenderbuffer, castToWebGLRenderbuffer, gTypeWebGLRenderbuffer - , WebGLRenderingContext(WebGLRenderingContext), unWebGLRenderingContext, castToWebGLRenderingContext, gTypeWebGLRenderingContext - , WebGLRenderingContextBase(WebGLRenderingContextBase), unWebGLRenderingContextBase, IsWebGLRenderingContextBase, toWebGLRenderingContextBase, castToWebGLRenderingContextBase, gTypeWebGLRenderingContextBase - , WebGLSampler(WebGLSampler), unWebGLSampler, castToWebGLSampler, gTypeWebGLSampler - , WebGLShader(WebGLShader), unWebGLShader, castToWebGLShader, gTypeWebGLShader - , WebGLShaderPrecisionFormat(WebGLShaderPrecisionFormat), unWebGLShaderPrecisionFormat, castToWebGLShaderPrecisionFormat, gTypeWebGLShaderPrecisionFormat - , WebGLSync(WebGLSync), unWebGLSync, castToWebGLSync, gTypeWebGLSync - , WebGLTexture(WebGLTexture), unWebGLTexture, castToWebGLTexture, gTypeWebGLTexture - , WebGLTransformFeedback(WebGLTransformFeedback), unWebGLTransformFeedback, castToWebGLTransformFeedback, gTypeWebGLTransformFeedback - , WebGLUniformLocation(WebGLUniformLocation), unWebGLUniformLocation, castToWebGLUniformLocation, gTypeWebGLUniformLocation - , WebGLVertexArrayObject(WebGLVertexArrayObject), unWebGLVertexArrayObject, castToWebGLVertexArrayObject, gTypeWebGLVertexArrayObject - , WebGLVertexArrayObjectOES(WebGLVertexArrayObjectOES), unWebGLVertexArrayObjectOES, castToWebGLVertexArrayObjectOES, gTypeWebGLVertexArrayObjectOES - , WebKitAnimationEvent(WebKitAnimationEvent), unWebKitAnimationEvent, castToWebKitAnimationEvent, gTypeWebKitAnimationEvent - , WebKitCSSFilterValue(WebKitCSSFilterValue), unWebKitCSSFilterValue, castToWebKitCSSFilterValue, gTypeWebKitCSSFilterValue - , WebKitCSSMatrix(WebKitCSSMatrix), unWebKitCSSMatrix, castToWebKitCSSMatrix, gTypeWebKitCSSMatrix - , WebKitCSSRegionRule(WebKitCSSRegionRule), unWebKitCSSRegionRule, castToWebKitCSSRegionRule, gTypeWebKitCSSRegionRule - , WebKitCSSTransformValue(WebKitCSSTransformValue), unWebKitCSSTransformValue, castToWebKitCSSTransformValue, gTypeWebKitCSSTransformValue - , WebKitCSSViewportRule(WebKitCSSViewportRule), unWebKitCSSViewportRule, castToWebKitCSSViewportRule, gTypeWebKitCSSViewportRule - , WebKitNamedFlow(WebKitNamedFlow), unWebKitNamedFlow, castToWebKitNamedFlow, gTypeWebKitNamedFlow - , WebKitNamespace(WebKitNamespace), unWebKitNamespace, castToWebKitNamespace, gTypeWebKitNamespace - , WebKitPlaybackTargetAvailabilityEvent(WebKitPlaybackTargetAvailabilityEvent), unWebKitPlaybackTargetAvailabilityEvent, castToWebKitPlaybackTargetAvailabilityEvent, gTypeWebKitPlaybackTargetAvailabilityEvent - , WebKitPoint(WebKitPoint), unWebKitPoint, castToWebKitPoint, gTypeWebKitPoint - , WebKitTransitionEvent(WebKitTransitionEvent), unWebKitTransitionEvent, castToWebKitTransitionEvent, gTypeWebKitTransitionEvent - , WebSocket(WebSocket), unWebSocket, castToWebSocket, gTypeWebSocket - , WheelEvent(WheelEvent), unWheelEvent, castToWheelEvent, gTypeWheelEvent - , Window(Window), unWindow, castToWindow, gTypeWindow - , WindowBase64(WindowBase64), unWindowBase64, castToWindowBase64, gTypeWindowBase64 - , WindowTimers(WindowTimers), unWindowTimers, castToWindowTimers, gTypeWindowTimers - , Worker(Worker), unWorker, castToWorker, gTypeWorker - , WorkerGlobalScope(WorkerGlobalScope), unWorkerGlobalScope, IsWorkerGlobalScope, toWorkerGlobalScope, castToWorkerGlobalScope, gTypeWorkerGlobalScope - , WorkerLocation(WorkerLocation), unWorkerLocation, castToWorkerLocation, gTypeWorkerLocation - , WorkerNavigator(WorkerNavigator), unWorkerNavigator, castToWorkerNavigator, gTypeWorkerNavigator - , XMLHttpRequest(XMLHttpRequest), unXMLHttpRequest, castToXMLHttpRequest, gTypeXMLHttpRequest - , XMLHttpRequestProgressEvent(XMLHttpRequestProgressEvent), unXMLHttpRequestProgressEvent, castToXMLHttpRequestProgressEvent, gTypeXMLHttpRequestProgressEvent - , XMLHttpRequestUpload(XMLHttpRequestUpload), unXMLHttpRequestUpload, castToXMLHttpRequestUpload, gTypeXMLHttpRequestUpload - , XMLSerializer(XMLSerializer), unXMLSerializer, castToXMLSerializer, gTypeXMLSerializer - , XPathEvaluator(XPathEvaluator), unXPathEvaluator, castToXPathEvaluator, gTypeXPathEvaluator - , XPathExpression(XPathExpression), unXPathExpression, castToXPathExpression, gTypeXPathExpression - , XPathNSResolver(XPathNSResolver), unXPathNSResolver, castToXPathNSResolver, gTypeXPathNSResolver - , XPathResult(XPathResult), unXPathResult, castToXPathResult, gTypeXPathResult - , XSLTProcessor(XSLTProcessor), unXSLTProcessor, castToXSLTProcessor, gTypeXSLTProcessor --- AUTO GENERATION ENDS HERE - ) where - -import Control.Applicative ((<$>)) -import qualified Data.Text as T (Text) -import qualified Data.Text.Lazy as LT (Text) -import Data.JSString (pack, unpack) -import Data.JSString.Text (textToJSString, textFromJSString, lazyTextToJSString, lazyTextFromJSString) -import GHCJS.Types (JSVal(..), nullRef, isNull, isUndefined, JSString(..)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import GHCJS.Nullable (Nullable(..), nullableToMaybe, maybeToNullable) -import GHCJS.Foreign.Callback.Internal (Callback(..)) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int8, Int16, Int32, Int64) -import Data.Word (Word8, Word16, Word32, Word64) - -type DOM = IO -type DOMContext = () - -askDOM :: MonadDOM m => m DOMContext -askDOM = return () - -runDOM :: DOM a -> DOMContext -> IO a -runDOM = const - -type MonadDOM = MonadIO - -liftDOM :: DOM a -> DOM a -liftDOM = liftIO - -maybeJSNullOrUndefined :: JSVal -> Maybe JSVal -maybeJSNullOrUndefined r | isNull r || isUndefined r = Nothing -maybeJSNullOrUndefined r = Just r - -propagateGError = id - -newtype GType = GType JSVal - -foreign import javascript unsafe - "$1===$2" js_eq :: JSVal -> JSVal -> Bool - -foreign import javascript unsafe "h$isInstanceOf $1 $2" - typeInstanceIsA' :: JSVal -> JSVal -> Bool - -typeInstanceIsA o (GType t) = typeInstanceIsA' o t - --- The usage of foreignPtrToPtr should be safe as the evaluation will only be --- forced if the object is used afterwards --- -castTo :: (IsGObject obj, IsGObject obj') => GType -> String - -> obj -> IO obj' -castTo gtype objTypeName obj = - case toGObject obj of - gobj@(GObject objRef) - | typeInstanceIsA objRef gtype - -> return $ unsafeCastGObject gobj - | otherwise -> error $ "Cannot cast object to " ++ objTypeName - --- | Determine if this is an instance of a particular type --- -isA :: IsGObject o => o -> GType -> Bool -isA obj = typeInstanceIsA (unGObject $ toGObject obj) - -newtype GObject = GObject { unGObject :: JSVal } - -class (ToJSVal o, FromJSVal o) => IsGObject o where - -- | Safe upcast. - toGObject :: o -> GObject - -- | Unchecked downcast. - unsafeCastGObject :: GObject -> o - -instance PToJSVal GObject where - pToJSVal = unGObject - {-# INLINE pToJSVal #-} - -instance PFromJSVal GObject where - pFromJSVal = GObject - {-# INLINE pFromJSVal #-} - -instance ToJSVal GObject where - toJSVal = return . unGObject - {-# INLINE toJSVal #-} - -instance FromJSVal GObject where - fromJSVal = return . fmap GObject . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - ---instance IsGObject o => PToJSVal o where --- pToJSVal = unGObject . toGObject --- {-# INLINE pToJSVal #-} --- ---instance IsGObject o => PFromJSVal o where --- pFromJSVal = unsafeCastGObject . GObject . castRef --- {-# INLINE pFromJSVal #-} --- ---instance IsGObject o => ToJSVal o where --- toJSVal = return . unGObject . toGObject --- {-# INLINE toJSVal #-} --- ---instance IsGObject o => FromJSVal o where --- fromJSVal = return . fmap (unsafeCastGObject . GObject . castRef) . maybeJSNullOrUndefined --- {-# INLINE fromJSVal #-} - -instance IsGObject GObject where - toGObject = id - {-# INLINE toGObject #-} - unsafeCastGObject = id - {-# INLINE unsafeCastGObject #-} - -castToGObject :: IsGObject obj => obj -> IO obj -castToGObject = return - -foreign import javascript unsafe "object" gTypeGObject :: GType - -foreign import javascript unsafe "$1[\"toString\"]()" js_objectToString :: GObject -> IO JSString - -objectToString :: (MonadIO m, IsGObject self, FromJSString result) => self -> m result -objectToString self = liftIO (fromJSString <$> (js_objectToString (toGObject self))) - --- | Fastest string type to use when you just --- want to take a string from the DOM then --- give it back as is. -type DOMString = JSString - -class (PToJSVal a, ToJSVal a) => ToJSString a -class (PFromJSVal a, FromJSVal a) => FromJSString a - -toJSString :: ToJSString a => a -> JSString -toJSString = pFromJSVal . pToJSVal -{-# INLINE toJSString #-} - -fromJSString :: FromJSString a => JSString -> a -fromJSString = pFromJSVal . pToJSVal -{-# INLINE fromJSString #-} - -toMaybeJSString :: ToJSString a => Maybe a -> Nullable JSString -toMaybeJSString = Nullable . pToJSVal -{-# INLINE toMaybeJSString #-} - -fromMaybeJSString :: FromJSString a => Nullable JSString -> Maybe a -fromMaybeJSString (Nullable r) = pFromJSVal r -{-# INLINE fromMaybeJSString #-} - -instance ToJSString [Char] -instance FromJSString [Char] -instance ToJSString T.Text -instance FromJSString T.Text -instance ToJSString JSString -instance FromJSString JSString - -type ToDOMString s = ToJSString s -type FromDOMString s = FromJSString s - -type IsDOMString s = (ToDOMString s, FromDOMString s) - --- Callbacks -newtype AudioBufferCallback = AudioBufferCallback (Callback (JSVal -> IO ())) -instance PToJSVal AudioBufferCallback where pToJSVal (AudioBufferCallback (Callback r)) = r -newtype DatabaseCallback = DatabaseCallback (Callback (JSVal -> IO ())) -instance PToJSVal DatabaseCallback where pToJSVal (DatabaseCallback (Callback r)) = r -newtype MediaQueryListListener = MediaQueryListListener (Callback (JSVal -> IO ())) -instance PToJSVal MediaQueryListListener where pToJSVal (MediaQueryListListener (Callback r)) = r -newtype MediaStreamTrackSourcesCallback = MediaStreamTrackSourcesCallback (Callback (JSVal -> IO ())) -instance PToJSVal MediaStreamTrackSourcesCallback where pToJSVal (MediaStreamTrackSourcesCallback (Callback r)) = r -newtype NavigatorUserMediaErrorCallback = NavigatorUserMediaErrorCallback (Callback (JSVal -> IO ())) -instance PToJSVal NavigatorUserMediaErrorCallback where pToJSVal (NavigatorUserMediaErrorCallback (Callback r)) = r -newtype NavigatorUserMediaSuccessCallback = NavigatorUserMediaSuccessCallback (Callback (JSVal -> IO ())) -instance PToJSVal NavigatorUserMediaSuccessCallback where pToJSVal (NavigatorUserMediaSuccessCallback (Callback r)) = r -newtype NotificationPermissionCallback permissions = NotificationPermissionCallback (Callback (JSVal -> IO ())) -instance PToJSVal (NotificationPermissionCallback permissions) where pToJSVal (NotificationPermissionCallback (Callback r)) = r -newtype PositionCallback = PositionCallback (Callback (JSVal -> IO ())) -instance PToJSVal PositionCallback where pToJSVal (PositionCallback (Callback r)) = r -newtype PositionErrorCallback = PositionErrorCallback (Callback (JSVal -> IO ())) -instance PToJSVal PositionErrorCallback where pToJSVal (PositionErrorCallback (Callback r)) = r -newtype RequestAnimationFrameCallback = RequestAnimationFrameCallback (Callback (JSVal -> IO ())) -instance PToJSVal RequestAnimationFrameCallback where pToJSVal (RequestAnimationFrameCallback (Callback r)) = r -newtype RTCPeerConnectionErrorCallback = RTCPeerConnectionErrorCallback (Callback (JSVal -> IO ())) -instance PToJSVal RTCPeerConnectionErrorCallback where pToJSVal (RTCPeerConnectionErrorCallback (Callback r)) = r -newtype RTCSessionDescriptionCallback = RTCSessionDescriptionCallback (Callback (JSVal -> IO ())) -instance PToJSVal RTCSessionDescriptionCallback where pToJSVal (RTCSessionDescriptionCallback (Callback r)) = r -newtype RTCStatsCallback = RTCStatsCallback (Callback (JSVal -> IO ())) -instance PToJSVal RTCStatsCallback where pToJSVal (RTCStatsCallback (Callback r)) = r -newtype SQLStatementCallback = SQLStatementCallback (Callback (JSVal -> JSVal -> IO ())) -instance PToJSVal SQLStatementCallback where pToJSVal (SQLStatementCallback (Callback r)) = r -newtype SQLStatementErrorCallback = SQLStatementErrorCallback (Callback (JSVal -> JSVal -> IO ())) -instance PToJSVal SQLStatementErrorCallback where pToJSVal (SQLStatementErrorCallback (Callback r)) = r -newtype SQLTransactionCallback = SQLTransactionCallback (Callback (JSVal -> IO ())) -instance PToJSVal SQLTransactionCallback where pToJSVal (SQLTransactionCallback (Callback r)) = r -newtype SQLTransactionErrorCallback = SQLTransactionErrorCallback (Callback (JSVal -> IO ())) -instance PToJSVal SQLTransactionErrorCallback where pToJSVal (SQLTransactionErrorCallback (Callback r)) = r -newtype StorageErrorCallback = StorageErrorCallback (Callback (JSVal -> IO ())) -instance PToJSVal StorageErrorCallback where pToJSVal (StorageErrorCallback (Callback r)) = r -newtype StorageQuotaCallback = StorageQuotaCallback (Callback (JSVal -> IO ())) -instance PToJSVal StorageQuotaCallback where pToJSVal (StorageQuotaCallback (Callback r)) = r -newtype StorageUsageCallback = StorageUsageCallback (Callback (JSVal -> JSVal -> IO ())) -instance PToJSVal StorageUsageCallback where pToJSVal (StorageUsageCallback (Callback r)) = r -newtype StringCallback s = StringCallback (Callback (JSVal -> IO ())) -instance PToJSVal (StringCallback s) where pToJSVal (StringCallback (Callback r)) = r -newtype VoidCallback = VoidCallback (Callback (IO ())) -instance PToJSVal VoidCallback where pToJSVal (VoidCallback (Callback r)) = r - --- Custom types -newtype SerializedScriptValue = SerializedScriptValue { unSerializedScriptValue :: JSVal } - -instance Eq SerializedScriptValue where - (SerializedScriptValue a) == (SerializedScriptValue b) = js_eq a b - -instance PToJSVal SerializedScriptValue where - pToJSVal = unSerializedScriptValue - {-# INLINE pToJSVal #-} - -instance PFromJSVal SerializedScriptValue where - pFromJSVal = SerializedScriptValue - {-# INLINE pFromJSVal #-} - -instance ToJSVal SerializedScriptValue where - toJSVal = return . unSerializedScriptValue - {-# INLINE toJSVal #-} - -instance FromJSVal SerializedScriptValue where - fromJSVal = return . fmap SerializedScriptValue . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -class IsGObject o => IsSerializedScriptValue o -toSerializedScriptValue :: IsSerializedScriptValue o => o -> SerializedScriptValue -toSerializedScriptValue = unsafeCastGObject . toGObject - -instance IsSerializedScriptValue SerializedScriptValue -instance IsGObject SerializedScriptValue where - toGObject = GObject . unSerializedScriptValue - unsafeCastGObject = SerializedScriptValue . unGObject --- TODO add more IsSerializedScriptValue instances - -newtype PositionOptions = PositionOptions { unPositionOptions :: JSVal } - -instance Eq PositionOptions where - (PositionOptions a) == (PositionOptions b) = js_eq a b - -instance PToJSVal PositionOptions where - pToJSVal = unPositionOptions - {-# INLINE pToJSVal #-} - -instance PFromJSVal PositionOptions where - pFromJSVal = PositionOptions - {-# INLINE pFromJSVal #-} - -instance ToJSVal PositionOptions where - toJSVal = return . unPositionOptions - {-# INLINE toJSVal #-} - -instance FromJSVal PositionOptions where - fromJSVal = return . fmap PositionOptions . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -class IsGObject o => IsPositionOptions o -toPositionOptions :: IsPositionOptions o => o -> PositionOptions -toPositionOptions = unsafeCastGObject . toGObject - -instance IsPositionOptions PositionOptions -instance IsGObject PositionOptions where - toGObject = GObject . unPositionOptions - unsafeCastGObject = PositionOptions . unGObject --- TODO add more IsPositionOptions instances - -newtype Dictionary = Dictionary { unDictionary :: JSVal } - -instance Eq Dictionary where - (Dictionary a) == (Dictionary b) = js_eq a b - -instance PToJSVal Dictionary where - pToJSVal = unDictionary - {-# INLINE pToJSVal #-} - -instance PFromJSVal Dictionary where - pFromJSVal = Dictionary - {-# INLINE pFromJSVal #-} - -instance ToJSVal Dictionary where - toJSVal = return . unDictionary - {-# INLINE toJSVal #-} - -instance FromJSVal Dictionary where - fromJSVal = return . fmap Dictionary . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -class IsGObject o => IsDictionary o -toDictionary :: IsDictionary o => o -> Dictionary -toDictionary = unsafeCastGObject . toGObject - -instance IsDictionary Dictionary -instance IsGObject Dictionary where - toGObject = GObject . unDictionary - unsafeCastGObject = Dictionary . unGObject --- TODO add more IsDictionary instances - -newtype BlobPropertyBag = BlobPropertyBag { unBlobPropertyBag :: JSVal } - -instance Eq BlobPropertyBag where - (BlobPropertyBag a) == (BlobPropertyBag b) = js_eq a b - -instance PToJSVal BlobPropertyBag where - pToJSVal = unBlobPropertyBag - {-# INLINE pToJSVal #-} - -instance PFromJSVal BlobPropertyBag where - pFromJSVal = BlobPropertyBag - {-# INLINE pFromJSVal #-} - -instance ToJSVal BlobPropertyBag where - toJSVal = return . unBlobPropertyBag - {-# INLINE toJSVal #-} - -instance FromJSVal BlobPropertyBag where - fromJSVal = return . fmap BlobPropertyBag . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -class IsGObject o => IsBlobPropertyBag o -toBlobPropertyBag :: IsBlobPropertyBag o => o -> BlobPropertyBag -toBlobPropertyBag = unsafeCastGObject . toGObject - -instance IsBlobPropertyBag BlobPropertyBag -instance IsGObject BlobPropertyBag where - toGObject = GObject . unBlobPropertyBag - unsafeCastGObject = BlobPropertyBag . unGObject --- TODO add more IsBlobPropertyBag instances - -newtype MutationCallback = MutationCallback { unMutationCallback :: JSVal } - -instance Eq MutationCallback where - (MutationCallback a) == (MutationCallback b) = js_eq a b - -instance PToJSVal MutationCallback where - pToJSVal = unMutationCallback - {-# INLINE pToJSVal #-} - -instance PFromJSVal MutationCallback where - pFromJSVal = MutationCallback - {-# INLINE pFromJSVal #-} - -instance ToJSVal MutationCallback where - toJSVal = return . unMutationCallback - {-# INLINE toJSVal #-} - -instance FromJSVal MutationCallback where - fromJSVal = return . fmap MutationCallback . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -class IsGObject o => IsMutationCallback o -toMutationCallback :: IsMutationCallback o => o -> MutationCallback -toMutationCallback = unsafeCastGObject . toGObject - -instance IsMutationCallback MutationCallback -instance IsGObject MutationCallback where - toGObject = GObject . unMutationCallback - unsafeCastGObject = MutationCallback . unGObject --- TODO add more IsMutationCallback instances - -newtype Promise = Promise { unPromise :: JSVal } - -instance Eq Promise where - (Promise a) == (Promise b) = js_eq a b - -instance PToJSVal Promise where - pToJSVal = unPromise - {-# INLINE pToJSVal #-} - -instance PFromJSVal Promise where - pFromJSVal = Promise - {-# INLINE pFromJSVal #-} - -instance ToJSVal Promise where - toJSVal = return . unPromise - {-# INLINE toJSVal #-} - -instance FromJSVal Promise where - fromJSVal = return . fmap Promise . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -class IsGObject o => IsPromise o -toPromise :: IsPromise o => o -> Promise -toPromise = unsafeCastGObject . toGObject - -instance IsPromise Promise -instance IsGObject Promise where - toGObject = GObject . unPromise - unsafeCastGObject = Promise . unGObject --- TODO add more IsPromise instances - -castToPromise :: IsGObject obj => obj -> IO Promise -castToPromise = castTo gTypePromise "Promise" - -foreign import javascript unsafe "window[\"Promise\"]" gTypePromise :: GType - -newtype ArrayBuffer = ArrayBuffer { unArrayBuffer :: JSVal } - -instance Eq ArrayBuffer where - (ArrayBuffer a) == (ArrayBuffer b) = js_eq a b - -instance PToJSVal ArrayBuffer where - pToJSVal = unArrayBuffer - {-# INLINE pToJSVal #-} - -instance PFromJSVal ArrayBuffer where - pFromJSVal = ArrayBuffer - {-# INLINE pFromJSVal #-} - -instance ToJSVal ArrayBuffer where - toJSVal = return . unArrayBuffer - {-# INLINE toJSVal #-} - -instance FromJSVal ArrayBuffer where - fromJSVal = return . fmap ArrayBuffer . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -class IsGObject o => IsArrayBuffer o -toArrayBuffer :: IsArrayBuffer o => o -> ArrayBuffer -toArrayBuffer = unsafeCastGObject . toGObject - -instance IsArrayBuffer ArrayBuffer -instance IsGObject ArrayBuffer where - toGObject = GObject . unArrayBuffer - unsafeCastGObject = ArrayBuffer . unGObject - -castToArrayBuffer :: IsGObject obj => obj -> IO ArrayBuffer -castToArrayBuffer = castTo gTypeArrayBuffer "ArrayBuffer" - -foreign import javascript unsafe "window[\"ArrayBuffer\"]" gTypeArrayBuffer :: GType - -newtype Float32Array = Float32Array { unFloat32Array :: JSVal } - -instance Eq Float32Array where - (Float32Array a) == (Float32Array b) = js_eq a b - -instance PToJSVal Float32Array where - pToJSVal = unFloat32Array - {-# INLINE pToJSVal #-} - -instance PFromJSVal Float32Array where - pFromJSVal = Float32Array - {-# INLINE pFromJSVal #-} - -instance ToJSVal Float32Array where - toJSVal = return . unFloat32Array - {-# INLINE toJSVal #-} - -instance FromJSVal Float32Array where - fromJSVal = return . fmap Float32Array . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -class IsGObject o => IsFloat32Array o -toFloat32Array :: IsFloat32Array o => o -> Float32Array -toFloat32Array = unsafeCastGObject . toGObject - -instance IsFloat32Array Float32Array -instance IsGObject Float32Array where - toGObject = GObject . unFloat32Array - unsafeCastGObject = Float32Array . unGObject --- TODO add more IsFloat32Array instances - -castToFloat32Array :: IsGObject obj => obj -> IO Float32Array -castToFloat32Array = castTo gTypeFloat32Array "Float32Array" - -foreign import javascript unsafe "window[\"Float32Array\"]" gTypeFloat32Array :: GType - -newtype Float64Array = Float64Array { unFloat64Array :: JSVal } - -instance Eq Float64Array where - (Float64Array a) == (Float64Array b) = js_eq a b - -instance PToJSVal Float64Array where - pToJSVal = unFloat64Array - {-# INLINE pToJSVal #-} - -instance PFromJSVal Float64Array where - pFromJSVal = Float64Array - {-# INLINE pFromJSVal #-} - -instance ToJSVal Float64Array where - toJSVal = return . unFloat64Array - {-# INLINE toJSVal #-} - -instance FromJSVal Float64Array where - fromJSVal = return . fmap Float64Array . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -class IsGObject o => IsFloat64Array o -toFloat64Array :: IsFloat64Array o => o -> Float64Array -toFloat64Array = unsafeCastGObject . toGObject - -instance IsFloat64Array Float64Array -instance IsGObject Float64Array where - toGObject = GObject . unFloat64Array - unsafeCastGObject = Float64Array . unGObject --- TODO add more IsFloat64Array instances - -castToFloat64Array :: IsGObject obj => obj -> IO Float64Array -castToFloat64Array = castTo gTypeFloat64Array "Float64Array" - -foreign import javascript unsafe "window[\"Float64Array\"]" gTypeFloat64Array :: GType - -newtype Uint8Array = Uint8Array { unUint8Array :: JSVal } - -instance Eq Uint8Array where - (Uint8Array a) == (Uint8Array b) = js_eq a b - -instance PToJSVal Uint8Array where - pToJSVal = unUint8Array - {-# INLINE pToJSVal #-} - -instance PFromJSVal Uint8Array where - pFromJSVal = Uint8Array - {-# INLINE pFromJSVal #-} - -instance ToJSVal Uint8Array where - toJSVal = return . unUint8Array - {-# INLINE toJSVal #-} - -instance FromJSVal Uint8Array where - fromJSVal = return . fmap Uint8Array . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -class IsGObject o => IsUint8Array o -toUint8Array :: IsUint8Array o => o -> Uint8Array -toUint8Array = unsafeCastGObject . toGObject - -instance IsUint8Array Uint8Array -instance IsGObject Uint8Array where - toGObject = GObject . unUint8Array - unsafeCastGObject = Uint8Array . unGObject --- TODO add more IsUint8Array instances - -castToUint8Array :: IsGObject obj => obj -> IO Uint8Array -castToUint8Array = castTo gTypeUint8Array "Uint8Array" - -foreign import javascript unsafe "window[\"Uint8Array\"]" gTypeUint8Array :: GType - -newtype Uint8ClampedArray = Uint8ClampedArray { unUint8ClampedArray :: JSVal } - -instance Eq Uint8ClampedArray where - (Uint8ClampedArray a) == (Uint8ClampedArray b) = js_eq a b - -instance PToJSVal Uint8ClampedArray where - pToJSVal = unUint8ClampedArray - {-# INLINE pToJSVal #-} - -instance PFromJSVal Uint8ClampedArray where - pFromJSVal = Uint8ClampedArray - {-# INLINE pFromJSVal #-} - -instance ToJSVal Uint8ClampedArray where - toJSVal = return . unUint8ClampedArray - {-# INLINE toJSVal #-} - -instance FromJSVal Uint8ClampedArray where - fromJSVal = return . fmap Uint8ClampedArray . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -class IsGObject o => IsUint8ClampedArray o -toUint8ClampedArray :: IsUint8ClampedArray o => o -> Uint8ClampedArray -toUint8ClampedArray = unsafeCastGObject . toGObject - -instance IsUint8ClampedArray Uint8ClampedArray -instance IsGObject Uint8ClampedArray where - toGObject = GObject . unUint8ClampedArray - unsafeCastGObject = Uint8ClampedArray . unGObject --- TODO add more IsUint8ClampedArray instances - -castToUint8ClampedArray :: IsGObject obj => obj -> IO Uint8ClampedArray -castToUint8ClampedArray = castTo gTypeUint8ClampedArray "Uint8ClampedArray" - -foreign import javascript unsafe "window[\"Uint8ClampedArray\"]" gTypeUint8ClampedArray :: GType - -newtype Uint16Array = Uint16Array { unUint16Array :: JSVal } - -instance Eq Uint16Array where - (Uint16Array a) == (Uint16Array b) = js_eq a b - -instance PToJSVal Uint16Array where - pToJSVal = unUint16Array - {-# INLINE pToJSVal #-} - -instance PFromJSVal Uint16Array where - pFromJSVal = Uint16Array - {-# INLINE pFromJSVal #-} - -instance ToJSVal Uint16Array where - toJSVal = return . unUint16Array - {-# INLINE toJSVal #-} - -instance FromJSVal Uint16Array where - fromJSVal = return . fmap Uint16Array . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -class IsGObject o => IsUint16Array o -toUint16Array :: IsUint16Array o => o -> Uint16Array -toUint16Array = unsafeCastGObject . toGObject - -instance IsUint16Array Uint16Array -instance IsGObject Uint16Array where - toGObject = GObject . unUint16Array - unsafeCastGObject = Uint16Array . unGObject --- TODO add more IsUint16Array instances - -castToUint16Array :: IsGObject obj => obj -> IO Uint16Array -castToUint16Array = castTo gTypeUint16Array "Uint16Array" - -foreign import javascript unsafe "window[\"Uint16Array\"]" gTypeUint16Array :: GType - -newtype Uint32Array = Uint32Array { unUint32Array :: JSVal } - -instance Eq Uint32Array where - (Uint32Array a) == (Uint32Array b) = js_eq a b - -instance PToJSVal Uint32Array where - pToJSVal = unUint32Array - {-# INLINE pToJSVal #-} - -instance PFromJSVal Uint32Array where - pFromJSVal = Uint32Array - {-# INLINE pFromJSVal #-} - -instance ToJSVal Uint32Array where - toJSVal = return . unUint32Array - {-# INLINE toJSVal #-} - -instance FromJSVal Uint32Array where - fromJSVal = return . fmap Uint32Array . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -class IsGObject o => IsUint32Array o -toUint32Array :: IsUint32Array o => o -> Uint32Array -toUint32Array = unsafeCastGObject . toGObject - -instance IsUint32Array Uint32Array -instance IsGObject Uint32Array where - toGObject = GObject . unUint32Array - unsafeCastGObject = Uint32Array . unGObject --- TODO add more IsUint32Array instances - -castToUint32Array :: IsGObject obj => obj -> IO Uint32Array -castToUint32Array = castTo gTypeUint32Array "Uint32Array" - -foreign import javascript unsafe "window[\"Uint32Array\"]" gTypeUint32Array :: GType - -newtype Int8Array = Int8Array { unInt8Array :: JSVal } - -instance Eq Int8Array where - (Int8Array a) == (Int8Array b) = js_eq a b - -instance PToJSVal Int8Array where - pToJSVal = unInt8Array - {-# INLINE pToJSVal #-} - -instance PFromJSVal Int8Array where - pFromJSVal = Int8Array - {-# INLINE pFromJSVal #-} - -instance ToJSVal Int8Array where - toJSVal = return . unInt8Array - {-# INLINE toJSVal #-} - -instance FromJSVal Int8Array where - fromJSVal = return . fmap Int8Array . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -class IsGObject o => IsInt8Array o -toInt8Array :: IsInt8Array o => o -> Int8Array -toInt8Array = unsafeCastGObject . toGObject - -instance IsInt8Array Int8Array -instance IsGObject Int8Array where - toGObject = GObject . unInt8Array - unsafeCastGObject = Int8Array . unGObject --- TODO add more IsInt8Array instances - -castToInt8Array :: IsGObject obj => obj -> IO Int8Array -castToInt8Array = castTo gTypeInt8Array "Int8Array" - -foreign import javascript unsafe "window[\"Int8Array\"]" gTypeInt8Array :: GType - -newtype Int16Array = Int16Array { unInt16Array :: JSVal } - -instance Eq Int16Array where - (Int16Array a) == (Int16Array b) = js_eq a b - -instance PToJSVal Int16Array where - pToJSVal = unInt16Array - {-# INLINE pToJSVal #-} - -instance PFromJSVal Int16Array where - pFromJSVal = Int16Array - {-# INLINE pFromJSVal #-} - -instance ToJSVal Int16Array where - toJSVal = return . unInt16Array - {-# INLINE toJSVal #-} - -instance FromJSVal Int16Array where - fromJSVal = return . fmap Int16Array . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -class IsGObject o => IsInt16Array o -toInt16Array :: IsInt16Array o => o -> Int16Array -toInt16Array = unsafeCastGObject . toGObject - -instance IsInt16Array Int16Array -instance IsGObject Int16Array where - toGObject = GObject . unInt16Array - unsafeCastGObject = Int16Array . unGObject --- TODO add more IsInt16Array instances - -castToInt16Array :: IsGObject obj => obj -> IO Int16Array -castToInt16Array = castTo gTypeInt16Array "Int16Array" - -foreign import javascript unsafe "window[\"Int16Array\"]" gTypeInt16Array :: GType - -newtype Int32Array = Int32Array { unInt32Array :: JSVal } - -instance Eq Int32Array where - (Int32Array a) == (Int32Array b) = js_eq a b - -instance PToJSVal Int32Array where - pToJSVal = unInt32Array - {-# INLINE pToJSVal #-} - -instance PFromJSVal Int32Array where - pFromJSVal = Int32Array - {-# INLINE pFromJSVal #-} - -instance ToJSVal Int32Array where - toJSVal = return . unInt32Array - {-# INLINE toJSVal #-} - -instance FromJSVal Int32Array where - fromJSVal = return . fmap Int32Array . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -class IsGObject o => IsInt32Array o -toInt32Array :: IsInt32Array o => o -> Int32Array -toInt32Array = unsafeCastGObject . toGObject - -instance IsInt32Array Int32Array -instance IsGObject Int32Array where - toGObject = GObject . unInt32Array - unsafeCastGObject = Int32Array . unGObject --- TODO add more IsInt32Array instances - -castToInt32Array :: IsGObject obj => obj -> IO Int32Array -castToInt32Array = castTo gTypeInt32Array "Int32Array" - -foreign import javascript unsafe "window[\"Int32Array\"]" gTypeInt32Array :: GType - -newtype ObjectArray = ObjectArray { unObjectArray :: JSVal } - -instance Eq ObjectArray where - (ObjectArray a) == (ObjectArray b) = js_eq a b - -instance PToJSVal ObjectArray where - pToJSVal = unObjectArray - {-# INLINE pToJSVal #-} - -instance PFromJSVal ObjectArray where - pFromJSVal = ObjectArray - {-# INLINE pFromJSVal #-} - -instance ToJSVal ObjectArray where - toJSVal = return . unObjectArray - {-# INLINE toJSVal #-} - -instance FromJSVal ObjectArray where - fromJSVal = return . fmap ObjectArray . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -class IsGObject o => IsObjectArray o -toObjectArray :: IsObjectArray o => o -> ObjectArray -toObjectArray = unsafeCastGObject . toGObject - -instance IsObjectArray ObjectArray -instance IsGObject ObjectArray where - toGObject = GObject . unObjectArray - unsafeCastGObject = ObjectArray . unGObject --- TODO add more IsObjectArray instances - -newtype ArrayBufferView = ArrayBufferView { unArrayBufferView :: JSVal } - -instance Eq ArrayBufferView where - (ArrayBufferView a) == (ArrayBufferView b) = js_eq a b - -instance PToJSVal ArrayBufferView where - pToJSVal = unArrayBufferView - {-# INLINE pToJSVal #-} - -instance PFromJSVal ArrayBufferView where - pFromJSVal = ArrayBufferView - {-# INLINE pFromJSVal #-} - -instance ToJSVal ArrayBufferView where - toJSVal = return . unArrayBufferView - {-# INLINE toJSVal #-} - -instance FromJSVal ArrayBufferView where - fromJSVal = return . fmap ArrayBufferView . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -class IsGObject o => IsArrayBufferView o -toArrayBufferView :: IsArrayBufferView o => o -> ArrayBufferView -toArrayBufferView = unsafeCastGObject . toGObject - -instance IsArrayBufferView ArrayBufferView -instance IsGObject ArrayBufferView where - toGObject = GObject . unArrayBufferView - unsafeCastGObject = ArrayBufferView . unGObject --- TODO add more IsArrayBufferView instances - -newtype Array = Array { unArray :: JSVal } - -instance Eq Array where - (Array a) == (Array b) = js_eq a b - -instance PToJSVal Array where - pToJSVal = unArray - {-# INLINE pToJSVal #-} - -instance PFromJSVal Array where - pFromJSVal = Array - {-# INLINE pFromJSVal #-} - -instance ToJSVal Array where - toJSVal = return . unArray - {-# INLINE toJSVal #-} - -instance FromJSVal Array where - fromJSVal = return . fmap Array . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -class IsGObject o => IsArray o -toArray :: IsArray o => o -> Array -toArray = unsafeCastGObject . toGObject - -instance IsArray Array -instance IsGObject Array where - toGObject = GObject . unArray - unsafeCastGObject = Array . unGObject --- TODO add more IsArray instances - -castToArray :: IsGObject obj => obj -> IO Array -castToArray = castTo gTypeArray "Array" - -foreign import javascript unsafe "window[\"Array\"]" gTypeArray :: GType - -newtype Date = Date { unDate :: JSVal } - -instance Eq Date where - (Date a) == (Date b) = js_eq a b - -instance PToJSVal Date where - pToJSVal = unDate - {-# INLINE pToJSVal #-} - -instance PFromJSVal Date where - pFromJSVal = Date - {-# INLINE pFromJSVal #-} - -instance ToJSVal Date where - toJSVal = return . unDate - {-# INLINE toJSVal #-} - -instance FromJSVal Date where - fromJSVal = return . fmap Date . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -class IsGObject o => IsDate o -toDate :: IsDate o => o -> Date -toDate = unsafeCastGObject . toGObject - -instance IsDate Date -instance IsGObject Date where - toGObject = GObject . unDate - unsafeCastGObject = Date . unGObject --- TODO add more IsDate instances - -castToDate :: IsGObject obj => obj -> IO Date -castToDate = castTo gTypeDate "Date" - -foreign import javascript unsafe "window[\"Date\"]" gTypeDate :: GType - -newtype Acceleration = Acceleration { unAcceleration :: JSVal } - -instance Eq Acceleration where - (Acceleration a) == (Acceleration b) = js_eq a b - -instance PToJSVal Acceleration where - pToJSVal = unAcceleration - {-# INLINE pToJSVal #-} - -instance PFromJSVal Acceleration where - pFromJSVal = Acceleration - {-# INLINE pFromJSVal #-} - -instance ToJSVal Acceleration where - toJSVal = return . unAcceleration - {-# INLINE toJSVal #-} - -instance FromJSVal Acceleration where - fromJSVal = return . fmap Acceleration . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -class IsGObject o => IsAcceleration o -toAcceleration :: IsAcceleration o => o -> Acceleration -toAcceleration = unsafeCastGObject . toGObject - -instance IsAcceleration Acceleration -instance IsGObject Acceleration where - toGObject = GObject . unAcceleration - unsafeCastGObject = Acceleration . unGObject --- TODO add more IsAcceleration instances - -newtype RotationRate = RotationRate { unRotationRate :: JSVal } - -instance Eq RotationRate where - (RotationRate a) == (RotationRate b) = js_eq a b - -instance PToJSVal RotationRate where - pToJSVal = unRotationRate - {-# INLINE pToJSVal #-} - -instance PFromJSVal RotationRate where - pFromJSVal = RotationRate - {-# INLINE pFromJSVal #-} - -instance ToJSVal RotationRate where - toJSVal = return . unRotationRate - {-# INLINE toJSVal #-} - -instance FromJSVal RotationRate where - fromJSVal = return . fmap RotationRate . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -class IsGObject o => IsRotationRate o -toRotationRate :: IsRotationRate o => o -> RotationRate -toRotationRate = unsafeCastGObject . toGObject - -instance IsRotationRate RotationRate -instance IsGObject RotationRate where - toGObject = GObject . unRotationRate - unsafeCastGObject = RotationRate . unGObject --- TODO add more IsRotationRate instances - -newtype Algorithm = Algorithm { unAlgorithm :: JSVal } - -instance Eq Algorithm where - (Algorithm a) == (Algorithm b) = js_eq a b - -instance PToJSVal Algorithm where - pToJSVal = unAlgorithm - {-# INLINE pToJSVal #-} - -instance PFromJSVal Algorithm where - pFromJSVal = Algorithm - {-# INLINE pFromJSVal #-} - -instance ToJSVal Algorithm where - toJSVal = return . unAlgorithm - {-# INLINE toJSVal #-} - -instance FromJSVal Algorithm where - fromJSVal = return . fmap Algorithm . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -class IsGObject o => IsAlgorithm o -toAlgorithm :: IsAlgorithm o => o -> Algorithm -toAlgorithm = unsafeCastGObject . toGObject - -instance IsAlgorithm Algorithm -instance IsGObject Algorithm where - toGObject = GObject . unAlgorithm - unsafeCastGObject = Algorithm . unGObject --- TODO add more IsAlgorithm instances - -newtype CryptoOperationData = CryptoOperationData { unCryptoOperationData :: JSVal } - -instance Eq CryptoOperationData where - (CryptoOperationData a) == (CryptoOperationData b) = js_eq a b - -instance PToJSVal CryptoOperationData where - pToJSVal = unCryptoOperationData - {-# INLINE pToJSVal #-} - -instance PFromJSVal CryptoOperationData where - pFromJSVal = CryptoOperationData - {-# INLINE pFromJSVal #-} - -instance ToJSVal CryptoOperationData where - toJSVal = return . unCryptoOperationData - {-# INLINE toJSVal #-} - -instance FromJSVal CryptoOperationData where - fromJSVal = return . fmap CryptoOperationData . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -class IsGObject o => IsCryptoOperationData o -toCryptoOperationData :: IsCryptoOperationData o => o -> CryptoOperationData -toCryptoOperationData = unsafeCastGObject . toGObject - -instance IsCryptoOperationData CryptoOperationData -instance IsGObject CryptoOperationData where - toGObject = GObject . unCryptoOperationData - unsafeCastGObject = CryptoOperationData . unGObject -instance IsCryptoOperationData ArrayBuffer -instance IsCryptoOperationData ArrayBufferView - -newtype CanvasStyle = CanvasStyle { unCanvasStyle :: JSVal } - -instance Eq CanvasStyle where - (CanvasStyle a) == (CanvasStyle b) = js_eq a b - -instance PToJSVal CanvasStyle where - pToJSVal = unCanvasStyle - {-# INLINE pToJSVal #-} - -instance PFromJSVal CanvasStyle where - pFromJSVal = CanvasStyle - {-# INLINE pFromJSVal #-} - -instance ToJSVal CanvasStyle where - toJSVal = return . unCanvasStyle - {-# INLINE toJSVal #-} - -instance FromJSVal CanvasStyle where - fromJSVal = return . fmap CanvasStyle . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -class IsGObject o => IsCanvasStyle o -toCanvasStyle :: IsCanvasStyle o => o -> CanvasStyle -toCanvasStyle = unsafeCastGObject . toGObject - -instance IsCanvasStyle CanvasStyle -instance IsGObject CanvasStyle where - toGObject = GObject . unCanvasStyle - unsafeCastGObject = CanvasStyle . unGObject -instance IsCanvasStyle CanvasGradient -instance IsCanvasStyle CanvasPattern - -newtype DOMException = DOMException { unDOMException :: JSVal } - -instance Eq DOMException where - (DOMException a) == (DOMException b) = js_eq a b - -instance PToJSVal DOMException where - pToJSVal = unDOMException - {-# INLINE pToJSVal #-} - -instance PFromJSVal DOMException where - pFromJSVal = DOMException - {-# INLINE pFromJSVal #-} - -instance ToJSVal DOMException where - toJSVal = return . unDOMException - {-# INLINE toJSVal #-} - -instance FromJSVal DOMException where - fromJSVal = return . fmap DOMException . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -class IsGObject o => IsDOMException o -toDOMException :: IsDOMException o => o -> DOMException -toDOMException = unsafeCastGObject . toGObject - -instance IsDOMException DOMException -instance IsGObject DOMException where - toGObject = GObject . unDOMException - unsafeCastGObject = DOMException . unGObject - -type GLenum = Word32 -type GLboolean = Bool -type GLbitfield = Word32 -type GLbyte = Int8 -type GLshort = Int16 -type GLint = Int32 -type GLint64 = Int64 -type GLsizei = Int32 -type GLintptr = Int64 -type GLsizeiptr = Int64 -type GLubyte = Word8 -type GLushort = Word16 -type GLuint = Word32 -type GLuint64 = Word64 -type GLfloat = Double -type GLclampf = Double - --- AUTO GENERATION STARTS HERE --- The remainder of this file is generated from IDL files using domconv-webkit-jsffi --- | Functions for this inteface are in "GHCJS.DOM.ANGLEInstancedArrays". --- --- -newtype ANGLEInstancedArrays = ANGLEInstancedArrays { unANGLEInstancedArrays :: JSVal } - -instance Eq (ANGLEInstancedArrays) where - (ANGLEInstancedArrays a) == (ANGLEInstancedArrays b) = js_eq a b - -instance PToJSVal ANGLEInstancedArrays where - pToJSVal = unANGLEInstancedArrays - {-# INLINE pToJSVal #-} - -instance PFromJSVal ANGLEInstancedArrays where - pFromJSVal = ANGLEInstancedArrays - {-# INLINE pFromJSVal #-} - -instance ToJSVal ANGLEInstancedArrays where - toJSVal = return . unANGLEInstancedArrays - {-# INLINE toJSVal #-} - -instance FromJSVal ANGLEInstancedArrays where - fromJSVal = return . fmap ANGLEInstancedArrays . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsGObject ANGLEInstancedArrays where - toGObject = GObject . unANGLEInstancedArrays - {-# INLINE toGObject #-} - unsafeCastGObject = ANGLEInstancedArrays . unGObject - {-# INLINE unsafeCastGObject #-} - -castToANGLEInstancedArrays :: IsGObject obj => obj -> IO ANGLEInstancedArrays -castToANGLEInstancedArrays = castTo gTypeANGLEInstancedArrays "ANGLEInstancedArrays" - -foreign import javascript unsafe "window[\"ANGLEInstancedArrays\"]" gTypeANGLEInstancedArrays :: GType - --- | Functions for this inteface are in "GHCJS.DOM.AbstractView". --- --- -newtype AbstractView = AbstractView { unAbstractView :: JSVal } - -instance Eq (AbstractView) where - (AbstractView a) == (AbstractView b) = js_eq a b - -instance PToJSVal AbstractView where - pToJSVal = unAbstractView - {-# INLINE pToJSVal #-} - -instance PFromJSVal AbstractView where - pFromJSVal = AbstractView - {-# INLINE pFromJSVal #-} - -instance ToJSVal AbstractView where - toJSVal = return . unAbstractView - {-# INLINE toJSVal #-} - -instance FromJSVal AbstractView where - fromJSVal = return . fmap AbstractView . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsGObject AbstractView where - toGObject = GObject . unAbstractView - {-# INLINE toGObject #-} - unsafeCastGObject = AbstractView . unGObject - {-# INLINE unsafeCastGObject #-} - -castToAbstractView :: IsGObject obj => obj -> IO AbstractView -castToAbstractView = castTo gTypeAbstractView "AbstractView" - -foreign import javascript unsafe "window[\"AbstractView\"]" gTypeAbstractView :: GType - --- | Functions for this inteface are in "GHCJS.DOM.AbstractWorker". --- --- -newtype AbstractWorker = AbstractWorker { unAbstractWorker :: JSVal } - -instance Eq (AbstractWorker) where - (AbstractWorker a) == (AbstractWorker b) = js_eq a b - -instance PToJSVal AbstractWorker where - pToJSVal = unAbstractWorker - {-# INLINE pToJSVal #-} - -instance PFromJSVal AbstractWorker where - pFromJSVal = AbstractWorker - {-# INLINE pFromJSVal #-} - -instance ToJSVal AbstractWorker where - toJSVal = return . unAbstractWorker - {-# INLINE toJSVal #-} - -instance FromJSVal AbstractWorker where - fromJSVal = return . fmap AbstractWorker . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsGObject AbstractWorker where - toGObject = GObject . unAbstractWorker - {-# INLINE toGObject #-} - unsafeCastGObject = AbstractWorker . unGObject - {-# INLINE unsafeCastGObject #-} - -castToAbstractWorker :: IsGObject obj => obj -> IO AbstractWorker -castToAbstractWorker = castTo gTypeAbstractWorker "AbstractWorker" - -foreign import javascript unsafe "window[\"AbstractWorker\"]" gTypeAbstractWorker :: GType - --- | Functions for this inteface are in "GHCJS.DOM.AllAudioCapabilities". --- Base interface functions are in: --- --- * "GHCJS.DOM.MediaStreamCapabilities" --- --- -newtype AllAudioCapabilities = AllAudioCapabilities { unAllAudioCapabilities :: JSVal } - -instance Eq (AllAudioCapabilities) where - (AllAudioCapabilities a) == (AllAudioCapabilities b) = js_eq a b - -instance PToJSVal AllAudioCapabilities where - pToJSVal = unAllAudioCapabilities - {-# INLINE pToJSVal #-} - -instance PFromJSVal AllAudioCapabilities where - pFromJSVal = AllAudioCapabilities - {-# INLINE pFromJSVal #-} - -instance ToJSVal AllAudioCapabilities where - toJSVal = return . unAllAudioCapabilities - {-# INLINE toJSVal #-} - -instance FromJSVal AllAudioCapabilities where - fromJSVal = return . fmap AllAudioCapabilities . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsMediaStreamCapabilities AllAudioCapabilities -instance IsGObject AllAudioCapabilities where - toGObject = GObject . unAllAudioCapabilities - {-# INLINE toGObject #-} - unsafeCastGObject = AllAudioCapabilities . unGObject - {-# INLINE unsafeCastGObject #-} - -castToAllAudioCapabilities :: IsGObject obj => obj -> IO AllAudioCapabilities -castToAllAudioCapabilities = castTo gTypeAllAudioCapabilities "AllAudioCapabilities" - -foreign import javascript unsafe "window[\"AllAudioCapabilities\"]" gTypeAllAudioCapabilities :: GType - --- | Functions for this inteface are in "GHCJS.DOM.AllVideoCapabilities". --- Base interface functions are in: --- --- * "GHCJS.DOM.MediaStreamCapabilities" --- --- -newtype AllVideoCapabilities = AllVideoCapabilities { unAllVideoCapabilities :: JSVal } - -instance Eq (AllVideoCapabilities) where - (AllVideoCapabilities a) == (AllVideoCapabilities b) = js_eq a b - -instance PToJSVal AllVideoCapabilities where - pToJSVal = unAllVideoCapabilities - {-# INLINE pToJSVal #-} - -instance PFromJSVal AllVideoCapabilities where - pFromJSVal = AllVideoCapabilities - {-# INLINE pFromJSVal #-} - -instance ToJSVal AllVideoCapabilities where - toJSVal = return . unAllVideoCapabilities - {-# INLINE toJSVal #-} - -instance FromJSVal AllVideoCapabilities where - fromJSVal = return . fmap AllVideoCapabilities . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsMediaStreamCapabilities AllVideoCapabilities -instance IsGObject AllVideoCapabilities where - toGObject = GObject . unAllVideoCapabilities - {-# INLINE toGObject #-} - unsafeCastGObject = AllVideoCapabilities . unGObject - {-# INLINE unsafeCastGObject #-} - -castToAllVideoCapabilities :: IsGObject obj => obj -> IO AllVideoCapabilities -castToAllVideoCapabilities = castTo gTypeAllVideoCapabilities "AllVideoCapabilities" - -foreign import javascript unsafe "window[\"AllVideoCapabilities\"]" gTypeAllVideoCapabilities :: GType - --- | Functions for this inteface are in "GHCJS.DOM.AnalyserNode". --- Base interface functions are in: --- --- * "GHCJS.DOM.AudioNode" --- * "GHCJS.DOM.EventTarget" --- --- -newtype AnalyserNode = AnalyserNode { unAnalyserNode :: JSVal } - -instance Eq (AnalyserNode) where - (AnalyserNode a) == (AnalyserNode b) = js_eq a b - -instance PToJSVal AnalyserNode where - pToJSVal = unAnalyserNode - {-# INLINE pToJSVal #-} - -instance PFromJSVal AnalyserNode where - pFromJSVal = AnalyserNode - {-# INLINE pFromJSVal #-} - -instance ToJSVal AnalyserNode where - toJSVal = return . unAnalyserNode - {-# INLINE toJSVal #-} - -instance FromJSVal AnalyserNode where - fromJSVal = return . fmap AnalyserNode . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsAudioNode AnalyserNode -instance IsEventTarget AnalyserNode -instance IsGObject AnalyserNode where - toGObject = GObject . unAnalyserNode - {-# INLINE toGObject #-} - unsafeCastGObject = AnalyserNode . unGObject - {-# INLINE unsafeCastGObject #-} - -castToAnalyserNode :: IsGObject obj => obj -> IO AnalyserNode -castToAnalyserNode = castTo gTypeAnalyserNode "AnalyserNode" - -foreign import javascript unsafe "window[\"AnalyserNode\"]" gTypeAnalyserNode :: GType - --- | Functions for this inteface are in "GHCJS.DOM.AnimationEvent". --- Base interface functions are in: --- --- * "GHCJS.DOM.Event" --- --- -newtype AnimationEvent = AnimationEvent { unAnimationEvent :: JSVal } - -instance Eq (AnimationEvent) where - (AnimationEvent a) == (AnimationEvent b) = js_eq a b - -instance PToJSVal AnimationEvent where - pToJSVal = unAnimationEvent - {-# INLINE pToJSVal #-} - -instance PFromJSVal AnimationEvent where - pFromJSVal = AnimationEvent - {-# INLINE pFromJSVal #-} - -instance ToJSVal AnimationEvent where - toJSVal = return . unAnimationEvent - {-# INLINE toJSVal #-} - -instance FromJSVal AnimationEvent where - fromJSVal = return . fmap AnimationEvent . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsEvent AnimationEvent -instance IsGObject AnimationEvent where - toGObject = GObject . unAnimationEvent - {-# INLINE toGObject #-} - unsafeCastGObject = AnimationEvent . unGObject - {-# INLINE unsafeCastGObject #-} - -castToAnimationEvent :: IsGObject obj => obj -> IO AnimationEvent -castToAnimationEvent = castTo gTypeAnimationEvent "AnimationEvent" - -foreign import javascript unsafe "window[\"AnimationEvent\"]" gTypeAnimationEvent :: GType - --- | Functions for this inteface are in "GHCJS.DOM.ApplicationCache". --- Base interface functions are in: --- --- * "GHCJS.DOM.EventTarget" --- --- -newtype ApplicationCache = ApplicationCache { unApplicationCache :: JSVal } - -instance Eq (ApplicationCache) where - (ApplicationCache a) == (ApplicationCache b) = js_eq a b - -instance PToJSVal ApplicationCache where - pToJSVal = unApplicationCache - {-# INLINE pToJSVal #-} - -instance PFromJSVal ApplicationCache where - pFromJSVal = ApplicationCache - {-# INLINE pFromJSVal #-} - -instance ToJSVal ApplicationCache where - toJSVal = return . unApplicationCache - {-# INLINE toJSVal #-} - -instance FromJSVal ApplicationCache where - fromJSVal = return . fmap ApplicationCache . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsEventTarget ApplicationCache -instance IsGObject ApplicationCache where - toGObject = GObject . unApplicationCache - {-# INLINE toGObject #-} - unsafeCastGObject = ApplicationCache . unGObject - {-# INLINE unsafeCastGObject #-} - -castToApplicationCache :: IsGObject obj => obj -> IO ApplicationCache -castToApplicationCache = castTo gTypeApplicationCache "ApplicationCache" - -foreign import javascript unsafe "window[\"ApplicationCache\"]" gTypeApplicationCache :: GType - --- | Functions for this inteface are in "GHCJS.DOM.Attr". --- Base interface functions are in: --- --- * "GHCJS.DOM.Node" --- * "GHCJS.DOM.EventTarget" --- --- -newtype Attr = Attr { unAttr :: JSVal } - -instance Eq (Attr) where - (Attr a) == (Attr b) = js_eq a b - -instance PToJSVal Attr where - pToJSVal = unAttr - {-# INLINE pToJSVal #-} - -instance PFromJSVal Attr where - pFromJSVal = Attr - {-# INLINE pFromJSVal #-} - -instance ToJSVal Attr where - toJSVal = return . unAttr - {-# INLINE toJSVal #-} - -instance FromJSVal Attr where - fromJSVal = return . fmap Attr . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsNode Attr -instance IsEventTarget Attr -instance IsGObject Attr where - toGObject = GObject . unAttr - {-# INLINE toGObject #-} - unsafeCastGObject = Attr . unGObject - {-# INLINE unsafeCastGObject #-} - -castToAttr :: IsGObject obj => obj -> IO Attr -castToAttr = castTo gTypeAttr "Attr" - -foreign import javascript unsafe "window[\"Attr\"]" gTypeAttr :: GType - --- | Functions for this inteface are in "GHCJS.DOM.AudioBuffer". --- --- -newtype AudioBuffer = AudioBuffer { unAudioBuffer :: JSVal } - -instance Eq (AudioBuffer) where - (AudioBuffer a) == (AudioBuffer b) = js_eq a b - -instance PToJSVal AudioBuffer where - pToJSVal = unAudioBuffer - {-# INLINE pToJSVal #-} - -instance PFromJSVal AudioBuffer where - pFromJSVal = AudioBuffer - {-# INLINE pFromJSVal #-} - -instance ToJSVal AudioBuffer where - toJSVal = return . unAudioBuffer - {-# INLINE toJSVal #-} - -instance FromJSVal AudioBuffer where - fromJSVal = return . fmap AudioBuffer . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsGObject AudioBuffer where - toGObject = GObject . unAudioBuffer - {-# INLINE toGObject #-} - unsafeCastGObject = AudioBuffer . unGObject - {-# INLINE unsafeCastGObject #-} - -castToAudioBuffer :: IsGObject obj => obj -> IO AudioBuffer -castToAudioBuffer = castTo gTypeAudioBuffer "AudioBuffer" - -foreign import javascript unsafe "window[\"AudioBuffer\"]" gTypeAudioBuffer :: GType - --- | Functions for this inteface are in "GHCJS.DOM.AudioBufferSourceNode". --- Base interface functions are in: --- --- * "GHCJS.DOM.AudioNode" --- * "GHCJS.DOM.EventTarget" --- --- -newtype AudioBufferSourceNode = AudioBufferSourceNode { unAudioBufferSourceNode :: JSVal } - -instance Eq (AudioBufferSourceNode) where - (AudioBufferSourceNode a) == (AudioBufferSourceNode b) = js_eq a b - -instance PToJSVal AudioBufferSourceNode where - pToJSVal = unAudioBufferSourceNode - {-# INLINE pToJSVal #-} - -instance PFromJSVal AudioBufferSourceNode where - pFromJSVal = AudioBufferSourceNode - {-# INLINE pFromJSVal #-} - -instance ToJSVal AudioBufferSourceNode where - toJSVal = return . unAudioBufferSourceNode - {-# INLINE toJSVal #-} - -instance FromJSVal AudioBufferSourceNode where - fromJSVal = return . fmap AudioBufferSourceNode . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsAudioNode AudioBufferSourceNode -instance IsEventTarget AudioBufferSourceNode -instance IsGObject AudioBufferSourceNode where - toGObject = GObject . unAudioBufferSourceNode - {-# INLINE toGObject #-} - unsafeCastGObject = AudioBufferSourceNode . unGObject - {-# INLINE unsafeCastGObject #-} - -castToAudioBufferSourceNode :: IsGObject obj => obj -> IO AudioBufferSourceNode -castToAudioBufferSourceNode = castTo gTypeAudioBufferSourceNode "AudioBufferSourceNode" - -foreign import javascript unsafe "window[\"AudioBufferSourceNode\"]" gTypeAudioBufferSourceNode :: GType - --- | Functions for this inteface are in "GHCJS.DOM.AudioContext". --- Base interface functions are in: --- --- * "GHCJS.DOM.EventTarget" --- --- -newtype AudioContext = AudioContext { unAudioContext :: JSVal } - -instance Eq (AudioContext) where - (AudioContext a) == (AudioContext b) = js_eq a b - -instance PToJSVal AudioContext where - pToJSVal = unAudioContext - {-# INLINE pToJSVal #-} - -instance PFromJSVal AudioContext where - pFromJSVal = AudioContext - {-# INLINE pFromJSVal #-} - -instance ToJSVal AudioContext where - toJSVal = return . unAudioContext - {-# INLINE toJSVal #-} - -instance FromJSVal AudioContext where - fromJSVal = return . fmap AudioContext . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -class IsEventTarget o => IsAudioContext o -toAudioContext :: IsAudioContext o => o -> AudioContext -toAudioContext = unsafeCastGObject . toGObject - -instance IsAudioContext AudioContext -instance IsEventTarget AudioContext -instance IsGObject AudioContext where - toGObject = GObject . unAudioContext - {-# INLINE toGObject #-} - unsafeCastGObject = AudioContext . unGObject - {-# INLINE unsafeCastGObject #-} - -castToAudioContext :: IsGObject obj => obj -> IO AudioContext -castToAudioContext = castTo gTypeAudioContext "AudioContext" - -foreign import javascript unsafe "window[\"AudioContext\"]" gTypeAudioContext :: GType - --- | Functions for this inteface are in "GHCJS.DOM.AudioDestinationNode". --- Base interface functions are in: --- --- * "GHCJS.DOM.AudioNode" --- * "GHCJS.DOM.EventTarget" --- --- -newtype AudioDestinationNode = AudioDestinationNode { unAudioDestinationNode :: JSVal } - -instance Eq (AudioDestinationNode) where - (AudioDestinationNode a) == (AudioDestinationNode b) = js_eq a b - -instance PToJSVal AudioDestinationNode where - pToJSVal = unAudioDestinationNode - {-# INLINE pToJSVal #-} - -instance PFromJSVal AudioDestinationNode where - pFromJSVal = AudioDestinationNode - {-# INLINE pFromJSVal #-} - -instance ToJSVal AudioDestinationNode where - toJSVal = return . unAudioDestinationNode - {-# INLINE toJSVal #-} - -instance FromJSVal AudioDestinationNode where - fromJSVal = return . fmap AudioDestinationNode . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsAudioNode AudioDestinationNode -instance IsEventTarget AudioDestinationNode -instance IsGObject AudioDestinationNode where - toGObject = GObject . unAudioDestinationNode - {-# INLINE toGObject #-} - unsafeCastGObject = AudioDestinationNode . unGObject - {-# INLINE unsafeCastGObject #-} - -castToAudioDestinationNode :: IsGObject obj => obj -> IO AudioDestinationNode -castToAudioDestinationNode = castTo gTypeAudioDestinationNode "AudioDestinationNode" - -foreign import javascript unsafe "window[\"AudioDestinationNode\"]" gTypeAudioDestinationNode :: GType - --- | Functions for this inteface are in "GHCJS.DOM.AudioListener". --- --- -newtype AudioListener = AudioListener { unAudioListener :: JSVal } - -instance Eq (AudioListener) where - (AudioListener a) == (AudioListener b) = js_eq a b - -instance PToJSVal AudioListener where - pToJSVal = unAudioListener - {-# INLINE pToJSVal #-} - -instance PFromJSVal AudioListener where - pFromJSVal = AudioListener - {-# INLINE pFromJSVal #-} - -instance ToJSVal AudioListener where - toJSVal = return . unAudioListener - {-# INLINE toJSVal #-} - -instance FromJSVal AudioListener where - fromJSVal = return . fmap AudioListener . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsGObject AudioListener where - toGObject = GObject . unAudioListener - {-# INLINE toGObject #-} - unsafeCastGObject = AudioListener . unGObject - {-# INLINE unsafeCastGObject #-} - -castToAudioListener :: IsGObject obj => obj -> IO AudioListener -castToAudioListener = castTo gTypeAudioListener "AudioListener" - -foreign import javascript unsafe "window[\"AudioListener\"]" gTypeAudioListener :: GType - --- | Functions for this inteface are in "GHCJS.DOM.AudioNode". --- Base interface functions are in: --- --- * "GHCJS.DOM.EventTarget" --- --- -newtype AudioNode = AudioNode { unAudioNode :: JSVal } - -instance Eq (AudioNode) where - (AudioNode a) == (AudioNode b) = js_eq a b - -instance PToJSVal AudioNode where - pToJSVal = unAudioNode - {-# INLINE pToJSVal #-} - -instance PFromJSVal AudioNode where - pFromJSVal = AudioNode - {-# INLINE pFromJSVal #-} - -instance ToJSVal AudioNode where - toJSVal = return . unAudioNode - {-# INLINE toJSVal #-} - -instance FromJSVal AudioNode where - fromJSVal = return . fmap AudioNode . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -class IsEventTarget o => IsAudioNode o -toAudioNode :: IsAudioNode o => o -> AudioNode -toAudioNode = unsafeCastGObject . toGObject - -instance IsAudioNode AudioNode -instance IsEventTarget AudioNode -instance IsGObject AudioNode where - toGObject = GObject . unAudioNode - {-# INLINE toGObject #-} - unsafeCastGObject = AudioNode . unGObject - {-# INLINE unsafeCastGObject #-} - -castToAudioNode :: IsGObject obj => obj -> IO AudioNode -castToAudioNode = castTo gTypeAudioNode "AudioNode" - -foreign import javascript unsafe "window[\"AudioNode\"]" gTypeAudioNode :: GType - --- | Functions for this inteface are in "GHCJS.DOM.AudioParam". --- --- -newtype AudioParam = AudioParam { unAudioParam :: JSVal } - -instance Eq (AudioParam) where - (AudioParam a) == (AudioParam b) = js_eq a b - -instance PToJSVal AudioParam where - pToJSVal = unAudioParam - {-# INLINE pToJSVal #-} - -instance PFromJSVal AudioParam where - pFromJSVal = AudioParam - {-# INLINE pFromJSVal #-} - -instance ToJSVal AudioParam where - toJSVal = return . unAudioParam - {-# INLINE toJSVal #-} - -instance FromJSVal AudioParam where - fromJSVal = return . fmap AudioParam . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsGObject AudioParam where - toGObject = GObject . unAudioParam - {-# INLINE toGObject #-} - unsafeCastGObject = AudioParam . unGObject - {-# INLINE unsafeCastGObject #-} - -castToAudioParam :: IsGObject obj => obj -> IO AudioParam -castToAudioParam = castTo gTypeAudioParam "AudioParam" - -foreign import javascript unsafe "window[\"AudioParam\"]" gTypeAudioParam :: GType - --- | Functions for this inteface are in "GHCJS.DOM.AudioProcessingEvent". --- Base interface functions are in: --- --- * "GHCJS.DOM.Event" --- --- -newtype AudioProcessingEvent = AudioProcessingEvent { unAudioProcessingEvent :: JSVal } - -instance Eq (AudioProcessingEvent) where - (AudioProcessingEvent a) == (AudioProcessingEvent b) = js_eq a b - -instance PToJSVal AudioProcessingEvent where - pToJSVal = unAudioProcessingEvent - {-# INLINE pToJSVal #-} - -instance PFromJSVal AudioProcessingEvent where - pFromJSVal = AudioProcessingEvent - {-# INLINE pFromJSVal #-} - -instance ToJSVal AudioProcessingEvent where - toJSVal = return . unAudioProcessingEvent - {-# INLINE toJSVal #-} - -instance FromJSVal AudioProcessingEvent where - fromJSVal = return . fmap AudioProcessingEvent . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsEvent AudioProcessingEvent -instance IsGObject AudioProcessingEvent where - toGObject = GObject . unAudioProcessingEvent - {-# INLINE toGObject #-} - unsafeCastGObject = AudioProcessingEvent . unGObject - {-# INLINE unsafeCastGObject #-} - -castToAudioProcessingEvent :: IsGObject obj => obj -> IO AudioProcessingEvent -castToAudioProcessingEvent = castTo gTypeAudioProcessingEvent "AudioProcessingEvent" - -foreign import javascript unsafe "window[\"AudioProcessingEvent\"]" gTypeAudioProcessingEvent :: GType - --- | Functions for this inteface are in "GHCJS.DOM.AudioStreamTrack". --- Base interface functions are in: --- --- * "GHCJS.DOM.MediaStreamTrack" --- * "GHCJS.DOM.EventTarget" --- --- -newtype AudioStreamTrack = AudioStreamTrack { unAudioStreamTrack :: JSVal } - -instance Eq (AudioStreamTrack) where - (AudioStreamTrack a) == (AudioStreamTrack b) = js_eq a b - -instance PToJSVal AudioStreamTrack where - pToJSVal = unAudioStreamTrack - {-# INLINE pToJSVal #-} - -instance PFromJSVal AudioStreamTrack where - pFromJSVal = AudioStreamTrack - {-# INLINE pFromJSVal #-} - -instance ToJSVal AudioStreamTrack where - toJSVal = return . unAudioStreamTrack - {-# INLINE toJSVal #-} - -instance FromJSVal AudioStreamTrack where - fromJSVal = return . fmap AudioStreamTrack . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsMediaStreamTrack AudioStreamTrack -instance IsEventTarget AudioStreamTrack -instance IsGObject AudioStreamTrack where - toGObject = GObject . unAudioStreamTrack - {-# INLINE toGObject #-} - unsafeCastGObject = AudioStreamTrack . unGObject - {-# INLINE unsafeCastGObject #-} - -castToAudioStreamTrack :: IsGObject obj => obj -> IO AudioStreamTrack -castToAudioStreamTrack = castTo gTypeAudioStreamTrack "AudioStreamTrack" - -foreign import javascript unsafe "window[\"AudioStreamTrack\"]" gTypeAudioStreamTrack :: GType - --- | Functions for this inteface are in "GHCJS.DOM.AudioTrack". --- --- -newtype AudioTrack = AudioTrack { unAudioTrack :: JSVal } - -instance Eq (AudioTrack) where - (AudioTrack a) == (AudioTrack b) = js_eq a b - -instance PToJSVal AudioTrack where - pToJSVal = unAudioTrack - {-# INLINE pToJSVal #-} - -instance PFromJSVal AudioTrack where - pFromJSVal = AudioTrack - {-# INLINE pFromJSVal #-} - -instance ToJSVal AudioTrack where - toJSVal = return . unAudioTrack - {-# INLINE toJSVal #-} - -instance FromJSVal AudioTrack where - fromJSVal = return . fmap AudioTrack . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsGObject AudioTrack where - toGObject = GObject . unAudioTrack - {-# INLINE toGObject #-} - unsafeCastGObject = AudioTrack . unGObject - {-# INLINE unsafeCastGObject #-} - -castToAudioTrack :: IsGObject obj => obj -> IO AudioTrack -castToAudioTrack = castTo gTypeAudioTrack "AudioTrack" - -foreign import javascript unsafe "window[\"AudioTrack\"]" gTypeAudioTrack :: GType - --- | Functions for this inteface are in "GHCJS.DOM.AudioTrackList". --- Base interface functions are in: --- --- * "GHCJS.DOM.EventTarget" --- --- -newtype AudioTrackList = AudioTrackList { unAudioTrackList :: JSVal } - -instance Eq (AudioTrackList) where - (AudioTrackList a) == (AudioTrackList b) = js_eq a b - -instance PToJSVal AudioTrackList where - pToJSVal = unAudioTrackList - {-# INLINE pToJSVal #-} - -instance PFromJSVal AudioTrackList where - pFromJSVal = AudioTrackList - {-# INLINE pFromJSVal #-} - -instance ToJSVal AudioTrackList where - toJSVal = return . unAudioTrackList - {-# INLINE toJSVal #-} - -instance FromJSVal AudioTrackList where - fromJSVal = return . fmap AudioTrackList . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsEventTarget AudioTrackList -instance IsGObject AudioTrackList where - toGObject = GObject . unAudioTrackList - {-# INLINE toGObject #-} - unsafeCastGObject = AudioTrackList . unGObject - {-# INLINE unsafeCastGObject #-} - -castToAudioTrackList :: IsGObject obj => obj -> IO AudioTrackList -castToAudioTrackList = castTo gTypeAudioTrackList "AudioTrackList" - -foreign import javascript unsafe "window[\"AudioTrackList\"]" gTypeAudioTrackList :: GType - --- | Functions for this inteface are in "GHCJS.DOM.AutocompleteErrorEvent". --- Base interface functions are in: --- --- * "GHCJS.DOM.Event" --- --- -newtype AutocompleteErrorEvent = AutocompleteErrorEvent { unAutocompleteErrorEvent :: JSVal } - -instance Eq (AutocompleteErrorEvent) where - (AutocompleteErrorEvent a) == (AutocompleteErrorEvent b) = js_eq a b - -instance PToJSVal AutocompleteErrorEvent where - pToJSVal = unAutocompleteErrorEvent - {-# INLINE pToJSVal #-} - -instance PFromJSVal AutocompleteErrorEvent where - pFromJSVal = AutocompleteErrorEvent - {-# INLINE pFromJSVal #-} - -instance ToJSVal AutocompleteErrorEvent where - toJSVal = return . unAutocompleteErrorEvent - {-# INLINE toJSVal #-} - -instance FromJSVal AutocompleteErrorEvent where - fromJSVal = return . fmap AutocompleteErrorEvent . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsEvent AutocompleteErrorEvent -instance IsGObject AutocompleteErrorEvent where - toGObject = GObject . unAutocompleteErrorEvent - {-# INLINE toGObject #-} - unsafeCastGObject = AutocompleteErrorEvent . unGObject - {-# INLINE unsafeCastGObject #-} - -castToAutocompleteErrorEvent :: IsGObject obj => obj -> IO AutocompleteErrorEvent -castToAutocompleteErrorEvent = castTo gTypeAutocompleteErrorEvent "AutocompleteErrorEvent" - -foreign import javascript unsafe "window[\"AutocompleteErrorEvent\"]" gTypeAutocompleteErrorEvent :: GType - --- | Functions for this inteface are in "GHCJS.DOM.BarProp". --- --- -newtype BarProp = BarProp { unBarProp :: JSVal } - -instance Eq (BarProp) where - (BarProp a) == (BarProp b) = js_eq a b - -instance PToJSVal BarProp where - pToJSVal = unBarProp - {-# INLINE pToJSVal #-} - -instance PFromJSVal BarProp where - pFromJSVal = BarProp - {-# INLINE pFromJSVal #-} - -instance ToJSVal BarProp where - toJSVal = return . unBarProp - {-# INLINE toJSVal #-} - -instance FromJSVal BarProp where - fromJSVal = return . fmap BarProp . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsGObject BarProp where - toGObject = GObject . unBarProp - {-# INLINE toGObject #-} - unsafeCastGObject = BarProp . unGObject - {-# INLINE unsafeCastGObject #-} - -castToBarProp :: IsGObject obj => obj -> IO BarProp -castToBarProp = castTo gTypeBarProp "BarProp" - -foreign import javascript unsafe "window[\"BarProp\"]" gTypeBarProp :: GType - --- | Functions for this inteface are in "GHCJS.DOM.BatteryManager". --- Base interface functions are in: --- --- * "GHCJS.DOM.EventTarget" --- --- -newtype BatteryManager = BatteryManager { unBatteryManager :: JSVal } - -instance Eq (BatteryManager) where - (BatteryManager a) == (BatteryManager b) = js_eq a b - -instance PToJSVal BatteryManager where - pToJSVal = unBatteryManager - {-# INLINE pToJSVal #-} - -instance PFromJSVal BatteryManager where - pFromJSVal = BatteryManager - {-# INLINE pFromJSVal #-} - -instance ToJSVal BatteryManager where - toJSVal = return . unBatteryManager - {-# INLINE toJSVal #-} - -instance FromJSVal BatteryManager where - fromJSVal = return . fmap BatteryManager . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsEventTarget BatteryManager -instance IsGObject BatteryManager where - toGObject = GObject . unBatteryManager - {-# INLINE toGObject #-} - unsafeCastGObject = BatteryManager . unGObject - {-# INLINE unsafeCastGObject #-} - -castToBatteryManager :: IsGObject obj => obj -> IO BatteryManager -castToBatteryManager = castTo gTypeBatteryManager "BatteryManager" - -foreign import javascript unsafe "window[\"BatteryManager\"]" gTypeBatteryManager :: GType - --- | Functions for this inteface are in "GHCJS.DOM.BeforeLoadEvent". --- Base interface functions are in: --- --- * "GHCJS.DOM.Event" --- --- -newtype BeforeLoadEvent = BeforeLoadEvent { unBeforeLoadEvent :: JSVal } - -instance Eq (BeforeLoadEvent) where - (BeforeLoadEvent a) == (BeforeLoadEvent b) = js_eq a b - -instance PToJSVal BeforeLoadEvent where - pToJSVal = unBeforeLoadEvent - {-# INLINE pToJSVal #-} - -instance PFromJSVal BeforeLoadEvent where - pFromJSVal = BeforeLoadEvent - {-# INLINE pFromJSVal #-} - -instance ToJSVal BeforeLoadEvent where - toJSVal = return . unBeforeLoadEvent - {-# INLINE toJSVal #-} - -instance FromJSVal BeforeLoadEvent where - fromJSVal = return . fmap BeforeLoadEvent . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsEvent BeforeLoadEvent -instance IsGObject BeforeLoadEvent where - toGObject = GObject . unBeforeLoadEvent - {-# INLINE toGObject #-} - unsafeCastGObject = BeforeLoadEvent . unGObject - {-# INLINE unsafeCastGObject #-} - -castToBeforeLoadEvent :: IsGObject obj => obj -> IO BeforeLoadEvent -castToBeforeLoadEvent = castTo gTypeBeforeLoadEvent "BeforeLoadEvent" - -foreign import javascript unsafe "window[\"BeforeLoadEvent\"]" gTypeBeforeLoadEvent :: GType - --- | Functions for this inteface are in "GHCJS.DOM.BeforeUnloadEvent". --- Base interface functions are in: --- --- * "GHCJS.DOM.Event" --- --- -newtype BeforeUnloadEvent = BeforeUnloadEvent { unBeforeUnloadEvent :: JSVal } - -instance Eq (BeforeUnloadEvent) where - (BeforeUnloadEvent a) == (BeforeUnloadEvent b) = js_eq a b - -instance PToJSVal BeforeUnloadEvent where - pToJSVal = unBeforeUnloadEvent - {-# INLINE pToJSVal #-} - -instance PFromJSVal BeforeUnloadEvent where - pFromJSVal = BeforeUnloadEvent - {-# INLINE pFromJSVal #-} - -instance ToJSVal BeforeUnloadEvent where - toJSVal = return . unBeforeUnloadEvent - {-# INLINE toJSVal #-} - -instance FromJSVal BeforeUnloadEvent where - fromJSVal = return . fmap BeforeUnloadEvent . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsEvent BeforeUnloadEvent -instance IsGObject BeforeUnloadEvent where - toGObject = GObject . unBeforeUnloadEvent - {-# INLINE toGObject #-} - unsafeCastGObject = BeforeUnloadEvent . unGObject - {-# INLINE unsafeCastGObject #-} - -castToBeforeUnloadEvent :: IsGObject obj => obj -> IO BeforeUnloadEvent -castToBeforeUnloadEvent = castTo gTypeBeforeUnloadEvent "BeforeUnloadEvent" - -foreign import javascript unsafe "window[\"BeforeUnloadEvent\"]" gTypeBeforeUnloadEvent :: GType - --- | Functions for this inteface are in "GHCJS.DOM.BiquadFilterNode". --- Base interface functions are in: --- --- * "GHCJS.DOM.AudioNode" --- * "GHCJS.DOM.EventTarget" --- --- -newtype BiquadFilterNode = BiquadFilterNode { unBiquadFilterNode :: JSVal } - -instance Eq (BiquadFilterNode) where - (BiquadFilterNode a) == (BiquadFilterNode b) = js_eq a b - -instance PToJSVal BiquadFilterNode where - pToJSVal = unBiquadFilterNode - {-# INLINE pToJSVal #-} - -instance PFromJSVal BiquadFilterNode where - pFromJSVal = BiquadFilterNode - {-# INLINE pFromJSVal #-} - -instance ToJSVal BiquadFilterNode where - toJSVal = return . unBiquadFilterNode - {-# INLINE toJSVal #-} - -instance FromJSVal BiquadFilterNode where - fromJSVal = return . fmap BiquadFilterNode . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsAudioNode BiquadFilterNode -instance IsEventTarget BiquadFilterNode -instance IsGObject BiquadFilterNode where - toGObject = GObject . unBiquadFilterNode - {-# INLINE toGObject #-} - unsafeCastGObject = BiquadFilterNode . unGObject - {-# INLINE unsafeCastGObject #-} - -castToBiquadFilterNode :: IsGObject obj => obj -> IO BiquadFilterNode -castToBiquadFilterNode = castTo gTypeBiquadFilterNode "BiquadFilterNode" - -foreign import javascript unsafe "window[\"BiquadFilterNode\"]" gTypeBiquadFilterNode :: GType - --- | Functions for this inteface are in "GHCJS.DOM.Blob". --- --- -newtype Blob = Blob { unBlob :: JSVal } - -instance Eq (Blob) where - (Blob a) == (Blob b) = js_eq a b - -instance PToJSVal Blob where - pToJSVal = unBlob - {-# INLINE pToJSVal #-} - -instance PFromJSVal Blob where - pFromJSVal = Blob - {-# INLINE pFromJSVal #-} - -instance ToJSVal Blob where - toJSVal = return . unBlob - {-# INLINE toJSVal #-} - -instance FromJSVal Blob where - fromJSVal = return . fmap Blob . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -class IsGObject o => IsBlob o -toBlob :: IsBlob o => o -> Blob -toBlob = unsafeCastGObject . toGObject - -instance IsBlob Blob -instance IsGObject Blob where - toGObject = GObject . unBlob - {-# INLINE toGObject #-} - unsafeCastGObject = Blob . unGObject - {-# INLINE unsafeCastGObject #-} - -castToBlob :: IsGObject obj => obj -> IO Blob -castToBlob = castTo gTypeBlob "Blob" - -foreign import javascript unsafe "window[\"Blob\"]" gTypeBlob :: GType - --- | Functions for this inteface are in "GHCJS.DOM.CDATASection". --- Base interface functions are in: --- --- * "GHCJS.DOM.Text" --- * "GHCJS.DOM.CharacterData" --- * "GHCJS.DOM.Node" --- * "GHCJS.DOM.EventTarget" --- --- -newtype CDATASection = CDATASection { unCDATASection :: JSVal } - -instance Eq (CDATASection) where - (CDATASection a) == (CDATASection b) = js_eq a b - -instance PToJSVal CDATASection where - pToJSVal = unCDATASection - {-# INLINE pToJSVal #-} - -instance PFromJSVal CDATASection where - pFromJSVal = CDATASection - {-# INLINE pFromJSVal #-} - -instance ToJSVal CDATASection where - toJSVal = return . unCDATASection - {-# INLINE toJSVal #-} - -instance FromJSVal CDATASection where - fromJSVal = return . fmap CDATASection . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsText CDATASection -instance IsCharacterData CDATASection -instance IsNode CDATASection -instance IsEventTarget CDATASection -instance IsGObject CDATASection where - toGObject = GObject . unCDATASection - {-# INLINE toGObject #-} - unsafeCastGObject = CDATASection . unGObject - {-# INLINE unsafeCastGObject #-} - -castToCDATASection :: IsGObject obj => obj -> IO CDATASection -castToCDATASection = castTo gTypeCDATASection "CDATASection" - -foreign import javascript unsafe "window[\"CDATASection\"]" gTypeCDATASection :: GType - --- | Functions for this inteface are in "GHCJS.DOM.CSS". --- --- -newtype CSS = CSS { unCSS :: JSVal } - -instance Eq (CSS) where - (CSS a) == (CSS b) = js_eq a b - -instance PToJSVal CSS where - pToJSVal = unCSS - {-# INLINE pToJSVal #-} - -instance PFromJSVal CSS where - pFromJSVal = CSS - {-# INLINE pFromJSVal #-} - -instance ToJSVal CSS where - toJSVal = return . unCSS - {-# INLINE toJSVal #-} - -instance FromJSVal CSS where - fromJSVal = return . fmap CSS . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsGObject CSS where - toGObject = GObject . unCSS - {-# INLINE toGObject #-} - unsafeCastGObject = CSS . unGObject - {-# INLINE unsafeCastGObject #-} - -castToCSS :: IsGObject obj => obj -> IO CSS -castToCSS = castTo gTypeCSS "CSS" - -foreign import javascript unsafe "window[\"CSS\"]" gTypeCSS :: GType - --- | Functions for this inteface are in "GHCJS.DOM.CSSCharsetRule". --- Base interface functions are in: --- --- * "GHCJS.DOM.CSSRule" --- --- -newtype CSSCharsetRule = CSSCharsetRule { unCSSCharsetRule :: JSVal } - -instance Eq (CSSCharsetRule) where - (CSSCharsetRule a) == (CSSCharsetRule b) = js_eq a b - -instance PToJSVal CSSCharsetRule where - pToJSVal = unCSSCharsetRule - {-# INLINE pToJSVal #-} - -instance PFromJSVal CSSCharsetRule where - pFromJSVal = CSSCharsetRule - {-# INLINE pFromJSVal #-} - -instance ToJSVal CSSCharsetRule where - toJSVal = return . unCSSCharsetRule - {-# INLINE toJSVal #-} - -instance FromJSVal CSSCharsetRule where - fromJSVal = return . fmap CSSCharsetRule . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsCSSRule CSSCharsetRule -instance IsGObject CSSCharsetRule where - toGObject = GObject . unCSSCharsetRule - {-# INLINE toGObject #-} - unsafeCastGObject = CSSCharsetRule . unGObject - {-# INLINE unsafeCastGObject #-} - -castToCSSCharsetRule :: IsGObject obj => obj -> IO CSSCharsetRule -castToCSSCharsetRule = castTo gTypeCSSCharsetRule "CSSCharsetRule" - -foreign import javascript unsafe "window[\"CSSCharsetRule\"]" gTypeCSSCharsetRule :: GType - --- | Functions for this inteface are in "GHCJS.DOM.CSSFontFaceLoadEvent". --- Base interface functions are in: --- --- * "GHCJS.DOM.Event" --- --- -newtype CSSFontFaceLoadEvent = CSSFontFaceLoadEvent { unCSSFontFaceLoadEvent :: JSVal } - -instance Eq (CSSFontFaceLoadEvent) where - (CSSFontFaceLoadEvent a) == (CSSFontFaceLoadEvent b) = js_eq a b - -instance PToJSVal CSSFontFaceLoadEvent where - pToJSVal = unCSSFontFaceLoadEvent - {-# INLINE pToJSVal #-} - -instance PFromJSVal CSSFontFaceLoadEvent where - pFromJSVal = CSSFontFaceLoadEvent - {-# INLINE pFromJSVal #-} - -instance ToJSVal CSSFontFaceLoadEvent where - toJSVal = return . unCSSFontFaceLoadEvent - {-# INLINE toJSVal #-} - -instance FromJSVal CSSFontFaceLoadEvent where - fromJSVal = return . fmap CSSFontFaceLoadEvent . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsEvent CSSFontFaceLoadEvent -instance IsGObject CSSFontFaceLoadEvent where - toGObject = GObject . unCSSFontFaceLoadEvent - {-# INLINE toGObject #-} - unsafeCastGObject = CSSFontFaceLoadEvent . unGObject - {-# INLINE unsafeCastGObject #-} - -castToCSSFontFaceLoadEvent :: IsGObject obj => obj -> IO CSSFontFaceLoadEvent -castToCSSFontFaceLoadEvent = castTo gTypeCSSFontFaceLoadEvent "CSSFontFaceLoadEvent" - -foreign import javascript unsafe "window[\"CSSFontFaceLoadEvent\"]" gTypeCSSFontFaceLoadEvent :: GType - --- | Functions for this inteface are in "GHCJS.DOM.CSSFontFaceRule". --- Base interface functions are in: --- --- * "GHCJS.DOM.CSSRule" --- --- -newtype CSSFontFaceRule = CSSFontFaceRule { unCSSFontFaceRule :: JSVal } - -instance Eq (CSSFontFaceRule) where - (CSSFontFaceRule a) == (CSSFontFaceRule b) = js_eq a b - -instance PToJSVal CSSFontFaceRule where - pToJSVal = unCSSFontFaceRule - {-# INLINE pToJSVal #-} - -instance PFromJSVal CSSFontFaceRule where - pFromJSVal = CSSFontFaceRule - {-# INLINE pFromJSVal #-} - -instance ToJSVal CSSFontFaceRule where - toJSVal = return . unCSSFontFaceRule - {-# INLINE toJSVal #-} - -instance FromJSVal CSSFontFaceRule where - fromJSVal = return . fmap CSSFontFaceRule . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsCSSRule CSSFontFaceRule -instance IsGObject CSSFontFaceRule where - toGObject = GObject . unCSSFontFaceRule - {-# INLINE toGObject #-} - unsafeCastGObject = CSSFontFaceRule . unGObject - {-# INLINE unsafeCastGObject #-} - -castToCSSFontFaceRule :: IsGObject obj => obj -> IO CSSFontFaceRule -castToCSSFontFaceRule = castTo gTypeCSSFontFaceRule "CSSFontFaceRule" - -foreign import javascript unsafe "window[\"CSSFontFaceRule\"]" gTypeCSSFontFaceRule :: GType - --- | Functions for this inteface are in "GHCJS.DOM.CSSImportRule". --- Base interface functions are in: --- --- * "GHCJS.DOM.CSSRule" --- --- -newtype CSSImportRule = CSSImportRule { unCSSImportRule :: JSVal } - -instance Eq (CSSImportRule) where - (CSSImportRule a) == (CSSImportRule b) = js_eq a b - -instance PToJSVal CSSImportRule where - pToJSVal = unCSSImportRule - {-# INLINE pToJSVal #-} - -instance PFromJSVal CSSImportRule where - pFromJSVal = CSSImportRule - {-# INLINE pFromJSVal #-} - -instance ToJSVal CSSImportRule where - toJSVal = return . unCSSImportRule - {-# INLINE toJSVal #-} - -instance FromJSVal CSSImportRule where - fromJSVal = return . fmap CSSImportRule . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsCSSRule CSSImportRule -instance IsGObject CSSImportRule where - toGObject = GObject . unCSSImportRule - {-# INLINE toGObject #-} - unsafeCastGObject = CSSImportRule . unGObject - {-# INLINE unsafeCastGObject #-} - -castToCSSImportRule :: IsGObject obj => obj -> IO CSSImportRule -castToCSSImportRule = castTo gTypeCSSImportRule "CSSImportRule" - -foreign import javascript unsafe "window[\"CSSImportRule\"]" gTypeCSSImportRule :: GType - --- | Functions for this inteface are in "GHCJS.DOM.CSSKeyframeRule". --- Base interface functions are in: --- --- * "GHCJS.DOM.CSSRule" --- --- -newtype CSSKeyframeRule = CSSKeyframeRule { unCSSKeyframeRule :: JSVal } - -instance Eq (CSSKeyframeRule) where - (CSSKeyframeRule a) == (CSSKeyframeRule b) = js_eq a b - -instance PToJSVal CSSKeyframeRule where - pToJSVal = unCSSKeyframeRule - {-# INLINE pToJSVal #-} - -instance PFromJSVal CSSKeyframeRule where - pFromJSVal = CSSKeyframeRule - {-# INLINE pFromJSVal #-} - -instance ToJSVal CSSKeyframeRule where - toJSVal = return . unCSSKeyframeRule - {-# INLINE toJSVal #-} - -instance FromJSVal CSSKeyframeRule where - fromJSVal = return . fmap CSSKeyframeRule . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsCSSRule CSSKeyframeRule -instance IsGObject CSSKeyframeRule where - toGObject = GObject . unCSSKeyframeRule - {-# INLINE toGObject #-} - unsafeCastGObject = CSSKeyframeRule . unGObject - {-# INLINE unsafeCastGObject #-} - -castToCSSKeyframeRule :: IsGObject obj => obj -> IO CSSKeyframeRule -castToCSSKeyframeRule = castTo gTypeCSSKeyframeRule "CSSKeyframeRule" - -foreign import javascript unsafe "window[\"CSSKeyframeRule\"]" gTypeCSSKeyframeRule :: GType - --- | Functions for this inteface are in "GHCJS.DOM.CSSKeyframesRule". --- Base interface functions are in: --- --- * "GHCJS.DOM.CSSRule" --- --- -newtype CSSKeyframesRule = CSSKeyframesRule { unCSSKeyframesRule :: JSVal } - -instance Eq (CSSKeyframesRule) where - (CSSKeyframesRule a) == (CSSKeyframesRule b) = js_eq a b - -instance PToJSVal CSSKeyframesRule where - pToJSVal = unCSSKeyframesRule - {-# INLINE pToJSVal #-} - -instance PFromJSVal CSSKeyframesRule where - pFromJSVal = CSSKeyframesRule - {-# INLINE pFromJSVal #-} - -instance ToJSVal CSSKeyframesRule where - toJSVal = return . unCSSKeyframesRule - {-# INLINE toJSVal #-} - -instance FromJSVal CSSKeyframesRule where - fromJSVal = return . fmap CSSKeyframesRule . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsCSSRule CSSKeyframesRule -instance IsGObject CSSKeyframesRule where - toGObject = GObject . unCSSKeyframesRule - {-# INLINE toGObject #-} - unsafeCastGObject = CSSKeyframesRule . unGObject - {-# INLINE unsafeCastGObject #-} - -castToCSSKeyframesRule :: IsGObject obj => obj -> IO CSSKeyframesRule -castToCSSKeyframesRule = castTo gTypeCSSKeyframesRule "CSSKeyframesRule" - -foreign import javascript unsafe "window[\"CSSKeyframesRule\"]" gTypeCSSKeyframesRule :: GType - --- | Functions for this inteface are in "GHCJS.DOM.CSSMediaRule". --- Base interface functions are in: --- --- * "GHCJS.DOM.CSSRule" --- --- -newtype CSSMediaRule = CSSMediaRule { unCSSMediaRule :: JSVal } - -instance Eq (CSSMediaRule) where - (CSSMediaRule a) == (CSSMediaRule b) = js_eq a b - -instance PToJSVal CSSMediaRule where - pToJSVal = unCSSMediaRule - {-# INLINE pToJSVal #-} - -instance PFromJSVal CSSMediaRule where - pFromJSVal = CSSMediaRule - {-# INLINE pFromJSVal #-} - -instance ToJSVal CSSMediaRule where - toJSVal = return . unCSSMediaRule - {-# INLINE toJSVal #-} - -instance FromJSVal CSSMediaRule where - fromJSVal = return . fmap CSSMediaRule . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsCSSRule CSSMediaRule -instance IsGObject CSSMediaRule where - toGObject = GObject . unCSSMediaRule - {-# INLINE toGObject #-} - unsafeCastGObject = CSSMediaRule . unGObject - {-# INLINE unsafeCastGObject #-} - -castToCSSMediaRule :: IsGObject obj => obj -> IO CSSMediaRule -castToCSSMediaRule = castTo gTypeCSSMediaRule "CSSMediaRule" - -foreign import javascript unsafe "window[\"CSSMediaRule\"]" gTypeCSSMediaRule :: GType - --- | Functions for this inteface are in "GHCJS.DOM.CSSPageRule". --- Base interface functions are in: --- --- * "GHCJS.DOM.CSSRule" --- --- -newtype CSSPageRule = CSSPageRule { unCSSPageRule :: JSVal } - -instance Eq (CSSPageRule) where - (CSSPageRule a) == (CSSPageRule b) = js_eq a b - -instance PToJSVal CSSPageRule where - pToJSVal = unCSSPageRule - {-# INLINE pToJSVal #-} - -instance PFromJSVal CSSPageRule where - pFromJSVal = CSSPageRule - {-# INLINE pFromJSVal #-} - -instance ToJSVal CSSPageRule where - toJSVal = return . unCSSPageRule - {-# INLINE toJSVal #-} - -instance FromJSVal CSSPageRule where - fromJSVal = return . fmap CSSPageRule . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsCSSRule CSSPageRule -instance IsGObject CSSPageRule where - toGObject = GObject . unCSSPageRule - {-# INLINE toGObject #-} - unsafeCastGObject = CSSPageRule . unGObject - {-# INLINE unsafeCastGObject #-} - -castToCSSPageRule :: IsGObject obj => obj -> IO CSSPageRule -castToCSSPageRule = castTo gTypeCSSPageRule "CSSPageRule" - -foreign import javascript unsafe "window[\"CSSPageRule\"]" gTypeCSSPageRule :: GType - --- | Functions for this inteface are in "GHCJS.DOM.CSSPrimitiveValue". --- Base interface functions are in: --- --- * "GHCJS.DOM.CSSValue" --- --- -newtype CSSPrimitiveValue = CSSPrimitiveValue { unCSSPrimitiveValue :: JSVal } - -instance Eq (CSSPrimitiveValue) where - (CSSPrimitiveValue a) == (CSSPrimitiveValue b) = js_eq a b - -instance PToJSVal CSSPrimitiveValue where - pToJSVal = unCSSPrimitiveValue - {-# INLINE pToJSVal #-} - -instance PFromJSVal CSSPrimitiveValue where - pFromJSVal = CSSPrimitiveValue - {-# INLINE pFromJSVal #-} - -instance ToJSVal CSSPrimitiveValue where - toJSVal = return . unCSSPrimitiveValue - {-# INLINE toJSVal #-} - -instance FromJSVal CSSPrimitiveValue where - fromJSVal = return . fmap CSSPrimitiveValue . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsCSSValue CSSPrimitiveValue -instance IsGObject CSSPrimitiveValue where - toGObject = GObject . unCSSPrimitiveValue - {-# INLINE toGObject #-} - unsafeCastGObject = CSSPrimitiveValue . unGObject - {-# INLINE unsafeCastGObject #-} - -castToCSSPrimitiveValue :: IsGObject obj => obj -> IO CSSPrimitiveValue -castToCSSPrimitiveValue = castTo gTypeCSSPrimitiveValue "CSSPrimitiveValue" - -foreign import javascript unsafe "window[\"CSSPrimitiveValue\"]" gTypeCSSPrimitiveValue :: GType - --- | Functions for this inteface are in "GHCJS.DOM.CSSRule". --- --- -newtype CSSRule = CSSRule { unCSSRule :: JSVal } - -instance Eq (CSSRule) where - (CSSRule a) == (CSSRule b) = js_eq a b - -instance PToJSVal CSSRule where - pToJSVal = unCSSRule - {-# INLINE pToJSVal #-} - -instance PFromJSVal CSSRule where - pFromJSVal = CSSRule - {-# INLINE pFromJSVal #-} - -instance ToJSVal CSSRule where - toJSVal = return . unCSSRule - {-# INLINE toJSVal #-} - -instance FromJSVal CSSRule where - fromJSVal = return . fmap CSSRule . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -class IsGObject o => IsCSSRule o -toCSSRule :: IsCSSRule o => o -> CSSRule -toCSSRule = unsafeCastGObject . toGObject - -instance IsCSSRule CSSRule -instance IsGObject CSSRule where - toGObject = GObject . unCSSRule - {-# INLINE toGObject #-} - unsafeCastGObject = CSSRule . unGObject - {-# INLINE unsafeCastGObject #-} - -castToCSSRule :: IsGObject obj => obj -> IO CSSRule -castToCSSRule = castTo gTypeCSSRule "CSSRule" - -foreign import javascript unsafe "window[\"CSSRule\"]" gTypeCSSRule :: GType - --- | Functions for this inteface are in "GHCJS.DOM.CSSRuleList". --- --- -newtype CSSRuleList = CSSRuleList { unCSSRuleList :: JSVal } - -instance Eq (CSSRuleList) where - (CSSRuleList a) == (CSSRuleList b) = js_eq a b - -instance PToJSVal CSSRuleList where - pToJSVal = unCSSRuleList - {-# INLINE pToJSVal #-} - -instance PFromJSVal CSSRuleList where - pFromJSVal = CSSRuleList - {-# INLINE pFromJSVal #-} - -instance ToJSVal CSSRuleList where - toJSVal = return . unCSSRuleList - {-# INLINE toJSVal #-} - -instance FromJSVal CSSRuleList where - fromJSVal = return . fmap CSSRuleList . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsGObject CSSRuleList where - toGObject = GObject . unCSSRuleList - {-# INLINE toGObject #-} - unsafeCastGObject = CSSRuleList . unGObject - {-# INLINE unsafeCastGObject #-} - -castToCSSRuleList :: IsGObject obj => obj -> IO CSSRuleList -castToCSSRuleList = castTo gTypeCSSRuleList "CSSRuleList" - -foreign import javascript unsafe "window[\"CSSRuleList\"]" gTypeCSSRuleList :: GType - --- | Functions for this inteface are in "GHCJS.DOM.CSSStyleDeclaration". --- --- -newtype CSSStyleDeclaration = CSSStyleDeclaration { unCSSStyleDeclaration :: JSVal } - -instance Eq (CSSStyleDeclaration) where - (CSSStyleDeclaration a) == (CSSStyleDeclaration b) = js_eq a b - -instance PToJSVal CSSStyleDeclaration where - pToJSVal = unCSSStyleDeclaration - {-# INLINE pToJSVal #-} - -instance PFromJSVal CSSStyleDeclaration where - pFromJSVal = CSSStyleDeclaration - {-# INLINE pFromJSVal #-} - -instance ToJSVal CSSStyleDeclaration where - toJSVal = return . unCSSStyleDeclaration - {-# INLINE toJSVal #-} - -instance FromJSVal CSSStyleDeclaration where - fromJSVal = return . fmap CSSStyleDeclaration . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsGObject CSSStyleDeclaration where - toGObject = GObject . unCSSStyleDeclaration - {-# INLINE toGObject #-} - unsafeCastGObject = CSSStyleDeclaration . unGObject - {-# INLINE unsafeCastGObject #-} - -castToCSSStyleDeclaration :: IsGObject obj => obj -> IO CSSStyleDeclaration -castToCSSStyleDeclaration = castTo gTypeCSSStyleDeclaration "CSSStyleDeclaration" - -foreign import javascript unsafe "window[\"CSSStyleDeclaration\"]" gTypeCSSStyleDeclaration :: GType - --- | Functions for this inteface are in "GHCJS.DOM.CSSStyleRule". --- Base interface functions are in: --- --- * "GHCJS.DOM.CSSRule" --- --- -newtype CSSStyleRule = CSSStyleRule { unCSSStyleRule :: JSVal } - -instance Eq (CSSStyleRule) where - (CSSStyleRule a) == (CSSStyleRule b) = js_eq a b - -instance PToJSVal CSSStyleRule where - pToJSVal = unCSSStyleRule - {-# INLINE pToJSVal #-} - -instance PFromJSVal CSSStyleRule where - pFromJSVal = CSSStyleRule - {-# INLINE pFromJSVal #-} - -instance ToJSVal CSSStyleRule where - toJSVal = return . unCSSStyleRule - {-# INLINE toJSVal #-} - -instance FromJSVal CSSStyleRule where - fromJSVal = return . fmap CSSStyleRule . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsCSSRule CSSStyleRule -instance IsGObject CSSStyleRule where - toGObject = GObject . unCSSStyleRule - {-# INLINE toGObject #-} - unsafeCastGObject = CSSStyleRule . unGObject - {-# INLINE unsafeCastGObject #-} - -castToCSSStyleRule :: IsGObject obj => obj -> IO CSSStyleRule -castToCSSStyleRule = castTo gTypeCSSStyleRule "CSSStyleRule" - -foreign import javascript unsafe "window[\"CSSStyleRule\"]" gTypeCSSStyleRule :: GType - --- | Functions for this inteface are in "GHCJS.DOM.CSSStyleSheet". --- Base interface functions are in: --- --- * "GHCJS.DOM.StyleSheet" --- --- -newtype CSSStyleSheet = CSSStyleSheet { unCSSStyleSheet :: JSVal } - -instance Eq (CSSStyleSheet) where - (CSSStyleSheet a) == (CSSStyleSheet b) = js_eq a b - -instance PToJSVal CSSStyleSheet where - pToJSVal = unCSSStyleSheet - {-# INLINE pToJSVal #-} - -instance PFromJSVal CSSStyleSheet where - pFromJSVal = CSSStyleSheet - {-# INLINE pFromJSVal #-} - -instance ToJSVal CSSStyleSheet where - toJSVal = return . unCSSStyleSheet - {-# INLINE toJSVal #-} - -instance FromJSVal CSSStyleSheet where - fromJSVal = return . fmap CSSStyleSheet . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsStyleSheet CSSStyleSheet -instance IsGObject CSSStyleSheet where - toGObject = GObject . unCSSStyleSheet - {-# INLINE toGObject #-} - unsafeCastGObject = CSSStyleSheet . unGObject - {-# INLINE unsafeCastGObject #-} - -castToCSSStyleSheet :: IsGObject obj => obj -> IO CSSStyleSheet -castToCSSStyleSheet = castTo gTypeCSSStyleSheet "CSSStyleSheet" - -foreign import javascript unsafe "window[\"CSSStyleSheet\"]" gTypeCSSStyleSheet :: GType - --- | Functions for this inteface are in "GHCJS.DOM.CSSSupportsRule". --- Base interface functions are in: --- --- * "GHCJS.DOM.CSSRule" --- --- -newtype CSSSupportsRule = CSSSupportsRule { unCSSSupportsRule :: JSVal } - -instance Eq (CSSSupportsRule) where - (CSSSupportsRule a) == (CSSSupportsRule b) = js_eq a b - -instance PToJSVal CSSSupportsRule where - pToJSVal = unCSSSupportsRule - {-# INLINE pToJSVal #-} - -instance PFromJSVal CSSSupportsRule where - pFromJSVal = CSSSupportsRule - {-# INLINE pFromJSVal #-} - -instance ToJSVal CSSSupportsRule where - toJSVal = return . unCSSSupportsRule - {-# INLINE toJSVal #-} - -instance FromJSVal CSSSupportsRule where - fromJSVal = return . fmap CSSSupportsRule . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsCSSRule CSSSupportsRule -instance IsGObject CSSSupportsRule where - toGObject = GObject . unCSSSupportsRule - {-# INLINE toGObject #-} - unsafeCastGObject = CSSSupportsRule . unGObject - {-# INLINE unsafeCastGObject #-} - -castToCSSSupportsRule :: IsGObject obj => obj -> IO CSSSupportsRule -castToCSSSupportsRule = castTo gTypeCSSSupportsRule "CSSSupportsRule" - -foreign import javascript unsafe "window[\"CSSSupportsRule\"]" gTypeCSSSupportsRule :: GType - --- | Functions for this inteface are in "GHCJS.DOM.CSSUnknownRule". --- Base interface functions are in: --- --- * "GHCJS.DOM.CSSRule" --- --- -newtype CSSUnknownRule = CSSUnknownRule { unCSSUnknownRule :: JSVal } - -instance Eq (CSSUnknownRule) where - (CSSUnknownRule a) == (CSSUnknownRule b) = js_eq a b - -instance PToJSVal CSSUnknownRule where - pToJSVal = unCSSUnknownRule - {-# INLINE pToJSVal #-} - -instance PFromJSVal CSSUnknownRule where - pFromJSVal = CSSUnknownRule - {-# INLINE pFromJSVal #-} - -instance ToJSVal CSSUnknownRule where - toJSVal = return . unCSSUnknownRule - {-# INLINE toJSVal #-} - -instance FromJSVal CSSUnknownRule where - fromJSVal = return . fmap CSSUnknownRule . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsCSSRule CSSUnknownRule -instance IsGObject CSSUnknownRule where - toGObject = GObject . unCSSUnknownRule - {-# INLINE toGObject #-} - unsafeCastGObject = CSSUnknownRule . unGObject - {-# INLINE unsafeCastGObject #-} - -castToCSSUnknownRule :: IsGObject obj => obj -> IO CSSUnknownRule -castToCSSUnknownRule = castTo gTypeCSSUnknownRule "CSSUnknownRule" - -foreign import javascript unsafe "window[\"CSSUnknownRule\"]" gTypeCSSUnknownRule :: GType - --- | Functions for this inteface are in "GHCJS.DOM.CSSValue". --- --- -newtype CSSValue = CSSValue { unCSSValue :: JSVal } - -instance Eq (CSSValue) where - (CSSValue a) == (CSSValue b) = js_eq a b - -instance PToJSVal CSSValue where - pToJSVal = unCSSValue - {-# INLINE pToJSVal #-} - -instance PFromJSVal CSSValue where - pFromJSVal = CSSValue - {-# INLINE pFromJSVal #-} - -instance ToJSVal CSSValue where - toJSVal = return . unCSSValue - {-# INLINE toJSVal #-} - -instance FromJSVal CSSValue where - fromJSVal = return . fmap CSSValue . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -class IsGObject o => IsCSSValue o -toCSSValue :: IsCSSValue o => o -> CSSValue -toCSSValue = unsafeCastGObject . toGObject - -instance IsCSSValue CSSValue -instance IsGObject CSSValue where - toGObject = GObject . unCSSValue - {-# INLINE toGObject #-} - unsafeCastGObject = CSSValue . unGObject - {-# INLINE unsafeCastGObject #-} - -castToCSSValue :: IsGObject obj => obj -> IO CSSValue -castToCSSValue = castTo gTypeCSSValue "CSSValue" - -foreign import javascript unsafe "window[\"CSSValue\"]" gTypeCSSValue :: GType - --- | Functions for this inteface are in "GHCJS.DOM.CSSValueList". --- Base interface functions are in: --- --- * "GHCJS.DOM.CSSValue" --- --- -newtype CSSValueList = CSSValueList { unCSSValueList :: JSVal } - -instance Eq (CSSValueList) where - (CSSValueList a) == (CSSValueList b) = js_eq a b - -instance PToJSVal CSSValueList where - pToJSVal = unCSSValueList - {-# INLINE pToJSVal #-} - -instance PFromJSVal CSSValueList where - pFromJSVal = CSSValueList - {-# INLINE pFromJSVal #-} - -instance ToJSVal CSSValueList where - toJSVal = return . unCSSValueList - {-# INLINE toJSVal #-} - -instance FromJSVal CSSValueList where - fromJSVal = return . fmap CSSValueList . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -class IsCSSValue o => IsCSSValueList o -toCSSValueList :: IsCSSValueList o => o -> CSSValueList -toCSSValueList = unsafeCastGObject . toGObject - -instance IsCSSValueList CSSValueList -instance IsCSSValue CSSValueList -instance IsGObject CSSValueList where - toGObject = GObject . unCSSValueList - {-# INLINE toGObject #-} - unsafeCastGObject = CSSValueList . unGObject - {-# INLINE unsafeCastGObject #-} - -castToCSSValueList :: IsGObject obj => obj -> IO CSSValueList -castToCSSValueList = castTo gTypeCSSValueList "CSSValueList" - -foreign import javascript unsafe "window[\"CSSValueList\"]" gTypeCSSValueList :: GType - --- | Functions for this inteface are in "GHCJS.DOM.CanvasGradient". --- --- -newtype CanvasGradient = CanvasGradient { unCanvasGradient :: JSVal } - -instance Eq (CanvasGradient) where - (CanvasGradient a) == (CanvasGradient b) = js_eq a b - -instance PToJSVal CanvasGradient where - pToJSVal = unCanvasGradient - {-# INLINE pToJSVal #-} - -instance PFromJSVal CanvasGradient where - pFromJSVal = CanvasGradient - {-# INLINE pFromJSVal #-} - -instance ToJSVal CanvasGradient where - toJSVal = return . unCanvasGradient - {-# INLINE toJSVal #-} - -instance FromJSVal CanvasGradient where - fromJSVal = return . fmap CanvasGradient . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsGObject CanvasGradient where - toGObject = GObject . unCanvasGradient - {-# INLINE toGObject #-} - unsafeCastGObject = CanvasGradient . unGObject - {-# INLINE unsafeCastGObject #-} - -castToCanvasGradient :: IsGObject obj => obj -> IO CanvasGradient -castToCanvasGradient = castTo gTypeCanvasGradient "CanvasGradient" - -foreign import javascript unsafe "window[\"CanvasGradient\"]" gTypeCanvasGradient :: GType - --- | Functions for this inteface are in "GHCJS.DOM.CanvasPattern". --- --- -newtype CanvasPattern = CanvasPattern { unCanvasPattern :: JSVal } - -instance Eq (CanvasPattern) where - (CanvasPattern a) == (CanvasPattern b) = js_eq a b - -instance PToJSVal CanvasPattern where - pToJSVal = unCanvasPattern - {-# INLINE pToJSVal #-} - -instance PFromJSVal CanvasPattern where - pFromJSVal = CanvasPattern - {-# INLINE pFromJSVal #-} - -instance ToJSVal CanvasPattern where - toJSVal = return . unCanvasPattern - {-# INLINE toJSVal #-} - -instance FromJSVal CanvasPattern where - fromJSVal = return . fmap CanvasPattern . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsGObject CanvasPattern where - toGObject = GObject . unCanvasPattern - {-# INLINE toGObject #-} - unsafeCastGObject = CanvasPattern . unGObject - {-# INLINE unsafeCastGObject #-} - -castToCanvasPattern :: IsGObject obj => obj -> IO CanvasPattern -castToCanvasPattern = castTo gTypeCanvasPattern "CanvasPattern" - -foreign import javascript unsafe "window[\"CanvasPattern\"]" gTypeCanvasPattern :: GType - --- | Functions for this inteface are in "GHCJS.DOM.CanvasProxy". --- --- -newtype CanvasProxy = CanvasProxy { unCanvasProxy :: JSVal } - -instance Eq (CanvasProxy) where - (CanvasProxy a) == (CanvasProxy b) = js_eq a b - -instance PToJSVal CanvasProxy where - pToJSVal = unCanvasProxy - {-# INLINE pToJSVal #-} - -instance PFromJSVal CanvasProxy where - pFromJSVal = CanvasProxy - {-# INLINE pFromJSVal #-} - -instance ToJSVal CanvasProxy where - toJSVal = return . unCanvasProxy - {-# INLINE toJSVal #-} - -instance FromJSVal CanvasProxy where - fromJSVal = return . fmap CanvasProxy . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsGObject CanvasProxy where - toGObject = GObject . unCanvasProxy - {-# INLINE toGObject #-} - unsafeCastGObject = CanvasProxy . unGObject - {-# INLINE unsafeCastGObject #-} - -castToCanvasProxy :: IsGObject obj => obj -> IO CanvasProxy -castToCanvasProxy = castTo gTypeCanvasProxy "CanvasProxy" - -foreign import javascript unsafe "window[\"CanvasProxy\"]" gTypeCanvasProxy :: GType - --- | Functions for this inteface are in "GHCJS.DOM.CanvasRenderingContext". --- --- -newtype CanvasRenderingContext = CanvasRenderingContext { unCanvasRenderingContext :: JSVal } - -instance Eq (CanvasRenderingContext) where - (CanvasRenderingContext a) == (CanvasRenderingContext b) = js_eq a b - -instance PToJSVal CanvasRenderingContext where - pToJSVal = unCanvasRenderingContext - {-# INLINE pToJSVal #-} - -instance PFromJSVal CanvasRenderingContext where - pFromJSVal = CanvasRenderingContext - {-# INLINE pFromJSVal #-} - -instance ToJSVal CanvasRenderingContext where - toJSVal = return . unCanvasRenderingContext - {-# INLINE toJSVal #-} - -instance FromJSVal CanvasRenderingContext where - fromJSVal = return . fmap CanvasRenderingContext . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -class IsGObject o => IsCanvasRenderingContext o -toCanvasRenderingContext :: IsCanvasRenderingContext o => o -> CanvasRenderingContext -toCanvasRenderingContext = unsafeCastGObject . toGObject - -instance IsCanvasRenderingContext CanvasRenderingContext -instance IsGObject CanvasRenderingContext where - toGObject = GObject . unCanvasRenderingContext - {-# INLINE toGObject #-} - unsafeCastGObject = CanvasRenderingContext . unGObject - {-# INLINE unsafeCastGObject #-} - -castToCanvasRenderingContext :: IsGObject obj => obj -> IO CanvasRenderingContext -castToCanvasRenderingContext = castTo gTypeCanvasRenderingContext "CanvasRenderingContext" - -foreign import javascript unsafe "window[\"CanvasRenderingContext\"]" gTypeCanvasRenderingContext :: GType - --- | Functions for this inteface are in "GHCJS.DOM.CanvasRenderingContext2D". --- Base interface functions are in: --- --- * "GHCJS.DOM.CanvasRenderingContext" --- --- -newtype CanvasRenderingContext2D = CanvasRenderingContext2D { unCanvasRenderingContext2D :: JSVal } - -instance Eq (CanvasRenderingContext2D) where - (CanvasRenderingContext2D a) == (CanvasRenderingContext2D b) = js_eq a b - -instance PToJSVal CanvasRenderingContext2D where - pToJSVal = unCanvasRenderingContext2D - {-# INLINE pToJSVal #-} - -instance PFromJSVal CanvasRenderingContext2D where - pFromJSVal = CanvasRenderingContext2D - {-# INLINE pFromJSVal #-} - -instance ToJSVal CanvasRenderingContext2D where - toJSVal = return . unCanvasRenderingContext2D - {-# INLINE toJSVal #-} - -instance FromJSVal CanvasRenderingContext2D where - fromJSVal = return . fmap CanvasRenderingContext2D . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsCanvasRenderingContext CanvasRenderingContext2D -instance IsGObject CanvasRenderingContext2D where - toGObject = GObject . unCanvasRenderingContext2D - {-# INLINE toGObject #-} - unsafeCastGObject = CanvasRenderingContext2D . unGObject - {-# INLINE unsafeCastGObject #-} - -castToCanvasRenderingContext2D :: IsGObject obj => obj -> IO CanvasRenderingContext2D -castToCanvasRenderingContext2D = castTo gTypeCanvasRenderingContext2D "CanvasRenderingContext2D" - -foreign import javascript unsafe "window[\"CanvasRenderingContext2D\"]" gTypeCanvasRenderingContext2D :: GType - --- | Functions for this inteface are in "GHCJS.DOM.CapabilityRange". --- --- -newtype CapabilityRange = CapabilityRange { unCapabilityRange :: JSVal } - -instance Eq (CapabilityRange) where - (CapabilityRange a) == (CapabilityRange b) = js_eq a b - -instance PToJSVal CapabilityRange where - pToJSVal = unCapabilityRange - {-# INLINE pToJSVal #-} - -instance PFromJSVal CapabilityRange where - pFromJSVal = CapabilityRange - {-# INLINE pFromJSVal #-} - -instance ToJSVal CapabilityRange where - toJSVal = return . unCapabilityRange - {-# INLINE toJSVal #-} - -instance FromJSVal CapabilityRange where - fromJSVal = return . fmap CapabilityRange . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsGObject CapabilityRange where - toGObject = GObject . unCapabilityRange - {-# INLINE toGObject #-} - unsafeCastGObject = CapabilityRange . unGObject - {-# INLINE unsafeCastGObject #-} - -castToCapabilityRange :: IsGObject obj => obj -> IO CapabilityRange -castToCapabilityRange = castTo gTypeCapabilityRange "CapabilityRange" - -foreign import javascript unsafe "window[\"CapabilityRange\"]" gTypeCapabilityRange :: GType - --- | Functions for this inteface are in "GHCJS.DOM.ChannelMergerNode". --- Base interface functions are in: --- --- * "GHCJS.DOM.AudioNode" --- * "GHCJS.DOM.EventTarget" --- --- -newtype ChannelMergerNode = ChannelMergerNode { unChannelMergerNode :: JSVal } - -instance Eq (ChannelMergerNode) where - (ChannelMergerNode a) == (ChannelMergerNode b) = js_eq a b - -instance PToJSVal ChannelMergerNode where - pToJSVal = unChannelMergerNode - {-# INLINE pToJSVal #-} - -instance PFromJSVal ChannelMergerNode where - pFromJSVal = ChannelMergerNode - {-# INLINE pFromJSVal #-} - -instance ToJSVal ChannelMergerNode where - toJSVal = return . unChannelMergerNode - {-# INLINE toJSVal #-} - -instance FromJSVal ChannelMergerNode where - fromJSVal = return . fmap ChannelMergerNode . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsAudioNode ChannelMergerNode -instance IsEventTarget ChannelMergerNode -instance IsGObject ChannelMergerNode where - toGObject = GObject . unChannelMergerNode - {-# INLINE toGObject #-} - unsafeCastGObject = ChannelMergerNode . unGObject - {-# INLINE unsafeCastGObject #-} - -castToChannelMergerNode :: IsGObject obj => obj -> IO ChannelMergerNode -castToChannelMergerNode = castTo gTypeChannelMergerNode "ChannelMergerNode" - -foreign import javascript unsafe "window[\"ChannelMergerNode\"]" gTypeChannelMergerNode :: GType - --- | Functions for this inteface are in "GHCJS.DOM.ChannelSplitterNode". --- Base interface functions are in: --- --- * "GHCJS.DOM.AudioNode" --- * "GHCJS.DOM.EventTarget" --- --- -newtype ChannelSplitterNode = ChannelSplitterNode { unChannelSplitterNode :: JSVal } - -instance Eq (ChannelSplitterNode) where - (ChannelSplitterNode a) == (ChannelSplitterNode b) = js_eq a b - -instance PToJSVal ChannelSplitterNode where - pToJSVal = unChannelSplitterNode - {-# INLINE pToJSVal #-} - -instance PFromJSVal ChannelSplitterNode where - pFromJSVal = ChannelSplitterNode - {-# INLINE pFromJSVal #-} - -instance ToJSVal ChannelSplitterNode where - toJSVal = return . unChannelSplitterNode - {-# INLINE toJSVal #-} - -instance FromJSVal ChannelSplitterNode where - fromJSVal = return . fmap ChannelSplitterNode . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsAudioNode ChannelSplitterNode -instance IsEventTarget ChannelSplitterNode -instance IsGObject ChannelSplitterNode where - toGObject = GObject . unChannelSplitterNode - {-# INLINE toGObject #-} - unsafeCastGObject = ChannelSplitterNode . unGObject - {-# INLINE unsafeCastGObject #-} - -castToChannelSplitterNode :: IsGObject obj => obj -> IO ChannelSplitterNode -castToChannelSplitterNode = castTo gTypeChannelSplitterNode "ChannelSplitterNode" - -foreign import javascript unsafe "window[\"ChannelSplitterNode\"]" gTypeChannelSplitterNode :: GType - --- | Functions for this inteface are in "GHCJS.DOM.CharacterData". --- Base interface functions are in: --- --- * "GHCJS.DOM.Node" --- * "GHCJS.DOM.EventTarget" --- --- -newtype CharacterData = CharacterData { unCharacterData :: JSVal } - -instance Eq (CharacterData) where - (CharacterData a) == (CharacterData b) = js_eq a b - -instance PToJSVal CharacterData where - pToJSVal = unCharacterData - {-# INLINE pToJSVal #-} - -instance PFromJSVal CharacterData where - pFromJSVal = CharacterData - {-# INLINE pFromJSVal #-} - -instance ToJSVal CharacterData where - toJSVal = return . unCharacterData - {-# INLINE toJSVal #-} - -instance FromJSVal CharacterData where - fromJSVal = return . fmap CharacterData . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -class IsNode o => IsCharacterData o -toCharacterData :: IsCharacterData o => o -> CharacterData -toCharacterData = unsafeCastGObject . toGObject - -instance IsCharacterData CharacterData -instance IsNode CharacterData -instance IsEventTarget CharacterData -instance IsGObject CharacterData where - toGObject = GObject . unCharacterData - {-# INLINE toGObject #-} - unsafeCastGObject = CharacterData . unGObject - {-# INLINE unsafeCastGObject #-} - -castToCharacterData :: IsGObject obj => obj -> IO CharacterData -castToCharacterData = castTo gTypeCharacterData "CharacterData" - -foreign import javascript unsafe "window[\"CharacterData\"]" gTypeCharacterData :: GType - --- | Functions for this inteface are in "GHCJS.DOM.ChildNode". --- --- -newtype ChildNode = ChildNode { unChildNode :: JSVal } - -instance Eq (ChildNode) where - (ChildNode a) == (ChildNode b) = js_eq a b - -instance PToJSVal ChildNode where - pToJSVal = unChildNode - {-# INLINE pToJSVal #-} - -instance PFromJSVal ChildNode where - pFromJSVal = ChildNode - {-# INLINE pFromJSVal #-} - -instance ToJSVal ChildNode where - toJSVal = return . unChildNode - {-# INLINE toJSVal #-} - -instance FromJSVal ChildNode where - fromJSVal = return . fmap ChildNode . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsGObject ChildNode where - toGObject = GObject . unChildNode - {-# INLINE toGObject #-} - unsafeCastGObject = ChildNode . unGObject - {-# INLINE unsafeCastGObject #-} - -castToChildNode :: IsGObject obj => obj -> IO ChildNode -castToChildNode = castTo gTypeChildNode "ChildNode" - -foreign import javascript unsafe "window[\"ChildNode\"]" gTypeChildNode :: GType - --- | Functions for this inteface are in "GHCJS.DOM.ClientRect". --- --- -newtype ClientRect = ClientRect { unClientRect :: JSVal } - -instance Eq (ClientRect) where - (ClientRect a) == (ClientRect b) = js_eq a b - -instance PToJSVal ClientRect where - pToJSVal = unClientRect - {-# INLINE pToJSVal #-} - -instance PFromJSVal ClientRect where - pFromJSVal = ClientRect - {-# INLINE pFromJSVal #-} - -instance ToJSVal ClientRect where - toJSVal = return . unClientRect - {-# INLINE toJSVal #-} - -instance FromJSVal ClientRect where - fromJSVal = return . fmap ClientRect . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsGObject ClientRect where - toGObject = GObject . unClientRect - {-# INLINE toGObject #-} - unsafeCastGObject = ClientRect . unGObject - {-# INLINE unsafeCastGObject #-} - -castToClientRect :: IsGObject obj => obj -> IO ClientRect -castToClientRect = castTo gTypeClientRect "ClientRect" - -foreign import javascript unsafe "window[\"ClientRect\"]" gTypeClientRect :: GType - --- | Functions for this inteface are in "GHCJS.DOM.ClientRectList". --- --- -newtype ClientRectList = ClientRectList { unClientRectList :: JSVal } - -instance Eq (ClientRectList) where - (ClientRectList a) == (ClientRectList b) = js_eq a b - -instance PToJSVal ClientRectList where - pToJSVal = unClientRectList - {-# INLINE pToJSVal #-} - -instance PFromJSVal ClientRectList where - pFromJSVal = ClientRectList - {-# INLINE pFromJSVal #-} - -instance ToJSVal ClientRectList where - toJSVal = return . unClientRectList - {-# INLINE toJSVal #-} - -instance FromJSVal ClientRectList where - fromJSVal = return . fmap ClientRectList . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsGObject ClientRectList where - toGObject = GObject . unClientRectList - {-# INLINE toGObject #-} - unsafeCastGObject = ClientRectList . unGObject - {-# INLINE unsafeCastGObject #-} - -castToClientRectList :: IsGObject obj => obj -> IO ClientRectList -castToClientRectList = castTo gTypeClientRectList "ClientRectList" - -foreign import javascript unsafe "window[\"ClientRectList\"]" gTypeClientRectList :: GType - --- | Functions for this inteface are in "GHCJS.DOM.CloseEvent". --- Base interface functions are in: --- --- * "GHCJS.DOM.Event" --- --- -newtype CloseEvent = CloseEvent { unCloseEvent :: JSVal } - -instance Eq (CloseEvent) where - (CloseEvent a) == (CloseEvent b) = js_eq a b - -instance PToJSVal CloseEvent where - pToJSVal = unCloseEvent - {-# INLINE pToJSVal #-} - -instance PFromJSVal CloseEvent where - pFromJSVal = CloseEvent - {-# INLINE pFromJSVal #-} - -instance ToJSVal CloseEvent where - toJSVal = return . unCloseEvent - {-# INLINE toJSVal #-} - -instance FromJSVal CloseEvent where - fromJSVal = return . fmap CloseEvent . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsEvent CloseEvent -instance IsGObject CloseEvent where - toGObject = GObject . unCloseEvent - {-# INLINE toGObject #-} - unsafeCastGObject = CloseEvent . unGObject - {-# INLINE unsafeCastGObject #-} - -castToCloseEvent :: IsGObject obj => obj -> IO CloseEvent -castToCloseEvent = castTo gTypeCloseEvent "CloseEvent" - -foreign import javascript unsafe "window[\"CloseEvent\"]" gTypeCloseEvent :: GType - --- | Functions for this inteface are in "GHCJS.DOM.CommandLineAPIHost". --- --- -newtype CommandLineAPIHost = CommandLineAPIHost { unCommandLineAPIHost :: JSVal } - -instance Eq (CommandLineAPIHost) where - (CommandLineAPIHost a) == (CommandLineAPIHost b) = js_eq a b - -instance PToJSVal CommandLineAPIHost where - pToJSVal = unCommandLineAPIHost - {-# INLINE pToJSVal #-} - -instance PFromJSVal CommandLineAPIHost where - pFromJSVal = CommandLineAPIHost - {-# INLINE pFromJSVal #-} - -instance ToJSVal CommandLineAPIHost where - toJSVal = return . unCommandLineAPIHost - {-# INLINE toJSVal #-} - -instance FromJSVal CommandLineAPIHost where - fromJSVal = return . fmap CommandLineAPIHost . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsGObject CommandLineAPIHost where - toGObject = GObject . unCommandLineAPIHost - {-# INLINE toGObject #-} - unsafeCastGObject = CommandLineAPIHost . unGObject - {-# INLINE unsafeCastGObject #-} - -castToCommandLineAPIHost :: IsGObject obj => obj -> IO CommandLineAPIHost -castToCommandLineAPIHost = castTo gTypeCommandLineAPIHost "CommandLineAPIHost" - -foreign import javascript unsafe "window[\"CommandLineAPIHost\"]" gTypeCommandLineAPIHost :: GType - --- | Functions for this inteface are in "GHCJS.DOM.Comment". --- Base interface functions are in: --- --- * "GHCJS.DOM.CharacterData" --- * "GHCJS.DOM.Node" --- * "GHCJS.DOM.EventTarget" --- --- -newtype Comment = Comment { unComment :: JSVal } - -instance Eq (Comment) where - (Comment a) == (Comment b) = js_eq a b - -instance PToJSVal Comment where - pToJSVal = unComment - {-# INLINE pToJSVal #-} - -instance PFromJSVal Comment where - pFromJSVal = Comment - {-# INLINE pFromJSVal #-} - -instance ToJSVal Comment where - toJSVal = return . unComment - {-# INLINE toJSVal #-} - -instance FromJSVal Comment where - fromJSVal = return . fmap Comment . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsCharacterData Comment -instance IsNode Comment -instance IsEventTarget Comment -instance IsGObject Comment where - toGObject = GObject . unComment - {-# INLINE toGObject #-} - unsafeCastGObject = Comment . unGObject - {-# INLINE unsafeCastGObject #-} - -castToComment :: IsGObject obj => obj -> IO Comment -castToComment = castTo gTypeComment "Comment" - -foreign import javascript unsafe "window[\"Comment\"]" gTypeComment :: GType - --- | Functions for this inteface are in "GHCJS.DOM.CompositionEvent". --- Base interface functions are in: --- --- * "GHCJS.DOM.UIEvent" --- * "GHCJS.DOM.Event" --- --- -newtype CompositionEvent = CompositionEvent { unCompositionEvent :: JSVal } - -instance Eq (CompositionEvent) where - (CompositionEvent a) == (CompositionEvent b) = js_eq a b - -instance PToJSVal CompositionEvent where - pToJSVal = unCompositionEvent - {-# INLINE pToJSVal #-} - -instance PFromJSVal CompositionEvent where - pFromJSVal = CompositionEvent - {-# INLINE pFromJSVal #-} - -instance ToJSVal CompositionEvent where - toJSVal = return . unCompositionEvent - {-# INLINE toJSVal #-} - -instance FromJSVal CompositionEvent where - fromJSVal = return . fmap CompositionEvent . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsUIEvent CompositionEvent -instance IsEvent CompositionEvent -instance IsGObject CompositionEvent where - toGObject = GObject . unCompositionEvent - {-# INLINE toGObject #-} - unsafeCastGObject = CompositionEvent . unGObject - {-# INLINE unsafeCastGObject #-} - -castToCompositionEvent :: IsGObject obj => obj -> IO CompositionEvent -castToCompositionEvent = castTo gTypeCompositionEvent "CompositionEvent" - -foreign import javascript unsafe "window[\"CompositionEvent\"]" gTypeCompositionEvent :: GType - --- | Functions for this inteface are in "GHCJS.DOM.ConvolverNode". --- Base interface functions are in: --- --- * "GHCJS.DOM.AudioNode" --- * "GHCJS.DOM.EventTarget" --- --- -newtype ConvolverNode = ConvolverNode { unConvolverNode :: JSVal } - -instance Eq (ConvolverNode) where - (ConvolverNode a) == (ConvolverNode b) = js_eq a b - -instance PToJSVal ConvolverNode where - pToJSVal = unConvolverNode - {-# INLINE pToJSVal #-} - -instance PFromJSVal ConvolverNode where - pFromJSVal = ConvolverNode - {-# INLINE pFromJSVal #-} - -instance ToJSVal ConvolverNode where - toJSVal = return . unConvolverNode - {-# INLINE toJSVal #-} - -instance FromJSVal ConvolverNode where - fromJSVal = return . fmap ConvolverNode . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsAudioNode ConvolverNode -instance IsEventTarget ConvolverNode -instance IsGObject ConvolverNode where - toGObject = GObject . unConvolverNode - {-# INLINE toGObject #-} - unsafeCastGObject = ConvolverNode . unGObject - {-# INLINE unsafeCastGObject #-} - -castToConvolverNode :: IsGObject obj => obj -> IO ConvolverNode -castToConvolverNode = castTo gTypeConvolverNode "ConvolverNode" - -foreign import javascript unsafe "window[\"ConvolverNode\"]" gTypeConvolverNode :: GType - --- | Functions for this inteface are in "GHCJS.DOM.Coordinates". --- --- -newtype Coordinates = Coordinates { unCoordinates :: JSVal } - -instance Eq (Coordinates) where - (Coordinates a) == (Coordinates b) = js_eq a b - -instance PToJSVal Coordinates where - pToJSVal = unCoordinates - {-# INLINE pToJSVal #-} - -instance PFromJSVal Coordinates where - pFromJSVal = Coordinates - {-# INLINE pFromJSVal #-} - -instance ToJSVal Coordinates where - toJSVal = return . unCoordinates - {-# INLINE toJSVal #-} - -instance FromJSVal Coordinates where - fromJSVal = return . fmap Coordinates . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsGObject Coordinates where - toGObject = GObject . unCoordinates - {-# INLINE toGObject #-} - unsafeCastGObject = Coordinates . unGObject - {-# INLINE unsafeCastGObject #-} - -castToCoordinates :: IsGObject obj => obj -> IO Coordinates -castToCoordinates = castTo gTypeCoordinates "Coordinates" - -foreign import javascript unsafe "window[\"Coordinates\"]" gTypeCoordinates :: GType - --- | Functions for this inteface are in "GHCJS.DOM.Counter". --- --- -newtype Counter = Counter { unCounter :: JSVal } - -instance Eq (Counter) where - (Counter a) == (Counter b) = js_eq a b - -instance PToJSVal Counter where - pToJSVal = unCounter - {-# INLINE pToJSVal #-} - -instance PFromJSVal Counter where - pFromJSVal = Counter - {-# INLINE pFromJSVal #-} - -instance ToJSVal Counter where - toJSVal = return . unCounter - {-# INLINE toJSVal #-} - -instance FromJSVal Counter where - fromJSVal = return . fmap Counter . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsGObject Counter where - toGObject = GObject . unCounter - {-# INLINE toGObject #-} - unsafeCastGObject = Counter . unGObject - {-# INLINE unsafeCastGObject #-} - -castToCounter :: IsGObject obj => obj -> IO Counter -castToCounter = castTo gTypeCounter "Counter" - -foreign import javascript unsafe "window[\"Counter\"]" gTypeCounter :: GType - --- | Functions for this inteface are in "GHCJS.DOM.Crypto". --- --- -newtype Crypto = Crypto { unCrypto :: JSVal } - -instance Eq (Crypto) where - (Crypto a) == (Crypto b) = js_eq a b - -instance PToJSVal Crypto where - pToJSVal = unCrypto - {-# INLINE pToJSVal #-} - -instance PFromJSVal Crypto where - pFromJSVal = Crypto - {-# INLINE pFromJSVal #-} - -instance ToJSVal Crypto where - toJSVal = return . unCrypto - {-# INLINE toJSVal #-} - -instance FromJSVal Crypto where - fromJSVal = return . fmap Crypto . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsGObject Crypto where - toGObject = GObject . unCrypto - {-# INLINE toGObject #-} - unsafeCastGObject = Crypto . unGObject - {-# INLINE unsafeCastGObject #-} - -castToCrypto :: IsGObject obj => obj -> IO Crypto -castToCrypto = castTo gTypeCrypto "Crypto" - -foreign import javascript unsafe "window[\"Crypto\"]" gTypeCrypto :: GType - --- | Functions for this inteface are in "GHCJS.DOM.CryptoKey". --- --- -newtype CryptoKey = CryptoKey { unCryptoKey :: JSVal } - -instance Eq (CryptoKey) where - (CryptoKey a) == (CryptoKey b) = js_eq a b - -instance PToJSVal CryptoKey where - pToJSVal = unCryptoKey - {-# INLINE pToJSVal #-} - -instance PFromJSVal CryptoKey where - pFromJSVal = CryptoKey - {-# INLINE pFromJSVal #-} - -instance ToJSVal CryptoKey where - toJSVal = return . unCryptoKey - {-# INLINE toJSVal #-} - -instance FromJSVal CryptoKey where - fromJSVal = return . fmap CryptoKey . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsGObject CryptoKey where - toGObject = GObject . unCryptoKey - {-# INLINE toGObject #-} - unsafeCastGObject = CryptoKey . unGObject - {-# INLINE unsafeCastGObject #-} - -castToCryptoKey :: IsGObject obj => obj -> IO CryptoKey -castToCryptoKey = castTo gTypeCryptoKey "CryptoKey" - -foreign import javascript unsafe "window[\"CryptoKey\"]" gTypeCryptoKey :: GType - --- | Functions for this inteface are in "GHCJS.DOM.CryptoKeyPair". --- --- -newtype CryptoKeyPair = CryptoKeyPair { unCryptoKeyPair :: JSVal } - -instance Eq (CryptoKeyPair) where - (CryptoKeyPair a) == (CryptoKeyPair b) = js_eq a b - -instance PToJSVal CryptoKeyPair where - pToJSVal = unCryptoKeyPair - {-# INLINE pToJSVal #-} - -instance PFromJSVal CryptoKeyPair where - pFromJSVal = CryptoKeyPair - {-# INLINE pFromJSVal #-} - -instance ToJSVal CryptoKeyPair where - toJSVal = return . unCryptoKeyPair - {-# INLINE toJSVal #-} - -instance FromJSVal CryptoKeyPair where - fromJSVal = return . fmap CryptoKeyPair . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsGObject CryptoKeyPair where - toGObject = GObject . unCryptoKeyPair - {-# INLINE toGObject #-} - unsafeCastGObject = CryptoKeyPair . unGObject - {-# INLINE unsafeCastGObject #-} - -castToCryptoKeyPair :: IsGObject obj => obj -> IO CryptoKeyPair -castToCryptoKeyPair = castTo gTypeCryptoKeyPair "CryptoKeyPair" - -foreign import javascript unsafe "window[\"CryptoKeyPair\"]" gTypeCryptoKeyPair :: GType - --- | Functions for this inteface are in "GHCJS.DOM.CustomEvent". --- Base interface functions are in: --- --- * "GHCJS.DOM.Event" --- --- -newtype CustomEvent = CustomEvent { unCustomEvent :: JSVal } - -instance Eq (CustomEvent) where - (CustomEvent a) == (CustomEvent b) = js_eq a b - -instance PToJSVal CustomEvent where - pToJSVal = unCustomEvent - {-# INLINE pToJSVal #-} - -instance PFromJSVal CustomEvent where - pFromJSVal = CustomEvent - {-# INLINE pFromJSVal #-} - -instance ToJSVal CustomEvent where - toJSVal = return . unCustomEvent - {-# INLINE toJSVal #-} - -instance FromJSVal CustomEvent where - fromJSVal = return . fmap CustomEvent . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsEvent CustomEvent -instance IsGObject CustomEvent where - toGObject = GObject . unCustomEvent - {-# INLINE toGObject #-} - unsafeCastGObject = CustomEvent . unGObject - {-# INLINE unsafeCastGObject #-} - -castToCustomEvent :: IsGObject obj => obj -> IO CustomEvent -castToCustomEvent = castTo gTypeCustomEvent "CustomEvent" - -foreign import javascript unsafe "window[\"CustomEvent\"]" gTypeCustomEvent :: GType - --- | Functions for this inteface are in "GHCJS.DOM.DOMError". --- --- -newtype DOMError = DOMError { unDOMError :: JSVal } - -instance Eq (DOMError) where - (DOMError a) == (DOMError b) = js_eq a b - -instance PToJSVal DOMError where - pToJSVal = unDOMError - {-# INLINE pToJSVal #-} - -instance PFromJSVal DOMError where - pFromJSVal = DOMError - {-# INLINE pFromJSVal #-} - -instance ToJSVal DOMError where - toJSVal = return . unDOMError - {-# INLINE toJSVal #-} - -instance FromJSVal DOMError where - fromJSVal = return . fmap DOMError . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -class IsGObject o => IsDOMError o -toDOMError :: IsDOMError o => o -> DOMError -toDOMError = unsafeCastGObject . toGObject - -instance IsDOMError DOMError -instance IsGObject DOMError where - toGObject = GObject . unDOMError - {-# INLINE toGObject #-} - unsafeCastGObject = DOMError . unGObject - {-# INLINE unsafeCastGObject #-} - -castToDOMError :: IsGObject obj => obj -> IO DOMError -castToDOMError = castTo gTypeDOMError "DOMError" - -foreign import javascript unsafe "window[\"DOMError\"]" gTypeDOMError :: GType - --- | Functions for this inteface are in "GHCJS.DOM.DOMImplementation". --- --- -newtype DOMImplementation = DOMImplementation { unDOMImplementation :: JSVal } - -instance Eq (DOMImplementation) where - (DOMImplementation a) == (DOMImplementation b) = js_eq a b - -instance PToJSVal DOMImplementation where - pToJSVal = unDOMImplementation - {-# INLINE pToJSVal #-} - -instance PFromJSVal DOMImplementation where - pFromJSVal = DOMImplementation - {-# INLINE pFromJSVal #-} - -instance ToJSVal DOMImplementation where - toJSVal = return . unDOMImplementation - {-# INLINE toJSVal #-} - -instance FromJSVal DOMImplementation where - fromJSVal = return . fmap DOMImplementation . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsGObject DOMImplementation where - toGObject = GObject . unDOMImplementation - {-# INLINE toGObject #-} - unsafeCastGObject = DOMImplementation . unGObject - {-# INLINE unsafeCastGObject #-} - -castToDOMImplementation :: IsGObject obj => obj -> IO DOMImplementation -castToDOMImplementation = castTo gTypeDOMImplementation "DOMImplementation" - -foreign import javascript unsafe "window[\"DOMImplementation\"]" gTypeDOMImplementation :: GType - --- | Functions for this inteface are in "GHCJS.DOM.DOMNamedFlowCollection". --- --- -newtype DOMNamedFlowCollection = DOMNamedFlowCollection { unDOMNamedFlowCollection :: JSVal } - -instance Eq (DOMNamedFlowCollection) where - (DOMNamedFlowCollection a) == (DOMNamedFlowCollection b) = js_eq a b - -instance PToJSVal DOMNamedFlowCollection where - pToJSVal = unDOMNamedFlowCollection - {-# INLINE pToJSVal #-} - -instance PFromJSVal DOMNamedFlowCollection where - pFromJSVal = DOMNamedFlowCollection - {-# INLINE pFromJSVal #-} - -instance ToJSVal DOMNamedFlowCollection where - toJSVal = return . unDOMNamedFlowCollection - {-# INLINE toJSVal #-} - -instance FromJSVal DOMNamedFlowCollection where - fromJSVal = return . fmap DOMNamedFlowCollection . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsGObject DOMNamedFlowCollection where - toGObject = GObject . unDOMNamedFlowCollection - {-# INLINE toGObject #-} - unsafeCastGObject = DOMNamedFlowCollection . unGObject - {-# INLINE unsafeCastGObject #-} - -castToDOMNamedFlowCollection :: IsGObject obj => obj -> IO DOMNamedFlowCollection -castToDOMNamedFlowCollection = castTo gTypeDOMNamedFlowCollection "DOMNamedFlowCollection" - -foreign import javascript unsafe "window[\"WebKitNamedFlowCollection\"]" gTypeDOMNamedFlowCollection :: GType - --- | Functions for this inteface are in "GHCJS.DOM.DOMParser". --- --- -newtype DOMParser = DOMParser { unDOMParser :: JSVal } - -instance Eq (DOMParser) where - (DOMParser a) == (DOMParser b) = js_eq a b - -instance PToJSVal DOMParser where - pToJSVal = unDOMParser - {-# INLINE pToJSVal #-} - -instance PFromJSVal DOMParser where - pFromJSVal = DOMParser - {-# INLINE pFromJSVal #-} - -instance ToJSVal DOMParser where - toJSVal = return . unDOMParser - {-# INLINE toJSVal #-} - -instance FromJSVal DOMParser where - fromJSVal = return . fmap DOMParser . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsGObject DOMParser where - toGObject = GObject . unDOMParser - {-# INLINE toGObject #-} - unsafeCastGObject = DOMParser . unGObject - {-# INLINE unsafeCastGObject #-} - -castToDOMParser :: IsGObject obj => obj -> IO DOMParser -castToDOMParser = castTo gTypeDOMParser "DOMParser" - -foreign import javascript unsafe "window[\"DOMParser\"]" gTypeDOMParser :: GType - --- | Functions for this inteface are in "GHCJS.DOM.DOMSettableTokenList". --- Base interface functions are in: --- --- * "GHCJS.DOM.DOMTokenList" --- --- -newtype DOMSettableTokenList = DOMSettableTokenList { unDOMSettableTokenList :: JSVal } - -instance Eq (DOMSettableTokenList) where - (DOMSettableTokenList a) == (DOMSettableTokenList b) = js_eq a b - -instance PToJSVal DOMSettableTokenList where - pToJSVal = unDOMSettableTokenList - {-# INLINE pToJSVal #-} - -instance PFromJSVal DOMSettableTokenList where - pFromJSVal = DOMSettableTokenList - {-# INLINE pFromJSVal #-} - -instance ToJSVal DOMSettableTokenList where - toJSVal = return . unDOMSettableTokenList - {-# INLINE toJSVal #-} - -instance FromJSVal DOMSettableTokenList where - fromJSVal = return . fmap DOMSettableTokenList . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsDOMTokenList DOMSettableTokenList -instance IsGObject DOMSettableTokenList where - toGObject = GObject . unDOMSettableTokenList - {-# INLINE toGObject #-} - unsafeCastGObject = DOMSettableTokenList . unGObject - {-# INLINE unsafeCastGObject #-} - -castToDOMSettableTokenList :: IsGObject obj => obj -> IO DOMSettableTokenList -castToDOMSettableTokenList = castTo gTypeDOMSettableTokenList "DOMSettableTokenList" - -foreign import javascript unsafe "window[\"DOMSettableTokenList\"]" gTypeDOMSettableTokenList :: GType - --- | Functions for this inteface are in "GHCJS.DOM.DOMStringList". --- --- -newtype DOMStringList = DOMStringList { unDOMStringList :: JSVal } - -instance Eq (DOMStringList) where - (DOMStringList a) == (DOMStringList b) = js_eq a b - -instance PToJSVal DOMStringList where - pToJSVal = unDOMStringList - {-# INLINE pToJSVal #-} - -instance PFromJSVal DOMStringList where - pFromJSVal = DOMStringList - {-# INLINE pFromJSVal #-} - -instance ToJSVal DOMStringList where - toJSVal = return . unDOMStringList - {-# INLINE toJSVal #-} - -instance FromJSVal DOMStringList where - fromJSVal = return . fmap DOMStringList . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsGObject DOMStringList where - toGObject = GObject . unDOMStringList - {-# INLINE toGObject #-} - unsafeCastGObject = DOMStringList . unGObject - {-# INLINE unsafeCastGObject #-} - -castToDOMStringList :: IsGObject obj => obj -> IO DOMStringList -castToDOMStringList = castTo gTypeDOMStringList "DOMStringList" - -foreign import javascript unsafe "window[\"DOMStringList\"]" gTypeDOMStringList :: GType - --- | Functions for this inteface are in "GHCJS.DOM.DOMStringMap". --- --- -newtype DOMStringMap = DOMStringMap { unDOMStringMap :: JSVal } - -instance Eq (DOMStringMap) where - (DOMStringMap a) == (DOMStringMap b) = js_eq a b - -instance PToJSVal DOMStringMap where - pToJSVal = unDOMStringMap - {-# INLINE pToJSVal #-} - -instance PFromJSVal DOMStringMap where - pFromJSVal = DOMStringMap - {-# INLINE pFromJSVal #-} - -instance ToJSVal DOMStringMap where - toJSVal = return . unDOMStringMap - {-# INLINE toJSVal #-} - -instance FromJSVal DOMStringMap where - fromJSVal = return . fmap DOMStringMap . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsGObject DOMStringMap where - toGObject = GObject . unDOMStringMap - {-# INLINE toGObject #-} - unsafeCastGObject = DOMStringMap . unGObject - {-# INLINE unsafeCastGObject #-} - -castToDOMStringMap :: IsGObject obj => obj -> IO DOMStringMap -castToDOMStringMap = castTo gTypeDOMStringMap "DOMStringMap" - -foreign import javascript unsafe "window[\"DOMStringMap\"]" gTypeDOMStringMap :: GType - --- | Functions for this inteface are in "GHCJS.DOM.DOMTokenList". --- --- -newtype DOMTokenList = DOMTokenList { unDOMTokenList :: JSVal } - -instance Eq (DOMTokenList) where - (DOMTokenList a) == (DOMTokenList b) = js_eq a b - -instance PToJSVal DOMTokenList where - pToJSVal = unDOMTokenList - {-# INLINE pToJSVal #-} - -instance PFromJSVal DOMTokenList where - pFromJSVal = DOMTokenList - {-# INLINE pFromJSVal #-} - -instance ToJSVal DOMTokenList where - toJSVal = return . unDOMTokenList - {-# INLINE toJSVal #-} - -instance FromJSVal DOMTokenList where - fromJSVal = return . fmap DOMTokenList . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -class IsGObject o => IsDOMTokenList o -toDOMTokenList :: IsDOMTokenList o => o -> DOMTokenList -toDOMTokenList = unsafeCastGObject . toGObject - -instance IsDOMTokenList DOMTokenList -instance IsGObject DOMTokenList where - toGObject = GObject . unDOMTokenList - {-# INLINE toGObject #-} - unsafeCastGObject = DOMTokenList . unGObject - {-# INLINE unsafeCastGObject #-} - -castToDOMTokenList :: IsGObject obj => obj -> IO DOMTokenList -castToDOMTokenList = castTo gTypeDOMTokenList "DOMTokenList" - -foreign import javascript unsafe "window[\"DOMTokenList\"]" gTypeDOMTokenList :: GType - --- | Functions for this inteface are in "GHCJS.DOM.DataCue". --- Base interface functions are in: --- --- * "GHCJS.DOM.TextTrackCue" --- * "GHCJS.DOM.EventTarget" --- --- -newtype DataCue = DataCue { unDataCue :: JSVal } - -instance Eq (DataCue) where - (DataCue a) == (DataCue b) = js_eq a b - -instance PToJSVal DataCue where - pToJSVal = unDataCue - {-# INLINE pToJSVal #-} - -instance PFromJSVal DataCue where - pFromJSVal = DataCue - {-# INLINE pFromJSVal #-} - -instance ToJSVal DataCue where - toJSVal = return . unDataCue - {-# INLINE toJSVal #-} - -instance FromJSVal DataCue where - fromJSVal = return . fmap DataCue . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsTextTrackCue DataCue -instance IsEventTarget DataCue -instance IsGObject DataCue where - toGObject = GObject . unDataCue - {-# INLINE toGObject #-} - unsafeCastGObject = DataCue . unGObject - {-# INLINE unsafeCastGObject #-} - -castToDataCue :: IsGObject obj => obj -> IO DataCue -castToDataCue = castTo gTypeDataCue "DataCue" - -foreign import javascript unsafe "window[\"WebKitDataCue\"]" gTypeDataCue :: GType - --- | Functions for this inteface are in "GHCJS.DOM.DataTransfer". --- --- -newtype DataTransfer = DataTransfer { unDataTransfer :: JSVal } - -instance Eq (DataTransfer) where - (DataTransfer a) == (DataTransfer b) = js_eq a b - -instance PToJSVal DataTransfer where - pToJSVal = unDataTransfer - {-# INLINE pToJSVal #-} - -instance PFromJSVal DataTransfer where - pFromJSVal = DataTransfer - {-# INLINE pFromJSVal #-} - -instance ToJSVal DataTransfer where - toJSVal = return . unDataTransfer - {-# INLINE toJSVal #-} - -instance FromJSVal DataTransfer where - fromJSVal = return . fmap DataTransfer . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsGObject DataTransfer where - toGObject = GObject . unDataTransfer - {-# INLINE toGObject #-} - unsafeCastGObject = DataTransfer . unGObject - {-# INLINE unsafeCastGObject #-} - -castToDataTransfer :: IsGObject obj => obj -> IO DataTransfer -castToDataTransfer = castTo gTypeDataTransfer "DataTransfer" - -foreign import javascript unsafe "window[\"DataTransfer\"]" gTypeDataTransfer :: GType - --- | Functions for this inteface are in "GHCJS.DOM.DataTransferItem". --- --- -newtype DataTransferItem = DataTransferItem { unDataTransferItem :: JSVal } - -instance Eq (DataTransferItem) where - (DataTransferItem a) == (DataTransferItem b) = js_eq a b - -instance PToJSVal DataTransferItem where - pToJSVal = unDataTransferItem - {-# INLINE pToJSVal #-} - -instance PFromJSVal DataTransferItem where - pFromJSVal = DataTransferItem - {-# INLINE pFromJSVal #-} - -instance ToJSVal DataTransferItem where - toJSVal = return . unDataTransferItem - {-# INLINE toJSVal #-} - -instance FromJSVal DataTransferItem where - fromJSVal = return . fmap DataTransferItem . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsGObject DataTransferItem where - toGObject = GObject . unDataTransferItem - {-# INLINE toGObject #-} - unsafeCastGObject = DataTransferItem . unGObject - {-# INLINE unsafeCastGObject #-} - -castToDataTransferItem :: IsGObject obj => obj -> IO DataTransferItem -castToDataTransferItem = castTo gTypeDataTransferItem "DataTransferItem" - -foreign import javascript unsafe "window[\"DataTransferItem\"]" gTypeDataTransferItem :: GType - --- | Functions for this inteface are in "GHCJS.DOM.DataTransferItemList". --- --- -newtype DataTransferItemList = DataTransferItemList { unDataTransferItemList :: JSVal } - -instance Eq (DataTransferItemList) where - (DataTransferItemList a) == (DataTransferItemList b) = js_eq a b - -instance PToJSVal DataTransferItemList where - pToJSVal = unDataTransferItemList - {-# INLINE pToJSVal #-} - -instance PFromJSVal DataTransferItemList where - pFromJSVal = DataTransferItemList - {-# INLINE pFromJSVal #-} - -instance ToJSVal DataTransferItemList where - toJSVal = return . unDataTransferItemList - {-# INLINE toJSVal #-} - -instance FromJSVal DataTransferItemList where - fromJSVal = return . fmap DataTransferItemList . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsGObject DataTransferItemList where - toGObject = GObject . unDataTransferItemList - {-# INLINE toGObject #-} - unsafeCastGObject = DataTransferItemList . unGObject - {-# INLINE unsafeCastGObject #-} - -castToDataTransferItemList :: IsGObject obj => obj -> IO DataTransferItemList -castToDataTransferItemList = castTo gTypeDataTransferItemList "DataTransferItemList" - -foreign import javascript unsafe "window[\"DataTransferItemList\"]" gTypeDataTransferItemList :: GType - --- | Functions for this inteface are in "GHCJS.DOM.Database". --- --- -newtype Database = Database { unDatabase :: JSVal } - -instance Eq (Database) where - (Database a) == (Database b) = js_eq a b - -instance PToJSVal Database where - pToJSVal = unDatabase - {-# INLINE pToJSVal #-} - -instance PFromJSVal Database where - pFromJSVal = Database - {-# INLINE pFromJSVal #-} - -instance ToJSVal Database where - toJSVal = return . unDatabase - {-# INLINE toJSVal #-} - -instance FromJSVal Database where - fromJSVal = return . fmap Database . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsGObject Database where - toGObject = GObject . unDatabase - {-# INLINE toGObject #-} - unsafeCastGObject = Database . unGObject - {-# INLINE unsafeCastGObject #-} - -castToDatabase :: IsGObject obj => obj -> IO Database -castToDatabase = castTo gTypeDatabase "Database" - -foreign import javascript unsafe "window[\"Database\"]" gTypeDatabase :: GType - --- | Functions for this inteface are in "GHCJS.DOM.DedicatedWorkerGlobalScope". --- Base interface functions are in: --- --- * "GHCJS.DOM.WorkerGlobalScope" --- * "GHCJS.DOM.EventTarget" --- --- -newtype DedicatedWorkerGlobalScope = DedicatedWorkerGlobalScope { unDedicatedWorkerGlobalScope :: JSVal } - -instance Eq (DedicatedWorkerGlobalScope) where - (DedicatedWorkerGlobalScope a) == (DedicatedWorkerGlobalScope b) = js_eq a b - -instance PToJSVal DedicatedWorkerGlobalScope where - pToJSVal = unDedicatedWorkerGlobalScope - {-# INLINE pToJSVal #-} - -instance PFromJSVal DedicatedWorkerGlobalScope where - pFromJSVal = DedicatedWorkerGlobalScope - {-# INLINE pFromJSVal #-} - -instance ToJSVal DedicatedWorkerGlobalScope where - toJSVal = return . unDedicatedWorkerGlobalScope - {-# INLINE toJSVal #-} - -instance FromJSVal DedicatedWorkerGlobalScope where - fromJSVal = return . fmap DedicatedWorkerGlobalScope . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsWorkerGlobalScope DedicatedWorkerGlobalScope -instance IsEventTarget DedicatedWorkerGlobalScope -instance IsGObject DedicatedWorkerGlobalScope where - toGObject = GObject . unDedicatedWorkerGlobalScope - {-# INLINE toGObject #-} - unsafeCastGObject = DedicatedWorkerGlobalScope . unGObject - {-# INLINE unsafeCastGObject #-} - -castToDedicatedWorkerGlobalScope :: IsGObject obj => obj -> IO DedicatedWorkerGlobalScope -castToDedicatedWorkerGlobalScope = castTo gTypeDedicatedWorkerGlobalScope "DedicatedWorkerGlobalScope" - -foreign import javascript unsafe "window[\"DedicatedWorkerGlobalScope\"]" gTypeDedicatedWorkerGlobalScope :: GType - --- | Functions for this inteface are in "GHCJS.DOM.DelayNode". --- Base interface functions are in: --- --- * "GHCJS.DOM.AudioNode" --- * "GHCJS.DOM.EventTarget" --- --- -newtype DelayNode = DelayNode { unDelayNode :: JSVal } - -instance Eq (DelayNode) where - (DelayNode a) == (DelayNode b) = js_eq a b - -instance PToJSVal DelayNode where - pToJSVal = unDelayNode - {-# INLINE pToJSVal #-} - -instance PFromJSVal DelayNode where - pFromJSVal = DelayNode - {-# INLINE pFromJSVal #-} - -instance ToJSVal DelayNode where - toJSVal = return . unDelayNode - {-# INLINE toJSVal #-} - -instance FromJSVal DelayNode where - fromJSVal = return . fmap DelayNode . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsAudioNode DelayNode -instance IsEventTarget DelayNode -instance IsGObject DelayNode where - toGObject = GObject . unDelayNode - {-# INLINE toGObject #-} - unsafeCastGObject = DelayNode . unGObject - {-# INLINE unsafeCastGObject #-} - -castToDelayNode :: IsGObject obj => obj -> IO DelayNode -castToDelayNode = castTo gTypeDelayNode "DelayNode" - -foreign import javascript unsafe "window[\"DelayNode\"]" gTypeDelayNode :: GType - --- | Functions for this inteface are in "GHCJS.DOM.DeviceMotionEvent". --- Base interface functions are in: --- --- * "GHCJS.DOM.Event" --- --- -newtype DeviceMotionEvent = DeviceMotionEvent { unDeviceMotionEvent :: JSVal } - -instance Eq (DeviceMotionEvent) where - (DeviceMotionEvent a) == (DeviceMotionEvent b) = js_eq a b - -instance PToJSVal DeviceMotionEvent where - pToJSVal = unDeviceMotionEvent - {-# INLINE pToJSVal #-} - -instance PFromJSVal DeviceMotionEvent where - pFromJSVal = DeviceMotionEvent - {-# INLINE pFromJSVal #-} - -instance ToJSVal DeviceMotionEvent where - toJSVal = return . unDeviceMotionEvent - {-# INLINE toJSVal #-} - -instance FromJSVal DeviceMotionEvent where - fromJSVal = return . fmap DeviceMotionEvent . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsEvent DeviceMotionEvent -instance IsGObject DeviceMotionEvent where - toGObject = GObject . unDeviceMotionEvent - {-# INLINE toGObject #-} - unsafeCastGObject = DeviceMotionEvent . unGObject - {-# INLINE unsafeCastGObject #-} - -castToDeviceMotionEvent :: IsGObject obj => obj -> IO DeviceMotionEvent -castToDeviceMotionEvent = castTo gTypeDeviceMotionEvent "DeviceMotionEvent" - -foreign import javascript unsafe "window[\"DeviceMotionEvent\"]" gTypeDeviceMotionEvent :: GType - --- | Functions for this inteface are in "GHCJS.DOM.DeviceOrientationEvent". --- Base interface functions are in: --- --- * "GHCJS.DOM.Event" --- --- -newtype DeviceOrientationEvent = DeviceOrientationEvent { unDeviceOrientationEvent :: JSVal } - -instance Eq (DeviceOrientationEvent) where - (DeviceOrientationEvent a) == (DeviceOrientationEvent b) = js_eq a b - -instance PToJSVal DeviceOrientationEvent where - pToJSVal = unDeviceOrientationEvent - {-# INLINE pToJSVal #-} - -instance PFromJSVal DeviceOrientationEvent where - pFromJSVal = DeviceOrientationEvent - {-# INLINE pFromJSVal #-} - -instance ToJSVal DeviceOrientationEvent where - toJSVal = return . unDeviceOrientationEvent - {-# INLINE toJSVal #-} - -instance FromJSVal DeviceOrientationEvent where - fromJSVal = return . fmap DeviceOrientationEvent . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsEvent DeviceOrientationEvent -instance IsGObject DeviceOrientationEvent where - toGObject = GObject . unDeviceOrientationEvent - {-# INLINE toGObject #-} - unsafeCastGObject = DeviceOrientationEvent . unGObject - {-# INLINE unsafeCastGObject #-} - -castToDeviceOrientationEvent :: IsGObject obj => obj -> IO DeviceOrientationEvent -castToDeviceOrientationEvent = castTo gTypeDeviceOrientationEvent "DeviceOrientationEvent" - -foreign import javascript unsafe "window[\"DeviceOrientationEvent\"]" gTypeDeviceOrientationEvent :: GType - --- | Functions for this inteface are in "GHCJS.DOM.DeviceProximityEvent". --- Base interface functions are in: --- --- * "GHCJS.DOM.Event" --- --- -newtype DeviceProximityEvent = DeviceProximityEvent { unDeviceProximityEvent :: JSVal } - -instance Eq (DeviceProximityEvent) where - (DeviceProximityEvent a) == (DeviceProximityEvent b) = js_eq a b - -instance PToJSVal DeviceProximityEvent where - pToJSVal = unDeviceProximityEvent - {-# INLINE pToJSVal #-} - -instance PFromJSVal DeviceProximityEvent where - pFromJSVal = DeviceProximityEvent - {-# INLINE pFromJSVal #-} - -instance ToJSVal DeviceProximityEvent where - toJSVal = return . unDeviceProximityEvent - {-# INLINE toJSVal #-} - -instance FromJSVal DeviceProximityEvent where - fromJSVal = return . fmap DeviceProximityEvent . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsEvent DeviceProximityEvent -instance IsGObject DeviceProximityEvent where - toGObject = GObject . unDeviceProximityEvent - {-# INLINE toGObject #-} - unsafeCastGObject = DeviceProximityEvent . unGObject - {-# INLINE unsafeCastGObject #-} - -castToDeviceProximityEvent :: IsGObject obj => obj -> IO DeviceProximityEvent -castToDeviceProximityEvent = castTo gTypeDeviceProximityEvent "DeviceProximityEvent" - -foreign import javascript unsafe "window[\"DeviceProximityEvent\"]" gTypeDeviceProximityEvent :: GType - --- | Functions for this inteface are in "GHCJS.DOM.Document". --- Base interface functions are in: --- --- * "GHCJS.DOM.Node" --- * "GHCJS.DOM.EventTarget" --- --- -newtype Document = Document { unDocument :: JSVal } - -instance Eq (Document) where - (Document a) == (Document b) = js_eq a b - -instance PToJSVal Document where - pToJSVal = unDocument - {-# INLINE pToJSVal #-} - -instance PFromJSVal Document where - pFromJSVal = Document - {-# INLINE pFromJSVal #-} - -instance ToJSVal Document where - toJSVal = return . unDocument - {-# INLINE toJSVal #-} - -instance FromJSVal Document where - fromJSVal = return . fmap Document . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -class IsNode o => IsDocument o -toDocument :: IsDocument o => o -> Document -toDocument = unsafeCastGObject . toGObject - -instance IsDocument Document -instance IsNode Document -instance IsEventTarget Document -instance IsGObject Document where - toGObject = GObject . unDocument - {-# INLINE toGObject #-} - unsafeCastGObject = Document . unGObject - {-# INLINE unsafeCastGObject #-} - -castToDocument :: IsGObject obj => obj -> IO Document -castToDocument = castTo gTypeDocument "Document" - -foreign import javascript unsafe "window[\"Document\"]" gTypeDocument :: GType - --- | Functions for this inteface are in "GHCJS.DOM.DocumentFragment". --- Base interface functions are in: --- --- * "GHCJS.DOM.Node" --- * "GHCJS.DOM.EventTarget" --- --- -newtype DocumentFragment = DocumentFragment { unDocumentFragment :: JSVal } - -instance Eq (DocumentFragment) where - (DocumentFragment a) == (DocumentFragment b) = js_eq a b - -instance PToJSVal DocumentFragment where - pToJSVal = unDocumentFragment - {-# INLINE pToJSVal #-} - -instance PFromJSVal DocumentFragment where - pFromJSVal = DocumentFragment - {-# INLINE pFromJSVal #-} - -instance ToJSVal DocumentFragment where - toJSVal = return . unDocumentFragment - {-# INLINE toJSVal #-} - -instance FromJSVal DocumentFragment where - fromJSVal = return . fmap DocumentFragment . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsNode DocumentFragment -instance IsEventTarget DocumentFragment -instance IsGObject DocumentFragment where - toGObject = GObject . unDocumentFragment - {-# INLINE toGObject #-} - unsafeCastGObject = DocumentFragment . unGObject - {-# INLINE unsafeCastGObject #-} - -castToDocumentFragment :: IsGObject obj => obj -> IO DocumentFragment -castToDocumentFragment = castTo gTypeDocumentFragment "DocumentFragment" - -foreign import javascript unsafe "window[\"DocumentFragment\"]" gTypeDocumentFragment :: GType - --- | Functions for this inteface are in "GHCJS.DOM.DocumentType". --- Base interface functions are in: --- --- * "GHCJS.DOM.Node" --- * "GHCJS.DOM.EventTarget" --- --- -newtype DocumentType = DocumentType { unDocumentType :: JSVal } - -instance Eq (DocumentType) where - (DocumentType a) == (DocumentType b) = js_eq a b - -instance PToJSVal DocumentType where - pToJSVal = unDocumentType - {-# INLINE pToJSVal #-} - -instance PFromJSVal DocumentType where - pFromJSVal = DocumentType - {-# INLINE pFromJSVal #-} - -instance ToJSVal DocumentType where - toJSVal = return . unDocumentType - {-# INLINE toJSVal #-} - -instance FromJSVal DocumentType where - fromJSVal = return . fmap DocumentType . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsNode DocumentType -instance IsEventTarget DocumentType -instance IsGObject DocumentType where - toGObject = GObject . unDocumentType - {-# INLINE toGObject #-} - unsafeCastGObject = DocumentType . unGObject - {-# INLINE unsafeCastGObject #-} - -castToDocumentType :: IsGObject obj => obj -> IO DocumentType -castToDocumentType = castTo gTypeDocumentType "DocumentType" - -foreign import javascript unsafe "window[\"DocumentType\"]" gTypeDocumentType :: GType - --- | Functions for this inteface are in "GHCJS.DOM.DynamicsCompressorNode". --- Base interface functions are in: --- --- * "GHCJS.DOM.AudioNode" --- * "GHCJS.DOM.EventTarget" --- --- -newtype DynamicsCompressorNode = DynamicsCompressorNode { unDynamicsCompressorNode :: JSVal } - -instance Eq (DynamicsCompressorNode) where - (DynamicsCompressorNode a) == (DynamicsCompressorNode b) = js_eq a b - -instance PToJSVal DynamicsCompressorNode where - pToJSVal = unDynamicsCompressorNode - {-# INLINE pToJSVal #-} - -instance PFromJSVal DynamicsCompressorNode where - pFromJSVal = DynamicsCompressorNode - {-# INLINE pFromJSVal #-} - -instance ToJSVal DynamicsCompressorNode where - toJSVal = return . unDynamicsCompressorNode - {-# INLINE toJSVal #-} - -instance FromJSVal DynamicsCompressorNode where - fromJSVal = return . fmap DynamicsCompressorNode . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsAudioNode DynamicsCompressorNode -instance IsEventTarget DynamicsCompressorNode -instance IsGObject DynamicsCompressorNode where - toGObject = GObject . unDynamicsCompressorNode - {-# INLINE toGObject #-} - unsafeCastGObject = DynamicsCompressorNode . unGObject - {-# INLINE unsafeCastGObject #-} - -castToDynamicsCompressorNode :: IsGObject obj => obj -> IO DynamicsCompressorNode -castToDynamicsCompressorNode = castTo gTypeDynamicsCompressorNode "DynamicsCompressorNode" - -foreign import javascript unsafe "window[\"DynamicsCompressorNode\"]" gTypeDynamicsCompressorNode :: GType - --- | Functions for this inteface are in "GHCJS.DOM.EXTBlendMinMax". --- --- -newtype EXTBlendMinMax = EXTBlendMinMax { unEXTBlendMinMax :: JSVal } - -instance Eq (EXTBlendMinMax) where - (EXTBlendMinMax a) == (EXTBlendMinMax b) = js_eq a b - -instance PToJSVal EXTBlendMinMax where - pToJSVal = unEXTBlendMinMax - {-# INLINE pToJSVal #-} - -instance PFromJSVal EXTBlendMinMax where - pFromJSVal = EXTBlendMinMax - {-# INLINE pFromJSVal #-} - -instance ToJSVal EXTBlendMinMax where - toJSVal = return . unEXTBlendMinMax - {-# INLINE toJSVal #-} - -instance FromJSVal EXTBlendMinMax where - fromJSVal = return . fmap EXTBlendMinMax . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsGObject EXTBlendMinMax where - toGObject = GObject . unEXTBlendMinMax - {-# INLINE toGObject #-} - unsafeCastGObject = EXTBlendMinMax . unGObject - {-# INLINE unsafeCastGObject #-} - -castToEXTBlendMinMax :: IsGObject obj => obj -> IO EXTBlendMinMax -castToEXTBlendMinMax = castTo gTypeEXTBlendMinMax "EXTBlendMinMax" - -foreign import javascript unsafe "window[\"EXTBlendMinMax\"]" gTypeEXTBlendMinMax :: GType - --- | Functions for this inteface are in "GHCJS.DOM.EXTFragDepth". --- --- -newtype EXTFragDepth = EXTFragDepth { unEXTFragDepth :: JSVal } - -instance Eq (EXTFragDepth) where - (EXTFragDepth a) == (EXTFragDepth b) = js_eq a b - -instance PToJSVal EXTFragDepth where - pToJSVal = unEXTFragDepth - {-# INLINE pToJSVal #-} - -instance PFromJSVal EXTFragDepth where - pFromJSVal = EXTFragDepth - {-# INLINE pFromJSVal #-} - -instance ToJSVal EXTFragDepth where - toJSVal = return . unEXTFragDepth - {-# INLINE toJSVal #-} - -instance FromJSVal EXTFragDepth where - fromJSVal = return . fmap EXTFragDepth . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsGObject EXTFragDepth where - toGObject = GObject . unEXTFragDepth - {-# INLINE toGObject #-} - unsafeCastGObject = EXTFragDepth . unGObject - {-# INLINE unsafeCastGObject #-} - -castToEXTFragDepth :: IsGObject obj => obj -> IO EXTFragDepth -castToEXTFragDepth = castTo gTypeEXTFragDepth "EXTFragDepth" - -foreign import javascript unsafe "window[\"EXTFragDepth\"]" gTypeEXTFragDepth :: GType - --- | Functions for this inteface are in "GHCJS.DOM.EXTShaderTextureLOD". --- --- -newtype EXTShaderTextureLOD = EXTShaderTextureLOD { unEXTShaderTextureLOD :: JSVal } - -instance Eq (EXTShaderTextureLOD) where - (EXTShaderTextureLOD a) == (EXTShaderTextureLOD b) = js_eq a b - -instance PToJSVal EXTShaderTextureLOD where - pToJSVal = unEXTShaderTextureLOD - {-# INLINE pToJSVal #-} - -instance PFromJSVal EXTShaderTextureLOD where - pFromJSVal = EXTShaderTextureLOD - {-# INLINE pFromJSVal #-} - -instance ToJSVal EXTShaderTextureLOD where - toJSVal = return . unEXTShaderTextureLOD - {-# INLINE toJSVal #-} - -instance FromJSVal EXTShaderTextureLOD where - fromJSVal = return . fmap EXTShaderTextureLOD . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsGObject EXTShaderTextureLOD where - toGObject = GObject . unEXTShaderTextureLOD - {-# INLINE toGObject #-} - unsafeCastGObject = EXTShaderTextureLOD . unGObject - {-# INLINE unsafeCastGObject #-} - -castToEXTShaderTextureLOD :: IsGObject obj => obj -> IO EXTShaderTextureLOD -castToEXTShaderTextureLOD = castTo gTypeEXTShaderTextureLOD "EXTShaderTextureLOD" - -foreign import javascript unsafe "window[\"EXTShaderTextureLOD\"]" gTypeEXTShaderTextureLOD :: GType - --- | Functions for this inteface are in "GHCJS.DOM.EXTTextureFilterAnisotropic". --- --- -newtype EXTTextureFilterAnisotropic = EXTTextureFilterAnisotropic { unEXTTextureFilterAnisotropic :: JSVal } - -instance Eq (EXTTextureFilterAnisotropic) where - (EXTTextureFilterAnisotropic a) == (EXTTextureFilterAnisotropic b) = js_eq a b - -instance PToJSVal EXTTextureFilterAnisotropic where - pToJSVal = unEXTTextureFilterAnisotropic - {-# INLINE pToJSVal #-} - -instance PFromJSVal EXTTextureFilterAnisotropic where - pFromJSVal = EXTTextureFilterAnisotropic - {-# INLINE pFromJSVal #-} - -instance ToJSVal EXTTextureFilterAnisotropic where - toJSVal = return . unEXTTextureFilterAnisotropic - {-# INLINE toJSVal #-} - -instance FromJSVal EXTTextureFilterAnisotropic where - fromJSVal = return . fmap EXTTextureFilterAnisotropic . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsGObject EXTTextureFilterAnisotropic where - toGObject = GObject . unEXTTextureFilterAnisotropic - {-# INLINE toGObject #-} - unsafeCastGObject = EXTTextureFilterAnisotropic . unGObject - {-# INLINE unsafeCastGObject #-} - -castToEXTTextureFilterAnisotropic :: IsGObject obj => obj -> IO EXTTextureFilterAnisotropic -castToEXTTextureFilterAnisotropic = castTo gTypeEXTTextureFilterAnisotropic "EXTTextureFilterAnisotropic" - -foreign import javascript unsafe "window[\"EXTTextureFilterAnisotropic\"]" gTypeEXTTextureFilterAnisotropic :: GType - --- | Functions for this inteface are in "GHCJS.DOM.EXTsRGB". --- --- -newtype EXTsRGB = EXTsRGB { unEXTsRGB :: JSVal } - -instance Eq (EXTsRGB) where - (EXTsRGB a) == (EXTsRGB b) = js_eq a b - -instance PToJSVal EXTsRGB where - pToJSVal = unEXTsRGB - {-# INLINE pToJSVal #-} - -instance PFromJSVal EXTsRGB where - pFromJSVal = EXTsRGB - {-# INLINE pFromJSVal #-} - -instance ToJSVal EXTsRGB where - toJSVal = return . unEXTsRGB - {-# INLINE toJSVal #-} - -instance FromJSVal EXTsRGB where - fromJSVal = return . fmap EXTsRGB . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsGObject EXTsRGB where - toGObject = GObject . unEXTsRGB - {-# INLINE toGObject #-} - unsafeCastGObject = EXTsRGB . unGObject - {-# INLINE unsafeCastGObject #-} - -castToEXTsRGB :: IsGObject obj => obj -> IO EXTsRGB -castToEXTsRGB = castTo gTypeEXTsRGB "EXTsRGB" - -foreign import javascript unsafe "window[\"EXTsRGB\"]" gTypeEXTsRGB :: GType - --- | Functions for this inteface are in "GHCJS.DOM.Element". --- Base interface functions are in: --- --- * "GHCJS.DOM.Node" --- * "GHCJS.DOM.EventTarget" --- --- -newtype Element = Element { unElement :: JSVal } - -instance Eq (Element) where - (Element a) == (Element b) = js_eq a b - -instance PToJSVal Element where - pToJSVal = unElement - {-# INLINE pToJSVal #-} - -instance PFromJSVal Element where - pFromJSVal = Element - {-# INLINE pFromJSVal #-} - -instance ToJSVal Element where - toJSVal = return . unElement - {-# INLINE toJSVal #-} - -instance FromJSVal Element where - fromJSVal = return . fmap Element . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -class IsNode o => IsElement o -toElement :: IsElement o => o -> Element -toElement = unsafeCastGObject . toGObject - -instance IsElement Element -instance IsNode Element -instance IsEventTarget Element -instance IsGObject Element where - toGObject = GObject . unElement - {-# INLINE toGObject #-} - unsafeCastGObject = Element . unGObject - {-# INLINE unsafeCastGObject #-} - -castToElement :: IsGObject obj => obj -> IO Element -castToElement = castTo gTypeElement "Element" - -foreign import javascript unsafe "window[\"Element\"]" gTypeElement :: GType - --- | Functions for this inteface are in "GHCJS.DOM.Entity". --- Base interface functions are in: --- --- * "GHCJS.DOM.Node" --- * "GHCJS.DOM.EventTarget" --- --- -newtype Entity = Entity { unEntity :: JSVal } - -instance Eq (Entity) where - (Entity a) == (Entity b) = js_eq a b - -instance PToJSVal Entity where - pToJSVal = unEntity - {-# INLINE pToJSVal #-} - -instance PFromJSVal Entity where - pFromJSVal = Entity - {-# INLINE pFromJSVal #-} - -instance ToJSVal Entity where - toJSVal = return . unEntity - {-# INLINE toJSVal #-} - -instance FromJSVal Entity where - fromJSVal = return . fmap Entity . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsNode Entity -instance IsEventTarget Entity -instance IsGObject Entity where - toGObject = GObject . unEntity - {-# INLINE toGObject #-} - unsafeCastGObject = Entity . unGObject - {-# INLINE unsafeCastGObject #-} - -castToEntity :: IsGObject obj => obj -> IO Entity -castToEntity = castTo gTypeEntity "Entity" - -foreign import javascript unsafe "window[\"Entity\"]" gTypeEntity :: GType - --- | Functions for this inteface are in "GHCJS.DOM.EntityReference". --- Base interface functions are in: --- --- * "GHCJS.DOM.Node" --- * "GHCJS.DOM.EventTarget" --- --- -newtype EntityReference = EntityReference { unEntityReference :: JSVal } - -instance Eq (EntityReference) where - (EntityReference a) == (EntityReference b) = js_eq a b - -instance PToJSVal EntityReference where - pToJSVal = unEntityReference - {-# INLINE pToJSVal #-} - -instance PFromJSVal EntityReference where - pFromJSVal = EntityReference - {-# INLINE pFromJSVal #-} - -instance ToJSVal EntityReference where - toJSVal = return . unEntityReference - {-# INLINE toJSVal #-} - -instance FromJSVal EntityReference where - fromJSVal = return . fmap EntityReference . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsNode EntityReference -instance IsEventTarget EntityReference -instance IsGObject EntityReference where - toGObject = GObject . unEntityReference - {-# INLINE toGObject #-} - unsafeCastGObject = EntityReference . unGObject - {-# INLINE unsafeCastGObject #-} - -castToEntityReference :: IsGObject obj => obj -> IO EntityReference -castToEntityReference = castTo gTypeEntityReference "EntityReference" - -foreign import javascript unsafe "window[\"EntityReference\"]" gTypeEntityReference :: GType - --- | Functions for this inteface are in "GHCJS.DOM.ErrorEvent". --- Base interface functions are in: --- --- * "GHCJS.DOM.Event" --- --- -newtype ErrorEvent = ErrorEvent { unErrorEvent :: JSVal } - -instance Eq (ErrorEvent) where - (ErrorEvent a) == (ErrorEvent b) = js_eq a b - -instance PToJSVal ErrorEvent where - pToJSVal = unErrorEvent - {-# INLINE pToJSVal #-} - -instance PFromJSVal ErrorEvent where - pFromJSVal = ErrorEvent - {-# INLINE pFromJSVal #-} - -instance ToJSVal ErrorEvent where - toJSVal = return . unErrorEvent - {-# INLINE toJSVal #-} - -instance FromJSVal ErrorEvent where - fromJSVal = return . fmap ErrorEvent . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsEvent ErrorEvent -instance IsGObject ErrorEvent where - toGObject = GObject . unErrorEvent - {-# INLINE toGObject #-} - unsafeCastGObject = ErrorEvent . unGObject - {-# INLINE unsafeCastGObject #-} - -castToErrorEvent :: IsGObject obj => obj -> IO ErrorEvent -castToErrorEvent = castTo gTypeErrorEvent "ErrorEvent" - -foreign import javascript unsafe "window[\"ErrorEvent\"]" gTypeErrorEvent :: GType - --- | Functions for this inteface are in "GHCJS.DOM.Event". --- --- -newtype Event = Event { unEvent :: JSVal } - -instance Eq (Event) where - (Event a) == (Event b) = js_eq a b - -instance PToJSVal Event where - pToJSVal = unEvent - {-# INLINE pToJSVal #-} - -instance PFromJSVal Event where - pFromJSVal = Event - {-# INLINE pFromJSVal #-} - -instance ToJSVal Event where - toJSVal = return . unEvent - {-# INLINE toJSVal #-} - -instance FromJSVal Event where - fromJSVal = return . fmap Event . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -class IsGObject o => IsEvent o -toEvent :: IsEvent o => o -> Event -toEvent = unsafeCastGObject . toGObject - -instance IsEvent Event -instance IsGObject Event where - toGObject = GObject . unEvent - {-# INLINE toGObject #-} - unsafeCastGObject = Event . unGObject - {-# INLINE unsafeCastGObject #-} - -castToEvent :: IsGObject obj => obj -> IO Event -castToEvent = castTo gTypeEvent "Event" - -foreign import javascript unsafe "window[\"Event\"]" gTypeEvent :: GType - --- | Functions for this inteface are in "GHCJS.DOM.EventListener". --- --- -newtype EventListener = EventListener { unEventListener :: JSVal } - -instance Eq (EventListener) where - (EventListener a) == (EventListener b) = js_eq a b - -instance PToJSVal EventListener where - pToJSVal = unEventListener - {-# INLINE pToJSVal #-} - -instance PFromJSVal EventListener where - pFromJSVal = EventListener - {-# INLINE pFromJSVal #-} - -instance ToJSVal EventListener where - toJSVal = return . unEventListener - {-# INLINE toJSVal #-} - -instance FromJSVal EventListener where - fromJSVal = return . fmap EventListener . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsGObject EventListener where - toGObject = GObject . unEventListener - {-# INLINE toGObject #-} - unsafeCastGObject = EventListener . unGObject - {-# INLINE unsafeCastGObject #-} - -castToEventListener :: IsGObject obj => obj -> IO EventListener -castToEventListener = castTo gTypeEventListener "EventListener" - -foreign import javascript unsafe "window[\"EventListener\"]" gTypeEventListener :: GType - --- | Functions for this inteface are in "GHCJS.DOM.EventSource". --- Base interface functions are in: --- --- * "GHCJS.DOM.EventTarget" --- --- -newtype EventSource = EventSource { unEventSource :: JSVal } - -instance Eq (EventSource) where - (EventSource a) == (EventSource b) = js_eq a b - -instance PToJSVal EventSource where - pToJSVal = unEventSource - {-# INLINE pToJSVal #-} - -instance PFromJSVal EventSource where - pFromJSVal = EventSource - {-# INLINE pFromJSVal #-} - -instance ToJSVal EventSource where - toJSVal = return . unEventSource - {-# INLINE toJSVal #-} - -instance FromJSVal EventSource where - fromJSVal = return . fmap EventSource . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsEventTarget EventSource -instance IsGObject EventSource where - toGObject = GObject . unEventSource - {-# INLINE toGObject #-} - unsafeCastGObject = EventSource . unGObject - {-# INLINE unsafeCastGObject #-} - -castToEventSource :: IsGObject obj => obj -> IO EventSource -castToEventSource = castTo gTypeEventSource "EventSource" - -foreign import javascript unsafe "window[\"EventSource\"]" gTypeEventSource :: GType - --- | Functions for this inteface are in "GHCJS.DOM.EventTarget". --- --- -newtype EventTarget = EventTarget { unEventTarget :: JSVal } - -instance Eq (EventTarget) where - (EventTarget a) == (EventTarget b) = js_eq a b - -instance PToJSVal EventTarget where - pToJSVal = unEventTarget - {-# INLINE pToJSVal #-} - -instance PFromJSVal EventTarget where - pFromJSVal = EventTarget - {-# INLINE pFromJSVal #-} - -instance ToJSVal EventTarget where - toJSVal = return . unEventTarget - {-# INLINE toJSVal #-} - -instance FromJSVal EventTarget where - fromJSVal = return . fmap EventTarget . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -class IsGObject o => IsEventTarget o -toEventTarget :: IsEventTarget o => o -> EventTarget -toEventTarget = unsafeCastGObject . toGObject - -instance IsEventTarget EventTarget -instance IsGObject EventTarget where - toGObject = GObject . unEventTarget - {-# INLINE toGObject #-} - unsafeCastGObject = EventTarget . unGObject - {-# INLINE unsafeCastGObject #-} - -castToEventTarget :: IsGObject obj => obj -> IO EventTarget -castToEventTarget = castTo gTypeEventTarget "EventTarget" - -foreign import javascript unsafe "window[\"EventTarget\"]" gTypeEventTarget :: GType - --- | Functions for this inteface are in "GHCJS.DOM.File". --- Base interface functions are in: --- --- * "GHCJS.DOM.Blob" --- --- -newtype File = File { unFile :: JSVal } - -instance Eq (File) where - (File a) == (File b) = js_eq a b - -instance PToJSVal File where - pToJSVal = unFile - {-# INLINE pToJSVal #-} - -instance PFromJSVal File where - pFromJSVal = File - {-# INLINE pFromJSVal #-} - -instance ToJSVal File where - toJSVal = return . unFile - {-# INLINE toJSVal #-} - -instance FromJSVal File where - fromJSVal = return . fmap File . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsBlob File -instance IsGObject File where - toGObject = GObject . unFile - {-# INLINE toGObject #-} - unsafeCastGObject = File . unGObject - {-# INLINE unsafeCastGObject #-} - -castToFile :: IsGObject obj => obj -> IO File -castToFile = castTo gTypeFile "File" - -foreign import javascript unsafe "window[\"File\"]" gTypeFile :: GType - --- | Functions for this inteface are in "GHCJS.DOM.FileError". --- --- -newtype FileError = FileError { unFileError :: JSVal } - -instance Eq (FileError) where - (FileError a) == (FileError b) = js_eq a b - -instance PToJSVal FileError where - pToJSVal = unFileError - {-# INLINE pToJSVal #-} - -instance PFromJSVal FileError where - pFromJSVal = FileError - {-# INLINE pFromJSVal #-} - -instance ToJSVal FileError where - toJSVal = return . unFileError - {-# INLINE toJSVal #-} - -instance FromJSVal FileError where - fromJSVal = return . fmap FileError . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsGObject FileError where - toGObject = GObject . unFileError - {-# INLINE toGObject #-} - unsafeCastGObject = FileError . unGObject - {-# INLINE unsafeCastGObject #-} - -castToFileError :: IsGObject obj => obj -> IO FileError -castToFileError = castTo gTypeFileError "FileError" - -foreign import javascript unsafe "window[\"FileError\"]" gTypeFileError :: GType - --- | Functions for this inteface are in "GHCJS.DOM.FileList". --- --- -newtype FileList = FileList { unFileList :: JSVal } - -instance Eq (FileList) where - (FileList a) == (FileList b) = js_eq a b - -instance PToJSVal FileList where - pToJSVal = unFileList - {-# INLINE pToJSVal #-} - -instance PFromJSVal FileList where - pFromJSVal = FileList - {-# INLINE pFromJSVal #-} - -instance ToJSVal FileList where - toJSVal = return . unFileList - {-# INLINE toJSVal #-} - -instance FromJSVal FileList where - fromJSVal = return . fmap FileList . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsGObject FileList where - toGObject = GObject . unFileList - {-# INLINE toGObject #-} - unsafeCastGObject = FileList . unGObject - {-# INLINE unsafeCastGObject #-} - -castToFileList :: IsGObject obj => obj -> IO FileList -castToFileList = castTo gTypeFileList "FileList" - -foreign import javascript unsafe "window[\"FileList\"]" gTypeFileList :: GType - --- | Functions for this inteface are in "GHCJS.DOM.FileReader". --- Base interface functions are in: --- --- * "GHCJS.DOM.EventTarget" --- --- -newtype FileReader = FileReader { unFileReader :: JSVal } - -instance Eq (FileReader) where - (FileReader a) == (FileReader b) = js_eq a b - -instance PToJSVal FileReader where - pToJSVal = unFileReader - {-# INLINE pToJSVal #-} - -instance PFromJSVal FileReader where - pFromJSVal = FileReader - {-# INLINE pFromJSVal #-} - -instance ToJSVal FileReader where - toJSVal = return . unFileReader - {-# INLINE toJSVal #-} - -instance FromJSVal FileReader where - fromJSVal = return . fmap FileReader . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsEventTarget FileReader -instance IsGObject FileReader where - toGObject = GObject . unFileReader - {-# INLINE toGObject #-} - unsafeCastGObject = FileReader . unGObject - {-# INLINE unsafeCastGObject #-} - -castToFileReader :: IsGObject obj => obj -> IO FileReader -castToFileReader = castTo gTypeFileReader "FileReader" - -foreign import javascript unsafe "window[\"FileReader\"]" gTypeFileReader :: GType - --- | Functions for this inteface are in "GHCJS.DOM.FileReaderSync". --- --- -newtype FileReaderSync = FileReaderSync { unFileReaderSync :: JSVal } - -instance Eq (FileReaderSync) where - (FileReaderSync a) == (FileReaderSync b) = js_eq a b - -instance PToJSVal FileReaderSync where - pToJSVal = unFileReaderSync - {-# INLINE pToJSVal #-} - -instance PFromJSVal FileReaderSync where - pFromJSVal = FileReaderSync - {-# INLINE pFromJSVal #-} - -instance ToJSVal FileReaderSync where - toJSVal = return . unFileReaderSync - {-# INLINE toJSVal #-} - -instance FromJSVal FileReaderSync where - fromJSVal = return . fmap FileReaderSync . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsGObject FileReaderSync where - toGObject = GObject . unFileReaderSync - {-# INLINE toGObject #-} - unsafeCastGObject = FileReaderSync . unGObject - {-# INLINE unsafeCastGObject #-} - -castToFileReaderSync :: IsGObject obj => obj -> IO FileReaderSync -castToFileReaderSync = castTo gTypeFileReaderSync "FileReaderSync" - -foreign import javascript unsafe "window[\"FileReaderSync\"]" gTypeFileReaderSync :: GType - --- | Functions for this inteface are in "GHCJS.DOM.FocusEvent". --- Base interface functions are in: --- --- * "GHCJS.DOM.UIEvent" --- * "GHCJS.DOM.Event" --- --- -newtype FocusEvent = FocusEvent { unFocusEvent :: JSVal } - -instance Eq (FocusEvent) where - (FocusEvent a) == (FocusEvent b) = js_eq a b - -instance PToJSVal FocusEvent where - pToJSVal = unFocusEvent - {-# INLINE pToJSVal #-} - -instance PFromJSVal FocusEvent where - pFromJSVal = FocusEvent - {-# INLINE pFromJSVal #-} - -instance ToJSVal FocusEvent where - toJSVal = return . unFocusEvent - {-# INLINE toJSVal #-} - -instance FromJSVal FocusEvent where - fromJSVal = return . fmap FocusEvent . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsUIEvent FocusEvent -instance IsEvent FocusEvent -instance IsGObject FocusEvent where - toGObject = GObject . unFocusEvent - {-# INLINE toGObject #-} - unsafeCastGObject = FocusEvent . unGObject - {-# INLINE unsafeCastGObject #-} - -castToFocusEvent :: IsGObject obj => obj -> IO FocusEvent -castToFocusEvent = castTo gTypeFocusEvent "FocusEvent" - -foreign import javascript unsafe "window[\"FocusEvent\"]" gTypeFocusEvent :: GType - --- | Functions for this inteface are in "GHCJS.DOM.FontLoader". --- Base interface functions are in: --- --- * "GHCJS.DOM.EventTarget" --- --- -newtype FontLoader = FontLoader { unFontLoader :: JSVal } - -instance Eq (FontLoader) where - (FontLoader a) == (FontLoader b) = js_eq a b - -instance PToJSVal FontLoader where - pToJSVal = unFontLoader - {-# INLINE pToJSVal #-} - -instance PFromJSVal FontLoader where - pFromJSVal = FontLoader - {-# INLINE pFromJSVal #-} - -instance ToJSVal FontLoader where - toJSVal = return . unFontLoader - {-# INLINE toJSVal #-} - -instance FromJSVal FontLoader where - fromJSVal = return . fmap FontLoader . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsEventTarget FontLoader -instance IsGObject FontLoader where - toGObject = GObject . unFontLoader - {-# INLINE toGObject #-} - unsafeCastGObject = FontLoader . unGObject - {-# INLINE unsafeCastGObject #-} - -castToFontLoader :: IsGObject obj => obj -> IO FontLoader -castToFontLoader = castTo gTypeFontLoader "FontLoader" - -foreign import javascript unsafe "window[\"FontLoader\"]" gTypeFontLoader :: GType - --- | Functions for this inteface are in "GHCJS.DOM.FormData". --- --- -newtype FormData = FormData { unFormData :: JSVal } - -instance Eq (FormData) where - (FormData a) == (FormData b) = js_eq a b - -instance PToJSVal FormData where - pToJSVal = unFormData - {-# INLINE pToJSVal #-} - -instance PFromJSVal FormData where - pFromJSVal = FormData - {-# INLINE pFromJSVal #-} - -instance ToJSVal FormData where - toJSVal = return . unFormData - {-# INLINE toJSVal #-} - -instance FromJSVal FormData where - fromJSVal = return . fmap FormData . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsGObject FormData where - toGObject = GObject . unFormData - {-# INLINE toGObject #-} - unsafeCastGObject = FormData . unGObject - {-# INLINE unsafeCastGObject #-} - -castToFormData :: IsGObject obj => obj -> IO FormData -castToFormData = castTo gTypeFormData "FormData" - -foreign import javascript unsafe "window[\"FormData\"]" gTypeFormData :: GType - --- | Functions for this inteface are in "GHCJS.DOM.GainNode". --- Base interface functions are in: --- --- * "GHCJS.DOM.AudioNode" --- * "GHCJS.DOM.EventTarget" --- --- -newtype GainNode = GainNode { unGainNode :: JSVal } - -instance Eq (GainNode) where - (GainNode a) == (GainNode b) = js_eq a b - -instance PToJSVal GainNode where - pToJSVal = unGainNode - {-# INLINE pToJSVal #-} - -instance PFromJSVal GainNode where - pFromJSVal = GainNode - {-# INLINE pFromJSVal #-} - -instance ToJSVal GainNode where - toJSVal = return . unGainNode - {-# INLINE toJSVal #-} - -instance FromJSVal GainNode where - fromJSVal = return . fmap GainNode . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsAudioNode GainNode -instance IsEventTarget GainNode -instance IsGObject GainNode where - toGObject = GObject . unGainNode - {-# INLINE toGObject #-} - unsafeCastGObject = GainNode . unGObject - {-# INLINE unsafeCastGObject #-} - -castToGainNode :: IsGObject obj => obj -> IO GainNode -castToGainNode = castTo gTypeGainNode "GainNode" - -foreign import javascript unsafe "window[\"GainNode\"]" gTypeGainNode :: GType - --- | Functions for this inteface are in "GHCJS.DOM.Gamepad". --- --- -newtype Gamepad = Gamepad { unGamepad :: JSVal } - -instance Eq (Gamepad) where - (Gamepad a) == (Gamepad b) = js_eq a b - -instance PToJSVal Gamepad where - pToJSVal = unGamepad - {-# INLINE pToJSVal #-} - -instance PFromJSVal Gamepad where - pFromJSVal = Gamepad - {-# INLINE pFromJSVal #-} - -instance ToJSVal Gamepad where - toJSVal = return . unGamepad - {-# INLINE toJSVal #-} - -instance FromJSVal Gamepad where - fromJSVal = return . fmap Gamepad . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsGObject Gamepad where - toGObject = GObject . unGamepad - {-# INLINE toGObject #-} - unsafeCastGObject = Gamepad . unGObject - {-# INLINE unsafeCastGObject #-} - -castToGamepad :: IsGObject obj => obj -> IO Gamepad -castToGamepad = castTo gTypeGamepad "Gamepad" - -foreign import javascript unsafe "window[\"Gamepad\"]" gTypeGamepad :: GType - --- | Functions for this inteface are in "GHCJS.DOM.GamepadButton". --- --- -newtype GamepadButton = GamepadButton { unGamepadButton :: JSVal } - -instance Eq (GamepadButton) where - (GamepadButton a) == (GamepadButton b) = js_eq a b - -instance PToJSVal GamepadButton where - pToJSVal = unGamepadButton - {-# INLINE pToJSVal #-} - -instance PFromJSVal GamepadButton where - pFromJSVal = GamepadButton - {-# INLINE pFromJSVal #-} - -instance ToJSVal GamepadButton where - toJSVal = return . unGamepadButton - {-# INLINE toJSVal #-} - -instance FromJSVal GamepadButton where - fromJSVal = return . fmap GamepadButton . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsGObject GamepadButton where - toGObject = GObject . unGamepadButton - {-# INLINE toGObject #-} - unsafeCastGObject = GamepadButton . unGObject - {-# INLINE unsafeCastGObject #-} - -castToGamepadButton :: IsGObject obj => obj -> IO GamepadButton -castToGamepadButton = castTo gTypeGamepadButton "GamepadButton" - -foreign import javascript unsafe "window[\"GamepadButton\"]" gTypeGamepadButton :: GType - --- | Functions for this inteface are in "GHCJS.DOM.GamepadEvent". --- Base interface functions are in: --- --- * "GHCJS.DOM.Event" --- --- -newtype GamepadEvent = GamepadEvent { unGamepadEvent :: JSVal } - -instance Eq (GamepadEvent) where - (GamepadEvent a) == (GamepadEvent b) = js_eq a b - -instance PToJSVal GamepadEvent where - pToJSVal = unGamepadEvent - {-# INLINE pToJSVal #-} - -instance PFromJSVal GamepadEvent where - pFromJSVal = GamepadEvent - {-# INLINE pFromJSVal #-} - -instance ToJSVal GamepadEvent where - toJSVal = return . unGamepadEvent - {-# INLINE toJSVal #-} - -instance FromJSVal GamepadEvent where - fromJSVal = return . fmap GamepadEvent . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsEvent GamepadEvent -instance IsGObject GamepadEvent where - toGObject = GObject . unGamepadEvent - {-# INLINE toGObject #-} - unsafeCastGObject = GamepadEvent . unGObject - {-# INLINE unsafeCastGObject #-} - -castToGamepadEvent :: IsGObject obj => obj -> IO GamepadEvent -castToGamepadEvent = castTo gTypeGamepadEvent "GamepadEvent" - -foreign import javascript unsafe "window[\"GamepadEvent\"]" gTypeGamepadEvent :: GType - --- | Functions for this inteface are in "GHCJS.DOM.Geolocation". --- --- -newtype Geolocation = Geolocation { unGeolocation :: JSVal } - -instance Eq (Geolocation) where - (Geolocation a) == (Geolocation b) = js_eq a b - -instance PToJSVal Geolocation where - pToJSVal = unGeolocation - {-# INLINE pToJSVal #-} - -instance PFromJSVal Geolocation where - pFromJSVal = Geolocation - {-# INLINE pFromJSVal #-} - -instance ToJSVal Geolocation where - toJSVal = return . unGeolocation - {-# INLINE toJSVal #-} - -instance FromJSVal Geolocation where - fromJSVal = return . fmap Geolocation . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsGObject Geolocation where - toGObject = GObject . unGeolocation - {-# INLINE toGObject #-} - unsafeCastGObject = Geolocation . unGObject - {-# INLINE unsafeCastGObject #-} - -castToGeolocation :: IsGObject obj => obj -> IO Geolocation -castToGeolocation = castTo gTypeGeolocation "Geolocation" - -foreign import javascript unsafe "window[\"Geolocation\"]" gTypeGeolocation :: GType - --- | Functions for this inteface are in "GHCJS.DOM.Geoposition". --- --- -newtype Geoposition = Geoposition { unGeoposition :: JSVal } - -instance Eq (Geoposition) where - (Geoposition a) == (Geoposition b) = js_eq a b - -instance PToJSVal Geoposition where - pToJSVal = unGeoposition - {-# INLINE pToJSVal #-} - -instance PFromJSVal Geoposition where - pFromJSVal = Geoposition - {-# INLINE pFromJSVal #-} - -instance ToJSVal Geoposition where - toJSVal = return . unGeoposition - {-# INLINE toJSVal #-} - -instance FromJSVal Geoposition where - fromJSVal = return . fmap Geoposition . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsGObject Geoposition where - toGObject = GObject . unGeoposition - {-# INLINE toGObject #-} - unsafeCastGObject = Geoposition . unGObject - {-# INLINE unsafeCastGObject #-} - -castToGeoposition :: IsGObject obj => obj -> IO Geoposition -castToGeoposition = castTo gTypeGeoposition "Geoposition" - -foreign import javascript unsafe "window[\"Geoposition\"]" gTypeGeoposition :: GType - --- | Functions for this inteface are in "GHCJS.DOM.HTMLAllCollection". --- --- -newtype HTMLAllCollection = HTMLAllCollection { unHTMLAllCollection :: JSVal } - -instance Eq (HTMLAllCollection) where - (HTMLAllCollection a) == (HTMLAllCollection b) = js_eq a b - -instance PToJSVal HTMLAllCollection where - pToJSVal = unHTMLAllCollection - {-# INLINE pToJSVal #-} - -instance PFromJSVal HTMLAllCollection where - pFromJSVal = HTMLAllCollection - {-# INLINE pFromJSVal #-} - -instance ToJSVal HTMLAllCollection where - toJSVal = return . unHTMLAllCollection - {-# INLINE toJSVal #-} - -instance FromJSVal HTMLAllCollection where - fromJSVal = return . fmap HTMLAllCollection . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsGObject HTMLAllCollection where - toGObject = GObject . unHTMLAllCollection - {-# INLINE toGObject #-} - unsafeCastGObject = HTMLAllCollection . unGObject - {-# INLINE unsafeCastGObject #-} - -castToHTMLAllCollection :: IsGObject obj => obj -> IO HTMLAllCollection -castToHTMLAllCollection = castTo gTypeHTMLAllCollection "HTMLAllCollection" - -foreign import javascript unsafe "window[\"HTMLAllCollection\"]" gTypeHTMLAllCollection :: GType - --- | Functions for this inteface are in "GHCJS.DOM.HTMLAnchorElement". --- Base interface functions are in: --- --- * "GHCJS.DOM.HTMLElement" --- * "GHCJS.DOM.Element" --- * "GHCJS.DOM.Node" --- * "GHCJS.DOM.EventTarget" --- --- -newtype HTMLAnchorElement = HTMLAnchorElement { unHTMLAnchorElement :: JSVal } - -instance Eq (HTMLAnchorElement) where - (HTMLAnchorElement a) == (HTMLAnchorElement b) = js_eq a b - -instance PToJSVal HTMLAnchorElement where - pToJSVal = unHTMLAnchorElement - {-# INLINE pToJSVal #-} - -instance PFromJSVal HTMLAnchorElement where - pFromJSVal = HTMLAnchorElement - {-# INLINE pFromJSVal #-} - -instance ToJSVal HTMLAnchorElement where - toJSVal = return . unHTMLAnchorElement - {-# INLINE toJSVal #-} - -instance FromJSVal HTMLAnchorElement where - fromJSVal = return . fmap HTMLAnchorElement . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsHTMLElement HTMLAnchorElement -instance IsElement HTMLAnchorElement -instance IsNode HTMLAnchorElement -instance IsEventTarget HTMLAnchorElement -instance IsGObject HTMLAnchorElement where - toGObject = GObject . unHTMLAnchorElement - {-# INLINE toGObject #-} - unsafeCastGObject = HTMLAnchorElement . unGObject - {-# INLINE unsafeCastGObject #-} - -castToHTMLAnchorElement :: IsGObject obj => obj -> IO HTMLAnchorElement -castToHTMLAnchorElement = castTo gTypeHTMLAnchorElement "HTMLAnchorElement" - -foreign import javascript unsafe "window[\"HTMLAnchorElement\"]" gTypeHTMLAnchorElement :: GType - --- | Functions for this inteface are in "GHCJS.DOM.HTMLAppletElement". --- Base interface functions are in: --- --- * "GHCJS.DOM.HTMLElement" --- * "GHCJS.DOM.Element" --- * "GHCJS.DOM.Node" --- * "GHCJS.DOM.EventTarget" --- --- -newtype HTMLAppletElement = HTMLAppletElement { unHTMLAppletElement :: JSVal } - -instance Eq (HTMLAppletElement) where - (HTMLAppletElement a) == (HTMLAppletElement b) = js_eq a b - -instance PToJSVal HTMLAppletElement where - pToJSVal = unHTMLAppletElement - {-# INLINE pToJSVal #-} - -instance PFromJSVal HTMLAppletElement where - pFromJSVal = HTMLAppletElement - {-# INLINE pFromJSVal #-} - -instance ToJSVal HTMLAppletElement where - toJSVal = return . unHTMLAppletElement - {-# INLINE toJSVal #-} - -instance FromJSVal HTMLAppletElement where - fromJSVal = return . fmap HTMLAppletElement . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsHTMLElement HTMLAppletElement -instance IsElement HTMLAppletElement -instance IsNode HTMLAppletElement -instance IsEventTarget HTMLAppletElement -instance IsGObject HTMLAppletElement where - toGObject = GObject . unHTMLAppletElement - {-# INLINE toGObject #-} - unsafeCastGObject = HTMLAppletElement . unGObject - {-# INLINE unsafeCastGObject #-} - -castToHTMLAppletElement :: IsGObject obj => obj -> IO HTMLAppletElement -castToHTMLAppletElement = castTo gTypeHTMLAppletElement "HTMLAppletElement" - -foreign import javascript unsafe "window[\"HTMLAppletElement\"]" gTypeHTMLAppletElement :: GType - --- | Functions for this inteface are in "GHCJS.DOM.HTMLAreaElement". --- Base interface functions are in: --- --- * "GHCJS.DOM.HTMLElement" --- * "GHCJS.DOM.Element" --- * "GHCJS.DOM.Node" --- * "GHCJS.DOM.EventTarget" --- --- -newtype HTMLAreaElement = HTMLAreaElement { unHTMLAreaElement :: JSVal } - -instance Eq (HTMLAreaElement) where - (HTMLAreaElement a) == (HTMLAreaElement b) = js_eq a b - -instance PToJSVal HTMLAreaElement where - pToJSVal = unHTMLAreaElement - {-# INLINE pToJSVal #-} - -instance PFromJSVal HTMLAreaElement where - pFromJSVal = HTMLAreaElement - {-# INLINE pFromJSVal #-} - -instance ToJSVal HTMLAreaElement where - toJSVal = return . unHTMLAreaElement - {-# INLINE toJSVal #-} - -instance FromJSVal HTMLAreaElement where - fromJSVal = return . fmap HTMLAreaElement . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsHTMLElement HTMLAreaElement -instance IsElement HTMLAreaElement -instance IsNode HTMLAreaElement -instance IsEventTarget HTMLAreaElement -instance IsGObject HTMLAreaElement where - toGObject = GObject . unHTMLAreaElement - {-# INLINE toGObject #-} - unsafeCastGObject = HTMLAreaElement . unGObject - {-# INLINE unsafeCastGObject #-} - -castToHTMLAreaElement :: IsGObject obj => obj -> IO HTMLAreaElement -castToHTMLAreaElement = castTo gTypeHTMLAreaElement "HTMLAreaElement" - -foreign import javascript unsafe "window[\"HTMLAreaElement\"]" gTypeHTMLAreaElement :: GType - --- | Functions for this inteface are in "GHCJS.DOM.HTMLAudioElement". --- Base interface functions are in: --- --- * "GHCJS.DOM.HTMLMediaElement" --- * "GHCJS.DOM.HTMLElement" --- * "GHCJS.DOM.Element" --- * "GHCJS.DOM.Node" --- * "GHCJS.DOM.EventTarget" --- --- -newtype HTMLAudioElement = HTMLAudioElement { unHTMLAudioElement :: JSVal } - -instance Eq (HTMLAudioElement) where - (HTMLAudioElement a) == (HTMLAudioElement b) = js_eq a b - -instance PToJSVal HTMLAudioElement where - pToJSVal = unHTMLAudioElement - {-# INLINE pToJSVal #-} - -instance PFromJSVal HTMLAudioElement where - pFromJSVal = HTMLAudioElement - {-# INLINE pFromJSVal #-} - -instance ToJSVal HTMLAudioElement where - toJSVal = return . unHTMLAudioElement - {-# INLINE toJSVal #-} - -instance FromJSVal HTMLAudioElement where - fromJSVal = return . fmap HTMLAudioElement . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsHTMLMediaElement HTMLAudioElement -instance IsHTMLElement HTMLAudioElement -instance IsElement HTMLAudioElement -instance IsNode HTMLAudioElement -instance IsEventTarget HTMLAudioElement -instance IsGObject HTMLAudioElement where - toGObject = GObject . unHTMLAudioElement - {-# INLINE toGObject #-} - unsafeCastGObject = HTMLAudioElement . unGObject - {-# INLINE unsafeCastGObject #-} - -castToHTMLAudioElement :: IsGObject obj => obj -> IO HTMLAudioElement -castToHTMLAudioElement = castTo gTypeHTMLAudioElement "HTMLAudioElement" - -foreign import javascript unsafe "window[\"HTMLAudioElement\"]" gTypeHTMLAudioElement :: GType - --- | Functions for this inteface are in "GHCJS.DOM.HTMLBRElement". --- Base interface functions are in: --- --- * "GHCJS.DOM.HTMLElement" --- * "GHCJS.DOM.Element" --- * "GHCJS.DOM.Node" --- * "GHCJS.DOM.EventTarget" --- --- -newtype HTMLBRElement = HTMLBRElement { unHTMLBRElement :: JSVal } - -instance Eq (HTMLBRElement) where - (HTMLBRElement a) == (HTMLBRElement b) = js_eq a b - -instance PToJSVal HTMLBRElement where - pToJSVal = unHTMLBRElement - {-# INLINE pToJSVal #-} - -instance PFromJSVal HTMLBRElement where - pFromJSVal = HTMLBRElement - {-# INLINE pFromJSVal #-} - -instance ToJSVal HTMLBRElement where - toJSVal = return . unHTMLBRElement - {-# INLINE toJSVal #-} - -instance FromJSVal HTMLBRElement where - fromJSVal = return . fmap HTMLBRElement . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsHTMLElement HTMLBRElement -instance IsElement HTMLBRElement -instance IsNode HTMLBRElement -instance IsEventTarget HTMLBRElement -instance IsGObject HTMLBRElement where - toGObject = GObject . unHTMLBRElement - {-# INLINE toGObject #-} - unsafeCastGObject = HTMLBRElement . unGObject - {-# INLINE unsafeCastGObject #-} - -castToHTMLBRElement :: IsGObject obj => obj -> IO HTMLBRElement -castToHTMLBRElement = castTo gTypeHTMLBRElement "HTMLBRElement" - -foreign import javascript unsafe "window[\"HTMLBRElement\"]" gTypeHTMLBRElement :: GType - --- | Functions for this inteface are in "GHCJS.DOM.HTMLBaseElement". --- Base interface functions are in: --- --- * "GHCJS.DOM.HTMLElement" --- * "GHCJS.DOM.Element" --- * "GHCJS.DOM.Node" --- * "GHCJS.DOM.EventTarget" --- --- -newtype HTMLBaseElement = HTMLBaseElement { unHTMLBaseElement :: JSVal } - -instance Eq (HTMLBaseElement) where - (HTMLBaseElement a) == (HTMLBaseElement b) = js_eq a b - -instance PToJSVal HTMLBaseElement where - pToJSVal = unHTMLBaseElement - {-# INLINE pToJSVal #-} - -instance PFromJSVal HTMLBaseElement where - pFromJSVal = HTMLBaseElement - {-# INLINE pFromJSVal #-} - -instance ToJSVal HTMLBaseElement where - toJSVal = return . unHTMLBaseElement - {-# INLINE toJSVal #-} - -instance FromJSVal HTMLBaseElement where - fromJSVal = return . fmap HTMLBaseElement . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsHTMLElement HTMLBaseElement -instance IsElement HTMLBaseElement -instance IsNode HTMLBaseElement -instance IsEventTarget HTMLBaseElement -instance IsGObject HTMLBaseElement where - toGObject = GObject . unHTMLBaseElement - {-# INLINE toGObject #-} - unsafeCastGObject = HTMLBaseElement . unGObject - {-# INLINE unsafeCastGObject #-} - -castToHTMLBaseElement :: IsGObject obj => obj -> IO HTMLBaseElement -castToHTMLBaseElement = castTo gTypeHTMLBaseElement "HTMLBaseElement" - -foreign import javascript unsafe "window[\"HTMLBaseElement\"]" gTypeHTMLBaseElement :: GType - --- | Functions for this inteface are in "GHCJS.DOM.HTMLBaseFontElement". --- Base interface functions are in: --- --- * "GHCJS.DOM.HTMLElement" --- * "GHCJS.DOM.Element" --- * "GHCJS.DOM.Node" --- * "GHCJS.DOM.EventTarget" --- --- -newtype HTMLBaseFontElement = HTMLBaseFontElement { unHTMLBaseFontElement :: JSVal } - -instance Eq (HTMLBaseFontElement) where - (HTMLBaseFontElement a) == (HTMLBaseFontElement b) = js_eq a b - -instance PToJSVal HTMLBaseFontElement where - pToJSVal = unHTMLBaseFontElement - {-# INLINE pToJSVal #-} - -instance PFromJSVal HTMLBaseFontElement where - pFromJSVal = HTMLBaseFontElement - {-# INLINE pFromJSVal #-} - -instance ToJSVal HTMLBaseFontElement where - toJSVal = return . unHTMLBaseFontElement - {-# INLINE toJSVal #-} - -instance FromJSVal HTMLBaseFontElement where - fromJSVal = return . fmap HTMLBaseFontElement . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsHTMLElement HTMLBaseFontElement -instance IsElement HTMLBaseFontElement -instance IsNode HTMLBaseFontElement -instance IsEventTarget HTMLBaseFontElement -instance IsGObject HTMLBaseFontElement where - toGObject = GObject . unHTMLBaseFontElement - {-# INLINE toGObject #-} - unsafeCastGObject = HTMLBaseFontElement . unGObject - {-# INLINE unsafeCastGObject #-} - -castToHTMLBaseFontElement :: IsGObject obj => obj -> IO HTMLBaseFontElement -castToHTMLBaseFontElement = castTo gTypeHTMLBaseFontElement "HTMLBaseFontElement" - -foreign import javascript unsafe "window[\"HTMLBaseFontElement\"]" gTypeHTMLBaseFontElement :: GType - --- | Functions for this inteface are in "GHCJS.DOM.HTMLBodyElement". --- Base interface functions are in: --- --- * "GHCJS.DOM.HTMLElement" --- * "GHCJS.DOM.Element" --- * "GHCJS.DOM.Node" --- * "GHCJS.DOM.EventTarget" --- --- -newtype HTMLBodyElement = HTMLBodyElement { unHTMLBodyElement :: JSVal } - -instance Eq (HTMLBodyElement) where - (HTMLBodyElement a) == (HTMLBodyElement b) = js_eq a b - -instance PToJSVal HTMLBodyElement where - pToJSVal = unHTMLBodyElement - {-# INLINE pToJSVal #-} - -instance PFromJSVal HTMLBodyElement where - pFromJSVal = HTMLBodyElement - {-# INLINE pFromJSVal #-} - -instance ToJSVal HTMLBodyElement where - toJSVal = return . unHTMLBodyElement - {-# INLINE toJSVal #-} - -instance FromJSVal HTMLBodyElement where - fromJSVal = return . fmap HTMLBodyElement . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsHTMLElement HTMLBodyElement -instance IsElement HTMLBodyElement -instance IsNode HTMLBodyElement -instance IsEventTarget HTMLBodyElement -instance IsGObject HTMLBodyElement where - toGObject = GObject . unHTMLBodyElement - {-# INLINE toGObject #-} - unsafeCastGObject = HTMLBodyElement . unGObject - {-# INLINE unsafeCastGObject #-} - -castToHTMLBodyElement :: IsGObject obj => obj -> IO HTMLBodyElement -castToHTMLBodyElement = castTo gTypeHTMLBodyElement "HTMLBodyElement" - -foreign import javascript unsafe "window[\"HTMLBodyElement\"]" gTypeHTMLBodyElement :: GType - --- | Functions for this inteface are in "GHCJS.DOM.HTMLButtonElement". --- Base interface functions are in: --- --- * "GHCJS.DOM.HTMLElement" --- * "GHCJS.DOM.Element" --- * "GHCJS.DOM.Node" --- * "GHCJS.DOM.EventTarget" --- --- -newtype HTMLButtonElement = HTMLButtonElement { unHTMLButtonElement :: JSVal } - -instance Eq (HTMLButtonElement) where - (HTMLButtonElement a) == (HTMLButtonElement b) = js_eq a b - -instance PToJSVal HTMLButtonElement where - pToJSVal = unHTMLButtonElement - {-# INLINE pToJSVal #-} - -instance PFromJSVal HTMLButtonElement where - pFromJSVal = HTMLButtonElement - {-# INLINE pFromJSVal #-} - -instance ToJSVal HTMLButtonElement where - toJSVal = return . unHTMLButtonElement - {-# INLINE toJSVal #-} - -instance FromJSVal HTMLButtonElement where - fromJSVal = return . fmap HTMLButtonElement . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsHTMLElement HTMLButtonElement -instance IsElement HTMLButtonElement -instance IsNode HTMLButtonElement -instance IsEventTarget HTMLButtonElement -instance IsGObject HTMLButtonElement where - toGObject = GObject . unHTMLButtonElement - {-# INLINE toGObject #-} - unsafeCastGObject = HTMLButtonElement . unGObject - {-# INLINE unsafeCastGObject #-} - -castToHTMLButtonElement :: IsGObject obj => obj -> IO HTMLButtonElement -castToHTMLButtonElement = castTo gTypeHTMLButtonElement "HTMLButtonElement" - -foreign import javascript unsafe "window[\"HTMLButtonElement\"]" gTypeHTMLButtonElement :: GType - --- | Functions for this inteface are in "GHCJS.DOM.HTMLCanvasElement". --- Base interface functions are in: --- --- * "GHCJS.DOM.HTMLElement" --- * "GHCJS.DOM.Element" --- * "GHCJS.DOM.Node" --- * "GHCJS.DOM.EventTarget" --- --- -newtype HTMLCanvasElement = HTMLCanvasElement { unHTMLCanvasElement :: JSVal } - -instance Eq (HTMLCanvasElement) where - (HTMLCanvasElement a) == (HTMLCanvasElement b) = js_eq a b - -instance PToJSVal HTMLCanvasElement where - pToJSVal = unHTMLCanvasElement - {-# INLINE pToJSVal #-} - -instance PFromJSVal HTMLCanvasElement where - pFromJSVal = HTMLCanvasElement - {-# INLINE pFromJSVal #-} - -instance ToJSVal HTMLCanvasElement where - toJSVal = return . unHTMLCanvasElement - {-# INLINE toJSVal #-} - -instance FromJSVal HTMLCanvasElement where - fromJSVal = return . fmap HTMLCanvasElement . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsHTMLElement HTMLCanvasElement -instance IsElement HTMLCanvasElement -instance IsNode HTMLCanvasElement -instance IsEventTarget HTMLCanvasElement -instance IsGObject HTMLCanvasElement where - toGObject = GObject . unHTMLCanvasElement - {-# INLINE toGObject #-} - unsafeCastGObject = HTMLCanvasElement . unGObject - {-# INLINE unsafeCastGObject #-} - -castToHTMLCanvasElement :: IsGObject obj => obj -> IO HTMLCanvasElement -castToHTMLCanvasElement = castTo gTypeHTMLCanvasElement "HTMLCanvasElement" - -foreign import javascript unsafe "window[\"HTMLCanvasElement\"]" gTypeHTMLCanvasElement :: GType - --- | Functions for this inteface are in "GHCJS.DOM.HTMLCollection". --- --- -newtype HTMLCollection = HTMLCollection { unHTMLCollection :: JSVal } - -instance Eq (HTMLCollection) where - (HTMLCollection a) == (HTMLCollection b) = js_eq a b - -instance PToJSVal HTMLCollection where - pToJSVal = unHTMLCollection - {-# INLINE pToJSVal #-} - -instance PFromJSVal HTMLCollection where - pFromJSVal = HTMLCollection - {-# INLINE pFromJSVal #-} - -instance ToJSVal HTMLCollection where - toJSVal = return . unHTMLCollection - {-# INLINE toJSVal #-} - -instance FromJSVal HTMLCollection where - fromJSVal = return . fmap HTMLCollection . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -class IsGObject o => IsHTMLCollection o -toHTMLCollection :: IsHTMLCollection o => o -> HTMLCollection -toHTMLCollection = unsafeCastGObject . toGObject - -instance IsHTMLCollection HTMLCollection -instance IsGObject HTMLCollection where - toGObject = GObject . unHTMLCollection - {-# INLINE toGObject #-} - unsafeCastGObject = HTMLCollection . unGObject - {-# INLINE unsafeCastGObject #-} - -castToHTMLCollection :: IsGObject obj => obj -> IO HTMLCollection -castToHTMLCollection = castTo gTypeHTMLCollection "HTMLCollection" - -foreign import javascript unsafe "window[\"HTMLCollection\"]" gTypeHTMLCollection :: GType - --- | Functions for this inteface are in "GHCJS.DOM.HTMLDListElement". --- Base interface functions are in: --- --- * "GHCJS.DOM.HTMLElement" --- * "GHCJS.DOM.Element" --- * "GHCJS.DOM.Node" --- * "GHCJS.DOM.EventTarget" --- --- -newtype HTMLDListElement = HTMLDListElement { unHTMLDListElement :: JSVal } - -instance Eq (HTMLDListElement) where - (HTMLDListElement a) == (HTMLDListElement b) = js_eq a b - -instance PToJSVal HTMLDListElement where - pToJSVal = unHTMLDListElement - {-# INLINE pToJSVal #-} - -instance PFromJSVal HTMLDListElement where - pFromJSVal = HTMLDListElement - {-# INLINE pFromJSVal #-} - -instance ToJSVal HTMLDListElement where - toJSVal = return . unHTMLDListElement - {-# INLINE toJSVal #-} - -instance FromJSVal HTMLDListElement where - fromJSVal = return . fmap HTMLDListElement . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsHTMLElement HTMLDListElement -instance IsElement HTMLDListElement -instance IsNode HTMLDListElement -instance IsEventTarget HTMLDListElement -instance IsGObject HTMLDListElement where - toGObject = GObject . unHTMLDListElement - {-# INLINE toGObject #-} - unsafeCastGObject = HTMLDListElement . unGObject - {-# INLINE unsafeCastGObject #-} - -castToHTMLDListElement :: IsGObject obj => obj -> IO HTMLDListElement -castToHTMLDListElement = castTo gTypeHTMLDListElement "HTMLDListElement" - -foreign import javascript unsafe "window[\"HTMLDListElement\"]" gTypeHTMLDListElement :: GType - --- | Functions for this inteface are in "GHCJS.DOM.HTMLDataListElement". --- Base interface functions are in: --- --- * "GHCJS.DOM.HTMLElement" --- * "GHCJS.DOM.Element" --- * "GHCJS.DOM.Node" --- * "GHCJS.DOM.EventTarget" --- --- -newtype HTMLDataListElement = HTMLDataListElement { unHTMLDataListElement :: JSVal } - -instance Eq (HTMLDataListElement) where - (HTMLDataListElement a) == (HTMLDataListElement b) = js_eq a b - -instance PToJSVal HTMLDataListElement where - pToJSVal = unHTMLDataListElement - {-# INLINE pToJSVal #-} - -instance PFromJSVal HTMLDataListElement where - pFromJSVal = HTMLDataListElement - {-# INLINE pFromJSVal #-} - -instance ToJSVal HTMLDataListElement where - toJSVal = return . unHTMLDataListElement - {-# INLINE toJSVal #-} - -instance FromJSVal HTMLDataListElement where - fromJSVal = return . fmap HTMLDataListElement . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsHTMLElement HTMLDataListElement -instance IsElement HTMLDataListElement -instance IsNode HTMLDataListElement -instance IsEventTarget HTMLDataListElement -instance IsGObject HTMLDataListElement where - toGObject = GObject . unHTMLDataListElement - {-# INLINE toGObject #-} - unsafeCastGObject = HTMLDataListElement . unGObject - {-# INLINE unsafeCastGObject #-} - -castToHTMLDataListElement :: IsGObject obj => obj -> IO HTMLDataListElement -castToHTMLDataListElement = castTo gTypeHTMLDataListElement "HTMLDataListElement" - -foreign import javascript unsafe "window[\"HTMLDataListElement\"]" gTypeHTMLDataListElement :: GType - --- | Functions for this inteface are in "GHCJS.DOM.HTMLDetailsElement". --- Base interface functions are in: --- --- * "GHCJS.DOM.HTMLElement" --- * "GHCJS.DOM.Element" --- * "GHCJS.DOM.Node" --- * "GHCJS.DOM.EventTarget" --- --- -newtype HTMLDetailsElement = HTMLDetailsElement { unHTMLDetailsElement :: JSVal } - -instance Eq (HTMLDetailsElement) where - (HTMLDetailsElement a) == (HTMLDetailsElement b) = js_eq a b - -instance PToJSVal HTMLDetailsElement where - pToJSVal = unHTMLDetailsElement - {-# INLINE pToJSVal #-} - -instance PFromJSVal HTMLDetailsElement where - pFromJSVal = HTMLDetailsElement - {-# INLINE pFromJSVal #-} - -instance ToJSVal HTMLDetailsElement where - toJSVal = return . unHTMLDetailsElement - {-# INLINE toJSVal #-} - -instance FromJSVal HTMLDetailsElement where - fromJSVal = return . fmap HTMLDetailsElement . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsHTMLElement HTMLDetailsElement -instance IsElement HTMLDetailsElement -instance IsNode HTMLDetailsElement -instance IsEventTarget HTMLDetailsElement -instance IsGObject HTMLDetailsElement where - toGObject = GObject . unHTMLDetailsElement - {-# INLINE toGObject #-} - unsafeCastGObject = HTMLDetailsElement . unGObject - {-# INLINE unsafeCastGObject #-} - -castToHTMLDetailsElement :: IsGObject obj => obj -> IO HTMLDetailsElement -castToHTMLDetailsElement = castTo gTypeHTMLDetailsElement "HTMLDetailsElement" - -foreign import javascript unsafe "window[\"HTMLDetailsElement\"]" gTypeHTMLDetailsElement :: GType - --- | Functions for this inteface are in "GHCJS.DOM.HTMLDirectoryElement". --- Base interface functions are in: --- --- * "GHCJS.DOM.HTMLElement" --- * "GHCJS.DOM.Element" --- * "GHCJS.DOM.Node" --- * "GHCJS.DOM.EventTarget" --- --- -newtype HTMLDirectoryElement = HTMLDirectoryElement { unHTMLDirectoryElement :: JSVal } - -instance Eq (HTMLDirectoryElement) where - (HTMLDirectoryElement a) == (HTMLDirectoryElement b) = js_eq a b - -instance PToJSVal HTMLDirectoryElement where - pToJSVal = unHTMLDirectoryElement - {-# INLINE pToJSVal #-} - -instance PFromJSVal HTMLDirectoryElement where - pFromJSVal = HTMLDirectoryElement - {-# INLINE pFromJSVal #-} - -instance ToJSVal HTMLDirectoryElement where - toJSVal = return . unHTMLDirectoryElement - {-# INLINE toJSVal #-} - -instance FromJSVal HTMLDirectoryElement where - fromJSVal = return . fmap HTMLDirectoryElement . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsHTMLElement HTMLDirectoryElement -instance IsElement HTMLDirectoryElement -instance IsNode HTMLDirectoryElement -instance IsEventTarget HTMLDirectoryElement -instance IsGObject HTMLDirectoryElement where - toGObject = GObject . unHTMLDirectoryElement - {-# INLINE toGObject #-} - unsafeCastGObject = HTMLDirectoryElement . unGObject - {-# INLINE unsafeCastGObject #-} - -castToHTMLDirectoryElement :: IsGObject obj => obj -> IO HTMLDirectoryElement -castToHTMLDirectoryElement = castTo gTypeHTMLDirectoryElement "HTMLDirectoryElement" - -foreign import javascript unsafe "window[\"HTMLDirectoryElement\"]" gTypeHTMLDirectoryElement :: GType - --- | Functions for this inteface are in "GHCJS.DOM.HTMLDivElement". --- Base interface functions are in: --- --- * "GHCJS.DOM.HTMLElement" --- * "GHCJS.DOM.Element" --- * "GHCJS.DOM.Node" --- * "GHCJS.DOM.EventTarget" --- --- -newtype HTMLDivElement = HTMLDivElement { unHTMLDivElement :: JSVal } - -instance Eq (HTMLDivElement) where - (HTMLDivElement a) == (HTMLDivElement b) = js_eq a b - -instance PToJSVal HTMLDivElement where - pToJSVal = unHTMLDivElement - {-# INLINE pToJSVal #-} - -instance PFromJSVal HTMLDivElement where - pFromJSVal = HTMLDivElement - {-# INLINE pFromJSVal #-} - -instance ToJSVal HTMLDivElement where - toJSVal = return . unHTMLDivElement - {-# INLINE toJSVal #-} - -instance FromJSVal HTMLDivElement where - fromJSVal = return . fmap HTMLDivElement . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsHTMLElement HTMLDivElement -instance IsElement HTMLDivElement -instance IsNode HTMLDivElement -instance IsEventTarget HTMLDivElement -instance IsGObject HTMLDivElement where - toGObject = GObject . unHTMLDivElement - {-# INLINE toGObject #-} - unsafeCastGObject = HTMLDivElement . unGObject - {-# INLINE unsafeCastGObject #-} - -castToHTMLDivElement :: IsGObject obj => obj -> IO HTMLDivElement -castToHTMLDivElement = castTo gTypeHTMLDivElement "HTMLDivElement" - -foreign import javascript unsafe "window[\"HTMLDivElement\"]" gTypeHTMLDivElement :: GType - --- | Functions for this inteface are in "GHCJS.DOM.HTMLDocument". --- Base interface functions are in: --- --- * "GHCJS.DOM.Document" --- * "GHCJS.DOM.Node" --- * "GHCJS.DOM.EventTarget" --- --- -newtype HTMLDocument = HTMLDocument { unHTMLDocument :: JSVal } - -instance Eq (HTMLDocument) where - (HTMLDocument a) == (HTMLDocument b) = js_eq a b - -instance PToJSVal HTMLDocument where - pToJSVal = unHTMLDocument - {-# INLINE pToJSVal #-} - -instance PFromJSVal HTMLDocument where - pFromJSVal = HTMLDocument - {-# INLINE pFromJSVal #-} - -instance ToJSVal HTMLDocument where - toJSVal = return . unHTMLDocument - {-# INLINE toJSVal #-} - -instance FromJSVal HTMLDocument where - fromJSVal = return . fmap HTMLDocument . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsDocument HTMLDocument -instance IsNode HTMLDocument -instance IsEventTarget HTMLDocument -instance IsGObject HTMLDocument where - toGObject = GObject . unHTMLDocument - {-# INLINE toGObject #-} - unsafeCastGObject = HTMLDocument . unGObject - {-# INLINE unsafeCastGObject #-} - -castToHTMLDocument :: IsGObject obj => obj -> IO HTMLDocument -castToHTMLDocument = castTo gTypeHTMLDocument "HTMLDocument" - -foreign import javascript unsafe "window[\"HTMLDocument\"]" gTypeHTMLDocument :: GType - --- | Functions for this inteface are in "GHCJS.DOM.HTMLElement". --- Base interface functions are in: --- --- * "GHCJS.DOM.Element" --- * "GHCJS.DOM.Node" --- * "GHCJS.DOM.EventTarget" --- --- -newtype HTMLElement = HTMLElement { unHTMLElement :: JSVal } - -instance Eq (HTMLElement) where - (HTMLElement a) == (HTMLElement b) = js_eq a b - -instance PToJSVal HTMLElement where - pToJSVal = unHTMLElement - {-# INLINE pToJSVal #-} - -instance PFromJSVal HTMLElement where - pFromJSVal = HTMLElement - {-# INLINE pFromJSVal #-} - -instance ToJSVal HTMLElement where - toJSVal = return . unHTMLElement - {-# INLINE toJSVal #-} - -instance FromJSVal HTMLElement where - fromJSVal = return . fmap HTMLElement . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -class IsElement o => IsHTMLElement o -toHTMLElement :: IsHTMLElement o => o -> HTMLElement -toHTMLElement = unsafeCastGObject . toGObject - -instance IsHTMLElement HTMLElement -instance IsElement HTMLElement -instance IsNode HTMLElement -instance IsEventTarget HTMLElement -instance IsGObject HTMLElement where - toGObject = GObject . unHTMLElement - {-# INLINE toGObject #-} - unsafeCastGObject = HTMLElement . unGObject - {-# INLINE unsafeCastGObject #-} - -castToHTMLElement :: IsGObject obj => obj -> IO HTMLElement -castToHTMLElement = castTo gTypeHTMLElement "HTMLElement" - -foreign import javascript unsafe "window[\"HTMLElement\"]" gTypeHTMLElement :: GType - --- | Functions for this inteface are in "GHCJS.DOM.HTMLEmbedElement". --- Base interface functions are in: --- --- * "GHCJS.DOM.HTMLElement" --- * "GHCJS.DOM.Element" --- * "GHCJS.DOM.Node" --- * "GHCJS.DOM.EventTarget" --- --- -newtype HTMLEmbedElement = HTMLEmbedElement { unHTMLEmbedElement :: JSVal } - -instance Eq (HTMLEmbedElement) where - (HTMLEmbedElement a) == (HTMLEmbedElement b) = js_eq a b - -instance PToJSVal HTMLEmbedElement where - pToJSVal = unHTMLEmbedElement - {-# INLINE pToJSVal #-} - -instance PFromJSVal HTMLEmbedElement where - pFromJSVal = HTMLEmbedElement - {-# INLINE pFromJSVal #-} - -instance ToJSVal HTMLEmbedElement where - toJSVal = return . unHTMLEmbedElement - {-# INLINE toJSVal #-} - -instance FromJSVal HTMLEmbedElement where - fromJSVal = return . fmap HTMLEmbedElement . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsHTMLElement HTMLEmbedElement -instance IsElement HTMLEmbedElement -instance IsNode HTMLEmbedElement -instance IsEventTarget HTMLEmbedElement -instance IsGObject HTMLEmbedElement where - toGObject = GObject . unHTMLEmbedElement - {-# INLINE toGObject #-} - unsafeCastGObject = HTMLEmbedElement . unGObject - {-# INLINE unsafeCastGObject #-} - -castToHTMLEmbedElement :: IsGObject obj => obj -> IO HTMLEmbedElement -castToHTMLEmbedElement = castTo gTypeHTMLEmbedElement "HTMLEmbedElement" - -foreign import javascript unsafe "window[\"HTMLEmbedElement\"]" gTypeHTMLEmbedElement :: GType - --- | Functions for this inteface are in "GHCJS.DOM.HTMLFieldSetElement". --- Base interface functions are in: --- --- * "GHCJS.DOM.HTMLElement" --- * "GHCJS.DOM.Element" --- * "GHCJS.DOM.Node" --- * "GHCJS.DOM.EventTarget" --- --- -newtype HTMLFieldSetElement = HTMLFieldSetElement { unHTMLFieldSetElement :: JSVal } - -instance Eq (HTMLFieldSetElement) where - (HTMLFieldSetElement a) == (HTMLFieldSetElement b) = js_eq a b - -instance PToJSVal HTMLFieldSetElement where - pToJSVal = unHTMLFieldSetElement - {-# INLINE pToJSVal #-} - -instance PFromJSVal HTMLFieldSetElement where - pFromJSVal = HTMLFieldSetElement - {-# INLINE pFromJSVal #-} - -instance ToJSVal HTMLFieldSetElement where - toJSVal = return . unHTMLFieldSetElement - {-# INLINE toJSVal #-} - -instance FromJSVal HTMLFieldSetElement where - fromJSVal = return . fmap HTMLFieldSetElement . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsHTMLElement HTMLFieldSetElement -instance IsElement HTMLFieldSetElement -instance IsNode HTMLFieldSetElement -instance IsEventTarget HTMLFieldSetElement -instance IsGObject HTMLFieldSetElement where - toGObject = GObject . unHTMLFieldSetElement - {-# INLINE toGObject #-} - unsafeCastGObject = HTMLFieldSetElement . unGObject - {-# INLINE unsafeCastGObject #-} - -castToHTMLFieldSetElement :: IsGObject obj => obj -> IO HTMLFieldSetElement -castToHTMLFieldSetElement = castTo gTypeHTMLFieldSetElement "HTMLFieldSetElement" - -foreign import javascript unsafe "window[\"HTMLFieldSetElement\"]" gTypeHTMLFieldSetElement :: GType - --- | Functions for this inteface are in "GHCJS.DOM.HTMLFontElement". --- Base interface functions are in: --- --- * "GHCJS.DOM.HTMLElement" --- * "GHCJS.DOM.Element" --- * "GHCJS.DOM.Node" --- * "GHCJS.DOM.EventTarget" --- --- -newtype HTMLFontElement = HTMLFontElement { unHTMLFontElement :: JSVal } - -instance Eq (HTMLFontElement) where - (HTMLFontElement a) == (HTMLFontElement b) = js_eq a b - -instance PToJSVal HTMLFontElement where - pToJSVal = unHTMLFontElement - {-# INLINE pToJSVal #-} - -instance PFromJSVal HTMLFontElement where - pFromJSVal = HTMLFontElement - {-# INLINE pFromJSVal #-} - -instance ToJSVal HTMLFontElement where - toJSVal = return . unHTMLFontElement - {-# INLINE toJSVal #-} - -instance FromJSVal HTMLFontElement where - fromJSVal = return . fmap HTMLFontElement . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsHTMLElement HTMLFontElement -instance IsElement HTMLFontElement -instance IsNode HTMLFontElement -instance IsEventTarget HTMLFontElement -instance IsGObject HTMLFontElement where - toGObject = GObject . unHTMLFontElement - {-# INLINE toGObject #-} - unsafeCastGObject = HTMLFontElement . unGObject - {-# INLINE unsafeCastGObject #-} - -castToHTMLFontElement :: IsGObject obj => obj -> IO HTMLFontElement -castToHTMLFontElement = castTo gTypeHTMLFontElement "HTMLFontElement" - -foreign import javascript unsafe "window[\"HTMLFontElement\"]" gTypeHTMLFontElement :: GType - --- | Functions for this inteface are in "GHCJS.DOM.HTMLFormControlsCollection". --- Base interface functions are in: --- --- * "GHCJS.DOM.HTMLCollection" --- --- -newtype HTMLFormControlsCollection = HTMLFormControlsCollection { unHTMLFormControlsCollection :: JSVal } - -instance Eq (HTMLFormControlsCollection) where - (HTMLFormControlsCollection a) == (HTMLFormControlsCollection b) = js_eq a b - -instance PToJSVal HTMLFormControlsCollection where - pToJSVal = unHTMLFormControlsCollection - {-# INLINE pToJSVal #-} - -instance PFromJSVal HTMLFormControlsCollection where - pFromJSVal = HTMLFormControlsCollection - {-# INLINE pFromJSVal #-} - -instance ToJSVal HTMLFormControlsCollection where - toJSVal = return . unHTMLFormControlsCollection - {-# INLINE toJSVal #-} - -instance FromJSVal HTMLFormControlsCollection where - fromJSVal = return . fmap HTMLFormControlsCollection . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsHTMLCollection HTMLFormControlsCollection -instance IsGObject HTMLFormControlsCollection where - toGObject = GObject . unHTMLFormControlsCollection - {-# INLINE toGObject #-} - unsafeCastGObject = HTMLFormControlsCollection . unGObject - {-# INLINE unsafeCastGObject #-} - -castToHTMLFormControlsCollection :: IsGObject obj => obj -> IO HTMLFormControlsCollection -castToHTMLFormControlsCollection = castTo gTypeHTMLFormControlsCollection "HTMLFormControlsCollection" - -foreign import javascript unsafe "window[\"HTMLFormControlsCollection\"]" gTypeHTMLFormControlsCollection :: GType - --- | Functions for this inteface are in "GHCJS.DOM.HTMLFormElement". --- Base interface functions are in: --- --- * "GHCJS.DOM.HTMLElement" --- * "GHCJS.DOM.Element" --- * "GHCJS.DOM.Node" --- * "GHCJS.DOM.EventTarget" --- --- -newtype HTMLFormElement = HTMLFormElement { unHTMLFormElement :: JSVal } - -instance Eq (HTMLFormElement) where - (HTMLFormElement a) == (HTMLFormElement b) = js_eq a b - -instance PToJSVal HTMLFormElement where - pToJSVal = unHTMLFormElement - {-# INLINE pToJSVal #-} - -instance PFromJSVal HTMLFormElement where - pFromJSVal = HTMLFormElement - {-# INLINE pFromJSVal #-} - -instance ToJSVal HTMLFormElement where - toJSVal = return . unHTMLFormElement - {-# INLINE toJSVal #-} - -instance FromJSVal HTMLFormElement where - fromJSVal = return . fmap HTMLFormElement . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsHTMLElement HTMLFormElement -instance IsElement HTMLFormElement -instance IsNode HTMLFormElement -instance IsEventTarget HTMLFormElement -instance IsGObject HTMLFormElement where - toGObject = GObject . unHTMLFormElement - {-# INLINE toGObject #-} - unsafeCastGObject = HTMLFormElement . unGObject - {-# INLINE unsafeCastGObject #-} - -castToHTMLFormElement :: IsGObject obj => obj -> IO HTMLFormElement -castToHTMLFormElement = castTo gTypeHTMLFormElement "HTMLFormElement" - -foreign import javascript unsafe "window[\"HTMLFormElement\"]" gTypeHTMLFormElement :: GType - --- | Functions for this inteface are in "GHCJS.DOM.HTMLFrameElement". --- Base interface functions are in: --- --- * "GHCJS.DOM.HTMLElement" --- * "GHCJS.DOM.Element" --- * "GHCJS.DOM.Node" --- * "GHCJS.DOM.EventTarget" --- --- -newtype HTMLFrameElement = HTMLFrameElement { unHTMLFrameElement :: JSVal } - -instance Eq (HTMLFrameElement) where - (HTMLFrameElement a) == (HTMLFrameElement b) = js_eq a b - -instance PToJSVal HTMLFrameElement where - pToJSVal = unHTMLFrameElement - {-# INLINE pToJSVal #-} - -instance PFromJSVal HTMLFrameElement where - pFromJSVal = HTMLFrameElement - {-# INLINE pFromJSVal #-} - -instance ToJSVal HTMLFrameElement where - toJSVal = return . unHTMLFrameElement - {-# INLINE toJSVal #-} - -instance FromJSVal HTMLFrameElement where - fromJSVal = return . fmap HTMLFrameElement . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsHTMLElement HTMLFrameElement -instance IsElement HTMLFrameElement -instance IsNode HTMLFrameElement -instance IsEventTarget HTMLFrameElement -instance IsGObject HTMLFrameElement where - toGObject = GObject . unHTMLFrameElement - {-# INLINE toGObject #-} - unsafeCastGObject = HTMLFrameElement . unGObject - {-# INLINE unsafeCastGObject #-} - -castToHTMLFrameElement :: IsGObject obj => obj -> IO HTMLFrameElement -castToHTMLFrameElement = castTo gTypeHTMLFrameElement "HTMLFrameElement" - -foreign import javascript unsafe "window[\"HTMLFrameElement\"]" gTypeHTMLFrameElement :: GType - --- | Functions for this inteface are in "GHCJS.DOM.HTMLFrameSetElement". --- Base interface functions are in: --- --- * "GHCJS.DOM.HTMLElement" --- * "GHCJS.DOM.Element" --- * "GHCJS.DOM.Node" --- * "GHCJS.DOM.EventTarget" --- --- -newtype HTMLFrameSetElement = HTMLFrameSetElement { unHTMLFrameSetElement :: JSVal } - -instance Eq (HTMLFrameSetElement) where - (HTMLFrameSetElement a) == (HTMLFrameSetElement b) = js_eq a b - -instance PToJSVal HTMLFrameSetElement where - pToJSVal = unHTMLFrameSetElement - {-# INLINE pToJSVal #-} - -instance PFromJSVal HTMLFrameSetElement where - pFromJSVal = HTMLFrameSetElement - {-# INLINE pFromJSVal #-} - -instance ToJSVal HTMLFrameSetElement where - toJSVal = return . unHTMLFrameSetElement - {-# INLINE toJSVal #-} - -instance FromJSVal HTMLFrameSetElement where - fromJSVal = return . fmap HTMLFrameSetElement . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsHTMLElement HTMLFrameSetElement -instance IsElement HTMLFrameSetElement -instance IsNode HTMLFrameSetElement -instance IsEventTarget HTMLFrameSetElement -instance IsGObject HTMLFrameSetElement where - toGObject = GObject . unHTMLFrameSetElement - {-# INLINE toGObject #-} - unsafeCastGObject = HTMLFrameSetElement . unGObject - {-# INLINE unsafeCastGObject #-} - -castToHTMLFrameSetElement :: IsGObject obj => obj -> IO HTMLFrameSetElement -castToHTMLFrameSetElement = castTo gTypeHTMLFrameSetElement "HTMLFrameSetElement" - -foreign import javascript unsafe "window[\"HTMLFrameSetElement\"]" gTypeHTMLFrameSetElement :: GType - --- | Functions for this inteface are in "GHCJS.DOM.HTMLHRElement". --- Base interface functions are in: --- --- * "GHCJS.DOM.HTMLElement" --- * "GHCJS.DOM.Element" --- * "GHCJS.DOM.Node" --- * "GHCJS.DOM.EventTarget" --- --- -newtype HTMLHRElement = HTMLHRElement { unHTMLHRElement :: JSVal } - -instance Eq (HTMLHRElement) where - (HTMLHRElement a) == (HTMLHRElement b) = js_eq a b - -instance PToJSVal HTMLHRElement where - pToJSVal = unHTMLHRElement - {-# INLINE pToJSVal #-} - -instance PFromJSVal HTMLHRElement where - pFromJSVal = HTMLHRElement - {-# INLINE pFromJSVal #-} - -instance ToJSVal HTMLHRElement where - toJSVal = return . unHTMLHRElement - {-# INLINE toJSVal #-} - -instance FromJSVal HTMLHRElement where - fromJSVal = return . fmap HTMLHRElement . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsHTMLElement HTMLHRElement -instance IsElement HTMLHRElement -instance IsNode HTMLHRElement -instance IsEventTarget HTMLHRElement -instance IsGObject HTMLHRElement where - toGObject = GObject . unHTMLHRElement - {-# INLINE toGObject #-} - unsafeCastGObject = HTMLHRElement . unGObject - {-# INLINE unsafeCastGObject #-} - -castToHTMLHRElement :: IsGObject obj => obj -> IO HTMLHRElement -castToHTMLHRElement = castTo gTypeHTMLHRElement "HTMLHRElement" - -foreign import javascript unsafe "window[\"HTMLHRElement\"]" gTypeHTMLHRElement :: GType - --- | Functions for this inteface are in "GHCJS.DOM.HTMLHeadElement". --- Base interface functions are in: --- --- * "GHCJS.DOM.HTMLElement" --- * "GHCJS.DOM.Element" --- * "GHCJS.DOM.Node" --- * "GHCJS.DOM.EventTarget" --- --- -newtype HTMLHeadElement = HTMLHeadElement { unHTMLHeadElement :: JSVal } - -instance Eq (HTMLHeadElement) where - (HTMLHeadElement a) == (HTMLHeadElement b) = js_eq a b - -instance PToJSVal HTMLHeadElement where - pToJSVal = unHTMLHeadElement - {-# INLINE pToJSVal #-} - -instance PFromJSVal HTMLHeadElement where - pFromJSVal = HTMLHeadElement - {-# INLINE pFromJSVal #-} - -instance ToJSVal HTMLHeadElement where - toJSVal = return . unHTMLHeadElement - {-# INLINE toJSVal #-} - -instance FromJSVal HTMLHeadElement where - fromJSVal = return . fmap HTMLHeadElement . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsHTMLElement HTMLHeadElement -instance IsElement HTMLHeadElement -instance IsNode HTMLHeadElement -instance IsEventTarget HTMLHeadElement -instance IsGObject HTMLHeadElement where - toGObject = GObject . unHTMLHeadElement - {-# INLINE toGObject #-} - unsafeCastGObject = HTMLHeadElement . unGObject - {-# INLINE unsafeCastGObject #-} - -castToHTMLHeadElement :: IsGObject obj => obj -> IO HTMLHeadElement -castToHTMLHeadElement = castTo gTypeHTMLHeadElement "HTMLHeadElement" - -foreign import javascript unsafe "window[\"HTMLHeadElement\"]" gTypeHTMLHeadElement :: GType - --- | Functions for this inteface are in "GHCJS.DOM.HTMLHeadingElement". --- Base interface functions are in: --- --- * "GHCJS.DOM.HTMLElement" --- * "GHCJS.DOM.Element" --- * "GHCJS.DOM.Node" --- * "GHCJS.DOM.EventTarget" --- --- -newtype HTMLHeadingElement = HTMLHeadingElement { unHTMLHeadingElement :: JSVal } - -instance Eq (HTMLHeadingElement) where - (HTMLHeadingElement a) == (HTMLHeadingElement b) = js_eq a b - -instance PToJSVal HTMLHeadingElement where - pToJSVal = unHTMLHeadingElement - {-# INLINE pToJSVal #-} - -instance PFromJSVal HTMLHeadingElement where - pFromJSVal = HTMLHeadingElement - {-# INLINE pFromJSVal #-} - -instance ToJSVal HTMLHeadingElement where - toJSVal = return . unHTMLHeadingElement - {-# INLINE toJSVal #-} - -instance FromJSVal HTMLHeadingElement where - fromJSVal = return . fmap HTMLHeadingElement . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsHTMLElement HTMLHeadingElement -instance IsElement HTMLHeadingElement -instance IsNode HTMLHeadingElement -instance IsEventTarget HTMLHeadingElement -instance IsGObject HTMLHeadingElement where - toGObject = GObject . unHTMLHeadingElement - {-# INLINE toGObject #-} - unsafeCastGObject = HTMLHeadingElement . unGObject - {-# INLINE unsafeCastGObject #-} - -castToHTMLHeadingElement :: IsGObject obj => obj -> IO HTMLHeadingElement -castToHTMLHeadingElement = castTo gTypeHTMLHeadingElement "HTMLHeadingElement" - -foreign import javascript unsafe "window[\"HTMLHeadingElement\"]" gTypeHTMLHeadingElement :: GType - --- | Functions for this inteface are in "GHCJS.DOM.HTMLHtmlElement". --- Base interface functions are in: --- --- * "GHCJS.DOM.HTMLElement" --- * "GHCJS.DOM.Element" --- * "GHCJS.DOM.Node" --- * "GHCJS.DOM.EventTarget" --- --- -newtype HTMLHtmlElement = HTMLHtmlElement { unHTMLHtmlElement :: JSVal } - -instance Eq (HTMLHtmlElement) where - (HTMLHtmlElement a) == (HTMLHtmlElement b) = js_eq a b - -instance PToJSVal HTMLHtmlElement where - pToJSVal = unHTMLHtmlElement - {-# INLINE pToJSVal #-} - -instance PFromJSVal HTMLHtmlElement where - pFromJSVal = HTMLHtmlElement - {-# INLINE pFromJSVal #-} - -instance ToJSVal HTMLHtmlElement where - toJSVal = return . unHTMLHtmlElement - {-# INLINE toJSVal #-} - -instance FromJSVal HTMLHtmlElement where - fromJSVal = return . fmap HTMLHtmlElement . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsHTMLElement HTMLHtmlElement -instance IsElement HTMLHtmlElement -instance IsNode HTMLHtmlElement -instance IsEventTarget HTMLHtmlElement -instance IsGObject HTMLHtmlElement where - toGObject = GObject . unHTMLHtmlElement - {-# INLINE toGObject #-} - unsafeCastGObject = HTMLHtmlElement . unGObject - {-# INLINE unsafeCastGObject #-} - -castToHTMLHtmlElement :: IsGObject obj => obj -> IO HTMLHtmlElement -castToHTMLHtmlElement = castTo gTypeHTMLHtmlElement "HTMLHtmlElement" - -foreign import javascript unsafe "window[\"HTMLHtmlElement\"]" gTypeHTMLHtmlElement :: GType - --- | Functions for this inteface are in "GHCJS.DOM.HTMLIFrameElement". --- Base interface functions are in: --- --- * "GHCJS.DOM.HTMLElement" --- * "GHCJS.DOM.Element" --- * "GHCJS.DOM.Node" --- * "GHCJS.DOM.EventTarget" --- --- -newtype HTMLIFrameElement = HTMLIFrameElement { unHTMLIFrameElement :: JSVal } - -instance Eq (HTMLIFrameElement) where - (HTMLIFrameElement a) == (HTMLIFrameElement b) = js_eq a b - -instance PToJSVal HTMLIFrameElement where - pToJSVal = unHTMLIFrameElement - {-# INLINE pToJSVal #-} - -instance PFromJSVal HTMLIFrameElement where - pFromJSVal = HTMLIFrameElement - {-# INLINE pFromJSVal #-} - -instance ToJSVal HTMLIFrameElement where - toJSVal = return . unHTMLIFrameElement - {-# INLINE toJSVal #-} - -instance FromJSVal HTMLIFrameElement where - fromJSVal = return . fmap HTMLIFrameElement . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsHTMLElement HTMLIFrameElement -instance IsElement HTMLIFrameElement -instance IsNode HTMLIFrameElement -instance IsEventTarget HTMLIFrameElement -instance IsGObject HTMLIFrameElement where - toGObject = GObject . unHTMLIFrameElement - {-# INLINE toGObject #-} - unsafeCastGObject = HTMLIFrameElement . unGObject - {-# INLINE unsafeCastGObject #-} - -castToHTMLIFrameElement :: IsGObject obj => obj -> IO HTMLIFrameElement -castToHTMLIFrameElement = castTo gTypeHTMLIFrameElement "HTMLIFrameElement" - -foreign import javascript unsafe "window[\"HTMLIFrameElement\"]" gTypeHTMLIFrameElement :: GType - --- | Functions for this inteface are in "GHCJS.DOM.HTMLImageElement". --- Base interface functions are in: --- --- * "GHCJS.DOM.HTMLElement" --- * "GHCJS.DOM.Element" --- * "GHCJS.DOM.Node" --- * "GHCJS.DOM.EventTarget" --- --- -newtype HTMLImageElement = HTMLImageElement { unHTMLImageElement :: JSVal } - -instance Eq (HTMLImageElement) where - (HTMLImageElement a) == (HTMLImageElement b) = js_eq a b - -instance PToJSVal HTMLImageElement where - pToJSVal = unHTMLImageElement - {-# INLINE pToJSVal #-} - -instance PFromJSVal HTMLImageElement where - pFromJSVal = HTMLImageElement - {-# INLINE pFromJSVal #-} - -instance ToJSVal HTMLImageElement where - toJSVal = return . unHTMLImageElement - {-# INLINE toJSVal #-} - -instance FromJSVal HTMLImageElement where - fromJSVal = return . fmap HTMLImageElement . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsHTMLElement HTMLImageElement -instance IsElement HTMLImageElement -instance IsNode HTMLImageElement -instance IsEventTarget HTMLImageElement -instance IsGObject HTMLImageElement where - toGObject = GObject . unHTMLImageElement - {-# INLINE toGObject #-} - unsafeCastGObject = HTMLImageElement . unGObject - {-# INLINE unsafeCastGObject #-} - -castToHTMLImageElement :: IsGObject obj => obj -> IO HTMLImageElement -castToHTMLImageElement = castTo gTypeHTMLImageElement "HTMLImageElement" - -foreign import javascript unsafe "window[\"HTMLImageElement\"]" gTypeHTMLImageElement :: GType - --- | Functions for this inteface are in "GHCJS.DOM.HTMLInputElement". --- Base interface functions are in: --- --- * "GHCJS.DOM.HTMLElement" --- * "GHCJS.DOM.Element" --- * "GHCJS.DOM.Node" --- * "GHCJS.DOM.EventTarget" --- --- -newtype HTMLInputElement = HTMLInputElement { unHTMLInputElement :: JSVal } - -instance Eq (HTMLInputElement) where - (HTMLInputElement a) == (HTMLInputElement b) = js_eq a b - -instance PToJSVal HTMLInputElement where - pToJSVal = unHTMLInputElement - {-# INLINE pToJSVal #-} - -instance PFromJSVal HTMLInputElement where - pFromJSVal = HTMLInputElement - {-# INLINE pFromJSVal #-} - -instance ToJSVal HTMLInputElement where - toJSVal = return . unHTMLInputElement - {-# INLINE toJSVal #-} - -instance FromJSVal HTMLInputElement where - fromJSVal = return . fmap HTMLInputElement . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsHTMLElement HTMLInputElement -instance IsElement HTMLInputElement -instance IsNode HTMLInputElement -instance IsEventTarget HTMLInputElement -instance IsGObject HTMLInputElement where - toGObject = GObject . unHTMLInputElement - {-# INLINE toGObject #-} - unsafeCastGObject = HTMLInputElement . unGObject - {-# INLINE unsafeCastGObject #-} - -castToHTMLInputElement :: IsGObject obj => obj -> IO HTMLInputElement -castToHTMLInputElement = castTo gTypeHTMLInputElement "HTMLInputElement" - -foreign import javascript unsafe "window[\"HTMLInputElement\"]" gTypeHTMLInputElement :: GType - --- | Functions for this inteface are in "GHCJS.DOM.HTMLKeygenElement". --- Base interface functions are in: --- --- * "GHCJS.DOM.HTMLElement" --- * "GHCJS.DOM.Element" --- * "GHCJS.DOM.Node" --- * "GHCJS.DOM.EventTarget" --- --- -newtype HTMLKeygenElement = HTMLKeygenElement { unHTMLKeygenElement :: JSVal } - -instance Eq (HTMLKeygenElement) where - (HTMLKeygenElement a) == (HTMLKeygenElement b) = js_eq a b - -instance PToJSVal HTMLKeygenElement where - pToJSVal = unHTMLKeygenElement - {-# INLINE pToJSVal #-} - -instance PFromJSVal HTMLKeygenElement where - pFromJSVal = HTMLKeygenElement - {-# INLINE pFromJSVal #-} - -instance ToJSVal HTMLKeygenElement where - toJSVal = return . unHTMLKeygenElement - {-# INLINE toJSVal #-} - -instance FromJSVal HTMLKeygenElement where - fromJSVal = return . fmap HTMLKeygenElement . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsHTMLElement HTMLKeygenElement -instance IsElement HTMLKeygenElement -instance IsNode HTMLKeygenElement -instance IsEventTarget HTMLKeygenElement -instance IsGObject HTMLKeygenElement where - toGObject = GObject . unHTMLKeygenElement - {-# INLINE toGObject #-} - unsafeCastGObject = HTMLKeygenElement . unGObject - {-# INLINE unsafeCastGObject #-} - -castToHTMLKeygenElement :: IsGObject obj => obj -> IO HTMLKeygenElement -castToHTMLKeygenElement = castTo gTypeHTMLKeygenElement "HTMLKeygenElement" - -foreign import javascript unsafe "window[\"HTMLKeygenElement\"]" gTypeHTMLKeygenElement :: GType - --- | Functions for this inteface are in "GHCJS.DOM.HTMLLIElement". --- Base interface functions are in: --- --- * "GHCJS.DOM.HTMLElement" --- * "GHCJS.DOM.Element" --- * "GHCJS.DOM.Node" --- * "GHCJS.DOM.EventTarget" --- --- -newtype HTMLLIElement = HTMLLIElement { unHTMLLIElement :: JSVal } - -instance Eq (HTMLLIElement) where - (HTMLLIElement a) == (HTMLLIElement b) = js_eq a b - -instance PToJSVal HTMLLIElement where - pToJSVal = unHTMLLIElement - {-# INLINE pToJSVal #-} - -instance PFromJSVal HTMLLIElement where - pFromJSVal = HTMLLIElement - {-# INLINE pFromJSVal #-} - -instance ToJSVal HTMLLIElement where - toJSVal = return . unHTMLLIElement - {-# INLINE toJSVal #-} - -instance FromJSVal HTMLLIElement where - fromJSVal = return . fmap HTMLLIElement . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsHTMLElement HTMLLIElement -instance IsElement HTMLLIElement -instance IsNode HTMLLIElement -instance IsEventTarget HTMLLIElement -instance IsGObject HTMLLIElement where - toGObject = GObject . unHTMLLIElement - {-# INLINE toGObject #-} - unsafeCastGObject = HTMLLIElement . unGObject - {-# INLINE unsafeCastGObject #-} - -castToHTMLLIElement :: IsGObject obj => obj -> IO HTMLLIElement -castToHTMLLIElement = castTo gTypeHTMLLIElement "HTMLLIElement" - -foreign import javascript unsafe "window[\"HTMLLIElement\"]" gTypeHTMLLIElement :: GType - --- | Functions for this inteface are in "GHCJS.DOM.HTMLLabelElement". --- Base interface functions are in: --- --- * "GHCJS.DOM.HTMLElement" --- * "GHCJS.DOM.Element" --- * "GHCJS.DOM.Node" --- * "GHCJS.DOM.EventTarget" --- --- -newtype HTMLLabelElement = HTMLLabelElement { unHTMLLabelElement :: JSVal } - -instance Eq (HTMLLabelElement) where - (HTMLLabelElement a) == (HTMLLabelElement b) = js_eq a b - -instance PToJSVal HTMLLabelElement where - pToJSVal = unHTMLLabelElement - {-# INLINE pToJSVal #-} - -instance PFromJSVal HTMLLabelElement where - pFromJSVal = HTMLLabelElement - {-# INLINE pFromJSVal #-} - -instance ToJSVal HTMLLabelElement where - toJSVal = return . unHTMLLabelElement - {-# INLINE toJSVal #-} - -instance FromJSVal HTMLLabelElement where - fromJSVal = return . fmap HTMLLabelElement . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsHTMLElement HTMLLabelElement -instance IsElement HTMLLabelElement -instance IsNode HTMLLabelElement -instance IsEventTarget HTMLLabelElement -instance IsGObject HTMLLabelElement where - toGObject = GObject . unHTMLLabelElement - {-# INLINE toGObject #-} - unsafeCastGObject = HTMLLabelElement . unGObject - {-# INLINE unsafeCastGObject #-} - -castToHTMLLabelElement :: IsGObject obj => obj -> IO HTMLLabelElement -castToHTMLLabelElement = castTo gTypeHTMLLabelElement "HTMLLabelElement" - -foreign import javascript unsafe "window[\"HTMLLabelElement\"]" gTypeHTMLLabelElement :: GType - --- | Functions for this inteface are in "GHCJS.DOM.HTMLLegendElement". --- Base interface functions are in: --- --- * "GHCJS.DOM.HTMLElement" --- * "GHCJS.DOM.Element" --- * "GHCJS.DOM.Node" --- * "GHCJS.DOM.EventTarget" --- --- -newtype HTMLLegendElement = HTMLLegendElement { unHTMLLegendElement :: JSVal } - -instance Eq (HTMLLegendElement) where - (HTMLLegendElement a) == (HTMLLegendElement b) = js_eq a b - -instance PToJSVal HTMLLegendElement where - pToJSVal = unHTMLLegendElement - {-# INLINE pToJSVal #-} - -instance PFromJSVal HTMLLegendElement where - pFromJSVal = HTMLLegendElement - {-# INLINE pFromJSVal #-} - -instance ToJSVal HTMLLegendElement where - toJSVal = return . unHTMLLegendElement - {-# INLINE toJSVal #-} - -instance FromJSVal HTMLLegendElement where - fromJSVal = return . fmap HTMLLegendElement . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsHTMLElement HTMLLegendElement -instance IsElement HTMLLegendElement -instance IsNode HTMLLegendElement -instance IsEventTarget HTMLLegendElement -instance IsGObject HTMLLegendElement where - toGObject = GObject . unHTMLLegendElement - {-# INLINE toGObject #-} - unsafeCastGObject = HTMLLegendElement . unGObject - {-# INLINE unsafeCastGObject #-} - -castToHTMLLegendElement :: IsGObject obj => obj -> IO HTMLLegendElement -castToHTMLLegendElement = castTo gTypeHTMLLegendElement "HTMLLegendElement" - -foreign import javascript unsafe "window[\"HTMLLegendElement\"]" gTypeHTMLLegendElement :: GType - --- | Functions for this inteface are in "GHCJS.DOM.HTMLLinkElement". --- Base interface functions are in: --- --- * "GHCJS.DOM.HTMLElement" --- * "GHCJS.DOM.Element" --- * "GHCJS.DOM.Node" --- * "GHCJS.DOM.EventTarget" --- --- -newtype HTMLLinkElement = HTMLLinkElement { unHTMLLinkElement :: JSVal } - -instance Eq (HTMLLinkElement) where - (HTMLLinkElement a) == (HTMLLinkElement b) = js_eq a b - -instance PToJSVal HTMLLinkElement where - pToJSVal = unHTMLLinkElement - {-# INLINE pToJSVal #-} - -instance PFromJSVal HTMLLinkElement where - pFromJSVal = HTMLLinkElement - {-# INLINE pFromJSVal #-} - -instance ToJSVal HTMLLinkElement where - toJSVal = return . unHTMLLinkElement - {-# INLINE toJSVal #-} - -instance FromJSVal HTMLLinkElement where - fromJSVal = return . fmap HTMLLinkElement . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsHTMLElement HTMLLinkElement -instance IsElement HTMLLinkElement -instance IsNode HTMLLinkElement -instance IsEventTarget HTMLLinkElement -instance IsGObject HTMLLinkElement where - toGObject = GObject . unHTMLLinkElement - {-# INLINE toGObject #-} - unsafeCastGObject = HTMLLinkElement . unGObject - {-# INLINE unsafeCastGObject #-} - -castToHTMLLinkElement :: IsGObject obj => obj -> IO HTMLLinkElement -castToHTMLLinkElement = castTo gTypeHTMLLinkElement "HTMLLinkElement" - -foreign import javascript unsafe "window[\"HTMLLinkElement\"]" gTypeHTMLLinkElement :: GType - --- | Functions for this inteface are in "GHCJS.DOM.HTMLMapElement". --- Base interface functions are in: --- --- * "GHCJS.DOM.HTMLElement" --- * "GHCJS.DOM.Element" --- * "GHCJS.DOM.Node" --- * "GHCJS.DOM.EventTarget" --- --- -newtype HTMLMapElement = HTMLMapElement { unHTMLMapElement :: JSVal } - -instance Eq (HTMLMapElement) where - (HTMLMapElement a) == (HTMLMapElement b) = js_eq a b - -instance PToJSVal HTMLMapElement where - pToJSVal = unHTMLMapElement - {-# INLINE pToJSVal #-} - -instance PFromJSVal HTMLMapElement where - pFromJSVal = HTMLMapElement - {-# INLINE pFromJSVal #-} - -instance ToJSVal HTMLMapElement where - toJSVal = return . unHTMLMapElement - {-# INLINE toJSVal #-} - -instance FromJSVal HTMLMapElement where - fromJSVal = return . fmap HTMLMapElement . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsHTMLElement HTMLMapElement -instance IsElement HTMLMapElement -instance IsNode HTMLMapElement -instance IsEventTarget HTMLMapElement -instance IsGObject HTMLMapElement where - toGObject = GObject . unHTMLMapElement - {-# INLINE toGObject #-} - unsafeCastGObject = HTMLMapElement . unGObject - {-# INLINE unsafeCastGObject #-} - -castToHTMLMapElement :: IsGObject obj => obj -> IO HTMLMapElement -castToHTMLMapElement = castTo gTypeHTMLMapElement "HTMLMapElement" - -foreign import javascript unsafe "window[\"HTMLMapElement\"]" gTypeHTMLMapElement :: GType - --- | Functions for this inteface are in "GHCJS.DOM.HTMLMarqueeElement". --- Base interface functions are in: --- --- * "GHCJS.DOM.HTMLElement" --- * "GHCJS.DOM.Element" --- * "GHCJS.DOM.Node" --- * "GHCJS.DOM.EventTarget" --- --- -newtype HTMLMarqueeElement = HTMLMarqueeElement { unHTMLMarqueeElement :: JSVal } - -instance Eq (HTMLMarqueeElement) where - (HTMLMarqueeElement a) == (HTMLMarqueeElement b) = js_eq a b - -instance PToJSVal HTMLMarqueeElement where - pToJSVal = unHTMLMarqueeElement - {-# INLINE pToJSVal #-} - -instance PFromJSVal HTMLMarqueeElement where - pFromJSVal = HTMLMarqueeElement - {-# INLINE pFromJSVal #-} - -instance ToJSVal HTMLMarqueeElement where - toJSVal = return . unHTMLMarqueeElement - {-# INLINE toJSVal #-} - -instance FromJSVal HTMLMarqueeElement where - fromJSVal = return . fmap HTMLMarqueeElement . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsHTMLElement HTMLMarqueeElement -instance IsElement HTMLMarqueeElement -instance IsNode HTMLMarqueeElement -instance IsEventTarget HTMLMarqueeElement -instance IsGObject HTMLMarqueeElement where - toGObject = GObject . unHTMLMarqueeElement - {-# INLINE toGObject #-} - unsafeCastGObject = HTMLMarqueeElement . unGObject - {-# INLINE unsafeCastGObject #-} - -castToHTMLMarqueeElement :: IsGObject obj => obj -> IO HTMLMarqueeElement -castToHTMLMarqueeElement = castTo gTypeHTMLMarqueeElement "HTMLMarqueeElement" - -foreign import javascript unsafe "window[\"HTMLMarqueeElement\"]" gTypeHTMLMarqueeElement :: GType - --- | Functions for this inteface are in "GHCJS.DOM.HTMLMediaElement". --- Base interface functions are in: --- --- * "GHCJS.DOM.HTMLElement" --- * "GHCJS.DOM.Element" --- * "GHCJS.DOM.Node" --- * "GHCJS.DOM.EventTarget" --- --- -newtype HTMLMediaElement = HTMLMediaElement { unHTMLMediaElement :: JSVal } - -instance Eq (HTMLMediaElement) where - (HTMLMediaElement a) == (HTMLMediaElement b) = js_eq a b - -instance PToJSVal HTMLMediaElement where - pToJSVal = unHTMLMediaElement - {-# INLINE pToJSVal #-} - -instance PFromJSVal HTMLMediaElement where - pFromJSVal = HTMLMediaElement - {-# INLINE pFromJSVal #-} - -instance ToJSVal HTMLMediaElement where - toJSVal = return . unHTMLMediaElement - {-# INLINE toJSVal #-} - -instance FromJSVal HTMLMediaElement where - fromJSVal = return . fmap HTMLMediaElement . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -class IsHTMLElement o => IsHTMLMediaElement o -toHTMLMediaElement :: IsHTMLMediaElement o => o -> HTMLMediaElement -toHTMLMediaElement = unsafeCastGObject . toGObject - -instance IsHTMLMediaElement HTMLMediaElement -instance IsHTMLElement HTMLMediaElement -instance IsElement HTMLMediaElement -instance IsNode HTMLMediaElement -instance IsEventTarget HTMLMediaElement -instance IsGObject HTMLMediaElement where - toGObject = GObject . unHTMLMediaElement - {-# INLINE toGObject #-} - unsafeCastGObject = HTMLMediaElement . unGObject - {-# INLINE unsafeCastGObject #-} - -castToHTMLMediaElement :: IsGObject obj => obj -> IO HTMLMediaElement -castToHTMLMediaElement = castTo gTypeHTMLMediaElement "HTMLMediaElement" - -foreign import javascript unsafe "window[\"HTMLMediaElement\"]" gTypeHTMLMediaElement :: GType - --- | Functions for this inteface are in "GHCJS.DOM.HTMLMenuElement". --- Base interface functions are in: --- --- * "GHCJS.DOM.HTMLElement" --- * "GHCJS.DOM.Element" --- * "GHCJS.DOM.Node" --- * "GHCJS.DOM.EventTarget" --- --- -newtype HTMLMenuElement = HTMLMenuElement { unHTMLMenuElement :: JSVal } - -instance Eq (HTMLMenuElement) where - (HTMLMenuElement a) == (HTMLMenuElement b) = js_eq a b - -instance PToJSVal HTMLMenuElement where - pToJSVal = unHTMLMenuElement - {-# INLINE pToJSVal #-} - -instance PFromJSVal HTMLMenuElement where - pFromJSVal = HTMLMenuElement - {-# INLINE pFromJSVal #-} - -instance ToJSVal HTMLMenuElement where - toJSVal = return . unHTMLMenuElement - {-# INLINE toJSVal #-} - -instance FromJSVal HTMLMenuElement where - fromJSVal = return . fmap HTMLMenuElement . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsHTMLElement HTMLMenuElement -instance IsElement HTMLMenuElement -instance IsNode HTMLMenuElement -instance IsEventTarget HTMLMenuElement -instance IsGObject HTMLMenuElement where - toGObject = GObject . unHTMLMenuElement - {-# INLINE toGObject #-} - unsafeCastGObject = HTMLMenuElement . unGObject - {-# INLINE unsafeCastGObject #-} - -castToHTMLMenuElement :: IsGObject obj => obj -> IO HTMLMenuElement -castToHTMLMenuElement = castTo gTypeHTMLMenuElement "HTMLMenuElement" - -foreign import javascript unsafe "window[\"HTMLMenuElement\"]" gTypeHTMLMenuElement :: GType - --- | Functions for this inteface are in "GHCJS.DOM.HTMLMetaElement". --- Base interface functions are in: --- --- * "GHCJS.DOM.HTMLElement" --- * "GHCJS.DOM.Element" --- * "GHCJS.DOM.Node" --- * "GHCJS.DOM.EventTarget" --- --- -newtype HTMLMetaElement = HTMLMetaElement { unHTMLMetaElement :: JSVal } - -instance Eq (HTMLMetaElement) where - (HTMLMetaElement a) == (HTMLMetaElement b) = js_eq a b - -instance PToJSVal HTMLMetaElement where - pToJSVal = unHTMLMetaElement - {-# INLINE pToJSVal #-} - -instance PFromJSVal HTMLMetaElement where - pFromJSVal = HTMLMetaElement - {-# INLINE pFromJSVal #-} - -instance ToJSVal HTMLMetaElement where - toJSVal = return . unHTMLMetaElement - {-# INLINE toJSVal #-} - -instance FromJSVal HTMLMetaElement where - fromJSVal = return . fmap HTMLMetaElement . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsHTMLElement HTMLMetaElement -instance IsElement HTMLMetaElement -instance IsNode HTMLMetaElement -instance IsEventTarget HTMLMetaElement -instance IsGObject HTMLMetaElement where - toGObject = GObject . unHTMLMetaElement - {-# INLINE toGObject #-} - unsafeCastGObject = HTMLMetaElement . unGObject - {-# INLINE unsafeCastGObject #-} - -castToHTMLMetaElement :: IsGObject obj => obj -> IO HTMLMetaElement -castToHTMLMetaElement = castTo gTypeHTMLMetaElement "HTMLMetaElement" - -foreign import javascript unsafe "window[\"HTMLMetaElement\"]" gTypeHTMLMetaElement :: GType - --- | Functions for this inteface are in "GHCJS.DOM.HTMLMeterElement". --- Base interface functions are in: --- --- * "GHCJS.DOM.HTMLElement" --- * "GHCJS.DOM.Element" --- * "GHCJS.DOM.Node" --- * "GHCJS.DOM.EventTarget" --- --- -newtype HTMLMeterElement = HTMLMeterElement { unHTMLMeterElement :: JSVal } - -instance Eq (HTMLMeterElement) where - (HTMLMeterElement a) == (HTMLMeterElement b) = js_eq a b - -instance PToJSVal HTMLMeterElement where - pToJSVal = unHTMLMeterElement - {-# INLINE pToJSVal #-} - -instance PFromJSVal HTMLMeterElement where - pFromJSVal = HTMLMeterElement - {-# INLINE pFromJSVal #-} - -instance ToJSVal HTMLMeterElement where - toJSVal = return . unHTMLMeterElement - {-# INLINE toJSVal #-} - -instance FromJSVal HTMLMeterElement where - fromJSVal = return . fmap HTMLMeterElement . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsHTMLElement HTMLMeterElement -instance IsElement HTMLMeterElement -instance IsNode HTMLMeterElement -instance IsEventTarget HTMLMeterElement -instance IsGObject HTMLMeterElement where - toGObject = GObject . unHTMLMeterElement - {-# INLINE toGObject #-} - unsafeCastGObject = HTMLMeterElement . unGObject - {-# INLINE unsafeCastGObject #-} - -castToHTMLMeterElement :: IsGObject obj => obj -> IO HTMLMeterElement -castToHTMLMeterElement = castTo gTypeHTMLMeterElement "HTMLMeterElement" - -foreign import javascript unsafe "window[\"HTMLMeterElement\"]" gTypeHTMLMeterElement :: GType - --- | Functions for this inteface are in "GHCJS.DOM.HTMLModElement". --- Base interface functions are in: --- --- * "GHCJS.DOM.HTMLElement" --- * "GHCJS.DOM.Element" --- * "GHCJS.DOM.Node" --- * "GHCJS.DOM.EventTarget" --- --- -newtype HTMLModElement = HTMLModElement { unHTMLModElement :: JSVal } - -instance Eq (HTMLModElement) where - (HTMLModElement a) == (HTMLModElement b) = js_eq a b - -instance PToJSVal HTMLModElement where - pToJSVal = unHTMLModElement - {-# INLINE pToJSVal #-} - -instance PFromJSVal HTMLModElement where - pFromJSVal = HTMLModElement - {-# INLINE pFromJSVal #-} - -instance ToJSVal HTMLModElement where - toJSVal = return . unHTMLModElement - {-# INLINE toJSVal #-} - -instance FromJSVal HTMLModElement where - fromJSVal = return . fmap HTMLModElement . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsHTMLElement HTMLModElement -instance IsElement HTMLModElement -instance IsNode HTMLModElement -instance IsEventTarget HTMLModElement -instance IsGObject HTMLModElement where - toGObject = GObject . unHTMLModElement - {-# INLINE toGObject #-} - unsafeCastGObject = HTMLModElement . unGObject - {-# INLINE unsafeCastGObject #-} - -castToHTMLModElement :: IsGObject obj => obj -> IO HTMLModElement -castToHTMLModElement = castTo gTypeHTMLModElement "HTMLModElement" - -foreign import javascript unsafe "window[\"HTMLModElement\"]" gTypeHTMLModElement :: GType - --- | Functions for this inteface are in "GHCJS.DOM.HTMLOListElement". --- Base interface functions are in: --- --- * "GHCJS.DOM.HTMLElement" --- * "GHCJS.DOM.Element" --- * "GHCJS.DOM.Node" --- * "GHCJS.DOM.EventTarget" --- --- -newtype HTMLOListElement = HTMLOListElement { unHTMLOListElement :: JSVal } - -instance Eq (HTMLOListElement) where - (HTMLOListElement a) == (HTMLOListElement b) = js_eq a b - -instance PToJSVal HTMLOListElement where - pToJSVal = unHTMLOListElement - {-# INLINE pToJSVal #-} - -instance PFromJSVal HTMLOListElement where - pFromJSVal = HTMLOListElement - {-# INLINE pFromJSVal #-} - -instance ToJSVal HTMLOListElement where - toJSVal = return . unHTMLOListElement - {-# INLINE toJSVal #-} - -instance FromJSVal HTMLOListElement where - fromJSVal = return . fmap HTMLOListElement . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsHTMLElement HTMLOListElement -instance IsElement HTMLOListElement -instance IsNode HTMLOListElement -instance IsEventTarget HTMLOListElement -instance IsGObject HTMLOListElement where - toGObject = GObject . unHTMLOListElement - {-# INLINE toGObject #-} - unsafeCastGObject = HTMLOListElement . unGObject - {-# INLINE unsafeCastGObject #-} - -castToHTMLOListElement :: IsGObject obj => obj -> IO HTMLOListElement -castToHTMLOListElement = castTo gTypeHTMLOListElement "HTMLOListElement" - -foreign import javascript unsafe "window[\"HTMLOListElement\"]" gTypeHTMLOListElement :: GType - --- | Functions for this inteface are in "GHCJS.DOM.HTMLObjectElement". --- Base interface functions are in: --- --- * "GHCJS.DOM.HTMLElement" --- * "GHCJS.DOM.Element" --- * "GHCJS.DOM.Node" --- * "GHCJS.DOM.EventTarget" --- --- -newtype HTMLObjectElement = HTMLObjectElement { unHTMLObjectElement :: JSVal } - -instance Eq (HTMLObjectElement) where - (HTMLObjectElement a) == (HTMLObjectElement b) = js_eq a b - -instance PToJSVal HTMLObjectElement where - pToJSVal = unHTMLObjectElement - {-# INLINE pToJSVal #-} - -instance PFromJSVal HTMLObjectElement where - pFromJSVal = HTMLObjectElement - {-# INLINE pFromJSVal #-} - -instance ToJSVal HTMLObjectElement where - toJSVal = return . unHTMLObjectElement - {-# INLINE toJSVal #-} - -instance FromJSVal HTMLObjectElement where - fromJSVal = return . fmap HTMLObjectElement . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsHTMLElement HTMLObjectElement -instance IsElement HTMLObjectElement -instance IsNode HTMLObjectElement -instance IsEventTarget HTMLObjectElement -instance IsGObject HTMLObjectElement where - toGObject = GObject . unHTMLObjectElement - {-# INLINE toGObject #-} - unsafeCastGObject = HTMLObjectElement . unGObject - {-# INLINE unsafeCastGObject #-} - -castToHTMLObjectElement :: IsGObject obj => obj -> IO HTMLObjectElement -castToHTMLObjectElement = castTo gTypeHTMLObjectElement "HTMLObjectElement" - -foreign import javascript unsafe "window[\"HTMLObjectElement\"]" gTypeHTMLObjectElement :: GType - --- | Functions for this inteface are in "GHCJS.DOM.HTMLOptGroupElement". --- Base interface functions are in: --- --- * "GHCJS.DOM.HTMLElement" --- * "GHCJS.DOM.Element" --- * "GHCJS.DOM.Node" --- * "GHCJS.DOM.EventTarget" --- --- -newtype HTMLOptGroupElement = HTMLOptGroupElement { unHTMLOptGroupElement :: JSVal } - -instance Eq (HTMLOptGroupElement) where - (HTMLOptGroupElement a) == (HTMLOptGroupElement b) = js_eq a b - -instance PToJSVal HTMLOptGroupElement where - pToJSVal = unHTMLOptGroupElement - {-# INLINE pToJSVal #-} - -instance PFromJSVal HTMLOptGroupElement where - pFromJSVal = HTMLOptGroupElement - {-# INLINE pFromJSVal #-} - -instance ToJSVal HTMLOptGroupElement where - toJSVal = return . unHTMLOptGroupElement - {-# INLINE toJSVal #-} - -instance FromJSVal HTMLOptGroupElement where - fromJSVal = return . fmap HTMLOptGroupElement . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsHTMLElement HTMLOptGroupElement -instance IsElement HTMLOptGroupElement -instance IsNode HTMLOptGroupElement -instance IsEventTarget HTMLOptGroupElement -instance IsGObject HTMLOptGroupElement where - toGObject = GObject . unHTMLOptGroupElement - {-# INLINE toGObject #-} - unsafeCastGObject = HTMLOptGroupElement . unGObject - {-# INLINE unsafeCastGObject #-} - -castToHTMLOptGroupElement :: IsGObject obj => obj -> IO HTMLOptGroupElement -castToHTMLOptGroupElement = castTo gTypeHTMLOptGroupElement "HTMLOptGroupElement" - -foreign import javascript unsafe "window[\"HTMLOptGroupElement\"]" gTypeHTMLOptGroupElement :: GType - --- | Functions for this inteface are in "GHCJS.DOM.HTMLOptionElement". --- Base interface functions are in: --- --- * "GHCJS.DOM.HTMLElement" --- * "GHCJS.DOM.Element" --- * "GHCJS.DOM.Node" --- * "GHCJS.DOM.EventTarget" --- --- -newtype HTMLOptionElement = HTMLOptionElement { unHTMLOptionElement :: JSVal } - -instance Eq (HTMLOptionElement) where - (HTMLOptionElement a) == (HTMLOptionElement b) = js_eq a b - -instance PToJSVal HTMLOptionElement where - pToJSVal = unHTMLOptionElement - {-# INLINE pToJSVal #-} - -instance PFromJSVal HTMLOptionElement where - pFromJSVal = HTMLOptionElement - {-# INLINE pFromJSVal #-} - -instance ToJSVal HTMLOptionElement where - toJSVal = return . unHTMLOptionElement - {-# INLINE toJSVal #-} - -instance FromJSVal HTMLOptionElement where - fromJSVal = return . fmap HTMLOptionElement . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsHTMLElement HTMLOptionElement -instance IsElement HTMLOptionElement -instance IsNode HTMLOptionElement -instance IsEventTarget HTMLOptionElement -instance IsGObject HTMLOptionElement where - toGObject = GObject . unHTMLOptionElement - {-# INLINE toGObject #-} - unsafeCastGObject = HTMLOptionElement . unGObject - {-# INLINE unsafeCastGObject #-} - -castToHTMLOptionElement :: IsGObject obj => obj -> IO HTMLOptionElement -castToHTMLOptionElement = castTo gTypeHTMLOptionElement "HTMLOptionElement" - -foreign import javascript unsafe "window[\"HTMLOptionElement\"]" gTypeHTMLOptionElement :: GType - --- | Functions for this inteface are in "GHCJS.DOM.HTMLOptionsCollection". --- Base interface functions are in: --- --- * "GHCJS.DOM.HTMLCollection" --- --- -newtype HTMLOptionsCollection = HTMLOptionsCollection { unHTMLOptionsCollection :: JSVal } - -instance Eq (HTMLOptionsCollection) where - (HTMLOptionsCollection a) == (HTMLOptionsCollection b) = js_eq a b - -instance PToJSVal HTMLOptionsCollection where - pToJSVal = unHTMLOptionsCollection - {-# INLINE pToJSVal #-} - -instance PFromJSVal HTMLOptionsCollection where - pFromJSVal = HTMLOptionsCollection - {-# INLINE pFromJSVal #-} - -instance ToJSVal HTMLOptionsCollection where - toJSVal = return . unHTMLOptionsCollection - {-# INLINE toJSVal #-} - -instance FromJSVal HTMLOptionsCollection where - fromJSVal = return . fmap HTMLOptionsCollection . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsHTMLCollection HTMLOptionsCollection -instance IsGObject HTMLOptionsCollection where - toGObject = GObject . unHTMLOptionsCollection - {-# INLINE toGObject #-} - unsafeCastGObject = HTMLOptionsCollection . unGObject - {-# INLINE unsafeCastGObject #-} - -castToHTMLOptionsCollection :: IsGObject obj => obj -> IO HTMLOptionsCollection -castToHTMLOptionsCollection = castTo gTypeHTMLOptionsCollection "HTMLOptionsCollection" - -foreign import javascript unsafe "window[\"HTMLOptionsCollection\"]" gTypeHTMLOptionsCollection :: GType - --- | Functions for this inteface are in "GHCJS.DOM.HTMLOutputElement". --- Base interface functions are in: --- --- * "GHCJS.DOM.HTMLElement" --- * "GHCJS.DOM.Element" --- * "GHCJS.DOM.Node" --- * "GHCJS.DOM.EventTarget" --- --- -newtype HTMLOutputElement = HTMLOutputElement { unHTMLOutputElement :: JSVal } - -instance Eq (HTMLOutputElement) where - (HTMLOutputElement a) == (HTMLOutputElement b) = js_eq a b - -instance PToJSVal HTMLOutputElement where - pToJSVal = unHTMLOutputElement - {-# INLINE pToJSVal #-} - -instance PFromJSVal HTMLOutputElement where - pFromJSVal = HTMLOutputElement - {-# INLINE pFromJSVal #-} - -instance ToJSVal HTMLOutputElement where - toJSVal = return . unHTMLOutputElement - {-# INLINE toJSVal #-} - -instance FromJSVal HTMLOutputElement where - fromJSVal = return . fmap HTMLOutputElement . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsHTMLElement HTMLOutputElement -instance IsElement HTMLOutputElement -instance IsNode HTMLOutputElement -instance IsEventTarget HTMLOutputElement -instance IsGObject HTMLOutputElement where - toGObject = GObject . unHTMLOutputElement - {-# INLINE toGObject #-} - unsafeCastGObject = HTMLOutputElement . unGObject - {-# INLINE unsafeCastGObject #-} - -castToHTMLOutputElement :: IsGObject obj => obj -> IO HTMLOutputElement -castToHTMLOutputElement = castTo gTypeHTMLOutputElement "HTMLOutputElement" - -foreign import javascript unsafe "window[\"HTMLOutputElement\"]" gTypeHTMLOutputElement :: GType - --- | Functions for this inteface are in "GHCJS.DOM.HTMLParagraphElement". --- Base interface functions are in: --- --- * "GHCJS.DOM.HTMLElement" --- * "GHCJS.DOM.Element" --- * "GHCJS.DOM.Node" --- * "GHCJS.DOM.EventTarget" --- --- -newtype HTMLParagraphElement = HTMLParagraphElement { unHTMLParagraphElement :: JSVal } - -instance Eq (HTMLParagraphElement) where - (HTMLParagraphElement a) == (HTMLParagraphElement b) = js_eq a b - -instance PToJSVal HTMLParagraphElement where - pToJSVal = unHTMLParagraphElement - {-# INLINE pToJSVal #-} - -instance PFromJSVal HTMLParagraphElement where - pFromJSVal = HTMLParagraphElement - {-# INLINE pFromJSVal #-} - -instance ToJSVal HTMLParagraphElement where - toJSVal = return . unHTMLParagraphElement - {-# INLINE toJSVal #-} - -instance FromJSVal HTMLParagraphElement where - fromJSVal = return . fmap HTMLParagraphElement . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsHTMLElement HTMLParagraphElement -instance IsElement HTMLParagraphElement -instance IsNode HTMLParagraphElement -instance IsEventTarget HTMLParagraphElement -instance IsGObject HTMLParagraphElement where - toGObject = GObject . unHTMLParagraphElement - {-# INLINE toGObject #-} - unsafeCastGObject = HTMLParagraphElement . unGObject - {-# INLINE unsafeCastGObject #-} - -castToHTMLParagraphElement :: IsGObject obj => obj -> IO HTMLParagraphElement -castToHTMLParagraphElement = castTo gTypeHTMLParagraphElement "HTMLParagraphElement" - -foreign import javascript unsafe "window[\"HTMLParagraphElement\"]" gTypeHTMLParagraphElement :: GType - --- | Functions for this inteface are in "GHCJS.DOM.HTMLParamElement". --- Base interface functions are in: --- --- * "GHCJS.DOM.HTMLElement" --- * "GHCJS.DOM.Element" --- * "GHCJS.DOM.Node" --- * "GHCJS.DOM.EventTarget" --- --- -newtype HTMLParamElement = HTMLParamElement { unHTMLParamElement :: JSVal } - -instance Eq (HTMLParamElement) where - (HTMLParamElement a) == (HTMLParamElement b) = js_eq a b - -instance PToJSVal HTMLParamElement where - pToJSVal = unHTMLParamElement - {-# INLINE pToJSVal #-} - -instance PFromJSVal HTMLParamElement where - pFromJSVal = HTMLParamElement - {-# INLINE pFromJSVal #-} - -instance ToJSVal HTMLParamElement where - toJSVal = return . unHTMLParamElement - {-# INLINE toJSVal #-} - -instance FromJSVal HTMLParamElement where - fromJSVal = return . fmap HTMLParamElement . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsHTMLElement HTMLParamElement -instance IsElement HTMLParamElement -instance IsNode HTMLParamElement -instance IsEventTarget HTMLParamElement -instance IsGObject HTMLParamElement where - toGObject = GObject . unHTMLParamElement - {-# INLINE toGObject #-} - unsafeCastGObject = HTMLParamElement . unGObject - {-# INLINE unsafeCastGObject #-} - -castToHTMLParamElement :: IsGObject obj => obj -> IO HTMLParamElement -castToHTMLParamElement = castTo gTypeHTMLParamElement "HTMLParamElement" - -foreign import javascript unsafe "window[\"HTMLParamElement\"]" gTypeHTMLParamElement :: GType - --- | Functions for this inteface are in "GHCJS.DOM.HTMLPreElement". --- Base interface functions are in: --- --- * "GHCJS.DOM.HTMLElement" --- * "GHCJS.DOM.Element" --- * "GHCJS.DOM.Node" --- * "GHCJS.DOM.EventTarget" --- --- -newtype HTMLPreElement = HTMLPreElement { unHTMLPreElement :: JSVal } - -instance Eq (HTMLPreElement) where - (HTMLPreElement a) == (HTMLPreElement b) = js_eq a b - -instance PToJSVal HTMLPreElement where - pToJSVal = unHTMLPreElement - {-# INLINE pToJSVal #-} - -instance PFromJSVal HTMLPreElement where - pFromJSVal = HTMLPreElement - {-# INLINE pFromJSVal #-} - -instance ToJSVal HTMLPreElement where - toJSVal = return . unHTMLPreElement - {-# INLINE toJSVal #-} - -instance FromJSVal HTMLPreElement where - fromJSVal = return . fmap HTMLPreElement . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsHTMLElement HTMLPreElement -instance IsElement HTMLPreElement -instance IsNode HTMLPreElement -instance IsEventTarget HTMLPreElement -instance IsGObject HTMLPreElement where - toGObject = GObject . unHTMLPreElement - {-# INLINE toGObject #-} - unsafeCastGObject = HTMLPreElement . unGObject - {-# INLINE unsafeCastGObject #-} - -castToHTMLPreElement :: IsGObject obj => obj -> IO HTMLPreElement -castToHTMLPreElement = castTo gTypeHTMLPreElement "HTMLPreElement" - -foreign import javascript unsafe "window[\"HTMLPreElement\"]" gTypeHTMLPreElement :: GType - --- | Functions for this inteface are in "GHCJS.DOM.HTMLProgressElement". --- Base interface functions are in: --- --- * "GHCJS.DOM.HTMLElement" --- * "GHCJS.DOM.Element" --- * "GHCJS.DOM.Node" --- * "GHCJS.DOM.EventTarget" --- --- -newtype HTMLProgressElement = HTMLProgressElement { unHTMLProgressElement :: JSVal } - -instance Eq (HTMLProgressElement) where - (HTMLProgressElement a) == (HTMLProgressElement b) = js_eq a b - -instance PToJSVal HTMLProgressElement where - pToJSVal = unHTMLProgressElement - {-# INLINE pToJSVal #-} - -instance PFromJSVal HTMLProgressElement where - pFromJSVal = HTMLProgressElement - {-# INLINE pFromJSVal #-} - -instance ToJSVal HTMLProgressElement where - toJSVal = return . unHTMLProgressElement - {-# INLINE toJSVal #-} - -instance FromJSVal HTMLProgressElement where - fromJSVal = return . fmap HTMLProgressElement . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsHTMLElement HTMLProgressElement -instance IsElement HTMLProgressElement -instance IsNode HTMLProgressElement -instance IsEventTarget HTMLProgressElement -instance IsGObject HTMLProgressElement where - toGObject = GObject . unHTMLProgressElement - {-# INLINE toGObject #-} - unsafeCastGObject = HTMLProgressElement . unGObject - {-# INLINE unsafeCastGObject #-} - -castToHTMLProgressElement :: IsGObject obj => obj -> IO HTMLProgressElement -castToHTMLProgressElement = castTo gTypeHTMLProgressElement "HTMLProgressElement" - -foreign import javascript unsafe "window[\"HTMLProgressElement\"]" gTypeHTMLProgressElement :: GType - --- | Functions for this inteface are in "GHCJS.DOM.HTMLQuoteElement". --- Base interface functions are in: --- --- * "GHCJS.DOM.HTMLElement" --- * "GHCJS.DOM.Element" --- * "GHCJS.DOM.Node" --- * "GHCJS.DOM.EventTarget" --- --- -newtype HTMLQuoteElement = HTMLQuoteElement { unHTMLQuoteElement :: JSVal } - -instance Eq (HTMLQuoteElement) where - (HTMLQuoteElement a) == (HTMLQuoteElement b) = js_eq a b - -instance PToJSVal HTMLQuoteElement where - pToJSVal = unHTMLQuoteElement - {-# INLINE pToJSVal #-} - -instance PFromJSVal HTMLQuoteElement where - pFromJSVal = HTMLQuoteElement - {-# INLINE pFromJSVal #-} - -instance ToJSVal HTMLQuoteElement where - toJSVal = return . unHTMLQuoteElement - {-# INLINE toJSVal #-} - -instance FromJSVal HTMLQuoteElement where - fromJSVal = return . fmap HTMLQuoteElement . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsHTMLElement HTMLQuoteElement -instance IsElement HTMLQuoteElement -instance IsNode HTMLQuoteElement -instance IsEventTarget HTMLQuoteElement -instance IsGObject HTMLQuoteElement where - toGObject = GObject . unHTMLQuoteElement - {-# INLINE toGObject #-} - unsafeCastGObject = HTMLQuoteElement . unGObject - {-# INLINE unsafeCastGObject #-} - -castToHTMLQuoteElement :: IsGObject obj => obj -> IO HTMLQuoteElement -castToHTMLQuoteElement = castTo gTypeHTMLQuoteElement "HTMLQuoteElement" - -foreign import javascript unsafe "window[\"HTMLQuoteElement\"]" gTypeHTMLQuoteElement :: GType - --- | Functions for this inteface are in "GHCJS.DOM.HTMLScriptElement". --- Base interface functions are in: --- --- * "GHCJS.DOM.HTMLElement" --- * "GHCJS.DOM.Element" --- * "GHCJS.DOM.Node" --- * "GHCJS.DOM.EventTarget" --- --- -newtype HTMLScriptElement = HTMLScriptElement { unHTMLScriptElement :: JSVal } - -instance Eq (HTMLScriptElement) where - (HTMLScriptElement a) == (HTMLScriptElement b) = js_eq a b - -instance PToJSVal HTMLScriptElement where - pToJSVal = unHTMLScriptElement - {-# INLINE pToJSVal #-} - -instance PFromJSVal HTMLScriptElement where - pFromJSVal = HTMLScriptElement - {-# INLINE pFromJSVal #-} - -instance ToJSVal HTMLScriptElement where - toJSVal = return . unHTMLScriptElement - {-# INLINE toJSVal #-} - -instance FromJSVal HTMLScriptElement where - fromJSVal = return . fmap HTMLScriptElement . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsHTMLElement HTMLScriptElement -instance IsElement HTMLScriptElement -instance IsNode HTMLScriptElement -instance IsEventTarget HTMLScriptElement -instance IsGObject HTMLScriptElement where - toGObject = GObject . unHTMLScriptElement - {-# INLINE toGObject #-} - unsafeCastGObject = HTMLScriptElement . unGObject - {-# INLINE unsafeCastGObject #-} - -castToHTMLScriptElement :: IsGObject obj => obj -> IO HTMLScriptElement -castToHTMLScriptElement = castTo gTypeHTMLScriptElement "HTMLScriptElement" - -foreign import javascript unsafe "window[\"HTMLScriptElement\"]" gTypeHTMLScriptElement :: GType - --- | Functions for this inteface are in "GHCJS.DOM.HTMLSelectElement". --- Base interface functions are in: --- --- * "GHCJS.DOM.HTMLElement" --- * "GHCJS.DOM.Element" --- * "GHCJS.DOM.Node" --- * "GHCJS.DOM.EventTarget" --- --- -newtype HTMLSelectElement = HTMLSelectElement { unHTMLSelectElement :: JSVal } - -instance Eq (HTMLSelectElement) where - (HTMLSelectElement a) == (HTMLSelectElement b) = js_eq a b - -instance PToJSVal HTMLSelectElement where - pToJSVal = unHTMLSelectElement - {-# INLINE pToJSVal #-} - -instance PFromJSVal HTMLSelectElement where - pFromJSVal = HTMLSelectElement - {-# INLINE pFromJSVal #-} - -instance ToJSVal HTMLSelectElement where - toJSVal = return . unHTMLSelectElement - {-# INLINE toJSVal #-} - -instance FromJSVal HTMLSelectElement where - fromJSVal = return . fmap HTMLSelectElement . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsHTMLElement HTMLSelectElement -instance IsElement HTMLSelectElement -instance IsNode HTMLSelectElement -instance IsEventTarget HTMLSelectElement -instance IsGObject HTMLSelectElement where - toGObject = GObject . unHTMLSelectElement - {-# INLINE toGObject #-} - unsafeCastGObject = HTMLSelectElement . unGObject - {-# INLINE unsafeCastGObject #-} - -castToHTMLSelectElement :: IsGObject obj => obj -> IO HTMLSelectElement -castToHTMLSelectElement = castTo gTypeHTMLSelectElement "HTMLSelectElement" - -foreign import javascript unsafe "window[\"HTMLSelectElement\"]" gTypeHTMLSelectElement :: GType - --- | Functions for this inteface are in "GHCJS.DOM.HTMLSourceElement". --- Base interface functions are in: --- --- * "GHCJS.DOM.HTMLElement" --- * "GHCJS.DOM.Element" --- * "GHCJS.DOM.Node" --- * "GHCJS.DOM.EventTarget" --- --- -newtype HTMLSourceElement = HTMLSourceElement { unHTMLSourceElement :: JSVal } - -instance Eq (HTMLSourceElement) where - (HTMLSourceElement a) == (HTMLSourceElement b) = js_eq a b - -instance PToJSVal HTMLSourceElement where - pToJSVal = unHTMLSourceElement - {-# INLINE pToJSVal #-} - -instance PFromJSVal HTMLSourceElement where - pFromJSVal = HTMLSourceElement - {-# INLINE pFromJSVal #-} - -instance ToJSVal HTMLSourceElement where - toJSVal = return . unHTMLSourceElement - {-# INLINE toJSVal #-} - -instance FromJSVal HTMLSourceElement where - fromJSVal = return . fmap HTMLSourceElement . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsHTMLElement HTMLSourceElement -instance IsElement HTMLSourceElement -instance IsNode HTMLSourceElement -instance IsEventTarget HTMLSourceElement -instance IsGObject HTMLSourceElement where - toGObject = GObject . unHTMLSourceElement - {-# INLINE toGObject #-} - unsafeCastGObject = HTMLSourceElement . unGObject - {-# INLINE unsafeCastGObject #-} - -castToHTMLSourceElement :: IsGObject obj => obj -> IO HTMLSourceElement -castToHTMLSourceElement = castTo gTypeHTMLSourceElement "HTMLSourceElement" - -foreign import javascript unsafe "window[\"HTMLSourceElement\"]" gTypeHTMLSourceElement :: GType - --- | Functions for this inteface are in "GHCJS.DOM.HTMLSpanElement". --- Base interface functions are in: --- --- * "GHCJS.DOM.HTMLElement" --- * "GHCJS.DOM.Element" --- * "GHCJS.DOM.Node" --- * "GHCJS.DOM.EventTarget" --- --- -newtype HTMLSpanElement = HTMLSpanElement { unHTMLSpanElement :: JSVal } - -instance Eq (HTMLSpanElement) where - (HTMLSpanElement a) == (HTMLSpanElement b) = js_eq a b - -instance PToJSVal HTMLSpanElement where - pToJSVal = unHTMLSpanElement - {-# INLINE pToJSVal #-} - -instance PFromJSVal HTMLSpanElement where - pFromJSVal = HTMLSpanElement - {-# INLINE pFromJSVal #-} - -instance ToJSVal HTMLSpanElement where - toJSVal = return . unHTMLSpanElement - {-# INLINE toJSVal #-} - -instance FromJSVal HTMLSpanElement where - fromJSVal = return . fmap HTMLSpanElement . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsHTMLElement HTMLSpanElement -instance IsElement HTMLSpanElement -instance IsNode HTMLSpanElement -instance IsEventTarget HTMLSpanElement -instance IsGObject HTMLSpanElement where - toGObject = GObject . unHTMLSpanElement - {-# INLINE toGObject #-} - unsafeCastGObject = HTMLSpanElement . unGObject - {-# INLINE unsafeCastGObject #-} - -castToHTMLSpanElement :: IsGObject obj => obj -> IO HTMLSpanElement -castToHTMLSpanElement = castTo gTypeHTMLSpanElement "HTMLSpanElement" - -foreign import javascript unsafe "window[\"HTMLSpanElement\"]" gTypeHTMLSpanElement :: GType - --- | Functions for this inteface are in "GHCJS.DOM.HTMLStyleElement". --- Base interface functions are in: --- --- * "GHCJS.DOM.HTMLElement" --- * "GHCJS.DOM.Element" --- * "GHCJS.DOM.Node" --- * "GHCJS.DOM.EventTarget" --- --- -newtype HTMLStyleElement = HTMLStyleElement { unHTMLStyleElement :: JSVal } - -instance Eq (HTMLStyleElement) where - (HTMLStyleElement a) == (HTMLStyleElement b) = js_eq a b - -instance PToJSVal HTMLStyleElement where - pToJSVal = unHTMLStyleElement - {-# INLINE pToJSVal #-} - -instance PFromJSVal HTMLStyleElement where - pFromJSVal = HTMLStyleElement - {-# INLINE pFromJSVal #-} - -instance ToJSVal HTMLStyleElement where - toJSVal = return . unHTMLStyleElement - {-# INLINE toJSVal #-} - -instance FromJSVal HTMLStyleElement where - fromJSVal = return . fmap HTMLStyleElement . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsHTMLElement HTMLStyleElement -instance IsElement HTMLStyleElement -instance IsNode HTMLStyleElement -instance IsEventTarget HTMLStyleElement -instance IsGObject HTMLStyleElement where - toGObject = GObject . unHTMLStyleElement - {-# INLINE toGObject #-} - unsafeCastGObject = HTMLStyleElement . unGObject - {-# INLINE unsafeCastGObject #-} - -castToHTMLStyleElement :: IsGObject obj => obj -> IO HTMLStyleElement -castToHTMLStyleElement = castTo gTypeHTMLStyleElement "HTMLStyleElement" - -foreign import javascript unsafe "window[\"HTMLStyleElement\"]" gTypeHTMLStyleElement :: GType - --- | Functions for this inteface are in "GHCJS.DOM.HTMLTableCaptionElement". --- Base interface functions are in: --- --- * "GHCJS.DOM.HTMLElement" --- * "GHCJS.DOM.Element" --- * "GHCJS.DOM.Node" --- * "GHCJS.DOM.EventTarget" --- --- -newtype HTMLTableCaptionElement = HTMLTableCaptionElement { unHTMLTableCaptionElement :: JSVal } - -instance Eq (HTMLTableCaptionElement) where - (HTMLTableCaptionElement a) == (HTMLTableCaptionElement b) = js_eq a b - -instance PToJSVal HTMLTableCaptionElement where - pToJSVal = unHTMLTableCaptionElement - {-# INLINE pToJSVal #-} - -instance PFromJSVal HTMLTableCaptionElement where - pFromJSVal = HTMLTableCaptionElement - {-# INLINE pFromJSVal #-} - -instance ToJSVal HTMLTableCaptionElement where - toJSVal = return . unHTMLTableCaptionElement - {-# INLINE toJSVal #-} - -instance FromJSVal HTMLTableCaptionElement where - fromJSVal = return . fmap HTMLTableCaptionElement . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsHTMLElement HTMLTableCaptionElement -instance IsElement HTMLTableCaptionElement -instance IsNode HTMLTableCaptionElement -instance IsEventTarget HTMLTableCaptionElement -instance IsGObject HTMLTableCaptionElement where - toGObject = GObject . unHTMLTableCaptionElement - {-# INLINE toGObject #-} - unsafeCastGObject = HTMLTableCaptionElement . unGObject - {-# INLINE unsafeCastGObject #-} - -castToHTMLTableCaptionElement :: IsGObject obj => obj -> IO HTMLTableCaptionElement -castToHTMLTableCaptionElement = castTo gTypeHTMLTableCaptionElement "HTMLTableCaptionElement" - -foreign import javascript unsafe "window[\"HTMLTableCaptionElement\"]" gTypeHTMLTableCaptionElement :: GType - --- | Functions for this inteface are in "GHCJS.DOM.HTMLTableCellElement". --- Base interface functions are in: --- --- * "GHCJS.DOM.HTMLElement" --- * "GHCJS.DOM.Element" --- * "GHCJS.DOM.Node" --- * "GHCJS.DOM.EventTarget" --- --- -newtype HTMLTableCellElement = HTMLTableCellElement { unHTMLTableCellElement :: JSVal } - -instance Eq (HTMLTableCellElement) where - (HTMLTableCellElement a) == (HTMLTableCellElement b) = js_eq a b - -instance PToJSVal HTMLTableCellElement where - pToJSVal = unHTMLTableCellElement - {-# INLINE pToJSVal #-} - -instance PFromJSVal HTMLTableCellElement where - pFromJSVal = HTMLTableCellElement - {-# INLINE pFromJSVal #-} - -instance ToJSVal HTMLTableCellElement where - toJSVal = return . unHTMLTableCellElement - {-# INLINE toJSVal #-} - -instance FromJSVal HTMLTableCellElement where - fromJSVal = return . fmap HTMLTableCellElement . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsHTMLElement HTMLTableCellElement -instance IsElement HTMLTableCellElement -instance IsNode HTMLTableCellElement -instance IsEventTarget HTMLTableCellElement -instance IsGObject HTMLTableCellElement where - toGObject = GObject . unHTMLTableCellElement - {-# INLINE toGObject #-} - unsafeCastGObject = HTMLTableCellElement . unGObject - {-# INLINE unsafeCastGObject #-} - -castToHTMLTableCellElement :: IsGObject obj => obj -> IO HTMLTableCellElement -castToHTMLTableCellElement = castTo gTypeHTMLTableCellElement "HTMLTableCellElement" - -foreign import javascript unsafe "window[\"HTMLTableCellElement\"]" gTypeHTMLTableCellElement :: GType - --- | Functions for this inteface are in "GHCJS.DOM.HTMLTableColElement". --- Base interface functions are in: --- --- * "GHCJS.DOM.HTMLElement" --- * "GHCJS.DOM.Element" --- * "GHCJS.DOM.Node" --- * "GHCJS.DOM.EventTarget" --- --- -newtype HTMLTableColElement = HTMLTableColElement { unHTMLTableColElement :: JSVal } - -instance Eq (HTMLTableColElement) where - (HTMLTableColElement a) == (HTMLTableColElement b) = js_eq a b - -instance PToJSVal HTMLTableColElement where - pToJSVal = unHTMLTableColElement - {-# INLINE pToJSVal #-} - -instance PFromJSVal HTMLTableColElement where - pFromJSVal = HTMLTableColElement - {-# INLINE pFromJSVal #-} - -instance ToJSVal HTMLTableColElement where - toJSVal = return . unHTMLTableColElement - {-# INLINE toJSVal #-} - -instance FromJSVal HTMLTableColElement where - fromJSVal = return . fmap HTMLTableColElement . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsHTMLElement HTMLTableColElement -instance IsElement HTMLTableColElement -instance IsNode HTMLTableColElement -instance IsEventTarget HTMLTableColElement -instance IsGObject HTMLTableColElement where - toGObject = GObject . unHTMLTableColElement - {-# INLINE toGObject #-} - unsafeCastGObject = HTMLTableColElement . unGObject - {-# INLINE unsafeCastGObject #-} - -castToHTMLTableColElement :: IsGObject obj => obj -> IO HTMLTableColElement -castToHTMLTableColElement = castTo gTypeHTMLTableColElement "HTMLTableColElement" - -foreign import javascript unsafe "window[\"HTMLTableColElement\"]" gTypeHTMLTableColElement :: GType - --- | Functions for this inteface are in "GHCJS.DOM.HTMLTableElement". --- Base interface functions are in: --- --- * "GHCJS.DOM.HTMLElement" --- * "GHCJS.DOM.Element" --- * "GHCJS.DOM.Node" --- * "GHCJS.DOM.EventTarget" --- --- -newtype HTMLTableElement = HTMLTableElement { unHTMLTableElement :: JSVal } - -instance Eq (HTMLTableElement) where - (HTMLTableElement a) == (HTMLTableElement b) = js_eq a b - -instance PToJSVal HTMLTableElement where - pToJSVal = unHTMLTableElement - {-# INLINE pToJSVal #-} - -instance PFromJSVal HTMLTableElement where - pFromJSVal = HTMLTableElement - {-# INLINE pFromJSVal #-} - -instance ToJSVal HTMLTableElement where - toJSVal = return . unHTMLTableElement - {-# INLINE toJSVal #-} - -instance FromJSVal HTMLTableElement where - fromJSVal = return . fmap HTMLTableElement . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsHTMLElement HTMLTableElement -instance IsElement HTMLTableElement -instance IsNode HTMLTableElement -instance IsEventTarget HTMLTableElement -instance IsGObject HTMLTableElement where - toGObject = GObject . unHTMLTableElement - {-# INLINE toGObject #-} - unsafeCastGObject = HTMLTableElement . unGObject - {-# INLINE unsafeCastGObject #-} - -castToHTMLTableElement :: IsGObject obj => obj -> IO HTMLTableElement -castToHTMLTableElement = castTo gTypeHTMLTableElement "HTMLTableElement" - -foreign import javascript unsafe "window[\"HTMLTableElement\"]" gTypeHTMLTableElement :: GType - --- | Functions for this inteface are in "GHCJS.DOM.HTMLTableRowElement". --- Base interface functions are in: --- --- * "GHCJS.DOM.HTMLElement" --- * "GHCJS.DOM.Element" --- * "GHCJS.DOM.Node" --- * "GHCJS.DOM.EventTarget" --- --- -newtype HTMLTableRowElement = HTMLTableRowElement { unHTMLTableRowElement :: JSVal } - -instance Eq (HTMLTableRowElement) where - (HTMLTableRowElement a) == (HTMLTableRowElement b) = js_eq a b - -instance PToJSVal HTMLTableRowElement where - pToJSVal = unHTMLTableRowElement - {-# INLINE pToJSVal #-} - -instance PFromJSVal HTMLTableRowElement where - pFromJSVal = HTMLTableRowElement - {-# INLINE pFromJSVal #-} - -instance ToJSVal HTMLTableRowElement where - toJSVal = return . unHTMLTableRowElement - {-# INLINE toJSVal #-} - -instance FromJSVal HTMLTableRowElement where - fromJSVal = return . fmap HTMLTableRowElement . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsHTMLElement HTMLTableRowElement -instance IsElement HTMLTableRowElement -instance IsNode HTMLTableRowElement -instance IsEventTarget HTMLTableRowElement -instance IsGObject HTMLTableRowElement where - toGObject = GObject . unHTMLTableRowElement - {-# INLINE toGObject #-} - unsafeCastGObject = HTMLTableRowElement . unGObject - {-# INLINE unsafeCastGObject #-} - -castToHTMLTableRowElement :: IsGObject obj => obj -> IO HTMLTableRowElement -castToHTMLTableRowElement = castTo gTypeHTMLTableRowElement "HTMLTableRowElement" - -foreign import javascript unsafe "window[\"HTMLTableRowElement\"]" gTypeHTMLTableRowElement :: GType - --- | Functions for this inteface are in "GHCJS.DOM.HTMLTableSectionElement". --- Base interface functions are in: --- --- * "GHCJS.DOM.HTMLElement" --- * "GHCJS.DOM.Element" --- * "GHCJS.DOM.Node" --- * "GHCJS.DOM.EventTarget" --- --- -newtype HTMLTableSectionElement = HTMLTableSectionElement { unHTMLTableSectionElement :: JSVal } - -instance Eq (HTMLTableSectionElement) where - (HTMLTableSectionElement a) == (HTMLTableSectionElement b) = js_eq a b - -instance PToJSVal HTMLTableSectionElement where - pToJSVal = unHTMLTableSectionElement - {-# INLINE pToJSVal #-} - -instance PFromJSVal HTMLTableSectionElement where - pFromJSVal = HTMLTableSectionElement - {-# INLINE pFromJSVal #-} - -instance ToJSVal HTMLTableSectionElement where - toJSVal = return . unHTMLTableSectionElement - {-# INLINE toJSVal #-} - -instance FromJSVal HTMLTableSectionElement where - fromJSVal = return . fmap HTMLTableSectionElement . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsHTMLElement HTMLTableSectionElement -instance IsElement HTMLTableSectionElement -instance IsNode HTMLTableSectionElement -instance IsEventTarget HTMLTableSectionElement -instance IsGObject HTMLTableSectionElement where - toGObject = GObject . unHTMLTableSectionElement - {-# INLINE toGObject #-} - unsafeCastGObject = HTMLTableSectionElement . unGObject - {-# INLINE unsafeCastGObject #-} - -castToHTMLTableSectionElement :: IsGObject obj => obj -> IO HTMLTableSectionElement -castToHTMLTableSectionElement = castTo gTypeHTMLTableSectionElement "HTMLTableSectionElement" - -foreign import javascript unsafe "window[\"HTMLTableSectionElement\"]" gTypeHTMLTableSectionElement :: GType - --- | Functions for this inteface are in "GHCJS.DOM.HTMLTemplateElement". --- Base interface functions are in: --- --- * "GHCJS.DOM.HTMLElement" --- * "GHCJS.DOM.Element" --- * "GHCJS.DOM.Node" --- * "GHCJS.DOM.EventTarget" --- --- -newtype HTMLTemplateElement = HTMLTemplateElement { unHTMLTemplateElement :: JSVal } - -instance Eq (HTMLTemplateElement) where - (HTMLTemplateElement a) == (HTMLTemplateElement b) = js_eq a b - -instance PToJSVal HTMLTemplateElement where - pToJSVal = unHTMLTemplateElement - {-# INLINE pToJSVal #-} - -instance PFromJSVal HTMLTemplateElement where - pFromJSVal = HTMLTemplateElement - {-# INLINE pFromJSVal #-} - -instance ToJSVal HTMLTemplateElement where - toJSVal = return . unHTMLTemplateElement - {-# INLINE toJSVal #-} - -instance FromJSVal HTMLTemplateElement where - fromJSVal = return . fmap HTMLTemplateElement . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsHTMLElement HTMLTemplateElement -instance IsElement HTMLTemplateElement -instance IsNode HTMLTemplateElement -instance IsEventTarget HTMLTemplateElement -instance IsGObject HTMLTemplateElement where - toGObject = GObject . unHTMLTemplateElement - {-# INLINE toGObject #-} - unsafeCastGObject = HTMLTemplateElement . unGObject - {-# INLINE unsafeCastGObject #-} - -castToHTMLTemplateElement :: IsGObject obj => obj -> IO HTMLTemplateElement -castToHTMLTemplateElement = castTo gTypeHTMLTemplateElement "HTMLTemplateElement" - -foreign import javascript unsafe "window[\"HTMLTemplateElement\"]" gTypeHTMLTemplateElement :: GType - --- | Functions for this inteface are in "GHCJS.DOM.HTMLTextAreaElement". --- Base interface functions are in: --- --- * "GHCJS.DOM.HTMLElement" --- * "GHCJS.DOM.Element" --- * "GHCJS.DOM.Node" --- * "GHCJS.DOM.EventTarget" --- --- -newtype HTMLTextAreaElement = HTMLTextAreaElement { unHTMLTextAreaElement :: JSVal } - -instance Eq (HTMLTextAreaElement) where - (HTMLTextAreaElement a) == (HTMLTextAreaElement b) = js_eq a b - -instance PToJSVal HTMLTextAreaElement where - pToJSVal = unHTMLTextAreaElement - {-# INLINE pToJSVal #-} - -instance PFromJSVal HTMLTextAreaElement where - pFromJSVal = HTMLTextAreaElement - {-# INLINE pFromJSVal #-} - -instance ToJSVal HTMLTextAreaElement where - toJSVal = return . unHTMLTextAreaElement - {-# INLINE toJSVal #-} - -instance FromJSVal HTMLTextAreaElement where - fromJSVal = return . fmap HTMLTextAreaElement . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsHTMLElement HTMLTextAreaElement -instance IsElement HTMLTextAreaElement -instance IsNode HTMLTextAreaElement -instance IsEventTarget HTMLTextAreaElement -instance IsGObject HTMLTextAreaElement where - toGObject = GObject . unHTMLTextAreaElement - {-# INLINE toGObject #-} - unsafeCastGObject = HTMLTextAreaElement . unGObject - {-# INLINE unsafeCastGObject #-} - -castToHTMLTextAreaElement :: IsGObject obj => obj -> IO HTMLTextAreaElement -castToHTMLTextAreaElement = castTo gTypeHTMLTextAreaElement "HTMLTextAreaElement" - -foreign import javascript unsafe "window[\"HTMLTextAreaElement\"]" gTypeHTMLTextAreaElement :: GType - --- | Functions for this inteface are in "GHCJS.DOM.HTMLTitleElement". --- Base interface functions are in: --- --- * "GHCJS.DOM.HTMLElement" --- * "GHCJS.DOM.Element" --- * "GHCJS.DOM.Node" --- * "GHCJS.DOM.EventTarget" --- --- -newtype HTMLTitleElement = HTMLTitleElement { unHTMLTitleElement :: JSVal } - -instance Eq (HTMLTitleElement) where - (HTMLTitleElement a) == (HTMLTitleElement b) = js_eq a b - -instance PToJSVal HTMLTitleElement where - pToJSVal = unHTMLTitleElement - {-# INLINE pToJSVal #-} - -instance PFromJSVal HTMLTitleElement where - pFromJSVal = HTMLTitleElement - {-# INLINE pFromJSVal #-} - -instance ToJSVal HTMLTitleElement where - toJSVal = return . unHTMLTitleElement - {-# INLINE toJSVal #-} - -instance FromJSVal HTMLTitleElement where - fromJSVal = return . fmap HTMLTitleElement . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsHTMLElement HTMLTitleElement -instance IsElement HTMLTitleElement -instance IsNode HTMLTitleElement -instance IsEventTarget HTMLTitleElement -instance IsGObject HTMLTitleElement where - toGObject = GObject . unHTMLTitleElement - {-# INLINE toGObject #-} - unsafeCastGObject = HTMLTitleElement . unGObject - {-# INLINE unsafeCastGObject #-} - -castToHTMLTitleElement :: IsGObject obj => obj -> IO HTMLTitleElement -castToHTMLTitleElement = castTo gTypeHTMLTitleElement "HTMLTitleElement" - -foreign import javascript unsafe "window[\"HTMLTitleElement\"]" gTypeHTMLTitleElement :: GType - --- | Functions for this inteface are in "GHCJS.DOM.HTMLTrackElement". --- Base interface functions are in: --- --- * "GHCJS.DOM.HTMLElement" --- * "GHCJS.DOM.Element" --- * "GHCJS.DOM.Node" --- * "GHCJS.DOM.EventTarget" --- --- -newtype HTMLTrackElement = HTMLTrackElement { unHTMLTrackElement :: JSVal } - -instance Eq (HTMLTrackElement) where - (HTMLTrackElement a) == (HTMLTrackElement b) = js_eq a b - -instance PToJSVal HTMLTrackElement where - pToJSVal = unHTMLTrackElement - {-# INLINE pToJSVal #-} - -instance PFromJSVal HTMLTrackElement where - pFromJSVal = HTMLTrackElement - {-# INLINE pFromJSVal #-} - -instance ToJSVal HTMLTrackElement where - toJSVal = return . unHTMLTrackElement - {-# INLINE toJSVal #-} - -instance FromJSVal HTMLTrackElement where - fromJSVal = return . fmap HTMLTrackElement . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsHTMLElement HTMLTrackElement -instance IsElement HTMLTrackElement -instance IsNode HTMLTrackElement -instance IsEventTarget HTMLTrackElement -instance IsGObject HTMLTrackElement where - toGObject = GObject . unHTMLTrackElement - {-# INLINE toGObject #-} - unsafeCastGObject = HTMLTrackElement . unGObject - {-# INLINE unsafeCastGObject #-} - -castToHTMLTrackElement :: IsGObject obj => obj -> IO HTMLTrackElement -castToHTMLTrackElement = castTo gTypeHTMLTrackElement "HTMLTrackElement" - -foreign import javascript unsafe "window[\"HTMLTrackElement\"]" gTypeHTMLTrackElement :: GType - --- | Functions for this inteface are in "GHCJS.DOM.HTMLUListElement". --- Base interface functions are in: --- --- * "GHCJS.DOM.HTMLElement" --- * "GHCJS.DOM.Element" --- * "GHCJS.DOM.Node" --- * "GHCJS.DOM.EventTarget" --- --- -newtype HTMLUListElement = HTMLUListElement { unHTMLUListElement :: JSVal } - -instance Eq (HTMLUListElement) where - (HTMLUListElement a) == (HTMLUListElement b) = js_eq a b - -instance PToJSVal HTMLUListElement where - pToJSVal = unHTMLUListElement - {-# INLINE pToJSVal #-} - -instance PFromJSVal HTMLUListElement where - pFromJSVal = HTMLUListElement - {-# INLINE pFromJSVal #-} - -instance ToJSVal HTMLUListElement where - toJSVal = return . unHTMLUListElement - {-# INLINE toJSVal #-} - -instance FromJSVal HTMLUListElement where - fromJSVal = return . fmap HTMLUListElement . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsHTMLElement HTMLUListElement -instance IsElement HTMLUListElement -instance IsNode HTMLUListElement -instance IsEventTarget HTMLUListElement -instance IsGObject HTMLUListElement where - toGObject = GObject . unHTMLUListElement - {-# INLINE toGObject #-} - unsafeCastGObject = HTMLUListElement . unGObject - {-# INLINE unsafeCastGObject #-} - -castToHTMLUListElement :: IsGObject obj => obj -> IO HTMLUListElement -castToHTMLUListElement = castTo gTypeHTMLUListElement "HTMLUListElement" - -foreign import javascript unsafe "window[\"HTMLUListElement\"]" gTypeHTMLUListElement :: GType - --- | Functions for this inteface are in "GHCJS.DOM.HTMLUnknownElement". --- Base interface functions are in: --- --- * "GHCJS.DOM.HTMLElement" --- * "GHCJS.DOM.Element" --- * "GHCJS.DOM.Node" --- * "GHCJS.DOM.EventTarget" --- --- -newtype HTMLUnknownElement = HTMLUnknownElement { unHTMLUnknownElement :: JSVal } - -instance Eq (HTMLUnknownElement) where - (HTMLUnknownElement a) == (HTMLUnknownElement b) = js_eq a b - -instance PToJSVal HTMLUnknownElement where - pToJSVal = unHTMLUnknownElement - {-# INLINE pToJSVal #-} - -instance PFromJSVal HTMLUnknownElement where - pFromJSVal = HTMLUnknownElement - {-# INLINE pFromJSVal #-} - -instance ToJSVal HTMLUnknownElement where - toJSVal = return . unHTMLUnknownElement - {-# INLINE toJSVal #-} - -instance FromJSVal HTMLUnknownElement where - fromJSVal = return . fmap HTMLUnknownElement . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsHTMLElement HTMLUnknownElement -instance IsElement HTMLUnknownElement -instance IsNode HTMLUnknownElement -instance IsEventTarget HTMLUnknownElement -instance IsGObject HTMLUnknownElement where - toGObject = GObject . unHTMLUnknownElement - {-# INLINE toGObject #-} - unsafeCastGObject = HTMLUnknownElement . unGObject - {-# INLINE unsafeCastGObject #-} - -castToHTMLUnknownElement :: IsGObject obj => obj -> IO HTMLUnknownElement -castToHTMLUnknownElement = castTo gTypeHTMLUnknownElement "HTMLUnknownElement" - -foreign import javascript unsafe "window[\"HTMLUnknownElement\"]" gTypeHTMLUnknownElement :: GType - --- | Functions for this inteface are in "GHCJS.DOM.HTMLVideoElement". --- Base interface functions are in: --- --- * "GHCJS.DOM.HTMLMediaElement" --- * "GHCJS.DOM.HTMLElement" --- * "GHCJS.DOM.Element" --- * "GHCJS.DOM.Node" --- * "GHCJS.DOM.EventTarget" --- --- -newtype HTMLVideoElement = HTMLVideoElement { unHTMLVideoElement :: JSVal } - -instance Eq (HTMLVideoElement) where - (HTMLVideoElement a) == (HTMLVideoElement b) = js_eq a b - -instance PToJSVal HTMLVideoElement where - pToJSVal = unHTMLVideoElement - {-# INLINE pToJSVal #-} - -instance PFromJSVal HTMLVideoElement where - pFromJSVal = HTMLVideoElement - {-# INLINE pFromJSVal #-} - -instance ToJSVal HTMLVideoElement where - toJSVal = return . unHTMLVideoElement - {-# INLINE toJSVal #-} - -instance FromJSVal HTMLVideoElement where - fromJSVal = return . fmap HTMLVideoElement . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsHTMLMediaElement HTMLVideoElement -instance IsHTMLElement HTMLVideoElement -instance IsElement HTMLVideoElement -instance IsNode HTMLVideoElement -instance IsEventTarget HTMLVideoElement -instance IsGObject HTMLVideoElement where - toGObject = GObject . unHTMLVideoElement - {-# INLINE toGObject #-} - unsafeCastGObject = HTMLVideoElement . unGObject - {-# INLINE unsafeCastGObject #-} - -castToHTMLVideoElement :: IsGObject obj => obj -> IO HTMLVideoElement -castToHTMLVideoElement = castTo gTypeHTMLVideoElement "HTMLVideoElement" - -foreign import javascript unsafe "window[\"HTMLVideoElement\"]" gTypeHTMLVideoElement :: GType - --- | Functions for this inteface are in "GHCJS.DOM.HashChangeEvent". --- Base interface functions are in: --- --- * "GHCJS.DOM.Event" --- --- -newtype HashChangeEvent = HashChangeEvent { unHashChangeEvent :: JSVal } - -instance Eq (HashChangeEvent) where - (HashChangeEvent a) == (HashChangeEvent b) = js_eq a b - -instance PToJSVal HashChangeEvent where - pToJSVal = unHashChangeEvent - {-# INLINE pToJSVal #-} - -instance PFromJSVal HashChangeEvent where - pFromJSVal = HashChangeEvent - {-# INLINE pFromJSVal #-} - -instance ToJSVal HashChangeEvent where - toJSVal = return . unHashChangeEvent - {-# INLINE toJSVal #-} - -instance FromJSVal HashChangeEvent where - fromJSVal = return . fmap HashChangeEvent . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsEvent HashChangeEvent -instance IsGObject HashChangeEvent where - toGObject = GObject . unHashChangeEvent - {-# INLINE toGObject #-} - unsafeCastGObject = HashChangeEvent . unGObject - {-# INLINE unsafeCastGObject #-} - -castToHashChangeEvent :: IsGObject obj => obj -> IO HashChangeEvent -castToHashChangeEvent = castTo gTypeHashChangeEvent "HashChangeEvent" - -foreign import javascript unsafe "window[\"HashChangeEvent\"]" gTypeHashChangeEvent :: GType - --- | Functions for this inteface are in "GHCJS.DOM.History". --- --- -newtype History = History { unHistory :: JSVal } - -instance Eq (History) where - (History a) == (History b) = js_eq a b - -instance PToJSVal History where - pToJSVal = unHistory - {-# INLINE pToJSVal #-} - -instance PFromJSVal History where - pFromJSVal = History - {-# INLINE pFromJSVal #-} - -instance ToJSVal History where - toJSVal = return . unHistory - {-# INLINE toJSVal #-} - -instance FromJSVal History where - fromJSVal = return . fmap History . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsGObject History where - toGObject = GObject . unHistory - {-# INLINE toGObject #-} - unsafeCastGObject = History . unGObject - {-# INLINE unsafeCastGObject #-} - -castToHistory :: IsGObject obj => obj -> IO History -castToHistory = castTo gTypeHistory "History" - -foreign import javascript unsafe "window[\"History\"]" gTypeHistory :: GType - --- | Functions for this inteface are in "GHCJS.DOM.IDBAny". --- --- -newtype IDBAny = IDBAny { unIDBAny :: JSVal } - -instance Eq (IDBAny) where - (IDBAny a) == (IDBAny b) = js_eq a b - -instance PToJSVal IDBAny where - pToJSVal = unIDBAny - {-# INLINE pToJSVal #-} - -instance PFromJSVal IDBAny where - pFromJSVal = IDBAny - {-# INLINE pFromJSVal #-} - -instance ToJSVal IDBAny where - toJSVal = return . unIDBAny - {-# INLINE toJSVal #-} - -instance FromJSVal IDBAny where - fromJSVal = return . fmap IDBAny . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsGObject IDBAny where - toGObject = GObject . unIDBAny - {-# INLINE toGObject #-} - unsafeCastGObject = IDBAny . unGObject - {-# INLINE unsafeCastGObject #-} - -castToIDBAny :: IsGObject obj => obj -> IO IDBAny -castToIDBAny = castTo gTypeIDBAny "IDBAny" - -foreign import javascript unsafe "window[\"IDBAny\"]" gTypeIDBAny :: GType - --- | Functions for this inteface are in "GHCJS.DOM.IDBCursor". --- --- -newtype IDBCursor = IDBCursor { unIDBCursor :: JSVal } - -instance Eq (IDBCursor) where - (IDBCursor a) == (IDBCursor b) = js_eq a b - -instance PToJSVal IDBCursor where - pToJSVal = unIDBCursor - {-# INLINE pToJSVal #-} - -instance PFromJSVal IDBCursor where - pFromJSVal = IDBCursor - {-# INLINE pFromJSVal #-} - -instance ToJSVal IDBCursor where - toJSVal = return . unIDBCursor - {-# INLINE toJSVal #-} - -instance FromJSVal IDBCursor where - fromJSVal = return . fmap IDBCursor . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -class IsGObject o => IsIDBCursor o -toIDBCursor :: IsIDBCursor o => o -> IDBCursor -toIDBCursor = unsafeCastGObject . toGObject - -instance IsIDBCursor IDBCursor -instance IsGObject IDBCursor where - toGObject = GObject . unIDBCursor - {-# INLINE toGObject #-} - unsafeCastGObject = IDBCursor . unGObject - {-# INLINE unsafeCastGObject #-} - -castToIDBCursor :: IsGObject obj => obj -> IO IDBCursor -castToIDBCursor = castTo gTypeIDBCursor "IDBCursor" - -foreign import javascript unsafe "window[\"IDBCursor\"]" gTypeIDBCursor :: GType - --- | Functions for this inteface are in "GHCJS.DOM.IDBCursorWithValue". --- Base interface functions are in: --- --- * "GHCJS.DOM.IDBCursor" --- --- -newtype IDBCursorWithValue = IDBCursorWithValue { unIDBCursorWithValue :: JSVal } - -instance Eq (IDBCursorWithValue) where - (IDBCursorWithValue a) == (IDBCursorWithValue b) = js_eq a b - -instance PToJSVal IDBCursorWithValue where - pToJSVal = unIDBCursorWithValue - {-# INLINE pToJSVal #-} - -instance PFromJSVal IDBCursorWithValue where - pFromJSVal = IDBCursorWithValue - {-# INLINE pFromJSVal #-} - -instance ToJSVal IDBCursorWithValue where - toJSVal = return . unIDBCursorWithValue - {-# INLINE toJSVal #-} - -instance FromJSVal IDBCursorWithValue where - fromJSVal = return . fmap IDBCursorWithValue . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsIDBCursor IDBCursorWithValue -instance IsGObject IDBCursorWithValue where - toGObject = GObject . unIDBCursorWithValue - {-# INLINE toGObject #-} - unsafeCastGObject = IDBCursorWithValue . unGObject - {-# INLINE unsafeCastGObject #-} - -castToIDBCursorWithValue :: IsGObject obj => obj -> IO IDBCursorWithValue -castToIDBCursorWithValue = castTo gTypeIDBCursorWithValue "IDBCursorWithValue" - -foreign import javascript unsafe "window[\"IDBCursorWithValue\"]" gTypeIDBCursorWithValue :: GType - --- | Functions for this inteface are in "GHCJS.DOM.IDBDatabase". --- Base interface functions are in: --- --- * "GHCJS.DOM.EventTarget" --- --- -newtype IDBDatabase = IDBDatabase { unIDBDatabase :: JSVal } - -instance Eq (IDBDatabase) where - (IDBDatabase a) == (IDBDatabase b) = js_eq a b - -instance PToJSVal IDBDatabase where - pToJSVal = unIDBDatabase - {-# INLINE pToJSVal #-} - -instance PFromJSVal IDBDatabase where - pFromJSVal = IDBDatabase - {-# INLINE pFromJSVal #-} - -instance ToJSVal IDBDatabase where - toJSVal = return . unIDBDatabase - {-# INLINE toJSVal #-} - -instance FromJSVal IDBDatabase where - fromJSVal = return . fmap IDBDatabase . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsEventTarget IDBDatabase -instance IsGObject IDBDatabase where - toGObject = GObject . unIDBDatabase - {-# INLINE toGObject #-} - unsafeCastGObject = IDBDatabase . unGObject - {-# INLINE unsafeCastGObject #-} - -castToIDBDatabase :: IsGObject obj => obj -> IO IDBDatabase -castToIDBDatabase = castTo gTypeIDBDatabase "IDBDatabase" - -foreign import javascript unsafe "window[\"IDBDatabase\"]" gTypeIDBDatabase :: GType - --- | Functions for this inteface are in "GHCJS.DOM.IDBFactory". --- --- -newtype IDBFactory = IDBFactory { unIDBFactory :: JSVal } - -instance Eq (IDBFactory) where - (IDBFactory a) == (IDBFactory b) = js_eq a b - -instance PToJSVal IDBFactory where - pToJSVal = unIDBFactory - {-# INLINE pToJSVal #-} - -instance PFromJSVal IDBFactory where - pFromJSVal = IDBFactory - {-# INLINE pFromJSVal #-} - -instance ToJSVal IDBFactory where - toJSVal = return . unIDBFactory - {-# INLINE toJSVal #-} - -instance FromJSVal IDBFactory where - fromJSVal = return . fmap IDBFactory . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsGObject IDBFactory where - toGObject = GObject . unIDBFactory - {-# INLINE toGObject #-} - unsafeCastGObject = IDBFactory . unGObject - {-# INLINE unsafeCastGObject #-} - -castToIDBFactory :: IsGObject obj => obj -> IO IDBFactory -castToIDBFactory = castTo gTypeIDBFactory "IDBFactory" - -foreign import javascript unsafe "window[\"IDBFactory\"]" gTypeIDBFactory :: GType - --- | Functions for this inteface are in "GHCJS.DOM.IDBIndex". --- --- -newtype IDBIndex = IDBIndex { unIDBIndex :: JSVal } - -instance Eq (IDBIndex) where - (IDBIndex a) == (IDBIndex b) = js_eq a b - -instance PToJSVal IDBIndex where - pToJSVal = unIDBIndex - {-# INLINE pToJSVal #-} - -instance PFromJSVal IDBIndex where - pFromJSVal = IDBIndex - {-# INLINE pFromJSVal #-} - -instance ToJSVal IDBIndex where - toJSVal = return . unIDBIndex - {-# INLINE toJSVal #-} - -instance FromJSVal IDBIndex where - fromJSVal = return . fmap IDBIndex . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsGObject IDBIndex where - toGObject = GObject . unIDBIndex - {-# INLINE toGObject #-} - unsafeCastGObject = IDBIndex . unGObject - {-# INLINE unsafeCastGObject #-} - -castToIDBIndex :: IsGObject obj => obj -> IO IDBIndex -castToIDBIndex = castTo gTypeIDBIndex "IDBIndex" - -foreign import javascript unsafe "window[\"IDBIndex\"]" gTypeIDBIndex :: GType - --- | Functions for this inteface are in "GHCJS.DOM.IDBKeyRange". --- --- -newtype IDBKeyRange = IDBKeyRange { unIDBKeyRange :: JSVal } - -instance Eq (IDBKeyRange) where - (IDBKeyRange a) == (IDBKeyRange b) = js_eq a b - -instance PToJSVal IDBKeyRange where - pToJSVal = unIDBKeyRange - {-# INLINE pToJSVal #-} - -instance PFromJSVal IDBKeyRange where - pFromJSVal = IDBKeyRange - {-# INLINE pFromJSVal #-} - -instance ToJSVal IDBKeyRange where - toJSVal = return . unIDBKeyRange - {-# INLINE toJSVal #-} - -instance FromJSVal IDBKeyRange where - fromJSVal = return . fmap IDBKeyRange . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsGObject IDBKeyRange where - toGObject = GObject . unIDBKeyRange - {-# INLINE toGObject #-} - unsafeCastGObject = IDBKeyRange . unGObject - {-# INLINE unsafeCastGObject #-} - -castToIDBKeyRange :: IsGObject obj => obj -> IO IDBKeyRange -castToIDBKeyRange = castTo gTypeIDBKeyRange "IDBKeyRange" - -foreign import javascript unsafe "window[\"IDBKeyRange\"]" gTypeIDBKeyRange :: GType - --- | Functions for this inteface are in "GHCJS.DOM.IDBObjectStore". --- --- -newtype IDBObjectStore = IDBObjectStore { unIDBObjectStore :: JSVal } - -instance Eq (IDBObjectStore) where - (IDBObjectStore a) == (IDBObjectStore b) = js_eq a b - -instance PToJSVal IDBObjectStore where - pToJSVal = unIDBObjectStore - {-# INLINE pToJSVal #-} - -instance PFromJSVal IDBObjectStore where - pFromJSVal = IDBObjectStore - {-# INLINE pFromJSVal #-} - -instance ToJSVal IDBObjectStore where - toJSVal = return . unIDBObjectStore - {-# INLINE toJSVal #-} - -instance FromJSVal IDBObjectStore where - fromJSVal = return . fmap IDBObjectStore . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsGObject IDBObjectStore where - toGObject = GObject . unIDBObjectStore - {-# INLINE toGObject #-} - unsafeCastGObject = IDBObjectStore . unGObject - {-# INLINE unsafeCastGObject #-} - -castToIDBObjectStore :: IsGObject obj => obj -> IO IDBObjectStore -castToIDBObjectStore = castTo gTypeIDBObjectStore "IDBObjectStore" - -foreign import javascript unsafe "window[\"IDBObjectStore\"]" gTypeIDBObjectStore :: GType - --- | Functions for this inteface are in "GHCJS.DOM.IDBOpenDBRequest". --- Base interface functions are in: --- --- * "GHCJS.DOM.IDBRequest" --- * "GHCJS.DOM.EventTarget" --- --- -newtype IDBOpenDBRequest = IDBOpenDBRequest { unIDBOpenDBRequest :: JSVal } - -instance Eq (IDBOpenDBRequest) where - (IDBOpenDBRequest a) == (IDBOpenDBRequest b) = js_eq a b - -instance PToJSVal IDBOpenDBRequest where - pToJSVal = unIDBOpenDBRequest - {-# INLINE pToJSVal #-} - -instance PFromJSVal IDBOpenDBRequest where - pFromJSVal = IDBOpenDBRequest - {-# INLINE pFromJSVal #-} - -instance ToJSVal IDBOpenDBRequest where - toJSVal = return . unIDBOpenDBRequest - {-# INLINE toJSVal #-} - -instance FromJSVal IDBOpenDBRequest where - fromJSVal = return . fmap IDBOpenDBRequest . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsIDBRequest IDBOpenDBRequest -instance IsEventTarget IDBOpenDBRequest -instance IsGObject IDBOpenDBRequest where - toGObject = GObject . unIDBOpenDBRequest - {-# INLINE toGObject #-} - unsafeCastGObject = IDBOpenDBRequest . unGObject - {-# INLINE unsafeCastGObject #-} - -castToIDBOpenDBRequest :: IsGObject obj => obj -> IO IDBOpenDBRequest -castToIDBOpenDBRequest = castTo gTypeIDBOpenDBRequest "IDBOpenDBRequest" - -foreign import javascript unsafe "window[\"IDBOpenDBRequest\"]" gTypeIDBOpenDBRequest :: GType - --- | Functions for this inteface are in "GHCJS.DOM.IDBRequest". --- Base interface functions are in: --- --- * "GHCJS.DOM.EventTarget" --- --- -newtype IDBRequest = IDBRequest { unIDBRequest :: JSVal } - -instance Eq (IDBRequest) where - (IDBRequest a) == (IDBRequest b) = js_eq a b - -instance PToJSVal IDBRequest where - pToJSVal = unIDBRequest - {-# INLINE pToJSVal #-} - -instance PFromJSVal IDBRequest where - pFromJSVal = IDBRequest - {-# INLINE pFromJSVal #-} - -instance ToJSVal IDBRequest where - toJSVal = return . unIDBRequest - {-# INLINE toJSVal #-} - -instance FromJSVal IDBRequest where - fromJSVal = return . fmap IDBRequest . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -class IsEventTarget o => IsIDBRequest o -toIDBRequest :: IsIDBRequest o => o -> IDBRequest -toIDBRequest = unsafeCastGObject . toGObject - -instance IsIDBRequest IDBRequest -instance IsEventTarget IDBRequest -instance IsGObject IDBRequest where - toGObject = GObject . unIDBRequest - {-# INLINE toGObject #-} - unsafeCastGObject = IDBRequest . unGObject - {-# INLINE unsafeCastGObject #-} - -castToIDBRequest :: IsGObject obj => obj -> IO IDBRequest -castToIDBRequest = castTo gTypeIDBRequest "IDBRequest" - -foreign import javascript unsafe "window[\"IDBRequest\"]" gTypeIDBRequest :: GType - --- | Functions for this inteface are in "GHCJS.DOM.IDBTransaction". --- Base interface functions are in: --- --- * "GHCJS.DOM.EventTarget" --- --- -newtype IDBTransaction = IDBTransaction { unIDBTransaction :: JSVal } - -instance Eq (IDBTransaction) where - (IDBTransaction a) == (IDBTransaction b) = js_eq a b - -instance PToJSVal IDBTransaction where - pToJSVal = unIDBTransaction - {-# INLINE pToJSVal #-} - -instance PFromJSVal IDBTransaction where - pFromJSVal = IDBTransaction - {-# INLINE pFromJSVal #-} - -instance ToJSVal IDBTransaction where - toJSVal = return . unIDBTransaction - {-# INLINE toJSVal #-} - -instance FromJSVal IDBTransaction where - fromJSVal = return . fmap IDBTransaction . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsEventTarget IDBTransaction -instance IsGObject IDBTransaction where - toGObject = GObject . unIDBTransaction - {-# INLINE toGObject #-} - unsafeCastGObject = IDBTransaction . unGObject - {-# INLINE unsafeCastGObject #-} - -castToIDBTransaction :: IsGObject obj => obj -> IO IDBTransaction -castToIDBTransaction = castTo gTypeIDBTransaction "IDBTransaction" - -foreign import javascript unsafe "window[\"IDBTransaction\"]" gTypeIDBTransaction :: GType - --- | Functions for this inteface are in "GHCJS.DOM.IDBVersionChangeEvent". --- Base interface functions are in: --- --- * "GHCJS.DOM.Event" --- --- -newtype IDBVersionChangeEvent = IDBVersionChangeEvent { unIDBVersionChangeEvent :: JSVal } - -instance Eq (IDBVersionChangeEvent) where - (IDBVersionChangeEvent a) == (IDBVersionChangeEvent b) = js_eq a b - -instance PToJSVal IDBVersionChangeEvent where - pToJSVal = unIDBVersionChangeEvent - {-# INLINE pToJSVal #-} - -instance PFromJSVal IDBVersionChangeEvent where - pFromJSVal = IDBVersionChangeEvent - {-# INLINE pFromJSVal #-} - -instance ToJSVal IDBVersionChangeEvent where - toJSVal = return . unIDBVersionChangeEvent - {-# INLINE toJSVal #-} - -instance FromJSVal IDBVersionChangeEvent where - fromJSVal = return . fmap IDBVersionChangeEvent . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsEvent IDBVersionChangeEvent -instance IsGObject IDBVersionChangeEvent where - toGObject = GObject . unIDBVersionChangeEvent - {-# INLINE toGObject #-} - unsafeCastGObject = IDBVersionChangeEvent . unGObject - {-# INLINE unsafeCastGObject #-} - -castToIDBVersionChangeEvent :: IsGObject obj => obj -> IO IDBVersionChangeEvent -castToIDBVersionChangeEvent = castTo gTypeIDBVersionChangeEvent "IDBVersionChangeEvent" - -foreign import javascript unsafe "window[\"IDBVersionChangeEvent\"]" gTypeIDBVersionChangeEvent :: GType - --- | Functions for this inteface are in "GHCJS.DOM.ImageData". --- --- -newtype ImageData = ImageData { unImageData :: JSVal } - -instance Eq (ImageData) where - (ImageData a) == (ImageData b) = js_eq a b - -instance PToJSVal ImageData where - pToJSVal = unImageData - {-# INLINE pToJSVal #-} - -instance PFromJSVal ImageData where - pFromJSVal = ImageData - {-# INLINE pFromJSVal #-} - -instance ToJSVal ImageData where - toJSVal = return . unImageData - {-# INLINE toJSVal #-} - -instance FromJSVal ImageData where - fromJSVal = return . fmap ImageData . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsGObject ImageData where - toGObject = GObject . unImageData - {-# INLINE toGObject #-} - unsafeCastGObject = ImageData . unGObject - {-# INLINE unsafeCastGObject #-} - -castToImageData :: IsGObject obj => obj -> IO ImageData -castToImageData = castTo gTypeImageData "ImageData" - -foreign import javascript unsafe "window[\"ImageData\"]" gTypeImageData :: GType - --- | Functions for this inteface are in "GHCJS.DOM.InspectorFrontendHost". --- --- -newtype InspectorFrontendHost = InspectorFrontendHost { unInspectorFrontendHost :: JSVal } - -instance Eq (InspectorFrontendHost) where - (InspectorFrontendHost a) == (InspectorFrontendHost b) = js_eq a b - -instance PToJSVal InspectorFrontendHost where - pToJSVal = unInspectorFrontendHost - {-# INLINE pToJSVal #-} - -instance PFromJSVal InspectorFrontendHost where - pFromJSVal = InspectorFrontendHost - {-# INLINE pFromJSVal #-} - -instance ToJSVal InspectorFrontendHost where - toJSVal = return . unInspectorFrontendHost - {-# INLINE toJSVal #-} - -instance FromJSVal InspectorFrontendHost where - fromJSVal = return . fmap InspectorFrontendHost . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsGObject InspectorFrontendHost where - toGObject = GObject . unInspectorFrontendHost - {-# INLINE toGObject #-} - unsafeCastGObject = InspectorFrontendHost . unGObject - {-# INLINE unsafeCastGObject #-} - -castToInspectorFrontendHost :: IsGObject obj => obj -> IO InspectorFrontendHost -castToInspectorFrontendHost = castTo gTypeInspectorFrontendHost "InspectorFrontendHost" - -foreign import javascript unsafe "window[\"InspectorFrontendHost\"]" gTypeInspectorFrontendHost :: GType - --- | Functions for this inteface are in "GHCJS.DOM.InternalSettings". --- Base interface functions are in: --- --- --- -newtype InternalSettings = InternalSettings { unInternalSettings :: JSVal } - -instance Eq (InternalSettings) where - (InternalSettings a) == (InternalSettings b) = js_eq a b - -instance PToJSVal InternalSettings where - pToJSVal = unInternalSettings - {-# INLINE pToJSVal #-} - -instance PFromJSVal InternalSettings where - pFromJSVal = InternalSettings - {-# INLINE pFromJSVal #-} - -instance ToJSVal InternalSettings where - toJSVal = return . unInternalSettings - {-# INLINE toJSVal #-} - -instance FromJSVal InternalSettings where - fromJSVal = return . fmap InternalSettings . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsGObject InternalSettings where - toGObject = GObject . unInternalSettings - {-# INLINE toGObject #-} - unsafeCastGObject = InternalSettings . unGObject - {-# INLINE unsafeCastGObject #-} - -castToInternalSettings :: IsGObject obj => obj -> IO InternalSettings -castToInternalSettings = castTo gTypeInternalSettings "InternalSettings" - -foreign import javascript unsafe "window[\"InternalSettings\"]" gTypeInternalSettings :: GType - --- | Functions for this inteface are in "GHCJS.DOM.Internals". --- --- -newtype Internals = Internals { unInternals :: JSVal } - -instance Eq (Internals) where - (Internals a) == (Internals b) = js_eq a b - -instance PToJSVal Internals where - pToJSVal = unInternals - {-# INLINE pToJSVal #-} - -instance PFromJSVal Internals where - pFromJSVal = Internals - {-# INLINE pFromJSVal #-} - -instance ToJSVal Internals where - toJSVal = return . unInternals - {-# INLINE toJSVal #-} - -instance FromJSVal Internals where - fromJSVal = return . fmap Internals . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsGObject Internals where - toGObject = GObject . unInternals - {-# INLINE toGObject #-} - unsafeCastGObject = Internals . unGObject - {-# INLINE unsafeCastGObject #-} - -castToInternals :: IsGObject obj => obj -> IO Internals -castToInternals = castTo gTypeInternals "Internals" - -foreign import javascript unsafe "window[\"Internals\"]" gTypeInternals :: GType - --- | Functions for this inteface are in "GHCJS.DOM.KeyboardEvent". --- Base interface functions are in: --- --- * "GHCJS.DOM.UIEvent" --- * "GHCJS.DOM.Event" --- --- -newtype KeyboardEvent = KeyboardEvent { unKeyboardEvent :: JSVal } - -instance Eq (KeyboardEvent) where - (KeyboardEvent a) == (KeyboardEvent b) = js_eq a b - -instance PToJSVal KeyboardEvent where - pToJSVal = unKeyboardEvent - {-# INLINE pToJSVal #-} - -instance PFromJSVal KeyboardEvent where - pFromJSVal = KeyboardEvent - {-# INLINE pFromJSVal #-} - -instance ToJSVal KeyboardEvent where - toJSVal = return . unKeyboardEvent - {-# INLINE toJSVal #-} - -instance FromJSVal KeyboardEvent where - fromJSVal = return . fmap KeyboardEvent . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsUIEvent KeyboardEvent -instance IsEvent KeyboardEvent -instance IsGObject KeyboardEvent where - toGObject = GObject . unKeyboardEvent - {-# INLINE toGObject #-} - unsafeCastGObject = KeyboardEvent . unGObject - {-# INLINE unsafeCastGObject #-} - -castToKeyboardEvent :: IsGObject obj => obj -> IO KeyboardEvent -castToKeyboardEvent = castTo gTypeKeyboardEvent "KeyboardEvent" - -foreign import javascript unsafe "window[\"KeyboardEvent\"]" gTypeKeyboardEvent :: GType - --- | Functions for this inteface are in "GHCJS.DOM.Location". --- --- -newtype Location = Location { unLocation :: JSVal } - -instance Eq (Location) where - (Location a) == (Location b) = js_eq a b - -instance PToJSVal Location where - pToJSVal = unLocation - {-# INLINE pToJSVal #-} - -instance PFromJSVal Location where - pFromJSVal = Location - {-# INLINE pFromJSVal #-} - -instance ToJSVal Location where - toJSVal = return . unLocation - {-# INLINE toJSVal #-} - -instance FromJSVal Location where - fromJSVal = return . fmap Location . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsGObject Location where - toGObject = GObject . unLocation - {-# INLINE toGObject #-} - unsafeCastGObject = Location . unGObject - {-# INLINE unsafeCastGObject #-} - -castToLocation :: IsGObject obj => obj -> IO Location -castToLocation = castTo gTypeLocation "Location" - -foreign import javascript unsafe "window[\"Location\"]" gTypeLocation :: GType - --- | Functions for this inteface are in "GHCJS.DOM.MallocStatistics". --- --- -newtype MallocStatistics = MallocStatistics { unMallocStatistics :: JSVal } - -instance Eq (MallocStatistics) where - (MallocStatistics a) == (MallocStatistics b) = js_eq a b - -instance PToJSVal MallocStatistics where - pToJSVal = unMallocStatistics - {-# INLINE pToJSVal #-} - -instance PFromJSVal MallocStatistics where - pFromJSVal = MallocStatistics - {-# INLINE pFromJSVal #-} - -instance ToJSVal MallocStatistics where - toJSVal = return . unMallocStatistics - {-# INLINE toJSVal #-} - -instance FromJSVal MallocStatistics where - fromJSVal = return . fmap MallocStatistics . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsGObject MallocStatistics where - toGObject = GObject . unMallocStatistics - {-# INLINE toGObject #-} - unsafeCastGObject = MallocStatistics . unGObject - {-# INLINE unsafeCastGObject #-} - -castToMallocStatistics :: IsGObject obj => obj -> IO MallocStatistics -castToMallocStatistics = castTo gTypeMallocStatistics "MallocStatistics" - -foreign import javascript unsafe "window[\"MallocStatistics\"]" gTypeMallocStatistics :: GType - --- | Functions for this inteface are in "GHCJS.DOM.MediaController". --- Base interface functions are in: --- --- * "GHCJS.DOM.EventTarget" --- --- -newtype MediaController = MediaController { unMediaController :: JSVal } - -instance Eq (MediaController) where - (MediaController a) == (MediaController b) = js_eq a b - -instance PToJSVal MediaController where - pToJSVal = unMediaController - {-# INLINE pToJSVal #-} - -instance PFromJSVal MediaController where - pFromJSVal = MediaController - {-# INLINE pFromJSVal #-} - -instance ToJSVal MediaController where - toJSVal = return . unMediaController - {-# INLINE toJSVal #-} - -instance FromJSVal MediaController where - fromJSVal = return . fmap MediaController . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsEventTarget MediaController -instance IsGObject MediaController where - toGObject = GObject . unMediaController - {-# INLINE toGObject #-} - unsafeCastGObject = MediaController . unGObject - {-# INLINE unsafeCastGObject #-} - -castToMediaController :: IsGObject obj => obj -> IO MediaController -castToMediaController = castTo gTypeMediaController "MediaController" - -foreign import javascript unsafe "window[\"MediaController\"]" gTypeMediaController :: GType - --- | Functions for this inteface are in "GHCJS.DOM.MediaControlsHost". --- --- -newtype MediaControlsHost = MediaControlsHost { unMediaControlsHost :: JSVal } - -instance Eq (MediaControlsHost) where - (MediaControlsHost a) == (MediaControlsHost b) = js_eq a b - -instance PToJSVal MediaControlsHost where - pToJSVal = unMediaControlsHost - {-# INLINE pToJSVal #-} - -instance PFromJSVal MediaControlsHost where - pFromJSVal = MediaControlsHost - {-# INLINE pFromJSVal #-} - -instance ToJSVal MediaControlsHost where - toJSVal = return . unMediaControlsHost - {-# INLINE toJSVal #-} - -instance FromJSVal MediaControlsHost where - fromJSVal = return . fmap MediaControlsHost . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsGObject MediaControlsHost where - toGObject = GObject . unMediaControlsHost - {-# INLINE toGObject #-} - unsafeCastGObject = MediaControlsHost . unGObject - {-# INLINE unsafeCastGObject #-} - -castToMediaControlsHost :: IsGObject obj => obj -> IO MediaControlsHost -castToMediaControlsHost = castTo gTypeMediaControlsHost "MediaControlsHost" - -foreign import javascript unsafe "window[\"MediaControlsHost\"]" gTypeMediaControlsHost :: GType - --- | Functions for this inteface are in "GHCJS.DOM.MediaElementAudioSourceNode". --- Base interface functions are in: --- --- * "GHCJS.DOM.AudioNode" --- * "GHCJS.DOM.EventTarget" --- --- -newtype MediaElementAudioSourceNode = MediaElementAudioSourceNode { unMediaElementAudioSourceNode :: JSVal } - -instance Eq (MediaElementAudioSourceNode) where - (MediaElementAudioSourceNode a) == (MediaElementAudioSourceNode b) = js_eq a b - -instance PToJSVal MediaElementAudioSourceNode where - pToJSVal = unMediaElementAudioSourceNode - {-# INLINE pToJSVal #-} - -instance PFromJSVal MediaElementAudioSourceNode where - pFromJSVal = MediaElementAudioSourceNode - {-# INLINE pFromJSVal #-} - -instance ToJSVal MediaElementAudioSourceNode where - toJSVal = return . unMediaElementAudioSourceNode - {-# INLINE toJSVal #-} - -instance FromJSVal MediaElementAudioSourceNode where - fromJSVal = return . fmap MediaElementAudioSourceNode . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsAudioNode MediaElementAudioSourceNode -instance IsEventTarget MediaElementAudioSourceNode -instance IsGObject MediaElementAudioSourceNode where - toGObject = GObject . unMediaElementAudioSourceNode - {-# INLINE toGObject #-} - unsafeCastGObject = MediaElementAudioSourceNode . unGObject - {-# INLINE unsafeCastGObject #-} - -castToMediaElementAudioSourceNode :: IsGObject obj => obj -> IO MediaElementAudioSourceNode -castToMediaElementAudioSourceNode = castTo gTypeMediaElementAudioSourceNode "MediaElementAudioSourceNode" - -foreign import javascript unsafe "window[\"MediaElementAudioSourceNode\"]" gTypeMediaElementAudioSourceNode :: GType - --- | Functions for this inteface are in "GHCJS.DOM.MediaError". --- --- -newtype MediaError = MediaError { unMediaError :: JSVal } - -instance Eq (MediaError) where - (MediaError a) == (MediaError b) = js_eq a b - -instance PToJSVal MediaError where - pToJSVal = unMediaError - {-# INLINE pToJSVal #-} - -instance PFromJSVal MediaError where - pFromJSVal = MediaError - {-# INLINE pFromJSVal #-} - -instance ToJSVal MediaError where - toJSVal = return . unMediaError - {-# INLINE toJSVal #-} - -instance FromJSVal MediaError where - fromJSVal = return . fmap MediaError . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsGObject MediaError where - toGObject = GObject . unMediaError - {-# INLINE toGObject #-} - unsafeCastGObject = MediaError . unGObject - {-# INLINE unsafeCastGObject #-} - -castToMediaError :: IsGObject obj => obj -> IO MediaError -castToMediaError = castTo gTypeMediaError "MediaError" - -foreign import javascript unsafe "window[\"MediaError\"]" gTypeMediaError :: GType - --- | Functions for this inteface are in "GHCJS.DOM.MediaKeyError". --- --- -newtype MediaKeyError = MediaKeyError { unMediaKeyError :: JSVal } - -instance Eq (MediaKeyError) where - (MediaKeyError a) == (MediaKeyError b) = js_eq a b - -instance PToJSVal MediaKeyError where - pToJSVal = unMediaKeyError - {-# INLINE pToJSVal #-} - -instance PFromJSVal MediaKeyError where - pFromJSVal = MediaKeyError - {-# INLINE pFromJSVal #-} - -instance ToJSVal MediaKeyError where - toJSVal = return . unMediaKeyError - {-# INLINE toJSVal #-} - -instance FromJSVal MediaKeyError where - fromJSVal = return . fmap MediaKeyError . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsGObject MediaKeyError where - toGObject = GObject . unMediaKeyError - {-# INLINE toGObject #-} - unsafeCastGObject = MediaKeyError . unGObject - {-# INLINE unsafeCastGObject #-} - -castToMediaKeyError :: IsGObject obj => obj -> IO MediaKeyError -castToMediaKeyError = castTo gTypeMediaKeyError "MediaKeyError" - -foreign import javascript unsafe "window[\"WebKitMediaKeyError\"]" gTypeMediaKeyError :: GType - --- | Functions for this inteface are in "GHCJS.DOM.MediaKeyEvent". --- Base interface functions are in: --- --- * "GHCJS.DOM.Event" --- --- -newtype MediaKeyEvent = MediaKeyEvent { unMediaKeyEvent :: JSVal } - -instance Eq (MediaKeyEvent) where - (MediaKeyEvent a) == (MediaKeyEvent b) = js_eq a b - -instance PToJSVal MediaKeyEvent where - pToJSVal = unMediaKeyEvent - {-# INLINE pToJSVal #-} - -instance PFromJSVal MediaKeyEvent where - pFromJSVal = MediaKeyEvent - {-# INLINE pFromJSVal #-} - -instance ToJSVal MediaKeyEvent where - toJSVal = return . unMediaKeyEvent - {-# INLINE toJSVal #-} - -instance FromJSVal MediaKeyEvent where - fromJSVal = return . fmap MediaKeyEvent . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsEvent MediaKeyEvent -instance IsGObject MediaKeyEvent where - toGObject = GObject . unMediaKeyEvent - {-# INLINE toGObject #-} - unsafeCastGObject = MediaKeyEvent . unGObject - {-# INLINE unsafeCastGObject #-} - -castToMediaKeyEvent :: IsGObject obj => obj -> IO MediaKeyEvent -castToMediaKeyEvent = castTo gTypeMediaKeyEvent "MediaKeyEvent" - -foreign import javascript unsafe "window[\"MediaKeyEvent\"]" gTypeMediaKeyEvent :: GType - --- | Functions for this inteface are in "GHCJS.DOM.MediaKeyMessageEvent". --- Base interface functions are in: --- --- * "GHCJS.DOM.Event" --- --- -newtype MediaKeyMessageEvent = MediaKeyMessageEvent { unMediaKeyMessageEvent :: JSVal } - -instance Eq (MediaKeyMessageEvent) where - (MediaKeyMessageEvent a) == (MediaKeyMessageEvent b) = js_eq a b - -instance PToJSVal MediaKeyMessageEvent where - pToJSVal = unMediaKeyMessageEvent - {-# INLINE pToJSVal #-} - -instance PFromJSVal MediaKeyMessageEvent where - pFromJSVal = MediaKeyMessageEvent - {-# INLINE pFromJSVal #-} - -instance ToJSVal MediaKeyMessageEvent where - toJSVal = return . unMediaKeyMessageEvent - {-# INLINE toJSVal #-} - -instance FromJSVal MediaKeyMessageEvent where - fromJSVal = return . fmap MediaKeyMessageEvent . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsEvent MediaKeyMessageEvent -instance IsGObject MediaKeyMessageEvent where - toGObject = GObject . unMediaKeyMessageEvent - {-# INLINE toGObject #-} - unsafeCastGObject = MediaKeyMessageEvent . unGObject - {-# INLINE unsafeCastGObject #-} - -castToMediaKeyMessageEvent :: IsGObject obj => obj -> IO MediaKeyMessageEvent -castToMediaKeyMessageEvent = castTo gTypeMediaKeyMessageEvent "MediaKeyMessageEvent" - -foreign import javascript unsafe "window[\"WebKitMediaKeyMessageEvent\"]" gTypeMediaKeyMessageEvent :: GType - --- | Functions for this inteface are in "GHCJS.DOM.MediaKeyNeededEvent". --- Base interface functions are in: --- --- * "GHCJS.DOM.Event" --- --- -newtype MediaKeyNeededEvent = MediaKeyNeededEvent { unMediaKeyNeededEvent :: JSVal } - -instance Eq (MediaKeyNeededEvent) where - (MediaKeyNeededEvent a) == (MediaKeyNeededEvent b) = js_eq a b - -instance PToJSVal MediaKeyNeededEvent where - pToJSVal = unMediaKeyNeededEvent - {-# INLINE pToJSVal #-} - -instance PFromJSVal MediaKeyNeededEvent where - pFromJSVal = MediaKeyNeededEvent - {-# INLINE pFromJSVal #-} - -instance ToJSVal MediaKeyNeededEvent where - toJSVal = return . unMediaKeyNeededEvent - {-# INLINE toJSVal #-} - -instance FromJSVal MediaKeyNeededEvent where - fromJSVal = return . fmap MediaKeyNeededEvent . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsEvent MediaKeyNeededEvent -instance IsGObject MediaKeyNeededEvent where - toGObject = GObject . unMediaKeyNeededEvent - {-# INLINE toGObject #-} - unsafeCastGObject = MediaKeyNeededEvent . unGObject - {-# INLINE unsafeCastGObject #-} - -castToMediaKeyNeededEvent :: IsGObject obj => obj -> IO MediaKeyNeededEvent -castToMediaKeyNeededEvent = castTo gTypeMediaKeyNeededEvent "MediaKeyNeededEvent" - -foreign import javascript unsafe "window[\"MediaKeyNeededEvent\"]" gTypeMediaKeyNeededEvent :: GType - --- | Functions for this inteface are in "GHCJS.DOM.MediaKeySession". --- Base interface functions are in: --- --- * "GHCJS.DOM.EventTarget" --- --- -newtype MediaKeySession = MediaKeySession { unMediaKeySession :: JSVal } - -instance Eq (MediaKeySession) where - (MediaKeySession a) == (MediaKeySession b) = js_eq a b - -instance PToJSVal MediaKeySession where - pToJSVal = unMediaKeySession - {-# INLINE pToJSVal #-} - -instance PFromJSVal MediaKeySession where - pFromJSVal = MediaKeySession - {-# INLINE pFromJSVal #-} - -instance ToJSVal MediaKeySession where - toJSVal = return . unMediaKeySession - {-# INLINE toJSVal #-} - -instance FromJSVal MediaKeySession where - fromJSVal = return . fmap MediaKeySession . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsEventTarget MediaKeySession -instance IsGObject MediaKeySession where - toGObject = GObject . unMediaKeySession - {-# INLINE toGObject #-} - unsafeCastGObject = MediaKeySession . unGObject - {-# INLINE unsafeCastGObject #-} - -castToMediaKeySession :: IsGObject obj => obj -> IO MediaKeySession -castToMediaKeySession = castTo gTypeMediaKeySession "MediaKeySession" - -foreign import javascript unsafe "window[\"WebKitMediaKeySession\"]" gTypeMediaKeySession :: GType - --- | Functions for this inteface are in "GHCJS.DOM.MediaKeys". --- --- -newtype MediaKeys = MediaKeys { unMediaKeys :: JSVal } - -instance Eq (MediaKeys) where - (MediaKeys a) == (MediaKeys b) = js_eq a b - -instance PToJSVal MediaKeys where - pToJSVal = unMediaKeys - {-# INLINE pToJSVal #-} - -instance PFromJSVal MediaKeys where - pFromJSVal = MediaKeys - {-# INLINE pFromJSVal #-} - -instance ToJSVal MediaKeys where - toJSVal = return . unMediaKeys - {-# INLINE toJSVal #-} - -instance FromJSVal MediaKeys where - fromJSVal = return . fmap MediaKeys . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsGObject MediaKeys where - toGObject = GObject . unMediaKeys - {-# INLINE toGObject #-} - unsafeCastGObject = MediaKeys . unGObject - {-# INLINE unsafeCastGObject #-} - -castToMediaKeys :: IsGObject obj => obj -> IO MediaKeys -castToMediaKeys = castTo gTypeMediaKeys "MediaKeys" - -foreign import javascript unsafe "window[\"WebKitMediaKeys\"]" gTypeMediaKeys :: GType - --- | Functions for this inteface are in "GHCJS.DOM.MediaList". --- --- -newtype MediaList = MediaList { unMediaList :: JSVal } - -instance Eq (MediaList) where - (MediaList a) == (MediaList b) = js_eq a b - -instance PToJSVal MediaList where - pToJSVal = unMediaList - {-# INLINE pToJSVal #-} - -instance PFromJSVal MediaList where - pFromJSVal = MediaList - {-# INLINE pFromJSVal #-} - -instance ToJSVal MediaList where - toJSVal = return . unMediaList - {-# INLINE toJSVal #-} - -instance FromJSVal MediaList where - fromJSVal = return . fmap MediaList . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsGObject MediaList where - toGObject = GObject . unMediaList - {-# INLINE toGObject #-} - unsafeCastGObject = MediaList . unGObject - {-# INLINE unsafeCastGObject #-} - -castToMediaList :: IsGObject obj => obj -> IO MediaList -castToMediaList = castTo gTypeMediaList "MediaList" - -foreign import javascript unsafe "window[\"MediaList\"]" gTypeMediaList :: GType - --- | Functions for this inteface are in "GHCJS.DOM.MediaQueryList". --- --- -newtype MediaQueryList = MediaQueryList { unMediaQueryList :: JSVal } - -instance Eq (MediaQueryList) where - (MediaQueryList a) == (MediaQueryList b) = js_eq a b - -instance PToJSVal MediaQueryList where - pToJSVal = unMediaQueryList - {-# INLINE pToJSVal #-} - -instance PFromJSVal MediaQueryList where - pFromJSVal = MediaQueryList - {-# INLINE pFromJSVal #-} - -instance ToJSVal MediaQueryList where - toJSVal = return . unMediaQueryList - {-# INLINE toJSVal #-} - -instance FromJSVal MediaQueryList where - fromJSVal = return . fmap MediaQueryList . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsGObject MediaQueryList where - toGObject = GObject . unMediaQueryList - {-# INLINE toGObject #-} - unsafeCastGObject = MediaQueryList . unGObject - {-# INLINE unsafeCastGObject #-} - -castToMediaQueryList :: IsGObject obj => obj -> IO MediaQueryList -castToMediaQueryList = castTo gTypeMediaQueryList "MediaQueryList" - -foreign import javascript unsafe "window[\"MediaQueryList\"]" gTypeMediaQueryList :: GType - --- | Functions for this inteface are in "GHCJS.DOM.MediaSource". --- Base interface functions are in: --- --- * "GHCJS.DOM.EventTarget" --- --- -newtype MediaSource = MediaSource { unMediaSource :: JSVal } - -instance Eq (MediaSource) where - (MediaSource a) == (MediaSource b) = js_eq a b - -instance PToJSVal MediaSource where - pToJSVal = unMediaSource - {-# INLINE pToJSVal #-} - -instance PFromJSVal MediaSource where - pFromJSVal = MediaSource - {-# INLINE pFromJSVal #-} - -instance ToJSVal MediaSource where - toJSVal = return . unMediaSource - {-# INLINE toJSVal #-} - -instance FromJSVal MediaSource where - fromJSVal = return . fmap MediaSource . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsEventTarget MediaSource -instance IsGObject MediaSource where - toGObject = GObject . unMediaSource - {-# INLINE toGObject #-} - unsafeCastGObject = MediaSource . unGObject - {-# INLINE unsafeCastGObject #-} - -castToMediaSource :: IsGObject obj => obj -> IO MediaSource -castToMediaSource = castTo gTypeMediaSource "MediaSource" - -foreign import javascript unsafe "window[\"MediaSource\"]" gTypeMediaSource :: GType - --- | Functions for this inteface are in "GHCJS.DOM.MediaSourceStates". --- --- -newtype MediaSourceStates = MediaSourceStates { unMediaSourceStates :: JSVal } - -instance Eq (MediaSourceStates) where - (MediaSourceStates a) == (MediaSourceStates b) = js_eq a b - -instance PToJSVal MediaSourceStates where - pToJSVal = unMediaSourceStates - {-# INLINE pToJSVal #-} - -instance PFromJSVal MediaSourceStates where - pFromJSVal = MediaSourceStates - {-# INLINE pFromJSVal #-} - -instance ToJSVal MediaSourceStates where - toJSVal = return . unMediaSourceStates - {-# INLINE toJSVal #-} - -instance FromJSVal MediaSourceStates where - fromJSVal = return . fmap MediaSourceStates . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsGObject MediaSourceStates where - toGObject = GObject . unMediaSourceStates - {-# INLINE toGObject #-} - unsafeCastGObject = MediaSourceStates . unGObject - {-# INLINE unsafeCastGObject #-} - -castToMediaSourceStates :: IsGObject obj => obj -> IO MediaSourceStates -castToMediaSourceStates = castTo gTypeMediaSourceStates "MediaSourceStates" - -foreign import javascript unsafe "window[\"MediaSourceStates\"]" gTypeMediaSourceStates :: GType - --- | Functions for this inteface are in "GHCJS.DOM.MediaStream". --- Base interface functions are in: --- --- * "GHCJS.DOM.EventTarget" --- --- -newtype MediaStream = MediaStream { unMediaStream :: JSVal } - -instance Eq (MediaStream) where - (MediaStream a) == (MediaStream b) = js_eq a b - -instance PToJSVal MediaStream where - pToJSVal = unMediaStream - {-# INLINE pToJSVal #-} - -instance PFromJSVal MediaStream where - pFromJSVal = MediaStream - {-# INLINE pFromJSVal #-} - -instance ToJSVal MediaStream where - toJSVal = return . unMediaStream - {-# INLINE toJSVal #-} - -instance FromJSVal MediaStream where - fromJSVal = return . fmap MediaStream . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsEventTarget MediaStream -instance IsGObject MediaStream where - toGObject = GObject . unMediaStream - {-# INLINE toGObject #-} - unsafeCastGObject = MediaStream . unGObject - {-# INLINE unsafeCastGObject #-} - -castToMediaStream :: IsGObject obj => obj -> IO MediaStream -castToMediaStream = castTo gTypeMediaStream "MediaStream" - -foreign import javascript unsafe "window[\"webkitMediaStream\"]" gTypeMediaStream :: GType - --- | Functions for this inteface are in "GHCJS.DOM.MediaStreamAudioDestinationNode". --- Base interface functions are in: --- --- * "GHCJS.DOM.AudioNode" --- * "GHCJS.DOM.EventTarget" --- --- -newtype MediaStreamAudioDestinationNode = MediaStreamAudioDestinationNode { unMediaStreamAudioDestinationNode :: JSVal } - -instance Eq (MediaStreamAudioDestinationNode) where - (MediaStreamAudioDestinationNode a) == (MediaStreamAudioDestinationNode b) = js_eq a b - -instance PToJSVal MediaStreamAudioDestinationNode where - pToJSVal = unMediaStreamAudioDestinationNode - {-# INLINE pToJSVal #-} - -instance PFromJSVal MediaStreamAudioDestinationNode where - pFromJSVal = MediaStreamAudioDestinationNode - {-# INLINE pFromJSVal #-} - -instance ToJSVal MediaStreamAudioDestinationNode where - toJSVal = return . unMediaStreamAudioDestinationNode - {-# INLINE toJSVal #-} - -instance FromJSVal MediaStreamAudioDestinationNode where - fromJSVal = return . fmap MediaStreamAudioDestinationNode . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsAudioNode MediaStreamAudioDestinationNode -instance IsEventTarget MediaStreamAudioDestinationNode -instance IsGObject MediaStreamAudioDestinationNode where - toGObject = GObject . unMediaStreamAudioDestinationNode - {-# INLINE toGObject #-} - unsafeCastGObject = MediaStreamAudioDestinationNode . unGObject - {-# INLINE unsafeCastGObject #-} - -castToMediaStreamAudioDestinationNode :: IsGObject obj => obj -> IO MediaStreamAudioDestinationNode -castToMediaStreamAudioDestinationNode = castTo gTypeMediaStreamAudioDestinationNode "MediaStreamAudioDestinationNode" - -foreign import javascript unsafe "window[\"MediaStreamAudioDestinationNode\"]" gTypeMediaStreamAudioDestinationNode :: GType - --- | Functions for this inteface are in "GHCJS.DOM.MediaStreamAudioSourceNode". --- Base interface functions are in: --- --- * "GHCJS.DOM.AudioNode" --- * "GHCJS.DOM.EventTarget" --- --- -newtype MediaStreamAudioSourceNode = MediaStreamAudioSourceNode { unMediaStreamAudioSourceNode :: JSVal } - -instance Eq (MediaStreamAudioSourceNode) where - (MediaStreamAudioSourceNode a) == (MediaStreamAudioSourceNode b) = js_eq a b - -instance PToJSVal MediaStreamAudioSourceNode where - pToJSVal = unMediaStreamAudioSourceNode - {-# INLINE pToJSVal #-} - -instance PFromJSVal MediaStreamAudioSourceNode where - pFromJSVal = MediaStreamAudioSourceNode - {-# INLINE pFromJSVal #-} - -instance ToJSVal MediaStreamAudioSourceNode where - toJSVal = return . unMediaStreamAudioSourceNode - {-# INLINE toJSVal #-} - -instance FromJSVal MediaStreamAudioSourceNode where - fromJSVal = return . fmap MediaStreamAudioSourceNode . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsAudioNode MediaStreamAudioSourceNode -instance IsEventTarget MediaStreamAudioSourceNode -instance IsGObject MediaStreamAudioSourceNode where - toGObject = GObject . unMediaStreamAudioSourceNode - {-# INLINE toGObject #-} - unsafeCastGObject = MediaStreamAudioSourceNode . unGObject - {-# INLINE unsafeCastGObject #-} - -castToMediaStreamAudioSourceNode :: IsGObject obj => obj -> IO MediaStreamAudioSourceNode -castToMediaStreamAudioSourceNode = castTo gTypeMediaStreamAudioSourceNode "MediaStreamAudioSourceNode" - -foreign import javascript unsafe "window[\"MediaStreamAudioSourceNode\"]" gTypeMediaStreamAudioSourceNode :: GType - --- | Functions for this inteface are in "GHCJS.DOM.MediaStreamCapabilities". --- --- -newtype MediaStreamCapabilities = MediaStreamCapabilities { unMediaStreamCapabilities :: JSVal } - -instance Eq (MediaStreamCapabilities) where - (MediaStreamCapabilities a) == (MediaStreamCapabilities b) = js_eq a b - -instance PToJSVal MediaStreamCapabilities where - pToJSVal = unMediaStreamCapabilities - {-# INLINE pToJSVal #-} - -instance PFromJSVal MediaStreamCapabilities where - pFromJSVal = MediaStreamCapabilities - {-# INLINE pFromJSVal #-} - -instance ToJSVal MediaStreamCapabilities where - toJSVal = return . unMediaStreamCapabilities - {-# INLINE toJSVal #-} - -instance FromJSVal MediaStreamCapabilities where - fromJSVal = return . fmap MediaStreamCapabilities . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -class IsGObject o => IsMediaStreamCapabilities o -toMediaStreamCapabilities :: IsMediaStreamCapabilities o => o -> MediaStreamCapabilities -toMediaStreamCapabilities = unsafeCastGObject . toGObject - -instance IsMediaStreamCapabilities MediaStreamCapabilities -instance IsGObject MediaStreamCapabilities where - toGObject = GObject . unMediaStreamCapabilities - {-# INLINE toGObject #-} - unsafeCastGObject = MediaStreamCapabilities . unGObject - {-# INLINE unsafeCastGObject #-} - -castToMediaStreamCapabilities :: IsGObject obj => obj -> IO MediaStreamCapabilities -castToMediaStreamCapabilities = castTo gTypeMediaStreamCapabilities "MediaStreamCapabilities" - -foreign import javascript unsafe "window[\"MediaStreamCapabilities\"]" gTypeMediaStreamCapabilities :: GType - --- | Functions for this inteface are in "GHCJS.DOM.MediaStreamEvent". --- Base interface functions are in: --- --- * "GHCJS.DOM.Event" --- --- -newtype MediaStreamEvent = MediaStreamEvent { unMediaStreamEvent :: JSVal } - -instance Eq (MediaStreamEvent) where - (MediaStreamEvent a) == (MediaStreamEvent b) = js_eq a b - -instance PToJSVal MediaStreamEvent where - pToJSVal = unMediaStreamEvent - {-# INLINE pToJSVal #-} - -instance PFromJSVal MediaStreamEvent where - pFromJSVal = MediaStreamEvent - {-# INLINE pFromJSVal #-} - -instance ToJSVal MediaStreamEvent where - toJSVal = return . unMediaStreamEvent - {-# INLINE toJSVal #-} - -instance FromJSVal MediaStreamEvent where - fromJSVal = return . fmap MediaStreamEvent . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsEvent MediaStreamEvent -instance IsGObject MediaStreamEvent where - toGObject = GObject . unMediaStreamEvent - {-# INLINE toGObject #-} - unsafeCastGObject = MediaStreamEvent . unGObject - {-# INLINE unsafeCastGObject #-} - -castToMediaStreamEvent :: IsGObject obj => obj -> IO MediaStreamEvent -castToMediaStreamEvent = castTo gTypeMediaStreamEvent "MediaStreamEvent" - -foreign import javascript unsafe "window[\"MediaStreamEvent\"]" gTypeMediaStreamEvent :: GType - --- | Functions for this inteface are in "GHCJS.DOM.MediaStreamTrack". --- Base interface functions are in: --- --- * "GHCJS.DOM.EventTarget" --- --- -newtype MediaStreamTrack = MediaStreamTrack { unMediaStreamTrack :: JSVal } - -instance Eq (MediaStreamTrack) where - (MediaStreamTrack a) == (MediaStreamTrack b) = js_eq a b - -instance PToJSVal MediaStreamTrack where - pToJSVal = unMediaStreamTrack - {-# INLINE pToJSVal #-} - -instance PFromJSVal MediaStreamTrack where - pFromJSVal = MediaStreamTrack - {-# INLINE pFromJSVal #-} - -instance ToJSVal MediaStreamTrack where - toJSVal = return . unMediaStreamTrack - {-# INLINE toJSVal #-} - -instance FromJSVal MediaStreamTrack where - fromJSVal = return . fmap MediaStreamTrack . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -class IsEventTarget o => IsMediaStreamTrack o -toMediaStreamTrack :: IsMediaStreamTrack o => o -> MediaStreamTrack -toMediaStreamTrack = unsafeCastGObject . toGObject - -instance IsMediaStreamTrack MediaStreamTrack -instance IsEventTarget MediaStreamTrack -instance IsGObject MediaStreamTrack where - toGObject = GObject . unMediaStreamTrack - {-# INLINE toGObject #-} - unsafeCastGObject = MediaStreamTrack . unGObject - {-# INLINE unsafeCastGObject #-} - -castToMediaStreamTrack :: IsGObject obj => obj -> IO MediaStreamTrack -castToMediaStreamTrack = castTo gTypeMediaStreamTrack "MediaStreamTrack" - -foreign import javascript unsafe "window[\"MediaStreamTrack\"]" gTypeMediaStreamTrack :: GType - --- | Functions for this inteface are in "GHCJS.DOM.MediaStreamTrackEvent". --- Base interface functions are in: --- --- * "GHCJS.DOM.Event" --- --- -newtype MediaStreamTrackEvent = MediaStreamTrackEvent { unMediaStreamTrackEvent :: JSVal } - -instance Eq (MediaStreamTrackEvent) where - (MediaStreamTrackEvent a) == (MediaStreamTrackEvent b) = js_eq a b - -instance PToJSVal MediaStreamTrackEvent where - pToJSVal = unMediaStreamTrackEvent - {-# INLINE pToJSVal #-} - -instance PFromJSVal MediaStreamTrackEvent where - pFromJSVal = MediaStreamTrackEvent - {-# INLINE pFromJSVal #-} - -instance ToJSVal MediaStreamTrackEvent where - toJSVal = return . unMediaStreamTrackEvent - {-# INLINE toJSVal #-} - -instance FromJSVal MediaStreamTrackEvent where - fromJSVal = return . fmap MediaStreamTrackEvent . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsEvent MediaStreamTrackEvent -instance IsGObject MediaStreamTrackEvent where - toGObject = GObject . unMediaStreamTrackEvent - {-# INLINE toGObject #-} - unsafeCastGObject = MediaStreamTrackEvent . unGObject - {-# INLINE unsafeCastGObject #-} - -castToMediaStreamTrackEvent :: IsGObject obj => obj -> IO MediaStreamTrackEvent -castToMediaStreamTrackEvent = castTo gTypeMediaStreamTrackEvent "MediaStreamTrackEvent" - -foreign import javascript unsafe "window[\"MediaStreamTrackEvent\"]" gTypeMediaStreamTrackEvent :: GType - --- | Functions for this inteface are in "GHCJS.DOM.MediaTrackConstraint". --- --- -newtype MediaTrackConstraint = MediaTrackConstraint { unMediaTrackConstraint :: JSVal } - -instance Eq (MediaTrackConstraint) where - (MediaTrackConstraint a) == (MediaTrackConstraint b) = js_eq a b - -instance PToJSVal MediaTrackConstraint where - pToJSVal = unMediaTrackConstraint - {-# INLINE pToJSVal #-} - -instance PFromJSVal MediaTrackConstraint where - pFromJSVal = MediaTrackConstraint - {-# INLINE pFromJSVal #-} - -instance ToJSVal MediaTrackConstraint where - toJSVal = return . unMediaTrackConstraint - {-# INLINE toJSVal #-} - -instance FromJSVal MediaTrackConstraint where - fromJSVal = return . fmap MediaTrackConstraint . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsGObject MediaTrackConstraint where - toGObject = GObject . unMediaTrackConstraint - {-# INLINE toGObject #-} - unsafeCastGObject = MediaTrackConstraint . unGObject - {-# INLINE unsafeCastGObject #-} - -castToMediaTrackConstraint :: IsGObject obj => obj -> IO MediaTrackConstraint -castToMediaTrackConstraint = castTo gTypeMediaTrackConstraint "MediaTrackConstraint" - -foreign import javascript unsafe "window[\"MediaTrackConstraint\"]" gTypeMediaTrackConstraint :: GType - --- | Functions for this inteface are in "GHCJS.DOM.MediaTrackConstraintSet". --- --- -newtype MediaTrackConstraintSet = MediaTrackConstraintSet { unMediaTrackConstraintSet :: JSVal } - -instance Eq (MediaTrackConstraintSet) where - (MediaTrackConstraintSet a) == (MediaTrackConstraintSet b) = js_eq a b - -instance PToJSVal MediaTrackConstraintSet where - pToJSVal = unMediaTrackConstraintSet - {-# INLINE pToJSVal #-} - -instance PFromJSVal MediaTrackConstraintSet where - pFromJSVal = MediaTrackConstraintSet - {-# INLINE pFromJSVal #-} - -instance ToJSVal MediaTrackConstraintSet where - toJSVal = return . unMediaTrackConstraintSet - {-# INLINE toJSVal #-} - -instance FromJSVal MediaTrackConstraintSet where - fromJSVal = return . fmap MediaTrackConstraintSet . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsGObject MediaTrackConstraintSet where - toGObject = GObject . unMediaTrackConstraintSet - {-# INLINE toGObject #-} - unsafeCastGObject = MediaTrackConstraintSet . unGObject - {-# INLINE unsafeCastGObject #-} - -castToMediaTrackConstraintSet :: IsGObject obj => obj -> IO MediaTrackConstraintSet -castToMediaTrackConstraintSet = castTo gTypeMediaTrackConstraintSet "MediaTrackConstraintSet" - -foreign import javascript unsafe "window[\"MediaTrackConstraintSet\"]" gTypeMediaTrackConstraintSet :: GType - --- | Functions for this inteface are in "GHCJS.DOM.MediaTrackConstraints". --- --- -newtype MediaTrackConstraints = MediaTrackConstraints { unMediaTrackConstraints :: JSVal } - -instance Eq (MediaTrackConstraints) where - (MediaTrackConstraints a) == (MediaTrackConstraints b) = js_eq a b - -instance PToJSVal MediaTrackConstraints where - pToJSVal = unMediaTrackConstraints - {-# INLINE pToJSVal #-} - -instance PFromJSVal MediaTrackConstraints where - pFromJSVal = MediaTrackConstraints - {-# INLINE pFromJSVal #-} - -instance ToJSVal MediaTrackConstraints where - toJSVal = return . unMediaTrackConstraints - {-# INLINE toJSVal #-} - -instance FromJSVal MediaTrackConstraints where - fromJSVal = return . fmap MediaTrackConstraints . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsGObject MediaTrackConstraints where - toGObject = GObject . unMediaTrackConstraints - {-# INLINE toGObject #-} - unsafeCastGObject = MediaTrackConstraints . unGObject - {-# INLINE unsafeCastGObject #-} - -castToMediaTrackConstraints :: IsGObject obj => obj -> IO MediaTrackConstraints -castToMediaTrackConstraints = castTo gTypeMediaTrackConstraints "MediaTrackConstraints" - -foreign import javascript unsafe "window[\"MediaTrackConstraints\"]" gTypeMediaTrackConstraints :: GType - --- | Functions for this inteface are in "GHCJS.DOM.MemoryInfo". --- --- -newtype MemoryInfo = MemoryInfo { unMemoryInfo :: JSVal } - -instance Eq (MemoryInfo) where - (MemoryInfo a) == (MemoryInfo b) = js_eq a b - -instance PToJSVal MemoryInfo where - pToJSVal = unMemoryInfo - {-# INLINE pToJSVal #-} - -instance PFromJSVal MemoryInfo where - pFromJSVal = MemoryInfo - {-# INLINE pFromJSVal #-} - -instance ToJSVal MemoryInfo where - toJSVal = return . unMemoryInfo - {-# INLINE toJSVal #-} - -instance FromJSVal MemoryInfo where - fromJSVal = return . fmap MemoryInfo . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsGObject MemoryInfo where - toGObject = GObject . unMemoryInfo - {-# INLINE toGObject #-} - unsafeCastGObject = MemoryInfo . unGObject - {-# INLINE unsafeCastGObject #-} - -castToMemoryInfo :: IsGObject obj => obj -> IO MemoryInfo -castToMemoryInfo = castTo gTypeMemoryInfo "MemoryInfo" - -foreign import javascript unsafe "window[\"MemoryInfo\"]" gTypeMemoryInfo :: GType - --- | Functions for this inteface are in "GHCJS.DOM.MessageChannel". --- --- -newtype MessageChannel = MessageChannel { unMessageChannel :: JSVal } - -instance Eq (MessageChannel) where - (MessageChannel a) == (MessageChannel b) = js_eq a b - -instance PToJSVal MessageChannel where - pToJSVal = unMessageChannel - {-# INLINE pToJSVal #-} - -instance PFromJSVal MessageChannel where - pFromJSVal = MessageChannel - {-# INLINE pFromJSVal #-} - -instance ToJSVal MessageChannel where - toJSVal = return . unMessageChannel - {-# INLINE toJSVal #-} - -instance FromJSVal MessageChannel where - fromJSVal = return . fmap MessageChannel . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsGObject MessageChannel where - toGObject = GObject . unMessageChannel - {-# INLINE toGObject #-} - unsafeCastGObject = MessageChannel . unGObject - {-# INLINE unsafeCastGObject #-} - -castToMessageChannel :: IsGObject obj => obj -> IO MessageChannel -castToMessageChannel = castTo gTypeMessageChannel "MessageChannel" - -foreign import javascript unsafe "window[\"MessageChannel\"]" gTypeMessageChannel :: GType - --- | Functions for this inteface are in "GHCJS.DOM.MessageEvent". --- Base interface functions are in: --- --- * "GHCJS.DOM.Event" --- --- -newtype MessageEvent = MessageEvent { unMessageEvent :: JSVal } - -instance Eq (MessageEvent) where - (MessageEvent a) == (MessageEvent b) = js_eq a b - -instance PToJSVal MessageEvent where - pToJSVal = unMessageEvent - {-# INLINE pToJSVal #-} - -instance PFromJSVal MessageEvent where - pFromJSVal = MessageEvent - {-# INLINE pFromJSVal #-} - -instance ToJSVal MessageEvent where - toJSVal = return . unMessageEvent - {-# INLINE toJSVal #-} - -instance FromJSVal MessageEvent where - fromJSVal = return . fmap MessageEvent . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsEvent MessageEvent -instance IsGObject MessageEvent where - toGObject = GObject . unMessageEvent - {-# INLINE toGObject #-} - unsafeCastGObject = MessageEvent . unGObject - {-# INLINE unsafeCastGObject #-} - -castToMessageEvent :: IsGObject obj => obj -> IO MessageEvent -castToMessageEvent = castTo gTypeMessageEvent "MessageEvent" - -foreign import javascript unsafe "window[\"MessageEvent\"]" gTypeMessageEvent :: GType - --- | Functions for this inteface are in "GHCJS.DOM.MessagePort". --- Base interface functions are in: --- --- * "GHCJS.DOM.EventTarget" --- --- -newtype MessagePort = MessagePort { unMessagePort :: JSVal } - -instance Eq (MessagePort) where - (MessagePort a) == (MessagePort b) = js_eq a b - -instance PToJSVal MessagePort where - pToJSVal = unMessagePort - {-# INLINE pToJSVal #-} - -instance PFromJSVal MessagePort where - pFromJSVal = MessagePort - {-# INLINE pFromJSVal #-} - -instance ToJSVal MessagePort where - toJSVal = return . unMessagePort - {-# INLINE toJSVal #-} - -instance FromJSVal MessagePort where - fromJSVal = return . fmap MessagePort . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsEventTarget MessagePort -instance IsGObject MessagePort where - toGObject = GObject . unMessagePort - {-# INLINE toGObject #-} - unsafeCastGObject = MessagePort . unGObject - {-# INLINE unsafeCastGObject #-} - -castToMessagePort :: IsGObject obj => obj -> IO MessagePort -castToMessagePort = castTo gTypeMessagePort "MessagePort" - -foreign import javascript unsafe "window[\"MessagePort\"]" gTypeMessagePort :: GType - --- | Functions for this inteface are in "GHCJS.DOM.MimeType". --- --- -newtype MimeType = MimeType { unMimeType :: JSVal } - -instance Eq (MimeType) where - (MimeType a) == (MimeType b) = js_eq a b - -instance PToJSVal MimeType where - pToJSVal = unMimeType - {-# INLINE pToJSVal #-} - -instance PFromJSVal MimeType where - pFromJSVal = MimeType - {-# INLINE pFromJSVal #-} - -instance ToJSVal MimeType where - toJSVal = return . unMimeType - {-# INLINE toJSVal #-} - -instance FromJSVal MimeType where - fromJSVal = return . fmap MimeType . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsGObject MimeType where - toGObject = GObject . unMimeType - {-# INLINE toGObject #-} - unsafeCastGObject = MimeType . unGObject - {-# INLINE unsafeCastGObject #-} - -castToMimeType :: IsGObject obj => obj -> IO MimeType -castToMimeType = castTo gTypeMimeType "MimeType" - -foreign import javascript unsafe "window[\"MimeType\"]" gTypeMimeType :: GType - --- | Functions for this inteface are in "GHCJS.DOM.MimeTypeArray". --- --- -newtype MimeTypeArray = MimeTypeArray { unMimeTypeArray :: JSVal } - -instance Eq (MimeTypeArray) where - (MimeTypeArray a) == (MimeTypeArray b) = js_eq a b - -instance PToJSVal MimeTypeArray where - pToJSVal = unMimeTypeArray - {-# INLINE pToJSVal #-} - -instance PFromJSVal MimeTypeArray where - pFromJSVal = MimeTypeArray - {-# INLINE pFromJSVal #-} - -instance ToJSVal MimeTypeArray where - toJSVal = return . unMimeTypeArray - {-# INLINE toJSVal #-} - -instance FromJSVal MimeTypeArray where - fromJSVal = return . fmap MimeTypeArray . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsGObject MimeTypeArray where - toGObject = GObject . unMimeTypeArray - {-# INLINE toGObject #-} - unsafeCastGObject = MimeTypeArray . unGObject - {-# INLINE unsafeCastGObject #-} - -castToMimeTypeArray :: IsGObject obj => obj -> IO MimeTypeArray -castToMimeTypeArray = castTo gTypeMimeTypeArray "MimeTypeArray" - -foreign import javascript unsafe "window[\"MimeTypeArray\"]" gTypeMimeTypeArray :: GType - --- | Functions for this inteface are in "GHCJS.DOM.MouseEvent". --- Base interface functions are in: --- --- * "GHCJS.DOM.UIEvent" --- * "GHCJS.DOM.Event" --- --- -newtype MouseEvent = MouseEvent { unMouseEvent :: JSVal } - -instance Eq (MouseEvent) where - (MouseEvent a) == (MouseEvent b) = js_eq a b - -instance PToJSVal MouseEvent where - pToJSVal = unMouseEvent - {-# INLINE pToJSVal #-} - -instance PFromJSVal MouseEvent where - pFromJSVal = MouseEvent - {-# INLINE pFromJSVal #-} - -instance ToJSVal MouseEvent where - toJSVal = return . unMouseEvent - {-# INLINE toJSVal #-} - -instance FromJSVal MouseEvent where - fromJSVal = return . fmap MouseEvent . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -class IsUIEvent o => IsMouseEvent o -toMouseEvent :: IsMouseEvent o => o -> MouseEvent -toMouseEvent = unsafeCastGObject . toGObject - -instance IsMouseEvent MouseEvent -instance IsUIEvent MouseEvent -instance IsEvent MouseEvent -instance IsGObject MouseEvent where - toGObject = GObject . unMouseEvent - {-# INLINE toGObject #-} - unsafeCastGObject = MouseEvent . unGObject - {-# INLINE unsafeCastGObject #-} - -castToMouseEvent :: IsGObject obj => obj -> IO MouseEvent -castToMouseEvent = castTo gTypeMouseEvent "MouseEvent" - -foreign import javascript unsafe "window[\"MouseEvent\"]" gTypeMouseEvent :: GType - --- | Functions for this inteface are in "GHCJS.DOM.MutationEvent". --- Base interface functions are in: --- --- * "GHCJS.DOM.Event" --- --- -newtype MutationEvent = MutationEvent { unMutationEvent :: JSVal } - -instance Eq (MutationEvent) where - (MutationEvent a) == (MutationEvent b) = js_eq a b - -instance PToJSVal MutationEvent where - pToJSVal = unMutationEvent - {-# INLINE pToJSVal #-} - -instance PFromJSVal MutationEvent where - pFromJSVal = MutationEvent - {-# INLINE pFromJSVal #-} - -instance ToJSVal MutationEvent where - toJSVal = return . unMutationEvent - {-# INLINE toJSVal #-} - -instance FromJSVal MutationEvent where - fromJSVal = return . fmap MutationEvent . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsEvent MutationEvent -instance IsGObject MutationEvent where - toGObject = GObject . unMutationEvent - {-# INLINE toGObject #-} - unsafeCastGObject = MutationEvent . unGObject - {-# INLINE unsafeCastGObject #-} - -castToMutationEvent :: IsGObject obj => obj -> IO MutationEvent -castToMutationEvent = castTo gTypeMutationEvent "MutationEvent" - -foreign import javascript unsafe "window[\"MutationEvent\"]" gTypeMutationEvent :: GType - --- | Functions for this inteface are in "GHCJS.DOM.MutationObserver". --- --- -newtype MutationObserver = MutationObserver { unMutationObserver :: JSVal } - -instance Eq (MutationObserver) where - (MutationObserver a) == (MutationObserver b) = js_eq a b - -instance PToJSVal MutationObserver where - pToJSVal = unMutationObserver - {-# INLINE pToJSVal #-} - -instance PFromJSVal MutationObserver where - pFromJSVal = MutationObserver - {-# INLINE pFromJSVal #-} - -instance ToJSVal MutationObserver where - toJSVal = return . unMutationObserver - {-# INLINE toJSVal #-} - -instance FromJSVal MutationObserver where - fromJSVal = return . fmap MutationObserver . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsGObject MutationObserver where - toGObject = GObject . unMutationObserver - {-# INLINE toGObject #-} - unsafeCastGObject = MutationObserver . unGObject - {-# INLINE unsafeCastGObject #-} - -castToMutationObserver :: IsGObject obj => obj -> IO MutationObserver -castToMutationObserver = castTo gTypeMutationObserver "MutationObserver" - -foreign import javascript unsafe "window[\"MutationObserver\"]" gTypeMutationObserver :: GType - --- | Functions for this inteface are in "GHCJS.DOM.MutationRecord". --- --- -newtype MutationRecord = MutationRecord { unMutationRecord :: JSVal } - -instance Eq (MutationRecord) where - (MutationRecord a) == (MutationRecord b) = js_eq a b - -instance PToJSVal MutationRecord where - pToJSVal = unMutationRecord - {-# INLINE pToJSVal #-} - -instance PFromJSVal MutationRecord where - pFromJSVal = MutationRecord - {-# INLINE pFromJSVal #-} - -instance ToJSVal MutationRecord where - toJSVal = return . unMutationRecord - {-# INLINE toJSVal #-} - -instance FromJSVal MutationRecord where - fromJSVal = return . fmap MutationRecord . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsGObject MutationRecord where - toGObject = GObject . unMutationRecord - {-# INLINE toGObject #-} - unsafeCastGObject = MutationRecord . unGObject - {-# INLINE unsafeCastGObject #-} - -castToMutationRecord :: IsGObject obj => obj -> IO MutationRecord -castToMutationRecord = castTo gTypeMutationRecord "MutationRecord" - -foreign import javascript unsafe "window[\"MutationRecord\"]" gTypeMutationRecord :: GType - --- | Functions for this inteface are in "GHCJS.DOM.NamedNodeMap". --- --- -newtype NamedNodeMap = NamedNodeMap { unNamedNodeMap :: JSVal } - -instance Eq (NamedNodeMap) where - (NamedNodeMap a) == (NamedNodeMap b) = js_eq a b - -instance PToJSVal NamedNodeMap where - pToJSVal = unNamedNodeMap - {-# INLINE pToJSVal #-} - -instance PFromJSVal NamedNodeMap where - pFromJSVal = NamedNodeMap - {-# INLINE pFromJSVal #-} - -instance ToJSVal NamedNodeMap where - toJSVal = return . unNamedNodeMap - {-# INLINE toJSVal #-} - -instance FromJSVal NamedNodeMap where - fromJSVal = return . fmap NamedNodeMap . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsGObject NamedNodeMap where - toGObject = GObject . unNamedNodeMap - {-# INLINE toGObject #-} - unsafeCastGObject = NamedNodeMap . unGObject - {-# INLINE unsafeCastGObject #-} - -castToNamedNodeMap :: IsGObject obj => obj -> IO NamedNodeMap -castToNamedNodeMap = castTo gTypeNamedNodeMap "NamedNodeMap" - -foreign import javascript unsafe "window[\"NamedNodeMap\"]" gTypeNamedNodeMap :: GType - --- | Functions for this inteface are in "GHCJS.DOM.Navigator". --- --- -newtype Navigator = Navigator { unNavigator :: JSVal } - -instance Eq (Navigator) where - (Navigator a) == (Navigator b) = js_eq a b - -instance PToJSVal Navigator where - pToJSVal = unNavigator - {-# INLINE pToJSVal #-} - -instance PFromJSVal Navigator where - pFromJSVal = Navigator - {-# INLINE pFromJSVal #-} - -instance ToJSVal Navigator where - toJSVal = return . unNavigator - {-# INLINE toJSVal #-} - -instance FromJSVal Navigator where - fromJSVal = return . fmap Navigator . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsGObject Navigator where - toGObject = GObject . unNavigator - {-# INLINE toGObject #-} - unsafeCastGObject = Navigator . unGObject - {-# INLINE unsafeCastGObject #-} - -castToNavigator :: IsGObject obj => obj -> IO Navigator -castToNavigator = castTo gTypeNavigator "Navigator" - -foreign import javascript unsafe "window[\"Navigator\"]" gTypeNavigator :: GType - --- | Functions for this inteface are in "GHCJS.DOM.NavigatorUserMediaError". --- Base interface functions are in: --- --- * "GHCJS.DOM.DOMError" --- --- -newtype NavigatorUserMediaError = NavigatorUserMediaError { unNavigatorUserMediaError :: JSVal } - -instance Eq (NavigatorUserMediaError) where - (NavigatorUserMediaError a) == (NavigatorUserMediaError b) = js_eq a b - -instance PToJSVal NavigatorUserMediaError where - pToJSVal = unNavigatorUserMediaError - {-# INLINE pToJSVal #-} - -instance PFromJSVal NavigatorUserMediaError where - pFromJSVal = NavigatorUserMediaError - {-# INLINE pFromJSVal #-} - -instance ToJSVal NavigatorUserMediaError where - toJSVal = return . unNavigatorUserMediaError - {-# INLINE toJSVal #-} - -instance FromJSVal NavigatorUserMediaError where - fromJSVal = return . fmap NavigatorUserMediaError . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsDOMError NavigatorUserMediaError -instance IsGObject NavigatorUserMediaError where - toGObject = GObject . unNavigatorUserMediaError - {-# INLINE toGObject #-} - unsafeCastGObject = NavigatorUserMediaError . unGObject - {-# INLINE unsafeCastGObject #-} - -castToNavigatorUserMediaError :: IsGObject obj => obj -> IO NavigatorUserMediaError -castToNavigatorUserMediaError = castTo gTypeNavigatorUserMediaError "NavigatorUserMediaError" - -foreign import javascript unsafe "window[\"NavigatorUserMediaError\"]" gTypeNavigatorUserMediaError :: GType - --- | Functions for this inteface are in "GHCJS.DOM.Node". --- Base interface functions are in: --- --- * "GHCJS.DOM.EventTarget" --- --- -newtype Node = Node { unNode :: JSVal } - -instance Eq (Node) where - (Node a) == (Node b) = js_eq a b - -instance PToJSVal Node where - pToJSVal = unNode - {-# INLINE pToJSVal #-} - -instance PFromJSVal Node where - pFromJSVal = Node - {-# INLINE pFromJSVal #-} - -instance ToJSVal Node where - toJSVal = return . unNode - {-# INLINE toJSVal #-} - -instance FromJSVal Node where - fromJSVal = return . fmap Node . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -class IsEventTarget o => IsNode o -toNode :: IsNode o => o -> Node -toNode = unsafeCastGObject . toGObject - -instance IsNode Node -instance IsEventTarget Node -instance IsGObject Node where - toGObject = GObject . unNode - {-# INLINE toGObject #-} - unsafeCastGObject = Node . unGObject - {-# INLINE unsafeCastGObject #-} - -castToNode :: IsGObject obj => obj -> IO Node -castToNode = castTo gTypeNode "Node" - -foreign import javascript unsafe "window[\"Node\"]" gTypeNode :: GType - --- | Functions for this inteface are in "GHCJS.DOM.NodeFilter". --- --- -newtype NodeFilter = NodeFilter { unNodeFilter :: JSVal } - -instance Eq (NodeFilter) where - (NodeFilter a) == (NodeFilter b) = js_eq a b - -instance PToJSVal NodeFilter where - pToJSVal = unNodeFilter - {-# INLINE pToJSVal #-} - -instance PFromJSVal NodeFilter where - pFromJSVal = NodeFilter - {-# INLINE pFromJSVal #-} - -instance ToJSVal NodeFilter where - toJSVal = return . unNodeFilter - {-# INLINE toJSVal #-} - -instance FromJSVal NodeFilter where - fromJSVal = return . fmap NodeFilter . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsGObject NodeFilter where - toGObject = GObject . unNodeFilter - {-# INLINE toGObject #-} - unsafeCastGObject = NodeFilter . unGObject - {-# INLINE unsafeCastGObject #-} - -castToNodeFilter :: IsGObject obj => obj -> IO NodeFilter -castToNodeFilter = castTo gTypeNodeFilter "NodeFilter" - -foreign import javascript unsafe "window[\"NodeFilter\"]" gTypeNodeFilter :: GType - --- | Functions for this inteface are in "GHCJS.DOM.NodeIterator". --- --- -newtype NodeIterator = NodeIterator { unNodeIterator :: JSVal } - -instance Eq (NodeIterator) where - (NodeIterator a) == (NodeIterator b) = js_eq a b - -instance PToJSVal NodeIterator where - pToJSVal = unNodeIterator - {-# INLINE pToJSVal #-} - -instance PFromJSVal NodeIterator where - pFromJSVal = NodeIterator - {-# INLINE pFromJSVal #-} - -instance ToJSVal NodeIterator where - toJSVal = return . unNodeIterator - {-# INLINE toJSVal #-} - -instance FromJSVal NodeIterator where - fromJSVal = return . fmap NodeIterator . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsGObject NodeIterator where - toGObject = GObject . unNodeIterator - {-# INLINE toGObject #-} - unsafeCastGObject = NodeIterator . unGObject - {-# INLINE unsafeCastGObject #-} - -castToNodeIterator :: IsGObject obj => obj -> IO NodeIterator -castToNodeIterator = castTo gTypeNodeIterator "NodeIterator" - -foreign import javascript unsafe "window[\"NodeIterator\"]" gTypeNodeIterator :: GType - --- | Functions for this inteface are in "GHCJS.DOM.NodeList". --- --- -newtype NodeList = NodeList { unNodeList :: JSVal } - -instance Eq (NodeList) where - (NodeList a) == (NodeList b) = js_eq a b - -instance PToJSVal NodeList where - pToJSVal = unNodeList - {-# INLINE pToJSVal #-} - -instance PFromJSVal NodeList where - pFromJSVal = NodeList - {-# INLINE pFromJSVal #-} - -instance ToJSVal NodeList where - toJSVal = return . unNodeList - {-# INLINE toJSVal #-} - -instance FromJSVal NodeList where - fromJSVal = return . fmap NodeList . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -class IsGObject o => IsNodeList o -toNodeList :: IsNodeList o => o -> NodeList -toNodeList = unsafeCastGObject . toGObject - -instance IsNodeList NodeList -instance IsGObject NodeList where - toGObject = GObject . unNodeList - {-# INLINE toGObject #-} - unsafeCastGObject = NodeList . unGObject - {-# INLINE unsafeCastGObject #-} - -castToNodeList :: IsGObject obj => obj -> IO NodeList -castToNodeList = castTo gTypeNodeList "NodeList" - -foreign import javascript unsafe "window[\"NodeList\"]" gTypeNodeList :: GType - --- | Functions for this inteface are in "GHCJS.DOM.Notification". --- Base interface functions are in: --- --- * "GHCJS.DOM.EventTarget" --- --- -newtype Notification = Notification { unNotification :: JSVal } - -instance Eq (Notification) where - (Notification a) == (Notification b) = js_eq a b - -instance PToJSVal Notification where - pToJSVal = unNotification - {-# INLINE pToJSVal #-} - -instance PFromJSVal Notification where - pFromJSVal = Notification - {-# INLINE pFromJSVal #-} - -instance ToJSVal Notification where - toJSVal = return . unNotification - {-# INLINE toJSVal #-} - -instance FromJSVal Notification where - fromJSVal = return . fmap Notification . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsEventTarget Notification -instance IsGObject Notification where - toGObject = GObject . unNotification - {-# INLINE toGObject #-} - unsafeCastGObject = Notification . unGObject - {-# INLINE unsafeCastGObject #-} - -castToNotification :: IsGObject obj => obj -> IO Notification -castToNotification = castTo gTypeNotification "Notification" - -foreign import javascript unsafe "window[\"Notification\"]" gTypeNotification :: GType - --- | Functions for this inteface are in "GHCJS.DOM.NotificationCenter". --- --- -newtype NotificationCenter = NotificationCenter { unNotificationCenter :: JSVal } - -instance Eq (NotificationCenter) where - (NotificationCenter a) == (NotificationCenter b) = js_eq a b - -instance PToJSVal NotificationCenter where - pToJSVal = unNotificationCenter - {-# INLINE pToJSVal #-} - -instance PFromJSVal NotificationCenter where - pFromJSVal = NotificationCenter - {-# INLINE pFromJSVal #-} - -instance ToJSVal NotificationCenter where - toJSVal = return . unNotificationCenter - {-# INLINE toJSVal #-} - -instance FromJSVal NotificationCenter where - fromJSVal = return . fmap NotificationCenter . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsGObject NotificationCenter where - toGObject = GObject . unNotificationCenter - {-# INLINE toGObject #-} - unsafeCastGObject = NotificationCenter . unGObject - {-# INLINE unsafeCastGObject #-} - -castToNotificationCenter :: IsGObject obj => obj -> IO NotificationCenter -castToNotificationCenter = castTo gTypeNotificationCenter "NotificationCenter" - -foreign import javascript unsafe "window[\"NotificationCenter\"]" gTypeNotificationCenter :: GType - --- | Functions for this inteface are in "GHCJS.DOM.OESElementIndexUint". --- --- -newtype OESElementIndexUint = OESElementIndexUint { unOESElementIndexUint :: JSVal } - -instance Eq (OESElementIndexUint) where - (OESElementIndexUint a) == (OESElementIndexUint b) = js_eq a b - -instance PToJSVal OESElementIndexUint where - pToJSVal = unOESElementIndexUint - {-# INLINE pToJSVal #-} - -instance PFromJSVal OESElementIndexUint where - pFromJSVal = OESElementIndexUint - {-# INLINE pFromJSVal #-} - -instance ToJSVal OESElementIndexUint where - toJSVal = return . unOESElementIndexUint - {-# INLINE toJSVal #-} - -instance FromJSVal OESElementIndexUint where - fromJSVal = return . fmap OESElementIndexUint . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsGObject OESElementIndexUint where - toGObject = GObject . unOESElementIndexUint - {-# INLINE toGObject #-} - unsafeCastGObject = OESElementIndexUint . unGObject - {-# INLINE unsafeCastGObject #-} - -castToOESElementIndexUint :: IsGObject obj => obj -> IO OESElementIndexUint -castToOESElementIndexUint = castTo gTypeOESElementIndexUint "OESElementIndexUint" - -foreign import javascript unsafe "window[\"OESElementIndexUint\"]" gTypeOESElementIndexUint :: GType - --- | Functions for this inteface are in "GHCJS.DOM.OESStandardDerivatives". --- --- -newtype OESStandardDerivatives = OESStandardDerivatives { unOESStandardDerivatives :: JSVal } - -instance Eq (OESStandardDerivatives) where - (OESStandardDerivatives a) == (OESStandardDerivatives b) = js_eq a b - -instance PToJSVal OESStandardDerivatives where - pToJSVal = unOESStandardDerivatives - {-# INLINE pToJSVal #-} - -instance PFromJSVal OESStandardDerivatives where - pFromJSVal = OESStandardDerivatives - {-# INLINE pFromJSVal #-} - -instance ToJSVal OESStandardDerivatives where - toJSVal = return . unOESStandardDerivatives - {-# INLINE toJSVal #-} - -instance FromJSVal OESStandardDerivatives where - fromJSVal = return . fmap OESStandardDerivatives . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsGObject OESStandardDerivatives where - toGObject = GObject . unOESStandardDerivatives - {-# INLINE toGObject #-} - unsafeCastGObject = OESStandardDerivatives . unGObject - {-# INLINE unsafeCastGObject #-} - -castToOESStandardDerivatives :: IsGObject obj => obj -> IO OESStandardDerivatives -castToOESStandardDerivatives = castTo gTypeOESStandardDerivatives "OESStandardDerivatives" - -foreign import javascript unsafe "window[\"OESStandardDerivatives\"]" gTypeOESStandardDerivatives :: GType - --- | Functions for this inteface are in "GHCJS.DOM.OESTextureFloat". --- --- -newtype OESTextureFloat = OESTextureFloat { unOESTextureFloat :: JSVal } - -instance Eq (OESTextureFloat) where - (OESTextureFloat a) == (OESTextureFloat b) = js_eq a b - -instance PToJSVal OESTextureFloat where - pToJSVal = unOESTextureFloat - {-# INLINE pToJSVal #-} - -instance PFromJSVal OESTextureFloat where - pFromJSVal = OESTextureFloat - {-# INLINE pFromJSVal #-} - -instance ToJSVal OESTextureFloat where - toJSVal = return . unOESTextureFloat - {-# INLINE toJSVal #-} - -instance FromJSVal OESTextureFloat where - fromJSVal = return . fmap OESTextureFloat . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsGObject OESTextureFloat where - toGObject = GObject . unOESTextureFloat - {-# INLINE toGObject #-} - unsafeCastGObject = OESTextureFloat . unGObject - {-# INLINE unsafeCastGObject #-} - -castToOESTextureFloat :: IsGObject obj => obj -> IO OESTextureFloat -castToOESTextureFloat = castTo gTypeOESTextureFloat "OESTextureFloat" - -foreign import javascript unsafe "window[\"OESTextureFloat\"]" gTypeOESTextureFloat :: GType - --- | Functions for this inteface are in "GHCJS.DOM.OESTextureFloatLinear". --- --- -newtype OESTextureFloatLinear = OESTextureFloatLinear { unOESTextureFloatLinear :: JSVal } - -instance Eq (OESTextureFloatLinear) where - (OESTextureFloatLinear a) == (OESTextureFloatLinear b) = js_eq a b - -instance PToJSVal OESTextureFloatLinear where - pToJSVal = unOESTextureFloatLinear - {-# INLINE pToJSVal #-} - -instance PFromJSVal OESTextureFloatLinear where - pFromJSVal = OESTextureFloatLinear - {-# INLINE pFromJSVal #-} - -instance ToJSVal OESTextureFloatLinear where - toJSVal = return . unOESTextureFloatLinear - {-# INLINE toJSVal #-} - -instance FromJSVal OESTextureFloatLinear where - fromJSVal = return . fmap OESTextureFloatLinear . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsGObject OESTextureFloatLinear where - toGObject = GObject . unOESTextureFloatLinear - {-# INLINE toGObject #-} - unsafeCastGObject = OESTextureFloatLinear . unGObject - {-# INLINE unsafeCastGObject #-} - -castToOESTextureFloatLinear :: IsGObject obj => obj -> IO OESTextureFloatLinear -castToOESTextureFloatLinear = castTo gTypeOESTextureFloatLinear "OESTextureFloatLinear" - -foreign import javascript unsafe "window[\"OESTextureFloatLinear\"]" gTypeOESTextureFloatLinear :: GType - --- | Functions for this inteface are in "GHCJS.DOM.OESTextureHalfFloat". --- --- -newtype OESTextureHalfFloat = OESTextureHalfFloat { unOESTextureHalfFloat :: JSVal } - -instance Eq (OESTextureHalfFloat) where - (OESTextureHalfFloat a) == (OESTextureHalfFloat b) = js_eq a b - -instance PToJSVal OESTextureHalfFloat where - pToJSVal = unOESTextureHalfFloat - {-# INLINE pToJSVal #-} - -instance PFromJSVal OESTextureHalfFloat where - pFromJSVal = OESTextureHalfFloat - {-# INLINE pFromJSVal #-} - -instance ToJSVal OESTextureHalfFloat where - toJSVal = return . unOESTextureHalfFloat - {-# INLINE toJSVal #-} - -instance FromJSVal OESTextureHalfFloat where - fromJSVal = return . fmap OESTextureHalfFloat . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsGObject OESTextureHalfFloat where - toGObject = GObject . unOESTextureHalfFloat - {-# INLINE toGObject #-} - unsafeCastGObject = OESTextureHalfFloat . unGObject - {-# INLINE unsafeCastGObject #-} - -castToOESTextureHalfFloat :: IsGObject obj => obj -> IO OESTextureHalfFloat -castToOESTextureHalfFloat = castTo gTypeOESTextureHalfFloat "OESTextureHalfFloat" - -foreign import javascript unsafe "window[\"OESTextureHalfFloat\"]" gTypeOESTextureHalfFloat :: GType - --- | Functions for this inteface are in "GHCJS.DOM.OESTextureHalfFloatLinear". --- --- -newtype OESTextureHalfFloatLinear = OESTextureHalfFloatLinear { unOESTextureHalfFloatLinear :: JSVal } - -instance Eq (OESTextureHalfFloatLinear) where - (OESTextureHalfFloatLinear a) == (OESTextureHalfFloatLinear b) = js_eq a b - -instance PToJSVal OESTextureHalfFloatLinear where - pToJSVal = unOESTextureHalfFloatLinear - {-# INLINE pToJSVal #-} - -instance PFromJSVal OESTextureHalfFloatLinear where - pFromJSVal = OESTextureHalfFloatLinear - {-# INLINE pFromJSVal #-} - -instance ToJSVal OESTextureHalfFloatLinear where - toJSVal = return . unOESTextureHalfFloatLinear - {-# INLINE toJSVal #-} - -instance FromJSVal OESTextureHalfFloatLinear where - fromJSVal = return . fmap OESTextureHalfFloatLinear . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsGObject OESTextureHalfFloatLinear where - toGObject = GObject . unOESTextureHalfFloatLinear - {-# INLINE toGObject #-} - unsafeCastGObject = OESTextureHalfFloatLinear . unGObject - {-# INLINE unsafeCastGObject #-} - -castToOESTextureHalfFloatLinear :: IsGObject obj => obj -> IO OESTextureHalfFloatLinear -castToOESTextureHalfFloatLinear = castTo gTypeOESTextureHalfFloatLinear "OESTextureHalfFloatLinear" - -foreign import javascript unsafe "window[\"OESTextureHalfFloatLinear\"]" gTypeOESTextureHalfFloatLinear :: GType - --- | Functions for this inteface are in "GHCJS.DOM.OESVertexArrayObject". --- --- -newtype OESVertexArrayObject = OESVertexArrayObject { unOESVertexArrayObject :: JSVal } - -instance Eq (OESVertexArrayObject) where - (OESVertexArrayObject a) == (OESVertexArrayObject b) = js_eq a b - -instance PToJSVal OESVertexArrayObject where - pToJSVal = unOESVertexArrayObject - {-# INLINE pToJSVal #-} - -instance PFromJSVal OESVertexArrayObject where - pFromJSVal = OESVertexArrayObject - {-# INLINE pFromJSVal #-} - -instance ToJSVal OESVertexArrayObject where - toJSVal = return . unOESVertexArrayObject - {-# INLINE toJSVal #-} - -instance FromJSVal OESVertexArrayObject where - fromJSVal = return . fmap OESVertexArrayObject . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsGObject OESVertexArrayObject where - toGObject = GObject . unOESVertexArrayObject - {-# INLINE toGObject #-} - unsafeCastGObject = OESVertexArrayObject . unGObject - {-# INLINE unsafeCastGObject #-} - -castToOESVertexArrayObject :: IsGObject obj => obj -> IO OESVertexArrayObject -castToOESVertexArrayObject = castTo gTypeOESVertexArrayObject "OESVertexArrayObject" - -foreign import javascript unsafe "window[\"OESVertexArrayObject\"]" gTypeOESVertexArrayObject :: GType - --- | Functions for this inteface are in "GHCJS.DOM.OfflineAudioCompletionEvent". --- Base interface functions are in: --- --- * "GHCJS.DOM.Event" --- --- -newtype OfflineAudioCompletionEvent = OfflineAudioCompletionEvent { unOfflineAudioCompletionEvent :: JSVal } - -instance Eq (OfflineAudioCompletionEvent) where - (OfflineAudioCompletionEvent a) == (OfflineAudioCompletionEvent b) = js_eq a b - -instance PToJSVal OfflineAudioCompletionEvent where - pToJSVal = unOfflineAudioCompletionEvent - {-# INLINE pToJSVal #-} - -instance PFromJSVal OfflineAudioCompletionEvent where - pFromJSVal = OfflineAudioCompletionEvent - {-# INLINE pFromJSVal #-} - -instance ToJSVal OfflineAudioCompletionEvent where - toJSVal = return . unOfflineAudioCompletionEvent - {-# INLINE toJSVal #-} - -instance FromJSVal OfflineAudioCompletionEvent where - fromJSVal = return . fmap OfflineAudioCompletionEvent . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsEvent OfflineAudioCompletionEvent -instance IsGObject OfflineAudioCompletionEvent where - toGObject = GObject . unOfflineAudioCompletionEvent - {-# INLINE toGObject #-} - unsafeCastGObject = OfflineAudioCompletionEvent . unGObject - {-# INLINE unsafeCastGObject #-} - -castToOfflineAudioCompletionEvent :: IsGObject obj => obj -> IO OfflineAudioCompletionEvent -castToOfflineAudioCompletionEvent = castTo gTypeOfflineAudioCompletionEvent "OfflineAudioCompletionEvent" - -foreign import javascript unsafe "window[\"OfflineAudioCompletionEvent\"]" gTypeOfflineAudioCompletionEvent :: GType - --- | Functions for this inteface are in "GHCJS.DOM.OfflineAudioContext". --- Base interface functions are in: --- --- * "GHCJS.DOM.AudioContext" --- * "GHCJS.DOM.EventTarget" --- --- -newtype OfflineAudioContext = OfflineAudioContext { unOfflineAudioContext :: JSVal } - -instance Eq (OfflineAudioContext) where - (OfflineAudioContext a) == (OfflineAudioContext b) = js_eq a b - -instance PToJSVal OfflineAudioContext where - pToJSVal = unOfflineAudioContext - {-# INLINE pToJSVal #-} - -instance PFromJSVal OfflineAudioContext where - pFromJSVal = OfflineAudioContext - {-# INLINE pFromJSVal #-} - -instance ToJSVal OfflineAudioContext where - toJSVal = return . unOfflineAudioContext - {-# INLINE toJSVal #-} - -instance FromJSVal OfflineAudioContext where - fromJSVal = return . fmap OfflineAudioContext . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsAudioContext OfflineAudioContext -instance IsEventTarget OfflineAudioContext -instance IsGObject OfflineAudioContext where - toGObject = GObject . unOfflineAudioContext - {-# INLINE toGObject #-} - unsafeCastGObject = OfflineAudioContext . unGObject - {-# INLINE unsafeCastGObject #-} - -castToOfflineAudioContext :: IsGObject obj => obj -> IO OfflineAudioContext -castToOfflineAudioContext = castTo gTypeOfflineAudioContext "OfflineAudioContext" - -foreign import javascript unsafe "window[\"OfflineAudioContext\"]" gTypeOfflineAudioContext :: GType - --- | Functions for this inteface are in "GHCJS.DOM.OscillatorNode". --- Base interface functions are in: --- --- * "GHCJS.DOM.AudioNode" --- * "GHCJS.DOM.EventTarget" --- --- -newtype OscillatorNode = OscillatorNode { unOscillatorNode :: JSVal } - -instance Eq (OscillatorNode) where - (OscillatorNode a) == (OscillatorNode b) = js_eq a b - -instance PToJSVal OscillatorNode where - pToJSVal = unOscillatorNode - {-# INLINE pToJSVal #-} - -instance PFromJSVal OscillatorNode where - pFromJSVal = OscillatorNode - {-# INLINE pFromJSVal #-} - -instance ToJSVal OscillatorNode where - toJSVal = return . unOscillatorNode - {-# INLINE toJSVal #-} - -instance FromJSVal OscillatorNode where - fromJSVal = return . fmap OscillatorNode . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsAudioNode OscillatorNode -instance IsEventTarget OscillatorNode -instance IsGObject OscillatorNode where - toGObject = GObject . unOscillatorNode - {-# INLINE toGObject #-} - unsafeCastGObject = OscillatorNode . unGObject - {-# INLINE unsafeCastGObject #-} - -castToOscillatorNode :: IsGObject obj => obj -> IO OscillatorNode -castToOscillatorNode = castTo gTypeOscillatorNode "OscillatorNode" - -foreign import javascript unsafe "window[\"OscillatorNode\"]" gTypeOscillatorNode :: GType - --- | Functions for this inteface are in "GHCJS.DOM.OverflowEvent". --- Base interface functions are in: --- --- * "GHCJS.DOM.Event" --- --- -newtype OverflowEvent = OverflowEvent { unOverflowEvent :: JSVal } - -instance Eq (OverflowEvent) where - (OverflowEvent a) == (OverflowEvent b) = js_eq a b - -instance PToJSVal OverflowEvent where - pToJSVal = unOverflowEvent - {-# INLINE pToJSVal #-} - -instance PFromJSVal OverflowEvent where - pFromJSVal = OverflowEvent - {-# INLINE pFromJSVal #-} - -instance ToJSVal OverflowEvent where - toJSVal = return . unOverflowEvent - {-# INLINE toJSVal #-} - -instance FromJSVal OverflowEvent where - fromJSVal = return . fmap OverflowEvent . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsEvent OverflowEvent -instance IsGObject OverflowEvent where - toGObject = GObject . unOverflowEvent - {-# INLINE toGObject #-} - unsafeCastGObject = OverflowEvent . unGObject - {-# INLINE unsafeCastGObject #-} - -castToOverflowEvent :: IsGObject obj => obj -> IO OverflowEvent -castToOverflowEvent = castTo gTypeOverflowEvent "OverflowEvent" - -foreign import javascript unsafe "window[\"OverflowEvent\"]" gTypeOverflowEvent :: GType - --- | Functions for this inteface are in "GHCJS.DOM.PageTransitionEvent". --- Base interface functions are in: --- --- * "GHCJS.DOM.Event" --- --- -newtype PageTransitionEvent = PageTransitionEvent { unPageTransitionEvent :: JSVal } - -instance Eq (PageTransitionEvent) where - (PageTransitionEvent a) == (PageTransitionEvent b) = js_eq a b - -instance PToJSVal PageTransitionEvent where - pToJSVal = unPageTransitionEvent - {-# INLINE pToJSVal #-} - -instance PFromJSVal PageTransitionEvent where - pFromJSVal = PageTransitionEvent - {-# INLINE pFromJSVal #-} - -instance ToJSVal PageTransitionEvent where - toJSVal = return . unPageTransitionEvent - {-# INLINE toJSVal #-} - -instance FromJSVal PageTransitionEvent where - fromJSVal = return . fmap PageTransitionEvent . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsEvent PageTransitionEvent -instance IsGObject PageTransitionEvent where - toGObject = GObject . unPageTransitionEvent - {-# INLINE toGObject #-} - unsafeCastGObject = PageTransitionEvent . unGObject - {-# INLINE unsafeCastGObject #-} - -castToPageTransitionEvent :: IsGObject obj => obj -> IO PageTransitionEvent -castToPageTransitionEvent = castTo gTypePageTransitionEvent "PageTransitionEvent" - -foreign import javascript unsafe "window[\"PageTransitionEvent\"]" gTypePageTransitionEvent :: GType - --- | Functions for this inteface are in "GHCJS.DOM.PannerNode". --- Base interface functions are in: --- --- * "GHCJS.DOM.AudioNode" --- * "GHCJS.DOM.EventTarget" --- --- -newtype PannerNode = PannerNode { unPannerNode :: JSVal } - -instance Eq (PannerNode) where - (PannerNode a) == (PannerNode b) = js_eq a b - -instance PToJSVal PannerNode where - pToJSVal = unPannerNode - {-# INLINE pToJSVal #-} - -instance PFromJSVal PannerNode where - pFromJSVal = PannerNode - {-# INLINE pFromJSVal #-} - -instance ToJSVal PannerNode where - toJSVal = return . unPannerNode - {-# INLINE toJSVal #-} - -instance FromJSVal PannerNode where - fromJSVal = return . fmap PannerNode . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsAudioNode PannerNode -instance IsEventTarget PannerNode -instance IsGObject PannerNode where - toGObject = GObject . unPannerNode - {-# INLINE toGObject #-} - unsafeCastGObject = PannerNode . unGObject - {-# INLINE unsafeCastGObject #-} - -castToPannerNode :: IsGObject obj => obj -> IO PannerNode -castToPannerNode = castTo gTypePannerNode "PannerNode" - -foreign import javascript unsafe "window[\"webkitAudioPannerNode\"]" gTypePannerNode :: GType - --- | Functions for this inteface are in "GHCJS.DOM.Path2D". --- --- -newtype Path2D = Path2D { unPath2D :: JSVal } - -instance Eq (Path2D) where - (Path2D a) == (Path2D b) = js_eq a b - -instance PToJSVal Path2D where - pToJSVal = unPath2D - {-# INLINE pToJSVal #-} - -instance PFromJSVal Path2D where - pFromJSVal = Path2D - {-# INLINE pFromJSVal #-} - -instance ToJSVal Path2D where - toJSVal = return . unPath2D - {-# INLINE toJSVal #-} - -instance FromJSVal Path2D where - fromJSVal = return . fmap Path2D . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsGObject Path2D where - toGObject = GObject . unPath2D - {-# INLINE toGObject #-} - unsafeCastGObject = Path2D . unGObject - {-# INLINE unsafeCastGObject #-} - -castToPath2D :: IsGObject obj => obj -> IO Path2D -castToPath2D = castTo gTypePath2D "Path2D" - -foreign import javascript unsafe "window[\"Path2D\"]" gTypePath2D :: GType - --- | Functions for this inteface are in "GHCJS.DOM.Performance". --- Base interface functions are in: --- --- * "GHCJS.DOM.EventTarget" --- --- -newtype Performance = Performance { unPerformance :: JSVal } - -instance Eq (Performance) where - (Performance a) == (Performance b) = js_eq a b - -instance PToJSVal Performance where - pToJSVal = unPerformance - {-# INLINE pToJSVal #-} - -instance PFromJSVal Performance where - pFromJSVal = Performance - {-# INLINE pFromJSVal #-} - -instance ToJSVal Performance where - toJSVal = return . unPerformance - {-# INLINE toJSVal #-} - -instance FromJSVal Performance where - fromJSVal = return . fmap Performance . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsEventTarget Performance -instance IsGObject Performance where - toGObject = GObject . unPerformance - {-# INLINE toGObject #-} - unsafeCastGObject = Performance . unGObject - {-# INLINE unsafeCastGObject #-} - -castToPerformance :: IsGObject obj => obj -> IO Performance -castToPerformance = castTo gTypePerformance "Performance" - -foreign import javascript unsafe "window[\"Performance\"]" gTypePerformance :: GType - --- | Functions for this inteface are in "GHCJS.DOM.PerformanceEntry". --- --- -newtype PerformanceEntry = PerformanceEntry { unPerformanceEntry :: JSVal } - -instance Eq (PerformanceEntry) where - (PerformanceEntry a) == (PerformanceEntry b) = js_eq a b - -instance PToJSVal PerformanceEntry where - pToJSVal = unPerformanceEntry - {-# INLINE pToJSVal #-} - -instance PFromJSVal PerformanceEntry where - pFromJSVal = PerformanceEntry - {-# INLINE pFromJSVal #-} - -instance ToJSVal PerformanceEntry where - toJSVal = return . unPerformanceEntry - {-# INLINE toJSVal #-} - -instance FromJSVal PerformanceEntry where - fromJSVal = return . fmap PerformanceEntry . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -class IsGObject o => IsPerformanceEntry o -toPerformanceEntry :: IsPerformanceEntry o => o -> PerformanceEntry -toPerformanceEntry = unsafeCastGObject . toGObject - -instance IsPerformanceEntry PerformanceEntry -instance IsGObject PerformanceEntry where - toGObject = GObject . unPerformanceEntry - {-# INLINE toGObject #-} - unsafeCastGObject = PerformanceEntry . unGObject - {-# INLINE unsafeCastGObject #-} - -castToPerformanceEntry :: IsGObject obj => obj -> IO PerformanceEntry -castToPerformanceEntry = castTo gTypePerformanceEntry "PerformanceEntry" - -foreign import javascript unsafe "window[\"PerformanceEntry\"]" gTypePerformanceEntry :: GType - --- | Functions for this inteface are in "GHCJS.DOM.PerformanceEntryList". --- --- -newtype PerformanceEntryList = PerformanceEntryList { unPerformanceEntryList :: JSVal } - -instance Eq (PerformanceEntryList) where - (PerformanceEntryList a) == (PerformanceEntryList b) = js_eq a b - -instance PToJSVal PerformanceEntryList where - pToJSVal = unPerformanceEntryList - {-# INLINE pToJSVal #-} - -instance PFromJSVal PerformanceEntryList where - pFromJSVal = PerformanceEntryList - {-# INLINE pFromJSVal #-} - -instance ToJSVal PerformanceEntryList where - toJSVal = return . unPerformanceEntryList - {-# INLINE toJSVal #-} - -instance FromJSVal PerformanceEntryList where - fromJSVal = return . fmap PerformanceEntryList . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsGObject PerformanceEntryList where - toGObject = GObject . unPerformanceEntryList - {-# INLINE toGObject #-} - unsafeCastGObject = PerformanceEntryList . unGObject - {-# INLINE unsafeCastGObject #-} - -castToPerformanceEntryList :: IsGObject obj => obj -> IO PerformanceEntryList -castToPerformanceEntryList = castTo gTypePerformanceEntryList "PerformanceEntryList" - -foreign import javascript unsafe "window[\"PerformanceEntryList\"]" gTypePerformanceEntryList :: GType - --- | Functions for this inteface are in "GHCJS.DOM.PerformanceMark". --- Base interface functions are in: --- --- * "GHCJS.DOM.PerformanceEntry" --- --- -newtype PerformanceMark = PerformanceMark { unPerformanceMark :: JSVal } - -instance Eq (PerformanceMark) where - (PerformanceMark a) == (PerformanceMark b) = js_eq a b - -instance PToJSVal PerformanceMark where - pToJSVal = unPerformanceMark - {-# INLINE pToJSVal #-} - -instance PFromJSVal PerformanceMark where - pFromJSVal = PerformanceMark - {-# INLINE pFromJSVal #-} - -instance ToJSVal PerformanceMark where - toJSVal = return . unPerformanceMark - {-# INLINE toJSVal #-} - -instance FromJSVal PerformanceMark where - fromJSVal = return . fmap PerformanceMark . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsPerformanceEntry PerformanceMark -instance IsGObject PerformanceMark where - toGObject = GObject . unPerformanceMark - {-# INLINE toGObject #-} - unsafeCastGObject = PerformanceMark . unGObject - {-# INLINE unsafeCastGObject #-} - -castToPerformanceMark :: IsGObject obj => obj -> IO PerformanceMark -castToPerformanceMark = castTo gTypePerformanceMark "PerformanceMark" - -foreign import javascript unsafe "window[\"PerformanceMark\"]" gTypePerformanceMark :: GType - --- | Functions for this inteface are in "GHCJS.DOM.PerformanceMeasure". --- Base interface functions are in: --- --- * "GHCJS.DOM.PerformanceEntry" --- --- -newtype PerformanceMeasure = PerformanceMeasure { unPerformanceMeasure :: JSVal } - -instance Eq (PerformanceMeasure) where - (PerformanceMeasure a) == (PerformanceMeasure b) = js_eq a b - -instance PToJSVal PerformanceMeasure where - pToJSVal = unPerformanceMeasure - {-# INLINE pToJSVal #-} - -instance PFromJSVal PerformanceMeasure where - pFromJSVal = PerformanceMeasure - {-# INLINE pFromJSVal #-} - -instance ToJSVal PerformanceMeasure where - toJSVal = return . unPerformanceMeasure - {-# INLINE toJSVal #-} - -instance FromJSVal PerformanceMeasure where - fromJSVal = return . fmap PerformanceMeasure . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsPerformanceEntry PerformanceMeasure -instance IsGObject PerformanceMeasure where - toGObject = GObject . unPerformanceMeasure - {-# INLINE toGObject #-} - unsafeCastGObject = PerformanceMeasure . unGObject - {-# INLINE unsafeCastGObject #-} - -castToPerformanceMeasure :: IsGObject obj => obj -> IO PerformanceMeasure -castToPerformanceMeasure = castTo gTypePerformanceMeasure "PerformanceMeasure" - -foreign import javascript unsafe "window[\"PerformanceMeasure\"]" gTypePerformanceMeasure :: GType - --- | Functions for this inteface are in "GHCJS.DOM.PerformanceNavigation". --- --- -newtype PerformanceNavigation = PerformanceNavigation { unPerformanceNavigation :: JSVal } - -instance Eq (PerformanceNavigation) where - (PerformanceNavigation a) == (PerformanceNavigation b) = js_eq a b - -instance PToJSVal PerformanceNavigation where - pToJSVal = unPerformanceNavigation - {-# INLINE pToJSVal #-} - -instance PFromJSVal PerformanceNavigation where - pFromJSVal = PerformanceNavigation - {-# INLINE pFromJSVal #-} - -instance ToJSVal PerformanceNavigation where - toJSVal = return . unPerformanceNavigation - {-# INLINE toJSVal #-} - -instance FromJSVal PerformanceNavigation where - fromJSVal = return . fmap PerformanceNavigation . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsGObject PerformanceNavigation where - toGObject = GObject . unPerformanceNavigation - {-# INLINE toGObject #-} - unsafeCastGObject = PerformanceNavigation . unGObject - {-# INLINE unsafeCastGObject #-} - -castToPerformanceNavigation :: IsGObject obj => obj -> IO PerformanceNavigation -castToPerformanceNavigation = castTo gTypePerformanceNavigation "PerformanceNavigation" - -foreign import javascript unsafe "window[\"PerformanceNavigation\"]" gTypePerformanceNavigation :: GType - --- | Functions for this inteface are in "GHCJS.DOM.PerformanceResourceTiming". --- Base interface functions are in: --- --- * "GHCJS.DOM.PerformanceEntry" --- --- -newtype PerformanceResourceTiming = PerformanceResourceTiming { unPerformanceResourceTiming :: JSVal } - -instance Eq (PerformanceResourceTiming) where - (PerformanceResourceTiming a) == (PerformanceResourceTiming b) = js_eq a b - -instance PToJSVal PerformanceResourceTiming where - pToJSVal = unPerformanceResourceTiming - {-# INLINE pToJSVal #-} - -instance PFromJSVal PerformanceResourceTiming where - pFromJSVal = PerformanceResourceTiming - {-# INLINE pFromJSVal #-} - -instance ToJSVal PerformanceResourceTiming where - toJSVal = return . unPerformanceResourceTiming - {-# INLINE toJSVal #-} - -instance FromJSVal PerformanceResourceTiming where - fromJSVal = return . fmap PerformanceResourceTiming . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsPerformanceEntry PerformanceResourceTiming -instance IsGObject PerformanceResourceTiming where - toGObject = GObject . unPerformanceResourceTiming - {-# INLINE toGObject #-} - unsafeCastGObject = PerformanceResourceTiming . unGObject - {-# INLINE unsafeCastGObject #-} - -castToPerformanceResourceTiming :: IsGObject obj => obj -> IO PerformanceResourceTiming -castToPerformanceResourceTiming = castTo gTypePerformanceResourceTiming "PerformanceResourceTiming" - -foreign import javascript unsafe "window[\"PerformanceResourceTiming\"]" gTypePerformanceResourceTiming :: GType - --- | Functions for this inteface are in "GHCJS.DOM.PerformanceTiming". --- --- -newtype PerformanceTiming = PerformanceTiming { unPerformanceTiming :: JSVal } - -instance Eq (PerformanceTiming) where - (PerformanceTiming a) == (PerformanceTiming b) = js_eq a b - -instance PToJSVal PerformanceTiming where - pToJSVal = unPerformanceTiming - {-# INLINE pToJSVal #-} - -instance PFromJSVal PerformanceTiming where - pFromJSVal = PerformanceTiming - {-# INLINE pFromJSVal #-} - -instance ToJSVal PerformanceTiming where - toJSVal = return . unPerformanceTiming - {-# INLINE toJSVal #-} - -instance FromJSVal PerformanceTiming where - fromJSVal = return . fmap PerformanceTiming . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsGObject PerformanceTiming where - toGObject = GObject . unPerformanceTiming - {-# INLINE toGObject #-} - unsafeCastGObject = PerformanceTiming . unGObject - {-# INLINE unsafeCastGObject #-} - -castToPerformanceTiming :: IsGObject obj => obj -> IO PerformanceTiming -castToPerformanceTiming = castTo gTypePerformanceTiming "PerformanceTiming" - -foreign import javascript unsafe "window[\"PerformanceTiming\"]" gTypePerformanceTiming :: GType - --- | Functions for this inteface are in "GHCJS.DOM.PeriodicWave". --- --- -newtype PeriodicWave = PeriodicWave { unPeriodicWave :: JSVal } - -instance Eq (PeriodicWave) where - (PeriodicWave a) == (PeriodicWave b) = js_eq a b - -instance PToJSVal PeriodicWave where - pToJSVal = unPeriodicWave - {-# INLINE pToJSVal #-} - -instance PFromJSVal PeriodicWave where - pFromJSVal = PeriodicWave - {-# INLINE pFromJSVal #-} - -instance ToJSVal PeriodicWave where - toJSVal = return . unPeriodicWave - {-# INLINE toJSVal #-} - -instance FromJSVal PeriodicWave where - fromJSVal = return . fmap PeriodicWave . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsGObject PeriodicWave where - toGObject = GObject . unPeriodicWave - {-# INLINE toGObject #-} - unsafeCastGObject = PeriodicWave . unGObject - {-# INLINE unsafeCastGObject #-} - -castToPeriodicWave :: IsGObject obj => obj -> IO PeriodicWave -castToPeriodicWave = castTo gTypePeriodicWave "PeriodicWave" - -foreign import javascript unsafe "window[\"PeriodicWave\"]" gTypePeriodicWave :: GType - --- | Functions for this inteface are in "GHCJS.DOM.Plugin". --- --- -newtype Plugin = Plugin { unPlugin :: JSVal } - -instance Eq (Plugin) where - (Plugin a) == (Plugin b) = js_eq a b - -instance PToJSVal Plugin where - pToJSVal = unPlugin - {-# INLINE pToJSVal #-} - -instance PFromJSVal Plugin where - pFromJSVal = Plugin - {-# INLINE pFromJSVal #-} - -instance ToJSVal Plugin where - toJSVal = return . unPlugin - {-# INLINE toJSVal #-} - -instance FromJSVal Plugin where - fromJSVal = return . fmap Plugin . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsGObject Plugin where - toGObject = GObject . unPlugin - {-# INLINE toGObject #-} - unsafeCastGObject = Plugin . unGObject - {-# INLINE unsafeCastGObject #-} - -castToPlugin :: IsGObject obj => obj -> IO Plugin -castToPlugin = castTo gTypePlugin "Plugin" - -foreign import javascript unsafe "window[\"Plugin\"]" gTypePlugin :: GType - --- | Functions for this inteface are in "GHCJS.DOM.PluginArray". --- --- -newtype PluginArray = PluginArray { unPluginArray :: JSVal } - -instance Eq (PluginArray) where - (PluginArray a) == (PluginArray b) = js_eq a b - -instance PToJSVal PluginArray where - pToJSVal = unPluginArray - {-# INLINE pToJSVal #-} - -instance PFromJSVal PluginArray where - pFromJSVal = PluginArray - {-# INLINE pFromJSVal #-} - -instance ToJSVal PluginArray where - toJSVal = return . unPluginArray - {-# INLINE toJSVal #-} - -instance FromJSVal PluginArray where - fromJSVal = return . fmap PluginArray . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsGObject PluginArray where - toGObject = GObject . unPluginArray - {-# INLINE toGObject #-} - unsafeCastGObject = PluginArray . unGObject - {-# INLINE unsafeCastGObject #-} - -castToPluginArray :: IsGObject obj => obj -> IO PluginArray -castToPluginArray = castTo gTypePluginArray "PluginArray" - -foreign import javascript unsafe "window[\"PluginArray\"]" gTypePluginArray :: GType - --- | Functions for this inteface are in "GHCJS.DOM.PopStateEvent". --- Base interface functions are in: --- --- * "GHCJS.DOM.Event" --- --- -newtype PopStateEvent = PopStateEvent { unPopStateEvent :: JSVal } - -instance Eq (PopStateEvent) where - (PopStateEvent a) == (PopStateEvent b) = js_eq a b - -instance PToJSVal PopStateEvent where - pToJSVal = unPopStateEvent - {-# INLINE pToJSVal #-} - -instance PFromJSVal PopStateEvent where - pFromJSVal = PopStateEvent - {-# INLINE pFromJSVal #-} - -instance ToJSVal PopStateEvent where - toJSVal = return . unPopStateEvent - {-# INLINE toJSVal #-} - -instance FromJSVal PopStateEvent where - fromJSVal = return . fmap PopStateEvent . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsEvent PopStateEvent -instance IsGObject PopStateEvent where - toGObject = GObject . unPopStateEvent - {-# INLINE toGObject #-} - unsafeCastGObject = PopStateEvent . unGObject - {-# INLINE unsafeCastGObject #-} - -castToPopStateEvent :: IsGObject obj => obj -> IO PopStateEvent -castToPopStateEvent = castTo gTypePopStateEvent "PopStateEvent" - -foreign import javascript unsafe "window[\"PopStateEvent\"]" gTypePopStateEvent :: GType - --- | Functions for this inteface are in "GHCJS.DOM.PositionError". --- --- -newtype PositionError = PositionError { unPositionError :: JSVal } - -instance Eq (PositionError) where - (PositionError a) == (PositionError b) = js_eq a b - -instance PToJSVal PositionError where - pToJSVal = unPositionError - {-# INLINE pToJSVal #-} - -instance PFromJSVal PositionError where - pFromJSVal = PositionError - {-# INLINE pFromJSVal #-} - -instance ToJSVal PositionError where - toJSVal = return . unPositionError - {-# INLINE toJSVal #-} - -instance FromJSVal PositionError where - fromJSVal = return . fmap PositionError . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsGObject PositionError where - toGObject = GObject . unPositionError - {-# INLINE toGObject #-} - unsafeCastGObject = PositionError . unGObject - {-# INLINE unsafeCastGObject #-} - -castToPositionError :: IsGObject obj => obj -> IO PositionError -castToPositionError = castTo gTypePositionError "PositionError" - -foreign import javascript unsafe "window[\"PositionError\"]" gTypePositionError :: GType - --- | Functions for this inteface are in "GHCJS.DOM.ProcessingInstruction". --- Base interface functions are in: --- --- * "GHCJS.DOM.CharacterData" --- * "GHCJS.DOM.Node" --- * "GHCJS.DOM.EventTarget" --- --- -newtype ProcessingInstruction = ProcessingInstruction { unProcessingInstruction :: JSVal } - -instance Eq (ProcessingInstruction) where - (ProcessingInstruction a) == (ProcessingInstruction b) = js_eq a b - -instance PToJSVal ProcessingInstruction where - pToJSVal = unProcessingInstruction - {-# INLINE pToJSVal #-} - -instance PFromJSVal ProcessingInstruction where - pFromJSVal = ProcessingInstruction - {-# INLINE pFromJSVal #-} - -instance ToJSVal ProcessingInstruction where - toJSVal = return . unProcessingInstruction - {-# INLINE toJSVal #-} - -instance FromJSVal ProcessingInstruction where - fromJSVal = return . fmap ProcessingInstruction . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsCharacterData ProcessingInstruction -instance IsNode ProcessingInstruction -instance IsEventTarget ProcessingInstruction -instance IsGObject ProcessingInstruction where - toGObject = GObject . unProcessingInstruction - {-# INLINE toGObject #-} - unsafeCastGObject = ProcessingInstruction . unGObject - {-# INLINE unsafeCastGObject #-} - -castToProcessingInstruction :: IsGObject obj => obj -> IO ProcessingInstruction -castToProcessingInstruction = castTo gTypeProcessingInstruction "ProcessingInstruction" - -foreign import javascript unsafe "window[\"ProcessingInstruction\"]" gTypeProcessingInstruction :: GType - --- | Functions for this inteface are in "GHCJS.DOM.ProgressEvent". --- Base interface functions are in: --- --- * "GHCJS.DOM.Event" --- --- -newtype ProgressEvent = ProgressEvent { unProgressEvent :: JSVal } - -instance Eq (ProgressEvent) where - (ProgressEvent a) == (ProgressEvent b) = js_eq a b - -instance PToJSVal ProgressEvent where - pToJSVal = unProgressEvent - {-# INLINE pToJSVal #-} - -instance PFromJSVal ProgressEvent where - pFromJSVal = ProgressEvent - {-# INLINE pFromJSVal #-} - -instance ToJSVal ProgressEvent where - toJSVal = return . unProgressEvent - {-# INLINE toJSVal #-} - -instance FromJSVal ProgressEvent where - fromJSVal = return . fmap ProgressEvent . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -class IsEvent o => IsProgressEvent o -toProgressEvent :: IsProgressEvent o => o -> ProgressEvent -toProgressEvent = unsafeCastGObject . toGObject - -instance IsProgressEvent ProgressEvent -instance IsEvent ProgressEvent -instance IsGObject ProgressEvent where - toGObject = GObject . unProgressEvent - {-# INLINE toGObject #-} - unsafeCastGObject = ProgressEvent . unGObject - {-# INLINE unsafeCastGObject #-} - -castToProgressEvent :: IsGObject obj => obj -> IO ProgressEvent -castToProgressEvent = castTo gTypeProgressEvent "ProgressEvent" - -foreign import javascript unsafe "window[\"ProgressEvent\"]" gTypeProgressEvent :: GType - --- | Functions for this inteface are in "GHCJS.DOM.QuickTimePluginReplacement". --- --- -newtype QuickTimePluginReplacement = QuickTimePluginReplacement { unQuickTimePluginReplacement :: JSVal } - -instance Eq (QuickTimePluginReplacement) where - (QuickTimePluginReplacement a) == (QuickTimePluginReplacement b) = js_eq a b - -instance PToJSVal QuickTimePluginReplacement where - pToJSVal = unQuickTimePluginReplacement - {-# INLINE pToJSVal #-} - -instance PFromJSVal QuickTimePluginReplacement where - pFromJSVal = QuickTimePluginReplacement - {-# INLINE pFromJSVal #-} - -instance ToJSVal QuickTimePluginReplacement where - toJSVal = return . unQuickTimePluginReplacement - {-# INLINE toJSVal #-} - -instance FromJSVal QuickTimePluginReplacement where - fromJSVal = return . fmap QuickTimePluginReplacement . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsGObject QuickTimePluginReplacement where - toGObject = GObject . unQuickTimePluginReplacement - {-# INLINE toGObject #-} - unsafeCastGObject = QuickTimePluginReplacement . unGObject - {-# INLINE unsafeCastGObject #-} - -castToQuickTimePluginReplacement :: IsGObject obj => obj -> IO QuickTimePluginReplacement -castToQuickTimePluginReplacement = castTo gTypeQuickTimePluginReplacement "QuickTimePluginReplacement" - -foreign import javascript unsafe "window[\"QuickTimePluginReplacement\"]" gTypeQuickTimePluginReplacement :: GType - --- | Functions for this inteface are in "GHCJS.DOM.RGBColor". --- --- -newtype RGBColor = RGBColor { unRGBColor :: JSVal } - -instance Eq (RGBColor) where - (RGBColor a) == (RGBColor b) = js_eq a b - -instance PToJSVal RGBColor where - pToJSVal = unRGBColor - {-# INLINE pToJSVal #-} - -instance PFromJSVal RGBColor where - pFromJSVal = RGBColor - {-# INLINE pFromJSVal #-} - -instance ToJSVal RGBColor where - toJSVal = return . unRGBColor - {-# INLINE toJSVal #-} - -instance FromJSVal RGBColor where - fromJSVal = return . fmap RGBColor . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsGObject RGBColor where - toGObject = GObject . unRGBColor - {-# INLINE toGObject #-} - unsafeCastGObject = RGBColor . unGObject - {-# INLINE unsafeCastGObject #-} - -castToRGBColor :: IsGObject obj => obj -> IO RGBColor -castToRGBColor = castTo gTypeRGBColor "RGBColor" - -foreign import javascript unsafe "window[\"RGBColor\"]" gTypeRGBColor :: GType - --- | Functions for this inteface are in "GHCJS.DOM.RTCConfiguration". --- --- -newtype RTCConfiguration = RTCConfiguration { unRTCConfiguration :: JSVal } - -instance Eq (RTCConfiguration) where - (RTCConfiguration a) == (RTCConfiguration b) = js_eq a b - -instance PToJSVal RTCConfiguration where - pToJSVal = unRTCConfiguration - {-# INLINE pToJSVal #-} - -instance PFromJSVal RTCConfiguration where - pFromJSVal = RTCConfiguration - {-# INLINE pFromJSVal #-} - -instance ToJSVal RTCConfiguration where - toJSVal = return . unRTCConfiguration - {-# INLINE toJSVal #-} - -instance FromJSVal RTCConfiguration where - fromJSVal = return . fmap RTCConfiguration . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsGObject RTCConfiguration where - toGObject = GObject . unRTCConfiguration - {-# INLINE toGObject #-} - unsafeCastGObject = RTCConfiguration . unGObject - {-# INLINE unsafeCastGObject #-} - -castToRTCConfiguration :: IsGObject obj => obj -> IO RTCConfiguration -castToRTCConfiguration = castTo gTypeRTCConfiguration "RTCConfiguration" - -foreign import javascript unsafe "window[\"RTCConfiguration\"]" gTypeRTCConfiguration :: GType - --- | Functions for this inteface are in "GHCJS.DOM.RTCDTMFSender". --- Base interface functions are in: --- --- * "GHCJS.DOM.EventTarget" --- --- -newtype RTCDTMFSender = RTCDTMFSender { unRTCDTMFSender :: JSVal } - -instance Eq (RTCDTMFSender) where - (RTCDTMFSender a) == (RTCDTMFSender b) = js_eq a b - -instance PToJSVal RTCDTMFSender where - pToJSVal = unRTCDTMFSender - {-# INLINE pToJSVal #-} - -instance PFromJSVal RTCDTMFSender where - pFromJSVal = RTCDTMFSender - {-# INLINE pFromJSVal #-} - -instance ToJSVal RTCDTMFSender where - toJSVal = return . unRTCDTMFSender - {-# INLINE toJSVal #-} - -instance FromJSVal RTCDTMFSender where - fromJSVal = return . fmap RTCDTMFSender . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsEventTarget RTCDTMFSender -instance IsGObject RTCDTMFSender where - toGObject = GObject . unRTCDTMFSender - {-# INLINE toGObject #-} - unsafeCastGObject = RTCDTMFSender . unGObject - {-# INLINE unsafeCastGObject #-} - -castToRTCDTMFSender :: IsGObject obj => obj -> IO RTCDTMFSender -castToRTCDTMFSender = castTo gTypeRTCDTMFSender "RTCDTMFSender" - -foreign import javascript unsafe "window[\"RTCDTMFSender\"]" gTypeRTCDTMFSender :: GType - --- | Functions for this inteface are in "GHCJS.DOM.RTCDTMFToneChangeEvent". --- Base interface functions are in: --- --- * "GHCJS.DOM.Event" --- --- -newtype RTCDTMFToneChangeEvent = RTCDTMFToneChangeEvent { unRTCDTMFToneChangeEvent :: JSVal } - -instance Eq (RTCDTMFToneChangeEvent) where - (RTCDTMFToneChangeEvent a) == (RTCDTMFToneChangeEvent b) = js_eq a b - -instance PToJSVal RTCDTMFToneChangeEvent where - pToJSVal = unRTCDTMFToneChangeEvent - {-# INLINE pToJSVal #-} - -instance PFromJSVal RTCDTMFToneChangeEvent where - pFromJSVal = RTCDTMFToneChangeEvent - {-# INLINE pFromJSVal #-} - -instance ToJSVal RTCDTMFToneChangeEvent where - toJSVal = return . unRTCDTMFToneChangeEvent - {-# INLINE toJSVal #-} - -instance FromJSVal RTCDTMFToneChangeEvent where - fromJSVal = return . fmap RTCDTMFToneChangeEvent . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsEvent RTCDTMFToneChangeEvent -instance IsGObject RTCDTMFToneChangeEvent where - toGObject = GObject . unRTCDTMFToneChangeEvent - {-# INLINE toGObject #-} - unsafeCastGObject = RTCDTMFToneChangeEvent . unGObject - {-# INLINE unsafeCastGObject #-} - -castToRTCDTMFToneChangeEvent :: IsGObject obj => obj -> IO RTCDTMFToneChangeEvent -castToRTCDTMFToneChangeEvent = castTo gTypeRTCDTMFToneChangeEvent "RTCDTMFToneChangeEvent" - -foreign import javascript unsafe "window[\"RTCDTMFToneChangeEvent\"]" gTypeRTCDTMFToneChangeEvent :: GType - --- | Functions for this inteface are in "GHCJS.DOM.RTCDataChannel". --- Base interface functions are in: --- --- * "GHCJS.DOM.EventTarget" --- --- -newtype RTCDataChannel = RTCDataChannel { unRTCDataChannel :: JSVal } - -instance Eq (RTCDataChannel) where - (RTCDataChannel a) == (RTCDataChannel b) = js_eq a b - -instance PToJSVal RTCDataChannel where - pToJSVal = unRTCDataChannel - {-# INLINE pToJSVal #-} - -instance PFromJSVal RTCDataChannel where - pFromJSVal = RTCDataChannel - {-# INLINE pFromJSVal #-} - -instance ToJSVal RTCDataChannel where - toJSVal = return . unRTCDataChannel - {-# INLINE toJSVal #-} - -instance FromJSVal RTCDataChannel where - fromJSVal = return . fmap RTCDataChannel . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsEventTarget RTCDataChannel -instance IsGObject RTCDataChannel where - toGObject = GObject . unRTCDataChannel - {-# INLINE toGObject #-} - unsafeCastGObject = RTCDataChannel . unGObject - {-# INLINE unsafeCastGObject #-} - -castToRTCDataChannel :: IsGObject obj => obj -> IO RTCDataChannel -castToRTCDataChannel = castTo gTypeRTCDataChannel "RTCDataChannel" - -foreign import javascript unsafe "window[\"RTCDataChannel\"]" gTypeRTCDataChannel :: GType - --- | Functions for this inteface are in "GHCJS.DOM.RTCDataChannelEvent". --- Base interface functions are in: --- --- * "GHCJS.DOM.Event" --- --- -newtype RTCDataChannelEvent = RTCDataChannelEvent { unRTCDataChannelEvent :: JSVal } - -instance Eq (RTCDataChannelEvent) where - (RTCDataChannelEvent a) == (RTCDataChannelEvent b) = js_eq a b - -instance PToJSVal RTCDataChannelEvent where - pToJSVal = unRTCDataChannelEvent - {-# INLINE pToJSVal #-} - -instance PFromJSVal RTCDataChannelEvent where - pFromJSVal = RTCDataChannelEvent - {-# INLINE pFromJSVal #-} - -instance ToJSVal RTCDataChannelEvent where - toJSVal = return . unRTCDataChannelEvent - {-# INLINE toJSVal #-} - -instance FromJSVal RTCDataChannelEvent where - fromJSVal = return . fmap RTCDataChannelEvent . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsEvent RTCDataChannelEvent -instance IsGObject RTCDataChannelEvent where - toGObject = GObject . unRTCDataChannelEvent - {-# INLINE toGObject #-} - unsafeCastGObject = RTCDataChannelEvent . unGObject - {-# INLINE unsafeCastGObject #-} - -castToRTCDataChannelEvent :: IsGObject obj => obj -> IO RTCDataChannelEvent -castToRTCDataChannelEvent = castTo gTypeRTCDataChannelEvent "RTCDataChannelEvent" - -foreign import javascript unsafe "window[\"RTCDataChannelEvent\"]" gTypeRTCDataChannelEvent :: GType - --- | Functions for this inteface are in "GHCJS.DOM.RTCIceCandidate". --- --- -newtype RTCIceCandidate = RTCIceCandidate { unRTCIceCandidate :: JSVal } - -instance Eq (RTCIceCandidate) where - (RTCIceCandidate a) == (RTCIceCandidate b) = js_eq a b - -instance PToJSVal RTCIceCandidate where - pToJSVal = unRTCIceCandidate - {-# INLINE pToJSVal #-} - -instance PFromJSVal RTCIceCandidate where - pFromJSVal = RTCIceCandidate - {-# INLINE pFromJSVal #-} - -instance ToJSVal RTCIceCandidate where - toJSVal = return . unRTCIceCandidate - {-# INLINE toJSVal #-} - -instance FromJSVal RTCIceCandidate where - fromJSVal = return . fmap RTCIceCandidate . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsGObject RTCIceCandidate where - toGObject = GObject . unRTCIceCandidate - {-# INLINE toGObject #-} - unsafeCastGObject = RTCIceCandidate . unGObject - {-# INLINE unsafeCastGObject #-} - -castToRTCIceCandidate :: IsGObject obj => obj -> IO RTCIceCandidate -castToRTCIceCandidate = castTo gTypeRTCIceCandidate "RTCIceCandidate" - -foreign import javascript unsafe "window[\"RTCIceCandidate\"]" gTypeRTCIceCandidate :: GType - --- | Functions for this inteface are in "GHCJS.DOM.RTCIceCandidateEvent". --- Base interface functions are in: --- --- * "GHCJS.DOM.Event" --- --- -newtype RTCIceCandidateEvent = RTCIceCandidateEvent { unRTCIceCandidateEvent :: JSVal } - -instance Eq (RTCIceCandidateEvent) where - (RTCIceCandidateEvent a) == (RTCIceCandidateEvent b) = js_eq a b - -instance PToJSVal RTCIceCandidateEvent where - pToJSVal = unRTCIceCandidateEvent - {-# INLINE pToJSVal #-} - -instance PFromJSVal RTCIceCandidateEvent where - pFromJSVal = RTCIceCandidateEvent - {-# INLINE pFromJSVal #-} - -instance ToJSVal RTCIceCandidateEvent where - toJSVal = return . unRTCIceCandidateEvent - {-# INLINE toJSVal #-} - -instance FromJSVal RTCIceCandidateEvent where - fromJSVal = return . fmap RTCIceCandidateEvent . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsEvent RTCIceCandidateEvent -instance IsGObject RTCIceCandidateEvent where - toGObject = GObject . unRTCIceCandidateEvent - {-# INLINE toGObject #-} - unsafeCastGObject = RTCIceCandidateEvent . unGObject - {-# INLINE unsafeCastGObject #-} - -castToRTCIceCandidateEvent :: IsGObject obj => obj -> IO RTCIceCandidateEvent -castToRTCIceCandidateEvent = castTo gTypeRTCIceCandidateEvent "RTCIceCandidateEvent" - -foreign import javascript unsafe "window[\"RTCIceCandidateEvent\"]" gTypeRTCIceCandidateEvent :: GType - --- | Functions for this inteface are in "GHCJS.DOM.RTCIceServer". --- --- -newtype RTCIceServer = RTCIceServer { unRTCIceServer :: JSVal } - -instance Eq (RTCIceServer) where - (RTCIceServer a) == (RTCIceServer b) = js_eq a b - -instance PToJSVal RTCIceServer where - pToJSVal = unRTCIceServer - {-# INLINE pToJSVal #-} - -instance PFromJSVal RTCIceServer where - pFromJSVal = RTCIceServer - {-# INLINE pFromJSVal #-} - -instance ToJSVal RTCIceServer where - toJSVal = return . unRTCIceServer - {-# INLINE toJSVal #-} - -instance FromJSVal RTCIceServer where - fromJSVal = return . fmap RTCIceServer . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsGObject RTCIceServer where - toGObject = GObject . unRTCIceServer - {-# INLINE toGObject #-} - unsafeCastGObject = RTCIceServer . unGObject - {-# INLINE unsafeCastGObject #-} - -castToRTCIceServer :: IsGObject obj => obj -> IO RTCIceServer -castToRTCIceServer = castTo gTypeRTCIceServer "RTCIceServer" - -foreign import javascript unsafe "window[\"RTCIceServer\"]" gTypeRTCIceServer :: GType - --- | Functions for this inteface are in "GHCJS.DOM.RTCPeerConnection". --- Base interface functions are in: --- --- * "GHCJS.DOM.EventTarget" --- --- -newtype RTCPeerConnection = RTCPeerConnection { unRTCPeerConnection :: JSVal } - -instance Eq (RTCPeerConnection) where - (RTCPeerConnection a) == (RTCPeerConnection b) = js_eq a b - -instance PToJSVal RTCPeerConnection where - pToJSVal = unRTCPeerConnection - {-# INLINE pToJSVal #-} - -instance PFromJSVal RTCPeerConnection where - pFromJSVal = RTCPeerConnection - {-# INLINE pFromJSVal #-} - -instance ToJSVal RTCPeerConnection where - toJSVal = return . unRTCPeerConnection - {-# INLINE toJSVal #-} - -instance FromJSVal RTCPeerConnection where - fromJSVal = return . fmap RTCPeerConnection . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsEventTarget RTCPeerConnection -instance IsGObject RTCPeerConnection where - toGObject = GObject . unRTCPeerConnection - {-# INLINE toGObject #-} - unsafeCastGObject = RTCPeerConnection . unGObject - {-# INLINE unsafeCastGObject #-} - -castToRTCPeerConnection :: IsGObject obj => obj -> IO RTCPeerConnection -castToRTCPeerConnection = castTo gTypeRTCPeerConnection "RTCPeerConnection" - -foreign import javascript unsafe "window[\"webkitRTCPeerConnection\"]" gTypeRTCPeerConnection :: GType - --- | Functions for this inteface are in "GHCJS.DOM.RTCSessionDescription". --- --- -newtype RTCSessionDescription = RTCSessionDescription { unRTCSessionDescription :: JSVal } - -instance Eq (RTCSessionDescription) where - (RTCSessionDescription a) == (RTCSessionDescription b) = js_eq a b - -instance PToJSVal RTCSessionDescription where - pToJSVal = unRTCSessionDescription - {-# INLINE pToJSVal #-} - -instance PFromJSVal RTCSessionDescription where - pFromJSVal = RTCSessionDescription - {-# INLINE pFromJSVal #-} - -instance ToJSVal RTCSessionDescription where - toJSVal = return . unRTCSessionDescription - {-# INLINE toJSVal #-} - -instance FromJSVal RTCSessionDescription where - fromJSVal = return . fmap RTCSessionDescription . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsGObject RTCSessionDescription where - toGObject = GObject . unRTCSessionDescription - {-# INLINE toGObject #-} - unsafeCastGObject = RTCSessionDescription . unGObject - {-# INLINE unsafeCastGObject #-} - -castToRTCSessionDescription :: IsGObject obj => obj -> IO RTCSessionDescription -castToRTCSessionDescription = castTo gTypeRTCSessionDescription "RTCSessionDescription" - -foreign import javascript unsafe "window[\"RTCSessionDescription\"]" gTypeRTCSessionDescription :: GType - --- | Functions for this inteface are in "GHCJS.DOM.RTCStatsReport". --- --- -newtype RTCStatsReport = RTCStatsReport { unRTCStatsReport :: JSVal } - -instance Eq (RTCStatsReport) where - (RTCStatsReport a) == (RTCStatsReport b) = js_eq a b - -instance PToJSVal RTCStatsReport where - pToJSVal = unRTCStatsReport - {-# INLINE pToJSVal #-} - -instance PFromJSVal RTCStatsReport where - pFromJSVal = RTCStatsReport - {-# INLINE pFromJSVal #-} - -instance ToJSVal RTCStatsReport where - toJSVal = return . unRTCStatsReport - {-# INLINE toJSVal #-} - -instance FromJSVal RTCStatsReport where - fromJSVal = return . fmap RTCStatsReport . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsGObject RTCStatsReport where - toGObject = GObject . unRTCStatsReport - {-# INLINE toGObject #-} - unsafeCastGObject = RTCStatsReport . unGObject - {-# INLINE unsafeCastGObject #-} - -castToRTCStatsReport :: IsGObject obj => obj -> IO RTCStatsReport -castToRTCStatsReport = castTo gTypeRTCStatsReport "RTCStatsReport" - -foreign import javascript unsafe "window[\"RTCStatsReport\"]" gTypeRTCStatsReport :: GType - --- | Functions for this inteface are in "GHCJS.DOM.RTCStatsResponse". --- --- -newtype RTCStatsResponse = RTCStatsResponse { unRTCStatsResponse :: JSVal } - -instance Eq (RTCStatsResponse) where - (RTCStatsResponse a) == (RTCStatsResponse b) = js_eq a b - -instance PToJSVal RTCStatsResponse where - pToJSVal = unRTCStatsResponse - {-# INLINE pToJSVal #-} - -instance PFromJSVal RTCStatsResponse where - pFromJSVal = RTCStatsResponse - {-# INLINE pFromJSVal #-} - -instance ToJSVal RTCStatsResponse where - toJSVal = return . unRTCStatsResponse - {-# INLINE toJSVal #-} - -instance FromJSVal RTCStatsResponse where - fromJSVal = return . fmap RTCStatsResponse . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsGObject RTCStatsResponse where - toGObject = GObject . unRTCStatsResponse - {-# INLINE toGObject #-} - unsafeCastGObject = RTCStatsResponse . unGObject - {-# INLINE unsafeCastGObject #-} - -castToRTCStatsResponse :: IsGObject obj => obj -> IO RTCStatsResponse -castToRTCStatsResponse = castTo gTypeRTCStatsResponse "RTCStatsResponse" - -foreign import javascript unsafe "window[\"RTCStatsResponse\"]" gTypeRTCStatsResponse :: GType - --- | Functions for this inteface are in "GHCJS.DOM.RadioNodeList". --- Base interface functions are in: --- --- * "GHCJS.DOM.NodeList" --- --- -newtype RadioNodeList = RadioNodeList { unRadioNodeList :: JSVal } - -instance Eq (RadioNodeList) where - (RadioNodeList a) == (RadioNodeList b) = js_eq a b - -instance PToJSVal RadioNodeList where - pToJSVal = unRadioNodeList - {-# INLINE pToJSVal #-} - -instance PFromJSVal RadioNodeList where - pFromJSVal = RadioNodeList - {-# INLINE pFromJSVal #-} - -instance ToJSVal RadioNodeList where - toJSVal = return . unRadioNodeList - {-# INLINE toJSVal #-} - -instance FromJSVal RadioNodeList where - fromJSVal = return . fmap RadioNodeList . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsNodeList RadioNodeList -instance IsGObject RadioNodeList where - toGObject = GObject . unRadioNodeList - {-# INLINE toGObject #-} - unsafeCastGObject = RadioNodeList . unGObject - {-# INLINE unsafeCastGObject #-} - -castToRadioNodeList :: IsGObject obj => obj -> IO RadioNodeList -castToRadioNodeList = castTo gTypeRadioNodeList "RadioNodeList" - -foreign import javascript unsafe "window[\"RadioNodeList\"]" gTypeRadioNodeList :: GType - --- | Functions for this inteface are in "GHCJS.DOM.Range". --- --- -newtype Range = Range { unRange :: JSVal } - -instance Eq (Range) where - (Range a) == (Range b) = js_eq a b - -instance PToJSVal Range where - pToJSVal = unRange - {-# INLINE pToJSVal #-} - -instance PFromJSVal Range where - pFromJSVal = Range - {-# INLINE pFromJSVal #-} - -instance ToJSVal Range where - toJSVal = return . unRange - {-# INLINE toJSVal #-} - -instance FromJSVal Range where - fromJSVal = return . fmap Range . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsGObject Range where - toGObject = GObject . unRange - {-# INLINE toGObject #-} - unsafeCastGObject = Range . unGObject - {-# INLINE unsafeCastGObject #-} - -castToRange :: IsGObject obj => obj -> IO Range -castToRange = castTo gTypeRange "Range" - -foreign import javascript unsafe "window[\"Range\"]" gTypeRange :: GType - --- | Functions for this inteface are in "GHCJS.DOM.ReadableStream". --- --- -newtype ReadableStream = ReadableStream { unReadableStream :: JSVal } - -instance Eq (ReadableStream) where - (ReadableStream a) == (ReadableStream b) = js_eq a b - -instance PToJSVal ReadableStream where - pToJSVal = unReadableStream - {-# INLINE pToJSVal #-} - -instance PFromJSVal ReadableStream where - pFromJSVal = ReadableStream - {-# INLINE pFromJSVal #-} - -instance ToJSVal ReadableStream where - toJSVal = return . unReadableStream - {-# INLINE toJSVal #-} - -instance FromJSVal ReadableStream where - fromJSVal = return . fmap ReadableStream . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsGObject ReadableStream where - toGObject = GObject . unReadableStream - {-# INLINE toGObject #-} - unsafeCastGObject = ReadableStream . unGObject - {-# INLINE unsafeCastGObject #-} - -castToReadableStream :: IsGObject obj => obj -> IO ReadableStream -castToReadableStream = castTo gTypeReadableStream "ReadableStream" - -foreign import javascript unsafe "window[\"ReadableStream\"]" gTypeReadableStream :: GType - --- | Functions for this inteface are in "GHCJS.DOM.Rect". --- --- -newtype Rect = Rect { unRect :: JSVal } - -instance Eq (Rect) where - (Rect a) == (Rect b) = js_eq a b - -instance PToJSVal Rect where - pToJSVal = unRect - {-# INLINE pToJSVal #-} - -instance PFromJSVal Rect where - pFromJSVal = Rect - {-# INLINE pFromJSVal #-} - -instance ToJSVal Rect where - toJSVal = return . unRect - {-# INLINE toJSVal #-} - -instance FromJSVal Rect where - fromJSVal = return . fmap Rect . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsGObject Rect where - toGObject = GObject . unRect - {-# INLINE toGObject #-} - unsafeCastGObject = Rect . unGObject - {-# INLINE unsafeCastGObject #-} - -castToRect :: IsGObject obj => obj -> IO Rect -castToRect = castTo gTypeRect "Rect" - -foreign import javascript unsafe "window[\"Rect\"]" gTypeRect :: GType - --- | Functions for this inteface are in "GHCJS.DOM.SQLError". --- --- -newtype SQLError = SQLError { unSQLError :: JSVal } - -instance Eq (SQLError) where - (SQLError a) == (SQLError b) = js_eq a b - -instance PToJSVal SQLError where - pToJSVal = unSQLError - {-# INLINE pToJSVal #-} - -instance PFromJSVal SQLError where - pFromJSVal = SQLError - {-# INLINE pFromJSVal #-} - -instance ToJSVal SQLError where - toJSVal = return . unSQLError - {-# INLINE toJSVal #-} - -instance FromJSVal SQLError where - fromJSVal = return . fmap SQLError . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsGObject SQLError where - toGObject = GObject . unSQLError - {-# INLINE toGObject #-} - unsafeCastGObject = SQLError . unGObject - {-# INLINE unsafeCastGObject #-} - -castToSQLError :: IsGObject obj => obj -> IO SQLError -castToSQLError = castTo gTypeSQLError "SQLError" - -foreign import javascript unsafe "window[\"SQLError\"]" gTypeSQLError :: GType - --- | Functions for this inteface are in "GHCJS.DOM.SQLResultSet". --- --- -newtype SQLResultSet = SQLResultSet { unSQLResultSet :: JSVal } - -instance Eq (SQLResultSet) where - (SQLResultSet a) == (SQLResultSet b) = js_eq a b - -instance PToJSVal SQLResultSet where - pToJSVal = unSQLResultSet - {-# INLINE pToJSVal #-} - -instance PFromJSVal SQLResultSet where - pFromJSVal = SQLResultSet - {-# INLINE pFromJSVal #-} - -instance ToJSVal SQLResultSet where - toJSVal = return . unSQLResultSet - {-# INLINE toJSVal #-} - -instance FromJSVal SQLResultSet where - fromJSVal = return . fmap SQLResultSet . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsGObject SQLResultSet where - toGObject = GObject . unSQLResultSet - {-# INLINE toGObject #-} - unsafeCastGObject = SQLResultSet . unGObject - {-# INLINE unsafeCastGObject #-} - -castToSQLResultSet :: IsGObject obj => obj -> IO SQLResultSet -castToSQLResultSet = castTo gTypeSQLResultSet "SQLResultSet" - -foreign import javascript unsafe "window[\"SQLResultSet\"]" gTypeSQLResultSet :: GType - --- | Functions for this inteface are in "GHCJS.DOM.SQLResultSetRowList". --- --- -newtype SQLResultSetRowList = SQLResultSetRowList { unSQLResultSetRowList :: JSVal } - -instance Eq (SQLResultSetRowList) where - (SQLResultSetRowList a) == (SQLResultSetRowList b) = js_eq a b - -instance PToJSVal SQLResultSetRowList where - pToJSVal = unSQLResultSetRowList - {-# INLINE pToJSVal #-} - -instance PFromJSVal SQLResultSetRowList where - pFromJSVal = SQLResultSetRowList - {-# INLINE pFromJSVal #-} - -instance ToJSVal SQLResultSetRowList where - toJSVal = return . unSQLResultSetRowList - {-# INLINE toJSVal #-} - -instance FromJSVal SQLResultSetRowList where - fromJSVal = return . fmap SQLResultSetRowList . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsGObject SQLResultSetRowList where - toGObject = GObject . unSQLResultSetRowList - {-# INLINE toGObject #-} - unsafeCastGObject = SQLResultSetRowList . unGObject - {-# INLINE unsafeCastGObject #-} - -castToSQLResultSetRowList :: IsGObject obj => obj -> IO SQLResultSetRowList -castToSQLResultSetRowList = castTo gTypeSQLResultSetRowList "SQLResultSetRowList" - -foreign import javascript unsafe "window[\"SQLResultSetRowList\"]" gTypeSQLResultSetRowList :: GType - --- | Functions for this inteface are in "GHCJS.DOM.SQLTransaction". --- --- -newtype SQLTransaction = SQLTransaction { unSQLTransaction :: JSVal } - -instance Eq (SQLTransaction) where - (SQLTransaction a) == (SQLTransaction b) = js_eq a b - -instance PToJSVal SQLTransaction where - pToJSVal = unSQLTransaction - {-# INLINE pToJSVal #-} - -instance PFromJSVal SQLTransaction where - pFromJSVal = SQLTransaction - {-# INLINE pFromJSVal #-} - -instance ToJSVal SQLTransaction where - toJSVal = return . unSQLTransaction - {-# INLINE toJSVal #-} - -instance FromJSVal SQLTransaction where - fromJSVal = return . fmap SQLTransaction . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsGObject SQLTransaction where - toGObject = GObject . unSQLTransaction - {-# INLINE toGObject #-} - unsafeCastGObject = SQLTransaction . unGObject - {-# INLINE unsafeCastGObject #-} - -castToSQLTransaction :: IsGObject obj => obj -> IO SQLTransaction -castToSQLTransaction = castTo gTypeSQLTransaction "SQLTransaction" - -foreign import javascript unsafe "window[\"SQLTransaction\"]" gTypeSQLTransaction :: GType - --- | Functions for this inteface are in "GHCJS.DOM.SVGAElement". --- Base interface functions are in: --- --- * "GHCJS.DOM.SVGGraphicsElement" --- * "GHCJS.DOM.SVGElement" --- * "GHCJS.DOM.Element" --- * "GHCJS.DOM.Node" --- * "GHCJS.DOM.EventTarget" --- --- -newtype SVGAElement = SVGAElement { unSVGAElement :: JSVal } - -instance Eq (SVGAElement) where - (SVGAElement a) == (SVGAElement b) = js_eq a b - -instance PToJSVal SVGAElement where - pToJSVal = unSVGAElement - {-# INLINE pToJSVal #-} - -instance PFromJSVal SVGAElement where - pFromJSVal = SVGAElement - {-# INLINE pFromJSVal #-} - -instance ToJSVal SVGAElement where - toJSVal = return . unSVGAElement - {-# INLINE toJSVal #-} - -instance FromJSVal SVGAElement where - fromJSVal = return . fmap SVGAElement . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsSVGGraphicsElement SVGAElement -instance IsSVGElement SVGAElement -instance IsElement SVGAElement -instance IsNode SVGAElement -instance IsEventTarget SVGAElement -instance IsGObject SVGAElement where - toGObject = GObject . unSVGAElement - {-# INLINE toGObject #-} - unsafeCastGObject = SVGAElement . unGObject - {-# INLINE unsafeCastGObject #-} - -castToSVGAElement :: IsGObject obj => obj -> IO SVGAElement -castToSVGAElement = castTo gTypeSVGAElement "SVGAElement" - -foreign import javascript unsafe "window[\"SVGAElement\"]" gTypeSVGAElement :: GType - --- | Functions for this inteface are in "GHCJS.DOM.SVGAltGlyphDefElement". --- Base interface functions are in: --- --- * "GHCJS.DOM.SVGElement" --- * "GHCJS.DOM.Element" --- * "GHCJS.DOM.Node" --- * "GHCJS.DOM.EventTarget" --- --- -newtype SVGAltGlyphDefElement = SVGAltGlyphDefElement { unSVGAltGlyphDefElement :: JSVal } - -instance Eq (SVGAltGlyphDefElement) where - (SVGAltGlyphDefElement a) == (SVGAltGlyphDefElement b) = js_eq a b - -instance PToJSVal SVGAltGlyphDefElement where - pToJSVal = unSVGAltGlyphDefElement - {-# INLINE pToJSVal #-} - -instance PFromJSVal SVGAltGlyphDefElement where - pFromJSVal = SVGAltGlyphDefElement - {-# INLINE pFromJSVal #-} - -instance ToJSVal SVGAltGlyphDefElement where - toJSVal = return . unSVGAltGlyphDefElement - {-# INLINE toJSVal #-} - -instance FromJSVal SVGAltGlyphDefElement where - fromJSVal = return . fmap SVGAltGlyphDefElement . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsSVGElement SVGAltGlyphDefElement -instance IsElement SVGAltGlyphDefElement -instance IsNode SVGAltGlyphDefElement -instance IsEventTarget SVGAltGlyphDefElement -instance IsGObject SVGAltGlyphDefElement where - toGObject = GObject . unSVGAltGlyphDefElement - {-# INLINE toGObject #-} - unsafeCastGObject = SVGAltGlyphDefElement . unGObject - {-# INLINE unsafeCastGObject #-} - -castToSVGAltGlyphDefElement :: IsGObject obj => obj -> IO SVGAltGlyphDefElement -castToSVGAltGlyphDefElement = castTo gTypeSVGAltGlyphDefElement "SVGAltGlyphDefElement" - -foreign import javascript unsafe "window[\"SVGAltGlyphDefElement\"]" gTypeSVGAltGlyphDefElement :: GType - --- | Functions for this inteface are in "GHCJS.DOM.SVGAltGlyphElement". --- Base interface functions are in: --- --- * "GHCJS.DOM.SVGTextPositioningElement" --- * "GHCJS.DOM.SVGTextContentElement" --- * "GHCJS.DOM.SVGGraphicsElement" --- * "GHCJS.DOM.SVGElement" --- * "GHCJS.DOM.Element" --- * "GHCJS.DOM.Node" --- * "GHCJS.DOM.EventTarget" --- --- -newtype SVGAltGlyphElement = SVGAltGlyphElement { unSVGAltGlyphElement :: JSVal } - -instance Eq (SVGAltGlyphElement) where - (SVGAltGlyphElement a) == (SVGAltGlyphElement b) = js_eq a b - -instance PToJSVal SVGAltGlyphElement where - pToJSVal = unSVGAltGlyphElement - {-# INLINE pToJSVal #-} - -instance PFromJSVal SVGAltGlyphElement where - pFromJSVal = SVGAltGlyphElement - {-# INLINE pFromJSVal #-} - -instance ToJSVal SVGAltGlyphElement where - toJSVal = return . unSVGAltGlyphElement - {-# INLINE toJSVal #-} - -instance FromJSVal SVGAltGlyphElement where - fromJSVal = return . fmap SVGAltGlyphElement . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsSVGTextPositioningElement SVGAltGlyphElement -instance IsSVGTextContentElement SVGAltGlyphElement -instance IsSVGGraphicsElement SVGAltGlyphElement -instance IsSVGElement SVGAltGlyphElement -instance IsElement SVGAltGlyphElement -instance IsNode SVGAltGlyphElement -instance IsEventTarget SVGAltGlyphElement -instance IsGObject SVGAltGlyphElement where - toGObject = GObject . unSVGAltGlyphElement - {-# INLINE toGObject #-} - unsafeCastGObject = SVGAltGlyphElement . unGObject - {-# INLINE unsafeCastGObject #-} - -castToSVGAltGlyphElement :: IsGObject obj => obj -> IO SVGAltGlyphElement -castToSVGAltGlyphElement = castTo gTypeSVGAltGlyphElement "SVGAltGlyphElement" - -foreign import javascript unsafe "window[\"SVGAltGlyphElement\"]" gTypeSVGAltGlyphElement :: GType - --- | Functions for this inteface are in "GHCJS.DOM.SVGAltGlyphItemElement". --- Base interface functions are in: --- --- * "GHCJS.DOM.SVGElement" --- * "GHCJS.DOM.Element" --- * "GHCJS.DOM.Node" --- * "GHCJS.DOM.EventTarget" --- --- -newtype SVGAltGlyphItemElement = SVGAltGlyphItemElement { unSVGAltGlyphItemElement :: JSVal } - -instance Eq (SVGAltGlyphItemElement) where - (SVGAltGlyphItemElement a) == (SVGAltGlyphItemElement b) = js_eq a b - -instance PToJSVal SVGAltGlyphItemElement where - pToJSVal = unSVGAltGlyphItemElement - {-# INLINE pToJSVal #-} - -instance PFromJSVal SVGAltGlyphItemElement where - pFromJSVal = SVGAltGlyphItemElement - {-# INLINE pFromJSVal #-} - -instance ToJSVal SVGAltGlyphItemElement where - toJSVal = return . unSVGAltGlyphItemElement - {-# INLINE toJSVal #-} - -instance FromJSVal SVGAltGlyphItemElement where - fromJSVal = return . fmap SVGAltGlyphItemElement . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsSVGElement SVGAltGlyphItemElement -instance IsElement SVGAltGlyphItemElement -instance IsNode SVGAltGlyphItemElement -instance IsEventTarget SVGAltGlyphItemElement -instance IsGObject SVGAltGlyphItemElement where - toGObject = GObject . unSVGAltGlyphItemElement - {-# INLINE toGObject #-} - unsafeCastGObject = SVGAltGlyphItemElement . unGObject - {-# INLINE unsafeCastGObject #-} - -castToSVGAltGlyphItemElement :: IsGObject obj => obj -> IO SVGAltGlyphItemElement -castToSVGAltGlyphItemElement = castTo gTypeSVGAltGlyphItemElement "SVGAltGlyphItemElement" - -foreign import javascript unsafe "window[\"SVGAltGlyphItemElement\"]" gTypeSVGAltGlyphItemElement :: GType - --- | Functions for this inteface are in "GHCJS.DOM.SVGAngle". --- --- -newtype SVGAngle = SVGAngle { unSVGAngle :: JSVal } - -instance Eq (SVGAngle) where - (SVGAngle a) == (SVGAngle b) = js_eq a b - -instance PToJSVal SVGAngle where - pToJSVal = unSVGAngle - {-# INLINE pToJSVal #-} - -instance PFromJSVal SVGAngle where - pFromJSVal = SVGAngle - {-# INLINE pFromJSVal #-} - -instance ToJSVal SVGAngle where - toJSVal = return . unSVGAngle - {-# INLINE toJSVal #-} - -instance FromJSVal SVGAngle where - fromJSVal = return . fmap SVGAngle . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsGObject SVGAngle where - toGObject = GObject . unSVGAngle - {-# INLINE toGObject #-} - unsafeCastGObject = SVGAngle . unGObject - {-# INLINE unsafeCastGObject #-} - -castToSVGAngle :: IsGObject obj => obj -> IO SVGAngle -castToSVGAngle = castTo gTypeSVGAngle "SVGAngle" - -foreign import javascript unsafe "window[\"SVGAngle\"]" gTypeSVGAngle :: GType - --- | Functions for this inteface are in "GHCJS.DOM.SVGAnimateColorElement". --- Base interface functions are in: --- --- * "GHCJS.DOM.SVGAnimationElement" --- * "GHCJS.DOM.SVGElement" --- * "GHCJS.DOM.Element" --- * "GHCJS.DOM.Node" --- * "GHCJS.DOM.EventTarget" --- --- -newtype SVGAnimateColorElement = SVGAnimateColorElement { unSVGAnimateColorElement :: JSVal } - -instance Eq (SVGAnimateColorElement) where - (SVGAnimateColorElement a) == (SVGAnimateColorElement b) = js_eq a b - -instance PToJSVal SVGAnimateColorElement where - pToJSVal = unSVGAnimateColorElement - {-# INLINE pToJSVal #-} - -instance PFromJSVal SVGAnimateColorElement where - pFromJSVal = SVGAnimateColorElement - {-# INLINE pFromJSVal #-} - -instance ToJSVal SVGAnimateColorElement where - toJSVal = return . unSVGAnimateColorElement - {-# INLINE toJSVal #-} - -instance FromJSVal SVGAnimateColorElement where - fromJSVal = return . fmap SVGAnimateColorElement . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsSVGAnimationElement SVGAnimateColorElement -instance IsSVGElement SVGAnimateColorElement -instance IsElement SVGAnimateColorElement -instance IsNode SVGAnimateColorElement -instance IsEventTarget SVGAnimateColorElement -instance IsGObject SVGAnimateColorElement where - toGObject = GObject . unSVGAnimateColorElement - {-# INLINE toGObject #-} - unsafeCastGObject = SVGAnimateColorElement . unGObject - {-# INLINE unsafeCastGObject #-} - -castToSVGAnimateColorElement :: IsGObject obj => obj -> IO SVGAnimateColorElement -castToSVGAnimateColorElement = castTo gTypeSVGAnimateColorElement "SVGAnimateColorElement" - -foreign import javascript unsafe "window[\"SVGAnimateColorElement\"]" gTypeSVGAnimateColorElement :: GType - --- | Functions for this inteface are in "GHCJS.DOM.SVGAnimateElement". --- Base interface functions are in: --- --- * "GHCJS.DOM.SVGAnimationElement" --- * "GHCJS.DOM.SVGElement" --- * "GHCJS.DOM.Element" --- * "GHCJS.DOM.Node" --- * "GHCJS.DOM.EventTarget" --- --- -newtype SVGAnimateElement = SVGAnimateElement { unSVGAnimateElement :: JSVal } - -instance Eq (SVGAnimateElement) where - (SVGAnimateElement a) == (SVGAnimateElement b) = js_eq a b - -instance PToJSVal SVGAnimateElement where - pToJSVal = unSVGAnimateElement - {-# INLINE pToJSVal #-} - -instance PFromJSVal SVGAnimateElement where - pFromJSVal = SVGAnimateElement - {-# INLINE pFromJSVal #-} - -instance ToJSVal SVGAnimateElement where - toJSVal = return . unSVGAnimateElement - {-# INLINE toJSVal #-} - -instance FromJSVal SVGAnimateElement where - fromJSVal = return . fmap SVGAnimateElement . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsSVGAnimationElement SVGAnimateElement -instance IsSVGElement SVGAnimateElement -instance IsElement SVGAnimateElement -instance IsNode SVGAnimateElement -instance IsEventTarget SVGAnimateElement -instance IsGObject SVGAnimateElement where - toGObject = GObject . unSVGAnimateElement - {-# INLINE toGObject #-} - unsafeCastGObject = SVGAnimateElement . unGObject - {-# INLINE unsafeCastGObject #-} - -castToSVGAnimateElement :: IsGObject obj => obj -> IO SVGAnimateElement -castToSVGAnimateElement = castTo gTypeSVGAnimateElement "SVGAnimateElement" - -foreign import javascript unsafe "window[\"SVGAnimateElement\"]" gTypeSVGAnimateElement :: GType - --- | Functions for this inteface are in "GHCJS.DOM.SVGAnimateMotionElement". --- Base interface functions are in: --- --- * "GHCJS.DOM.SVGAnimationElement" --- * "GHCJS.DOM.SVGElement" --- * "GHCJS.DOM.Element" --- * "GHCJS.DOM.Node" --- * "GHCJS.DOM.EventTarget" --- --- -newtype SVGAnimateMotionElement = SVGAnimateMotionElement { unSVGAnimateMotionElement :: JSVal } - -instance Eq (SVGAnimateMotionElement) where - (SVGAnimateMotionElement a) == (SVGAnimateMotionElement b) = js_eq a b - -instance PToJSVal SVGAnimateMotionElement where - pToJSVal = unSVGAnimateMotionElement - {-# INLINE pToJSVal #-} - -instance PFromJSVal SVGAnimateMotionElement where - pFromJSVal = SVGAnimateMotionElement - {-# INLINE pFromJSVal #-} - -instance ToJSVal SVGAnimateMotionElement where - toJSVal = return . unSVGAnimateMotionElement - {-# INLINE toJSVal #-} - -instance FromJSVal SVGAnimateMotionElement where - fromJSVal = return . fmap SVGAnimateMotionElement . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsSVGAnimationElement SVGAnimateMotionElement -instance IsSVGElement SVGAnimateMotionElement -instance IsElement SVGAnimateMotionElement -instance IsNode SVGAnimateMotionElement -instance IsEventTarget SVGAnimateMotionElement -instance IsGObject SVGAnimateMotionElement where - toGObject = GObject . unSVGAnimateMotionElement - {-# INLINE toGObject #-} - unsafeCastGObject = SVGAnimateMotionElement . unGObject - {-# INLINE unsafeCastGObject #-} - -castToSVGAnimateMotionElement :: IsGObject obj => obj -> IO SVGAnimateMotionElement -castToSVGAnimateMotionElement = castTo gTypeSVGAnimateMotionElement "SVGAnimateMotionElement" - -foreign import javascript unsafe "window[\"SVGAnimateMotionElement\"]" gTypeSVGAnimateMotionElement :: GType - --- | Functions for this inteface are in "GHCJS.DOM.SVGAnimateTransformElement". --- Base interface functions are in: --- --- * "GHCJS.DOM.SVGAnimationElement" --- * "GHCJS.DOM.SVGElement" --- * "GHCJS.DOM.Element" --- * "GHCJS.DOM.Node" --- * "GHCJS.DOM.EventTarget" --- --- -newtype SVGAnimateTransformElement = SVGAnimateTransformElement { unSVGAnimateTransformElement :: JSVal } - -instance Eq (SVGAnimateTransformElement) where - (SVGAnimateTransformElement a) == (SVGAnimateTransformElement b) = js_eq a b - -instance PToJSVal SVGAnimateTransformElement where - pToJSVal = unSVGAnimateTransformElement - {-# INLINE pToJSVal #-} - -instance PFromJSVal SVGAnimateTransformElement where - pFromJSVal = SVGAnimateTransformElement - {-# INLINE pFromJSVal #-} - -instance ToJSVal SVGAnimateTransformElement where - toJSVal = return . unSVGAnimateTransformElement - {-# INLINE toJSVal #-} - -instance FromJSVal SVGAnimateTransformElement where - fromJSVal = return . fmap SVGAnimateTransformElement . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsSVGAnimationElement SVGAnimateTransformElement -instance IsSVGElement SVGAnimateTransformElement -instance IsElement SVGAnimateTransformElement -instance IsNode SVGAnimateTransformElement -instance IsEventTarget SVGAnimateTransformElement -instance IsGObject SVGAnimateTransformElement where - toGObject = GObject . unSVGAnimateTransformElement - {-# INLINE toGObject #-} - unsafeCastGObject = SVGAnimateTransformElement . unGObject - {-# INLINE unsafeCastGObject #-} - -castToSVGAnimateTransformElement :: IsGObject obj => obj -> IO SVGAnimateTransformElement -castToSVGAnimateTransformElement = castTo gTypeSVGAnimateTransformElement "SVGAnimateTransformElement" - -foreign import javascript unsafe "window[\"SVGAnimateTransformElement\"]" gTypeSVGAnimateTransformElement :: GType - --- | Functions for this inteface are in "GHCJS.DOM.SVGAnimatedAngle". --- --- -newtype SVGAnimatedAngle = SVGAnimatedAngle { unSVGAnimatedAngle :: JSVal } - -instance Eq (SVGAnimatedAngle) where - (SVGAnimatedAngle a) == (SVGAnimatedAngle b) = js_eq a b - -instance PToJSVal SVGAnimatedAngle where - pToJSVal = unSVGAnimatedAngle - {-# INLINE pToJSVal #-} - -instance PFromJSVal SVGAnimatedAngle where - pFromJSVal = SVGAnimatedAngle - {-# INLINE pFromJSVal #-} - -instance ToJSVal SVGAnimatedAngle where - toJSVal = return . unSVGAnimatedAngle - {-# INLINE toJSVal #-} - -instance FromJSVal SVGAnimatedAngle where - fromJSVal = return . fmap SVGAnimatedAngle . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsGObject SVGAnimatedAngle where - toGObject = GObject . unSVGAnimatedAngle - {-# INLINE toGObject #-} - unsafeCastGObject = SVGAnimatedAngle . unGObject - {-# INLINE unsafeCastGObject #-} - -castToSVGAnimatedAngle :: IsGObject obj => obj -> IO SVGAnimatedAngle -castToSVGAnimatedAngle = castTo gTypeSVGAnimatedAngle "SVGAnimatedAngle" - -foreign import javascript unsafe "window[\"SVGAnimatedAngle\"]" gTypeSVGAnimatedAngle :: GType - --- | Functions for this inteface are in "GHCJS.DOM.SVGAnimatedBoolean". --- --- -newtype SVGAnimatedBoolean = SVGAnimatedBoolean { unSVGAnimatedBoolean :: JSVal } - -instance Eq (SVGAnimatedBoolean) where - (SVGAnimatedBoolean a) == (SVGAnimatedBoolean b) = js_eq a b - -instance PToJSVal SVGAnimatedBoolean where - pToJSVal = unSVGAnimatedBoolean - {-# INLINE pToJSVal #-} - -instance PFromJSVal SVGAnimatedBoolean where - pFromJSVal = SVGAnimatedBoolean - {-# INLINE pFromJSVal #-} - -instance ToJSVal SVGAnimatedBoolean where - toJSVal = return . unSVGAnimatedBoolean - {-# INLINE toJSVal #-} - -instance FromJSVal SVGAnimatedBoolean where - fromJSVal = return . fmap SVGAnimatedBoolean . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsGObject SVGAnimatedBoolean where - toGObject = GObject . unSVGAnimatedBoolean - {-# INLINE toGObject #-} - unsafeCastGObject = SVGAnimatedBoolean . unGObject - {-# INLINE unsafeCastGObject #-} - -castToSVGAnimatedBoolean :: IsGObject obj => obj -> IO SVGAnimatedBoolean -castToSVGAnimatedBoolean = castTo gTypeSVGAnimatedBoolean "SVGAnimatedBoolean" - -foreign import javascript unsafe "window[\"SVGAnimatedBoolean\"]" gTypeSVGAnimatedBoolean :: GType - --- | Functions for this inteface are in "GHCJS.DOM.SVGAnimatedEnumeration". --- --- -newtype SVGAnimatedEnumeration = SVGAnimatedEnumeration { unSVGAnimatedEnumeration :: JSVal } - -instance Eq (SVGAnimatedEnumeration) where - (SVGAnimatedEnumeration a) == (SVGAnimatedEnumeration b) = js_eq a b - -instance PToJSVal SVGAnimatedEnumeration where - pToJSVal = unSVGAnimatedEnumeration - {-# INLINE pToJSVal #-} - -instance PFromJSVal SVGAnimatedEnumeration where - pFromJSVal = SVGAnimatedEnumeration - {-# INLINE pFromJSVal #-} - -instance ToJSVal SVGAnimatedEnumeration where - toJSVal = return . unSVGAnimatedEnumeration - {-# INLINE toJSVal #-} - -instance FromJSVal SVGAnimatedEnumeration where - fromJSVal = return . fmap SVGAnimatedEnumeration . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsGObject SVGAnimatedEnumeration where - toGObject = GObject . unSVGAnimatedEnumeration - {-# INLINE toGObject #-} - unsafeCastGObject = SVGAnimatedEnumeration . unGObject - {-# INLINE unsafeCastGObject #-} - -castToSVGAnimatedEnumeration :: IsGObject obj => obj -> IO SVGAnimatedEnumeration -castToSVGAnimatedEnumeration = castTo gTypeSVGAnimatedEnumeration "SVGAnimatedEnumeration" - -foreign import javascript unsafe "window[\"SVGAnimatedEnumeration\"]" gTypeSVGAnimatedEnumeration :: GType - --- | Functions for this inteface are in "GHCJS.DOM.SVGAnimatedInteger". --- --- -newtype SVGAnimatedInteger = SVGAnimatedInteger { unSVGAnimatedInteger :: JSVal } - -instance Eq (SVGAnimatedInteger) where - (SVGAnimatedInteger a) == (SVGAnimatedInteger b) = js_eq a b - -instance PToJSVal SVGAnimatedInteger where - pToJSVal = unSVGAnimatedInteger - {-# INLINE pToJSVal #-} - -instance PFromJSVal SVGAnimatedInteger where - pFromJSVal = SVGAnimatedInteger - {-# INLINE pFromJSVal #-} - -instance ToJSVal SVGAnimatedInteger where - toJSVal = return . unSVGAnimatedInteger - {-# INLINE toJSVal #-} - -instance FromJSVal SVGAnimatedInteger where - fromJSVal = return . fmap SVGAnimatedInteger . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsGObject SVGAnimatedInteger where - toGObject = GObject . unSVGAnimatedInteger - {-# INLINE toGObject #-} - unsafeCastGObject = SVGAnimatedInteger . unGObject - {-# INLINE unsafeCastGObject #-} - -castToSVGAnimatedInteger :: IsGObject obj => obj -> IO SVGAnimatedInteger -castToSVGAnimatedInteger = castTo gTypeSVGAnimatedInteger "SVGAnimatedInteger" - -foreign import javascript unsafe "window[\"SVGAnimatedInteger\"]" gTypeSVGAnimatedInteger :: GType - --- | Functions for this inteface are in "GHCJS.DOM.SVGAnimatedLength". --- --- -newtype SVGAnimatedLength = SVGAnimatedLength { unSVGAnimatedLength :: JSVal } - -instance Eq (SVGAnimatedLength) where - (SVGAnimatedLength a) == (SVGAnimatedLength b) = js_eq a b - -instance PToJSVal SVGAnimatedLength where - pToJSVal = unSVGAnimatedLength - {-# INLINE pToJSVal #-} - -instance PFromJSVal SVGAnimatedLength where - pFromJSVal = SVGAnimatedLength - {-# INLINE pFromJSVal #-} - -instance ToJSVal SVGAnimatedLength where - toJSVal = return . unSVGAnimatedLength - {-# INLINE toJSVal #-} - -instance FromJSVal SVGAnimatedLength where - fromJSVal = return . fmap SVGAnimatedLength . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsGObject SVGAnimatedLength where - toGObject = GObject . unSVGAnimatedLength - {-# INLINE toGObject #-} - unsafeCastGObject = SVGAnimatedLength . unGObject - {-# INLINE unsafeCastGObject #-} - -castToSVGAnimatedLength :: IsGObject obj => obj -> IO SVGAnimatedLength -castToSVGAnimatedLength = castTo gTypeSVGAnimatedLength "SVGAnimatedLength" - -foreign import javascript unsafe "window[\"SVGAnimatedLength\"]" gTypeSVGAnimatedLength :: GType - --- | Functions for this inteface are in "GHCJS.DOM.SVGAnimatedLengthList". --- --- -newtype SVGAnimatedLengthList = SVGAnimatedLengthList { unSVGAnimatedLengthList :: JSVal } - -instance Eq (SVGAnimatedLengthList) where - (SVGAnimatedLengthList a) == (SVGAnimatedLengthList b) = js_eq a b - -instance PToJSVal SVGAnimatedLengthList where - pToJSVal = unSVGAnimatedLengthList - {-# INLINE pToJSVal #-} - -instance PFromJSVal SVGAnimatedLengthList where - pFromJSVal = SVGAnimatedLengthList - {-# INLINE pFromJSVal #-} - -instance ToJSVal SVGAnimatedLengthList where - toJSVal = return . unSVGAnimatedLengthList - {-# INLINE toJSVal #-} - -instance FromJSVal SVGAnimatedLengthList where - fromJSVal = return . fmap SVGAnimatedLengthList . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsGObject SVGAnimatedLengthList where - toGObject = GObject . unSVGAnimatedLengthList - {-# INLINE toGObject #-} - unsafeCastGObject = SVGAnimatedLengthList . unGObject - {-# INLINE unsafeCastGObject #-} - -castToSVGAnimatedLengthList :: IsGObject obj => obj -> IO SVGAnimatedLengthList -castToSVGAnimatedLengthList = castTo gTypeSVGAnimatedLengthList "SVGAnimatedLengthList" - -foreign import javascript unsafe "window[\"SVGAnimatedLengthList\"]" gTypeSVGAnimatedLengthList :: GType - --- | Functions for this inteface are in "GHCJS.DOM.SVGAnimatedNumber". --- --- -newtype SVGAnimatedNumber = SVGAnimatedNumber { unSVGAnimatedNumber :: JSVal } - -instance Eq (SVGAnimatedNumber) where - (SVGAnimatedNumber a) == (SVGAnimatedNumber b) = js_eq a b - -instance PToJSVal SVGAnimatedNumber where - pToJSVal = unSVGAnimatedNumber - {-# INLINE pToJSVal #-} - -instance PFromJSVal SVGAnimatedNumber where - pFromJSVal = SVGAnimatedNumber - {-# INLINE pFromJSVal #-} - -instance ToJSVal SVGAnimatedNumber where - toJSVal = return . unSVGAnimatedNumber - {-# INLINE toJSVal #-} - -instance FromJSVal SVGAnimatedNumber where - fromJSVal = return . fmap SVGAnimatedNumber . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsGObject SVGAnimatedNumber where - toGObject = GObject . unSVGAnimatedNumber - {-# INLINE toGObject #-} - unsafeCastGObject = SVGAnimatedNumber . unGObject - {-# INLINE unsafeCastGObject #-} - -castToSVGAnimatedNumber :: IsGObject obj => obj -> IO SVGAnimatedNumber -castToSVGAnimatedNumber = castTo gTypeSVGAnimatedNumber "SVGAnimatedNumber" - -foreign import javascript unsafe "window[\"SVGAnimatedNumber\"]" gTypeSVGAnimatedNumber :: GType - --- | Functions for this inteface are in "GHCJS.DOM.SVGAnimatedNumberList". --- --- -newtype SVGAnimatedNumberList = SVGAnimatedNumberList { unSVGAnimatedNumberList :: JSVal } - -instance Eq (SVGAnimatedNumberList) where - (SVGAnimatedNumberList a) == (SVGAnimatedNumberList b) = js_eq a b - -instance PToJSVal SVGAnimatedNumberList where - pToJSVal = unSVGAnimatedNumberList - {-# INLINE pToJSVal #-} - -instance PFromJSVal SVGAnimatedNumberList where - pFromJSVal = SVGAnimatedNumberList - {-# INLINE pFromJSVal #-} - -instance ToJSVal SVGAnimatedNumberList where - toJSVal = return . unSVGAnimatedNumberList - {-# INLINE toJSVal #-} - -instance FromJSVal SVGAnimatedNumberList where - fromJSVal = return . fmap SVGAnimatedNumberList . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsGObject SVGAnimatedNumberList where - toGObject = GObject . unSVGAnimatedNumberList - {-# INLINE toGObject #-} - unsafeCastGObject = SVGAnimatedNumberList . unGObject - {-# INLINE unsafeCastGObject #-} - -castToSVGAnimatedNumberList :: IsGObject obj => obj -> IO SVGAnimatedNumberList -castToSVGAnimatedNumberList = castTo gTypeSVGAnimatedNumberList "SVGAnimatedNumberList" - -foreign import javascript unsafe "window[\"SVGAnimatedNumberList\"]" gTypeSVGAnimatedNumberList :: GType - --- | Functions for this inteface are in "GHCJS.DOM.SVGAnimatedPreserveAspectRatio". --- --- -newtype SVGAnimatedPreserveAspectRatio = SVGAnimatedPreserveAspectRatio { unSVGAnimatedPreserveAspectRatio :: JSVal } - -instance Eq (SVGAnimatedPreserveAspectRatio) where - (SVGAnimatedPreserveAspectRatio a) == (SVGAnimatedPreserveAspectRatio b) = js_eq a b - -instance PToJSVal SVGAnimatedPreserveAspectRatio where - pToJSVal = unSVGAnimatedPreserveAspectRatio - {-# INLINE pToJSVal #-} - -instance PFromJSVal SVGAnimatedPreserveAspectRatio where - pFromJSVal = SVGAnimatedPreserveAspectRatio - {-# INLINE pFromJSVal #-} - -instance ToJSVal SVGAnimatedPreserveAspectRatio where - toJSVal = return . unSVGAnimatedPreserveAspectRatio - {-# INLINE toJSVal #-} - -instance FromJSVal SVGAnimatedPreserveAspectRatio where - fromJSVal = return . fmap SVGAnimatedPreserveAspectRatio . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsGObject SVGAnimatedPreserveAspectRatio where - toGObject = GObject . unSVGAnimatedPreserveAspectRatio - {-# INLINE toGObject #-} - unsafeCastGObject = SVGAnimatedPreserveAspectRatio . unGObject - {-# INLINE unsafeCastGObject #-} - -castToSVGAnimatedPreserveAspectRatio :: IsGObject obj => obj -> IO SVGAnimatedPreserveAspectRatio -castToSVGAnimatedPreserveAspectRatio = castTo gTypeSVGAnimatedPreserveAspectRatio "SVGAnimatedPreserveAspectRatio" - -foreign import javascript unsafe "window[\"SVGAnimatedPreserveAspectRatio\"]" gTypeSVGAnimatedPreserveAspectRatio :: GType - --- | Functions for this inteface are in "GHCJS.DOM.SVGAnimatedRect". --- --- -newtype SVGAnimatedRect = SVGAnimatedRect { unSVGAnimatedRect :: JSVal } - -instance Eq (SVGAnimatedRect) where - (SVGAnimatedRect a) == (SVGAnimatedRect b) = js_eq a b - -instance PToJSVal SVGAnimatedRect where - pToJSVal = unSVGAnimatedRect - {-# INLINE pToJSVal #-} - -instance PFromJSVal SVGAnimatedRect where - pFromJSVal = SVGAnimatedRect - {-# INLINE pFromJSVal #-} - -instance ToJSVal SVGAnimatedRect where - toJSVal = return . unSVGAnimatedRect - {-# INLINE toJSVal #-} - -instance FromJSVal SVGAnimatedRect where - fromJSVal = return . fmap SVGAnimatedRect . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsGObject SVGAnimatedRect where - toGObject = GObject . unSVGAnimatedRect - {-# INLINE toGObject #-} - unsafeCastGObject = SVGAnimatedRect . unGObject - {-# INLINE unsafeCastGObject #-} - -castToSVGAnimatedRect :: IsGObject obj => obj -> IO SVGAnimatedRect -castToSVGAnimatedRect = castTo gTypeSVGAnimatedRect "SVGAnimatedRect" - -foreign import javascript unsafe "window[\"SVGAnimatedRect\"]" gTypeSVGAnimatedRect :: GType - --- | Functions for this inteface are in "GHCJS.DOM.SVGAnimatedString". --- --- -newtype SVGAnimatedString = SVGAnimatedString { unSVGAnimatedString :: JSVal } - -instance Eq (SVGAnimatedString) where - (SVGAnimatedString a) == (SVGAnimatedString b) = js_eq a b - -instance PToJSVal SVGAnimatedString where - pToJSVal = unSVGAnimatedString - {-# INLINE pToJSVal #-} - -instance PFromJSVal SVGAnimatedString where - pFromJSVal = SVGAnimatedString - {-# INLINE pFromJSVal #-} - -instance ToJSVal SVGAnimatedString where - toJSVal = return . unSVGAnimatedString - {-# INLINE toJSVal #-} - -instance FromJSVal SVGAnimatedString where - fromJSVal = return . fmap SVGAnimatedString . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsGObject SVGAnimatedString where - toGObject = GObject . unSVGAnimatedString - {-# INLINE toGObject #-} - unsafeCastGObject = SVGAnimatedString . unGObject - {-# INLINE unsafeCastGObject #-} - -castToSVGAnimatedString :: IsGObject obj => obj -> IO SVGAnimatedString -castToSVGAnimatedString = castTo gTypeSVGAnimatedString "SVGAnimatedString" - -foreign import javascript unsafe "window[\"SVGAnimatedString\"]" gTypeSVGAnimatedString :: GType - --- | Functions for this inteface are in "GHCJS.DOM.SVGAnimatedTransformList". --- --- -newtype SVGAnimatedTransformList = SVGAnimatedTransformList { unSVGAnimatedTransformList :: JSVal } - -instance Eq (SVGAnimatedTransformList) where - (SVGAnimatedTransformList a) == (SVGAnimatedTransformList b) = js_eq a b - -instance PToJSVal SVGAnimatedTransformList where - pToJSVal = unSVGAnimatedTransformList - {-# INLINE pToJSVal #-} - -instance PFromJSVal SVGAnimatedTransformList where - pFromJSVal = SVGAnimatedTransformList - {-# INLINE pFromJSVal #-} - -instance ToJSVal SVGAnimatedTransformList where - toJSVal = return . unSVGAnimatedTransformList - {-# INLINE toJSVal #-} - -instance FromJSVal SVGAnimatedTransformList where - fromJSVal = return . fmap SVGAnimatedTransformList . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsGObject SVGAnimatedTransformList where - toGObject = GObject . unSVGAnimatedTransformList - {-# INLINE toGObject #-} - unsafeCastGObject = SVGAnimatedTransformList . unGObject - {-# INLINE unsafeCastGObject #-} - -castToSVGAnimatedTransformList :: IsGObject obj => obj -> IO SVGAnimatedTransformList -castToSVGAnimatedTransformList = castTo gTypeSVGAnimatedTransformList "SVGAnimatedTransformList" - -foreign import javascript unsafe "window[\"SVGAnimatedTransformList\"]" gTypeSVGAnimatedTransformList :: GType - --- | Functions for this inteface are in "GHCJS.DOM.SVGAnimationElement". --- Base interface functions are in: --- --- * "GHCJS.DOM.SVGElement" --- * "GHCJS.DOM.Element" --- * "GHCJS.DOM.Node" --- * "GHCJS.DOM.EventTarget" --- --- -newtype SVGAnimationElement = SVGAnimationElement { unSVGAnimationElement :: JSVal } - -instance Eq (SVGAnimationElement) where - (SVGAnimationElement a) == (SVGAnimationElement b) = js_eq a b - -instance PToJSVal SVGAnimationElement where - pToJSVal = unSVGAnimationElement - {-# INLINE pToJSVal #-} - -instance PFromJSVal SVGAnimationElement where - pFromJSVal = SVGAnimationElement - {-# INLINE pFromJSVal #-} - -instance ToJSVal SVGAnimationElement where - toJSVal = return . unSVGAnimationElement - {-# INLINE toJSVal #-} - -instance FromJSVal SVGAnimationElement where - fromJSVal = return . fmap SVGAnimationElement . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -class IsSVGElement o => IsSVGAnimationElement o -toSVGAnimationElement :: IsSVGAnimationElement o => o -> SVGAnimationElement -toSVGAnimationElement = unsafeCastGObject . toGObject - -instance IsSVGAnimationElement SVGAnimationElement -instance IsSVGElement SVGAnimationElement -instance IsElement SVGAnimationElement -instance IsNode SVGAnimationElement -instance IsEventTarget SVGAnimationElement -instance IsGObject SVGAnimationElement where - toGObject = GObject . unSVGAnimationElement - {-# INLINE toGObject #-} - unsafeCastGObject = SVGAnimationElement . unGObject - {-# INLINE unsafeCastGObject #-} - -castToSVGAnimationElement :: IsGObject obj => obj -> IO SVGAnimationElement -castToSVGAnimationElement = castTo gTypeSVGAnimationElement "SVGAnimationElement" - -foreign import javascript unsafe "window[\"SVGAnimationElement\"]" gTypeSVGAnimationElement :: GType - --- | Functions for this inteface are in "GHCJS.DOM.SVGCircleElement". --- Base interface functions are in: --- --- * "GHCJS.DOM.SVGGraphicsElement" --- * "GHCJS.DOM.SVGElement" --- * "GHCJS.DOM.Element" --- * "GHCJS.DOM.Node" --- * "GHCJS.DOM.EventTarget" --- --- -newtype SVGCircleElement = SVGCircleElement { unSVGCircleElement :: JSVal } - -instance Eq (SVGCircleElement) where - (SVGCircleElement a) == (SVGCircleElement b) = js_eq a b - -instance PToJSVal SVGCircleElement where - pToJSVal = unSVGCircleElement - {-# INLINE pToJSVal #-} - -instance PFromJSVal SVGCircleElement where - pFromJSVal = SVGCircleElement - {-# INLINE pFromJSVal #-} - -instance ToJSVal SVGCircleElement where - toJSVal = return . unSVGCircleElement - {-# INLINE toJSVal #-} - -instance FromJSVal SVGCircleElement where - fromJSVal = return . fmap SVGCircleElement . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsSVGGraphicsElement SVGCircleElement -instance IsSVGElement SVGCircleElement -instance IsElement SVGCircleElement -instance IsNode SVGCircleElement -instance IsEventTarget SVGCircleElement -instance IsGObject SVGCircleElement where - toGObject = GObject . unSVGCircleElement - {-# INLINE toGObject #-} - unsafeCastGObject = SVGCircleElement . unGObject - {-# INLINE unsafeCastGObject #-} - -castToSVGCircleElement :: IsGObject obj => obj -> IO SVGCircleElement -castToSVGCircleElement = castTo gTypeSVGCircleElement "SVGCircleElement" - -foreign import javascript unsafe "window[\"SVGCircleElement\"]" gTypeSVGCircleElement :: GType - --- | Functions for this inteface are in "GHCJS.DOM.SVGClipPathElement". --- Base interface functions are in: --- --- * "GHCJS.DOM.SVGGraphicsElement" --- * "GHCJS.DOM.SVGElement" --- * "GHCJS.DOM.Element" --- * "GHCJS.DOM.Node" --- * "GHCJS.DOM.EventTarget" --- --- -newtype SVGClipPathElement = SVGClipPathElement { unSVGClipPathElement :: JSVal } - -instance Eq (SVGClipPathElement) where - (SVGClipPathElement a) == (SVGClipPathElement b) = js_eq a b - -instance PToJSVal SVGClipPathElement where - pToJSVal = unSVGClipPathElement - {-# INLINE pToJSVal #-} - -instance PFromJSVal SVGClipPathElement where - pFromJSVal = SVGClipPathElement - {-# INLINE pFromJSVal #-} - -instance ToJSVal SVGClipPathElement where - toJSVal = return . unSVGClipPathElement - {-# INLINE toJSVal #-} - -instance FromJSVal SVGClipPathElement where - fromJSVal = return . fmap SVGClipPathElement . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsSVGGraphicsElement SVGClipPathElement -instance IsSVGElement SVGClipPathElement -instance IsElement SVGClipPathElement -instance IsNode SVGClipPathElement -instance IsEventTarget SVGClipPathElement -instance IsGObject SVGClipPathElement where - toGObject = GObject . unSVGClipPathElement - {-# INLINE toGObject #-} - unsafeCastGObject = SVGClipPathElement . unGObject - {-# INLINE unsafeCastGObject #-} - -castToSVGClipPathElement :: IsGObject obj => obj -> IO SVGClipPathElement -castToSVGClipPathElement = castTo gTypeSVGClipPathElement "SVGClipPathElement" - -foreign import javascript unsafe "window[\"SVGClipPathElement\"]" gTypeSVGClipPathElement :: GType - --- | Functions for this inteface are in "GHCJS.DOM.SVGColor". --- Base interface functions are in: --- --- * "GHCJS.DOM.CSSValue" --- --- -newtype SVGColor = SVGColor { unSVGColor :: JSVal } - -instance Eq (SVGColor) where - (SVGColor a) == (SVGColor b) = js_eq a b - -instance PToJSVal SVGColor where - pToJSVal = unSVGColor - {-# INLINE pToJSVal #-} - -instance PFromJSVal SVGColor where - pFromJSVal = SVGColor - {-# INLINE pFromJSVal #-} - -instance ToJSVal SVGColor where - toJSVal = return . unSVGColor - {-# INLINE toJSVal #-} - -instance FromJSVal SVGColor where - fromJSVal = return . fmap SVGColor . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -class IsCSSValue o => IsSVGColor o -toSVGColor :: IsSVGColor o => o -> SVGColor -toSVGColor = unsafeCastGObject . toGObject - -instance IsSVGColor SVGColor -instance IsCSSValue SVGColor -instance IsGObject SVGColor where - toGObject = GObject . unSVGColor - {-# INLINE toGObject #-} - unsafeCastGObject = SVGColor . unGObject - {-# INLINE unsafeCastGObject #-} - -castToSVGColor :: IsGObject obj => obj -> IO SVGColor -castToSVGColor = castTo gTypeSVGColor "SVGColor" - -foreign import javascript unsafe "window[\"SVGColor\"]" gTypeSVGColor :: GType - --- | Functions for this inteface are in "GHCJS.DOM.SVGComponentTransferFunctionElement". --- Base interface functions are in: --- --- * "GHCJS.DOM.SVGElement" --- * "GHCJS.DOM.Element" --- * "GHCJS.DOM.Node" --- * "GHCJS.DOM.EventTarget" --- --- -newtype SVGComponentTransferFunctionElement = SVGComponentTransferFunctionElement { unSVGComponentTransferFunctionElement :: JSVal } - -instance Eq (SVGComponentTransferFunctionElement) where - (SVGComponentTransferFunctionElement a) == (SVGComponentTransferFunctionElement b) = js_eq a b - -instance PToJSVal SVGComponentTransferFunctionElement where - pToJSVal = unSVGComponentTransferFunctionElement - {-# INLINE pToJSVal #-} - -instance PFromJSVal SVGComponentTransferFunctionElement where - pFromJSVal = SVGComponentTransferFunctionElement - {-# INLINE pFromJSVal #-} - -instance ToJSVal SVGComponentTransferFunctionElement where - toJSVal = return . unSVGComponentTransferFunctionElement - {-# INLINE toJSVal #-} - -instance FromJSVal SVGComponentTransferFunctionElement where - fromJSVal = return . fmap SVGComponentTransferFunctionElement . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -class IsSVGElement o => IsSVGComponentTransferFunctionElement o -toSVGComponentTransferFunctionElement :: IsSVGComponentTransferFunctionElement o => o -> SVGComponentTransferFunctionElement -toSVGComponentTransferFunctionElement = unsafeCastGObject . toGObject - -instance IsSVGComponentTransferFunctionElement SVGComponentTransferFunctionElement -instance IsSVGElement SVGComponentTransferFunctionElement -instance IsElement SVGComponentTransferFunctionElement -instance IsNode SVGComponentTransferFunctionElement -instance IsEventTarget SVGComponentTransferFunctionElement -instance IsGObject SVGComponentTransferFunctionElement where - toGObject = GObject . unSVGComponentTransferFunctionElement - {-# INLINE toGObject #-} - unsafeCastGObject = SVGComponentTransferFunctionElement . unGObject - {-# INLINE unsafeCastGObject #-} - -castToSVGComponentTransferFunctionElement :: IsGObject obj => obj -> IO SVGComponentTransferFunctionElement -castToSVGComponentTransferFunctionElement = castTo gTypeSVGComponentTransferFunctionElement "SVGComponentTransferFunctionElement" - -foreign import javascript unsafe "window[\"SVGComponentTransferFunctionElement\"]" gTypeSVGComponentTransferFunctionElement :: GType - --- | Functions for this inteface are in "GHCJS.DOM.SVGCursorElement". --- Base interface functions are in: --- --- * "GHCJS.DOM.SVGElement" --- * "GHCJS.DOM.Element" --- * "GHCJS.DOM.Node" --- * "GHCJS.DOM.EventTarget" --- --- -newtype SVGCursorElement = SVGCursorElement { unSVGCursorElement :: JSVal } - -instance Eq (SVGCursorElement) where - (SVGCursorElement a) == (SVGCursorElement b) = js_eq a b - -instance PToJSVal SVGCursorElement where - pToJSVal = unSVGCursorElement - {-# INLINE pToJSVal #-} - -instance PFromJSVal SVGCursorElement where - pFromJSVal = SVGCursorElement - {-# INLINE pFromJSVal #-} - -instance ToJSVal SVGCursorElement where - toJSVal = return . unSVGCursorElement - {-# INLINE toJSVal #-} - -instance FromJSVal SVGCursorElement where - fromJSVal = return . fmap SVGCursorElement . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsSVGElement SVGCursorElement -instance IsElement SVGCursorElement -instance IsNode SVGCursorElement -instance IsEventTarget SVGCursorElement -instance IsGObject SVGCursorElement where - toGObject = GObject . unSVGCursorElement - {-# INLINE toGObject #-} - unsafeCastGObject = SVGCursorElement . unGObject - {-# INLINE unsafeCastGObject #-} - -castToSVGCursorElement :: IsGObject obj => obj -> IO SVGCursorElement -castToSVGCursorElement = castTo gTypeSVGCursorElement "SVGCursorElement" - -foreign import javascript unsafe "window[\"SVGCursorElement\"]" gTypeSVGCursorElement :: GType - --- | Functions for this inteface are in "GHCJS.DOM.SVGDefsElement". --- Base interface functions are in: --- --- * "GHCJS.DOM.SVGGraphicsElement" --- * "GHCJS.DOM.SVGElement" --- * "GHCJS.DOM.Element" --- * "GHCJS.DOM.Node" --- * "GHCJS.DOM.EventTarget" --- --- -newtype SVGDefsElement = SVGDefsElement { unSVGDefsElement :: JSVal } - -instance Eq (SVGDefsElement) where - (SVGDefsElement a) == (SVGDefsElement b) = js_eq a b - -instance PToJSVal SVGDefsElement where - pToJSVal = unSVGDefsElement - {-# INLINE pToJSVal #-} - -instance PFromJSVal SVGDefsElement where - pFromJSVal = SVGDefsElement - {-# INLINE pFromJSVal #-} - -instance ToJSVal SVGDefsElement where - toJSVal = return . unSVGDefsElement - {-# INLINE toJSVal #-} - -instance FromJSVal SVGDefsElement where - fromJSVal = return . fmap SVGDefsElement . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsSVGGraphicsElement SVGDefsElement -instance IsSVGElement SVGDefsElement -instance IsElement SVGDefsElement -instance IsNode SVGDefsElement -instance IsEventTarget SVGDefsElement -instance IsGObject SVGDefsElement where - toGObject = GObject . unSVGDefsElement - {-# INLINE toGObject #-} - unsafeCastGObject = SVGDefsElement . unGObject - {-# INLINE unsafeCastGObject #-} - -castToSVGDefsElement :: IsGObject obj => obj -> IO SVGDefsElement -castToSVGDefsElement = castTo gTypeSVGDefsElement "SVGDefsElement" - -foreign import javascript unsafe "window[\"SVGDefsElement\"]" gTypeSVGDefsElement :: GType - --- | Functions for this inteface are in "GHCJS.DOM.SVGDescElement". --- Base interface functions are in: --- --- * "GHCJS.DOM.SVGElement" --- * "GHCJS.DOM.Element" --- * "GHCJS.DOM.Node" --- * "GHCJS.DOM.EventTarget" --- --- -newtype SVGDescElement = SVGDescElement { unSVGDescElement :: JSVal } - -instance Eq (SVGDescElement) where - (SVGDescElement a) == (SVGDescElement b) = js_eq a b - -instance PToJSVal SVGDescElement where - pToJSVal = unSVGDescElement - {-# INLINE pToJSVal #-} - -instance PFromJSVal SVGDescElement where - pFromJSVal = SVGDescElement - {-# INLINE pFromJSVal #-} - -instance ToJSVal SVGDescElement where - toJSVal = return . unSVGDescElement - {-# INLINE toJSVal #-} - -instance FromJSVal SVGDescElement where - fromJSVal = return . fmap SVGDescElement . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsSVGElement SVGDescElement -instance IsElement SVGDescElement -instance IsNode SVGDescElement -instance IsEventTarget SVGDescElement -instance IsGObject SVGDescElement where - toGObject = GObject . unSVGDescElement - {-# INLINE toGObject #-} - unsafeCastGObject = SVGDescElement . unGObject - {-# INLINE unsafeCastGObject #-} - -castToSVGDescElement :: IsGObject obj => obj -> IO SVGDescElement -castToSVGDescElement = castTo gTypeSVGDescElement "SVGDescElement" - -foreign import javascript unsafe "window[\"SVGDescElement\"]" gTypeSVGDescElement :: GType - --- | Functions for this inteface are in "GHCJS.DOM.SVGDocument". --- Base interface functions are in: --- --- * "GHCJS.DOM.Document" --- * "GHCJS.DOM.Node" --- * "GHCJS.DOM.EventTarget" --- --- -newtype SVGDocument = SVGDocument { unSVGDocument :: JSVal } - -instance Eq (SVGDocument) where - (SVGDocument a) == (SVGDocument b) = js_eq a b - -instance PToJSVal SVGDocument where - pToJSVal = unSVGDocument - {-# INLINE pToJSVal #-} - -instance PFromJSVal SVGDocument where - pFromJSVal = SVGDocument - {-# INLINE pFromJSVal #-} - -instance ToJSVal SVGDocument where - toJSVal = return . unSVGDocument - {-# INLINE toJSVal #-} - -instance FromJSVal SVGDocument where - fromJSVal = return . fmap SVGDocument . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsDocument SVGDocument -instance IsNode SVGDocument -instance IsEventTarget SVGDocument -instance IsGObject SVGDocument where - toGObject = GObject . unSVGDocument - {-# INLINE toGObject #-} - unsafeCastGObject = SVGDocument . unGObject - {-# INLINE unsafeCastGObject #-} - -castToSVGDocument :: IsGObject obj => obj -> IO SVGDocument -castToSVGDocument = castTo gTypeSVGDocument "SVGDocument" - -foreign import javascript unsafe "window[\"SVGDocument\"]" gTypeSVGDocument :: GType - --- | Functions for this inteface are in "GHCJS.DOM.SVGElement". --- Base interface functions are in: --- --- * "GHCJS.DOM.Element" --- * "GHCJS.DOM.Node" --- * "GHCJS.DOM.EventTarget" --- --- -newtype SVGElement = SVGElement { unSVGElement :: JSVal } - -instance Eq (SVGElement) where - (SVGElement a) == (SVGElement b) = js_eq a b - -instance PToJSVal SVGElement where - pToJSVal = unSVGElement - {-# INLINE pToJSVal #-} - -instance PFromJSVal SVGElement where - pFromJSVal = SVGElement - {-# INLINE pFromJSVal #-} - -instance ToJSVal SVGElement where - toJSVal = return . unSVGElement - {-# INLINE toJSVal #-} - -instance FromJSVal SVGElement where - fromJSVal = return . fmap SVGElement . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -class IsElement o => IsSVGElement o -toSVGElement :: IsSVGElement o => o -> SVGElement -toSVGElement = unsafeCastGObject . toGObject - -instance IsSVGElement SVGElement -instance IsElement SVGElement -instance IsNode SVGElement -instance IsEventTarget SVGElement -instance IsGObject SVGElement where - toGObject = GObject . unSVGElement - {-# INLINE toGObject #-} - unsafeCastGObject = SVGElement . unGObject - {-# INLINE unsafeCastGObject #-} - -castToSVGElement :: IsGObject obj => obj -> IO SVGElement -castToSVGElement = castTo gTypeSVGElement "SVGElement" - -foreign import javascript unsafe "window[\"SVGElement\"]" gTypeSVGElement :: GType - --- | Functions for this inteface are in "GHCJS.DOM.SVGEllipseElement". --- Base interface functions are in: --- --- * "GHCJS.DOM.SVGGraphicsElement" --- * "GHCJS.DOM.SVGElement" --- * "GHCJS.DOM.Element" --- * "GHCJS.DOM.Node" --- * "GHCJS.DOM.EventTarget" --- --- -newtype SVGEllipseElement = SVGEllipseElement { unSVGEllipseElement :: JSVal } - -instance Eq (SVGEllipseElement) where - (SVGEllipseElement a) == (SVGEllipseElement b) = js_eq a b - -instance PToJSVal SVGEllipseElement where - pToJSVal = unSVGEllipseElement - {-# INLINE pToJSVal #-} - -instance PFromJSVal SVGEllipseElement where - pFromJSVal = SVGEllipseElement - {-# INLINE pFromJSVal #-} - -instance ToJSVal SVGEllipseElement where - toJSVal = return . unSVGEllipseElement - {-# INLINE toJSVal #-} - -instance FromJSVal SVGEllipseElement where - fromJSVal = return . fmap SVGEllipseElement . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsSVGGraphicsElement SVGEllipseElement -instance IsSVGElement SVGEllipseElement -instance IsElement SVGEllipseElement -instance IsNode SVGEllipseElement -instance IsEventTarget SVGEllipseElement -instance IsGObject SVGEllipseElement where - toGObject = GObject . unSVGEllipseElement - {-# INLINE toGObject #-} - unsafeCastGObject = SVGEllipseElement . unGObject - {-# INLINE unsafeCastGObject #-} - -castToSVGEllipseElement :: IsGObject obj => obj -> IO SVGEllipseElement -castToSVGEllipseElement = castTo gTypeSVGEllipseElement "SVGEllipseElement" - -foreign import javascript unsafe "window[\"SVGEllipseElement\"]" gTypeSVGEllipseElement :: GType - --- | Functions for this inteface are in "GHCJS.DOM.SVGExternalResourcesRequired". --- --- -newtype SVGExternalResourcesRequired = SVGExternalResourcesRequired { unSVGExternalResourcesRequired :: JSVal } - -instance Eq (SVGExternalResourcesRequired) where - (SVGExternalResourcesRequired a) == (SVGExternalResourcesRequired b) = js_eq a b - -instance PToJSVal SVGExternalResourcesRequired where - pToJSVal = unSVGExternalResourcesRequired - {-# INLINE pToJSVal #-} - -instance PFromJSVal SVGExternalResourcesRequired where - pFromJSVal = SVGExternalResourcesRequired - {-# INLINE pFromJSVal #-} - -instance ToJSVal SVGExternalResourcesRequired where - toJSVal = return . unSVGExternalResourcesRequired - {-# INLINE toJSVal #-} - -instance FromJSVal SVGExternalResourcesRequired where - fromJSVal = return . fmap SVGExternalResourcesRequired . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsGObject SVGExternalResourcesRequired where - toGObject = GObject . unSVGExternalResourcesRequired - {-# INLINE toGObject #-} - unsafeCastGObject = SVGExternalResourcesRequired . unGObject - {-# INLINE unsafeCastGObject #-} - -castToSVGExternalResourcesRequired :: IsGObject obj => obj -> IO SVGExternalResourcesRequired -castToSVGExternalResourcesRequired = castTo gTypeSVGExternalResourcesRequired "SVGExternalResourcesRequired" - -foreign import javascript unsafe "window[\"SVGExternalResourcesRequired\"]" gTypeSVGExternalResourcesRequired :: GType - --- | Functions for this inteface are in "GHCJS.DOM.SVGFEBlendElement". --- Base interface functions are in: --- --- * "GHCJS.DOM.SVGElement" --- * "GHCJS.DOM.Element" --- * "GHCJS.DOM.Node" --- * "GHCJS.DOM.EventTarget" --- --- -newtype SVGFEBlendElement = SVGFEBlendElement { unSVGFEBlendElement :: JSVal } - -instance Eq (SVGFEBlendElement) where - (SVGFEBlendElement a) == (SVGFEBlendElement b) = js_eq a b - -instance PToJSVal SVGFEBlendElement where - pToJSVal = unSVGFEBlendElement - {-# INLINE pToJSVal #-} - -instance PFromJSVal SVGFEBlendElement where - pFromJSVal = SVGFEBlendElement - {-# INLINE pFromJSVal #-} - -instance ToJSVal SVGFEBlendElement where - toJSVal = return . unSVGFEBlendElement - {-# INLINE toJSVal #-} - -instance FromJSVal SVGFEBlendElement where - fromJSVal = return . fmap SVGFEBlendElement . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsSVGElement SVGFEBlendElement -instance IsElement SVGFEBlendElement -instance IsNode SVGFEBlendElement -instance IsEventTarget SVGFEBlendElement -instance IsGObject SVGFEBlendElement where - toGObject = GObject . unSVGFEBlendElement - {-# INLINE toGObject #-} - unsafeCastGObject = SVGFEBlendElement . unGObject - {-# INLINE unsafeCastGObject #-} - -castToSVGFEBlendElement :: IsGObject obj => obj -> IO SVGFEBlendElement -castToSVGFEBlendElement = castTo gTypeSVGFEBlendElement "SVGFEBlendElement" - -foreign import javascript unsafe "window[\"SVGFEBlendElement\"]" gTypeSVGFEBlendElement :: GType - --- | Functions for this inteface are in "GHCJS.DOM.SVGFEColorMatrixElement". --- Base interface functions are in: --- --- * "GHCJS.DOM.SVGElement" --- * "GHCJS.DOM.Element" --- * "GHCJS.DOM.Node" --- * "GHCJS.DOM.EventTarget" --- --- -newtype SVGFEColorMatrixElement = SVGFEColorMatrixElement { unSVGFEColorMatrixElement :: JSVal } - -instance Eq (SVGFEColorMatrixElement) where - (SVGFEColorMatrixElement a) == (SVGFEColorMatrixElement b) = js_eq a b - -instance PToJSVal SVGFEColorMatrixElement where - pToJSVal = unSVGFEColorMatrixElement - {-# INLINE pToJSVal #-} - -instance PFromJSVal SVGFEColorMatrixElement where - pFromJSVal = SVGFEColorMatrixElement - {-# INLINE pFromJSVal #-} - -instance ToJSVal SVGFEColorMatrixElement where - toJSVal = return . unSVGFEColorMatrixElement - {-# INLINE toJSVal #-} - -instance FromJSVal SVGFEColorMatrixElement where - fromJSVal = return . fmap SVGFEColorMatrixElement . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsSVGElement SVGFEColorMatrixElement -instance IsElement SVGFEColorMatrixElement -instance IsNode SVGFEColorMatrixElement -instance IsEventTarget SVGFEColorMatrixElement -instance IsGObject SVGFEColorMatrixElement where - toGObject = GObject . unSVGFEColorMatrixElement - {-# INLINE toGObject #-} - unsafeCastGObject = SVGFEColorMatrixElement . unGObject - {-# INLINE unsafeCastGObject #-} - -castToSVGFEColorMatrixElement :: IsGObject obj => obj -> IO SVGFEColorMatrixElement -castToSVGFEColorMatrixElement = castTo gTypeSVGFEColorMatrixElement "SVGFEColorMatrixElement" - -foreign import javascript unsafe "window[\"SVGFEColorMatrixElement\"]" gTypeSVGFEColorMatrixElement :: GType - --- | Functions for this inteface are in "GHCJS.DOM.SVGFEComponentTransferElement". --- Base interface functions are in: --- --- * "GHCJS.DOM.SVGElement" --- * "GHCJS.DOM.Element" --- * "GHCJS.DOM.Node" --- * "GHCJS.DOM.EventTarget" --- --- -newtype SVGFEComponentTransferElement = SVGFEComponentTransferElement { unSVGFEComponentTransferElement :: JSVal } - -instance Eq (SVGFEComponentTransferElement) where - (SVGFEComponentTransferElement a) == (SVGFEComponentTransferElement b) = js_eq a b - -instance PToJSVal SVGFEComponentTransferElement where - pToJSVal = unSVGFEComponentTransferElement - {-# INLINE pToJSVal #-} - -instance PFromJSVal SVGFEComponentTransferElement where - pFromJSVal = SVGFEComponentTransferElement - {-# INLINE pFromJSVal #-} - -instance ToJSVal SVGFEComponentTransferElement where - toJSVal = return . unSVGFEComponentTransferElement - {-# INLINE toJSVal #-} - -instance FromJSVal SVGFEComponentTransferElement where - fromJSVal = return . fmap SVGFEComponentTransferElement . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsSVGElement SVGFEComponentTransferElement -instance IsElement SVGFEComponentTransferElement -instance IsNode SVGFEComponentTransferElement -instance IsEventTarget SVGFEComponentTransferElement -instance IsGObject SVGFEComponentTransferElement where - toGObject = GObject . unSVGFEComponentTransferElement - {-# INLINE toGObject #-} - unsafeCastGObject = SVGFEComponentTransferElement . unGObject - {-# INLINE unsafeCastGObject #-} - -castToSVGFEComponentTransferElement :: IsGObject obj => obj -> IO SVGFEComponentTransferElement -castToSVGFEComponentTransferElement = castTo gTypeSVGFEComponentTransferElement "SVGFEComponentTransferElement" - -foreign import javascript unsafe "window[\"SVGFEComponentTransferElement\"]" gTypeSVGFEComponentTransferElement :: GType - --- | Functions for this inteface are in "GHCJS.DOM.SVGFECompositeElement". --- Base interface functions are in: --- --- * "GHCJS.DOM.SVGElement" --- * "GHCJS.DOM.Element" --- * "GHCJS.DOM.Node" --- * "GHCJS.DOM.EventTarget" --- --- -newtype SVGFECompositeElement = SVGFECompositeElement { unSVGFECompositeElement :: JSVal } - -instance Eq (SVGFECompositeElement) where - (SVGFECompositeElement a) == (SVGFECompositeElement b) = js_eq a b - -instance PToJSVal SVGFECompositeElement where - pToJSVal = unSVGFECompositeElement - {-# INLINE pToJSVal #-} - -instance PFromJSVal SVGFECompositeElement where - pFromJSVal = SVGFECompositeElement - {-# INLINE pFromJSVal #-} - -instance ToJSVal SVGFECompositeElement where - toJSVal = return . unSVGFECompositeElement - {-# INLINE toJSVal #-} - -instance FromJSVal SVGFECompositeElement where - fromJSVal = return . fmap SVGFECompositeElement . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsSVGElement SVGFECompositeElement -instance IsElement SVGFECompositeElement -instance IsNode SVGFECompositeElement -instance IsEventTarget SVGFECompositeElement -instance IsGObject SVGFECompositeElement where - toGObject = GObject . unSVGFECompositeElement - {-# INLINE toGObject #-} - unsafeCastGObject = SVGFECompositeElement . unGObject - {-# INLINE unsafeCastGObject #-} - -castToSVGFECompositeElement :: IsGObject obj => obj -> IO SVGFECompositeElement -castToSVGFECompositeElement = castTo gTypeSVGFECompositeElement "SVGFECompositeElement" - -foreign import javascript unsafe "window[\"SVGFECompositeElement\"]" gTypeSVGFECompositeElement :: GType - --- | Functions for this inteface are in "GHCJS.DOM.SVGFEConvolveMatrixElement". --- Base interface functions are in: --- --- * "GHCJS.DOM.SVGElement" --- * "GHCJS.DOM.Element" --- * "GHCJS.DOM.Node" --- * "GHCJS.DOM.EventTarget" --- --- -newtype SVGFEConvolveMatrixElement = SVGFEConvolveMatrixElement { unSVGFEConvolveMatrixElement :: JSVal } - -instance Eq (SVGFEConvolveMatrixElement) where - (SVGFEConvolveMatrixElement a) == (SVGFEConvolveMatrixElement b) = js_eq a b - -instance PToJSVal SVGFEConvolveMatrixElement where - pToJSVal = unSVGFEConvolveMatrixElement - {-# INLINE pToJSVal #-} - -instance PFromJSVal SVGFEConvolveMatrixElement where - pFromJSVal = SVGFEConvolveMatrixElement - {-# INLINE pFromJSVal #-} - -instance ToJSVal SVGFEConvolveMatrixElement where - toJSVal = return . unSVGFEConvolveMatrixElement - {-# INLINE toJSVal #-} - -instance FromJSVal SVGFEConvolveMatrixElement where - fromJSVal = return . fmap SVGFEConvolveMatrixElement . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsSVGElement SVGFEConvolveMatrixElement -instance IsElement SVGFEConvolveMatrixElement -instance IsNode SVGFEConvolveMatrixElement -instance IsEventTarget SVGFEConvolveMatrixElement -instance IsGObject SVGFEConvolveMatrixElement where - toGObject = GObject . unSVGFEConvolveMatrixElement - {-# INLINE toGObject #-} - unsafeCastGObject = SVGFEConvolveMatrixElement . unGObject - {-# INLINE unsafeCastGObject #-} - -castToSVGFEConvolveMatrixElement :: IsGObject obj => obj -> IO SVGFEConvolveMatrixElement -castToSVGFEConvolveMatrixElement = castTo gTypeSVGFEConvolveMatrixElement "SVGFEConvolveMatrixElement" - -foreign import javascript unsafe "window[\"SVGFEConvolveMatrixElement\"]" gTypeSVGFEConvolveMatrixElement :: GType - --- | Functions for this inteface are in "GHCJS.DOM.SVGFEDiffuseLightingElement". --- Base interface functions are in: --- --- * "GHCJS.DOM.SVGElement" --- * "GHCJS.DOM.Element" --- * "GHCJS.DOM.Node" --- * "GHCJS.DOM.EventTarget" --- --- -newtype SVGFEDiffuseLightingElement = SVGFEDiffuseLightingElement { unSVGFEDiffuseLightingElement :: JSVal } - -instance Eq (SVGFEDiffuseLightingElement) where - (SVGFEDiffuseLightingElement a) == (SVGFEDiffuseLightingElement b) = js_eq a b - -instance PToJSVal SVGFEDiffuseLightingElement where - pToJSVal = unSVGFEDiffuseLightingElement - {-# INLINE pToJSVal #-} - -instance PFromJSVal SVGFEDiffuseLightingElement where - pFromJSVal = SVGFEDiffuseLightingElement - {-# INLINE pFromJSVal #-} - -instance ToJSVal SVGFEDiffuseLightingElement where - toJSVal = return . unSVGFEDiffuseLightingElement - {-# INLINE toJSVal #-} - -instance FromJSVal SVGFEDiffuseLightingElement where - fromJSVal = return . fmap SVGFEDiffuseLightingElement . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsSVGElement SVGFEDiffuseLightingElement -instance IsElement SVGFEDiffuseLightingElement -instance IsNode SVGFEDiffuseLightingElement -instance IsEventTarget SVGFEDiffuseLightingElement -instance IsGObject SVGFEDiffuseLightingElement where - toGObject = GObject . unSVGFEDiffuseLightingElement - {-# INLINE toGObject #-} - unsafeCastGObject = SVGFEDiffuseLightingElement . unGObject - {-# INLINE unsafeCastGObject #-} - -castToSVGFEDiffuseLightingElement :: IsGObject obj => obj -> IO SVGFEDiffuseLightingElement -castToSVGFEDiffuseLightingElement = castTo gTypeSVGFEDiffuseLightingElement "SVGFEDiffuseLightingElement" - -foreign import javascript unsafe "window[\"SVGFEDiffuseLightingElement\"]" gTypeSVGFEDiffuseLightingElement :: GType - --- | Functions for this inteface are in "GHCJS.DOM.SVGFEDisplacementMapElement". --- Base interface functions are in: --- --- * "GHCJS.DOM.SVGElement" --- * "GHCJS.DOM.Element" --- * "GHCJS.DOM.Node" --- * "GHCJS.DOM.EventTarget" --- --- -newtype SVGFEDisplacementMapElement = SVGFEDisplacementMapElement { unSVGFEDisplacementMapElement :: JSVal } - -instance Eq (SVGFEDisplacementMapElement) where - (SVGFEDisplacementMapElement a) == (SVGFEDisplacementMapElement b) = js_eq a b - -instance PToJSVal SVGFEDisplacementMapElement where - pToJSVal = unSVGFEDisplacementMapElement - {-# INLINE pToJSVal #-} - -instance PFromJSVal SVGFEDisplacementMapElement where - pFromJSVal = SVGFEDisplacementMapElement - {-# INLINE pFromJSVal #-} - -instance ToJSVal SVGFEDisplacementMapElement where - toJSVal = return . unSVGFEDisplacementMapElement - {-# INLINE toJSVal #-} - -instance FromJSVal SVGFEDisplacementMapElement where - fromJSVal = return . fmap SVGFEDisplacementMapElement . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsSVGElement SVGFEDisplacementMapElement -instance IsElement SVGFEDisplacementMapElement -instance IsNode SVGFEDisplacementMapElement -instance IsEventTarget SVGFEDisplacementMapElement -instance IsGObject SVGFEDisplacementMapElement where - toGObject = GObject . unSVGFEDisplacementMapElement - {-# INLINE toGObject #-} - unsafeCastGObject = SVGFEDisplacementMapElement . unGObject - {-# INLINE unsafeCastGObject #-} - -castToSVGFEDisplacementMapElement :: IsGObject obj => obj -> IO SVGFEDisplacementMapElement -castToSVGFEDisplacementMapElement = castTo gTypeSVGFEDisplacementMapElement "SVGFEDisplacementMapElement" - -foreign import javascript unsafe "window[\"SVGFEDisplacementMapElement\"]" gTypeSVGFEDisplacementMapElement :: GType - --- | Functions for this inteface are in "GHCJS.DOM.SVGFEDistantLightElement". --- Base interface functions are in: --- --- * "GHCJS.DOM.SVGElement" --- * "GHCJS.DOM.Element" --- * "GHCJS.DOM.Node" --- * "GHCJS.DOM.EventTarget" --- --- -newtype SVGFEDistantLightElement = SVGFEDistantLightElement { unSVGFEDistantLightElement :: JSVal } - -instance Eq (SVGFEDistantLightElement) where - (SVGFEDistantLightElement a) == (SVGFEDistantLightElement b) = js_eq a b - -instance PToJSVal SVGFEDistantLightElement where - pToJSVal = unSVGFEDistantLightElement - {-# INLINE pToJSVal #-} - -instance PFromJSVal SVGFEDistantLightElement where - pFromJSVal = SVGFEDistantLightElement - {-# INLINE pFromJSVal #-} - -instance ToJSVal SVGFEDistantLightElement where - toJSVal = return . unSVGFEDistantLightElement - {-# INLINE toJSVal #-} - -instance FromJSVal SVGFEDistantLightElement where - fromJSVal = return . fmap SVGFEDistantLightElement . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsSVGElement SVGFEDistantLightElement -instance IsElement SVGFEDistantLightElement -instance IsNode SVGFEDistantLightElement -instance IsEventTarget SVGFEDistantLightElement -instance IsGObject SVGFEDistantLightElement where - toGObject = GObject . unSVGFEDistantLightElement - {-# INLINE toGObject #-} - unsafeCastGObject = SVGFEDistantLightElement . unGObject - {-# INLINE unsafeCastGObject #-} - -castToSVGFEDistantLightElement :: IsGObject obj => obj -> IO SVGFEDistantLightElement -castToSVGFEDistantLightElement = castTo gTypeSVGFEDistantLightElement "SVGFEDistantLightElement" - -foreign import javascript unsafe "window[\"SVGFEDistantLightElement\"]" gTypeSVGFEDistantLightElement :: GType - --- | Functions for this inteface are in "GHCJS.DOM.SVGFEDropShadowElement". --- Base interface functions are in: --- --- * "GHCJS.DOM.SVGElement" --- * "GHCJS.DOM.Element" --- * "GHCJS.DOM.Node" --- * "GHCJS.DOM.EventTarget" --- --- -newtype SVGFEDropShadowElement = SVGFEDropShadowElement { unSVGFEDropShadowElement :: JSVal } - -instance Eq (SVGFEDropShadowElement) where - (SVGFEDropShadowElement a) == (SVGFEDropShadowElement b) = js_eq a b - -instance PToJSVal SVGFEDropShadowElement where - pToJSVal = unSVGFEDropShadowElement - {-# INLINE pToJSVal #-} - -instance PFromJSVal SVGFEDropShadowElement where - pFromJSVal = SVGFEDropShadowElement - {-# INLINE pFromJSVal #-} - -instance ToJSVal SVGFEDropShadowElement where - toJSVal = return . unSVGFEDropShadowElement - {-# INLINE toJSVal #-} - -instance FromJSVal SVGFEDropShadowElement where - fromJSVal = return . fmap SVGFEDropShadowElement . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsSVGElement SVGFEDropShadowElement -instance IsElement SVGFEDropShadowElement -instance IsNode SVGFEDropShadowElement -instance IsEventTarget SVGFEDropShadowElement -instance IsGObject SVGFEDropShadowElement where - toGObject = GObject . unSVGFEDropShadowElement - {-# INLINE toGObject #-} - unsafeCastGObject = SVGFEDropShadowElement . unGObject - {-# INLINE unsafeCastGObject #-} - -castToSVGFEDropShadowElement :: IsGObject obj => obj -> IO SVGFEDropShadowElement -castToSVGFEDropShadowElement = castTo gTypeSVGFEDropShadowElement "SVGFEDropShadowElement" - -foreign import javascript unsafe "window[\"SVGFEDropShadowElement\"]" gTypeSVGFEDropShadowElement :: GType - --- | Functions for this inteface are in "GHCJS.DOM.SVGFEFloodElement". --- Base interface functions are in: --- --- * "GHCJS.DOM.SVGElement" --- * "GHCJS.DOM.Element" --- * "GHCJS.DOM.Node" --- * "GHCJS.DOM.EventTarget" --- --- -newtype SVGFEFloodElement = SVGFEFloodElement { unSVGFEFloodElement :: JSVal } - -instance Eq (SVGFEFloodElement) where - (SVGFEFloodElement a) == (SVGFEFloodElement b) = js_eq a b - -instance PToJSVal SVGFEFloodElement where - pToJSVal = unSVGFEFloodElement - {-# INLINE pToJSVal #-} - -instance PFromJSVal SVGFEFloodElement where - pFromJSVal = SVGFEFloodElement - {-# INLINE pFromJSVal #-} - -instance ToJSVal SVGFEFloodElement where - toJSVal = return . unSVGFEFloodElement - {-# INLINE toJSVal #-} - -instance FromJSVal SVGFEFloodElement where - fromJSVal = return . fmap SVGFEFloodElement . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsSVGElement SVGFEFloodElement -instance IsElement SVGFEFloodElement -instance IsNode SVGFEFloodElement -instance IsEventTarget SVGFEFloodElement -instance IsGObject SVGFEFloodElement where - toGObject = GObject . unSVGFEFloodElement - {-# INLINE toGObject #-} - unsafeCastGObject = SVGFEFloodElement . unGObject - {-# INLINE unsafeCastGObject #-} - -castToSVGFEFloodElement :: IsGObject obj => obj -> IO SVGFEFloodElement -castToSVGFEFloodElement = castTo gTypeSVGFEFloodElement "SVGFEFloodElement" - -foreign import javascript unsafe "window[\"SVGFEFloodElement\"]" gTypeSVGFEFloodElement :: GType - --- | Functions for this inteface are in "GHCJS.DOM.SVGFEFuncAElement". --- Base interface functions are in: --- --- * "GHCJS.DOM.SVGComponentTransferFunctionElement" --- * "GHCJS.DOM.SVGElement" --- * "GHCJS.DOM.Element" --- * "GHCJS.DOM.Node" --- * "GHCJS.DOM.EventTarget" --- --- -newtype SVGFEFuncAElement = SVGFEFuncAElement { unSVGFEFuncAElement :: JSVal } - -instance Eq (SVGFEFuncAElement) where - (SVGFEFuncAElement a) == (SVGFEFuncAElement b) = js_eq a b - -instance PToJSVal SVGFEFuncAElement where - pToJSVal = unSVGFEFuncAElement - {-# INLINE pToJSVal #-} - -instance PFromJSVal SVGFEFuncAElement where - pFromJSVal = SVGFEFuncAElement - {-# INLINE pFromJSVal #-} - -instance ToJSVal SVGFEFuncAElement where - toJSVal = return . unSVGFEFuncAElement - {-# INLINE toJSVal #-} - -instance FromJSVal SVGFEFuncAElement where - fromJSVal = return . fmap SVGFEFuncAElement . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsSVGComponentTransferFunctionElement SVGFEFuncAElement -instance IsSVGElement SVGFEFuncAElement -instance IsElement SVGFEFuncAElement -instance IsNode SVGFEFuncAElement -instance IsEventTarget SVGFEFuncAElement -instance IsGObject SVGFEFuncAElement where - toGObject = GObject . unSVGFEFuncAElement - {-# INLINE toGObject #-} - unsafeCastGObject = SVGFEFuncAElement . unGObject - {-# INLINE unsafeCastGObject #-} - -castToSVGFEFuncAElement :: IsGObject obj => obj -> IO SVGFEFuncAElement -castToSVGFEFuncAElement = castTo gTypeSVGFEFuncAElement "SVGFEFuncAElement" - -foreign import javascript unsafe "window[\"SVGFEFuncAElement\"]" gTypeSVGFEFuncAElement :: GType - --- | Functions for this inteface are in "GHCJS.DOM.SVGFEFuncBElement". --- Base interface functions are in: --- --- * "GHCJS.DOM.SVGComponentTransferFunctionElement" --- * "GHCJS.DOM.SVGElement" --- * "GHCJS.DOM.Element" --- * "GHCJS.DOM.Node" --- * "GHCJS.DOM.EventTarget" --- --- -newtype SVGFEFuncBElement = SVGFEFuncBElement { unSVGFEFuncBElement :: JSVal } - -instance Eq (SVGFEFuncBElement) where - (SVGFEFuncBElement a) == (SVGFEFuncBElement b) = js_eq a b - -instance PToJSVal SVGFEFuncBElement where - pToJSVal = unSVGFEFuncBElement - {-# INLINE pToJSVal #-} - -instance PFromJSVal SVGFEFuncBElement where - pFromJSVal = SVGFEFuncBElement - {-# INLINE pFromJSVal #-} - -instance ToJSVal SVGFEFuncBElement where - toJSVal = return . unSVGFEFuncBElement - {-# INLINE toJSVal #-} - -instance FromJSVal SVGFEFuncBElement where - fromJSVal = return . fmap SVGFEFuncBElement . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsSVGComponentTransferFunctionElement SVGFEFuncBElement -instance IsSVGElement SVGFEFuncBElement -instance IsElement SVGFEFuncBElement -instance IsNode SVGFEFuncBElement -instance IsEventTarget SVGFEFuncBElement -instance IsGObject SVGFEFuncBElement where - toGObject = GObject . unSVGFEFuncBElement - {-# INLINE toGObject #-} - unsafeCastGObject = SVGFEFuncBElement . unGObject - {-# INLINE unsafeCastGObject #-} - -castToSVGFEFuncBElement :: IsGObject obj => obj -> IO SVGFEFuncBElement -castToSVGFEFuncBElement = castTo gTypeSVGFEFuncBElement "SVGFEFuncBElement" - -foreign import javascript unsafe "window[\"SVGFEFuncBElement\"]" gTypeSVGFEFuncBElement :: GType - --- | Functions for this inteface are in "GHCJS.DOM.SVGFEFuncGElement". --- Base interface functions are in: --- --- * "GHCJS.DOM.SVGComponentTransferFunctionElement" --- * "GHCJS.DOM.SVGElement" --- * "GHCJS.DOM.Element" --- * "GHCJS.DOM.Node" --- * "GHCJS.DOM.EventTarget" --- --- -newtype SVGFEFuncGElement = SVGFEFuncGElement { unSVGFEFuncGElement :: JSVal } - -instance Eq (SVGFEFuncGElement) where - (SVGFEFuncGElement a) == (SVGFEFuncGElement b) = js_eq a b - -instance PToJSVal SVGFEFuncGElement where - pToJSVal = unSVGFEFuncGElement - {-# INLINE pToJSVal #-} - -instance PFromJSVal SVGFEFuncGElement where - pFromJSVal = SVGFEFuncGElement - {-# INLINE pFromJSVal #-} - -instance ToJSVal SVGFEFuncGElement where - toJSVal = return . unSVGFEFuncGElement - {-# INLINE toJSVal #-} - -instance FromJSVal SVGFEFuncGElement where - fromJSVal = return . fmap SVGFEFuncGElement . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsSVGComponentTransferFunctionElement SVGFEFuncGElement -instance IsSVGElement SVGFEFuncGElement -instance IsElement SVGFEFuncGElement -instance IsNode SVGFEFuncGElement -instance IsEventTarget SVGFEFuncGElement -instance IsGObject SVGFEFuncGElement where - toGObject = GObject . unSVGFEFuncGElement - {-# INLINE toGObject #-} - unsafeCastGObject = SVGFEFuncGElement . unGObject - {-# INLINE unsafeCastGObject #-} - -castToSVGFEFuncGElement :: IsGObject obj => obj -> IO SVGFEFuncGElement -castToSVGFEFuncGElement = castTo gTypeSVGFEFuncGElement "SVGFEFuncGElement" - -foreign import javascript unsafe "window[\"SVGFEFuncGElement\"]" gTypeSVGFEFuncGElement :: GType - --- | Functions for this inteface are in "GHCJS.DOM.SVGFEFuncRElement". --- Base interface functions are in: --- --- * "GHCJS.DOM.SVGComponentTransferFunctionElement" --- * "GHCJS.DOM.SVGElement" --- * "GHCJS.DOM.Element" --- * "GHCJS.DOM.Node" --- * "GHCJS.DOM.EventTarget" --- --- -newtype SVGFEFuncRElement = SVGFEFuncRElement { unSVGFEFuncRElement :: JSVal } - -instance Eq (SVGFEFuncRElement) where - (SVGFEFuncRElement a) == (SVGFEFuncRElement b) = js_eq a b - -instance PToJSVal SVGFEFuncRElement where - pToJSVal = unSVGFEFuncRElement - {-# INLINE pToJSVal #-} - -instance PFromJSVal SVGFEFuncRElement where - pFromJSVal = SVGFEFuncRElement - {-# INLINE pFromJSVal #-} - -instance ToJSVal SVGFEFuncRElement where - toJSVal = return . unSVGFEFuncRElement - {-# INLINE toJSVal #-} - -instance FromJSVal SVGFEFuncRElement where - fromJSVal = return . fmap SVGFEFuncRElement . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsSVGComponentTransferFunctionElement SVGFEFuncRElement -instance IsSVGElement SVGFEFuncRElement -instance IsElement SVGFEFuncRElement -instance IsNode SVGFEFuncRElement -instance IsEventTarget SVGFEFuncRElement -instance IsGObject SVGFEFuncRElement where - toGObject = GObject . unSVGFEFuncRElement - {-# INLINE toGObject #-} - unsafeCastGObject = SVGFEFuncRElement . unGObject - {-# INLINE unsafeCastGObject #-} - -castToSVGFEFuncRElement :: IsGObject obj => obj -> IO SVGFEFuncRElement -castToSVGFEFuncRElement = castTo gTypeSVGFEFuncRElement "SVGFEFuncRElement" - -foreign import javascript unsafe "window[\"SVGFEFuncRElement\"]" gTypeSVGFEFuncRElement :: GType - --- | Functions for this inteface are in "GHCJS.DOM.SVGFEGaussianBlurElement". --- Base interface functions are in: --- --- * "GHCJS.DOM.SVGElement" --- * "GHCJS.DOM.Element" --- * "GHCJS.DOM.Node" --- * "GHCJS.DOM.EventTarget" --- --- -newtype SVGFEGaussianBlurElement = SVGFEGaussianBlurElement { unSVGFEGaussianBlurElement :: JSVal } - -instance Eq (SVGFEGaussianBlurElement) where - (SVGFEGaussianBlurElement a) == (SVGFEGaussianBlurElement b) = js_eq a b - -instance PToJSVal SVGFEGaussianBlurElement where - pToJSVal = unSVGFEGaussianBlurElement - {-# INLINE pToJSVal #-} - -instance PFromJSVal SVGFEGaussianBlurElement where - pFromJSVal = SVGFEGaussianBlurElement - {-# INLINE pFromJSVal #-} - -instance ToJSVal SVGFEGaussianBlurElement where - toJSVal = return . unSVGFEGaussianBlurElement - {-# INLINE toJSVal #-} - -instance FromJSVal SVGFEGaussianBlurElement where - fromJSVal = return . fmap SVGFEGaussianBlurElement . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsSVGElement SVGFEGaussianBlurElement -instance IsElement SVGFEGaussianBlurElement -instance IsNode SVGFEGaussianBlurElement -instance IsEventTarget SVGFEGaussianBlurElement -instance IsGObject SVGFEGaussianBlurElement where - toGObject = GObject . unSVGFEGaussianBlurElement - {-# INLINE toGObject #-} - unsafeCastGObject = SVGFEGaussianBlurElement . unGObject - {-# INLINE unsafeCastGObject #-} - -castToSVGFEGaussianBlurElement :: IsGObject obj => obj -> IO SVGFEGaussianBlurElement -castToSVGFEGaussianBlurElement = castTo gTypeSVGFEGaussianBlurElement "SVGFEGaussianBlurElement" - -foreign import javascript unsafe "window[\"SVGFEGaussianBlurElement\"]" gTypeSVGFEGaussianBlurElement :: GType - --- | Functions for this inteface are in "GHCJS.DOM.SVGFEImageElement". --- Base interface functions are in: --- --- * "GHCJS.DOM.SVGElement" --- * "GHCJS.DOM.Element" --- * "GHCJS.DOM.Node" --- * "GHCJS.DOM.EventTarget" --- --- -newtype SVGFEImageElement = SVGFEImageElement { unSVGFEImageElement :: JSVal } - -instance Eq (SVGFEImageElement) where - (SVGFEImageElement a) == (SVGFEImageElement b) = js_eq a b - -instance PToJSVal SVGFEImageElement where - pToJSVal = unSVGFEImageElement - {-# INLINE pToJSVal #-} - -instance PFromJSVal SVGFEImageElement where - pFromJSVal = SVGFEImageElement - {-# INLINE pFromJSVal #-} - -instance ToJSVal SVGFEImageElement where - toJSVal = return . unSVGFEImageElement - {-# INLINE toJSVal #-} - -instance FromJSVal SVGFEImageElement where - fromJSVal = return . fmap SVGFEImageElement . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsSVGElement SVGFEImageElement -instance IsElement SVGFEImageElement -instance IsNode SVGFEImageElement -instance IsEventTarget SVGFEImageElement -instance IsGObject SVGFEImageElement where - toGObject = GObject . unSVGFEImageElement - {-# INLINE toGObject #-} - unsafeCastGObject = SVGFEImageElement . unGObject - {-# INLINE unsafeCastGObject #-} - -castToSVGFEImageElement :: IsGObject obj => obj -> IO SVGFEImageElement -castToSVGFEImageElement = castTo gTypeSVGFEImageElement "SVGFEImageElement" - -foreign import javascript unsafe "window[\"SVGFEImageElement\"]" gTypeSVGFEImageElement :: GType - --- | Functions for this inteface are in "GHCJS.DOM.SVGFEMergeElement". --- Base interface functions are in: --- --- * "GHCJS.DOM.SVGElement" --- * "GHCJS.DOM.Element" --- * "GHCJS.DOM.Node" --- * "GHCJS.DOM.EventTarget" --- --- -newtype SVGFEMergeElement = SVGFEMergeElement { unSVGFEMergeElement :: JSVal } - -instance Eq (SVGFEMergeElement) where - (SVGFEMergeElement a) == (SVGFEMergeElement b) = js_eq a b - -instance PToJSVal SVGFEMergeElement where - pToJSVal = unSVGFEMergeElement - {-# INLINE pToJSVal #-} - -instance PFromJSVal SVGFEMergeElement where - pFromJSVal = SVGFEMergeElement - {-# INLINE pFromJSVal #-} - -instance ToJSVal SVGFEMergeElement where - toJSVal = return . unSVGFEMergeElement - {-# INLINE toJSVal #-} - -instance FromJSVal SVGFEMergeElement where - fromJSVal = return . fmap SVGFEMergeElement . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsSVGElement SVGFEMergeElement -instance IsElement SVGFEMergeElement -instance IsNode SVGFEMergeElement -instance IsEventTarget SVGFEMergeElement -instance IsGObject SVGFEMergeElement where - toGObject = GObject . unSVGFEMergeElement - {-# INLINE toGObject #-} - unsafeCastGObject = SVGFEMergeElement . unGObject - {-# INLINE unsafeCastGObject #-} - -castToSVGFEMergeElement :: IsGObject obj => obj -> IO SVGFEMergeElement -castToSVGFEMergeElement = castTo gTypeSVGFEMergeElement "SVGFEMergeElement" - -foreign import javascript unsafe "window[\"SVGFEMergeElement\"]" gTypeSVGFEMergeElement :: GType - --- | Functions for this inteface are in "GHCJS.DOM.SVGFEMergeNodeElement". --- Base interface functions are in: --- --- * "GHCJS.DOM.SVGElement" --- * "GHCJS.DOM.Element" --- * "GHCJS.DOM.Node" --- * "GHCJS.DOM.EventTarget" --- --- -newtype SVGFEMergeNodeElement = SVGFEMergeNodeElement { unSVGFEMergeNodeElement :: JSVal } - -instance Eq (SVGFEMergeNodeElement) where - (SVGFEMergeNodeElement a) == (SVGFEMergeNodeElement b) = js_eq a b - -instance PToJSVal SVGFEMergeNodeElement where - pToJSVal = unSVGFEMergeNodeElement - {-# INLINE pToJSVal #-} - -instance PFromJSVal SVGFEMergeNodeElement where - pFromJSVal = SVGFEMergeNodeElement - {-# INLINE pFromJSVal #-} - -instance ToJSVal SVGFEMergeNodeElement where - toJSVal = return . unSVGFEMergeNodeElement - {-# INLINE toJSVal #-} - -instance FromJSVal SVGFEMergeNodeElement where - fromJSVal = return . fmap SVGFEMergeNodeElement . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsSVGElement SVGFEMergeNodeElement -instance IsElement SVGFEMergeNodeElement -instance IsNode SVGFEMergeNodeElement -instance IsEventTarget SVGFEMergeNodeElement -instance IsGObject SVGFEMergeNodeElement where - toGObject = GObject . unSVGFEMergeNodeElement - {-# INLINE toGObject #-} - unsafeCastGObject = SVGFEMergeNodeElement . unGObject - {-# INLINE unsafeCastGObject #-} - -castToSVGFEMergeNodeElement :: IsGObject obj => obj -> IO SVGFEMergeNodeElement -castToSVGFEMergeNodeElement = castTo gTypeSVGFEMergeNodeElement "SVGFEMergeNodeElement" - -foreign import javascript unsafe "window[\"SVGFEMergeNodeElement\"]" gTypeSVGFEMergeNodeElement :: GType - --- | Functions for this inteface are in "GHCJS.DOM.SVGFEMorphologyElement". --- Base interface functions are in: --- --- * "GHCJS.DOM.SVGElement" --- * "GHCJS.DOM.Element" --- * "GHCJS.DOM.Node" --- * "GHCJS.DOM.EventTarget" --- --- -newtype SVGFEMorphologyElement = SVGFEMorphologyElement { unSVGFEMorphologyElement :: JSVal } - -instance Eq (SVGFEMorphologyElement) where - (SVGFEMorphologyElement a) == (SVGFEMorphologyElement b) = js_eq a b - -instance PToJSVal SVGFEMorphologyElement where - pToJSVal = unSVGFEMorphologyElement - {-# INLINE pToJSVal #-} - -instance PFromJSVal SVGFEMorphologyElement where - pFromJSVal = SVGFEMorphologyElement - {-# INLINE pFromJSVal #-} - -instance ToJSVal SVGFEMorphologyElement where - toJSVal = return . unSVGFEMorphologyElement - {-# INLINE toJSVal #-} - -instance FromJSVal SVGFEMorphologyElement where - fromJSVal = return . fmap SVGFEMorphologyElement . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsSVGElement SVGFEMorphologyElement -instance IsElement SVGFEMorphologyElement -instance IsNode SVGFEMorphologyElement -instance IsEventTarget SVGFEMorphologyElement -instance IsGObject SVGFEMorphologyElement where - toGObject = GObject . unSVGFEMorphologyElement - {-# INLINE toGObject #-} - unsafeCastGObject = SVGFEMorphologyElement . unGObject - {-# INLINE unsafeCastGObject #-} - -castToSVGFEMorphologyElement :: IsGObject obj => obj -> IO SVGFEMorphologyElement -castToSVGFEMorphologyElement = castTo gTypeSVGFEMorphologyElement "SVGFEMorphologyElement" - -foreign import javascript unsafe "window[\"SVGFEMorphologyElement\"]" gTypeSVGFEMorphologyElement :: GType - --- | Functions for this inteface are in "GHCJS.DOM.SVGFEOffsetElement". --- Base interface functions are in: --- --- * "GHCJS.DOM.SVGElement" --- * "GHCJS.DOM.Element" --- * "GHCJS.DOM.Node" --- * "GHCJS.DOM.EventTarget" --- --- -newtype SVGFEOffsetElement = SVGFEOffsetElement { unSVGFEOffsetElement :: JSVal } - -instance Eq (SVGFEOffsetElement) where - (SVGFEOffsetElement a) == (SVGFEOffsetElement b) = js_eq a b - -instance PToJSVal SVGFEOffsetElement where - pToJSVal = unSVGFEOffsetElement - {-# INLINE pToJSVal #-} - -instance PFromJSVal SVGFEOffsetElement where - pFromJSVal = SVGFEOffsetElement - {-# INLINE pFromJSVal #-} - -instance ToJSVal SVGFEOffsetElement where - toJSVal = return . unSVGFEOffsetElement - {-# INLINE toJSVal #-} - -instance FromJSVal SVGFEOffsetElement where - fromJSVal = return . fmap SVGFEOffsetElement . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsSVGElement SVGFEOffsetElement -instance IsElement SVGFEOffsetElement -instance IsNode SVGFEOffsetElement -instance IsEventTarget SVGFEOffsetElement -instance IsGObject SVGFEOffsetElement where - toGObject = GObject . unSVGFEOffsetElement - {-# INLINE toGObject #-} - unsafeCastGObject = SVGFEOffsetElement . unGObject - {-# INLINE unsafeCastGObject #-} - -castToSVGFEOffsetElement :: IsGObject obj => obj -> IO SVGFEOffsetElement -castToSVGFEOffsetElement = castTo gTypeSVGFEOffsetElement "SVGFEOffsetElement" - -foreign import javascript unsafe "window[\"SVGFEOffsetElement\"]" gTypeSVGFEOffsetElement :: GType - --- | Functions for this inteface are in "GHCJS.DOM.SVGFEPointLightElement". --- Base interface functions are in: --- --- * "GHCJS.DOM.SVGElement" --- * "GHCJS.DOM.Element" --- * "GHCJS.DOM.Node" --- * "GHCJS.DOM.EventTarget" --- --- -newtype SVGFEPointLightElement = SVGFEPointLightElement { unSVGFEPointLightElement :: JSVal } - -instance Eq (SVGFEPointLightElement) where - (SVGFEPointLightElement a) == (SVGFEPointLightElement b) = js_eq a b - -instance PToJSVal SVGFEPointLightElement where - pToJSVal = unSVGFEPointLightElement - {-# INLINE pToJSVal #-} - -instance PFromJSVal SVGFEPointLightElement where - pFromJSVal = SVGFEPointLightElement - {-# INLINE pFromJSVal #-} - -instance ToJSVal SVGFEPointLightElement where - toJSVal = return . unSVGFEPointLightElement - {-# INLINE toJSVal #-} - -instance FromJSVal SVGFEPointLightElement where - fromJSVal = return . fmap SVGFEPointLightElement . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsSVGElement SVGFEPointLightElement -instance IsElement SVGFEPointLightElement -instance IsNode SVGFEPointLightElement -instance IsEventTarget SVGFEPointLightElement -instance IsGObject SVGFEPointLightElement where - toGObject = GObject . unSVGFEPointLightElement - {-# INLINE toGObject #-} - unsafeCastGObject = SVGFEPointLightElement . unGObject - {-# INLINE unsafeCastGObject #-} - -castToSVGFEPointLightElement :: IsGObject obj => obj -> IO SVGFEPointLightElement -castToSVGFEPointLightElement = castTo gTypeSVGFEPointLightElement "SVGFEPointLightElement" - -foreign import javascript unsafe "window[\"SVGFEPointLightElement\"]" gTypeSVGFEPointLightElement :: GType - --- | Functions for this inteface are in "GHCJS.DOM.SVGFESpecularLightingElement". --- Base interface functions are in: --- --- * "GHCJS.DOM.SVGElement" --- * "GHCJS.DOM.Element" --- * "GHCJS.DOM.Node" --- * "GHCJS.DOM.EventTarget" --- --- -newtype SVGFESpecularLightingElement = SVGFESpecularLightingElement { unSVGFESpecularLightingElement :: JSVal } - -instance Eq (SVGFESpecularLightingElement) where - (SVGFESpecularLightingElement a) == (SVGFESpecularLightingElement b) = js_eq a b - -instance PToJSVal SVGFESpecularLightingElement where - pToJSVal = unSVGFESpecularLightingElement - {-# INLINE pToJSVal #-} - -instance PFromJSVal SVGFESpecularLightingElement where - pFromJSVal = SVGFESpecularLightingElement - {-# INLINE pFromJSVal #-} - -instance ToJSVal SVGFESpecularLightingElement where - toJSVal = return . unSVGFESpecularLightingElement - {-# INLINE toJSVal #-} - -instance FromJSVal SVGFESpecularLightingElement where - fromJSVal = return . fmap SVGFESpecularLightingElement . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsSVGElement SVGFESpecularLightingElement -instance IsElement SVGFESpecularLightingElement -instance IsNode SVGFESpecularLightingElement -instance IsEventTarget SVGFESpecularLightingElement -instance IsGObject SVGFESpecularLightingElement where - toGObject = GObject . unSVGFESpecularLightingElement - {-# INLINE toGObject #-} - unsafeCastGObject = SVGFESpecularLightingElement . unGObject - {-# INLINE unsafeCastGObject #-} - -castToSVGFESpecularLightingElement :: IsGObject obj => obj -> IO SVGFESpecularLightingElement -castToSVGFESpecularLightingElement = castTo gTypeSVGFESpecularLightingElement "SVGFESpecularLightingElement" - -foreign import javascript unsafe "window[\"SVGFESpecularLightingElement\"]" gTypeSVGFESpecularLightingElement :: GType - --- | Functions for this inteface are in "GHCJS.DOM.SVGFESpotLightElement". --- Base interface functions are in: --- --- * "GHCJS.DOM.SVGElement" --- * "GHCJS.DOM.Element" --- * "GHCJS.DOM.Node" --- * "GHCJS.DOM.EventTarget" --- --- -newtype SVGFESpotLightElement = SVGFESpotLightElement { unSVGFESpotLightElement :: JSVal } - -instance Eq (SVGFESpotLightElement) where - (SVGFESpotLightElement a) == (SVGFESpotLightElement b) = js_eq a b - -instance PToJSVal SVGFESpotLightElement where - pToJSVal = unSVGFESpotLightElement - {-# INLINE pToJSVal #-} - -instance PFromJSVal SVGFESpotLightElement where - pFromJSVal = SVGFESpotLightElement - {-# INLINE pFromJSVal #-} - -instance ToJSVal SVGFESpotLightElement where - toJSVal = return . unSVGFESpotLightElement - {-# INLINE toJSVal #-} - -instance FromJSVal SVGFESpotLightElement where - fromJSVal = return . fmap SVGFESpotLightElement . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsSVGElement SVGFESpotLightElement -instance IsElement SVGFESpotLightElement -instance IsNode SVGFESpotLightElement -instance IsEventTarget SVGFESpotLightElement -instance IsGObject SVGFESpotLightElement where - toGObject = GObject . unSVGFESpotLightElement - {-# INLINE toGObject #-} - unsafeCastGObject = SVGFESpotLightElement . unGObject - {-# INLINE unsafeCastGObject #-} - -castToSVGFESpotLightElement :: IsGObject obj => obj -> IO SVGFESpotLightElement -castToSVGFESpotLightElement = castTo gTypeSVGFESpotLightElement "SVGFESpotLightElement" - -foreign import javascript unsafe "window[\"SVGFESpotLightElement\"]" gTypeSVGFESpotLightElement :: GType - --- | Functions for this inteface are in "GHCJS.DOM.SVGFETileElement". --- Base interface functions are in: --- --- * "GHCJS.DOM.SVGElement" --- * "GHCJS.DOM.Element" --- * "GHCJS.DOM.Node" --- * "GHCJS.DOM.EventTarget" --- --- -newtype SVGFETileElement = SVGFETileElement { unSVGFETileElement :: JSVal } - -instance Eq (SVGFETileElement) where - (SVGFETileElement a) == (SVGFETileElement b) = js_eq a b - -instance PToJSVal SVGFETileElement where - pToJSVal = unSVGFETileElement - {-# INLINE pToJSVal #-} - -instance PFromJSVal SVGFETileElement where - pFromJSVal = SVGFETileElement - {-# INLINE pFromJSVal #-} - -instance ToJSVal SVGFETileElement where - toJSVal = return . unSVGFETileElement - {-# INLINE toJSVal #-} - -instance FromJSVal SVGFETileElement where - fromJSVal = return . fmap SVGFETileElement . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsSVGElement SVGFETileElement -instance IsElement SVGFETileElement -instance IsNode SVGFETileElement -instance IsEventTarget SVGFETileElement -instance IsGObject SVGFETileElement where - toGObject = GObject . unSVGFETileElement - {-# INLINE toGObject #-} - unsafeCastGObject = SVGFETileElement . unGObject - {-# INLINE unsafeCastGObject #-} - -castToSVGFETileElement :: IsGObject obj => obj -> IO SVGFETileElement -castToSVGFETileElement = castTo gTypeSVGFETileElement "SVGFETileElement" - -foreign import javascript unsafe "window[\"SVGFETileElement\"]" gTypeSVGFETileElement :: GType - --- | Functions for this inteface are in "GHCJS.DOM.SVGFETurbulenceElement". --- Base interface functions are in: --- --- * "GHCJS.DOM.SVGElement" --- * "GHCJS.DOM.Element" --- * "GHCJS.DOM.Node" --- * "GHCJS.DOM.EventTarget" --- --- -newtype SVGFETurbulenceElement = SVGFETurbulenceElement { unSVGFETurbulenceElement :: JSVal } - -instance Eq (SVGFETurbulenceElement) where - (SVGFETurbulenceElement a) == (SVGFETurbulenceElement b) = js_eq a b - -instance PToJSVal SVGFETurbulenceElement where - pToJSVal = unSVGFETurbulenceElement - {-# INLINE pToJSVal #-} - -instance PFromJSVal SVGFETurbulenceElement where - pFromJSVal = SVGFETurbulenceElement - {-# INLINE pFromJSVal #-} - -instance ToJSVal SVGFETurbulenceElement where - toJSVal = return . unSVGFETurbulenceElement - {-# INLINE toJSVal #-} - -instance FromJSVal SVGFETurbulenceElement where - fromJSVal = return . fmap SVGFETurbulenceElement . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsSVGElement SVGFETurbulenceElement -instance IsElement SVGFETurbulenceElement -instance IsNode SVGFETurbulenceElement -instance IsEventTarget SVGFETurbulenceElement -instance IsGObject SVGFETurbulenceElement where - toGObject = GObject . unSVGFETurbulenceElement - {-# INLINE toGObject #-} - unsafeCastGObject = SVGFETurbulenceElement . unGObject - {-# INLINE unsafeCastGObject #-} - -castToSVGFETurbulenceElement :: IsGObject obj => obj -> IO SVGFETurbulenceElement -castToSVGFETurbulenceElement = castTo gTypeSVGFETurbulenceElement "SVGFETurbulenceElement" - -foreign import javascript unsafe "window[\"SVGFETurbulenceElement\"]" gTypeSVGFETurbulenceElement :: GType - --- | Functions for this inteface are in "GHCJS.DOM.SVGFilterElement". --- Base interface functions are in: --- --- * "GHCJS.DOM.SVGElement" --- * "GHCJS.DOM.Element" --- * "GHCJS.DOM.Node" --- * "GHCJS.DOM.EventTarget" --- --- -newtype SVGFilterElement = SVGFilterElement { unSVGFilterElement :: JSVal } - -instance Eq (SVGFilterElement) where - (SVGFilterElement a) == (SVGFilterElement b) = js_eq a b - -instance PToJSVal SVGFilterElement where - pToJSVal = unSVGFilterElement - {-# INLINE pToJSVal #-} - -instance PFromJSVal SVGFilterElement where - pFromJSVal = SVGFilterElement - {-# INLINE pFromJSVal #-} - -instance ToJSVal SVGFilterElement where - toJSVal = return . unSVGFilterElement - {-# INLINE toJSVal #-} - -instance FromJSVal SVGFilterElement where - fromJSVal = return . fmap SVGFilterElement . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsSVGElement SVGFilterElement -instance IsElement SVGFilterElement -instance IsNode SVGFilterElement -instance IsEventTarget SVGFilterElement -instance IsGObject SVGFilterElement where - toGObject = GObject . unSVGFilterElement - {-# INLINE toGObject #-} - unsafeCastGObject = SVGFilterElement . unGObject - {-# INLINE unsafeCastGObject #-} - -castToSVGFilterElement :: IsGObject obj => obj -> IO SVGFilterElement -castToSVGFilterElement = castTo gTypeSVGFilterElement "SVGFilterElement" - -foreign import javascript unsafe "window[\"SVGFilterElement\"]" gTypeSVGFilterElement :: GType - --- | Functions for this inteface are in "GHCJS.DOM.SVGFilterPrimitiveStandardAttributes". --- --- -newtype SVGFilterPrimitiveStandardAttributes = SVGFilterPrimitiveStandardAttributes { unSVGFilterPrimitiveStandardAttributes :: JSVal } - -instance Eq (SVGFilterPrimitiveStandardAttributes) where - (SVGFilterPrimitiveStandardAttributes a) == (SVGFilterPrimitiveStandardAttributes b) = js_eq a b - -instance PToJSVal SVGFilterPrimitiveStandardAttributes where - pToJSVal = unSVGFilterPrimitiveStandardAttributes - {-# INLINE pToJSVal #-} - -instance PFromJSVal SVGFilterPrimitiveStandardAttributes where - pFromJSVal = SVGFilterPrimitiveStandardAttributes - {-# INLINE pFromJSVal #-} - -instance ToJSVal SVGFilterPrimitiveStandardAttributes where - toJSVal = return . unSVGFilterPrimitiveStandardAttributes - {-# INLINE toJSVal #-} - -instance FromJSVal SVGFilterPrimitiveStandardAttributes where - fromJSVal = return . fmap SVGFilterPrimitiveStandardAttributes . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsGObject SVGFilterPrimitiveStandardAttributes where - toGObject = GObject . unSVGFilterPrimitiveStandardAttributes - {-# INLINE toGObject #-} - unsafeCastGObject = SVGFilterPrimitiveStandardAttributes . unGObject - {-# INLINE unsafeCastGObject #-} - -castToSVGFilterPrimitiveStandardAttributes :: IsGObject obj => obj -> IO SVGFilterPrimitiveStandardAttributes -castToSVGFilterPrimitiveStandardAttributes = castTo gTypeSVGFilterPrimitiveStandardAttributes "SVGFilterPrimitiveStandardAttributes" - -foreign import javascript unsafe "window[\"SVGFilterPrimitiveStandardAttributes\"]" gTypeSVGFilterPrimitiveStandardAttributes :: GType - --- | Functions for this inteface are in "GHCJS.DOM.SVGFitToViewBox". --- --- -newtype SVGFitToViewBox = SVGFitToViewBox { unSVGFitToViewBox :: JSVal } - -instance Eq (SVGFitToViewBox) where - (SVGFitToViewBox a) == (SVGFitToViewBox b) = js_eq a b - -instance PToJSVal SVGFitToViewBox where - pToJSVal = unSVGFitToViewBox - {-# INLINE pToJSVal #-} - -instance PFromJSVal SVGFitToViewBox where - pFromJSVal = SVGFitToViewBox - {-# INLINE pFromJSVal #-} - -instance ToJSVal SVGFitToViewBox where - toJSVal = return . unSVGFitToViewBox - {-# INLINE toJSVal #-} - -instance FromJSVal SVGFitToViewBox where - fromJSVal = return . fmap SVGFitToViewBox . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsGObject SVGFitToViewBox where - toGObject = GObject . unSVGFitToViewBox - {-# INLINE toGObject #-} - unsafeCastGObject = SVGFitToViewBox . unGObject - {-# INLINE unsafeCastGObject #-} - -castToSVGFitToViewBox :: IsGObject obj => obj -> IO SVGFitToViewBox -castToSVGFitToViewBox = castTo gTypeSVGFitToViewBox "SVGFitToViewBox" - -foreign import javascript unsafe "window[\"SVGFitToViewBox\"]" gTypeSVGFitToViewBox :: GType - --- | Functions for this inteface are in "GHCJS.DOM.SVGFontElement". --- Base interface functions are in: --- --- * "GHCJS.DOM.SVGElement" --- * "GHCJS.DOM.Element" --- * "GHCJS.DOM.Node" --- * "GHCJS.DOM.EventTarget" --- --- -newtype SVGFontElement = SVGFontElement { unSVGFontElement :: JSVal } - -instance Eq (SVGFontElement) where - (SVGFontElement a) == (SVGFontElement b) = js_eq a b - -instance PToJSVal SVGFontElement where - pToJSVal = unSVGFontElement - {-# INLINE pToJSVal #-} - -instance PFromJSVal SVGFontElement where - pFromJSVal = SVGFontElement - {-# INLINE pFromJSVal #-} - -instance ToJSVal SVGFontElement where - toJSVal = return . unSVGFontElement - {-# INLINE toJSVal #-} - -instance FromJSVal SVGFontElement where - fromJSVal = return . fmap SVGFontElement . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsSVGElement SVGFontElement -instance IsElement SVGFontElement -instance IsNode SVGFontElement -instance IsEventTarget SVGFontElement -instance IsGObject SVGFontElement where - toGObject = GObject . unSVGFontElement - {-# INLINE toGObject #-} - unsafeCastGObject = SVGFontElement . unGObject - {-# INLINE unsafeCastGObject #-} - -castToSVGFontElement :: IsGObject obj => obj -> IO SVGFontElement -castToSVGFontElement = castTo gTypeSVGFontElement "SVGFontElement" - -foreign import javascript unsafe "window[\"SVGFontElement\"]" gTypeSVGFontElement :: GType - --- | Functions for this inteface are in "GHCJS.DOM.SVGFontFaceElement". --- Base interface functions are in: --- --- * "GHCJS.DOM.SVGElement" --- * "GHCJS.DOM.Element" --- * "GHCJS.DOM.Node" --- * "GHCJS.DOM.EventTarget" --- --- -newtype SVGFontFaceElement = SVGFontFaceElement { unSVGFontFaceElement :: JSVal } - -instance Eq (SVGFontFaceElement) where - (SVGFontFaceElement a) == (SVGFontFaceElement b) = js_eq a b - -instance PToJSVal SVGFontFaceElement where - pToJSVal = unSVGFontFaceElement - {-# INLINE pToJSVal #-} - -instance PFromJSVal SVGFontFaceElement where - pFromJSVal = SVGFontFaceElement - {-# INLINE pFromJSVal #-} - -instance ToJSVal SVGFontFaceElement where - toJSVal = return . unSVGFontFaceElement - {-# INLINE toJSVal #-} - -instance FromJSVal SVGFontFaceElement where - fromJSVal = return . fmap SVGFontFaceElement . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsSVGElement SVGFontFaceElement -instance IsElement SVGFontFaceElement -instance IsNode SVGFontFaceElement -instance IsEventTarget SVGFontFaceElement -instance IsGObject SVGFontFaceElement where - toGObject = GObject . unSVGFontFaceElement - {-# INLINE toGObject #-} - unsafeCastGObject = SVGFontFaceElement . unGObject - {-# INLINE unsafeCastGObject #-} - -castToSVGFontFaceElement :: IsGObject obj => obj -> IO SVGFontFaceElement -castToSVGFontFaceElement = castTo gTypeSVGFontFaceElement "SVGFontFaceElement" - -foreign import javascript unsafe "window[\"SVGFontFaceElement\"]" gTypeSVGFontFaceElement :: GType - --- | Functions for this inteface are in "GHCJS.DOM.SVGFontFaceFormatElement". --- Base interface functions are in: --- --- * "GHCJS.DOM.SVGElement" --- * "GHCJS.DOM.Element" --- * "GHCJS.DOM.Node" --- * "GHCJS.DOM.EventTarget" --- --- -newtype SVGFontFaceFormatElement = SVGFontFaceFormatElement { unSVGFontFaceFormatElement :: JSVal } - -instance Eq (SVGFontFaceFormatElement) where - (SVGFontFaceFormatElement a) == (SVGFontFaceFormatElement b) = js_eq a b - -instance PToJSVal SVGFontFaceFormatElement where - pToJSVal = unSVGFontFaceFormatElement - {-# INLINE pToJSVal #-} - -instance PFromJSVal SVGFontFaceFormatElement where - pFromJSVal = SVGFontFaceFormatElement - {-# INLINE pFromJSVal #-} - -instance ToJSVal SVGFontFaceFormatElement where - toJSVal = return . unSVGFontFaceFormatElement - {-# INLINE toJSVal #-} - -instance FromJSVal SVGFontFaceFormatElement where - fromJSVal = return . fmap SVGFontFaceFormatElement . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsSVGElement SVGFontFaceFormatElement -instance IsElement SVGFontFaceFormatElement -instance IsNode SVGFontFaceFormatElement -instance IsEventTarget SVGFontFaceFormatElement -instance IsGObject SVGFontFaceFormatElement where - toGObject = GObject . unSVGFontFaceFormatElement - {-# INLINE toGObject #-} - unsafeCastGObject = SVGFontFaceFormatElement . unGObject - {-# INLINE unsafeCastGObject #-} - -castToSVGFontFaceFormatElement :: IsGObject obj => obj -> IO SVGFontFaceFormatElement -castToSVGFontFaceFormatElement = castTo gTypeSVGFontFaceFormatElement "SVGFontFaceFormatElement" - -foreign import javascript unsafe "window[\"SVGFontFaceFormatElement\"]" gTypeSVGFontFaceFormatElement :: GType - --- | Functions for this inteface are in "GHCJS.DOM.SVGFontFaceNameElement". --- Base interface functions are in: --- --- * "GHCJS.DOM.SVGElement" --- * "GHCJS.DOM.Element" --- * "GHCJS.DOM.Node" --- * "GHCJS.DOM.EventTarget" --- --- -newtype SVGFontFaceNameElement = SVGFontFaceNameElement { unSVGFontFaceNameElement :: JSVal } - -instance Eq (SVGFontFaceNameElement) where - (SVGFontFaceNameElement a) == (SVGFontFaceNameElement b) = js_eq a b - -instance PToJSVal SVGFontFaceNameElement where - pToJSVal = unSVGFontFaceNameElement - {-# INLINE pToJSVal #-} - -instance PFromJSVal SVGFontFaceNameElement where - pFromJSVal = SVGFontFaceNameElement - {-# INLINE pFromJSVal #-} - -instance ToJSVal SVGFontFaceNameElement where - toJSVal = return . unSVGFontFaceNameElement - {-# INLINE toJSVal #-} - -instance FromJSVal SVGFontFaceNameElement where - fromJSVal = return . fmap SVGFontFaceNameElement . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsSVGElement SVGFontFaceNameElement -instance IsElement SVGFontFaceNameElement -instance IsNode SVGFontFaceNameElement -instance IsEventTarget SVGFontFaceNameElement -instance IsGObject SVGFontFaceNameElement where - toGObject = GObject . unSVGFontFaceNameElement - {-# INLINE toGObject #-} - unsafeCastGObject = SVGFontFaceNameElement . unGObject - {-# INLINE unsafeCastGObject #-} - -castToSVGFontFaceNameElement :: IsGObject obj => obj -> IO SVGFontFaceNameElement -castToSVGFontFaceNameElement = castTo gTypeSVGFontFaceNameElement "SVGFontFaceNameElement" - -foreign import javascript unsafe "window[\"SVGFontFaceNameElement\"]" gTypeSVGFontFaceNameElement :: GType - --- | Functions for this inteface are in "GHCJS.DOM.SVGFontFaceSrcElement". --- Base interface functions are in: --- --- * "GHCJS.DOM.SVGElement" --- * "GHCJS.DOM.Element" --- * "GHCJS.DOM.Node" --- * "GHCJS.DOM.EventTarget" --- --- -newtype SVGFontFaceSrcElement = SVGFontFaceSrcElement { unSVGFontFaceSrcElement :: JSVal } - -instance Eq (SVGFontFaceSrcElement) where - (SVGFontFaceSrcElement a) == (SVGFontFaceSrcElement b) = js_eq a b - -instance PToJSVal SVGFontFaceSrcElement where - pToJSVal = unSVGFontFaceSrcElement - {-# INLINE pToJSVal #-} - -instance PFromJSVal SVGFontFaceSrcElement where - pFromJSVal = SVGFontFaceSrcElement - {-# INLINE pFromJSVal #-} - -instance ToJSVal SVGFontFaceSrcElement where - toJSVal = return . unSVGFontFaceSrcElement - {-# INLINE toJSVal #-} - -instance FromJSVal SVGFontFaceSrcElement where - fromJSVal = return . fmap SVGFontFaceSrcElement . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsSVGElement SVGFontFaceSrcElement -instance IsElement SVGFontFaceSrcElement -instance IsNode SVGFontFaceSrcElement -instance IsEventTarget SVGFontFaceSrcElement -instance IsGObject SVGFontFaceSrcElement where - toGObject = GObject . unSVGFontFaceSrcElement - {-# INLINE toGObject #-} - unsafeCastGObject = SVGFontFaceSrcElement . unGObject - {-# INLINE unsafeCastGObject #-} - -castToSVGFontFaceSrcElement :: IsGObject obj => obj -> IO SVGFontFaceSrcElement -castToSVGFontFaceSrcElement = castTo gTypeSVGFontFaceSrcElement "SVGFontFaceSrcElement" - -foreign import javascript unsafe "window[\"SVGFontFaceSrcElement\"]" gTypeSVGFontFaceSrcElement :: GType - --- | Functions for this inteface are in "GHCJS.DOM.SVGFontFaceUriElement". --- Base interface functions are in: --- --- * "GHCJS.DOM.SVGElement" --- * "GHCJS.DOM.Element" --- * "GHCJS.DOM.Node" --- * "GHCJS.DOM.EventTarget" --- --- -newtype SVGFontFaceUriElement = SVGFontFaceUriElement { unSVGFontFaceUriElement :: JSVal } - -instance Eq (SVGFontFaceUriElement) where - (SVGFontFaceUriElement a) == (SVGFontFaceUriElement b) = js_eq a b - -instance PToJSVal SVGFontFaceUriElement where - pToJSVal = unSVGFontFaceUriElement - {-# INLINE pToJSVal #-} - -instance PFromJSVal SVGFontFaceUriElement where - pFromJSVal = SVGFontFaceUriElement - {-# INLINE pFromJSVal #-} - -instance ToJSVal SVGFontFaceUriElement where - toJSVal = return . unSVGFontFaceUriElement - {-# INLINE toJSVal #-} - -instance FromJSVal SVGFontFaceUriElement where - fromJSVal = return . fmap SVGFontFaceUriElement . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsSVGElement SVGFontFaceUriElement -instance IsElement SVGFontFaceUriElement -instance IsNode SVGFontFaceUriElement -instance IsEventTarget SVGFontFaceUriElement -instance IsGObject SVGFontFaceUriElement where - toGObject = GObject . unSVGFontFaceUriElement - {-# INLINE toGObject #-} - unsafeCastGObject = SVGFontFaceUriElement . unGObject - {-# INLINE unsafeCastGObject #-} - -castToSVGFontFaceUriElement :: IsGObject obj => obj -> IO SVGFontFaceUriElement -castToSVGFontFaceUriElement = castTo gTypeSVGFontFaceUriElement "SVGFontFaceUriElement" - -foreign import javascript unsafe "window[\"SVGFontFaceUriElement\"]" gTypeSVGFontFaceUriElement :: GType - --- | Functions for this inteface are in "GHCJS.DOM.SVGForeignObjectElement". --- Base interface functions are in: --- --- * "GHCJS.DOM.SVGGraphicsElement" --- * "GHCJS.DOM.SVGElement" --- * "GHCJS.DOM.Element" --- * "GHCJS.DOM.Node" --- * "GHCJS.DOM.EventTarget" --- --- -newtype SVGForeignObjectElement = SVGForeignObjectElement { unSVGForeignObjectElement :: JSVal } - -instance Eq (SVGForeignObjectElement) where - (SVGForeignObjectElement a) == (SVGForeignObjectElement b) = js_eq a b - -instance PToJSVal SVGForeignObjectElement where - pToJSVal = unSVGForeignObjectElement - {-# INLINE pToJSVal #-} - -instance PFromJSVal SVGForeignObjectElement where - pFromJSVal = SVGForeignObjectElement - {-# INLINE pFromJSVal #-} - -instance ToJSVal SVGForeignObjectElement where - toJSVal = return . unSVGForeignObjectElement - {-# INLINE toJSVal #-} - -instance FromJSVal SVGForeignObjectElement where - fromJSVal = return . fmap SVGForeignObjectElement . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsSVGGraphicsElement SVGForeignObjectElement -instance IsSVGElement SVGForeignObjectElement -instance IsElement SVGForeignObjectElement -instance IsNode SVGForeignObjectElement -instance IsEventTarget SVGForeignObjectElement -instance IsGObject SVGForeignObjectElement where - toGObject = GObject . unSVGForeignObjectElement - {-# INLINE toGObject #-} - unsafeCastGObject = SVGForeignObjectElement . unGObject - {-# INLINE unsafeCastGObject #-} - -castToSVGForeignObjectElement :: IsGObject obj => obj -> IO SVGForeignObjectElement -castToSVGForeignObjectElement = castTo gTypeSVGForeignObjectElement "SVGForeignObjectElement" - -foreign import javascript unsafe "window[\"SVGForeignObjectElement\"]" gTypeSVGForeignObjectElement :: GType - --- | Functions for this inteface are in "GHCJS.DOM.SVGGElement". --- Base interface functions are in: --- --- * "GHCJS.DOM.SVGGraphicsElement" --- * "GHCJS.DOM.SVGElement" --- * "GHCJS.DOM.Element" --- * "GHCJS.DOM.Node" --- * "GHCJS.DOM.EventTarget" --- --- -newtype SVGGElement = SVGGElement { unSVGGElement :: JSVal } - -instance Eq (SVGGElement) where - (SVGGElement a) == (SVGGElement b) = js_eq a b - -instance PToJSVal SVGGElement where - pToJSVal = unSVGGElement - {-# INLINE pToJSVal #-} - -instance PFromJSVal SVGGElement where - pFromJSVal = SVGGElement - {-# INLINE pFromJSVal #-} - -instance ToJSVal SVGGElement where - toJSVal = return . unSVGGElement - {-# INLINE toJSVal #-} - -instance FromJSVal SVGGElement where - fromJSVal = return . fmap SVGGElement . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsSVGGraphicsElement SVGGElement -instance IsSVGElement SVGGElement -instance IsElement SVGGElement -instance IsNode SVGGElement -instance IsEventTarget SVGGElement -instance IsGObject SVGGElement where - toGObject = GObject . unSVGGElement - {-# INLINE toGObject #-} - unsafeCastGObject = SVGGElement . unGObject - {-# INLINE unsafeCastGObject #-} - -castToSVGGElement :: IsGObject obj => obj -> IO SVGGElement -castToSVGGElement = castTo gTypeSVGGElement "SVGGElement" - -foreign import javascript unsafe "window[\"SVGGElement\"]" gTypeSVGGElement :: GType - --- | Functions for this inteface are in "GHCJS.DOM.SVGGlyphElement". --- Base interface functions are in: --- --- * "GHCJS.DOM.SVGElement" --- * "GHCJS.DOM.Element" --- * "GHCJS.DOM.Node" --- * "GHCJS.DOM.EventTarget" --- --- -newtype SVGGlyphElement = SVGGlyphElement { unSVGGlyphElement :: JSVal } - -instance Eq (SVGGlyphElement) where - (SVGGlyphElement a) == (SVGGlyphElement b) = js_eq a b - -instance PToJSVal SVGGlyphElement where - pToJSVal = unSVGGlyphElement - {-# INLINE pToJSVal #-} - -instance PFromJSVal SVGGlyphElement where - pFromJSVal = SVGGlyphElement - {-# INLINE pFromJSVal #-} - -instance ToJSVal SVGGlyphElement where - toJSVal = return . unSVGGlyphElement - {-# INLINE toJSVal #-} - -instance FromJSVal SVGGlyphElement where - fromJSVal = return . fmap SVGGlyphElement . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsSVGElement SVGGlyphElement -instance IsElement SVGGlyphElement -instance IsNode SVGGlyphElement -instance IsEventTarget SVGGlyphElement -instance IsGObject SVGGlyphElement where - toGObject = GObject . unSVGGlyphElement - {-# INLINE toGObject #-} - unsafeCastGObject = SVGGlyphElement . unGObject - {-# INLINE unsafeCastGObject #-} - -castToSVGGlyphElement :: IsGObject obj => obj -> IO SVGGlyphElement -castToSVGGlyphElement = castTo gTypeSVGGlyphElement "SVGGlyphElement" - -foreign import javascript unsafe "window[\"SVGGlyphElement\"]" gTypeSVGGlyphElement :: GType - --- | Functions for this inteface are in "GHCJS.DOM.SVGGlyphRefElement". --- Base interface functions are in: --- --- * "GHCJS.DOM.SVGElement" --- * "GHCJS.DOM.Element" --- * "GHCJS.DOM.Node" --- * "GHCJS.DOM.EventTarget" --- --- -newtype SVGGlyphRefElement = SVGGlyphRefElement { unSVGGlyphRefElement :: JSVal } - -instance Eq (SVGGlyphRefElement) where - (SVGGlyphRefElement a) == (SVGGlyphRefElement b) = js_eq a b - -instance PToJSVal SVGGlyphRefElement where - pToJSVal = unSVGGlyphRefElement - {-# INLINE pToJSVal #-} - -instance PFromJSVal SVGGlyphRefElement where - pFromJSVal = SVGGlyphRefElement - {-# INLINE pFromJSVal #-} - -instance ToJSVal SVGGlyphRefElement where - toJSVal = return . unSVGGlyphRefElement - {-# INLINE toJSVal #-} - -instance FromJSVal SVGGlyphRefElement where - fromJSVal = return . fmap SVGGlyphRefElement . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsSVGElement SVGGlyphRefElement -instance IsElement SVGGlyphRefElement -instance IsNode SVGGlyphRefElement -instance IsEventTarget SVGGlyphRefElement -instance IsGObject SVGGlyphRefElement where - toGObject = GObject . unSVGGlyphRefElement - {-# INLINE toGObject #-} - unsafeCastGObject = SVGGlyphRefElement . unGObject - {-# INLINE unsafeCastGObject #-} - -castToSVGGlyphRefElement :: IsGObject obj => obj -> IO SVGGlyphRefElement -castToSVGGlyphRefElement = castTo gTypeSVGGlyphRefElement "SVGGlyphRefElement" - -foreign import javascript unsafe "window[\"SVGGlyphRefElement\"]" gTypeSVGGlyphRefElement :: GType - --- | Functions for this inteface are in "GHCJS.DOM.SVGGradientElement". --- Base interface functions are in: --- --- * "GHCJS.DOM.SVGElement" --- * "GHCJS.DOM.Element" --- * "GHCJS.DOM.Node" --- * "GHCJS.DOM.EventTarget" --- --- -newtype SVGGradientElement = SVGGradientElement { unSVGGradientElement :: JSVal } - -instance Eq (SVGGradientElement) where - (SVGGradientElement a) == (SVGGradientElement b) = js_eq a b - -instance PToJSVal SVGGradientElement where - pToJSVal = unSVGGradientElement - {-# INLINE pToJSVal #-} - -instance PFromJSVal SVGGradientElement where - pFromJSVal = SVGGradientElement - {-# INLINE pFromJSVal #-} - -instance ToJSVal SVGGradientElement where - toJSVal = return . unSVGGradientElement - {-# INLINE toJSVal #-} - -instance FromJSVal SVGGradientElement where - fromJSVal = return . fmap SVGGradientElement . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -class IsSVGElement o => IsSVGGradientElement o -toSVGGradientElement :: IsSVGGradientElement o => o -> SVGGradientElement -toSVGGradientElement = unsafeCastGObject . toGObject - -instance IsSVGGradientElement SVGGradientElement -instance IsSVGElement SVGGradientElement -instance IsElement SVGGradientElement -instance IsNode SVGGradientElement -instance IsEventTarget SVGGradientElement -instance IsGObject SVGGradientElement where - toGObject = GObject . unSVGGradientElement - {-# INLINE toGObject #-} - unsafeCastGObject = SVGGradientElement . unGObject - {-# INLINE unsafeCastGObject #-} - -castToSVGGradientElement :: IsGObject obj => obj -> IO SVGGradientElement -castToSVGGradientElement = castTo gTypeSVGGradientElement "SVGGradientElement" - -foreign import javascript unsafe "window[\"SVGGradientElement\"]" gTypeSVGGradientElement :: GType - --- | Functions for this inteface are in "GHCJS.DOM.SVGGraphicsElement". --- Base interface functions are in: --- --- * "GHCJS.DOM.SVGElement" --- * "GHCJS.DOM.Element" --- * "GHCJS.DOM.Node" --- * "GHCJS.DOM.EventTarget" --- --- -newtype SVGGraphicsElement = SVGGraphicsElement { unSVGGraphicsElement :: JSVal } - -instance Eq (SVGGraphicsElement) where - (SVGGraphicsElement a) == (SVGGraphicsElement b) = js_eq a b - -instance PToJSVal SVGGraphicsElement where - pToJSVal = unSVGGraphicsElement - {-# INLINE pToJSVal #-} - -instance PFromJSVal SVGGraphicsElement where - pFromJSVal = SVGGraphicsElement - {-# INLINE pFromJSVal #-} - -instance ToJSVal SVGGraphicsElement where - toJSVal = return . unSVGGraphicsElement - {-# INLINE toJSVal #-} - -instance FromJSVal SVGGraphicsElement where - fromJSVal = return . fmap SVGGraphicsElement . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -class IsSVGElement o => IsSVGGraphicsElement o -toSVGGraphicsElement :: IsSVGGraphicsElement o => o -> SVGGraphicsElement -toSVGGraphicsElement = unsafeCastGObject . toGObject - -instance IsSVGGraphicsElement SVGGraphicsElement -instance IsSVGElement SVGGraphicsElement -instance IsElement SVGGraphicsElement -instance IsNode SVGGraphicsElement -instance IsEventTarget SVGGraphicsElement -instance IsGObject SVGGraphicsElement where - toGObject = GObject . unSVGGraphicsElement - {-# INLINE toGObject #-} - unsafeCastGObject = SVGGraphicsElement . unGObject - {-# INLINE unsafeCastGObject #-} - -castToSVGGraphicsElement :: IsGObject obj => obj -> IO SVGGraphicsElement -castToSVGGraphicsElement = castTo gTypeSVGGraphicsElement "SVGGraphicsElement" - -foreign import javascript unsafe "window[\"SVGGraphicsElement\"]" gTypeSVGGraphicsElement :: GType - --- | Functions for this inteface are in "GHCJS.DOM.SVGHKernElement". --- Base interface functions are in: --- --- * "GHCJS.DOM.SVGElement" --- * "GHCJS.DOM.Element" --- * "GHCJS.DOM.Node" --- * "GHCJS.DOM.EventTarget" --- --- -newtype SVGHKernElement = SVGHKernElement { unSVGHKernElement :: JSVal } - -instance Eq (SVGHKernElement) where - (SVGHKernElement a) == (SVGHKernElement b) = js_eq a b - -instance PToJSVal SVGHKernElement where - pToJSVal = unSVGHKernElement - {-# INLINE pToJSVal #-} - -instance PFromJSVal SVGHKernElement where - pFromJSVal = SVGHKernElement - {-# INLINE pFromJSVal #-} - -instance ToJSVal SVGHKernElement where - toJSVal = return . unSVGHKernElement - {-# INLINE toJSVal #-} - -instance FromJSVal SVGHKernElement where - fromJSVal = return . fmap SVGHKernElement . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsSVGElement SVGHKernElement -instance IsElement SVGHKernElement -instance IsNode SVGHKernElement -instance IsEventTarget SVGHKernElement -instance IsGObject SVGHKernElement where - toGObject = GObject . unSVGHKernElement - {-# INLINE toGObject #-} - unsafeCastGObject = SVGHKernElement . unGObject - {-# INLINE unsafeCastGObject #-} - -castToSVGHKernElement :: IsGObject obj => obj -> IO SVGHKernElement -castToSVGHKernElement = castTo gTypeSVGHKernElement "SVGHKernElement" - -foreign import javascript unsafe "window[\"SVGHKernElement\"]" gTypeSVGHKernElement :: GType - --- | Functions for this inteface are in "GHCJS.DOM.SVGImageElement". --- Base interface functions are in: --- --- * "GHCJS.DOM.SVGGraphicsElement" --- * "GHCJS.DOM.SVGElement" --- * "GHCJS.DOM.Element" --- * "GHCJS.DOM.Node" --- * "GHCJS.DOM.EventTarget" --- --- -newtype SVGImageElement = SVGImageElement { unSVGImageElement :: JSVal } - -instance Eq (SVGImageElement) where - (SVGImageElement a) == (SVGImageElement b) = js_eq a b - -instance PToJSVal SVGImageElement where - pToJSVal = unSVGImageElement - {-# INLINE pToJSVal #-} - -instance PFromJSVal SVGImageElement where - pFromJSVal = SVGImageElement - {-# INLINE pFromJSVal #-} - -instance ToJSVal SVGImageElement where - toJSVal = return . unSVGImageElement - {-# INLINE toJSVal #-} - -instance FromJSVal SVGImageElement where - fromJSVal = return . fmap SVGImageElement . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsSVGGraphicsElement SVGImageElement -instance IsSVGElement SVGImageElement -instance IsElement SVGImageElement -instance IsNode SVGImageElement -instance IsEventTarget SVGImageElement -instance IsGObject SVGImageElement where - toGObject = GObject . unSVGImageElement - {-# INLINE toGObject #-} - unsafeCastGObject = SVGImageElement . unGObject - {-# INLINE unsafeCastGObject #-} - -castToSVGImageElement :: IsGObject obj => obj -> IO SVGImageElement -castToSVGImageElement = castTo gTypeSVGImageElement "SVGImageElement" - -foreign import javascript unsafe "window[\"SVGImageElement\"]" gTypeSVGImageElement :: GType - --- | Functions for this inteface are in "GHCJS.DOM.SVGLength". --- --- -newtype SVGLength = SVGLength { unSVGLength :: JSVal } - -instance Eq (SVGLength) where - (SVGLength a) == (SVGLength b) = js_eq a b - -instance PToJSVal SVGLength where - pToJSVal = unSVGLength - {-# INLINE pToJSVal #-} - -instance PFromJSVal SVGLength where - pFromJSVal = SVGLength - {-# INLINE pFromJSVal #-} - -instance ToJSVal SVGLength where - toJSVal = return . unSVGLength - {-# INLINE toJSVal #-} - -instance FromJSVal SVGLength where - fromJSVal = return . fmap SVGLength . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsGObject SVGLength where - toGObject = GObject . unSVGLength - {-# INLINE toGObject #-} - unsafeCastGObject = SVGLength . unGObject - {-# INLINE unsafeCastGObject #-} - -castToSVGLength :: IsGObject obj => obj -> IO SVGLength -castToSVGLength = castTo gTypeSVGLength "SVGLength" - -foreign import javascript unsafe "window[\"SVGLength\"]" gTypeSVGLength :: GType - --- | Functions for this inteface are in "GHCJS.DOM.SVGLengthList". --- --- -newtype SVGLengthList = SVGLengthList { unSVGLengthList :: JSVal } - -instance Eq (SVGLengthList) where - (SVGLengthList a) == (SVGLengthList b) = js_eq a b - -instance PToJSVal SVGLengthList where - pToJSVal = unSVGLengthList - {-# INLINE pToJSVal #-} - -instance PFromJSVal SVGLengthList where - pFromJSVal = SVGLengthList - {-# INLINE pFromJSVal #-} - -instance ToJSVal SVGLengthList where - toJSVal = return . unSVGLengthList - {-# INLINE toJSVal #-} - -instance FromJSVal SVGLengthList where - fromJSVal = return . fmap SVGLengthList . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsGObject SVGLengthList where - toGObject = GObject . unSVGLengthList - {-# INLINE toGObject #-} - unsafeCastGObject = SVGLengthList . unGObject - {-# INLINE unsafeCastGObject #-} - -castToSVGLengthList :: IsGObject obj => obj -> IO SVGLengthList -castToSVGLengthList = castTo gTypeSVGLengthList "SVGLengthList" - -foreign import javascript unsafe "window[\"SVGLengthList\"]" gTypeSVGLengthList :: GType - --- | Functions for this inteface are in "GHCJS.DOM.SVGLineElement". --- Base interface functions are in: --- --- * "GHCJS.DOM.SVGGraphicsElement" --- * "GHCJS.DOM.SVGElement" --- * "GHCJS.DOM.Element" --- * "GHCJS.DOM.Node" --- * "GHCJS.DOM.EventTarget" --- --- -newtype SVGLineElement = SVGLineElement { unSVGLineElement :: JSVal } - -instance Eq (SVGLineElement) where - (SVGLineElement a) == (SVGLineElement b) = js_eq a b - -instance PToJSVal SVGLineElement where - pToJSVal = unSVGLineElement - {-# INLINE pToJSVal #-} - -instance PFromJSVal SVGLineElement where - pFromJSVal = SVGLineElement - {-# INLINE pFromJSVal #-} - -instance ToJSVal SVGLineElement where - toJSVal = return . unSVGLineElement - {-# INLINE toJSVal #-} - -instance FromJSVal SVGLineElement where - fromJSVal = return . fmap SVGLineElement . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsSVGGraphicsElement SVGLineElement -instance IsSVGElement SVGLineElement -instance IsElement SVGLineElement -instance IsNode SVGLineElement -instance IsEventTarget SVGLineElement -instance IsGObject SVGLineElement where - toGObject = GObject . unSVGLineElement - {-# INLINE toGObject #-} - unsafeCastGObject = SVGLineElement . unGObject - {-# INLINE unsafeCastGObject #-} - -castToSVGLineElement :: IsGObject obj => obj -> IO SVGLineElement -castToSVGLineElement = castTo gTypeSVGLineElement "SVGLineElement" - -foreign import javascript unsafe "window[\"SVGLineElement\"]" gTypeSVGLineElement :: GType - --- | Functions for this inteface are in "GHCJS.DOM.SVGLinearGradientElement". --- Base interface functions are in: --- --- * "GHCJS.DOM.SVGGradientElement" --- * "GHCJS.DOM.SVGElement" --- * "GHCJS.DOM.Element" --- * "GHCJS.DOM.Node" --- * "GHCJS.DOM.EventTarget" --- --- -newtype SVGLinearGradientElement = SVGLinearGradientElement { unSVGLinearGradientElement :: JSVal } - -instance Eq (SVGLinearGradientElement) where - (SVGLinearGradientElement a) == (SVGLinearGradientElement b) = js_eq a b - -instance PToJSVal SVGLinearGradientElement where - pToJSVal = unSVGLinearGradientElement - {-# INLINE pToJSVal #-} - -instance PFromJSVal SVGLinearGradientElement where - pFromJSVal = SVGLinearGradientElement - {-# INLINE pFromJSVal #-} - -instance ToJSVal SVGLinearGradientElement where - toJSVal = return . unSVGLinearGradientElement - {-# INLINE toJSVal #-} - -instance FromJSVal SVGLinearGradientElement where - fromJSVal = return . fmap SVGLinearGradientElement . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsSVGGradientElement SVGLinearGradientElement -instance IsSVGElement SVGLinearGradientElement -instance IsElement SVGLinearGradientElement -instance IsNode SVGLinearGradientElement -instance IsEventTarget SVGLinearGradientElement -instance IsGObject SVGLinearGradientElement where - toGObject = GObject . unSVGLinearGradientElement - {-# INLINE toGObject #-} - unsafeCastGObject = SVGLinearGradientElement . unGObject - {-# INLINE unsafeCastGObject #-} - -castToSVGLinearGradientElement :: IsGObject obj => obj -> IO SVGLinearGradientElement -castToSVGLinearGradientElement = castTo gTypeSVGLinearGradientElement "SVGLinearGradientElement" - -foreign import javascript unsafe "window[\"SVGLinearGradientElement\"]" gTypeSVGLinearGradientElement :: GType - --- | Functions for this inteface are in "GHCJS.DOM.SVGMPathElement". --- Base interface functions are in: --- --- * "GHCJS.DOM.SVGElement" --- * "GHCJS.DOM.Element" --- * "GHCJS.DOM.Node" --- * "GHCJS.DOM.EventTarget" --- --- -newtype SVGMPathElement = SVGMPathElement { unSVGMPathElement :: JSVal } - -instance Eq (SVGMPathElement) where - (SVGMPathElement a) == (SVGMPathElement b) = js_eq a b - -instance PToJSVal SVGMPathElement where - pToJSVal = unSVGMPathElement - {-# INLINE pToJSVal #-} - -instance PFromJSVal SVGMPathElement where - pFromJSVal = SVGMPathElement - {-# INLINE pFromJSVal #-} - -instance ToJSVal SVGMPathElement where - toJSVal = return . unSVGMPathElement - {-# INLINE toJSVal #-} - -instance FromJSVal SVGMPathElement where - fromJSVal = return . fmap SVGMPathElement . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsSVGElement SVGMPathElement -instance IsElement SVGMPathElement -instance IsNode SVGMPathElement -instance IsEventTarget SVGMPathElement -instance IsGObject SVGMPathElement where - toGObject = GObject . unSVGMPathElement - {-# INLINE toGObject #-} - unsafeCastGObject = SVGMPathElement . unGObject - {-# INLINE unsafeCastGObject #-} - -castToSVGMPathElement :: IsGObject obj => obj -> IO SVGMPathElement -castToSVGMPathElement = castTo gTypeSVGMPathElement "SVGMPathElement" - -foreign import javascript unsafe "window[\"SVGMPathElement\"]" gTypeSVGMPathElement :: GType - --- | Functions for this inteface are in "GHCJS.DOM.SVGMarkerElement". --- Base interface functions are in: --- --- * "GHCJS.DOM.SVGElement" --- * "GHCJS.DOM.Element" --- * "GHCJS.DOM.Node" --- * "GHCJS.DOM.EventTarget" --- --- -newtype SVGMarkerElement = SVGMarkerElement { unSVGMarkerElement :: JSVal } - -instance Eq (SVGMarkerElement) where - (SVGMarkerElement a) == (SVGMarkerElement b) = js_eq a b - -instance PToJSVal SVGMarkerElement where - pToJSVal = unSVGMarkerElement - {-# INLINE pToJSVal #-} - -instance PFromJSVal SVGMarkerElement where - pFromJSVal = SVGMarkerElement - {-# INLINE pFromJSVal #-} - -instance ToJSVal SVGMarkerElement where - toJSVal = return . unSVGMarkerElement - {-# INLINE toJSVal #-} - -instance FromJSVal SVGMarkerElement where - fromJSVal = return . fmap SVGMarkerElement . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsSVGElement SVGMarkerElement -instance IsElement SVGMarkerElement -instance IsNode SVGMarkerElement -instance IsEventTarget SVGMarkerElement -instance IsGObject SVGMarkerElement where - toGObject = GObject . unSVGMarkerElement - {-# INLINE toGObject #-} - unsafeCastGObject = SVGMarkerElement . unGObject - {-# INLINE unsafeCastGObject #-} - -castToSVGMarkerElement :: IsGObject obj => obj -> IO SVGMarkerElement -castToSVGMarkerElement = castTo gTypeSVGMarkerElement "SVGMarkerElement" - -foreign import javascript unsafe "window[\"SVGMarkerElement\"]" gTypeSVGMarkerElement :: GType - --- | Functions for this inteface are in "GHCJS.DOM.SVGMaskElement". --- Base interface functions are in: --- --- * "GHCJS.DOM.SVGElement" --- * "GHCJS.DOM.Element" --- * "GHCJS.DOM.Node" --- * "GHCJS.DOM.EventTarget" --- --- -newtype SVGMaskElement = SVGMaskElement { unSVGMaskElement :: JSVal } - -instance Eq (SVGMaskElement) where - (SVGMaskElement a) == (SVGMaskElement b) = js_eq a b - -instance PToJSVal SVGMaskElement where - pToJSVal = unSVGMaskElement - {-# INLINE pToJSVal #-} - -instance PFromJSVal SVGMaskElement where - pFromJSVal = SVGMaskElement - {-# INLINE pFromJSVal #-} - -instance ToJSVal SVGMaskElement where - toJSVal = return . unSVGMaskElement - {-# INLINE toJSVal #-} - -instance FromJSVal SVGMaskElement where - fromJSVal = return . fmap SVGMaskElement . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsSVGElement SVGMaskElement -instance IsElement SVGMaskElement -instance IsNode SVGMaskElement -instance IsEventTarget SVGMaskElement -instance IsGObject SVGMaskElement where - toGObject = GObject . unSVGMaskElement - {-# INLINE toGObject #-} - unsafeCastGObject = SVGMaskElement . unGObject - {-# INLINE unsafeCastGObject #-} - -castToSVGMaskElement :: IsGObject obj => obj -> IO SVGMaskElement -castToSVGMaskElement = castTo gTypeSVGMaskElement "SVGMaskElement" - -foreign import javascript unsafe "window[\"SVGMaskElement\"]" gTypeSVGMaskElement :: GType - --- | Functions for this inteface are in "GHCJS.DOM.SVGMatrix". --- --- -newtype SVGMatrix = SVGMatrix { unSVGMatrix :: JSVal } - -instance Eq (SVGMatrix) where - (SVGMatrix a) == (SVGMatrix b) = js_eq a b - -instance PToJSVal SVGMatrix where - pToJSVal = unSVGMatrix - {-# INLINE pToJSVal #-} - -instance PFromJSVal SVGMatrix where - pFromJSVal = SVGMatrix - {-# INLINE pFromJSVal #-} - -instance ToJSVal SVGMatrix where - toJSVal = return . unSVGMatrix - {-# INLINE toJSVal #-} - -instance FromJSVal SVGMatrix where - fromJSVal = return . fmap SVGMatrix . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsGObject SVGMatrix where - toGObject = GObject . unSVGMatrix - {-# INLINE toGObject #-} - unsafeCastGObject = SVGMatrix . unGObject - {-# INLINE unsafeCastGObject #-} - -castToSVGMatrix :: IsGObject obj => obj -> IO SVGMatrix -castToSVGMatrix = castTo gTypeSVGMatrix "SVGMatrix" - -foreign import javascript unsafe "window[\"SVGMatrix\"]" gTypeSVGMatrix :: GType - --- | Functions for this inteface are in "GHCJS.DOM.SVGMetadataElement". --- Base interface functions are in: --- --- * "GHCJS.DOM.SVGElement" --- * "GHCJS.DOM.Element" --- * "GHCJS.DOM.Node" --- * "GHCJS.DOM.EventTarget" --- --- -newtype SVGMetadataElement = SVGMetadataElement { unSVGMetadataElement :: JSVal } - -instance Eq (SVGMetadataElement) where - (SVGMetadataElement a) == (SVGMetadataElement b) = js_eq a b - -instance PToJSVal SVGMetadataElement where - pToJSVal = unSVGMetadataElement - {-# INLINE pToJSVal #-} - -instance PFromJSVal SVGMetadataElement where - pFromJSVal = SVGMetadataElement - {-# INLINE pFromJSVal #-} - -instance ToJSVal SVGMetadataElement where - toJSVal = return . unSVGMetadataElement - {-# INLINE toJSVal #-} - -instance FromJSVal SVGMetadataElement where - fromJSVal = return . fmap SVGMetadataElement . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsSVGElement SVGMetadataElement -instance IsElement SVGMetadataElement -instance IsNode SVGMetadataElement -instance IsEventTarget SVGMetadataElement -instance IsGObject SVGMetadataElement where - toGObject = GObject . unSVGMetadataElement - {-# INLINE toGObject #-} - unsafeCastGObject = SVGMetadataElement . unGObject - {-# INLINE unsafeCastGObject #-} - -castToSVGMetadataElement :: IsGObject obj => obj -> IO SVGMetadataElement -castToSVGMetadataElement = castTo gTypeSVGMetadataElement "SVGMetadataElement" - -foreign import javascript unsafe "window[\"SVGMetadataElement\"]" gTypeSVGMetadataElement :: GType - --- | Functions for this inteface are in "GHCJS.DOM.SVGMissingGlyphElement". --- Base interface functions are in: --- --- * "GHCJS.DOM.SVGElement" --- * "GHCJS.DOM.Element" --- * "GHCJS.DOM.Node" --- * "GHCJS.DOM.EventTarget" --- --- -newtype SVGMissingGlyphElement = SVGMissingGlyphElement { unSVGMissingGlyphElement :: JSVal } - -instance Eq (SVGMissingGlyphElement) where - (SVGMissingGlyphElement a) == (SVGMissingGlyphElement b) = js_eq a b - -instance PToJSVal SVGMissingGlyphElement where - pToJSVal = unSVGMissingGlyphElement - {-# INLINE pToJSVal #-} - -instance PFromJSVal SVGMissingGlyphElement where - pFromJSVal = SVGMissingGlyphElement - {-# INLINE pFromJSVal #-} - -instance ToJSVal SVGMissingGlyphElement where - toJSVal = return . unSVGMissingGlyphElement - {-# INLINE toJSVal #-} - -instance FromJSVal SVGMissingGlyphElement where - fromJSVal = return . fmap SVGMissingGlyphElement . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsSVGElement SVGMissingGlyphElement -instance IsElement SVGMissingGlyphElement -instance IsNode SVGMissingGlyphElement -instance IsEventTarget SVGMissingGlyphElement -instance IsGObject SVGMissingGlyphElement where - toGObject = GObject . unSVGMissingGlyphElement - {-# INLINE toGObject #-} - unsafeCastGObject = SVGMissingGlyphElement . unGObject - {-# INLINE unsafeCastGObject #-} - -castToSVGMissingGlyphElement :: IsGObject obj => obj -> IO SVGMissingGlyphElement -castToSVGMissingGlyphElement = castTo gTypeSVGMissingGlyphElement "SVGMissingGlyphElement" - -foreign import javascript unsafe "window[\"SVGMissingGlyphElement\"]" gTypeSVGMissingGlyphElement :: GType - --- | Functions for this inteface are in "GHCJS.DOM.SVGNumber". --- --- -newtype SVGNumber = SVGNumber { unSVGNumber :: JSVal } - -instance Eq (SVGNumber) where - (SVGNumber a) == (SVGNumber b) = js_eq a b - -instance PToJSVal SVGNumber where - pToJSVal = unSVGNumber - {-# INLINE pToJSVal #-} - -instance PFromJSVal SVGNumber where - pFromJSVal = SVGNumber - {-# INLINE pFromJSVal #-} - -instance ToJSVal SVGNumber where - toJSVal = return . unSVGNumber - {-# INLINE toJSVal #-} - -instance FromJSVal SVGNumber where - fromJSVal = return . fmap SVGNumber . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsGObject SVGNumber where - toGObject = GObject . unSVGNumber - {-# INLINE toGObject #-} - unsafeCastGObject = SVGNumber . unGObject - {-# INLINE unsafeCastGObject #-} - -castToSVGNumber :: IsGObject obj => obj -> IO SVGNumber -castToSVGNumber = castTo gTypeSVGNumber "SVGNumber" - -foreign import javascript unsafe "window[\"SVGNumber\"]" gTypeSVGNumber :: GType - --- | Functions for this inteface are in "GHCJS.DOM.SVGNumberList". --- --- -newtype SVGNumberList = SVGNumberList { unSVGNumberList :: JSVal } - -instance Eq (SVGNumberList) where - (SVGNumberList a) == (SVGNumberList b) = js_eq a b - -instance PToJSVal SVGNumberList where - pToJSVal = unSVGNumberList - {-# INLINE pToJSVal #-} - -instance PFromJSVal SVGNumberList where - pFromJSVal = SVGNumberList - {-# INLINE pFromJSVal #-} - -instance ToJSVal SVGNumberList where - toJSVal = return . unSVGNumberList - {-# INLINE toJSVal #-} - -instance FromJSVal SVGNumberList where - fromJSVal = return . fmap SVGNumberList . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsGObject SVGNumberList where - toGObject = GObject . unSVGNumberList - {-# INLINE toGObject #-} - unsafeCastGObject = SVGNumberList . unGObject - {-# INLINE unsafeCastGObject #-} - -castToSVGNumberList :: IsGObject obj => obj -> IO SVGNumberList -castToSVGNumberList = castTo gTypeSVGNumberList "SVGNumberList" - -foreign import javascript unsafe "window[\"SVGNumberList\"]" gTypeSVGNumberList :: GType - --- | Functions for this inteface are in "GHCJS.DOM.SVGPaint". --- Base interface functions are in: --- --- * "GHCJS.DOM.SVGColor" --- * "GHCJS.DOM.CSSValue" --- --- -newtype SVGPaint = SVGPaint { unSVGPaint :: JSVal } - -instance Eq (SVGPaint) where - (SVGPaint a) == (SVGPaint b) = js_eq a b - -instance PToJSVal SVGPaint where - pToJSVal = unSVGPaint - {-# INLINE pToJSVal #-} - -instance PFromJSVal SVGPaint where - pFromJSVal = SVGPaint - {-# INLINE pFromJSVal #-} - -instance ToJSVal SVGPaint where - toJSVal = return . unSVGPaint - {-# INLINE toJSVal #-} - -instance FromJSVal SVGPaint where - fromJSVal = return . fmap SVGPaint . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsSVGColor SVGPaint -instance IsCSSValue SVGPaint -instance IsGObject SVGPaint where - toGObject = GObject . unSVGPaint - {-# INLINE toGObject #-} - unsafeCastGObject = SVGPaint . unGObject - {-# INLINE unsafeCastGObject #-} - -castToSVGPaint :: IsGObject obj => obj -> IO SVGPaint -castToSVGPaint = castTo gTypeSVGPaint "SVGPaint" - -foreign import javascript unsafe "window[\"SVGPaint\"]" gTypeSVGPaint :: GType - --- | Functions for this inteface are in "GHCJS.DOM.SVGPathElement". --- Base interface functions are in: --- --- * "GHCJS.DOM.SVGGraphicsElement" --- * "GHCJS.DOM.SVGElement" --- * "GHCJS.DOM.Element" --- * "GHCJS.DOM.Node" --- * "GHCJS.DOM.EventTarget" --- --- -newtype SVGPathElement = SVGPathElement { unSVGPathElement :: JSVal } - -instance Eq (SVGPathElement) where - (SVGPathElement a) == (SVGPathElement b) = js_eq a b - -instance PToJSVal SVGPathElement where - pToJSVal = unSVGPathElement - {-# INLINE pToJSVal #-} - -instance PFromJSVal SVGPathElement where - pFromJSVal = SVGPathElement - {-# INLINE pFromJSVal #-} - -instance ToJSVal SVGPathElement where - toJSVal = return . unSVGPathElement - {-# INLINE toJSVal #-} - -instance FromJSVal SVGPathElement where - fromJSVal = return . fmap SVGPathElement . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsSVGGraphicsElement SVGPathElement -instance IsSVGElement SVGPathElement -instance IsElement SVGPathElement -instance IsNode SVGPathElement -instance IsEventTarget SVGPathElement -instance IsGObject SVGPathElement where - toGObject = GObject . unSVGPathElement - {-# INLINE toGObject #-} - unsafeCastGObject = SVGPathElement . unGObject - {-# INLINE unsafeCastGObject #-} - -castToSVGPathElement :: IsGObject obj => obj -> IO SVGPathElement -castToSVGPathElement = castTo gTypeSVGPathElement "SVGPathElement" - -foreign import javascript unsafe "window[\"SVGPathElement\"]" gTypeSVGPathElement :: GType - --- | Functions for this inteface are in "GHCJS.DOM.SVGPathSeg". --- --- -newtype SVGPathSeg = SVGPathSeg { unSVGPathSeg :: JSVal } - -instance Eq (SVGPathSeg) where - (SVGPathSeg a) == (SVGPathSeg b) = js_eq a b - -instance PToJSVal SVGPathSeg where - pToJSVal = unSVGPathSeg - {-# INLINE pToJSVal #-} - -instance PFromJSVal SVGPathSeg where - pFromJSVal = SVGPathSeg - {-# INLINE pFromJSVal #-} - -instance ToJSVal SVGPathSeg where - toJSVal = return . unSVGPathSeg - {-# INLINE toJSVal #-} - -instance FromJSVal SVGPathSeg where - fromJSVal = return . fmap SVGPathSeg . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -class IsGObject o => IsSVGPathSeg o -toSVGPathSeg :: IsSVGPathSeg o => o -> SVGPathSeg -toSVGPathSeg = unsafeCastGObject . toGObject - -instance IsSVGPathSeg SVGPathSeg -instance IsGObject SVGPathSeg where - toGObject = GObject . unSVGPathSeg - {-# INLINE toGObject #-} - unsafeCastGObject = SVGPathSeg . unGObject - {-# INLINE unsafeCastGObject #-} - -castToSVGPathSeg :: IsGObject obj => obj -> IO SVGPathSeg -castToSVGPathSeg = castTo gTypeSVGPathSeg "SVGPathSeg" - -foreign import javascript unsafe "window[\"SVGPathSeg\"]" gTypeSVGPathSeg :: GType - --- | Functions for this inteface are in "GHCJS.DOM.SVGPathSegArcAbs". --- Base interface functions are in: --- --- * "GHCJS.DOM.SVGPathSeg" --- --- -newtype SVGPathSegArcAbs = SVGPathSegArcAbs { unSVGPathSegArcAbs :: JSVal } - -instance Eq (SVGPathSegArcAbs) where - (SVGPathSegArcAbs a) == (SVGPathSegArcAbs b) = js_eq a b - -instance PToJSVal SVGPathSegArcAbs where - pToJSVal = unSVGPathSegArcAbs - {-# INLINE pToJSVal #-} - -instance PFromJSVal SVGPathSegArcAbs where - pFromJSVal = SVGPathSegArcAbs - {-# INLINE pFromJSVal #-} - -instance ToJSVal SVGPathSegArcAbs where - toJSVal = return . unSVGPathSegArcAbs - {-# INLINE toJSVal #-} - -instance FromJSVal SVGPathSegArcAbs where - fromJSVal = return . fmap SVGPathSegArcAbs . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsSVGPathSeg SVGPathSegArcAbs -instance IsGObject SVGPathSegArcAbs where - toGObject = GObject . unSVGPathSegArcAbs - {-# INLINE toGObject #-} - unsafeCastGObject = SVGPathSegArcAbs . unGObject - {-# INLINE unsafeCastGObject #-} - -castToSVGPathSegArcAbs :: IsGObject obj => obj -> IO SVGPathSegArcAbs -castToSVGPathSegArcAbs = castTo gTypeSVGPathSegArcAbs "SVGPathSegArcAbs" - -foreign import javascript unsafe "window[\"SVGPathSegArcAbs\"]" gTypeSVGPathSegArcAbs :: GType - --- | Functions for this inteface are in "GHCJS.DOM.SVGPathSegArcRel". --- Base interface functions are in: --- --- * "GHCJS.DOM.SVGPathSeg" --- --- -newtype SVGPathSegArcRel = SVGPathSegArcRel { unSVGPathSegArcRel :: JSVal } - -instance Eq (SVGPathSegArcRel) where - (SVGPathSegArcRel a) == (SVGPathSegArcRel b) = js_eq a b - -instance PToJSVal SVGPathSegArcRel where - pToJSVal = unSVGPathSegArcRel - {-# INLINE pToJSVal #-} - -instance PFromJSVal SVGPathSegArcRel where - pFromJSVal = SVGPathSegArcRel - {-# INLINE pFromJSVal #-} - -instance ToJSVal SVGPathSegArcRel where - toJSVal = return . unSVGPathSegArcRel - {-# INLINE toJSVal #-} - -instance FromJSVal SVGPathSegArcRel where - fromJSVal = return . fmap SVGPathSegArcRel . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsSVGPathSeg SVGPathSegArcRel -instance IsGObject SVGPathSegArcRel where - toGObject = GObject . unSVGPathSegArcRel - {-# INLINE toGObject #-} - unsafeCastGObject = SVGPathSegArcRel . unGObject - {-# INLINE unsafeCastGObject #-} - -castToSVGPathSegArcRel :: IsGObject obj => obj -> IO SVGPathSegArcRel -castToSVGPathSegArcRel = castTo gTypeSVGPathSegArcRel "SVGPathSegArcRel" - -foreign import javascript unsafe "window[\"SVGPathSegArcRel\"]" gTypeSVGPathSegArcRel :: GType - --- | Functions for this inteface are in "GHCJS.DOM.SVGPathSegClosePath". --- Base interface functions are in: --- --- * "GHCJS.DOM.SVGPathSeg" --- --- -newtype SVGPathSegClosePath = SVGPathSegClosePath { unSVGPathSegClosePath :: JSVal } - -instance Eq (SVGPathSegClosePath) where - (SVGPathSegClosePath a) == (SVGPathSegClosePath b) = js_eq a b - -instance PToJSVal SVGPathSegClosePath where - pToJSVal = unSVGPathSegClosePath - {-# INLINE pToJSVal #-} - -instance PFromJSVal SVGPathSegClosePath where - pFromJSVal = SVGPathSegClosePath - {-# INLINE pFromJSVal #-} - -instance ToJSVal SVGPathSegClosePath where - toJSVal = return . unSVGPathSegClosePath - {-# INLINE toJSVal #-} - -instance FromJSVal SVGPathSegClosePath where - fromJSVal = return . fmap SVGPathSegClosePath . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsSVGPathSeg SVGPathSegClosePath -instance IsGObject SVGPathSegClosePath where - toGObject = GObject . unSVGPathSegClosePath - {-# INLINE toGObject #-} - unsafeCastGObject = SVGPathSegClosePath . unGObject - {-# INLINE unsafeCastGObject #-} - -castToSVGPathSegClosePath :: IsGObject obj => obj -> IO SVGPathSegClosePath -castToSVGPathSegClosePath = castTo gTypeSVGPathSegClosePath "SVGPathSegClosePath" - -foreign import javascript unsafe "window[\"SVGPathSegClosePath\"]" gTypeSVGPathSegClosePath :: GType - --- | Functions for this inteface are in "GHCJS.DOM.SVGPathSegCurvetoCubicAbs". --- Base interface functions are in: --- --- * "GHCJS.DOM.SVGPathSeg" --- --- -newtype SVGPathSegCurvetoCubicAbs = SVGPathSegCurvetoCubicAbs { unSVGPathSegCurvetoCubicAbs :: JSVal } - -instance Eq (SVGPathSegCurvetoCubicAbs) where - (SVGPathSegCurvetoCubicAbs a) == (SVGPathSegCurvetoCubicAbs b) = js_eq a b - -instance PToJSVal SVGPathSegCurvetoCubicAbs where - pToJSVal = unSVGPathSegCurvetoCubicAbs - {-# INLINE pToJSVal #-} - -instance PFromJSVal SVGPathSegCurvetoCubicAbs where - pFromJSVal = SVGPathSegCurvetoCubicAbs - {-# INLINE pFromJSVal #-} - -instance ToJSVal SVGPathSegCurvetoCubicAbs where - toJSVal = return . unSVGPathSegCurvetoCubicAbs - {-# INLINE toJSVal #-} - -instance FromJSVal SVGPathSegCurvetoCubicAbs where - fromJSVal = return . fmap SVGPathSegCurvetoCubicAbs . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsSVGPathSeg SVGPathSegCurvetoCubicAbs -instance IsGObject SVGPathSegCurvetoCubicAbs where - toGObject = GObject . unSVGPathSegCurvetoCubicAbs - {-# INLINE toGObject #-} - unsafeCastGObject = SVGPathSegCurvetoCubicAbs . unGObject - {-# INLINE unsafeCastGObject #-} - -castToSVGPathSegCurvetoCubicAbs :: IsGObject obj => obj -> IO SVGPathSegCurvetoCubicAbs -castToSVGPathSegCurvetoCubicAbs = castTo gTypeSVGPathSegCurvetoCubicAbs "SVGPathSegCurvetoCubicAbs" - -foreign import javascript unsafe "window[\"SVGPathSegCurvetoCubicAbs\"]" gTypeSVGPathSegCurvetoCubicAbs :: GType - --- | Functions for this inteface are in "GHCJS.DOM.SVGPathSegCurvetoCubicRel". --- Base interface functions are in: --- --- * "GHCJS.DOM.SVGPathSeg" --- --- -newtype SVGPathSegCurvetoCubicRel = SVGPathSegCurvetoCubicRel { unSVGPathSegCurvetoCubicRel :: JSVal } - -instance Eq (SVGPathSegCurvetoCubicRel) where - (SVGPathSegCurvetoCubicRel a) == (SVGPathSegCurvetoCubicRel b) = js_eq a b - -instance PToJSVal SVGPathSegCurvetoCubicRel where - pToJSVal = unSVGPathSegCurvetoCubicRel - {-# INLINE pToJSVal #-} - -instance PFromJSVal SVGPathSegCurvetoCubicRel where - pFromJSVal = SVGPathSegCurvetoCubicRel - {-# INLINE pFromJSVal #-} - -instance ToJSVal SVGPathSegCurvetoCubicRel where - toJSVal = return . unSVGPathSegCurvetoCubicRel - {-# INLINE toJSVal #-} - -instance FromJSVal SVGPathSegCurvetoCubicRel where - fromJSVal = return . fmap SVGPathSegCurvetoCubicRel . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsSVGPathSeg SVGPathSegCurvetoCubicRel -instance IsGObject SVGPathSegCurvetoCubicRel where - toGObject = GObject . unSVGPathSegCurvetoCubicRel - {-# INLINE toGObject #-} - unsafeCastGObject = SVGPathSegCurvetoCubicRel . unGObject - {-# INLINE unsafeCastGObject #-} - -castToSVGPathSegCurvetoCubicRel :: IsGObject obj => obj -> IO SVGPathSegCurvetoCubicRel -castToSVGPathSegCurvetoCubicRel = castTo gTypeSVGPathSegCurvetoCubicRel "SVGPathSegCurvetoCubicRel" - -foreign import javascript unsafe "window[\"SVGPathSegCurvetoCubicRel\"]" gTypeSVGPathSegCurvetoCubicRel :: GType - --- | Functions for this inteface are in "GHCJS.DOM.SVGPathSegCurvetoCubicSmoothAbs". --- Base interface functions are in: --- --- * "GHCJS.DOM.SVGPathSeg" --- --- -newtype SVGPathSegCurvetoCubicSmoothAbs = SVGPathSegCurvetoCubicSmoothAbs { unSVGPathSegCurvetoCubicSmoothAbs :: JSVal } - -instance Eq (SVGPathSegCurvetoCubicSmoothAbs) where - (SVGPathSegCurvetoCubicSmoothAbs a) == (SVGPathSegCurvetoCubicSmoothAbs b) = js_eq a b - -instance PToJSVal SVGPathSegCurvetoCubicSmoothAbs where - pToJSVal = unSVGPathSegCurvetoCubicSmoothAbs - {-# INLINE pToJSVal #-} - -instance PFromJSVal SVGPathSegCurvetoCubicSmoothAbs where - pFromJSVal = SVGPathSegCurvetoCubicSmoothAbs - {-# INLINE pFromJSVal #-} - -instance ToJSVal SVGPathSegCurvetoCubicSmoothAbs where - toJSVal = return . unSVGPathSegCurvetoCubicSmoothAbs - {-# INLINE toJSVal #-} - -instance FromJSVal SVGPathSegCurvetoCubicSmoothAbs where - fromJSVal = return . fmap SVGPathSegCurvetoCubicSmoothAbs . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsSVGPathSeg SVGPathSegCurvetoCubicSmoothAbs -instance IsGObject SVGPathSegCurvetoCubicSmoothAbs where - toGObject = GObject . unSVGPathSegCurvetoCubicSmoothAbs - {-# INLINE toGObject #-} - unsafeCastGObject = SVGPathSegCurvetoCubicSmoothAbs . unGObject - {-# INLINE unsafeCastGObject #-} - -castToSVGPathSegCurvetoCubicSmoothAbs :: IsGObject obj => obj -> IO SVGPathSegCurvetoCubicSmoothAbs -castToSVGPathSegCurvetoCubicSmoothAbs = castTo gTypeSVGPathSegCurvetoCubicSmoothAbs "SVGPathSegCurvetoCubicSmoothAbs" - -foreign import javascript unsafe "window[\"SVGPathSegCurvetoCubicSmoothAbs\"]" gTypeSVGPathSegCurvetoCubicSmoothAbs :: GType - --- | Functions for this inteface are in "GHCJS.DOM.SVGPathSegCurvetoCubicSmoothRel". --- Base interface functions are in: --- --- * "GHCJS.DOM.SVGPathSeg" --- --- -newtype SVGPathSegCurvetoCubicSmoothRel = SVGPathSegCurvetoCubicSmoothRel { unSVGPathSegCurvetoCubicSmoothRel :: JSVal } - -instance Eq (SVGPathSegCurvetoCubicSmoothRel) where - (SVGPathSegCurvetoCubicSmoothRel a) == (SVGPathSegCurvetoCubicSmoothRel b) = js_eq a b - -instance PToJSVal SVGPathSegCurvetoCubicSmoothRel where - pToJSVal = unSVGPathSegCurvetoCubicSmoothRel - {-# INLINE pToJSVal #-} - -instance PFromJSVal SVGPathSegCurvetoCubicSmoothRel where - pFromJSVal = SVGPathSegCurvetoCubicSmoothRel - {-# INLINE pFromJSVal #-} - -instance ToJSVal SVGPathSegCurvetoCubicSmoothRel where - toJSVal = return . unSVGPathSegCurvetoCubicSmoothRel - {-# INLINE toJSVal #-} - -instance FromJSVal SVGPathSegCurvetoCubicSmoothRel where - fromJSVal = return . fmap SVGPathSegCurvetoCubicSmoothRel . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsSVGPathSeg SVGPathSegCurvetoCubicSmoothRel -instance IsGObject SVGPathSegCurvetoCubicSmoothRel where - toGObject = GObject . unSVGPathSegCurvetoCubicSmoothRel - {-# INLINE toGObject #-} - unsafeCastGObject = SVGPathSegCurvetoCubicSmoothRel . unGObject - {-# INLINE unsafeCastGObject #-} - -castToSVGPathSegCurvetoCubicSmoothRel :: IsGObject obj => obj -> IO SVGPathSegCurvetoCubicSmoothRel -castToSVGPathSegCurvetoCubicSmoothRel = castTo gTypeSVGPathSegCurvetoCubicSmoothRel "SVGPathSegCurvetoCubicSmoothRel" - -foreign import javascript unsafe "window[\"SVGPathSegCurvetoCubicSmoothRel\"]" gTypeSVGPathSegCurvetoCubicSmoothRel :: GType - --- | Functions for this inteface are in "GHCJS.DOM.SVGPathSegCurvetoQuadraticAbs". --- Base interface functions are in: --- --- * "GHCJS.DOM.SVGPathSeg" --- --- -newtype SVGPathSegCurvetoQuadraticAbs = SVGPathSegCurvetoQuadraticAbs { unSVGPathSegCurvetoQuadraticAbs :: JSVal } - -instance Eq (SVGPathSegCurvetoQuadraticAbs) where - (SVGPathSegCurvetoQuadraticAbs a) == (SVGPathSegCurvetoQuadraticAbs b) = js_eq a b - -instance PToJSVal SVGPathSegCurvetoQuadraticAbs where - pToJSVal = unSVGPathSegCurvetoQuadraticAbs - {-# INLINE pToJSVal #-} - -instance PFromJSVal SVGPathSegCurvetoQuadraticAbs where - pFromJSVal = SVGPathSegCurvetoQuadraticAbs - {-# INLINE pFromJSVal #-} - -instance ToJSVal SVGPathSegCurvetoQuadraticAbs where - toJSVal = return . unSVGPathSegCurvetoQuadraticAbs - {-# INLINE toJSVal #-} - -instance FromJSVal SVGPathSegCurvetoQuadraticAbs where - fromJSVal = return . fmap SVGPathSegCurvetoQuadraticAbs . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsSVGPathSeg SVGPathSegCurvetoQuadraticAbs -instance IsGObject SVGPathSegCurvetoQuadraticAbs where - toGObject = GObject . unSVGPathSegCurvetoQuadraticAbs - {-# INLINE toGObject #-} - unsafeCastGObject = SVGPathSegCurvetoQuadraticAbs . unGObject - {-# INLINE unsafeCastGObject #-} - -castToSVGPathSegCurvetoQuadraticAbs :: IsGObject obj => obj -> IO SVGPathSegCurvetoQuadraticAbs -castToSVGPathSegCurvetoQuadraticAbs = castTo gTypeSVGPathSegCurvetoQuadraticAbs "SVGPathSegCurvetoQuadraticAbs" - -foreign import javascript unsafe "window[\"SVGPathSegCurvetoQuadraticAbs\"]" gTypeSVGPathSegCurvetoQuadraticAbs :: GType - --- | Functions for this inteface are in "GHCJS.DOM.SVGPathSegCurvetoQuadraticRel". --- Base interface functions are in: --- --- * "GHCJS.DOM.SVGPathSeg" --- --- -newtype SVGPathSegCurvetoQuadraticRel = SVGPathSegCurvetoQuadraticRel { unSVGPathSegCurvetoQuadraticRel :: JSVal } - -instance Eq (SVGPathSegCurvetoQuadraticRel) where - (SVGPathSegCurvetoQuadraticRel a) == (SVGPathSegCurvetoQuadraticRel b) = js_eq a b - -instance PToJSVal SVGPathSegCurvetoQuadraticRel where - pToJSVal = unSVGPathSegCurvetoQuadraticRel - {-# INLINE pToJSVal #-} - -instance PFromJSVal SVGPathSegCurvetoQuadraticRel where - pFromJSVal = SVGPathSegCurvetoQuadraticRel - {-# INLINE pFromJSVal #-} - -instance ToJSVal SVGPathSegCurvetoQuadraticRel where - toJSVal = return . unSVGPathSegCurvetoQuadraticRel - {-# INLINE toJSVal #-} - -instance FromJSVal SVGPathSegCurvetoQuadraticRel where - fromJSVal = return . fmap SVGPathSegCurvetoQuadraticRel . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsSVGPathSeg SVGPathSegCurvetoQuadraticRel -instance IsGObject SVGPathSegCurvetoQuadraticRel where - toGObject = GObject . unSVGPathSegCurvetoQuadraticRel - {-# INLINE toGObject #-} - unsafeCastGObject = SVGPathSegCurvetoQuadraticRel . unGObject - {-# INLINE unsafeCastGObject #-} - -castToSVGPathSegCurvetoQuadraticRel :: IsGObject obj => obj -> IO SVGPathSegCurvetoQuadraticRel -castToSVGPathSegCurvetoQuadraticRel = castTo gTypeSVGPathSegCurvetoQuadraticRel "SVGPathSegCurvetoQuadraticRel" - -foreign import javascript unsafe "window[\"SVGPathSegCurvetoQuadraticRel\"]" gTypeSVGPathSegCurvetoQuadraticRel :: GType - --- | Functions for this inteface are in "GHCJS.DOM.SVGPathSegCurvetoQuadraticSmoothAbs". --- Base interface functions are in: --- --- * "GHCJS.DOM.SVGPathSeg" --- --- -newtype SVGPathSegCurvetoQuadraticSmoothAbs = SVGPathSegCurvetoQuadraticSmoothAbs { unSVGPathSegCurvetoQuadraticSmoothAbs :: JSVal } - -instance Eq (SVGPathSegCurvetoQuadraticSmoothAbs) where - (SVGPathSegCurvetoQuadraticSmoothAbs a) == (SVGPathSegCurvetoQuadraticSmoothAbs b) = js_eq a b - -instance PToJSVal SVGPathSegCurvetoQuadraticSmoothAbs where - pToJSVal = unSVGPathSegCurvetoQuadraticSmoothAbs - {-# INLINE pToJSVal #-} - -instance PFromJSVal SVGPathSegCurvetoQuadraticSmoothAbs where - pFromJSVal = SVGPathSegCurvetoQuadraticSmoothAbs - {-# INLINE pFromJSVal #-} - -instance ToJSVal SVGPathSegCurvetoQuadraticSmoothAbs where - toJSVal = return . unSVGPathSegCurvetoQuadraticSmoothAbs - {-# INLINE toJSVal #-} - -instance FromJSVal SVGPathSegCurvetoQuadraticSmoothAbs where - fromJSVal = return . fmap SVGPathSegCurvetoQuadraticSmoothAbs . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsSVGPathSeg SVGPathSegCurvetoQuadraticSmoothAbs -instance IsGObject SVGPathSegCurvetoQuadraticSmoothAbs where - toGObject = GObject . unSVGPathSegCurvetoQuadraticSmoothAbs - {-# INLINE toGObject #-} - unsafeCastGObject = SVGPathSegCurvetoQuadraticSmoothAbs . unGObject - {-# INLINE unsafeCastGObject #-} - -castToSVGPathSegCurvetoQuadraticSmoothAbs :: IsGObject obj => obj -> IO SVGPathSegCurvetoQuadraticSmoothAbs -castToSVGPathSegCurvetoQuadraticSmoothAbs = castTo gTypeSVGPathSegCurvetoQuadraticSmoothAbs "SVGPathSegCurvetoQuadraticSmoothAbs" - -foreign import javascript unsafe "window[\"SVGPathSegCurvetoQuadraticSmoothAbs\"]" gTypeSVGPathSegCurvetoQuadraticSmoothAbs :: GType - --- | Functions for this inteface are in "GHCJS.DOM.SVGPathSegCurvetoQuadraticSmoothRel". --- Base interface functions are in: --- --- * "GHCJS.DOM.SVGPathSeg" --- --- -newtype SVGPathSegCurvetoQuadraticSmoothRel = SVGPathSegCurvetoQuadraticSmoothRel { unSVGPathSegCurvetoQuadraticSmoothRel :: JSVal } - -instance Eq (SVGPathSegCurvetoQuadraticSmoothRel) where - (SVGPathSegCurvetoQuadraticSmoothRel a) == (SVGPathSegCurvetoQuadraticSmoothRel b) = js_eq a b - -instance PToJSVal SVGPathSegCurvetoQuadraticSmoothRel where - pToJSVal = unSVGPathSegCurvetoQuadraticSmoothRel - {-# INLINE pToJSVal #-} - -instance PFromJSVal SVGPathSegCurvetoQuadraticSmoothRel where - pFromJSVal = SVGPathSegCurvetoQuadraticSmoothRel - {-# INLINE pFromJSVal #-} - -instance ToJSVal SVGPathSegCurvetoQuadraticSmoothRel where - toJSVal = return . unSVGPathSegCurvetoQuadraticSmoothRel - {-# INLINE toJSVal #-} - -instance FromJSVal SVGPathSegCurvetoQuadraticSmoothRel where - fromJSVal = return . fmap SVGPathSegCurvetoQuadraticSmoothRel . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsSVGPathSeg SVGPathSegCurvetoQuadraticSmoothRel -instance IsGObject SVGPathSegCurvetoQuadraticSmoothRel where - toGObject = GObject . unSVGPathSegCurvetoQuadraticSmoothRel - {-# INLINE toGObject #-} - unsafeCastGObject = SVGPathSegCurvetoQuadraticSmoothRel . unGObject - {-# INLINE unsafeCastGObject #-} - -castToSVGPathSegCurvetoQuadraticSmoothRel :: IsGObject obj => obj -> IO SVGPathSegCurvetoQuadraticSmoothRel -castToSVGPathSegCurvetoQuadraticSmoothRel = castTo gTypeSVGPathSegCurvetoQuadraticSmoothRel "SVGPathSegCurvetoQuadraticSmoothRel" - -foreign import javascript unsafe "window[\"SVGPathSegCurvetoQuadraticSmoothRel\"]" gTypeSVGPathSegCurvetoQuadraticSmoothRel :: GType - --- | Functions for this inteface are in "GHCJS.DOM.SVGPathSegLinetoAbs". --- Base interface functions are in: --- --- * "GHCJS.DOM.SVGPathSeg" --- --- -newtype SVGPathSegLinetoAbs = SVGPathSegLinetoAbs { unSVGPathSegLinetoAbs :: JSVal } - -instance Eq (SVGPathSegLinetoAbs) where - (SVGPathSegLinetoAbs a) == (SVGPathSegLinetoAbs b) = js_eq a b - -instance PToJSVal SVGPathSegLinetoAbs where - pToJSVal = unSVGPathSegLinetoAbs - {-# INLINE pToJSVal #-} - -instance PFromJSVal SVGPathSegLinetoAbs where - pFromJSVal = SVGPathSegLinetoAbs - {-# INLINE pFromJSVal #-} - -instance ToJSVal SVGPathSegLinetoAbs where - toJSVal = return . unSVGPathSegLinetoAbs - {-# INLINE toJSVal #-} - -instance FromJSVal SVGPathSegLinetoAbs where - fromJSVal = return . fmap SVGPathSegLinetoAbs . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsSVGPathSeg SVGPathSegLinetoAbs -instance IsGObject SVGPathSegLinetoAbs where - toGObject = GObject . unSVGPathSegLinetoAbs - {-# INLINE toGObject #-} - unsafeCastGObject = SVGPathSegLinetoAbs . unGObject - {-# INLINE unsafeCastGObject #-} - -castToSVGPathSegLinetoAbs :: IsGObject obj => obj -> IO SVGPathSegLinetoAbs -castToSVGPathSegLinetoAbs = castTo gTypeSVGPathSegLinetoAbs "SVGPathSegLinetoAbs" - -foreign import javascript unsafe "window[\"SVGPathSegLinetoAbs\"]" gTypeSVGPathSegLinetoAbs :: GType - --- | Functions for this inteface are in "GHCJS.DOM.SVGPathSegLinetoHorizontalAbs". --- Base interface functions are in: --- --- * "GHCJS.DOM.SVGPathSeg" --- --- -newtype SVGPathSegLinetoHorizontalAbs = SVGPathSegLinetoHorizontalAbs { unSVGPathSegLinetoHorizontalAbs :: JSVal } - -instance Eq (SVGPathSegLinetoHorizontalAbs) where - (SVGPathSegLinetoHorizontalAbs a) == (SVGPathSegLinetoHorizontalAbs b) = js_eq a b - -instance PToJSVal SVGPathSegLinetoHorizontalAbs where - pToJSVal = unSVGPathSegLinetoHorizontalAbs - {-# INLINE pToJSVal #-} - -instance PFromJSVal SVGPathSegLinetoHorizontalAbs where - pFromJSVal = SVGPathSegLinetoHorizontalAbs - {-# INLINE pFromJSVal #-} - -instance ToJSVal SVGPathSegLinetoHorizontalAbs where - toJSVal = return . unSVGPathSegLinetoHorizontalAbs - {-# INLINE toJSVal #-} - -instance FromJSVal SVGPathSegLinetoHorizontalAbs where - fromJSVal = return . fmap SVGPathSegLinetoHorizontalAbs . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsSVGPathSeg SVGPathSegLinetoHorizontalAbs -instance IsGObject SVGPathSegLinetoHorizontalAbs where - toGObject = GObject . unSVGPathSegLinetoHorizontalAbs - {-# INLINE toGObject #-} - unsafeCastGObject = SVGPathSegLinetoHorizontalAbs . unGObject - {-# INLINE unsafeCastGObject #-} - -castToSVGPathSegLinetoHorizontalAbs :: IsGObject obj => obj -> IO SVGPathSegLinetoHorizontalAbs -castToSVGPathSegLinetoHorizontalAbs = castTo gTypeSVGPathSegLinetoHorizontalAbs "SVGPathSegLinetoHorizontalAbs" - -foreign import javascript unsafe "window[\"SVGPathSegLinetoHorizontalAbs\"]" gTypeSVGPathSegLinetoHorizontalAbs :: GType - --- | Functions for this inteface are in "GHCJS.DOM.SVGPathSegLinetoHorizontalRel". --- Base interface functions are in: --- --- * "GHCJS.DOM.SVGPathSeg" --- --- -newtype SVGPathSegLinetoHorizontalRel = SVGPathSegLinetoHorizontalRel { unSVGPathSegLinetoHorizontalRel :: JSVal } - -instance Eq (SVGPathSegLinetoHorizontalRel) where - (SVGPathSegLinetoHorizontalRel a) == (SVGPathSegLinetoHorizontalRel b) = js_eq a b - -instance PToJSVal SVGPathSegLinetoHorizontalRel where - pToJSVal = unSVGPathSegLinetoHorizontalRel - {-# INLINE pToJSVal #-} - -instance PFromJSVal SVGPathSegLinetoHorizontalRel where - pFromJSVal = SVGPathSegLinetoHorizontalRel - {-# INLINE pFromJSVal #-} - -instance ToJSVal SVGPathSegLinetoHorizontalRel where - toJSVal = return . unSVGPathSegLinetoHorizontalRel - {-# INLINE toJSVal #-} - -instance FromJSVal SVGPathSegLinetoHorizontalRel where - fromJSVal = return . fmap SVGPathSegLinetoHorizontalRel . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsSVGPathSeg SVGPathSegLinetoHorizontalRel -instance IsGObject SVGPathSegLinetoHorizontalRel where - toGObject = GObject . unSVGPathSegLinetoHorizontalRel - {-# INLINE toGObject #-} - unsafeCastGObject = SVGPathSegLinetoHorizontalRel . unGObject - {-# INLINE unsafeCastGObject #-} - -castToSVGPathSegLinetoHorizontalRel :: IsGObject obj => obj -> IO SVGPathSegLinetoHorizontalRel -castToSVGPathSegLinetoHorizontalRel = castTo gTypeSVGPathSegLinetoHorizontalRel "SVGPathSegLinetoHorizontalRel" - -foreign import javascript unsafe "window[\"SVGPathSegLinetoHorizontalRel\"]" gTypeSVGPathSegLinetoHorizontalRel :: GType - --- | Functions for this inteface are in "GHCJS.DOM.SVGPathSegLinetoRel". --- Base interface functions are in: --- --- * "GHCJS.DOM.SVGPathSeg" --- --- -newtype SVGPathSegLinetoRel = SVGPathSegLinetoRel { unSVGPathSegLinetoRel :: JSVal } - -instance Eq (SVGPathSegLinetoRel) where - (SVGPathSegLinetoRel a) == (SVGPathSegLinetoRel b) = js_eq a b - -instance PToJSVal SVGPathSegLinetoRel where - pToJSVal = unSVGPathSegLinetoRel - {-# INLINE pToJSVal #-} - -instance PFromJSVal SVGPathSegLinetoRel where - pFromJSVal = SVGPathSegLinetoRel - {-# INLINE pFromJSVal #-} - -instance ToJSVal SVGPathSegLinetoRel where - toJSVal = return . unSVGPathSegLinetoRel - {-# INLINE toJSVal #-} - -instance FromJSVal SVGPathSegLinetoRel where - fromJSVal = return . fmap SVGPathSegLinetoRel . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsSVGPathSeg SVGPathSegLinetoRel -instance IsGObject SVGPathSegLinetoRel where - toGObject = GObject . unSVGPathSegLinetoRel - {-# INLINE toGObject #-} - unsafeCastGObject = SVGPathSegLinetoRel . unGObject - {-# INLINE unsafeCastGObject #-} - -castToSVGPathSegLinetoRel :: IsGObject obj => obj -> IO SVGPathSegLinetoRel -castToSVGPathSegLinetoRel = castTo gTypeSVGPathSegLinetoRel "SVGPathSegLinetoRel" - -foreign import javascript unsafe "window[\"SVGPathSegLinetoRel\"]" gTypeSVGPathSegLinetoRel :: GType - --- | Functions for this inteface are in "GHCJS.DOM.SVGPathSegLinetoVerticalAbs". --- Base interface functions are in: --- --- * "GHCJS.DOM.SVGPathSeg" --- --- -newtype SVGPathSegLinetoVerticalAbs = SVGPathSegLinetoVerticalAbs { unSVGPathSegLinetoVerticalAbs :: JSVal } - -instance Eq (SVGPathSegLinetoVerticalAbs) where - (SVGPathSegLinetoVerticalAbs a) == (SVGPathSegLinetoVerticalAbs b) = js_eq a b - -instance PToJSVal SVGPathSegLinetoVerticalAbs where - pToJSVal = unSVGPathSegLinetoVerticalAbs - {-# INLINE pToJSVal #-} - -instance PFromJSVal SVGPathSegLinetoVerticalAbs where - pFromJSVal = SVGPathSegLinetoVerticalAbs - {-# INLINE pFromJSVal #-} - -instance ToJSVal SVGPathSegLinetoVerticalAbs where - toJSVal = return . unSVGPathSegLinetoVerticalAbs - {-# INLINE toJSVal #-} - -instance FromJSVal SVGPathSegLinetoVerticalAbs where - fromJSVal = return . fmap SVGPathSegLinetoVerticalAbs . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsSVGPathSeg SVGPathSegLinetoVerticalAbs -instance IsGObject SVGPathSegLinetoVerticalAbs where - toGObject = GObject . unSVGPathSegLinetoVerticalAbs - {-# INLINE toGObject #-} - unsafeCastGObject = SVGPathSegLinetoVerticalAbs . unGObject - {-# INLINE unsafeCastGObject #-} - -castToSVGPathSegLinetoVerticalAbs :: IsGObject obj => obj -> IO SVGPathSegLinetoVerticalAbs -castToSVGPathSegLinetoVerticalAbs = castTo gTypeSVGPathSegLinetoVerticalAbs "SVGPathSegLinetoVerticalAbs" - -foreign import javascript unsafe "window[\"SVGPathSegLinetoVerticalAbs\"]" gTypeSVGPathSegLinetoVerticalAbs :: GType - --- | Functions for this inteface are in "GHCJS.DOM.SVGPathSegLinetoVerticalRel". --- Base interface functions are in: --- --- * "GHCJS.DOM.SVGPathSeg" --- --- -newtype SVGPathSegLinetoVerticalRel = SVGPathSegLinetoVerticalRel { unSVGPathSegLinetoVerticalRel :: JSVal } - -instance Eq (SVGPathSegLinetoVerticalRel) where - (SVGPathSegLinetoVerticalRel a) == (SVGPathSegLinetoVerticalRel b) = js_eq a b - -instance PToJSVal SVGPathSegLinetoVerticalRel where - pToJSVal = unSVGPathSegLinetoVerticalRel - {-# INLINE pToJSVal #-} - -instance PFromJSVal SVGPathSegLinetoVerticalRel where - pFromJSVal = SVGPathSegLinetoVerticalRel - {-# INLINE pFromJSVal #-} - -instance ToJSVal SVGPathSegLinetoVerticalRel where - toJSVal = return . unSVGPathSegLinetoVerticalRel - {-# INLINE toJSVal #-} - -instance FromJSVal SVGPathSegLinetoVerticalRel where - fromJSVal = return . fmap SVGPathSegLinetoVerticalRel . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsSVGPathSeg SVGPathSegLinetoVerticalRel -instance IsGObject SVGPathSegLinetoVerticalRel where - toGObject = GObject . unSVGPathSegLinetoVerticalRel - {-# INLINE toGObject #-} - unsafeCastGObject = SVGPathSegLinetoVerticalRel . unGObject - {-# INLINE unsafeCastGObject #-} - -castToSVGPathSegLinetoVerticalRel :: IsGObject obj => obj -> IO SVGPathSegLinetoVerticalRel -castToSVGPathSegLinetoVerticalRel = castTo gTypeSVGPathSegLinetoVerticalRel "SVGPathSegLinetoVerticalRel" - -foreign import javascript unsafe "window[\"SVGPathSegLinetoVerticalRel\"]" gTypeSVGPathSegLinetoVerticalRel :: GType - --- | Functions for this inteface are in "GHCJS.DOM.SVGPathSegList". --- --- -newtype SVGPathSegList = SVGPathSegList { unSVGPathSegList :: JSVal } - -instance Eq (SVGPathSegList) where - (SVGPathSegList a) == (SVGPathSegList b) = js_eq a b - -instance PToJSVal SVGPathSegList where - pToJSVal = unSVGPathSegList - {-# INLINE pToJSVal #-} - -instance PFromJSVal SVGPathSegList where - pFromJSVal = SVGPathSegList - {-# INLINE pFromJSVal #-} - -instance ToJSVal SVGPathSegList where - toJSVal = return . unSVGPathSegList - {-# INLINE toJSVal #-} - -instance FromJSVal SVGPathSegList where - fromJSVal = return . fmap SVGPathSegList . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsGObject SVGPathSegList where - toGObject = GObject . unSVGPathSegList - {-# INLINE toGObject #-} - unsafeCastGObject = SVGPathSegList . unGObject - {-# INLINE unsafeCastGObject #-} - -castToSVGPathSegList :: IsGObject obj => obj -> IO SVGPathSegList -castToSVGPathSegList = castTo gTypeSVGPathSegList "SVGPathSegList" - -foreign import javascript unsafe "window[\"SVGPathSegList\"]" gTypeSVGPathSegList :: GType - --- | Functions for this inteface are in "GHCJS.DOM.SVGPathSegMovetoAbs". --- Base interface functions are in: --- --- * "GHCJS.DOM.SVGPathSeg" --- --- -newtype SVGPathSegMovetoAbs = SVGPathSegMovetoAbs { unSVGPathSegMovetoAbs :: JSVal } - -instance Eq (SVGPathSegMovetoAbs) where - (SVGPathSegMovetoAbs a) == (SVGPathSegMovetoAbs b) = js_eq a b - -instance PToJSVal SVGPathSegMovetoAbs where - pToJSVal = unSVGPathSegMovetoAbs - {-# INLINE pToJSVal #-} - -instance PFromJSVal SVGPathSegMovetoAbs where - pFromJSVal = SVGPathSegMovetoAbs - {-# INLINE pFromJSVal #-} - -instance ToJSVal SVGPathSegMovetoAbs where - toJSVal = return . unSVGPathSegMovetoAbs - {-# INLINE toJSVal #-} - -instance FromJSVal SVGPathSegMovetoAbs where - fromJSVal = return . fmap SVGPathSegMovetoAbs . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsSVGPathSeg SVGPathSegMovetoAbs -instance IsGObject SVGPathSegMovetoAbs where - toGObject = GObject . unSVGPathSegMovetoAbs - {-# INLINE toGObject #-} - unsafeCastGObject = SVGPathSegMovetoAbs . unGObject - {-# INLINE unsafeCastGObject #-} - -castToSVGPathSegMovetoAbs :: IsGObject obj => obj -> IO SVGPathSegMovetoAbs -castToSVGPathSegMovetoAbs = castTo gTypeSVGPathSegMovetoAbs "SVGPathSegMovetoAbs" - -foreign import javascript unsafe "window[\"SVGPathSegMovetoAbs\"]" gTypeSVGPathSegMovetoAbs :: GType - --- | Functions for this inteface are in "GHCJS.DOM.SVGPathSegMovetoRel". --- Base interface functions are in: --- --- * "GHCJS.DOM.SVGPathSeg" --- --- -newtype SVGPathSegMovetoRel = SVGPathSegMovetoRel { unSVGPathSegMovetoRel :: JSVal } - -instance Eq (SVGPathSegMovetoRel) where - (SVGPathSegMovetoRel a) == (SVGPathSegMovetoRel b) = js_eq a b - -instance PToJSVal SVGPathSegMovetoRel where - pToJSVal = unSVGPathSegMovetoRel - {-# INLINE pToJSVal #-} - -instance PFromJSVal SVGPathSegMovetoRel where - pFromJSVal = SVGPathSegMovetoRel - {-# INLINE pFromJSVal #-} - -instance ToJSVal SVGPathSegMovetoRel where - toJSVal = return . unSVGPathSegMovetoRel - {-# INLINE toJSVal #-} - -instance FromJSVal SVGPathSegMovetoRel where - fromJSVal = return . fmap SVGPathSegMovetoRel . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsSVGPathSeg SVGPathSegMovetoRel -instance IsGObject SVGPathSegMovetoRel where - toGObject = GObject . unSVGPathSegMovetoRel - {-# INLINE toGObject #-} - unsafeCastGObject = SVGPathSegMovetoRel . unGObject - {-# INLINE unsafeCastGObject #-} - -castToSVGPathSegMovetoRel :: IsGObject obj => obj -> IO SVGPathSegMovetoRel -castToSVGPathSegMovetoRel = castTo gTypeSVGPathSegMovetoRel "SVGPathSegMovetoRel" - -foreign import javascript unsafe "window[\"SVGPathSegMovetoRel\"]" gTypeSVGPathSegMovetoRel :: GType - --- | Functions for this inteface are in "GHCJS.DOM.SVGPatternElement". --- Base interface functions are in: --- --- * "GHCJS.DOM.SVGElement" --- * "GHCJS.DOM.Element" --- * "GHCJS.DOM.Node" --- * "GHCJS.DOM.EventTarget" --- --- -newtype SVGPatternElement = SVGPatternElement { unSVGPatternElement :: JSVal } - -instance Eq (SVGPatternElement) where - (SVGPatternElement a) == (SVGPatternElement b) = js_eq a b - -instance PToJSVal SVGPatternElement where - pToJSVal = unSVGPatternElement - {-# INLINE pToJSVal #-} - -instance PFromJSVal SVGPatternElement where - pFromJSVal = SVGPatternElement - {-# INLINE pFromJSVal #-} - -instance ToJSVal SVGPatternElement where - toJSVal = return . unSVGPatternElement - {-# INLINE toJSVal #-} - -instance FromJSVal SVGPatternElement where - fromJSVal = return . fmap SVGPatternElement . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsSVGElement SVGPatternElement -instance IsElement SVGPatternElement -instance IsNode SVGPatternElement -instance IsEventTarget SVGPatternElement -instance IsGObject SVGPatternElement where - toGObject = GObject . unSVGPatternElement - {-# INLINE toGObject #-} - unsafeCastGObject = SVGPatternElement . unGObject - {-# INLINE unsafeCastGObject #-} - -castToSVGPatternElement :: IsGObject obj => obj -> IO SVGPatternElement -castToSVGPatternElement = castTo gTypeSVGPatternElement "SVGPatternElement" - -foreign import javascript unsafe "window[\"SVGPatternElement\"]" gTypeSVGPatternElement :: GType - --- | Functions for this inteface are in "GHCJS.DOM.SVGPoint". --- --- -newtype SVGPoint = SVGPoint { unSVGPoint :: JSVal } - -instance Eq (SVGPoint) where - (SVGPoint a) == (SVGPoint b) = js_eq a b - -instance PToJSVal SVGPoint where - pToJSVal = unSVGPoint - {-# INLINE pToJSVal #-} - -instance PFromJSVal SVGPoint where - pFromJSVal = SVGPoint - {-# INLINE pFromJSVal #-} - -instance ToJSVal SVGPoint where - toJSVal = return . unSVGPoint - {-# INLINE toJSVal #-} - -instance FromJSVal SVGPoint where - fromJSVal = return . fmap SVGPoint . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsGObject SVGPoint where - toGObject = GObject . unSVGPoint - {-# INLINE toGObject #-} - unsafeCastGObject = SVGPoint . unGObject - {-# INLINE unsafeCastGObject #-} - -castToSVGPoint :: IsGObject obj => obj -> IO SVGPoint -castToSVGPoint = castTo gTypeSVGPoint "SVGPoint" - -foreign import javascript unsafe "window[\"SVGPoint\"]" gTypeSVGPoint :: GType - --- | Functions for this inteface are in "GHCJS.DOM.SVGPointList". --- --- -newtype SVGPointList = SVGPointList { unSVGPointList :: JSVal } - -instance Eq (SVGPointList) where - (SVGPointList a) == (SVGPointList b) = js_eq a b - -instance PToJSVal SVGPointList where - pToJSVal = unSVGPointList - {-# INLINE pToJSVal #-} - -instance PFromJSVal SVGPointList where - pFromJSVal = SVGPointList - {-# INLINE pFromJSVal #-} - -instance ToJSVal SVGPointList where - toJSVal = return . unSVGPointList - {-# INLINE toJSVal #-} - -instance FromJSVal SVGPointList where - fromJSVal = return . fmap SVGPointList . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsGObject SVGPointList where - toGObject = GObject . unSVGPointList - {-# INLINE toGObject #-} - unsafeCastGObject = SVGPointList . unGObject - {-# INLINE unsafeCastGObject #-} - -castToSVGPointList :: IsGObject obj => obj -> IO SVGPointList -castToSVGPointList = castTo gTypeSVGPointList "SVGPointList" - -foreign import javascript unsafe "window[\"SVGPointList\"]" gTypeSVGPointList :: GType - --- | Functions for this inteface are in "GHCJS.DOM.SVGPolygonElement". --- Base interface functions are in: --- --- * "GHCJS.DOM.SVGGraphicsElement" --- * "GHCJS.DOM.SVGElement" --- * "GHCJS.DOM.Element" --- * "GHCJS.DOM.Node" --- * "GHCJS.DOM.EventTarget" --- --- -newtype SVGPolygonElement = SVGPolygonElement { unSVGPolygonElement :: JSVal } - -instance Eq (SVGPolygonElement) where - (SVGPolygonElement a) == (SVGPolygonElement b) = js_eq a b - -instance PToJSVal SVGPolygonElement where - pToJSVal = unSVGPolygonElement - {-# INLINE pToJSVal #-} - -instance PFromJSVal SVGPolygonElement where - pFromJSVal = SVGPolygonElement - {-# INLINE pFromJSVal #-} - -instance ToJSVal SVGPolygonElement where - toJSVal = return . unSVGPolygonElement - {-# INLINE toJSVal #-} - -instance FromJSVal SVGPolygonElement where - fromJSVal = return . fmap SVGPolygonElement . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsSVGGraphicsElement SVGPolygonElement -instance IsSVGElement SVGPolygonElement -instance IsElement SVGPolygonElement -instance IsNode SVGPolygonElement -instance IsEventTarget SVGPolygonElement -instance IsGObject SVGPolygonElement where - toGObject = GObject . unSVGPolygonElement - {-# INLINE toGObject #-} - unsafeCastGObject = SVGPolygonElement . unGObject - {-# INLINE unsafeCastGObject #-} - -castToSVGPolygonElement :: IsGObject obj => obj -> IO SVGPolygonElement -castToSVGPolygonElement = castTo gTypeSVGPolygonElement "SVGPolygonElement" - -foreign import javascript unsafe "window[\"SVGPolygonElement\"]" gTypeSVGPolygonElement :: GType - --- | Functions for this inteface are in "GHCJS.DOM.SVGPolylineElement". --- Base interface functions are in: --- --- * "GHCJS.DOM.SVGGraphicsElement" --- * "GHCJS.DOM.SVGElement" --- * "GHCJS.DOM.Element" --- * "GHCJS.DOM.Node" --- * "GHCJS.DOM.EventTarget" --- --- -newtype SVGPolylineElement = SVGPolylineElement { unSVGPolylineElement :: JSVal } - -instance Eq (SVGPolylineElement) where - (SVGPolylineElement a) == (SVGPolylineElement b) = js_eq a b - -instance PToJSVal SVGPolylineElement where - pToJSVal = unSVGPolylineElement - {-# INLINE pToJSVal #-} - -instance PFromJSVal SVGPolylineElement where - pFromJSVal = SVGPolylineElement - {-# INLINE pFromJSVal #-} - -instance ToJSVal SVGPolylineElement where - toJSVal = return . unSVGPolylineElement - {-# INLINE toJSVal #-} - -instance FromJSVal SVGPolylineElement where - fromJSVal = return . fmap SVGPolylineElement . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsSVGGraphicsElement SVGPolylineElement -instance IsSVGElement SVGPolylineElement -instance IsElement SVGPolylineElement -instance IsNode SVGPolylineElement -instance IsEventTarget SVGPolylineElement -instance IsGObject SVGPolylineElement where - toGObject = GObject . unSVGPolylineElement - {-# INLINE toGObject #-} - unsafeCastGObject = SVGPolylineElement . unGObject - {-# INLINE unsafeCastGObject #-} - -castToSVGPolylineElement :: IsGObject obj => obj -> IO SVGPolylineElement -castToSVGPolylineElement = castTo gTypeSVGPolylineElement "SVGPolylineElement" - -foreign import javascript unsafe "window[\"SVGPolylineElement\"]" gTypeSVGPolylineElement :: GType - --- | Functions for this inteface are in "GHCJS.DOM.SVGPreserveAspectRatio". --- --- -newtype SVGPreserveAspectRatio = SVGPreserveAspectRatio { unSVGPreserveAspectRatio :: JSVal } - -instance Eq (SVGPreserveAspectRatio) where - (SVGPreserveAspectRatio a) == (SVGPreserveAspectRatio b) = js_eq a b - -instance PToJSVal SVGPreserveAspectRatio where - pToJSVal = unSVGPreserveAspectRatio - {-# INLINE pToJSVal #-} - -instance PFromJSVal SVGPreserveAspectRatio where - pFromJSVal = SVGPreserveAspectRatio - {-# INLINE pFromJSVal #-} - -instance ToJSVal SVGPreserveAspectRatio where - toJSVal = return . unSVGPreserveAspectRatio - {-# INLINE toJSVal #-} - -instance FromJSVal SVGPreserveAspectRatio where - fromJSVal = return . fmap SVGPreserveAspectRatio . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsGObject SVGPreserveAspectRatio where - toGObject = GObject . unSVGPreserveAspectRatio - {-# INLINE toGObject #-} - unsafeCastGObject = SVGPreserveAspectRatio . unGObject - {-# INLINE unsafeCastGObject #-} - -castToSVGPreserveAspectRatio :: IsGObject obj => obj -> IO SVGPreserveAspectRatio -castToSVGPreserveAspectRatio = castTo gTypeSVGPreserveAspectRatio "SVGPreserveAspectRatio" - -foreign import javascript unsafe "window[\"SVGPreserveAspectRatio\"]" gTypeSVGPreserveAspectRatio :: GType - --- | Functions for this inteface are in "GHCJS.DOM.SVGRadialGradientElement". --- Base interface functions are in: --- --- * "GHCJS.DOM.SVGGradientElement" --- * "GHCJS.DOM.SVGElement" --- * "GHCJS.DOM.Element" --- * "GHCJS.DOM.Node" --- * "GHCJS.DOM.EventTarget" --- --- -newtype SVGRadialGradientElement = SVGRadialGradientElement { unSVGRadialGradientElement :: JSVal } - -instance Eq (SVGRadialGradientElement) where - (SVGRadialGradientElement a) == (SVGRadialGradientElement b) = js_eq a b - -instance PToJSVal SVGRadialGradientElement where - pToJSVal = unSVGRadialGradientElement - {-# INLINE pToJSVal #-} - -instance PFromJSVal SVGRadialGradientElement where - pFromJSVal = SVGRadialGradientElement - {-# INLINE pFromJSVal #-} - -instance ToJSVal SVGRadialGradientElement where - toJSVal = return . unSVGRadialGradientElement - {-# INLINE toJSVal #-} - -instance FromJSVal SVGRadialGradientElement where - fromJSVal = return . fmap SVGRadialGradientElement . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsSVGGradientElement SVGRadialGradientElement -instance IsSVGElement SVGRadialGradientElement -instance IsElement SVGRadialGradientElement -instance IsNode SVGRadialGradientElement -instance IsEventTarget SVGRadialGradientElement -instance IsGObject SVGRadialGradientElement where - toGObject = GObject . unSVGRadialGradientElement - {-# INLINE toGObject #-} - unsafeCastGObject = SVGRadialGradientElement . unGObject - {-# INLINE unsafeCastGObject #-} - -castToSVGRadialGradientElement :: IsGObject obj => obj -> IO SVGRadialGradientElement -castToSVGRadialGradientElement = castTo gTypeSVGRadialGradientElement "SVGRadialGradientElement" - -foreign import javascript unsafe "window[\"SVGRadialGradientElement\"]" gTypeSVGRadialGradientElement :: GType - --- | Functions for this inteface are in "GHCJS.DOM.SVGRect". --- --- -newtype SVGRect = SVGRect { unSVGRect :: JSVal } - -instance Eq (SVGRect) where - (SVGRect a) == (SVGRect b) = js_eq a b - -instance PToJSVal SVGRect where - pToJSVal = unSVGRect - {-# INLINE pToJSVal #-} - -instance PFromJSVal SVGRect where - pFromJSVal = SVGRect - {-# INLINE pFromJSVal #-} - -instance ToJSVal SVGRect where - toJSVal = return . unSVGRect - {-# INLINE toJSVal #-} - -instance FromJSVal SVGRect where - fromJSVal = return . fmap SVGRect . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsGObject SVGRect where - toGObject = GObject . unSVGRect - {-# INLINE toGObject #-} - unsafeCastGObject = SVGRect . unGObject - {-# INLINE unsafeCastGObject #-} - -castToSVGRect :: IsGObject obj => obj -> IO SVGRect -castToSVGRect = castTo gTypeSVGRect "SVGRect" - -foreign import javascript unsafe "window[\"SVGRect\"]" gTypeSVGRect :: GType - --- | Functions for this inteface are in "GHCJS.DOM.SVGRectElement". --- Base interface functions are in: --- --- * "GHCJS.DOM.SVGGraphicsElement" --- * "GHCJS.DOM.SVGElement" --- * "GHCJS.DOM.Element" --- * "GHCJS.DOM.Node" --- * "GHCJS.DOM.EventTarget" --- --- -newtype SVGRectElement = SVGRectElement { unSVGRectElement :: JSVal } - -instance Eq (SVGRectElement) where - (SVGRectElement a) == (SVGRectElement b) = js_eq a b - -instance PToJSVal SVGRectElement where - pToJSVal = unSVGRectElement - {-# INLINE pToJSVal #-} - -instance PFromJSVal SVGRectElement where - pFromJSVal = SVGRectElement - {-# INLINE pFromJSVal #-} - -instance ToJSVal SVGRectElement where - toJSVal = return . unSVGRectElement - {-# INLINE toJSVal #-} - -instance FromJSVal SVGRectElement where - fromJSVal = return . fmap SVGRectElement . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsSVGGraphicsElement SVGRectElement -instance IsSVGElement SVGRectElement -instance IsElement SVGRectElement -instance IsNode SVGRectElement -instance IsEventTarget SVGRectElement -instance IsGObject SVGRectElement where - toGObject = GObject . unSVGRectElement - {-# INLINE toGObject #-} - unsafeCastGObject = SVGRectElement . unGObject - {-# INLINE unsafeCastGObject #-} - -castToSVGRectElement :: IsGObject obj => obj -> IO SVGRectElement -castToSVGRectElement = castTo gTypeSVGRectElement "SVGRectElement" - -foreign import javascript unsafe "window[\"SVGRectElement\"]" gTypeSVGRectElement :: GType - --- | Functions for this inteface are in "GHCJS.DOM.SVGRenderingIntent". --- --- -newtype SVGRenderingIntent = SVGRenderingIntent { unSVGRenderingIntent :: JSVal } - -instance Eq (SVGRenderingIntent) where - (SVGRenderingIntent a) == (SVGRenderingIntent b) = js_eq a b - -instance PToJSVal SVGRenderingIntent where - pToJSVal = unSVGRenderingIntent - {-# INLINE pToJSVal #-} - -instance PFromJSVal SVGRenderingIntent where - pFromJSVal = SVGRenderingIntent - {-# INLINE pFromJSVal #-} - -instance ToJSVal SVGRenderingIntent where - toJSVal = return . unSVGRenderingIntent - {-# INLINE toJSVal #-} - -instance FromJSVal SVGRenderingIntent where - fromJSVal = return . fmap SVGRenderingIntent . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsGObject SVGRenderingIntent where - toGObject = GObject . unSVGRenderingIntent - {-# INLINE toGObject #-} - unsafeCastGObject = SVGRenderingIntent . unGObject - {-# INLINE unsafeCastGObject #-} - -castToSVGRenderingIntent :: IsGObject obj => obj -> IO SVGRenderingIntent -castToSVGRenderingIntent = castTo gTypeSVGRenderingIntent "SVGRenderingIntent" - -foreign import javascript unsafe "window[\"SVGRenderingIntent\"]" gTypeSVGRenderingIntent :: GType - --- | Functions for this inteface are in "GHCJS.DOM.SVGSVGElement". --- Base interface functions are in: --- --- * "GHCJS.DOM.SVGGraphicsElement" --- * "GHCJS.DOM.SVGElement" --- * "GHCJS.DOM.Element" --- * "GHCJS.DOM.Node" --- * "GHCJS.DOM.EventTarget" --- --- -newtype SVGSVGElement = SVGSVGElement { unSVGSVGElement :: JSVal } - -instance Eq (SVGSVGElement) where - (SVGSVGElement a) == (SVGSVGElement b) = js_eq a b - -instance PToJSVal SVGSVGElement where - pToJSVal = unSVGSVGElement - {-# INLINE pToJSVal #-} - -instance PFromJSVal SVGSVGElement where - pFromJSVal = SVGSVGElement - {-# INLINE pFromJSVal #-} - -instance ToJSVal SVGSVGElement where - toJSVal = return . unSVGSVGElement - {-# INLINE toJSVal #-} - -instance FromJSVal SVGSVGElement where - fromJSVal = return . fmap SVGSVGElement . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsSVGGraphicsElement SVGSVGElement -instance IsSVGElement SVGSVGElement -instance IsElement SVGSVGElement -instance IsNode SVGSVGElement -instance IsEventTarget SVGSVGElement -instance IsGObject SVGSVGElement where - toGObject = GObject . unSVGSVGElement - {-# INLINE toGObject #-} - unsafeCastGObject = SVGSVGElement . unGObject - {-# INLINE unsafeCastGObject #-} - -castToSVGSVGElement :: IsGObject obj => obj -> IO SVGSVGElement -castToSVGSVGElement = castTo gTypeSVGSVGElement "SVGSVGElement" - -foreign import javascript unsafe "window[\"SVGSVGElement\"]" gTypeSVGSVGElement :: GType - --- | Functions for this inteface are in "GHCJS.DOM.SVGScriptElement". --- Base interface functions are in: --- --- * "GHCJS.DOM.SVGElement" --- * "GHCJS.DOM.Element" --- * "GHCJS.DOM.Node" --- * "GHCJS.DOM.EventTarget" --- --- -newtype SVGScriptElement = SVGScriptElement { unSVGScriptElement :: JSVal } - -instance Eq (SVGScriptElement) where - (SVGScriptElement a) == (SVGScriptElement b) = js_eq a b - -instance PToJSVal SVGScriptElement where - pToJSVal = unSVGScriptElement - {-# INLINE pToJSVal #-} - -instance PFromJSVal SVGScriptElement where - pFromJSVal = SVGScriptElement - {-# INLINE pFromJSVal #-} - -instance ToJSVal SVGScriptElement where - toJSVal = return . unSVGScriptElement - {-# INLINE toJSVal #-} - -instance FromJSVal SVGScriptElement where - fromJSVal = return . fmap SVGScriptElement . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsSVGElement SVGScriptElement -instance IsElement SVGScriptElement -instance IsNode SVGScriptElement -instance IsEventTarget SVGScriptElement -instance IsGObject SVGScriptElement where - toGObject = GObject . unSVGScriptElement - {-# INLINE toGObject #-} - unsafeCastGObject = SVGScriptElement . unGObject - {-# INLINE unsafeCastGObject #-} - -castToSVGScriptElement :: IsGObject obj => obj -> IO SVGScriptElement -castToSVGScriptElement = castTo gTypeSVGScriptElement "SVGScriptElement" - -foreign import javascript unsafe "window[\"SVGScriptElement\"]" gTypeSVGScriptElement :: GType - --- | Functions for this inteface are in "GHCJS.DOM.SVGSetElement". --- Base interface functions are in: --- --- * "GHCJS.DOM.SVGAnimationElement" --- * "GHCJS.DOM.SVGElement" --- * "GHCJS.DOM.Element" --- * "GHCJS.DOM.Node" --- * "GHCJS.DOM.EventTarget" --- --- -newtype SVGSetElement = SVGSetElement { unSVGSetElement :: JSVal } - -instance Eq (SVGSetElement) where - (SVGSetElement a) == (SVGSetElement b) = js_eq a b - -instance PToJSVal SVGSetElement where - pToJSVal = unSVGSetElement - {-# INLINE pToJSVal #-} - -instance PFromJSVal SVGSetElement where - pFromJSVal = SVGSetElement - {-# INLINE pFromJSVal #-} - -instance ToJSVal SVGSetElement where - toJSVal = return . unSVGSetElement - {-# INLINE toJSVal #-} - -instance FromJSVal SVGSetElement where - fromJSVal = return . fmap SVGSetElement . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsSVGAnimationElement SVGSetElement -instance IsSVGElement SVGSetElement -instance IsElement SVGSetElement -instance IsNode SVGSetElement -instance IsEventTarget SVGSetElement -instance IsGObject SVGSetElement where - toGObject = GObject . unSVGSetElement - {-# INLINE toGObject #-} - unsafeCastGObject = SVGSetElement . unGObject - {-# INLINE unsafeCastGObject #-} - -castToSVGSetElement :: IsGObject obj => obj -> IO SVGSetElement -castToSVGSetElement = castTo gTypeSVGSetElement "SVGSetElement" - -foreign import javascript unsafe "window[\"SVGSetElement\"]" gTypeSVGSetElement :: GType - --- | Functions for this inteface are in "GHCJS.DOM.SVGStopElement". --- Base interface functions are in: --- --- * "GHCJS.DOM.SVGElement" --- * "GHCJS.DOM.Element" --- * "GHCJS.DOM.Node" --- * "GHCJS.DOM.EventTarget" --- --- -newtype SVGStopElement = SVGStopElement { unSVGStopElement :: JSVal } - -instance Eq (SVGStopElement) where - (SVGStopElement a) == (SVGStopElement b) = js_eq a b - -instance PToJSVal SVGStopElement where - pToJSVal = unSVGStopElement - {-# INLINE pToJSVal #-} - -instance PFromJSVal SVGStopElement where - pFromJSVal = SVGStopElement - {-# INLINE pFromJSVal #-} - -instance ToJSVal SVGStopElement where - toJSVal = return . unSVGStopElement - {-# INLINE toJSVal #-} - -instance FromJSVal SVGStopElement where - fromJSVal = return . fmap SVGStopElement . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsSVGElement SVGStopElement -instance IsElement SVGStopElement -instance IsNode SVGStopElement -instance IsEventTarget SVGStopElement -instance IsGObject SVGStopElement where - toGObject = GObject . unSVGStopElement - {-# INLINE toGObject #-} - unsafeCastGObject = SVGStopElement . unGObject - {-# INLINE unsafeCastGObject #-} - -castToSVGStopElement :: IsGObject obj => obj -> IO SVGStopElement -castToSVGStopElement = castTo gTypeSVGStopElement "SVGStopElement" - -foreign import javascript unsafe "window[\"SVGStopElement\"]" gTypeSVGStopElement :: GType - --- | Functions for this inteface are in "GHCJS.DOM.SVGStringList". --- --- -newtype SVGStringList = SVGStringList { unSVGStringList :: JSVal } - -instance Eq (SVGStringList) where - (SVGStringList a) == (SVGStringList b) = js_eq a b - -instance PToJSVal SVGStringList where - pToJSVal = unSVGStringList - {-# INLINE pToJSVal #-} - -instance PFromJSVal SVGStringList where - pFromJSVal = SVGStringList - {-# INLINE pFromJSVal #-} - -instance ToJSVal SVGStringList where - toJSVal = return . unSVGStringList - {-# INLINE toJSVal #-} - -instance FromJSVal SVGStringList where - fromJSVal = return . fmap SVGStringList . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsGObject SVGStringList where - toGObject = GObject . unSVGStringList - {-# INLINE toGObject #-} - unsafeCastGObject = SVGStringList . unGObject - {-# INLINE unsafeCastGObject #-} - -castToSVGStringList :: IsGObject obj => obj -> IO SVGStringList -castToSVGStringList = castTo gTypeSVGStringList "SVGStringList" - -foreign import javascript unsafe "window[\"SVGStringList\"]" gTypeSVGStringList :: GType - --- | Functions for this inteface are in "GHCJS.DOM.SVGStyleElement". --- Base interface functions are in: --- --- * "GHCJS.DOM.SVGElement" --- * "GHCJS.DOM.Element" --- * "GHCJS.DOM.Node" --- * "GHCJS.DOM.EventTarget" --- --- -newtype SVGStyleElement = SVGStyleElement { unSVGStyleElement :: JSVal } - -instance Eq (SVGStyleElement) where - (SVGStyleElement a) == (SVGStyleElement b) = js_eq a b - -instance PToJSVal SVGStyleElement where - pToJSVal = unSVGStyleElement - {-# INLINE pToJSVal #-} - -instance PFromJSVal SVGStyleElement where - pFromJSVal = SVGStyleElement - {-# INLINE pFromJSVal #-} - -instance ToJSVal SVGStyleElement where - toJSVal = return . unSVGStyleElement - {-# INLINE toJSVal #-} - -instance FromJSVal SVGStyleElement where - fromJSVal = return . fmap SVGStyleElement . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsSVGElement SVGStyleElement -instance IsElement SVGStyleElement -instance IsNode SVGStyleElement -instance IsEventTarget SVGStyleElement -instance IsGObject SVGStyleElement where - toGObject = GObject . unSVGStyleElement - {-# INLINE toGObject #-} - unsafeCastGObject = SVGStyleElement . unGObject - {-# INLINE unsafeCastGObject #-} - -castToSVGStyleElement :: IsGObject obj => obj -> IO SVGStyleElement -castToSVGStyleElement = castTo gTypeSVGStyleElement "SVGStyleElement" - -foreign import javascript unsafe "window[\"SVGStyleElement\"]" gTypeSVGStyleElement :: GType - --- | Functions for this inteface are in "GHCJS.DOM.SVGSwitchElement". --- Base interface functions are in: --- --- * "GHCJS.DOM.SVGGraphicsElement" --- * "GHCJS.DOM.SVGElement" --- * "GHCJS.DOM.Element" --- * "GHCJS.DOM.Node" --- * "GHCJS.DOM.EventTarget" --- --- -newtype SVGSwitchElement = SVGSwitchElement { unSVGSwitchElement :: JSVal } - -instance Eq (SVGSwitchElement) where - (SVGSwitchElement a) == (SVGSwitchElement b) = js_eq a b - -instance PToJSVal SVGSwitchElement where - pToJSVal = unSVGSwitchElement - {-# INLINE pToJSVal #-} - -instance PFromJSVal SVGSwitchElement where - pFromJSVal = SVGSwitchElement - {-# INLINE pFromJSVal #-} - -instance ToJSVal SVGSwitchElement where - toJSVal = return . unSVGSwitchElement - {-# INLINE toJSVal #-} - -instance FromJSVal SVGSwitchElement where - fromJSVal = return . fmap SVGSwitchElement . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsSVGGraphicsElement SVGSwitchElement -instance IsSVGElement SVGSwitchElement -instance IsElement SVGSwitchElement -instance IsNode SVGSwitchElement -instance IsEventTarget SVGSwitchElement -instance IsGObject SVGSwitchElement where - toGObject = GObject . unSVGSwitchElement - {-# INLINE toGObject #-} - unsafeCastGObject = SVGSwitchElement . unGObject - {-# INLINE unsafeCastGObject #-} - -castToSVGSwitchElement :: IsGObject obj => obj -> IO SVGSwitchElement -castToSVGSwitchElement = castTo gTypeSVGSwitchElement "SVGSwitchElement" - -foreign import javascript unsafe "window[\"SVGSwitchElement\"]" gTypeSVGSwitchElement :: GType - --- | Functions for this inteface are in "GHCJS.DOM.SVGSymbolElement". --- Base interface functions are in: --- --- * "GHCJS.DOM.SVGElement" --- * "GHCJS.DOM.Element" --- * "GHCJS.DOM.Node" --- * "GHCJS.DOM.EventTarget" --- --- -newtype SVGSymbolElement = SVGSymbolElement { unSVGSymbolElement :: JSVal } - -instance Eq (SVGSymbolElement) where - (SVGSymbolElement a) == (SVGSymbolElement b) = js_eq a b - -instance PToJSVal SVGSymbolElement where - pToJSVal = unSVGSymbolElement - {-# INLINE pToJSVal #-} - -instance PFromJSVal SVGSymbolElement where - pFromJSVal = SVGSymbolElement - {-# INLINE pFromJSVal #-} - -instance ToJSVal SVGSymbolElement where - toJSVal = return . unSVGSymbolElement - {-# INLINE toJSVal #-} - -instance FromJSVal SVGSymbolElement where - fromJSVal = return . fmap SVGSymbolElement . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsSVGElement SVGSymbolElement -instance IsElement SVGSymbolElement -instance IsNode SVGSymbolElement -instance IsEventTarget SVGSymbolElement -instance IsGObject SVGSymbolElement where - toGObject = GObject . unSVGSymbolElement - {-# INLINE toGObject #-} - unsafeCastGObject = SVGSymbolElement . unGObject - {-# INLINE unsafeCastGObject #-} - -castToSVGSymbolElement :: IsGObject obj => obj -> IO SVGSymbolElement -castToSVGSymbolElement = castTo gTypeSVGSymbolElement "SVGSymbolElement" - -foreign import javascript unsafe "window[\"SVGSymbolElement\"]" gTypeSVGSymbolElement :: GType - --- | Functions for this inteface are in "GHCJS.DOM.SVGTRefElement". --- Base interface functions are in: --- --- * "GHCJS.DOM.SVGTextPositioningElement" --- * "GHCJS.DOM.SVGTextContentElement" --- * "GHCJS.DOM.SVGGraphicsElement" --- * "GHCJS.DOM.SVGElement" --- * "GHCJS.DOM.Element" --- * "GHCJS.DOM.Node" --- * "GHCJS.DOM.EventTarget" --- --- -newtype SVGTRefElement = SVGTRefElement { unSVGTRefElement :: JSVal } - -instance Eq (SVGTRefElement) where - (SVGTRefElement a) == (SVGTRefElement b) = js_eq a b - -instance PToJSVal SVGTRefElement where - pToJSVal = unSVGTRefElement - {-# INLINE pToJSVal #-} - -instance PFromJSVal SVGTRefElement where - pFromJSVal = SVGTRefElement - {-# INLINE pFromJSVal #-} - -instance ToJSVal SVGTRefElement where - toJSVal = return . unSVGTRefElement - {-# INLINE toJSVal #-} - -instance FromJSVal SVGTRefElement where - fromJSVal = return . fmap SVGTRefElement . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsSVGTextPositioningElement SVGTRefElement -instance IsSVGTextContentElement SVGTRefElement -instance IsSVGGraphicsElement SVGTRefElement -instance IsSVGElement SVGTRefElement -instance IsElement SVGTRefElement -instance IsNode SVGTRefElement -instance IsEventTarget SVGTRefElement -instance IsGObject SVGTRefElement where - toGObject = GObject . unSVGTRefElement - {-# INLINE toGObject #-} - unsafeCastGObject = SVGTRefElement . unGObject - {-# INLINE unsafeCastGObject #-} - -castToSVGTRefElement :: IsGObject obj => obj -> IO SVGTRefElement -castToSVGTRefElement = castTo gTypeSVGTRefElement "SVGTRefElement" - -foreign import javascript unsafe "window[\"SVGTRefElement\"]" gTypeSVGTRefElement :: GType - --- | Functions for this inteface are in "GHCJS.DOM.SVGTSpanElement". --- Base interface functions are in: --- --- * "GHCJS.DOM.SVGTextPositioningElement" --- * "GHCJS.DOM.SVGTextContentElement" --- * "GHCJS.DOM.SVGGraphicsElement" --- * "GHCJS.DOM.SVGElement" --- * "GHCJS.DOM.Element" --- * "GHCJS.DOM.Node" --- * "GHCJS.DOM.EventTarget" --- --- -newtype SVGTSpanElement = SVGTSpanElement { unSVGTSpanElement :: JSVal } - -instance Eq (SVGTSpanElement) where - (SVGTSpanElement a) == (SVGTSpanElement b) = js_eq a b - -instance PToJSVal SVGTSpanElement where - pToJSVal = unSVGTSpanElement - {-# INLINE pToJSVal #-} - -instance PFromJSVal SVGTSpanElement where - pFromJSVal = SVGTSpanElement - {-# INLINE pFromJSVal #-} - -instance ToJSVal SVGTSpanElement where - toJSVal = return . unSVGTSpanElement - {-# INLINE toJSVal #-} - -instance FromJSVal SVGTSpanElement where - fromJSVal = return . fmap SVGTSpanElement . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsSVGTextPositioningElement SVGTSpanElement -instance IsSVGTextContentElement SVGTSpanElement -instance IsSVGGraphicsElement SVGTSpanElement -instance IsSVGElement SVGTSpanElement -instance IsElement SVGTSpanElement -instance IsNode SVGTSpanElement -instance IsEventTarget SVGTSpanElement -instance IsGObject SVGTSpanElement where - toGObject = GObject . unSVGTSpanElement - {-# INLINE toGObject #-} - unsafeCastGObject = SVGTSpanElement . unGObject - {-# INLINE unsafeCastGObject #-} - -castToSVGTSpanElement :: IsGObject obj => obj -> IO SVGTSpanElement -castToSVGTSpanElement = castTo gTypeSVGTSpanElement "SVGTSpanElement" - -foreign import javascript unsafe "window[\"SVGTSpanElement\"]" gTypeSVGTSpanElement :: GType - --- | Functions for this inteface are in "GHCJS.DOM.SVGTests". --- --- -newtype SVGTests = SVGTests { unSVGTests :: JSVal } - -instance Eq (SVGTests) where - (SVGTests a) == (SVGTests b) = js_eq a b - -instance PToJSVal SVGTests where - pToJSVal = unSVGTests - {-# INLINE pToJSVal #-} - -instance PFromJSVal SVGTests where - pFromJSVal = SVGTests - {-# INLINE pFromJSVal #-} - -instance ToJSVal SVGTests where - toJSVal = return . unSVGTests - {-# INLINE toJSVal #-} - -instance FromJSVal SVGTests where - fromJSVal = return . fmap SVGTests . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsGObject SVGTests where - toGObject = GObject . unSVGTests - {-# INLINE toGObject #-} - unsafeCastGObject = SVGTests . unGObject - {-# INLINE unsafeCastGObject #-} - -castToSVGTests :: IsGObject obj => obj -> IO SVGTests -castToSVGTests = castTo gTypeSVGTests "SVGTests" - -foreign import javascript unsafe "window[\"SVGTests\"]" gTypeSVGTests :: GType - --- | Functions for this inteface are in "GHCJS.DOM.SVGTextContentElement". --- Base interface functions are in: --- --- * "GHCJS.DOM.SVGGraphicsElement" --- * "GHCJS.DOM.SVGElement" --- * "GHCJS.DOM.Element" --- * "GHCJS.DOM.Node" --- * "GHCJS.DOM.EventTarget" --- --- -newtype SVGTextContentElement = SVGTextContentElement { unSVGTextContentElement :: JSVal } - -instance Eq (SVGTextContentElement) where - (SVGTextContentElement a) == (SVGTextContentElement b) = js_eq a b - -instance PToJSVal SVGTextContentElement where - pToJSVal = unSVGTextContentElement - {-# INLINE pToJSVal #-} - -instance PFromJSVal SVGTextContentElement where - pFromJSVal = SVGTextContentElement - {-# INLINE pFromJSVal #-} - -instance ToJSVal SVGTextContentElement where - toJSVal = return . unSVGTextContentElement - {-# INLINE toJSVal #-} - -instance FromJSVal SVGTextContentElement where - fromJSVal = return . fmap SVGTextContentElement . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -class IsSVGGraphicsElement o => IsSVGTextContentElement o -toSVGTextContentElement :: IsSVGTextContentElement o => o -> SVGTextContentElement -toSVGTextContentElement = unsafeCastGObject . toGObject - -instance IsSVGTextContentElement SVGTextContentElement -instance IsSVGGraphicsElement SVGTextContentElement -instance IsSVGElement SVGTextContentElement -instance IsElement SVGTextContentElement -instance IsNode SVGTextContentElement -instance IsEventTarget SVGTextContentElement -instance IsGObject SVGTextContentElement where - toGObject = GObject . unSVGTextContentElement - {-# INLINE toGObject #-} - unsafeCastGObject = SVGTextContentElement . unGObject - {-# INLINE unsafeCastGObject #-} - -castToSVGTextContentElement :: IsGObject obj => obj -> IO SVGTextContentElement -castToSVGTextContentElement = castTo gTypeSVGTextContentElement "SVGTextContentElement" - -foreign import javascript unsafe "window[\"SVGTextContentElement\"]" gTypeSVGTextContentElement :: GType - --- | Functions for this inteface are in "GHCJS.DOM.SVGTextElement". --- Base interface functions are in: --- --- * "GHCJS.DOM.SVGTextPositioningElement" --- * "GHCJS.DOM.SVGTextContentElement" --- * "GHCJS.DOM.SVGGraphicsElement" --- * "GHCJS.DOM.SVGElement" --- * "GHCJS.DOM.Element" --- * "GHCJS.DOM.Node" --- * "GHCJS.DOM.EventTarget" --- --- -newtype SVGTextElement = SVGTextElement { unSVGTextElement :: JSVal } - -instance Eq (SVGTextElement) where - (SVGTextElement a) == (SVGTextElement b) = js_eq a b - -instance PToJSVal SVGTextElement where - pToJSVal = unSVGTextElement - {-# INLINE pToJSVal #-} - -instance PFromJSVal SVGTextElement where - pFromJSVal = SVGTextElement - {-# INLINE pFromJSVal #-} - -instance ToJSVal SVGTextElement where - toJSVal = return . unSVGTextElement - {-# INLINE toJSVal #-} - -instance FromJSVal SVGTextElement where - fromJSVal = return . fmap SVGTextElement . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsSVGTextPositioningElement SVGTextElement -instance IsSVGTextContentElement SVGTextElement -instance IsSVGGraphicsElement SVGTextElement -instance IsSVGElement SVGTextElement -instance IsElement SVGTextElement -instance IsNode SVGTextElement -instance IsEventTarget SVGTextElement -instance IsGObject SVGTextElement where - toGObject = GObject . unSVGTextElement - {-# INLINE toGObject #-} - unsafeCastGObject = SVGTextElement . unGObject - {-# INLINE unsafeCastGObject #-} - -castToSVGTextElement :: IsGObject obj => obj -> IO SVGTextElement -castToSVGTextElement = castTo gTypeSVGTextElement "SVGTextElement" - -foreign import javascript unsafe "window[\"SVGTextElement\"]" gTypeSVGTextElement :: GType - --- | Functions for this inteface are in "GHCJS.DOM.SVGTextPathElement". --- Base interface functions are in: --- --- * "GHCJS.DOM.SVGTextContentElement" --- * "GHCJS.DOM.SVGGraphicsElement" --- * "GHCJS.DOM.SVGElement" --- * "GHCJS.DOM.Element" --- * "GHCJS.DOM.Node" --- * "GHCJS.DOM.EventTarget" --- --- -newtype SVGTextPathElement = SVGTextPathElement { unSVGTextPathElement :: JSVal } - -instance Eq (SVGTextPathElement) where - (SVGTextPathElement a) == (SVGTextPathElement b) = js_eq a b - -instance PToJSVal SVGTextPathElement where - pToJSVal = unSVGTextPathElement - {-# INLINE pToJSVal #-} - -instance PFromJSVal SVGTextPathElement where - pFromJSVal = SVGTextPathElement - {-# INLINE pFromJSVal #-} - -instance ToJSVal SVGTextPathElement where - toJSVal = return . unSVGTextPathElement - {-# INLINE toJSVal #-} - -instance FromJSVal SVGTextPathElement where - fromJSVal = return . fmap SVGTextPathElement . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsSVGTextContentElement SVGTextPathElement -instance IsSVGGraphicsElement SVGTextPathElement -instance IsSVGElement SVGTextPathElement -instance IsElement SVGTextPathElement -instance IsNode SVGTextPathElement -instance IsEventTarget SVGTextPathElement -instance IsGObject SVGTextPathElement where - toGObject = GObject . unSVGTextPathElement - {-# INLINE toGObject #-} - unsafeCastGObject = SVGTextPathElement . unGObject - {-# INLINE unsafeCastGObject #-} - -castToSVGTextPathElement :: IsGObject obj => obj -> IO SVGTextPathElement -castToSVGTextPathElement = castTo gTypeSVGTextPathElement "SVGTextPathElement" - -foreign import javascript unsafe "window[\"SVGTextPathElement\"]" gTypeSVGTextPathElement :: GType - --- | Functions for this inteface are in "GHCJS.DOM.SVGTextPositioningElement". --- Base interface functions are in: --- --- * "GHCJS.DOM.SVGTextContentElement" --- * "GHCJS.DOM.SVGGraphicsElement" --- * "GHCJS.DOM.SVGElement" --- * "GHCJS.DOM.Element" --- * "GHCJS.DOM.Node" --- * "GHCJS.DOM.EventTarget" --- --- -newtype SVGTextPositioningElement = SVGTextPositioningElement { unSVGTextPositioningElement :: JSVal } - -instance Eq (SVGTextPositioningElement) where - (SVGTextPositioningElement a) == (SVGTextPositioningElement b) = js_eq a b - -instance PToJSVal SVGTextPositioningElement where - pToJSVal = unSVGTextPositioningElement - {-# INLINE pToJSVal #-} - -instance PFromJSVal SVGTextPositioningElement where - pFromJSVal = SVGTextPositioningElement - {-# INLINE pFromJSVal #-} - -instance ToJSVal SVGTextPositioningElement where - toJSVal = return . unSVGTextPositioningElement - {-# INLINE toJSVal #-} - -instance FromJSVal SVGTextPositioningElement where - fromJSVal = return . fmap SVGTextPositioningElement . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -class IsSVGTextContentElement o => IsSVGTextPositioningElement o -toSVGTextPositioningElement :: IsSVGTextPositioningElement o => o -> SVGTextPositioningElement -toSVGTextPositioningElement = unsafeCastGObject . toGObject - -instance IsSVGTextPositioningElement SVGTextPositioningElement -instance IsSVGTextContentElement SVGTextPositioningElement -instance IsSVGGraphicsElement SVGTextPositioningElement -instance IsSVGElement SVGTextPositioningElement -instance IsElement SVGTextPositioningElement -instance IsNode SVGTextPositioningElement -instance IsEventTarget SVGTextPositioningElement -instance IsGObject SVGTextPositioningElement where - toGObject = GObject . unSVGTextPositioningElement - {-# INLINE toGObject #-} - unsafeCastGObject = SVGTextPositioningElement . unGObject - {-# INLINE unsafeCastGObject #-} - -castToSVGTextPositioningElement :: IsGObject obj => obj -> IO SVGTextPositioningElement -castToSVGTextPositioningElement = castTo gTypeSVGTextPositioningElement "SVGTextPositioningElement" - -foreign import javascript unsafe "window[\"SVGTextPositioningElement\"]" gTypeSVGTextPositioningElement :: GType - --- | Functions for this inteface are in "GHCJS.DOM.SVGTitleElement". --- Base interface functions are in: --- --- * "GHCJS.DOM.SVGElement" --- * "GHCJS.DOM.Element" --- * "GHCJS.DOM.Node" --- * "GHCJS.DOM.EventTarget" --- --- -newtype SVGTitleElement = SVGTitleElement { unSVGTitleElement :: JSVal } - -instance Eq (SVGTitleElement) where - (SVGTitleElement a) == (SVGTitleElement b) = js_eq a b - -instance PToJSVal SVGTitleElement where - pToJSVal = unSVGTitleElement - {-# INLINE pToJSVal #-} - -instance PFromJSVal SVGTitleElement where - pFromJSVal = SVGTitleElement - {-# INLINE pFromJSVal #-} - -instance ToJSVal SVGTitleElement where - toJSVal = return . unSVGTitleElement - {-# INLINE toJSVal #-} - -instance FromJSVal SVGTitleElement where - fromJSVal = return . fmap SVGTitleElement . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsSVGElement SVGTitleElement -instance IsElement SVGTitleElement -instance IsNode SVGTitleElement -instance IsEventTarget SVGTitleElement -instance IsGObject SVGTitleElement where - toGObject = GObject . unSVGTitleElement - {-# INLINE toGObject #-} - unsafeCastGObject = SVGTitleElement . unGObject - {-# INLINE unsafeCastGObject #-} - -castToSVGTitleElement :: IsGObject obj => obj -> IO SVGTitleElement -castToSVGTitleElement = castTo gTypeSVGTitleElement "SVGTitleElement" - -foreign import javascript unsafe "window[\"SVGTitleElement\"]" gTypeSVGTitleElement :: GType - --- | Functions for this inteface are in "GHCJS.DOM.SVGTransform". --- --- -newtype SVGTransform = SVGTransform { unSVGTransform :: JSVal } - -instance Eq (SVGTransform) where - (SVGTransform a) == (SVGTransform b) = js_eq a b - -instance PToJSVal SVGTransform where - pToJSVal = unSVGTransform - {-# INLINE pToJSVal #-} - -instance PFromJSVal SVGTransform where - pFromJSVal = SVGTransform - {-# INLINE pFromJSVal #-} - -instance ToJSVal SVGTransform where - toJSVal = return . unSVGTransform - {-# INLINE toJSVal #-} - -instance FromJSVal SVGTransform where - fromJSVal = return . fmap SVGTransform . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsGObject SVGTransform where - toGObject = GObject . unSVGTransform - {-# INLINE toGObject #-} - unsafeCastGObject = SVGTransform . unGObject - {-# INLINE unsafeCastGObject #-} - -castToSVGTransform :: IsGObject obj => obj -> IO SVGTransform -castToSVGTransform = castTo gTypeSVGTransform "SVGTransform" - -foreign import javascript unsafe "window[\"SVGTransform\"]" gTypeSVGTransform :: GType - --- | Functions for this inteface are in "GHCJS.DOM.SVGTransformList". --- --- -newtype SVGTransformList = SVGTransformList { unSVGTransformList :: JSVal } - -instance Eq (SVGTransformList) where - (SVGTransformList a) == (SVGTransformList b) = js_eq a b - -instance PToJSVal SVGTransformList where - pToJSVal = unSVGTransformList - {-# INLINE pToJSVal #-} - -instance PFromJSVal SVGTransformList where - pFromJSVal = SVGTransformList - {-# INLINE pFromJSVal #-} - -instance ToJSVal SVGTransformList where - toJSVal = return . unSVGTransformList - {-# INLINE toJSVal #-} - -instance FromJSVal SVGTransformList where - fromJSVal = return . fmap SVGTransformList . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsGObject SVGTransformList where - toGObject = GObject . unSVGTransformList - {-# INLINE toGObject #-} - unsafeCastGObject = SVGTransformList . unGObject - {-# INLINE unsafeCastGObject #-} - -castToSVGTransformList :: IsGObject obj => obj -> IO SVGTransformList -castToSVGTransformList = castTo gTypeSVGTransformList "SVGTransformList" - -foreign import javascript unsafe "window[\"SVGTransformList\"]" gTypeSVGTransformList :: GType - --- | Functions for this inteface are in "GHCJS.DOM.SVGURIReference". --- --- -newtype SVGURIReference = SVGURIReference { unSVGURIReference :: JSVal } - -instance Eq (SVGURIReference) where - (SVGURIReference a) == (SVGURIReference b) = js_eq a b - -instance PToJSVal SVGURIReference where - pToJSVal = unSVGURIReference - {-# INLINE pToJSVal #-} - -instance PFromJSVal SVGURIReference where - pFromJSVal = SVGURIReference - {-# INLINE pFromJSVal #-} - -instance ToJSVal SVGURIReference where - toJSVal = return . unSVGURIReference - {-# INLINE toJSVal #-} - -instance FromJSVal SVGURIReference where - fromJSVal = return . fmap SVGURIReference . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsGObject SVGURIReference where - toGObject = GObject . unSVGURIReference - {-# INLINE toGObject #-} - unsafeCastGObject = SVGURIReference . unGObject - {-# INLINE unsafeCastGObject #-} - -castToSVGURIReference :: IsGObject obj => obj -> IO SVGURIReference -castToSVGURIReference = castTo gTypeSVGURIReference "SVGURIReference" - -foreign import javascript unsafe "window[\"SVGURIReference\"]" gTypeSVGURIReference :: GType - --- | Functions for this inteface are in "GHCJS.DOM.SVGUnitTypes". --- --- -newtype SVGUnitTypes = SVGUnitTypes { unSVGUnitTypes :: JSVal } - -instance Eq (SVGUnitTypes) where - (SVGUnitTypes a) == (SVGUnitTypes b) = js_eq a b - -instance PToJSVal SVGUnitTypes where - pToJSVal = unSVGUnitTypes - {-# INLINE pToJSVal #-} - -instance PFromJSVal SVGUnitTypes where - pFromJSVal = SVGUnitTypes - {-# INLINE pFromJSVal #-} - -instance ToJSVal SVGUnitTypes where - toJSVal = return . unSVGUnitTypes - {-# INLINE toJSVal #-} - -instance FromJSVal SVGUnitTypes where - fromJSVal = return . fmap SVGUnitTypes . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsGObject SVGUnitTypes where - toGObject = GObject . unSVGUnitTypes - {-# INLINE toGObject #-} - unsafeCastGObject = SVGUnitTypes . unGObject - {-# INLINE unsafeCastGObject #-} - -castToSVGUnitTypes :: IsGObject obj => obj -> IO SVGUnitTypes -castToSVGUnitTypes = castTo gTypeSVGUnitTypes "SVGUnitTypes" - -foreign import javascript unsafe "window[\"SVGUnitTypes\"]" gTypeSVGUnitTypes :: GType - --- | Functions for this inteface are in "GHCJS.DOM.SVGUseElement". --- Base interface functions are in: --- --- * "GHCJS.DOM.SVGGraphicsElement" --- * "GHCJS.DOM.SVGElement" --- * "GHCJS.DOM.Element" --- * "GHCJS.DOM.Node" --- * "GHCJS.DOM.EventTarget" --- --- -newtype SVGUseElement = SVGUseElement { unSVGUseElement :: JSVal } - -instance Eq (SVGUseElement) where - (SVGUseElement a) == (SVGUseElement b) = js_eq a b - -instance PToJSVal SVGUseElement where - pToJSVal = unSVGUseElement - {-# INLINE pToJSVal #-} - -instance PFromJSVal SVGUseElement where - pFromJSVal = SVGUseElement - {-# INLINE pFromJSVal #-} - -instance ToJSVal SVGUseElement where - toJSVal = return . unSVGUseElement - {-# INLINE toJSVal #-} - -instance FromJSVal SVGUseElement where - fromJSVal = return . fmap SVGUseElement . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsSVGGraphicsElement SVGUseElement -instance IsSVGElement SVGUseElement -instance IsElement SVGUseElement -instance IsNode SVGUseElement -instance IsEventTarget SVGUseElement -instance IsGObject SVGUseElement where - toGObject = GObject . unSVGUseElement - {-# INLINE toGObject #-} - unsafeCastGObject = SVGUseElement . unGObject - {-# INLINE unsafeCastGObject #-} - -castToSVGUseElement :: IsGObject obj => obj -> IO SVGUseElement -castToSVGUseElement = castTo gTypeSVGUseElement "SVGUseElement" - -foreign import javascript unsafe "window[\"SVGUseElement\"]" gTypeSVGUseElement :: GType - --- | Functions for this inteface are in "GHCJS.DOM.SVGVKernElement". --- Base interface functions are in: --- --- * "GHCJS.DOM.SVGElement" --- * "GHCJS.DOM.Element" --- * "GHCJS.DOM.Node" --- * "GHCJS.DOM.EventTarget" --- --- -newtype SVGVKernElement = SVGVKernElement { unSVGVKernElement :: JSVal } - -instance Eq (SVGVKernElement) where - (SVGVKernElement a) == (SVGVKernElement b) = js_eq a b - -instance PToJSVal SVGVKernElement where - pToJSVal = unSVGVKernElement - {-# INLINE pToJSVal #-} - -instance PFromJSVal SVGVKernElement where - pFromJSVal = SVGVKernElement - {-# INLINE pFromJSVal #-} - -instance ToJSVal SVGVKernElement where - toJSVal = return . unSVGVKernElement - {-# INLINE toJSVal #-} - -instance FromJSVal SVGVKernElement where - fromJSVal = return . fmap SVGVKernElement . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsSVGElement SVGVKernElement -instance IsElement SVGVKernElement -instance IsNode SVGVKernElement -instance IsEventTarget SVGVKernElement -instance IsGObject SVGVKernElement where - toGObject = GObject . unSVGVKernElement - {-# INLINE toGObject #-} - unsafeCastGObject = SVGVKernElement . unGObject - {-# INLINE unsafeCastGObject #-} - -castToSVGVKernElement :: IsGObject obj => obj -> IO SVGVKernElement -castToSVGVKernElement = castTo gTypeSVGVKernElement "SVGVKernElement" - -foreign import javascript unsafe "window[\"SVGVKernElement\"]" gTypeSVGVKernElement :: GType - --- | Functions for this inteface are in "GHCJS.DOM.SVGViewElement". --- Base interface functions are in: --- --- * "GHCJS.DOM.SVGElement" --- * "GHCJS.DOM.Element" --- * "GHCJS.DOM.Node" --- * "GHCJS.DOM.EventTarget" --- --- -newtype SVGViewElement = SVGViewElement { unSVGViewElement :: JSVal } - -instance Eq (SVGViewElement) where - (SVGViewElement a) == (SVGViewElement b) = js_eq a b - -instance PToJSVal SVGViewElement where - pToJSVal = unSVGViewElement - {-# INLINE pToJSVal #-} - -instance PFromJSVal SVGViewElement where - pFromJSVal = SVGViewElement - {-# INLINE pFromJSVal #-} - -instance ToJSVal SVGViewElement where - toJSVal = return . unSVGViewElement - {-# INLINE toJSVal #-} - -instance FromJSVal SVGViewElement where - fromJSVal = return . fmap SVGViewElement . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsSVGElement SVGViewElement -instance IsElement SVGViewElement -instance IsNode SVGViewElement -instance IsEventTarget SVGViewElement -instance IsGObject SVGViewElement where - toGObject = GObject . unSVGViewElement - {-# INLINE toGObject #-} - unsafeCastGObject = SVGViewElement . unGObject - {-# INLINE unsafeCastGObject #-} - -castToSVGViewElement :: IsGObject obj => obj -> IO SVGViewElement -castToSVGViewElement = castTo gTypeSVGViewElement "SVGViewElement" - -foreign import javascript unsafe "window[\"SVGViewElement\"]" gTypeSVGViewElement :: GType - --- | Functions for this inteface are in "GHCJS.DOM.SVGViewSpec". --- --- -newtype SVGViewSpec = SVGViewSpec { unSVGViewSpec :: JSVal } - -instance Eq (SVGViewSpec) where - (SVGViewSpec a) == (SVGViewSpec b) = js_eq a b - -instance PToJSVal SVGViewSpec where - pToJSVal = unSVGViewSpec - {-# INLINE pToJSVal #-} - -instance PFromJSVal SVGViewSpec where - pFromJSVal = SVGViewSpec - {-# INLINE pFromJSVal #-} - -instance ToJSVal SVGViewSpec where - toJSVal = return . unSVGViewSpec - {-# INLINE toJSVal #-} - -instance FromJSVal SVGViewSpec where - fromJSVal = return . fmap SVGViewSpec . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsGObject SVGViewSpec where - toGObject = GObject . unSVGViewSpec - {-# INLINE toGObject #-} - unsafeCastGObject = SVGViewSpec . unGObject - {-# INLINE unsafeCastGObject #-} - -castToSVGViewSpec :: IsGObject obj => obj -> IO SVGViewSpec -castToSVGViewSpec = castTo gTypeSVGViewSpec "SVGViewSpec" - -foreign import javascript unsafe "window[\"SVGViewSpec\"]" gTypeSVGViewSpec :: GType - --- | Functions for this inteface are in "GHCJS.DOM.SVGZoomAndPan". --- --- -newtype SVGZoomAndPan = SVGZoomAndPan { unSVGZoomAndPan :: JSVal } - -instance Eq (SVGZoomAndPan) where - (SVGZoomAndPan a) == (SVGZoomAndPan b) = js_eq a b - -instance PToJSVal SVGZoomAndPan where - pToJSVal = unSVGZoomAndPan - {-# INLINE pToJSVal #-} - -instance PFromJSVal SVGZoomAndPan where - pFromJSVal = SVGZoomAndPan - {-# INLINE pFromJSVal #-} - -instance ToJSVal SVGZoomAndPan where - toJSVal = return . unSVGZoomAndPan - {-# INLINE toJSVal #-} - -instance FromJSVal SVGZoomAndPan where - fromJSVal = return . fmap SVGZoomAndPan . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsGObject SVGZoomAndPan where - toGObject = GObject . unSVGZoomAndPan - {-# INLINE toGObject #-} - unsafeCastGObject = SVGZoomAndPan . unGObject - {-# INLINE unsafeCastGObject #-} - -castToSVGZoomAndPan :: IsGObject obj => obj -> IO SVGZoomAndPan -castToSVGZoomAndPan = castTo gTypeSVGZoomAndPan "SVGZoomAndPan" - -foreign import javascript unsafe "window[\"SVGZoomAndPan\"]" gTypeSVGZoomAndPan :: GType - --- | Functions for this inteface are in "GHCJS.DOM.SVGZoomEvent". --- Base interface functions are in: --- --- * "GHCJS.DOM.UIEvent" --- * "GHCJS.DOM.Event" --- --- -newtype SVGZoomEvent = SVGZoomEvent { unSVGZoomEvent :: JSVal } - -instance Eq (SVGZoomEvent) where - (SVGZoomEvent a) == (SVGZoomEvent b) = js_eq a b - -instance PToJSVal SVGZoomEvent where - pToJSVal = unSVGZoomEvent - {-# INLINE pToJSVal #-} - -instance PFromJSVal SVGZoomEvent where - pFromJSVal = SVGZoomEvent - {-# INLINE pFromJSVal #-} - -instance ToJSVal SVGZoomEvent where - toJSVal = return . unSVGZoomEvent - {-# INLINE toJSVal #-} - -instance FromJSVal SVGZoomEvent where - fromJSVal = return . fmap SVGZoomEvent . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsUIEvent SVGZoomEvent -instance IsEvent SVGZoomEvent -instance IsGObject SVGZoomEvent where - toGObject = GObject . unSVGZoomEvent - {-# INLINE toGObject #-} - unsafeCastGObject = SVGZoomEvent . unGObject - {-# INLINE unsafeCastGObject #-} - -castToSVGZoomEvent :: IsGObject obj => obj -> IO SVGZoomEvent -castToSVGZoomEvent = castTo gTypeSVGZoomEvent "SVGZoomEvent" - -foreign import javascript unsafe "window[\"SVGZoomEvent\"]" gTypeSVGZoomEvent :: GType - --- | Functions for this inteface are in "GHCJS.DOM.Screen". --- --- -newtype Screen = Screen { unScreen :: JSVal } - -instance Eq (Screen) where - (Screen a) == (Screen b) = js_eq a b - -instance PToJSVal Screen where - pToJSVal = unScreen - {-# INLINE pToJSVal #-} - -instance PFromJSVal Screen where - pFromJSVal = Screen - {-# INLINE pFromJSVal #-} - -instance ToJSVal Screen where - toJSVal = return . unScreen - {-# INLINE toJSVal #-} - -instance FromJSVal Screen where - fromJSVal = return . fmap Screen . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsGObject Screen where - toGObject = GObject . unScreen - {-# INLINE toGObject #-} - unsafeCastGObject = Screen . unGObject - {-# INLINE unsafeCastGObject #-} - -castToScreen :: IsGObject obj => obj -> IO Screen -castToScreen = castTo gTypeScreen "Screen" - -foreign import javascript unsafe "window[\"Screen\"]" gTypeScreen :: GType - --- | Functions for this inteface are in "GHCJS.DOM.ScriptProcessorNode". --- Base interface functions are in: --- --- * "GHCJS.DOM.AudioNode" --- * "GHCJS.DOM.EventTarget" --- --- -newtype ScriptProcessorNode = ScriptProcessorNode { unScriptProcessorNode :: JSVal } - -instance Eq (ScriptProcessorNode) where - (ScriptProcessorNode a) == (ScriptProcessorNode b) = js_eq a b - -instance PToJSVal ScriptProcessorNode where - pToJSVal = unScriptProcessorNode - {-# INLINE pToJSVal #-} - -instance PFromJSVal ScriptProcessorNode where - pFromJSVal = ScriptProcessorNode - {-# INLINE pFromJSVal #-} - -instance ToJSVal ScriptProcessorNode where - toJSVal = return . unScriptProcessorNode - {-# INLINE toJSVal #-} - -instance FromJSVal ScriptProcessorNode where - fromJSVal = return . fmap ScriptProcessorNode . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsAudioNode ScriptProcessorNode -instance IsEventTarget ScriptProcessorNode -instance IsGObject ScriptProcessorNode where - toGObject = GObject . unScriptProcessorNode - {-# INLINE toGObject #-} - unsafeCastGObject = ScriptProcessorNode . unGObject - {-# INLINE unsafeCastGObject #-} - -castToScriptProcessorNode :: IsGObject obj => obj -> IO ScriptProcessorNode -castToScriptProcessorNode = castTo gTypeScriptProcessorNode "ScriptProcessorNode" - -foreign import javascript unsafe "window[\"ScriptProcessorNode\"]" gTypeScriptProcessorNode :: GType - --- | Functions for this inteface are in "GHCJS.DOM.ScriptProfile". --- --- -newtype ScriptProfile = ScriptProfile { unScriptProfile :: JSVal } - -instance Eq (ScriptProfile) where - (ScriptProfile a) == (ScriptProfile b) = js_eq a b - -instance PToJSVal ScriptProfile where - pToJSVal = unScriptProfile - {-# INLINE pToJSVal #-} - -instance PFromJSVal ScriptProfile where - pFromJSVal = ScriptProfile - {-# INLINE pFromJSVal #-} - -instance ToJSVal ScriptProfile where - toJSVal = return . unScriptProfile - {-# INLINE toJSVal #-} - -instance FromJSVal ScriptProfile where - fromJSVal = return . fmap ScriptProfile . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsGObject ScriptProfile where - toGObject = GObject . unScriptProfile - {-# INLINE toGObject #-} - unsafeCastGObject = ScriptProfile . unGObject - {-# INLINE unsafeCastGObject #-} - -castToScriptProfile :: IsGObject obj => obj -> IO ScriptProfile -castToScriptProfile = castTo gTypeScriptProfile "ScriptProfile" - -foreign import javascript unsafe "window[\"ScriptProfile\"]" gTypeScriptProfile :: GType - --- | Functions for this inteface are in "GHCJS.DOM.ScriptProfileNode". --- --- -newtype ScriptProfileNode = ScriptProfileNode { unScriptProfileNode :: JSVal } - -instance Eq (ScriptProfileNode) where - (ScriptProfileNode a) == (ScriptProfileNode b) = js_eq a b - -instance PToJSVal ScriptProfileNode where - pToJSVal = unScriptProfileNode - {-# INLINE pToJSVal #-} - -instance PFromJSVal ScriptProfileNode where - pFromJSVal = ScriptProfileNode - {-# INLINE pFromJSVal #-} - -instance ToJSVal ScriptProfileNode where - toJSVal = return . unScriptProfileNode - {-# INLINE toJSVal #-} - -instance FromJSVal ScriptProfileNode where - fromJSVal = return . fmap ScriptProfileNode . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsGObject ScriptProfileNode where - toGObject = GObject . unScriptProfileNode - {-# INLINE toGObject #-} - unsafeCastGObject = ScriptProfileNode . unGObject - {-# INLINE unsafeCastGObject #-} - -castToScriptProfileNode :: IsGObject obj => obj -> IO ScriptProfileNode -castToScriptProfileNode = castTo gTypeScriptProfileNode "ScriptProfileNode" - -foreign import javascript unsafe "window[\"ScriptProfileNode\"]" gTypeScriptProfileNode :: GType - --- | Functions for this inteface are in "GHCJS.DOM.SecurityPolicy". --- --- -newtype SecurityPolicy = SecurityPolicy { unSecurityPolicy :: JSVal } - -instance Eq (SecurityPolicy) where - (SecurityPolicy a) == (SecurityPolicy b) = js_eq a b - -instance PToJSVal SecurityPolicy where - pToJSVal = unSecurityPolicy - {-# INLINE pToJSVal #-} - -instance PFromJSVal SecurityPolicy where - pFromJSVal = SecurityPolicy - {-# INLINE pFromJSVal #-} - -instance ToJSVal SecurityPolicy where - toJSVal = return . unSecurityPolicy - {-# INLINE toJSVal #-} - -instance FromJSVal SecurityPolicy where - fromJSVal = return . fmap SecurityPolicy . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsGObject SecurityPolicy where - toGObject = GObject . unSecurityPolicy - {-# INLINE toGObject #-} - unsafeCastGObject = SecurityPolicy . unGObject - {-# INLINE unsafeCastGObject #-} - -castToSecurityPolicy :: IsGObject obj => obj -> IO SecurityPolicy -castToSecurityPolicy = castTo gTypeSecurityPolicy "SecurityPolicy" - -foreign import javascript unsafe "window[\"SecurityPolicy\"]" gTypeSecurityPolicy :: GType - --- | Functions for this inteface are in "GHCJS.DOM.SecurityPolicyViolationEvent". --- Base interface functions are in: --- --- * "GHCJS.DOM.Event" --- --- -newtype SecurityPolicyViolationEvent = SecurityPolicyViolationEvent { unSecurityPolicyViolationEvent :: JSVal } - -instance Eq (SecurityPolicyViolationEvent) where - (SecurityPolicyViolationEvent a) == (SecurityPolicyViolationEvent b) = js_eq a b - -instance PToJSVal SecurityPolicyViolationEvent where - pToJSVal = unSecurityPolicyViolationEvent - {-# INLINE pToJSVal #-} - -instance PFromJSVal SecurityPolicyViolationEvent where - pFromJSVal = SecurityPolicyViolationEvent - {-# INLINE pFromJSVal #-} - -instance ToJSVal SecurityPolicyViolationEvent where - toJSVal = return . unSecurityPolicyViolationEvent - {-# INLINE toJSVal #-} - -instance FromJSVal SecurityPolicyViolationEvent where - fromJSVal = return . fmap SecurityPolicyViolationEvent . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsEvent SecurityPolicyViolationEvent -instance IsGObject SecurityPolicyViolationEvent where - toGObject = GObject . unSecurityPolicyViolationEvent - {-# INLINE toGObject #-} - unsafeCastGObject = SecurityPolicyViolationEvent . unGObject - {-# INLINE unsafeCastGObject #-} - -castToSecurityPolicyViolationEvent :: IsGObject obj => obj -> IO SecurityPolicyViolationEvent -castToSecurityPolicyViolationEvent = castTo gTypeSecurityPolicyViolationEvent "SecurityPolicyViolationEvent" - -foreign import javascript unsafe "window[\"SecurityPolicyViolationEvent\"]" gTypeSecurityPolicyViolationEvent :: GType - --- | Functions for this inteface are in "GHCJS.DOM.Selection". --- --- -newtype Selection = Selection { unSelection :: JSVal } - -instance Eq (Selection) where - (Selection a) == (Selection b) = js_eq a b - -instance PToJSVal Selection where - pToJSVal = unSelection - {-# INLINE pToJSVal #-} - -instance PFromJSVal Selection where - pFromJSVal = Selection - {-# INLINE pFromJSVal #-} - -instance ToJSVal Selection where - toJSVal = return . unSelection - {-# INLINE toJSVal #-} - -instance FromJSVal Selection where - fromJSVal = return . fmap Selection . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsGObject Selection where - toGObject = GObject . unSelection - {-# INLINE toGObject #-} - unsafeCastGObject = Selection . unGObject - {-# INLINE unsafeCastGObject #-} - -castToSelection :: IsGObject obj => obj -> IO Selection -castToSelection = castTo gTypeSelection "Selection" - -foreign import javascript unsafe "window[\"Selection\"]" gTypeSelection :: GType - --- | Functions for this inteface are in "GHCJS.DOM.SourceBuffer". --- Base interface functions are in: --- --- * "GHCJS.DOM.EventTarget" --- --- -newtype SourceBuffer = SourceBuffer { unSourceBuffer :: JSVal } - -instance Eq (SourceBuffer) where - (SourceBuffer a) == (SourceBuffer b) = js_eq a b - -instance PToJSVal SourceBuffer where - pToJSVal = unSourceBuffer - {-# INLINE pToJSVal #-} - -instance PFromJSVal SourceBuffer where - pFromJSVal = SourceBuffer - {-# INLINE pFromJSVal #-} - -instance ToJSVal SourceBuffer where - toJSVal = return . unSourceBuffer - {-# INLINE toJSVal #-} - -instance FromJSVal SourceBuffer where - fromJSVal = return . fmap SourceBuffer . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsEventTarget SourceBuffer -instance IsGObject SourceBuffer where - toGObject = GObject . unSourceBuffer - {-# INLINE toGObject #-} - unsafeCastGObject = SourceBuffer . unGObject - {-# INLINE unsafeCastGObject #-} - -castToSourceBuffer :: IsGObject obj => obj -> IO SourceBuffer -castToSourceBuffer = castTo gTypeSourceBuffer "SourceBuffer" - -foreign import javascript unsafe "window[\"SourceBuffer\"]" gTypeSourceBuffer :: GType - --- | Functions for this inteface are in "GHCJS.DOM.SourceBufferList". --- Base interface functions are in: --- --- * "GHCJS.DOM.EventTarget" --- --- -newtype SourceBufferList = SourceBufferList { unSourceBufferList :: JSVal } - -instance Eq (SourceBufferList) where - (SourceBufferList a) == (SourceBufferList b) = js_eq a b - -instance PToJSVal SourceBufferList where - pToJSVal = unSourceBufferList - {-# INLINE pToJSVal #-} - -instance PFromJSVal SourceBufferList where - pFromJSVal = SourceBufferList - {-# INLINE pFromJSVal #-} - -instance ToJSVal SourceBufferList where - toJSVal = return . unSourceBufferList - {-# INLINE toJSVal #-} - -instance FromJSVal SourceBufferList where - fromJSVal = return . fmap SourceBufferList . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsEventTarget SourceBufferList -instance IsGObject SourceBufferList where - toGObject = GObject . unSourceBufferList - {-# INLINE toGObject #-} - unsafeCastGObject = SourceBufferList . unGObject - {-# INLINE unsafeCastGObject #-} - -castToSourceBufferList :: IsGObject obj => obj -> IO SourceBufferList -castToSourceBufferList = castTo gTypeSourceBufferList "SourceBufferList" - -foreign import javascript unsafe "window[\"SourceBufferList\"]" gTypeSourceBufferList :: GType - --- | Functions for this inteface are in "GHCJS.DOM.SourceInfo". --- --- -newtype SourceInfo = SourceInfo { unSourceInfo :: JSVal } - -instance Eq (SourceInfo) where - (SourceInfo a) == (SourceInfo b) = js_eq a b - -instance PToJSVal SourceInfo where - pToJSVal = unSourceInfo - {-# INLINE pToJSVal #-} - -instance PFromJSVal SourceInfo where - pFromJSVal = SourceInfo - {-# INLINE pFromJSVal #-} - -instance ToJSVal SourceInfo where - toJSVal = return . unSourceInfo - {-# INLINE toJSVal #-} - -instance FromJSVal SourceInfo where - fromJSVal = return . fmap SourceInfo . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsGObject SourceInfo where - toGObject = GObject . unSourceInfo - {-# INLINE toGObject #-} - unsafeCastGObject = SourceInfo . unGObject - {-# INLINE unsafeCastGObject #-} - -castToSourceInfo :: IsGObject obj => obj -> IO SourceInfo -castToSourceInfo = castTo gTypeSourceInfo "SourceInfo" - -foreign import javascript unsafe "window[\"SourceInfo\"]" gTypeSourceInfo :: GType - --- | Functions for this inteface are in "GHCJS.DOM.SpeechSynthesis". --- --- -newtype SpeechSynthesis = SpeechSynthesis { unSpeechSynthesis :: JSVal } - -instance Eq (SpeechSynthesis) where - (SpeechSynthesis a) == (SpeechSynthesis b) = js_eq a b - -instance PToJSVal SpeechSynthesis where - pToJSVal = unSpeechSynthesis - {-# INLINE pToJSVal #-} - -instance PFromJSVal SpeechSynthesis where - pFromJSVal = SpeechSynthesis - {-# INLINE pFromJSVal #-} - -instance ToJSVal SpeechSynthesis where - toJSVal = return . unSpeechSynthesis - {-# INLINE toJSVal #-} - -instance FromJSVal SpeechSynthesis where - fromJSVal = return . fmap SpeechSynthesis . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsGObject SpeechSynthesis where - toGObject = GObject . unSpeechSynthesis - {-# INLINE toGObject #-} - unsafeCastGObject = SpeechSynthesis . unGObject - {-# INLINE unsafeCastGObject #-} - -castToSpeechSynthesis :: IsGObject obj => obj -> IO SpeechSynthesis -castToSpeechSynthesis = castTo gTypeSpeechSynthesis "SpeechSynthesis" - -foreign import javascript unsafe "window[\"SpeechSynthesis\"]" gTypeSpeechSynthesis :: GType - --- | Functions for this inteface are in "GHCJS.DOM.SpeechSynthesisEvent". --- Base interface functions are in: --- --- * "GHCJS.DOM.Event" --- --- -newtype SpeechSynthesisEvent = SpeechSynthesisEvent { unSpeechSynthesisEvent :: JSVal } - -instance Eq (SpeechSynthesisEvent) where - (SpeechSynthesisEvent a) == (SpeechSynthesisEvent b) = js_eq a b - -instance PToJSVal SpeechSynthesisEvent where - pToJSVal = unSpeechSynthesisEvent - {-# INLINE pToJSVal #-} - -instance PFromJSVal SpeechSynthesisEvent where - pFromJSVal = SpeechSynthesisEvent - {-# INLINE pFromJSVal #-} - -instance ToJSVal SpeechSynthesisEvent where - toJSVal = return . unSpeechSynthesisEvent - {-# INLINE toJSVal #-} - -instance FromJSVal SpeechSynthesisEvent where - fromJSVal = return . fmap SpeechSynthesisEvent . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsEvent SpeechSynthesisEvent -instance IsGObject SpeechSynthesisEvent where - toGObject = GObject . unSpeechSynthesisEvent - {-# INLINE toGObject #-} - unsafeCastGObject = SpeechSynthesisEvent . unGObject - {-# INLINE unsafeCastGObject #-} - -castToSpeechSynthesisEvent :: IsGObject obj => obj -> IO SpeechSynthesisEvent -castToSpeechSynthesisEvent = castTo gTypeSpeechSynthesisEvent "SpeechSynthesisEvent" - -foreign import javascript unsafe "window[\"SpeechSynthesisEvent\"]" gTypeSpeechSynthesisEvent :: GType - --- | Functions for this inteface are in "GHCJS.DOM.SpeechSynthesisUtterance". --- Base interface functions are in: --- --- * "GHCJS.DOM.EventTarget" --- --- -newtype SpeechSynthesisUtterance = SpeechSynthesisUtterance { unSpeechSynthesisUtterance :: JSVal } - -instance Eq (SpeechSynthesisUtterance) where - (SpeechSynthesisUtterance a) == (SpeechSynthesisUtterance b) = js_eq a b - -instance PToJSVal SpeechSynthesisUtterance where - pToJSVal = unSpeechSynthesisUtterance - {-# INLINE pToJSVal #-} - -instance PFromJSVal SpeechSynthesisUtterance where - pFromJSVal = SpeechSynthesisUtterance - {-# INLINE pFromJSVal #-} - -instance ToJSVal SpeechSynthesisUtterance where - toJSVal = return . unSpeechSynthesisUtterance - {-# INLINE toJSVal #-} - -instance FromJSVal SpeechSynthesisUtterance where - fromJSVal = return . fmap SpeechSynthesisUtterance . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsEventTarget SpeechSynthesisUtterance -instance IsGObject SpeechSynthesisUtterance where - toGObject = GObject . unSpeechSynthesisUtterance - {-# INLINE toGObject #-} - unsafeCastGObject = SpeechSynthesisUtterance . unGObject - {-# INLINE unsafeCastGObject #-} - -castToSpeechSynthesisUtterance :: IsGObject obj => obj -> IO SpeechSynthesisUtterance -castToSpeechSynthesisUtterance = castTo gTypeSpeechSynthesisUtterance "SpeechSynthesisUtterance" - -foreign import javascript unsafe "window[\"SpeechSynthesisUtterance\"]" gTypeSpeechSynthesisUtterance :: GType - --- | Functions for this inteface are in "GHCJS.DOM.SpeechSynthesisVoice". --- --- -newtype SpeechSynthesisVoice = SpeechSynthesisVoice { unSpeechSynthesisVoice :: JSVal } - -instance Eq (SpeechSynthesisVoice) where - (SpeechSynthesisVoice a) == (SpeechSynthesisVoice b) = js_eq a b - -instance PToJSVal SpeechSynthesisVoice where - pToJSVal = unSpeechSynthesisVoice - {-# INLINE pToJSVal #-} - -instance PFromJSVal SpeechSynthesisVoice where - pFromJSVal = SpeechSynthesisVoice - {-# INLINE pFromJSVal #-} - -instance ToJSVal SpeechSynthesisVoice where - toJSVal = return . unSpeechSynthesisVoice - {-# INLINE toJSVal #-} - -instance FromJSVal SpeechSynthesisVoice where - fromJSVal = return . fmap SpeechSynthesisVoice . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsGObject SpeechSynthesisVoice where - toGObject = GObject . unSpeechSynthesisVoice - {-# INLINE toGObject #-} - unsafeCastGObject = SpeechSynthesisVoice . unGObject - {-# INLINE unsafeCastGObject #-} - -castToSpeechSynthesisVoice :: IsGObject obj => obj -> IO SpeechSynthesisVoice -castToSpeechSynthesisVoice = castTo gTypeSpeechSynthesisVoice "SpeechSynthesisVoice" - -foreign import javascript unsafe "window[\"SpeechSynthesisVoice\"]" gTypeSpeechSynthesisVoice :: GType - --- | Functions for this inteface are in "GHCJS.DOM.Storage". --- --- -newtype Storage = Storage { unStorage :: JSVal } - -instance Eq (Storage) where - (Storage a) == (Storage b) = js_eq a b - -instance PToJSVal Storage where - pToJSVal = unStorage - {-# INLINE pToJSVal #-} - -instance PFromJSVal Storage where - pFromJSVal = Storage - {-# INLINE pFromJSVal #-} - -instance ToJSVal Storage where - toJSVal = return . unStorage - {-# INLINE toJSVal #-} - -instance FromJSVal Storage where - fromJSVal = return . fmap Storage . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsGObject Storage where - toGObject = GObject . unStorage - {-# INLINE toGObject #-} - unsafeCastGObject = Storage . unGObject - {-# INLINE unsafeCastGObject #-} - -castToStorage :: IsGObject obj => obj -> IO Storage -castToStorage = castTo gTypeStorage "Storage" - -foreign import javascript unsafe "window[\"Storage\"]" gTypeStorage :: GType - --- | Functions for this inteface are in "GHCJS.DOM.StorageEvent". --- Base interface functions are in: --- --- * "GHCJS.DOM.Event" --- --- -newtype StorageEvent = StorageEvent { unStorageEvent :: JSVal } - -instance Eq (StorageEvent) where - (StorageEvent a) == (StorageEvent b) = js_eq a b - -instance PToJSVal StorageEvent where - pToJSVal = unStorageEvent - {-# INLINE pToJSVal #-} - -instance PFromJSVal StorageEvent where - pFromJSVal = StorageEvent - {-# INLINE pFromJSVal #-} - -instance ToJSVal StorageEvent where - toJSVal = return . unStorageEvent - {-# INLINE toJSVal #-} - -instance FromJSVal StorageEvent where - fromJSVal = return . fmap StorageEvent . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsEvent StorageEvent -instance IsGObject StorageEvent where - toGObject = GObject . unStorageEvent - {-# INLINE toGObject #-} - unsafeCastGObject = StorageEvent . unGObject - {-# INLINE unsafeCastGObject #-} - -castToStorageEvent :: IsGObject obj => obj -> IO StorageEvent -castToStorageEvent = castTo gTypeStorageEvent "StorageEvent" - -foreign import javascript unsafe "window[\"StorageEvent\"]" gTypeStorageEvent :: GType - --- | Functions for this inteface are in "GHCJS.DOM.StorageInfo". --- --- -newtype StorageInfo = StorageInfo { unStorageInfo :: JSVal } - -instance Eq (StorageInfo) where - (StorageInfo a) == (StorageInfo b) = js_eq a b - -instance PToJSVal StorageInfo where - pToJSVal = unStorageInfo - {-# INLINE pToJSVal #-} - -instance PFromJSVal StorageInfo where - pFromJSVal = StorageInfo - {-# INLINE pFromJSVal #-} - -instance ToJSVal StorageInfo where - toJSVal = return . unStorageInfo - {-# INLINE toJSVal #-} - -instance FromJSVal StorageInfo where - fromJSVal = return . fmap StorageInfo . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsGObject StorageInfo where - toGObject = GObject . unStorageInfo - {-# INLINE toGObject #-} - unsafeCastGObject = StorageInfo . unGObject - {-# INLINE unsafeCastGObject #-} - -castToStorageInfo :: IsGObject obj => obj -> IO StorageInfo -castToStorageInfo = castTo gTypeStorageInfo "StorageInfo" - -foreign import javascript unsafe "window[\"StorageInfo\"]" gTypeStorageInfo :: GType - --- | Functions for this inteface are in "GHCJS.DOM.StorageQuota". --- --- -newtype StorageQuota = StorageQuota { unStorageQuota :: JSVal } - -instance Eq (StorageQuota) where - (StorageQuota a) == (StorageQuota b) = js_eq a b - -instance PToJSVal StorageQuota where - pToJSVal = unStorageQuota - {-# INLINE pToJSVal #-} - -instance PFromJSVal StorageQuota where - pFromJSVal = StorageQuota - {-# INLINE pFromJSVal #-} - -instance ToJSVal StorageQuota where - toJSVal = return . unStorageQuota - {-# INLINE toJSVal #-} - -instance FromJSVal StorageQuota where - fromJSVal = return . fmap StorageQuota . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsGObject StorageQuota where - toGObject = GObject . unStorageQuota - {-# INLINE toGObject #-} - unsafeCastGObject = StorageQuota . unGObject - {-# INLINE unsafeCastGObject #-} - -castToStorageQuota :: IsGObject obj => obj -> IO StorageQuota -castToStorageQuota = castTo gTypeStorageQuota "StorageQuota" - -foreign import javascript unsafe "window[\"StorageQuota\"]" gTypeStorageQuota :: GType - --- | Functions for this inteface are in "GHCJS.DOM.StyleMedia". --- --- -newtype StyleMedia = StyleMedia { unStyleMedia :: JSVal } - -instance Eq (StyleMedia) where - (StyleMedia a) == (StyleMedia b) = js_eq a b - -instance PToJSVal StyleMedia where - pToJSVal = unStyleMedia - {-# INLINE pToJSVal #-} - -instance PFromJSVal StyleMedia where - pFromJSVal = StyleMedia - {-# INLINE pFromJSVal #-} - -instance ToJSVal StyleMedia where - toJSVal = return . unStyleMedia - {-# INLINE toJSVal #-} - -instance FromJSVal StyleMedia where - fromJSVal = return . fmap StyleMedia . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsGObject StyleMedia where - toGObject = GObject . unStyleMedia - {-# INLINE toGObject #-} - unsafeCastGObject = StyleMedia . unGObject - {-# INLINE unsafeCastGObject #-} - -castToStyleMedia :: IsGObject obj => obj -> IO StyleMedia -castToStyleMedia = castTo gTypeStyleMedia "StyleMedia" - -foreign import javascript unsafe "window[\"StyleMedia\"]" gTypeStyleMedia :: GType - --- | Functions for this inteface are in "GHCJS.DOM.StyleSheet". --- --- -newtype StyleSheet = StyleSheet { unStyleSheet :: JSVal } - -instance Eq (StyleSheet) where - (StyleSheet a) == (StyleSheet b) = js_eq a b - -instance PToJSVal StyleSheet where - pToJSVal = unStyleSheet - {-# INLINE pToJSVal #-} - -instance PFromJSVal StyleSheet where - pFromJSVal = StyleSheet - {-# INLINE pFromJSVal #-} - -instance ToJSVal StyleSheet where - toJSVal = return . unStyleSheet - {-# INLINE toJSVal #-} - -instance FromJSVal StyleSheet where - fromJSVal = return . fmap StyleSheet . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -class IsGObject o => IsStyleSheet o -toStyleSheet :: IsStyleSheet o => o -> StyleSheet -toStyleSheet = unsafeCastGObject . toGObject - -instance IsStyleSheet StyleSheet -instance IsGObject StyleSheet where - toGObject = GObject . unStyleSheet - {-# INLINE toGObject #-} - unsafeCastGObject = StyleSheet . unGObject - {-# INLINE unsafeCastGObject #-} - -castToStyleSheet :: IsGObject obj => obj -> IO StyleSheet -castToStyleSheet = castTo gTypeStyleSheet "StyleSheet" - -foreign import javascript unsafe "window[\"StyleSheet\"]" gTypeStyleSheet :: GType - --- | Functions for this inteface are in "GHCJS.DOM.StyleSheetList". --- --- -newtype StyleSheetList = StyleSheetList { unStyleSheetList :: JSVal } - -instance Eq (StyleSheetList) where - (StyleSheetList a) == (StyleSheetList b) = js_eq a b - -instance PToJSVal StyleSheetList where - pToJSVal = unStyleSheetList - {-# INLINE pToJSVal #-} - -instance PFromJSVal StyleSheetList where - pFromJSVal = StyleSheetList - {-# INLINE pFromJSVal #-} - -instance ToJSVal StyleSheetList where - toJSVal = return . unStyleSheetList - {-# INLINE toJSVal #-} - -instance FromJSVal StyleSheetList where - fromJSVal = return . fmap StyleSheetList . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsGObject StyleSheetList where - toGObject = GObject . unStyleSheetList - {-# INLINE toGObject #-} - unsafeCastGObject = StyleSheetList . unGObject - {-# INLINE unsafeCastGObject #-} - -castToStyleSheetList :: IsGObject obj => obj -> IO StyleSheetList -castToStyleSheetList = castTo gTypeStyleSheetList "StyleSheetList" - -foreign import javascript unsafe "window[\"StyleSheetList\"]" gTypeStyleSheetList :: GType - --- | Functions for this inteface are in "GHCJS.DOM.SubtleCrypto". --- --- -newtype SubtleCrypto = SubtleCrypto { unSubtleCrypto :: JSVal } - -instance Eq (SubtleCrypto) where - (SubtleCrypto a) == (SubtleCrypto b) = js_eq a b - -instance PToJSVal SubtleCrypto where - pToJSVal = unSubtleCrypto - {-# INLINE pToJSVal #-} - -instance PFromJSVal SubtleCrypto where - pFromJSVal = SubtleCrypto - {-# INLINE pFromJSVal #-} - -instance ToJSVal SubtleCrypto where - toJSVal = return . unSubtleCrypto - {-# INLINE toJSVal #-} - -instance FromJSVal SubtleCrypto where - fromJSVal = return . fmap SubtleCrypto . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsGObject SubtleCrypto where - toGObject = GObject . unSubtleCrypto - {-# INLINE toGObject #-} - unsafeCastGObject = SubtleCrypto . unGObject - {-# INLINE unsafeCastGObject #-} - -castToSubtleCrypto :: IsGObject obj => obj -> IO SubtleCrypto -castToSubtleCrypto = castTo gTypeSubtleCrypto "SubtleCrypto" - -foreign import javascript unsafe "window[\"WebKitSubtleCrypto\"]" gTypeSubtleCrypto :: GType - --- | Functions for this inteface are in "GHCJS.DOM.Text". --- Base interface functions are in: --- --- * "GHCJS.DOM.CharacterData" --- * "GHCJS.DOM.Node" --- * "GHCJS.DOM.EventTarget" --- --- -newtype Text = Text { unText :: JSVal } - -instance Eq (Text) where - (Text a) == (Text b) = js_eq a b - -instance PToJSVal Text where - pToJSVal = unText - {-# INLINE pToJSVal #-} - -instance PFromJSVal Text where - pFromJSVal = Text - {-# INLINE pFromJSVal #-} - -instance ToJSVal Text where - toJSVal = return . unText - {-# INLINE toJSVal #-} - -instance FromJSVal Text where - fromJSVal = return . fmap Text . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -class IsCharacterData o => IsText o -toText :: IsText o => o -> Text -toText = unsafeCastGObject . toGObject - -instance IsText Text -instance IsCharacterData Text -instance IsNode Text -instance IsEventTarget Text -instance IsGObject Text where - toGObject = GObject . unText - {-# INLINE toGObject #-} - unsafeCastGObject = Text . unGObject - {-# INLINE unsafeCastGObject #-} - -castToText :: IsGObject obj => obj -> IO Text -castToText = castTo gTypeText "Text" - -foreign import javascript unsafe "window[\"Text\"]" gTypeText :: GType - --- | Functions for this inteface are in "GHCJS.DOM.TextEvent". --- Base interface functions are in: --- --- * "GHCJS.DOM.UIEvent" --- * "GHCJS.DOM.Event" --- --- -newtype TextEvent = TextEvent { unTextEvent :: JSVal } - -instance Eq (TextEvent) where - (TextEvent a) == (TextEvent b) = js_eq a b - -instance PToJSVal TextEvent where - pToJSVal = unTextEvent - {-# INLINE pToJSVal #-} - -instance PFromJSVal TextEvent where - pFromJSVal = TextEvent - {-# INLINE pFromJSVal #-} - -instance ToJSVal TextEvent where - toJSVal = return . unTextEvent - {-# INLINE toJSVal #-} - -instance FromJSVal TextEvent where - fromJSVal = return . fmap TextEvent . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsUIEvent TextEvent -instance IsEvent TextEvent -instance IsGObject TextEvent where - toGObject = GObject . unTextEvent - {-# INLINE toGObject #-} - unsafeCastGObject = TextEvent . unGObject - {-# INLINE unsafeCastGObject #-} - -castToTextEvent :: IsGObject obj => obj -> IO TextEvent -castToTextEvent = castTo gTypeTextEvent "TextEvent" - -foreign import javascript unsafe "window[\"TextEvent\"]" gTypeTextEvent :: GType - --- | Functions for this inteface are in "GHCJS.DOM.TextMetrics". --- --- -newtype TextMetrics = TextMetrics { unTextMetrics :: JSVal } - -instance Eq (TextMetrics) where - (TextMetrics a) == (TextMetrics b) = js_eq a b - -instance PToJSVal TextMetrics where - pToJSVal = unTextMetrics - {-# INLINE pToJSVal #-} - -instance PFromJSVal TextMetrics where - pFromJSVal = TextMetrics - {-# INLINE pFromJSVal #-} - -instance ToJSVal TextMetrics where - toJSVal = return . unTextMetrics - {-# INLINE toJSVal #-} - -instance FromJSVal TextMetrics where - fromJSVal = return . fmap TextMetrics . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsGObject TextMetrics where - toGObject = GObject . unTextMetrics - {-# INLINE toGObject #-} - unsafeCastGObject = TextMetrics . unGObject - {-# INLINE unsafeCastGObject #-} - -castToTextMetrics :: IsGObject obj => obj -> IO TextMetrics -castToTextMetrics = castTo gTypeTextMetrics "TextMetrics" - -foreign import javascript unsafe "window[\"TextMetrics\"]" gTypeTextMetrics :: GType - --- | Functions for this inteface are in "GHCJS.DOM.TextTrack". --- Base interface functions are in: --- --- * "GHCJS.DOM.EventTarget" --- --- -newtype TextTrack = TextTrack { unTextTrack :: JSVal } - -instance Eq (TextTrack) where - (TextTrack a) == (TextTrack b) = js_eq a b - -instance PToJSVal TextTrack where - pToJSVal = unTextTrack - {-# INLINE pToJSVal #-} - -instance PFromJSVal TextTrack where - pFromJSVal = TextTrack - {-# INLINE pFromJSVal #-} - -instance ToJSVal TextTrack where - toJSVal = return . unTextTrack - {-# INLINE toJSVal #-} - -instance FromJSVal TextTrack where - fromJSVal = return . fmap TextTrack . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsEventTarget TextTrack -instance IsGObject TextTrack where - toGObject = GObject . unTextTrack - {-# INLINE toGObject #-} - unsafeCastGObject = TextTrack . unGObject - {-# INLINE unsafeCastGObject #-} - -castToTextTrack :: IsGObject obj => obj -> IO TextTrack -castToTextTrack = castTo gTypeTextTrack "TextTrack" - -foreign import javascript unsafe "window[\"TextTrack\"]" gTypeTextTrack :: GType - --- | Functions for this inteface are in "GHCJS.DOM.TextTrackCue". --- Base interface functions are in: --- --- * "GHCJS.DOM.EventTarget" --- --- -newtype TextTrackCue = TextTrackCue { unTextTrackCue :: JSVal } - -instance Eq (TextTrackCue) where - (TextTrackCue a) == (TextTrackCue b) = js_eq a b - -instance PToJSVal TextTrackCue where - pToJSVal = unTextTrackCue - {-# INLINE pToJSVal #-} - -instance PFromJSVal TextTrackCue where - pFromJSVal = TextTrackCue - {-# INLINE pFromJSVal #-} - -instance ToJSVal TextTrackCue where - toJSVal = return . unTextTrackCue - {-# INLINE toJSVal #-} - -instance FromJSVal TextTrackCue where - fromJSVal = return . fmap TextTrackCue . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -class IsEventTarget o => IsTextTrackCue o -toTextTrackCue :: IsTextTrackCue o => o -> TextTrackCue -toTextTrackCue = unsafeCastGObject . toGObject - -instance IsTextTrackCue TextTrackCue -instance IsEventTarget TextTrackCue -instance IsGObject TextTrackCue where - toGObject = GObject . unTextTrackCue - {-# INLINE toGObject #-} - unsafeCastGObject = TextTrackCue . unGObject - {-# INLINE unsafeCastGObject #-} - -castToTextTrackCue :: IsGObject obj => obj -> IO TextTrackCue -castToTextTrackCue = castTo gTypeTextTrackCue "TextTrackCue" - -foreign import javascript unsafe "window[\"TextTrackCue\"]" gTypeTextTrackCue :: GType - --- | Functions for this inteface are in "GHCJS.DOM.TextTrackCueList". --- --- -newtype TextTrackCueList = TextTrackCueList { unTextTrackCueList :: JSVal } - -instance Eq (TextTrackCueList) where - (TextTrackCueList a) == (TextTrackCueList b) = js_eq a b - -instance PToJSVal TextTrackCueList where - pToJSVal = unTextTrackCueList - {-# INLINE pToJSVal #-} - -instance PFromJSVal TextTrackCueList where - pFromJSVal = TextTrackCueList - {-# INLINE pFromJSVal #-} - -instance ToJSVal TextTrackCueList where - toJSVal = return . unTextTrackCueList - {-# INLINE toJSVal #-} - -instance FromJSVal TextTrackCueList where - fromJSVal = return . fmap TextTrackCueList . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsGObject TextTrackCueList where - toGObject = GObject . unTextTrackCueList - {-# INLINE toGObject #-} - unsafeCastGObject = TextTrackCueList . unGObject - {-# INLINE unsafeCastGObject #-} - -castToTextTrackCueList :: IsGObject obj => obj -> IO TextTrackCueList -castToTextTrackCueList = castTo gTypeTextTrackCueList "TextTrackCueList" - -foreign import javascript unsafe "window[\"TextTrackCueList\"]" gTypeTextTrackCueList :: GType - --- | Functions for this inteface are in "GHCJS.DOM.TextTrackList". --- Base interface functions are in: --- --- * "GHCJS.DOM.EventTarget" --- --- -newtype TextTrackList = TextTrackList { unTextTrackList :: JSVal } - -instance Eq (TextTrackList) where - (TextTrackList a) == (TextTrackList b) = js_eq a b - -instance PToJSVal TextTrackList where - pToJSVal = unTextTrackList - {-# INLINE pToJSVal #-} - -instance PFromJSVal TextTrackList where - pFromJSVal = TextTrackList - {-# INLINE pFromJSVal #-} - -instance ToJSVal TextTrackList where - toJSVal = return . unTextTrackList - {-# INLINE toJSVal #-} - -instance FromJSVal TextTrackList where - fromJSVal = return . fmap TextTrackList . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsEventTarget TextTrackList -instance IsGObject TextTrackList where - toGObject = GObject . unTextTrackList - {-# INLINE toGObject #-} - unsafeCastGObject = TextTrackList . unGObject - {-# INLINE unsafeCastGObject #-} - -castToTextTrackList :: IsGObject obj => obj -> IO TextTrackList -castToTextTrackList = castTo gTypeTextTrackList "TextTrackList" - -foreign import javascript unsafe "window[\"TextTrackList\"]" gTypeTextTrackList :: GType - --- | Functions for this inteface are in "GHCJS.DOM.TimeRanges". --- --- -newtype TimeRanges = TimeRanges { unTimeRanges :: JSVal } - -instance Eq (TimeRanges) where - (TimeRanges a) == (TimeRanges b) = js_eq a b - -instance PToJSVal TimeRanges where - pToJSVal = unTimeRanges - {-# INLINE pToJSVal #-} - -instance PFromJSVal TimeRanges where - pFromJSVal = TimeRanges - {-# INLINE pFromJSVal #-} - -instance ToJSVal TimeRanges where - toJSVal = return . unTimeRanges - {-# INLINE toJSVal #-} - -instance FromJSVal TimeRanges where - fromJSVal = return . fmap TimeRanges . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsGObject TimeRanges where - toGObject = GObject . unTimeRanges - {-# INLINE toGObject #-} - unsafeCastGObject = TimeRanges . unGObject - {-# INLINE unsafeCastGObject #-} - -castToTimeRanges :: IsGObject obj => obj -> IO TimeRanges -castToTimeRanges = castTo gTypeTimeRanges "TimeRanges" - -foreign import javascript unsafe "window[\"TimeRanges\"]" gTypeTimeRanges :: GType - --- | Functions for this inteface are in "GHCJS.DOM.Touch". --- --- -newtype Touch = Touch { unTouch :: JSVal } - -instance Eq (Touch) where - (Touch a) == (Touch b) = js_eq a b - -instance PToJSVal Touch where - pToJSVal = unTouch - {-# INLINE pToJSVal #-} - -instance PFromJSVal Touch where - pFromJSVal = Touch - {-# INLINE pFromJSVal #-} - -instance ToJSVal Touch where - toJSVal = return . unTouch - {-# INLINE toJSVal #-} - -instance FromJSVal Touch where - fromJSVal = return . fmap Touch . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsGObject Touch where - toGObject = GObject . unTouch - {-# INLINE toGObject #-} - unsafeCastGObject = Touch . unGObject - {-# INLINE unsafeCastGObject #-} - -castToTouch :: IsGObject obj => obj -> IO Touch -castToTouch = castTo gTypeTouch "Touch" - -foreign import javascript unsafe "window[\"Touch\"]" gTypeTouch :: GType - --- | Functions for this inteface are in "GHCJS.DOM.TouchEvent". --- Base interface functions are in: --- --- * "GHCJS.DOM.UIEvent" --- * "GHCJS.DOM.Event" --- --- -newtype TouchEvent = TouchEvent { unTouchEvent :: JSVal } - -instance Eq (TouchEvent) where - (TouchEvent a) == (TouchEvent b) = js_eq a b - -instance PToJSVal TouchEvent where - pToJSVal = unTouchEvent - {-# INLINE pToJSVal #-} - -instance PFromJSVal TouchEvent where - pFromJSVal = TouchEvent - {-# INLINE pFromJSVal #-} - -instance ToJSVal TouchEvent where - toJSVal = return . unTouchEvent - {-# INLINE toJSVal #-} - -instance FromJSVal TouchEvent where - fromJSVal = return . fmap TouchEvent . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsUIEvent TouchEvent -instance IsEvent TouchEvent -instance IsGObject TouchEvent where - toGObject = GObject . unTouchEvent - {-# INLINE toGObject #-} - unsafeCastGObject = TouchEvent . unGObject - {-# INLINE unsafeCastGObject #-} - -castToTouchEvent :: IsGObject obj => obj -> IO TouchEvent -castToTouchEvent = castTo gTypeTouchEvent "TouchEvent" - -foreign import javascript unsafe "window[\"TouchEvent\"]" gTypeTouchEvent :: GType - --- | Functions for this inteface are in "GHCJS.DOM.TouchList". --- --- -newtype TouchList = TouchList { unTouchList :: JSVal } - -instance Eq (TouchList) where - (TouchList a) == (TouchList b) = js_eq a b - -instance PToJSVal TouchList where - pToJSVal = unTouchList - {-# INLINE pToJSVal #-} - -instance PFromJSVal TouchList where - pFromJSVal = TouchList - {-# INLINE pFromJSVal #-} - -instance ToJSVal TouchList where - toJSVal = return . unTouchList - {-# INLINE toJSVal #-} - -instance FromJSVal TouchList where - fromJSVal = return . fmap TouchList . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsGObject TouchList where - toGObject = GObject . unTouchList - {-# INLINE toGObject #-} - unsafeCastGObject = TouchList . unGObject - {-# INLINE unsafeCastGObject #-} - -castToTouchList :: IsGObject obj => obj -> IO TouchList -castToTouchList = castTo gTypeTouchList "TouchList" - -foreign import javascript unsafe "window[\"TouchList\"]" gTypeTouchList :: GType - --- | Functions for this inteface are in "GHCJS.DOM.TrackEvent". --- Base interface functions are in: --- --- * "GHCJS.DOM.Event" --- --- -newtype TrackEvent = TrackEvent { unTrackEvent :: JSVal } - -instance Eq (TrackEvent) where - (TrackEvent a) == (TrackEvent b) = js_eq a b - -instance PToJSVal TrackEvent where - pToJSVal = unTrackEvent - {-# INLINE pToJSVal #-} - -instance PFromJSVal TrackEvent where - pFromJSVal = TrackEvent - {-# INLINE pFromJSVal #-} - -instance ToJSVal TrackEvent where - toJSVal = return . unTrackEvent - {-# INLINE toJSVal #-} - -instance FromJSVal TrackEvent where - fromJSVal = return . fmap TrackEvent . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsEvent TrackEvent -instance IsGObject TrackEvent where - toGObject = GObject . unTrackEvent - {-# INLINE toGObject #-} - unsafeCastGObject = TrackEvent . unGObject - {-# INLINE unsafeCastGObject #-} - -castToTrackEvent :: IsGObject obj => obj -> IO TrackEvent -castToTrackEvent = castTo gTypeTrackEvent "TrackEvent" - -foreign import javascript unsafe "window[\"TrackEvent\"]" gTypeTrackEvent :: GType - --- | Functions for this inteface are in "GHCJS.DOM.TransitionEvent". --- Base interface functions are in: --- --- * "GHCJS.DOM.Event" --- --- -newtype TransitionEvent = TransitionEvent { unTransitionEvent :: JSVal } - -instance Eq (TransitionEvent) where - (TransitionEvent a) == (TransitionEvent b) = js_eq a b - -instance PToJSVal TransitionEvent where - pToJSVal = unTransitionEvent - {-# INLINE pToJSVal #-} - -instance PFromJSVal TransitionEvent where - pFromJSVal = TransitionEvent - {-# INLINE pFromJSVal #-} - -instance ToJSVal TransitionEvent where - toJSVal = return . unTransitionEvent - {-# INLINE toJSVal #-} - -instance FromJSVal TransitionEvent where - fromJSVal = return . fmap TransitionEvent . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsEvent TransitionEvent -instance IsGObject TransitionEvent where - toGObject = GObject . unTransitionEvent - {-# INLINE toGObject #-} - unsafeCastGObject = TransitionEvent . unGObject - {-# INLINE unsafeCastGObject #-} - -castToTransitionEvent :: IsGObject obj => obj -> IO TransitionEvent -castToTransitionEvent = castTo gTypeTransitionEvent "TransitionEvent" - -foreign import javascript unsafe "window[\"TransitionEvent\"]" gTypeTransitionEvent :: GType - --- | Functions for this inteface are in "GHCJS.DOM.TreeWalker". --- --- -newtype TreeWalker = TreeWalker { unTreeWalker :: JSVal } - -instance Eq (TreeWalker) where - (TreeWalker a) == (TreeWalker b) = js_eq a b - -instance PToJSVal TreeWalker where - pToJSVal = unTreeWalker - {-# INLINE pToJSVal #-} - -instance PFromJSVal TreeWalker where - pFromJSVal = TreeWalker - {-# INLINE pFromJSVal #-} - -instance ToJSVal TreeWalker where - toJSVal = return . unTreeWalker - {-# INLINE toJSVal #-} - -instance FromJSVal TreeWalker where - fromJSVal = return . fmap TreeWalker . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsGObject TreeWalker where - toGObject = GObject . unTreeWalker - {-# INLINE toGObject #-} - unsafeCastGObject = TreeWalker . unGObject - {-# INLINE unsafeCastGObject #-} - -castToTreeWalker :: IsGObject obj => obj -> IO TreeWalker -castToTreeWalker = castTo gTypeTreeWalker "TreeWalker" - -foreign import javascript unsafe "window[\"TreeWalker\"]" gTypeTreeWalker :: GType - --- | Functions for this inteface are in "GHCJS.DOM.TypeConversions". --- --- -newtype TypeConversions = TypeConversions { unTypeConversions :: JSVal } - -instance Eq (TypeConversions) where - (TypeConversions a) == (TypeConversions b) = js_eq a b - -instance PToJSVal TypeConversions where - pToJSVal = unTypeConversions - {-# INLINE pToJSVal #-} - -instance PFromJSVal TypeConversions where - pFromJSVal = TypeConversions - {-# INLINE pFromJSVal #-} - -instance ToJSVal TypeConversions where - toJSVal = return . unTypeConversions - {-# INLINE toJSVal #-} - -instance FromJSVal TypeConversions where - fromJSVal = return . fmap TypeConversions . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsGObject TypeConversions where - toGObject = GObject . unTypeConversions - {-# INLINE toGObject #-} - unsafeCastGObject = TypeConversions . unGObject - {-# INLINE unsafeCastGObject #-} - -castToTypeConversions :: IsGObject obj => obj -> IO TypeConversions -castToTypeConversions = castTo gTypeTypeConversions "TypeConversions" - -foreign import javascript unsafe "window[\"TypeConversions\"]" gTypeTypeConversions :: GType - --- | Functions for this inteface are in "GHCJS.DOM.UIEvent". --- Base interface functions are in: --- --- * "GHCJS.DOM.Event" --- --- -newtype UIEvent = UIEvent { unUIEvent :: JSVal } - -instance Eq (UIEvent) where - (UIEvent a) == (UIEvent b) = js_eq a b - -instance PToJSVal UIEvent where - pToJSVal = unUIEvent - {-# INLINE pToJSVal #-} - -instance PFromJSVal UIEvent where - pFromJSVal = UIEvent - {-# INLINE pFromJSVal #-} - -instance ToJSVal UIEvent where - toJSVal = return . unUIEvent - {-# INLINE toJSVal #-} - -instance FromJSVal UIEvent where - fromJSVal = return . fmap UIEvent . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -class IsEvent o => IsUIEvent o -toUIEvent :: IsUIEvent o => o -> UIEvent -toUIEvent = unsafeCastGObject . toGObject - -instance IsUIEvent UIEvent -instance IsEvent UIEvent -instance IsGObject UIEvent where - toGObject = GObject . unUIEvent - {-# INLINE toGObject #-} - unsafeCastGObject = UIEvent . unGObject - {-# INLINE unsafeCastGObject #-} - -castToUIEvent :: IsGObject obj => obj -> IO UIEvent -castToUIEvent = castTo gTypeUIEvent "UIEvent" - -foreign import javascript unsafe "window[\"UIEvent\"]" gTypeUIEvent :: GType - --- | Functions for this inteface are in "GHCJS.DOM.UIRequestEvent". --- Base interface functions are in: --- --- * "GHCJS.DOM.UIEvent" --- * "GHCJS.DOM.Event" --- --- -newtype UIRequestEvent = UIRequestEvent { unUIRequestEvent :: JSVal } - -instance Eq (UIRequestEvent) where - (UIRequestEvent a) == (UIRequestEvent b) = js_eq a b - -instance PToJSVal UIRequestEvent where - pToJSVal = unUIRequestEvent - {-# INLINE pToJSVal #-} - -instance PFromJSVal UIRequestEvent where - pFromJSVal = UIRequestEvent - {-# INLINE pFromJSVal #-} - -instance ToJSVal UIRequestEvent where - toJSVal = return . unUIRequestEvent - {-# INLINE toJSVal #-} - -instance FromJSVal UIRequestEvent where - fromJSVal = return . fmap UIRequestEvent . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsUIEvent UIRequestEvent -instance IsEvent UIRequestEvent -instance IsGObject UIRequestEvent where - toGObject = GObject . unUIRequestEvent - {-# INLINE toGObject #-} - unsafeCastGObject = UIRequestEvent . unGObject - {-# INLINE unsafeCastGObject #-} - -castToUIRequestEvent :: IsGObject obj => obj -> IO UIRequestEvent -castToUIRequestEvent = castTo gTypeUIRequestEvent "UIRequestEvent" - -foreign import javascript unsafe "window[\"UIRequestEvent\"]" gTypeUIRequestEvent :: GType - --- | Functions for this inteface are in "GHCJS.DOM.URL". --- --- -newtype URL = URL { unURL :: JSVal } - -instance Eq (URL) where - (URL a) == (URL b) = js_eq a b - -instance PToJSVal URL where - pToJSVal = unURL - {-# INLINE pToJSVal #-} - -instance PFromJSVal URL where - pFromJSVal = URL - {-# INLINE pFromJSVal #-} - -instance ToJSVal URL where - toJSVal = return . unURL - {-# INLINE toJSVal #-} - -instance FromJSVal URL where - fromJSVal = return . fmap URL . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsGObject URL where - toGObject = GObject . unURL - {-# INLINE toGObject #-} - unsafeCastGObject = URL . unGObject - {-# INLINE unsafeCastGObject #-} - -castToURL :: IsGObject obj => obj -> IO URL -castToURL = castTo gTypeURL "URL" - -foreign import javascript unsafe "window[\"URL\"]" gTypeURL :: GType - --- | Functions for this inteface are in "GHCJS.DOM.URLUtils". --- --- -newtype URLUtils = URLUtils { unURLUtils :: JSVal } - -instance Eq (URLUtils) where - (URLUtils a) == (URLUtils b) = js_eq a b - -instance PToJSVal URLUtils where - pToJSVal = unURLUtils - {-# INLINE pToJSVal #-} - -instance PFromJSVal URLUtils where - pFromJSVal = URLUtils - {-# INLINE pFromJSVal #-} - -instance ToJSVal URLUtils where - toJSVal = return . unURLUtils - {-# INLINE toJSVal #-} - -instance FromJSVal URLUtils where - fromJSVal = return . fmap URLUtils . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsGObject URLUtils where - toGObject = GObject . unURLUtils - {-# INLINE toGObject #-} - unsafeCastGObject = URLUtils . unGObject - {-# INLINE unsafeCastGObject #-} - -castToURLUtils :: IsGObject obj => obj -> IO URLUtils -castToURLUtils = castTo gTypeURLUtils "URLUtils" - -foreign import javascript unsafe "window[\"URLUtils\"]" gTypeURLUtils :: GType - --- | Functions for this inteface are in "GHCJS.DOM.UserMessageHandler". --- --- -newtype UserMessageHandler = UserMessageHandler { unUserMessageHandler :: JSVal } - -instance Eq (UserMessageHandler) where - (UserMessageHandler a) == (UserMessageHandler b) = js_eq a b - -instance PToJSVal UserMessageHandler where - pToJSVal = unUserMessageHandler - {-# INLINE pToJSVal #-} - -instance PFromJSVal UserMessageHandler where - pFromJSVal = UserMessageHandler - {-# INLINE pFromJSVal #-} - -instance ToJSVal UserMessageHandler where - toJSVal = return . unUserMessageHandler - {-# INLINE toJSVal #-} - -instance FromJSVal UserMessageHandler where - fromJSVal = return . fmap UserMessageHandler . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsGObject UserMessageHandler where - toGObject = GObject . unUserMessageHandler - {-# INLINE toGObject #-} - unsafeCastGObject = UserMessageHandler . unGObject - {-# INLINE unsafeCastGObject #-} - -castToUserMessageHandler :: IsGObject obj => obj -> IO UserMessageHandler -castToUserMessageHandler = castTo gTypeUserMessageHandler "UserMessageHandler" - -foreign import javascript unsafe "window[\"UserMessageHandler\"]" gTypeUserMessageHandler :: GType - --- | Functions for this inteface are in "GHCJS.DOM.UserMessageHandlersNamespace". --- --- -newtype UserMessageHandlersNamespace = UserMessageHandlersNamespace { unUserMessageHandlersNamespace :: JSVal } - -instance Eq (UserMessageHandlersNamespace) where - (UserMessageHandlersNamespace a) == (UserMessageHandlersNamespace b) = js_eq a b - -instance PToJSVal UserMessageHandlersNamespace where - pToJSVal = unUserMessageHandlersNamespace - {-# INLINE pToJSVal #-} - -instance PFromJSVal UserMessageHandlersNamespace where - pFromJSVal = UserMessageHandlersNamespace - {-# INLINE pFromJSVal #-} - -instance ToJSVal UserMessageHandlersNamespace where - toJSVal = return . unUserMessageHandlersNamespace - {-# INLINE toJSVal #-} - -instance FromJSVal UserMessageHandlersNamespace where - fromJSVal = return . fmap UserMessageHandlersNamespace . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsGObject UserMessageHandlersNamespace where - toGObject = GObject . unUserMessageHandlersNamespace - {-# INLINE toGObject #-} - unsafeCastGObject = UserMessageHandlersNamespace . unGObject - {-# INLINE unsafeCastGObject #-} - -castToUserMessageHandlersNamespace :: IsGObject obj => obj -> IO UserMessageHandlersNamespace -castToUserMessageHandlersNamespace = castTo gTypeUserMessageHandlersNamespace "UserMessageHandlersNamespace" - -foreign import javascript unsafe "window[\"UserMessageHandlersNamespace\"]" gTypeUserMessageHandlersNamespace :: GType - --- | Functions for this inteface are in "GHCJS.DOM.VTTCue". --- Base interface functions are in: --- --- * "GHCJS.DOM.TextTrackCue" --- * "GHCJS.DOM.EventTarget" --- --- -newtype VTTCue = VTTCue { unVTTCue :: JSVal } - -instance Eq (VTTCue) where - (VTTCue a) == (VTTCue b) = js_eq a b - -instance PToJSVal VTTCue where - pToJSVal = unVTTCue - {-# INLINE pToJSVal #-} - -instance PFromJSVal VTTCue where - pFromJSVal = VTTCue - {-# INLINE pFromJSVal #-} - -instance ToJSVal VTTCue where - toJSVal = return . unVTTCue - {-# INLINE toJSVal #-} - -instance FromJSVal VTTCue where - fromJSVal = return . fmap VTTCue . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsTextTrackCue VTTCue -instance IsEventTarget VTTCue -instance IsGObject VTTCue where - toGObject = GObject . unVTTCue - {-# INLINE toGObject #-} - unsafeCastGObject = VTTCue . unGObject - {-# INLINE unsafeCastGObject #-} - -castToVTTCue :: IsGObject obj => obj -> IO VTTCue -castToVTTCue = castTo gTypeVTTCue "VTTCue" - -foreign import javascript unsafe "window[\"VTTCue\"]" gTypeVTTCue :: GType - --- | Functions for this inteface are in "GHCJS.DOM.VTTRegion". --- --- -newtype VTTRegion = VTTRegion { unVTTRegion :: JSVal } - -instance Eq (VTTRegion) where - (VTTRegion a) == (VTTRegion b) = js_eq a b - -instance PToJSVal VTTRegion where - pToJSVal = unVTTRegion - {-# INLINE pToJSVal #-} - -instance PFromJSVal VTTRegion where - pFromJSVal = VTTRegion - {-# INLINE pFromJSVal #-} - -instance ToJSVal VTTRegion where - toJSVal = return . unVTTRegion - {-# INLINE toJSVal #-} - -instance FromJSVal VTTRegion where - fromJSVal = return . fmap VTTRegion . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsGObject VTTRegion where - toGObject = GObject . unVTTRegion - {-# INLINE toGObject #-} - unsafeCastGObject = VTTRegion . unGObject - {-# INLINE unsafeCastGObject #-} - -castToVTTRegion :: IsGObject obj => obj -> IO VTTRegion -castToVTTRegion = castTo gTypeVTTRegion "VTTRegion" - -foreign import javascript unsafe "window[\"VTTRegion\"]" gTypeVTTRegion :: GType - --- | Functions for this inteface are in "GHCJS.DOM.VTTRegionList". --- --- -newtype VTTRegionList = VTTRegionList { unVTTRegionList :: JSVal } - -instance Eq (VTTRegionList) where - (VTTRegionList a) == (VTTRegionList b) = js_eq a b - -instance PToJSVal VTTRegionList where - pToJSVal = unVTTRegionList - {-# INLINE pToJSVal #-} - -instance PFromJSVal VTTRegionList where - pFromJSVal = VTTRegionList - {-# INLINE pFromJSVal #-} - -instance ToJSVal VTTRegionList where - toJSVal = return . unVTTRegionList - {-# INLINE toJSVal #-} - -instance FromJSVal VTTRegionList where - fromJSVal = return . fmap VTTRegionList . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsGObject VTTRegionList where - toGObject = GObject . unVTTRegionList - {-# INLINE toGObject #-} - unsafeCastGObject = VTTRegionList . unGObject - {-# INLINE unsafeCastGObject #-} - -castToVTTRegionList :: IsGObject obj => obj -> IO VTTRegionList -castToVTTRegionList = castTo gTypeVTTRegionList "VTTRegionList" - -foreign import javascript unsafe "window[\"VTTRegionList\"]" gTypeVTTRegionList :: GType - --- | Functions for this inteface are in "GHCJS.DOM.ValidityState". --- --- -newtype ValidityState = ValidityState { unValidityState :: JSVal } - -instance Eq (ValidityState) where - (ValidityState a) == (ValidityState b) = js_eq a b - -instance PToJSVal ValidityState where - pToJSVal = unValidityState - {-# INLINE pToJSVal #-} - -instance PFromJSVal ValidityState where - pFromJSVal = ValidityState - {-# INLINE pFromJSVal #-} - -instance ToJSVal ValidityState where - toJSVal = return . unValidityState - {-# INLINE toJSVal #-} - -instance FromJSVal ValidityState where - fromJSVal = return . fmap ValidityState . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsGObject ValidityState where - toGObject = GObject . unValidityState - {-# INLINE toGObject #-} - unsafeCastGObject = ValidityState . unGObject - {-# INLINE unsafeCastGObject #-} - -castToValidityState :: IsGObject obj => obj -> IO ValidityState -castToValidityState = castTo gTypeValidityState "ValidityState" - -foreign import javascript unsafe "window[\"ValidityState\"]" gTypeValidityState :: GType - --- | Functions for this inteface are in "GHCJS.DOM.VideoPlaybackQuality". --- --- -newtype VideoPlaybackQuality = VideoPlaybackQuality { unVideoPlaybackQuality :: JSVal } - -instance Eq (VideoPlaybackQuality) where - (VideoPlaybackQuality a) == (VideoPlaybackQuality b) = js_eq a b - -instance PToJSVal VideoPlaybackQuality where - pToJSVal = unVideoPlaybackQuality - {-# INLINE pToJSVal #-} - -instance PFromJSVal VideoPlaybackQuality where - pFromJSVal = VideoPlaybackQuality - {-# INLINE pFromJSVal #-} - -instance ToJSVal VideoPlaybackQuality where - toJSVal = return . unVideoPlaybackQuality - {-# INLINE toJSVal #-} - -instance FromJSVal VideoPlaybackQuality where - fromJSVal = return . fmap VideoPlaybackQuality . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsGObject VideoPlaybackQuality where - toGObject = GObject . unVideoPlaybackQuality - {-# INLINE toGObject #-} - unsafeCastGObject = VideoPlaybackQuality . unGObject - {-# INLINE unsafeCastGObject #-} - -castToVideoPlaybackQuality :: IsGObject obj => obj -> IO VideoPlaybackQuality -castToVideoPlaybackQuality = castTo gTypeVideoPlaybackQuality "VideoPlaybackQuality" - -foreign import javascript unsafe "window[\"VideoPlaybackQuality\"]" gTypeVideoPlaybackQuality :: GType - --- | Functions for this inteface are in "GHCJS.DOM.VideoStreamTrack". --- Base interface functions are in: --- --- * "GHCJS.DOM.MediaStreamTrack" --- * "GHCJS.DOM.EventTarget" --- --- -newtype VideoStreamTrack = VideoStreamTrack { unVideoStreamTrack :: JSVal } - -instance Eq (VideoStreamTrack) where - (VideoStreamTrack a) == (VideoStreamTrack b) = js_eq a b - -instance PToJSVal VideoStreamTrack where - pToJSVal = unVideoStreamTrack - {-# INLINE pToJSVal #-} - -instance PFromJSVal VideoStreamTrack where - pFromJSVal = VideoStreamTrack - {-# INLINE pFromJSVal #-} - -instance ToJSVal VideoStreamTrack where - toJSVal = return . unVideoStreamTrack - {-# INLINE toJSVal #-} - -instance FromJSVal VideoStreamTrack where - fromJSVal = return . fmap VideoStreamTrack . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsMediaStreamTrack VideoStreamTrack -instance IsEventTarget VideoStreamTrack -instance IsGObject VideoStreamTrack where - toGObject = GObject . unVideoStreamTrack - {-# INLINE toGObject #-} - unsafeCastGObject = VideoStreamTrack . unGObject - {-# INLINE unsafeCastGObject #-} - -castToVideoStreamTrack :: IsGObject obj => obj -> IO VideoStreamTrack -castToVideoStreamTrack = castTo gTypeVideoStreamTrack "VideoStreamTrack" - -foreign import javascript unsafe "window[\"VideoStreamTrack\"]" gTypeVideoStreamTrack :: GType - --- | Functions for this inteface are in "GHCJS.DOM.VideoTrack". --- --- -newtype VideoTrack = VideoTrack { unVideoTrack :: JSVal } - -instance Eq (VideoTrack) where - (VideoTrack a) == (VideoTrack b) = js_eq a b - -instance PToJSVal VideoTrack where - pToJSVal = unVideoTrack - {-# INLINE pToJSVal #-} - -instance PFromJSVal VideoTrack where - pFromJSVal = VideoTrack - {-# INLINE pFromJSVal #-} - -instance ToJSVal VideoTrack where - toJSVal = return . unVideoTrack - {-# INLINE toJSVal #-} - -instance FromJSVal VideoTrack where - fromJSVal = return . fmap VideoTrack . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsGObject VideoTrack where - toGObject = GObject . unVideoTrack - {-# INLINE toGObject #-} - unsafeCastGObject = VideoTrack . unGObject - {-# INLINE unsafeCastGObject #-} - -castToVideoTrack :: IsGObject obj => obj -> IO VideoTrack -castToVideoTrack = castTo gTypeVideoTrack "VideoTrack" - -foreign import javascript unsafe "window[\"VideoTrack\"]" gTypeVideoTrack :: GType - --- | Functions for this inteface are in "GHCJS.DOM.VideoTrackList". --- Base interface functions are in: --- --- * "GHCJS.DOM.EventTarget" --- --- -newtype VideoTrackList = VideoTrackList { unVideoTrackList :: JSVal } - -instance Eq (VideoTrackList) where - (VideoTrackList a) == (VideoTrackList b) = js_eq a b - -instance PToJSVal VideoTrackList where - pToJSVal = unVideoTrackList - {-# INLINE pToJSVal #-} - -instance PFromJSVal VideoTrackList where - pFromJSVal = VideoTrackList - {-# INLINE pFromJSVal #-} - -instance ToJSVal VideoTrackList where - toJSVal = return . unVideoTrackList - {-# INLINE toJSVal #-} - -instance FromJSVal VideoTrackList where - fromJSVal = return . fmap VideoTrackList . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsEventTarget VideoTrackList -instance IsGObject VideoTrackList where - toGObject = GObject . unVideoTrackList - {-# INLINE toGObject #-} - unsafeCastGObject = VideoTrackList . unGObject - {-# INLINE unsafeCastGObject #-} - -castToVideoTrackList :: IsGObject obj => obj -> IO VideoTrackList -castToVideoTrackList = castTo gTypeVideoTrackList "VideoTrackList" - -foreign import javascript unsafe "window[\"VideoTrackList\"]" gTypeVideoTrackList :: GType - --- | Functions for this inteface are in "GHCJS.DOM.WaveShaperNode". --- Base interface functions are in: --- --- * "GHCJS.DOM.AudioNode" --- * "GHCJS.DOM.EventTarget" --- --- -newtype WaveShaperNode = WaveShaperNode { unWaveShaperNode :: JSVal } - -instance Eq (WaveShaperNode) where - (WaveShaperNode a) == (WaveShaperNode b) = js_eq a b - -instance PToJSVal WaveShaperNode where - pToJSVal = unWaveShaperNode - {-# INLINE pToJSVal #-} - -instance PFromJSVal WaveShaperNode where - pFromJSVal = WaveShaperNode - {-# INLINE pFromJSVal #-} - -instance ToJSVal WaveShaperNode where - toJSVal = return . unWaveShaperNode - {-# INLINE toJSVal #-} - -instance FromJSVal WaveShaperNode where - fromJSVal = return . fmap WaveShaperNode . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsAudioNode WaveShaperNode -instance IsEventTarget WaveShaperNode -instance IsGObject WaveShaperNode where - toGObject = GObject . unWaveShaperNode - {-# INLINE toGObject #-} - unsafeCastGObject = WaveShaperNode . unGObject - {-# INLINE unsafeCastGObject #-} - -castToWaveShaperNode :: IsGObject obj => obj -> IO WaveShaperNode -castToWaveShaperNode = castTo gTypeWaveShaperNode "WaveShaperNode" - -foreign import javascript unsafe "window[\"WaveShaperNode\"]" gTypeWaveShaperNode :: GType - --- | Functions for this inteface are in "GHCJS.DOM.WebGL2RenderingContext". --- Base interface functions are in: --- --- * "GHCJS.DOM.WebGLRenderingContextBase" --- * "GHCJS.DOM.CanvasRenderingContext" --- --- -newtype WebGL2RenderingContext = WebGL2RenderingContext { unWebGL2RenderingContext :: JSVal } - -instance Eq (WebGL2RenderingContext) where - (WebGL2RenderingContext a) == (WebGL2RenderingContext b) = js_eq a b - -instance PToJSVal WebGL2RenderingContext where - pToJSVal = unWebGL2RenderingContext - {-# INLINE pToJSVal #-} - -instance PFromJSVal WebGL2RenderingContext where - pFromJSVal = WebGL2RenderingContext - {-# INLINE pFromJSVal #-} - -instance ToJSVal WebGL2RenderingContext where - toJSVal = return . unWebGL2RenderingContext - {-# INLINE toJSVal #-} - -instance FromJSVal WebGL2RenderingContext where - fromJSVal = return . fmap WebGL2RenderingContext . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsWebGLRenderingContextBase WebGL2RenderingContext -instance IsCanvasRenderingContext WebGL2RenderingContext -instance IsGObject WebGL2RenderingContext where - toGObject = GObject . unWebGL2RenderingContext - {-# INLINE toGObject #-} - unsafeCastGObject = WebGL2RenderingContext . unGObject - {-# INLINE unsafeCastGObject #-} - -castToWebGL2RenderingContext :: IsGObject obj => obj -> IO WebGL2RenderingContext -castToWebGL2RenderingContext = castTo gTypeWebGL2RenderingContext "WebGL2RenderingContext" - -foreign import javascript unsafe "window[\"WebGL2RenderingContext\"]" gTypeWebGL2RenderingContext :: GType - --- | Functions for this inteface are in "GHCJS.DOM.WebGLActiveInfo". --- --- -newtype WebGLActiveInfo = WebGLActiveInfo { unWebGLActiveInfo :: JSVal } - -instance Eq (WebGLActiveInfo) where - (WebGLActiveInfo a) == (WebGLActiveInfo b) = js_eq a b - -instance PToJSVal WebGLActiveInfo where - pToJSVal = unWebGLActiveInfo - {-# INLINE pToJSVal #-} - -instance PFromJSVal WebGLActiveInfo where - pFromJSVal = WebGLActiveInfo - {-# INLINE pFromJSVal #-} - -instance ToJSVal WebGLActiveInfo where - toJSVal = return . unWebGLActiveInfo - {-# INLINE toJSVal #-} - -instance FromJSVal WebGLActiveInfo where - fromJSVal = return . fmap WebGLActiveInfo . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsGObject WebGLActiveInfo where - toGObject = GObject . unWebGLActiveInfo - {-# INLINE toGObject #-} - unsafeCastGObject = WebGLActiveInfo . unGObject - {-# INLINE unsafeCastGObject #-} - -castToWebGLActiveInfo :: IsGObject obj => obj -> IO WebGLActiveInfo -castToWebGLActiveInfo = castTo gTypeWebGLActiveInfo "WebGLActiveInfo" - -foreign import javascript unsafe "window[\"WebGLActiveInfo\"]" gTypeWebGLActiveInfo :: GType - --- | Functions for this inteface are in "GHCJS.DOM.WebGLBuffer". --- --- -newtype WebGLBuffer = WebGLBuffer { unWebGLBuffer :: JSVal } - -instance Eq (WebGLBuffer) where - (WebGLBuffer a) == (WebGLBuffer b) = js_eq a b - -instance PToJSVal WebGLBuffer where - pToJSVal = unWebGLBuffer - {-# INLINE pToJSVal #-} - -instance PFromJSVal WebGLBuffer where - pFromJSVal = WebGLBuffer - {-# INLINE pFromJSVal #-} - -instance ToJSVal WebGLBuffer where - toJSVal = return . unWebGLBuffer - {-# INLINE toJSVal #-} - -instance FromJSVal WebGLBuffer where - fromJSVal = return . fmap WebGLBuffer . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsGObject WebGLBuffer where - toGObject = GObject . unWebGLBuffer - {-# INLINE toGObject #-} - unsafeCastGObject = WebGLBuffer . unGObject - {-# INLINE unsafeCastGObject #-} - -castToWebGLBuffer :: IsGObject obj => obj -> IO WebGLBuffer -castToWebGLBuffer = castTo gTypeWebGLBuffer "WebGLBuffer" - -foreign import javascript unsafe "window[\"WebGLBuffer\"]" gTypeWebGLBuffer :: GType - --- | Functions for this inteface are in "GHCJS.DOM.WebGLCompressedTextureATC". --- --- -newtype WebGLCompressedTextureATC = WebGLCompressedTextureATC { unWebGLCompressedTextureATC :: JSVal } - -instance Eq (WebGLCompressedTextureATC) where - (WebGLCompressedTextureATC a) == (WebGLCompressedTextureATC b) = js_eq a b - -instance PToJSVal WebGLCompressedTextureATC where - pToJSVal = unWebGLCompressedTextureATC - {-# INLINE pToJSVal #-} - -instance PFromJSVal WebGLCompressedTextureATC where - pFromJSVal = WebGLCompressedTextureATC - {-# INLINE pFromJSVal #-} - -instance ToJSVal WebGLCompressedTextureATC where - toJSVal = return . unWebGLCompressedTextureATC - {-# INLINE toJSVal #-} - -instance FromJSVal WebGLCompressedTextureATC where - fromJSVal = return . fmap WebGLCompressedTextureATC . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsGObject WebGLCompressedTextureATC where - toGObject = GObject . unWebGLCompressedTextureATC - {-# INLINE toGObject #-} - unsafeCastGObject = WebGLCompressedTextureATC . unGObject - {-# INLINE unsafeCastGObject #-} - -castToWebGLCompressedTextureATC :: IsGObject obj => obj -> IO WebGLCompressedTextureATC -castToWebGLCompressedTextureATC = castTo gTypeWebGLCompressedTextureATC "WebGLCompressedTextureATC" - -foreign import javascript unsafe "window[\"WebGLCompressedTextureATC\"]" gTypeWebGLCompressedTextureATC :: GType - --- | Functions for this inteface are in "GHCJS.DOM.WebGLCompressedTexturePVRTC". --- --- -newtype WebGLCompressedTexturePVRTC = WebGLCompressedTexturePVRTC { unWebGLCompressedTexturePVRTC :: JSVal } - -instance Eq (WebGLCompressedTexturePVRTC) where - (WebGLCompressedTexturePVRTC a) == (WebGLCompressedTexturePVRTC b) = js_eq a b - -instance PToJSVal WebGLCompressedTexturePVRTC where - pToJSVal = unWebGLCompressedTexturePVRTC - {-# INLINE pToJSVal #-} - -instance PFromJSVal WebGLCompressedTexturePVRTC where - pFromJSVal = WebGLCompressedTexturePVRTC - {-# INLINE pFromJSVal #-} - -instance ToJSVal WebGLCompressedTexturePVRTC where - toJSVal = return . unWebGLCompressedTexturePVRTC - {-# INLINE toJSVal #-} - -instance FromJSVal WebGLCompressedTexturePVRTC where - fromJSVal = return . fmap WebGLCompressedTexturePVRTC . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsGObject WebGLCompressedTexturePVRTC where - toGObject = GObject . unWebGLCompressedTexturePVRTC - {-# INLINE toGObject #-} - unsafeCastGObject = WebGLCompressedTexturePVRTC . unGObject - {-# INLINE unsafeCastGObject #-} - -castToWebGLCompressedTexturePVRTC :: IsGObject obj => obj -> IO WebGLCompressedTexturePVRTC -castToWebGLCompressedTexturePVRTC = castTo gTypeWebGLCompressedTexturePVRTC "WebGLCompressedTexturePVRTC" - -foreign import javascript unsafe "window[\"WebGLCompressedTexturePVRTC\"]" gTypeWebGLCompressedTexturePVRTC :: GType - --- | Functions for this inteface are in "GHCJS.DOM.WebGLCompressedTextureS3TC". --- --- -newtype WebGLCompressedTextureS3TC = WebGLCompressedTextureS3TC { unWebGLCompressedTextureS3TC :: JSVal } - -instance Eq (WebGLCompressedTextureS3TC) where - (WebGLCompressedTextureS3TC a) == (WebGLCompressedTextureS3TC b) = js_eq a b - -instance PToJSVal WebGLCompressedTextureS3TC where - pToJSVal = unWebGLCompressedTextureS3TC - {-# INLINE pToJSVal #-} - -instance PFromJSVal WebGLCompressedTextureS3TC where - pFromJSVal = WebGLCompressedTextureS3TC - {-# INLINE pFromJSVal #-} - -instance ToJSVal WebGLCompressedTextureS3TC where - toJSVal = return . unWebGLCompressedTextureS3TC - {-# INLINE toJSVal #-} - -instance FromJSVal WebGLCompressedTextureS3TC where - fromJSVal = return . fmap WebGLCompressedTextureS3TC . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsGObject WebGLCompressedTextureS3TC where - toGObject = GObject . unWebGLCompressedTextureS3TC - {-# INLINE toGObject #-} - unsafeCastGObject = WebGLCompressedTextureS3TC . unGObject - {-# INLINE unsafeCastGObject #-} - -castToWebGLCompressedTextureS3TC :: IsGObject obj => obj -> IO WebGLCompressedTextureS3TC -castToWebGLCompressedTextureS3TC = castTo gTypeWebGLCompressedTextureS3TC "WebGLCompressedTextureS3TC" - -foreign import javascript unsafe "window[\"WebGLCompressedTextureS3TC\"]" gTypeWebGLCompressedTextureS3TC :: GType - --- | Functions for this inteface are in "GHCJS.DOM.WebGLContextAttributes". --- --- -newtype WebGLContextAttributes = WebGLContextAttributes { unWebGLContextAttributes :: JSVal } - -instance Eq (WebGLContextAttributes) where - (WebGLContextAttributes a) == (WebGLContextAttributes b) = js_eq a b - -instance PToJSVal WebGLContextAttributes where - pToJSVal = unWebGLContextAttributes - {-# INLINE pToJSVal #-} - -instance PFromJSVal WebGLContextAttributes where - pFromJSVal = WebGLContextAttributes - {-# INLINE pFromJSVal #-} - -instance ToJSVal WebGLContextAttributes where - toJSVal = return . unWebGLContextAttributes - {-# INLINE toJSVal #-} - -instance FromJSVal WebGLContextAttributes where - fromJSVal = return . fmap WebGLContextAttributes . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsGObject WebGLContextAttributes where - toGObject = GObject . unWebGLContextAttributes - {-# INLINE toGObject #-} - unsafeCastGObject = WebGLContextAttributes . unGObject - {-# INLINE unsafeCastGObject #-} - -castToWebGLContextAttributes :: IsGObject obj => obj -> IO WebGLContextAttributes -castToWebGLContextAttributes = castTo gTypeWebGLContextAttributes "WebGLContextAttributes" - -foreign import javascript unsafe "window[\"WebGLContextAttributes\"]" gTypeWebGLContextAttributes :: GType - --- | Functions for this inteface are in "GHCJS.DOM.WebGLContextEvent". --- Base interface functions are in: --- --- * "GHCJS.DOM.Event" --- --- -newtype WebGLContextEvent = WebGLContextEvent { unWebGLContextEvent :: JSVal } - -instance Eq (WebGLContextEvent) where - (WebGLContextEvent a) == (WebGLContextEvent b) = js_eq a b - -instance PToJSVal WebGLContextEvent where - pToJSVal = unWebGLContextEvent - {-# INLINE pToJSVal #-} - -instance PFromJSVal WebGLContextEvent where - pFromJSVal = WebGLContextEvent - {-# INLINE pFromJSVal #-} - -instance ToJSVal WebGLContextEvent where - toJSVal = return . unWebGLContextEvent - {-# INLINE toJSVal #-} - -instance FromJSVal WebGLContextEvent where - fromJSVal = return . fmap WebGLContextEvent . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsEvent WebGLContextEvent -instance IsGObject WebGLContextEvent where - toGObject = GObject . unWebGLContextEvent - {-# INLINE toGObject #-} - unsafeCastGObject = WebGLContextEvent . unGObject - {-# INLINE unsafeCastGObject #-} - -castToWebGLContextEvent :: IsGObject obj => obj -> IO WebGLContextEvent -castToWebGLContextEvent = castTo gTypeWebGLContextEvent "WebGLContextEvent" - -foreign import javascript unsafe "window[\"WebGLContextEvent\"]" gTypeWebGLContextEvent :: GType - --- | Functions for this inteface are in "GHCJS.DOM.WebGLDebugRendererInfo". --- --- -newtype WebGLDebugRendererInfo = WebGLDebugRendererInfo { unWebGLDebugRendererInfo :: JSVal } - -instance Eq (WebGLDebugRendererInfo) where - (WebGLDebugRendererInfo a) == (WebGLDebugRendererInfo b) = js_eq a b - -instance PToJSVal WebGLDebugRendererInfo where - pToJSVal = unWebGLDebugRendererInfo - {-# INLINE pToJSVal #-} - -instance PFromJSVal WebGLDebugRendererInfo where - pFromJSVal = WebGLDebugRendererInfo - {-# INLINE pFromJSVal #-} - -instance ToJSVal WebGLDebugRendererInfo where - toJSVal = return . unWebGLDebugRendererInfo - {-# INLINE toJSVal #-} - -instance FromJSVal WebGLDebugRendererInfo where - fromJSVal = return . fmap WebGLDebugRendererInfo . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsGObject WebGLDebugRendererInfo where - toGObject = GObject . unWebGLDebugRendererInfo - {-# INLINE toGObject #-} - unsafeCastGObject = WebGLDebugRendererInfo . unGObject - {-# INLINE unsafeCastGObject #-} - -castToWebGLDebugRendererInfo :: IsGObject obj => obj -> IO WebGLDebugRendererInfo -castToWebGLDebugRendererInfo = castTo gTypeWebGLDebugRendererInfo "WebGLDebugRendererInfo" - -foreign import javascript unsafe "window[\"WebGLDebugRendererInfo\"]" gTypeWebGLDebugRendererInfo :: GType - --- | Functions for this inteface are in "GHCJS.DOM.WebGLDebugShaders". --- --- -newtype WebGLDebugShaders = WebGLDebugShaders { unWebGLDebugShaders :: JSVal } - -instance Eq (WebGLDebugShaders) where - (WebGLDebugShaders a) == (WebGLDebugShaders b) = js_eq a b - -instance PToJSVal WebGLDebugShaders where - pToJSVal = unWebGLDebugShaders - {-# INLINE pToJSVal #-} - -instance PFromJSVal WebGLDebugShaders where - pFromJSVal = WebGLDebugShaders - {-# INLINE pFromJSVal #-} - -instance ToJSVal WebGLDebugShaders where - toJSVal = return . unWebGLDebugShaders - {-# INLINE toJSVal #-} - -instance FromJSVal WebGLDebugShaders where - fromJSVal = return . fmap WebGLDebugShaders . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsGObject WebGLDebugShaders where - toGObject = GObject . unWebGLDebugShaders - {-# INLINE toGObject #-} - unsafeCastGObject = WebGLDebugShaders . unGObject - {-# INLINE unsafeCastGObject #-} - -castToWebGLDebugShaders :: IsGObject obj => obj -> IO WebGLDebugShaders -castToWebGLDebugShaders = castTo gTypeWebGLDebugShaders "WebGLDebugShaders" - -foreign import javascript unsafe "window[\"WebGLDebugShaders\"]" gTypeWebGLDebugShaders :: GType - --- | Functions for this inteface are in "GHCJS.DOM.WebGLDepthTexture". --- --- -newtype WebGLDepthTexture = WebGLDepthTexture { unWebGLDepthTexture :: JSVal } - -instance Eq (WebGLDepthTexture) where - (WebGLDepthTexture a) == (WebGLDepthTexture b) = js_eq a b - -instance PToJSVal WebGLDepthTexture where - pToJSVal = unWebGLDepthTexture - {-# INLINE pToJSVal #-} - -instance PFromJSVal WebGLDepthTexture where - pFromJSVal = WebGLDepthTexture - {-# INLINE pFromJSVal #-} - -instance ToJSVal WebGLDepthTexture where - toJSVal = return . unWebGLDepthTexture - {-# INLINE toJSVal #-} - -instance FromJSVal WebGLDepthTexture where - fromJSVal = return . fmap WebGLDepthTexture . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsGObject WebGLDepthTexture where - toGObject = GObject . unWebGLDepthTexture - {-# INLINE toGObject #-} - unsafeCastGObject = WebGLDepthTexture . unGObject - {-# INLINE unsafeCastGObject #-} - -castToWebGLDepthTexture :: IsGObject obj => obj -> IO WebGLDepthTexture -castToWebGLDepthTexture = castTo gTypeWebGLDepthTexture "WebGLDepthTexture" - -foreign import javascript unsafe "window[\"WebGLDepthTexture\"]" gTypeWebGLDepthTexture :: GType - --- | Functions for this inteface are in "GHCJS.DOM.WebGLDrawBuffers". --- --- -newtype WebGLDrawBuffers = WebGLDrawBuffers { unWebGLDrawBuffers :: JSVal } - -instance Eq (WebGLDrawBuffers) where - (WebGLDrawBuffers a) == (WebGLDrawBuffers b) = js_eq a b - -instance PToJSVal WebGLDrawBuffers where - pToJSVal = unWebGLDrawBuffers - {-# INLINE pToJSVal #-} - -instance PFromJSVal WebGLDrawBuffers where - pFromJSVal = WebGLDrawBuffers - {-# INLINE pFromJSVal #-} - -instance ToJSVal WebGLDrawBuffers where - toJSVal = return . unWebGLDrawBuffers - {-# INLINE toJSVal #-} - -instance FromJSVal WebGLDrawBuffers where - fromJSVal = return . fmap WebGLDrawBuffers . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsGObject WebGLDrawBuffers where - toGObject = GObject . unWebGLDrawBuffers - {-# INLINE toGObject #-} - unsafeCastGObject = WebGLDrawBuffers . unGObject - {-# INLINE unsafeCastGObject #-} - -castToWebGLDrawBuffers :: IsGObject obj => obj -> IO WebGLDrawBuffers -castToWebGLDrawBuffers = castTo gTypeWebGLDrawBuffers "WebGLDrawBuffers" - -foreign import javascript unsafe "window[\"WebGLDrawBuffers\"]" gTypeWebGLDrawBuffers :: GType - --- | Functions for this inteface are in "GHCJS.DOM.WebGLFramebuffer". --- --- -newtype WebGLFramebuffer = WebGLFramebuffer { unWebGLFramebuffer :: JSVal } - -instance Eq (WebGLFramebuffer) where - (WebGLFramebuffer a) == (WebGLFramebuffer b) = js_eq a b - -instance PToJSVal WebGLFramebuffer where - pToJSVal = unWebGLFramebuffer - {-# INLINE pToJSVal #-} - -instance PFromJSVal WebGLFramebuffer where - pFromJSVal = WebGLFramebuffer - {-# INLINE pFromJSVal #-} - -instance ToJSVal WebGLFramebuffer where - toJSVal = return . unWebGLFramebuffer - {-# INLINE toJSVal #-} - -instance FromJSVal WebGLFramebuffer where - fromJSVal = return . fmap WebGLFramebuffer . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsGObject WebGLFramebuffer where - toGObject = GObject . unWebGLFramebuffer - {-# INLINE toGObject #-} - unsafeCastGObject = WebGLFramebuffer . unGObject - {-# INLINE unsafeCastGObject #-} - -castToWebGLFramebuffer :: IsGObject obj => obj -> IO WebGLFramebuffer -castToWebGLFramebuffer = castTo gTypeWebGLFramebuffer "WebGLFramebuffer" - -foreign import javascript unsafe "window[\"WebGLFramebuffer\"]" gTypeWebGLFramebuffer :: GType - --- | Functions for this inteface are in "GHCJS.DOM.WebGLLoseContext". --- --- -newtype WebGLLoseContext = WebGLLoseContext { unWebGLLoseContext :: JSVal } - -instance Eq (WebGLLoseContext) where - (WebGLLoseContext a) == (WebGLLoseContext b) = js_eq a b - -instance PToJSVal WebGLLoseContext where - pToJSVal = unWebGLLoseContext - {-# INLINE pToJSVal #-} - -instance PFromJSVal WebGLLoseContext where - pFromJSVal = WebGLLoseContext - {-# INLINE pFromJSVal #-} - -instance ToJSVal WebGLLoseContext where - toJSVal = return . unWebGLLoseContext - {-# INLINE toJSVal #-} - -instance FromJSVal WebGLLoseContext where - fromJSVal = return . fmap WebGLLoseContext . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsGObject WebGLLoseContext where - toGObject = GObject . unWebGLLoseContext - {-# INLINE toGObject #-} - unsafeCastGObject = WebGLLoseContext . unGObject - {-# INLINE unsafeCastGObject #-} - -castToWebGLLoseContext :: IsGObject obj => obj -> IO WebGLLoseContext -castToWebGLLoseContext = castTo gTypeWebGLLoseContext "WebGLLoseContext" - -foreign import javascript unsafe "window[\"WebGLLoseContext\"]" gTypeWebGLLoseContext :: GType - --- | Functions for this inteface are in "GHCJS.DOM.WebGLProgram". --- --- -newtype WebGLProgram = WebGLProgram { unWebGLProgram :: JSVal } - -instance Eq (WebGLProgram) where - (WebGLProgram a) == (WebGLProgram b) = js_eq a b - -instance PToJSVal WebGLProgram where - pToJSVal = unWebGLProgram - {-# INLINE pToJSVal #-} - -instance PFromJSVal WebGLProgram where - pFromJSVal = WebGLProgram - {-# INLINE pFromJSVal #-} - -instance ToJSVal WebGLProgram where - toJSVal = return . unWebGLProgram - {-# INLINE toJSVal #-} - -instance FromJSVal WebGLProgram where - fromJSVal = return . fmap WebGLProgram . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsGObject WebGLProgram where - toGObject = GObject . unWebGLProgram - {-# INLINE toGObject #-} - unsafeCastGObject = WebGLProgram . unGObject - {-# INLINE unsafeCastGObject #-} - -castToWebGLProgram :: IsGObject obj => obj -> IO WebGLProgram -castToWebGLProgram = castTo gTypeWebGLProgram "WebGLProgram" - -foreign import javascript unsafe "window[\"WebGLProgram\"]" gTypeWebGLProgram :: GType - --- | Functions for this inteface are in "GHCJS.DOM.WebGLQuery". --- --- -newtype WebGLQuery = WebGLQuery { unWebGLQuery :: JSVal } - -instance Eq (WebGLQuery) where - (WebGLQuery a) == (WebGLQuery b) = js_eq a b - -instance PToJSVal WebGLQuery where - pToJSVal = unWebGLQuery - {-# INLINE pToJSVal #-} - -instance PFromJSVal WebGLQuery where - pFromJSVal = WebGLQuery - {-# INLINE pFromJSVal #-} - -instance ToJSVal WebGLQuery where - toJSVal = return . unWebGLQuery - {-# INLINE toJSVal #-} - -instance FromJSVal WebGLQuery where - fromJSVal = return . fmap WebGLQuery . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsGObject WebGLQuery where - toGObject = GObject . unWebGLQuery - {-# INLINE toGObject #-} - unsafeCastGObject = WebGLQuery . unGObject - {-# INLINE unsafeCastGObject #-} - -castToWebGLQuery :: IsGObject obj => obj -> IO WebGLQuery -castToWebGLQuery = castTo gTypeWebGLQuery "WebGLQuery" - -foreign import javascript unsafe "window[\"WebGLQuery\"]" gTypeWebGLQuery :: GType - --- | Functions for this inteface are in "GHCJS.DOM.WebGLRenderbuffer". --- --- -newtype WebGLRenderbuffer = WebGLRenderbuffer { unWebGLRenderbuffer :: JSVal } - -instance Eq (WebGLRenderbuffer) where - (WebGLRenderbuffer a) == (WebGLRenderbuffer b) = js_eq a b - -instance PToJSVal WebGLRenderbuffer where - pToJSVal = unWebGLRenderbuffer - {-# INLINE pToJSVal #-} - -instance PFromJSVal WebGLRenderbuffer where - pFromJSVal = WebGLRenderbuffer - {-# INLINE pFromJSVal #-} - -instance ToJSVal WebGLRenderbuffer where - toJSVal = return . unWebGLRenderbuffer - {-# INLINE toJSVal #-} - -instance FromJSVal WebGLRenderbuffer where - fromJSVal = return . fmap WebGLRenderbuffer . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsGObject WebGLRenderbuffer where - toGObject = GObject . unWebGLRenderbuffer - {-# INLINE toGObject #-} - unsafeCastGObject = WebGLRenderbuffer . unGObject - {-# INLINE unsafeCastGObject #-} - -castToWebGLRenderbuffer :: IsGObject obj => obj -> IO WebGLRenderbuffer -castToWebGLRenderbuffer = castTo gTypeWebGLRenderbuffer "WebGLRenderbuffer" - -foreign import javascript unsafe "window[\"WebGLRenderbuffer\"]" gTypeWebGLRenderbuffer :: GType - --- | Functions for this inteface are in "GHCJS.DOM.WebGLRenderingContext". --- Base interface functions are in: --- --- * "GHCJS.DOM.WebGLRenderingContextBase" --- * "GHCJS.DOM.CanvasRenderingContext" --- --- -newtype WebGLRenderingContext = WebGLRenderingContext { unWebGLRenderingContext :: JSVal } - -instance Eq (WebGLRenderingContext) where - (WebGLRenderingContext a) == (WebGLRenderingContext b) = js_eq a b - -instance PToJSVal WebGLRenderingContext where - pToJSVal = unWebGLRenderingContext - {-# INLINE pToJSVal #-} - -instance PFromJSVal WebGLRenderingContext where - pFromJSVal = WebGLRenderingContext - {-# INLINE pFromJSVal #-} - -instance ToJSVal WebGLRenderingContext where - toJSVal = return . unWebGLRenderingContext - {-# INLINE toJSVal #-} - -instance FromJSVal WebGLRenderingContext where - fromJSVal = return . fmap WebGLRenderingContext . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsWebGLRenderingContextBase WebGLRenderingContext -instance IsCanvasRenderingContext WebGLRenderingContext -instance IsGObject WebGLRenderingContext where - toGObject = GObject . unWebGLRenderingContext - {-# INLINE toGObject #-} - unsafeCastGObject = WebGLRenderingContext . unGObject - {-# INLINE unsafeCastGObject #-} - -castToWebGLRenderingContext :: IsGObject obj => obj -> IO WebGLRenderingContext -castToWebGLRenderingContext = castTo gTypeWebGLRenderingContext "WebGLRenderingContext" - -foreign import javascript unsafe "window[\"WebGLRenderingContext\"]" gTypeWebGLRenderingContext :: GType - --- | Functions for this inteface are in "GHCJS.DOM.WebGLRenderingContextBase". --- Base interface functions are in: --- --- * "GHCJS.DOM.CanvasRenderingContext" --- --- -newtype WebGLRenderingContextBase = WebGLRenderingContextBase { unWebGLRenderingContextBase :: JSVal } - -instance Eq (WebGLRenderingContextBase) where - (WebGLRenderingContextBase a) == (WebGLRenderingContextBase b) = js_eq a b - -instance PToJSVal WebGLRenderingContextBase where - pToJSVal = unWebGLRenderingContextBase - {-# INLINE pToJSVal #-} - -instance PFromJSVal WebGLRenderingContextBase where - pFromJSVal = WebGLRenderingContextBase - {-# INLINE pFromJSVal #-} - -instance ToJSVal WebGLRenderingContextBase where - toJSVal = return . unWebGLRenderingContextBase - {-# INLINE toJSVal #-} - -instance FromJSVal WebGLRenderingContextBase where - fromJSVal = return . fmap WebGLRenderingContextBase . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -class IsCanvasRenderingContext o => IsWebGLRenderingContextBase o -toWebGLRenderingContextBase :: IsWebGLRenderingContextBase o => o -> WebGLRenderingContextBase -toWebGLRenderingContextBase = unsafeCastGObject . toGObject - -instance IsWebGLRenderingContextBase WebGLRenderingContextBase -instance IsCanvasRenderingContext WebGLRenderingContextBase -instance IsGObject WebGLRenderingContextBase where - toGObject = GObject . unWebGLRenderingContextBase - {-# INLINE toGObject #-} - unsafeCastGObject = WebGLRenderingContextBase . unGObject - {-# INLINE unsafeCastGObject #-} - -castToWebGLRenderingContextBase :: IsGObject obj => obj -> IO WebGLRenderingContextBase -castToWebGLRenderingContextBase = castTo gTypeWebGLRenderingContextBase "WebGLRenderingContextBase" - -foreign import javascript unsafe "window[\"WebGLRenderingContextBase\"]" gTypeWebGLRenderingContextBase :: GType - --- | Functions for this inteface are in "GHCJS.DOM.WebGLSampler". --- --- -newtype WebGLSampler = WebGLSampler { unWebGLSampler :: JSVal } - -instance Eq (WebGLSampler) where - (WebGLSampler a) == (WebGLSampler b) = js_eq a b - -instance PToJSVal WebGLSampler where - pToJSVal = unWebGLSampler - {-# INLINE pToJSVal #-} - -instance PFromJSVal WebGLSampler where - pFromJSVal = WebGLSampler - {-# INLINE pFromJSVal #-} - -instance ToJSVal WebGLSampler where - toJSVal = return . unWebGLSampler - {-# INLINE toJSVal #-} - -instance FromJSVal WebGLSampler where - fromJSVal = return . fmap WebGLSampler . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsGObject WebGLSampler where - toGObject = GObject . unWebGLSampler - {-# INLINE toGObject #-} - unsafeCastGObject = WebGLSampler . unGObject - {-# INLINE unsafeCastGObject #-} - -castToWebGLSampler :: IsGObject obj => obj -> IO WebGLSampler -castToWebGLSampler = castTo gTypeWebGLSampler "WebGLSampler" - -foreign import javascript unsafe "window[\"WebGLSampler\"]" gTypeWebGLSampler :: GType - --- | Functions for this inteface are in "GHCJS.DOM.WebGLShader". --- --- -newtype WebGLShader = WebGLShader { unWebGLShader :: JSVal } - -instance Eq (WebGLShader) where - (WebGLShader a) == (WebGLShader b) = js_eq a b - -instance PToJSVal WebGLShader where - pToJSVal = unWebGLShader - {-# INLINE pToJSVal #-} - -instance PFromJSVal WebGLShader where - pFromJSVal = WebGLShader - {-# INLINE pFromJSVal #-} - -instance ToJSVal WebGLShader where - toJSVal = return . unWebGLShader - {-# INLINE toJSVal #-} - -instance FromJSVal WebGLShader where - fromJSVal = return . fmap WebGLShader . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsGObject WebGLShader where - toGObject = GObject . unWebGLShader - {-# INLINE toGObject #-} - unsafeCastGObject = WebGLShader . unGObject - {-# INLINE unsafeCastGObject #-} - -castToWebGLShader :: IsGObject obj => obj -> IO WebGLShader -castToWebGLShader = castTo gTypeWebGLShader "WebGLShader" - -foreign import javascript unsafe "window[\"WebGLShader\"]" gTypeWebGLShader :: GType - --- | Functions for this inteface are in "GHCJS.DOM.WebGLShaderPrecisionFormat". --- --- -newtype WebGLShaderPrecisionFormat = WebGLShaderPrecisionFormat { unWebGLShaderPrecisionFormat :: JSVal } - -instance Eq (WebGLShaderPrecisionFormat) where - (WebGLShaderPrecisionFormat a) == (WebGLShaderPrecisionFormat b) = js_eq a b - -instance PToJSVal WebGLShaderPrecisionFormat where - pToJSVal = unWebGLShaderPrecisionFormat - {-# INLINE pToJSVal #-} - -instance PFromJSVal WebGLShaderPrecisionFormat where - pFromJSVal = WebGLShaderPrecisionFormat - {-# INLINE pFromJSVal #-} - -instance ToJSVal WebGLShaderPrecisionFormat where - toJSVal = return . unWebGLShaderPrecisionFormat - {-# INLINE toJSVal #-} - -instance FromJSVal WebGLShaderPrecisionFormat where - fromJSVal = return . fmap WebGLShaderPrecisionFormat . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsGObject WebGLShaderPrecisionFormat where - toGObject = GObject . unWebGLShaderPrecisionFormat - {-# INLINE toGObject #-} - unsafeCastGObject = WebGLShaderPrecisionFormat . unGObject - {-# INLINE unsafeCastGObject #-} - -castToWebGLShaderPrecisionFormat :: IsGObject obj => obj -> IO WebGLShaderPrecisionFormat -castToWebGLShaderPrecisionFormat = castTo gTypeWebGLShaderPrecisionFormat "WebGLShaderPrecisionFormat" - -foreign import javascript unsafe "window[\"WebGLShaderPrecisionFormat\"]" gTypeWebGLShaderPrecisionFormat :: GType - --- | Functions for this inteface are in "GHCJS.DOM.WebGLSync". --- --- -newtype WebGLSync = WebGLSync { unWebGLSync :: JSVal } - -instance Eq (WebGLSync) where - (WebGLSync a) == (WebGLSync b) = js_eq a b - -instance PToJSVal WebGLSync where - pToJSVal = unWebGLSync - {-# INLINE pToJSVal #-} - -instance PFromJSVal WebGLSync where - pFromJSVal = WebGLSync - {-# INLINE pFromJSVal #-} - -instance ToJSVal WebGLSync where - toJSVal = return . unWebGLSync - {-# INLINE toJSVal #-} - -instance FromJSVal WebGLSync where - fromJSVal = return . fmap WebGLSync . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsGObject WebGLSync where - toGObject = GObject . unWebGLSync - {-# INLINE toGObject #-} - unsafeCastGObject = WebGLSync . unGObject - {-# INLINE unsafeCastGObject #-} - -castToWebGLSync :: IsGObject obj => obj -> IO WebGLSync -castToWebGLSync = castTo gTypeWebGLSync "WebGLSync" - -foreign import javascript unsafe "window[\"WebGLSync\"]" gTypeWebGLSync :: GType - --- | Functions for this inteface are in "GHCJS.DOM.WebGLTexture". --- --- -newtype WebGLTexture = WebGLTexture { unWebGLTexture :: JSVal } - -instance Eq (WebGLTexture) where - (WebGLTexture a) == (WebGLTexture b) = js_eq a b - -instance PToJSVal WebGLTexture where - pToJSVal = unWebGLTexture - {-# INLINE pToJSVal #-} - -instance PFromJSVal WebGLTexture where - pFromJSVal = WebGLTexture - {-# INLINE pFromJSVal #-} - -instance ToJSVal WebGLTexture where - toJSVal = return . unWebGLTexture - {-# INLINE toJSVal #-} - -instance FromJSVal WebGLTexture where - fromJSVal = return . fmap WebGLTexture . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsGObject WebGLTexture where - toGObject = GObject . unWebGLTexture - {-# INLINE toGObject #-} - unsafeCastGObject = WebGLTexture . unGObject - {-# INLINE unsafeCastGObject #-} - -castToWebGLTexture :: IsGObject obj => obj -> IO WebGLTexture -castToWebGLTexture = castTo gTypeWebGLTexture "WebGLTexture" - -foreign import javascript unsafe "window[\"WebGLTexture\"]" gTypeWebGLTexture :: GType - --- | Functions for this inteface are in "GHCJS.DOM.WebGLTransformFeedback". --- --- -newtype WebGLTransformFeedback = WebGLTransformFeedback { unWebGLTransformFeedback :: JSVal } - -instance Eq (WebGLTransformFeedback) where - (WebGLTransformFeedback a) == (WebGLTransformFeedback b) = js_eq a b - -instance PToJSVal WebGLTransformFeedback where - pToJSVal = unWebGLTransformFeedback - {-# INLINE pToJSVal #-} - -instance PFromJSVal WebGLTransformFeedback where - pFromJSVal = WebGLTransformFeedback - {-# INLINE pFromJSVal #-} - -instance ToJSVal WebGLTransformFeedback where - toJSVal = return . unWebGLTransformFeedback - {-# INLINE toJSVal #-} - -instance FromJSVal WebGLTransformFeedback where - fromJSVal = return . fmap WebGLTransformFeedback . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsGObject WebGLTransformFeedback where - toGObject = GObject . unWebGLTransformFeedback - {-# INLINE toGObject #-} - unsafeCastGObject = WebGLTransformFeedback . unGObject - {-# INLINE unsafeCastGObject #-} - -castToWebGLTransformFeedback :: IsGObject obj => obj -> IO WebGLTransformFeedback -castToWebGLTransformFeedback = castTo gTypeWebGLTransformFeedback "WebGLTransformFeedback" - -foreign import javascript unsafe "window[\"WebGLTransformFeedback\"]" gTypeWebGLTransformFeedback :: GType - --- | Functions for this inteface are in "GHCJS.DOM.WebGLUniformLocation". --- --- -newtype WebGLUniformLocation = WebGLUniformLocation { unWebGLUniformLocation :: JSVal } - -instance Eq (WebGLUniformLocation) where - (WebGLUniformLocation a) == (WebGLUniformLocation b) = js_eq a b - -instance PToJSVal WebGLUniformLocation where - pToJSVal = unWebGLUniformLocation - {-# INLINE pToJSVal #-} - -instance PFromJSVal WebGLUniformLocation where - pFromJSVal = WebGLUniformLocation - {-# INLINE pFromJSVal #-} - -instance ToJSVal WebGLUniformLocation where - toJSVal = return . unWebGLUniformLocation - {-# INLINE toJSVal #-} - -instance FromJSVal WebGLUniformLocation where - fromJSVal = return . fmap WebGLUniformLocation . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsGObject WebGLUniformLocation where - toGObject = GObject . unWebGLUniformLocation - {-# INLINE toGObject #-} - unsafeCastGObject = WebGLUniformLocation . unGObject - {-# INLINE unsafeCastGObject #-} - -castToWebGLUniformLocation :: IsGObject obj => obj -> IO WebGLUniformLocation -castToWebGLUniformLocation = castTo gTypeWebGLUniformLocation "WebGLUniformLocation" - -foreign import javascript unsafe "window[\"WebGLUniformLocation\"]" gTypeWebGLUniformLocation :: GType - --- | Functions for this inteface are in "GHCJS.DOM.WebGLVertexArrayObject". --- --- -newtype WebGLVertexArrayObject = WebGLVertexArrayObject { unWebGLVertexArrayObject :: JSVal } - -instance Eq (WebGLVertexArrayObject) where - (WebGLVertexArrayObject a) == (WebGLVertexArrayObject b) = js_eq a b - -instance PToJSVal WebGLVertexArrayObject where - pToJSVal = unWebGLVertexArrayObject - {-# INLINE pToJSVal #-} - -instance PFromJSVal WebGLVertexArrayObject where - pFromJSVal = WebGLVertexArrayObject - {-# INLINE pFromJSVal #-} - -instance ToJSVal WebGLVertexArrayObject where - toJSVal = return . unWebGLVertexArrayObject - {-# INLINE toJSVal #-} - -instance FromJSVal WebGLVertexArrayObject where - fromJSVal = return . fmap WebGLVertexArrayObject . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsGObject WebGLVertexArrayObject where - toGObject = GObject . unWebGLVertexArrayObject - {-# INLINE toGObject #-} - unsafeCastGObject = WebGLVertexArrayObject . unGObject - {-# INLINE unsafeCastGObject #-} - -castToWebGLVertexArrayObject :: IsGObject obj => obj -> IO WebGLVertexArrayObject -castToWebGLVertexArrayObject = castTo gTypeWebGLVertexArrayObject "WebGLVertexArrayObject" - -foreign import javascript unsafe "window[\"WebGLVertexArrayObject\"]" gTypeWebGLVertexArrayObject :: GType - --- | Functions for this inteface are in "GHCJS.DOM.WebGLVertexArrayObjectOES". --- --- -newtype WebGLVertexArrayObjectOES = WebGLVertexArrayObjectOES { unWebGLVertexArrayObjectOES :: JSVal } - -instance Eq (WebGLVertexArrayObjectOES) where - (WebGLVertexArrayObjectOES a) == (WebGLVertexArrayObjectOES b) = js_eq a b - -instance PToJSVal WebGLVertexArrayObjectOES where - pToJSVal = unWebGLVertexArrayObjectOES - {-# INLINE pToJSVal #-} - -instance PFromJSVal WebGLVertexArrayObjectOES where - pFromJSVal = WebGLVertexArrayObjectOES - {-# INLINE pFromJSVal #-} - -instance ToJSVal WebGLVertexArrayObjectOES where - toJSVal = return . unWebGLVertexArrayObjectOES - {-# INLINE toJSVal #-} - -instance FromJSVal WebGLVertexArrayObjectOES where - fromJSVal = return . fmap WebGLVertexArrayObjectOES . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsGObject WebGLVertexArrayObjectOES where - toGObject = GObject . unWebGLVertexArrayObjectOES - {-# INLINE toGObject #-} - unsafeCastGObject = WebGLVertexArrayObjectOES . unGObject - {-# INLINE unsafeCastGObject #-} - -castToWebGLVertexArrayObjectOES :: IsGObject obj => obj -> IO WebGLVertexArrayObjectOES -castToWebGLVertexArrayObjectOES = castTo gTypeWebGLVertexArrayObjectOES "WebGLVertexArrayObjectOES" - -foreign import javascript unsafe "window[\"WebGLVertexArrayObjectOES\"]" gTypeWebGLVertexArrayObjectOES :: GType - --- | Functions for this inteface are in "GHCJS.DOM.WebKitAnimationEvent". --- Base interface functions are in: --- --- * "GHCJS.DOM.Event" --- --- -newtype WebKitAnimationEvent = WebKitAnimationEvent { unWebKitAnimationEvent :: JSVal } - -instance Eq (WebKitAnimationEvent) where - (WebKitAnimationEvent a) == (WebKitAnimationEvent b) = js_eq a b - -instance PToJSVal WebKitAnimationEvent where - pToJSVal = unWebKitAnimationEvent - {-# INLINE pToJSVal #-} - -instance PFromJSVal WebKitAnimationEvent where - pFromJSVal = WebKitAnimationEvent - {-# INLINE pFromJSVal #-} - -instance ToJSVal WebKitAnimationEvent where - toJSVal = return . unWebKitAnimationEvent - {-# INLINE toJSVal #-} - -instance FromJSVal WebKitAnimationEvent where - fromJSVal = return . fmap WebKitAnimationEvent . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsEvent WebKitAnimationEvent -instance IsGObject WebKitAnimationEvent where - toGObject = GObject . unWebKitAnimationEvent - {-# INLINE toGObject #-} - unsafeCastGObject = WebKitAnimationEvent . unGObject - {-# INLINE unsafeCastGObject #-} - -castToWebKitAnimationEvent :: IsGObject obj => obj -> IO WebKitAnimationEvent -castToWebKitAnimationEvent = castTo gTypeWebKitAnimationEvent "WebKitAnimationEvent" - -foreign import javascript unsafe "window[\"WebKitAnimationEvent\"]" gTypeWebKitAnimationEvent :: GType - --- | Functions for this inteface are in "GHCJS.DOM.WebKitCSSFilterValue". --- Base interface functions are in: --- --- * "GHCJS.DOM.CSSValueList" --- * "GHCJS.DOM.CSSValue" --- --- -newtype WebKitCSSFilterValue = WebKitCSSFilterValue { unWebKitCSSFilterValue :: JSVal } - -instance Eq (WebKitCSSFilterValue) where - (WebKitCSSFilterValue a) == (WebKitCSSFilterValue b) = js_eq a b - -instance PToJSVal WebKitCSSFilterValue where - pToJSVal = unWebKitCSSFilterValue - {-# INLINE pToJSVal #-} - -instance PFromJSVal WebKitCSSFilterValue where - pFromJSVal = WebKitCSSFilterValue - {-# INLINE pFromJSVal #-} - -instance ToJSVal WebKitCSSFilterValue where - toJSVal = return . unWebKitCSSFilterValue - {-# INLINE toJSVal #-} - -instance FromJSVal WebKitCSSFilterValue where - fromJSVal = return . fmap WebKitCSSFilterValue . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsCSSValueList WebKitCSSFilterValue -instance IsCSSValue WebKitCSSFilterValue -instance IsGObject WebKitCSSFilterValue where - toGObject = GObject . unWebKitCSSFilterValue - {-# INLINE toGObject #-} - unsafeCastGObject = WebKitCSSFilterValue . unGObject - {-# INLINE unsafeCastGObject #-} - -castToWebKitCSSFilterValue :: IsGObject obj => obj -> IO WebKitCSSFilterValue -castToWebKitCSSFilterValue = castTo gTypeWebKitCSSFilterValue "WebKitCSSFilterValue" - -foreign import javascript unsafe "window[\"WebKitCSSFilterValue\"]" gTypeWebKitCSSFilterValue :: GType - --- | Functions for this inteface are in "GHCJS.DOM.WebKitCSSMatrix". --- --- -newtype WebKitCSSMatrix = WebKitCSSMatrix { unWebKitCSSMatrix :: JSVal } - -instance Eq (WebKitCSSMatrix) where - (WebKitCSSMatrix a) == (WebKitCSSMatrix b) = js_eq a b - -instance PToJSVal WebKitCSSMatrix where - pToJSVal = unWebKitCSSMatrix - {-# INLINE pToJSVal #-} - -instance PFromJSVal WebKitCSSMatrix where - pFromJSVal = WebKitCSSMatrix - {-# INLINE pFromJSVal #-} - -instance ToJSVal WebKitCSSMatrix where - toJSVal = return . unWebKitCSSMatrix - {-# INLINE toJSVal #-} - -instance FromJSVal WebKitCSSMatrix where - fromJSVal = return . fmap WebKitCSSMatrix . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsGObject WebKitCSSMatrix where - toGObject = GObject . unWebKitCSSMatrix - {-# INLINE toGObject #-} - unsafeCastGObject = WebKitCSSMatrix . unGObject - {-# INLINE unsafeCastGObject #-} - -castToWebKitCSSMatrix :: IsGObject obj => obj -> IO WebKitCSSMatrix -castToWebKitCSSMatrix = castTo gTypeWebKitCSSMatrix "WebKitCSSMatrix" - -foreign import javascript unsafe "window[\"WebKitCSSMatrix\"]" gTypeWebKitCSSMatrix :: GType - --- | Functions for this inteface are in "GHCJS.DOM.WebKitCSSRegionRule". --- Base interface functions are in: --- --- * "GHCJS.DOM.CSSRule" --- --- -newtype WebKitCSSRegionRule = WebKitCSSRegionRule { unWebKitCSSRegionRule :: JSVal } - -instance Eq (WebKitCSSRegionRule) where - (WebKitCSSRegionRule a) == (WebKitCSSRegionRule b) = js_eq a b - -instance PToJSVal WebKitCSSRegionRule where - pToJSVal = unWebKitCSSRegionRule - {-# INLINE pToJSVal #-} - -instance PFromJSVal WebKitCSSRegionRule where - pFromJSVal = WebKitCSSRegionRule - {-# INLINE pFromJSVal #-} - -instance ToJSVal WebKitCSSRegionRule where - toJSVal = return . unWebKitCSSRegionRule - {-# INLINE toJSVal #-} - -instance FromJSVal WebKitCSSRegionRule where - fromJSVal = return . fmap WebKitCSSRegionRule . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsCSSRule WebKitCSSRegionRule -instance IsGObject WebKitCSSRegionRule where - toGObject = GObject . unWebKitCSSRegionRule - {-# INLINE toGObject #-} - unsafeCastGObject = WebKitCSSRegionRule . unGObject - {-# INLINE unsafeCastGObject #-} - -castToWebKitCSSRegionRule :: IsGObject obj => obj -> IO WebKitCSSRegionRule -castToWebKitCSSRegionRule = castTo gTypeWebKitCSSRegionRule "WebKitCSSRegionRule" - -foreign import javascript unsafe "window[\"WebKitCSSRegionRule\"]" gTypeWebKitCSSRegionRule :: GType - --- | Functions for this inteface are in "GHCJS.DOM.WebKitCSSTransformValue". --- Base interface functions are in: --- --- * "GHCJS.DOM.CSSValueList" --- * "GHCJS.DOM.CSSValue" --- --- -newtype WebKitCSSTransformValue = WebKitCSSTransformValue { unWebKitCSSTransformValue :: JSVal } - -instance Eq (WebKitCSSTransformValue) where - (WebKitCSSTransformValue a) == (WebKitCSSTransformValue b) = js_eq a b - -instance PToJSVal WebKitCSSTransformValue where - pToJSVal = unWebKitCSSTransformValue - {-# INLINE pToJSVal #-} - -instance PFromJSVal WebKitCSSTransformValue where - pFromJSVal = WebKitCSSTransformValue - {-# INLINE pFromJSVal #-} - -instance ToJSVal WebKitCSSTransformValue where - toJSVal = return . unWebKitCSSTransformValue - {-# INLINE toJSVal #-} - -instance FromJSVal WebKitCSSTransformValue where - fromJSVal = return . fmap WebKitCSSTransformValue . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsCSSValueList WebKitCSSTransformValue -instance IsCSSValue WebKitCSSTransformValue -instance IsGObject WebKitCSSTransformValue where - toGObject = GObject . unWebKitCSSTransformValue - {-# INLINE toGObject #-} - unsafeCastGObject = WebKitCSSTransformValue . unGObject - {-# INLINE unsafeCastGObject #-} - -castToWebKitCSSTransformValue :: IsGObject obj => obj -> IO WebKitCSSTransformValue -castToWebKitCSSTransformValue = castTo gTypeWebKitCSSTransformValue "WebKitCSSTransformValue" - -foreign import javascript unsafe "window[\"WebKitCSSTransformValue\"]" gTypeWebKitCSSTransformValue :: GType - --- | Functions for this inteface are in "GHCJS.DOM.WebKitCSSViewportRule". --- Base interface functions are in: --- --- * "GHCJS.DOM.CSSRule" --- --- -newtype WebKitCSSViewportRule = WebKitCSSViewportRule { unWebKitCSSViewportRule :: JSVal } - -instance Eq (WebKitCSSViewportRule) where - (WebKitCSSViewportRule a) == (WebKitCSSViewportRule b) = js_eq a b - -instance PToJSVal WebKitCSSViewportRule where - pToJSVal = unWebKitCSSViewportRule - {-# INLINE pToJSVal #-} - -instance PFromJSVal WebKitCSSViewportRule where - pFromJSVal = WebKitCSSViewportRule - {-# INLINE pFromJSVal #-} - -instance ToJSVal WebKitCSSViewportRule where - toJSVal = return . unWebKitCSSViewportRule - {-# INLINE toJSVal #-} - -instance FromJSVal WebKitCSSViewportRule where - fromJSVal = return . fmap WebKitCSSViewportRule . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsCSSRule WebKitCSSViewportRule -instance IsGObject WebKitCSSViewportRule where - toGObject = GObject . unWebKitCSSViewportRule - {-# INLINE toGObject #-} - unsafeCastGObject = WebKitCSSViewportRule . unGObject - {-# INLINE unsafeCastGObject #-} - -castToWebKitCSSViewportRule :: IsGObject obj => obj -> IO WebKitCSSViewportRule -castToWebKitCSSViewportRule = castTo gTypeWebKitCSSViewportRule "WebKitCSSViewportRule" - -foreign import javascript unsafe "window[\"WebKitCSSViewportRule\"]" gTypeWebKitCSSViewportRule :: GType - --- | Functions for this inteface are in "GHCJS.DOM.WebKitNamedFlow". --- Base interface functions are in: --- --- * "GHCJS.DOM.EventTarget" --- --- -newtype WebKitNamedFlow = WebKitNamedFlow { unWebKitNamedFlow :: JSVal } - -instance Eq (WebKitNamedFlow) where - (WebKitNamedFlow a) == (WebKitNamedFlow b) = js_eq a b - -instance PToJSVal WebKitNamedFlow where - pToJSVal = unWebKitNamedFlow - {-# INLINE pToJSVal #-} - -instance PFromJSVal WebKitNamedFlow where - pFromJSVal = WebKitNamedFlow - {-# INLINE pFromJSVal #-} - -instance ToJSVal WebKitNamedFlow where - toJSVal = return . unWebKitNamedFlow - {-# INLINE toJSVal #-} - -instance FromJSVal WebKitNamedFlow where - fromJSVal = return . fmap WebKitNamedFlow . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsEventTarget WebKitNamedFlow -instance IsGObject WebKitNamedFlow where - toGObject = GObject . unWebKitNamedFlow - {-# INLINE toGObject #-} - unsafeCastGObject = WebKitNamedFlow . unGObject - {-# INLINE unsafeCastGObject #-} - -castToWebKitNamedFlow :: IsGObject obj => obj -> IO WebKitNamedFlow -castToWebKitNamedFlow = castTo gTypeWebKitNamedFlow "WebKitNamedFlow" - -foreign import javascript unsafe "window[\"WebKitNamedFlow\"]" gTypeWebKitNamedFlow :: GType - --- | Functions for this inteface are in "GHCJS.DOM.WebKitNamespace". --- --- -newtype WebKitNamespace = WebKitNamespace { unWebKitNamespace :: JSVal } - -instance Eq (WebKitNamespace) where - (WebKitNamespace a) == (WebKitNamespace b) = js_eq a b - -instance PToJSVal WebKitNamespace where - pToJSVal = unWebKitNamespace - {-# INLINE pToJSVal #-} - -instance PFromJSVal WebKitNamespace where - pFromJSVal = WebKitNamespace - {-# INLINE pFromJSVal #-} - -instance ToJSVal WebKitNamespace where - toJSVal = return . unWebKitNamespace - {-# INLINE toJSVal #-} - -instance FromJSVal WebKitNamespace where - fromJSVal = return . fmap WebKitNamespace . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsGObject WebKitNamespace where - toGObject = GObject . unWebKitNamespace - {-# INLINE toGObject #-} - unsafeCastGObject = WebKitNamespace . unGObject - {-# INLINE unsafeCastGObject #-} - -castToWebKitNamespace :: IsGObject obj => obj -> IO WebKitNamespace -castToWebKitNamespace = castTo gTypeWebKitNamespace "WebKitNamespace" - -foreign import javascript unsafe "window[\"WebKitNamespace\"]" gTypeWebKitNamespace :: GType - --- | Functions for this inteface are in "GHCJS.DOM.WebKitPlaybackTargetAvailabilityEvent". --- Base interface functions are in: --- --- * "GHCJS.DOM.Event" --- --- -newtype WebKitPlaybackTargetAvailabilityEvent = WebKitPlaybackTargetAvailabilityEvent { unWebKitPlaybackTargetAvailabilityEvent :: JSVal } - -instance Eq (WebKitPlaybackTargetAvailabilityEvent) where - (WebKitPlaybackTargetAvailabilityEvent a) == (WebKitPlaybackTargetAvailabilityEvent b) = js_eq a b - -instance PToJSVal WebKitPlaybackTargetAvailabilityEvent where - pToJSVal = unWebKitPlaybackTargetAvailabilityEvent - {-# INLINE pToJSVal #-} - -instance PFromJSVal WebKitPlaybackTargetAvailabilityEvent where - pFromJSVal = WebKitPlaybackTargetAvailabilityEvent - {-# INLINE pFromJSVal #-} - -instance ToJSVal WebKitPlaybackTargetAvailabilityEvent where - toJSVal = return . unWebKitPlaybackTargetAvailabilityEvent - {-# INLINE toJSVal #-} - -instance FromJSVal WebKitPlaybackTargetAvailabilityEvent where - fromJSVal = return . fmap WebKitPlaybackTargetAvailabilityEvent . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsEvent WebKitPlaybackTargetAvailabilityEvent -instance IsGObject WebKitPlaybackTargetAvailabilityEvent where - toGObject = GObject . unWebKitPlaybackTargetAvailabilityEvent - {-# INLINE toGObject #-} - unsafeCastGObject = WebKitPlaybackTargetAvailabilityEvent . unGObject - {-# INLINE unsafeCastGObject #-} - -castToWebKitPlaybackTargetAvailabilityEvent :: IsGObject obj => obj -> IO WebKitPlaybackTargetAvailabilityEvent -castToWebKitPlaybackTargetAvailabilityEvent = castTo gTypeWebKitPlaybackTargetAvailabilityEvent "WebKitPlaybackTargetAvailabilityEvent" - -foreign import javascript unsafe "window[\"WebKitPlaybackTargetAvailabilityEvent\"]" gTypeWebKitPlaybackTargetAvailabilityEvent :: GType - --- | Functions for this inteface are in "GHCJS.DOM.WebKitPoint". --- --- -newtype WebKitPoint = WebKitPoint { unWebKitPoint :: JSVal } - -instance Eq (WebKitPoint) where - (WebKitPoint a) == (WebKitPoint b) = js_eq a b - -instance PToJSVal WebKitPoint where - pToJSVal = unWebKitPoint - {-# INLINE pToJSVal #-} - -instance PFromJSVal WebKitPoint where - pFromJSVal = WebKitPoint - {-# INLINE pFromJSVal #-} - -instance ToJSVal WebKitPoint where - toJSVal = return . unWebKitPoint - {-# INLINE toJSVal #-} - -instance FromJSVal WebKitPoint where - fromJSVal = return . fmap WebKitPoint . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsGObject WebKitPoint where - toGObject = GObject . unWebKitPoint - {-# INLINE toGObject #-} - unsafeCastGObject = WebKitPoint . unGObject - {-# INLINE unsafeCastGObject #-} - -castToWebKitPoint :: IsGObject obj => obj -> IO WebKitPoint -castToWebKitPoint = castTo gTypeWebKitPoint "WebKitPoint" - -foreign import javascript unsafe "window[\"WebKitPoint\"]" gTypeWebKitPoint :: GType - --- | Functions for this inteface are in "GHCJS.DOM.WebKitTransitionEvent". --- Base interface functions are in: --- --- * "GHCJS.DOM.Event" --- --- -newtype WebKitTransitionEvent = WebKitTransitionEvent { unWebKitTransitionEvent :: JSVal } - -instance Eq (WebKitTransitionEvent) where - (WebKitTransitionEvent a) == (WebKitTransitionEvent b) = js_eq a b - -instance PToJSVal WebKitTransitionEvent where - pToJSVal = unWebKitTransitionEvent - {-# INLINE pToJSVal #-} - -instance PFromJSVal WebKitTransitionEvent where - pFromJSVal = WebKitTransitionEvent - {-# INLINE pFromJSVal #-} - -instance ToJSVal WebKitTransitionEvent where - toJSVal = return . unWebKitTransitionEvent - {-# INLINE toJSVal #-} - -instance FromJSVal WebKitTransitionEvent where - fromJSVal = return . fmap WebKitTransitionEvent . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsEvent WebKitTransitionEvent -instance IsGObject WebKitTransitionEvent where - toGObject = GObject . unWebKitTransitionEvent - {-# INLINE toGObject #-} - unsafeCastGObject = WebKitTransitionEvent . unGObject - {-# INLINE unsafeCastGObject #-} - -castToWebKitTransitionEvent :: IsGObject obj => obj -> IO WebKitTransitionEvent -castToWebKitTransitionEvent = castTo gTypeWebKitTransitionEvent "WebKitTransitionEvent" - -foreign import javascript unsafe "window[\"WebKitTransitionEvent\"]" gTypeWebKitTransitionEvent :: GType - --- | Functions for this inteface are in "GHCJS.DOM.WebSocket". --- Base interface functions are in: --- --- * "GHCJS.DOM.EventTarget" --- --- -newtype WebSocket = WebSocket { unWebSocket :: JSVal } - -instance Eq (WebSocket) where - (WebSocket a) == (WebSocket b) = js_eq a b - -instance PToJSVal WebSocket where - pToJSVal = unWebSocket - {-# INLINE pToJSVal #-} - -instance PFromJSVal WebSocket where - pFromJSVal = WebSocket - {-# INLINE pFromJSVal #-} - -instance ToJSVal WebSocket where - toJSVal = return . unWebSocket - {-# INLINE toJSVal #-} - -instance FromJSVal WebSocket where - fromJSVal = return . fmap WebSocket . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsEventTarget WebSocket -instance IsGObject WebSocket where - toGObject = GObject . unWebSocket - {-# INLINE toGObject #-} - unsafeCastGObject = WebSocket . unGObject - {-# INLINE unsafeCastGObject #-} - -castToWebSocket :: IsGObject obj => obj -> IO WebSocket -castToWebSocket = castTo gTypeWebSocket "WebSocket" - -foreign import javascript unsafe "window[\"WebSocket\"]" gTypeWebSocket :: GType - --- | Functions for this inteface are in "GHCJS.DOM.WheelEvent". --- Base interface functions are in: --- --- * "GHCJS.DOM.MouseEvent" --- * "GHCJS.DOM.UIEvent" --- * "GHCJS.DOM.Event" --- --- -newtype WheelEvent = WheelEvent { unWheelEvent :: JSVal } - -instance Eq (WheelEvent) where - (WheelEvent a) == (WheelEvent b) = js_eq a b - -instance PToJSVal WheelEvent where - pToJSVal = unWheelEvent - {-# INLINE pToJSVal #-} - -instance PFromJSVal WheelEvent where - pFromJSVal = WheelEvent - {-# INLINE pFromJSVal #-} - -instance ToJSVal WheelEvent where - toJSVal = return . unWheelEvent - {-# INLINE toJSVal #-} - -instance FromJSVal WheelEvent where - fromJSVal = return . fmap WheelEvent . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsMouseEvent WheelEvent -instance IsUIEvent WheelEvent -instance IsEvent WheelEvent -instance IsGObject WheelEvent where - toGObject = GObject . unWheelEvent - {-# INLINE toGObject #-} - unsafeCastGObject = WheelEvent . unGObject - {-# INLINE unsafeCastGObject #-} - -castToWheelEvent :: IsGObject obj => obj -> IO WheelEvent -castToWheelEvent = castTo gTypeWheelEvent "WheelEvent" - -foreign import javascript unsafe "window[\"WheelEvent\"]" gTypeWheelEvent :: GType - --- | Functions for this inteface are in "GHCJS.DOM.Window". --- Base interface functions are in: --- --- * "GHCJS.DOM.EventTarget" --- --- -newtype Window = Window { unWindow :: JSVal } - -instance Eq (Window) where - (Window a) == (Window b) = js_eq a b - -instance PToJSVal Window where - pToJSVal = unWindow - {-# INLINE pToJSVal #-} - -instance PFromJSVal Window where - pFromJSVal = Window - {-# INLINE pFromJSVal #-} - -instance ToJSVal Window where - toJSVal = return . unWindow - {-# INLINE toJSVal #-} - -instance FromJSVal Window where - fromJSVal = return . fmap Window . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsEventTarget Window -instance IsGObject Window where - toGObject = GObject . unWindow - {-# INLINE toGObject #-} - unsafeCastGObject = Window . unGObject - {-# INLINE unsafeCastGObject #-} - -castToWindow :: IsGObject obj => obj -> IO Window -castToWindow = castTo gTypeWindow "Window" - -foreign import javascript unsafe "window[\"Window\"]" gTypeWindow :: GType - --- | Functions for this inteface are in "GHCJS.DOM.WindowBase64". --- --- -newtype WindowBase64 = WindowBase64 { unWindowBase64 :: JSVal } - -instance Eq (WindowBase64) where - (WindowBase64 a) == (WindowBase64 b) = js_eq a b - -instance PToJSVal WindowBase64 where - pToJSVal = unWindowBase64 - {-# INLINE pToJSVal #-} - -instance PFromJSVal WindowBase64 where - pFromJSVal = WindowBase64 - {-# INLINE pFromJSVal #-} - -instance ToJSVal WindowBase64 where - toJSVal = return . unWindowBase64 - {-# INLINE toJSVal #-} - -instance FromJSVal WindowBase64 where - fromJSVal = return . fmap WindowBase64 . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsGObject WindowBase64 where - toGObject = GObject . unWindowBase64 - {-# INLINE toGObject #-} - unsafeCastGObject = WindowBase64 . unGObject - {-# INLINE unsafeCastGObject #-} - -castToWindowBase64 :: IsGObject obj => obj -> IO WindowBase64 -castToWindowBase64 = castTo gTypeWindowBase64 "WindowBase64" - -foreign import javascript unsafe "window[\"WindowBase64\"]" gTypeWindowBase64 :: GType - --- | Functions for this inteface are in "GHCJS.DOM.WindowTimers". --- --- -newtype WindowTimers = WindowTimers { unWindowTimers :: JSVal } - -instance Eq (WindowTimers) where - (WindowTimers a) == (WindowTimers b) = js_eq a b - -instance PToJSVal WindowTimers where - pToJSVal = unWindowTimers - {-# INLINE pToJSVal #-} - -instance PFromJSVal WindowTimers where - pFromJSVal = WindowTimers - {-# INLINE pFromJSVal #-} - -instance ToJSVal WindowTimers where - toJSVal = return . unWindowTimers - {-# INLINE toJSVal #-} - -instance FromJSVal WindowTimers where - fromJSVal = return . fmap WindowTimers . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsGObject WindowTimers where - toGObject = GObject . unWindowTimers - {-# INLINE toGObject #-} - unsafeCastGObject = WindowTimers . unGObject - {-# INLINE unsafeCastGObject #-} - -castToWindowTimers :: IsGObject obj => obj -> IO WindowTimers -castToWindowTimers = castTo gTypeWindowTimers "WindowTimers" - -foreign import javascript unsafe "window[\"WindowTimers\"]" gTypeWindowTimers :: GType - --- | Functions for this inteface are in "GHCJS.DOM.Worker". --- Base interface functions are in: --- --- * "GHCJS.DOM.EventTarget" --- --- -newtype Worker = Worker { unWorker :: JSVal } - -instance Eq (Worker) where - (Worker a) == (Worker b) = js_eq a b - -instance PToJSVal Worker where - pToJSVal = unWorker - {-# INLINE pToJSVal #-} - -instance PFromJSVal Worker where - pFromJSVal = Worker - {-# INLINE pFromJSVal #-} - -instance ToJSVal Worker where - toJSVal = return . unWorker - {-# INLINE toJSVal #-} - -instance FromJSVal Worker where - fromJSVal = return . fmap Worker . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsEventTarget Worker -instance IsGObject Worker where - toGObject = GObject . unWorker - {-# INLINE toGObject #-} - unsafeCastGObject = Worker . unGObject - {-# INLINE unsafeCastGObject #-} - -castToWorker :: IsGObject obj => obj -> IO Worker -castToWorker = castTo gTypeWorker "Worker" - -foreign import javascript unsafe "window[\"Worker\"]" gTypeWorker :: GType - --- | Functions for this inteface are in "GHCJS.DOM.WorkerGlobalScope". --- Base interface functions are in: --- --- * "GHCJS.DOM.EventTarget" --- --- -newtype WorkerGlobalScope = WorkerGlobalScope { unWorkerGlobalScope :: JSVal } - -instance Eq (WorkerGlobalScope) where - (WorkerGlobalScope a) == (WorkerGlobalScope b) = js_eq a b - -instance PToJSVal WorkerGlobalScope where - pToJSVal = unWorkerGlobalScope - {-# INLINE pToJSVal #-} - -instance PFromJSVal WorkerGlobalScope where - pFromJSVal = WorkerGlobalScope - {-# INLINE pFromJSVal #-} - -instance ToJSVal WorkerGlobalScope where - toJSVal = return . unWorkerGlobalScope - {-# INLINE toJSVal #-} - -instance FromJSVal WorkerGlobalScope where - fromJSVal = return . fmap WorkerGlobalScope . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -class IsEventTarget o => IsWorkerGlobalScope o -toWorkerGlobalScope :: IsWorkerGlobalScope o => o -> WorkerGlobalScope -toWorkerGlobalScope = unsafeCastGObject . toGObject - -instance IsWorkerGlobalScope WorkerGlobalScope -instance IsEventTarget WorkerGlobalScope -instance IsGObject WorkerGlobalScope where - toGObject = GObject . unWorkerGlobalScope - {-# INLINE toGObject #-} - unsafeCastGObject = WorkerGlobalScope . unGObject - {-# INLINE unsafeCastGObject #-} - -castToWorkerGlobalScope :: IsGObject obj => obj -> IO WorkerGlobalScope -castToWorkerGlobalScope = castTo gTypeWorkerGlobalScope "WorkerGlobalScope" - -foreign import javascript unsafe "window[\"WorkerGlobalScope\"]" gTypeWorkerGlobalScope :: GType - --- | Functions for this inteface are in "GHCJS.DOM.WorkerLocation". --- --- -newtype WorkerLocation = WorkerLocation { unWorkerLocation :: JSVal } - -instance Eq (WorkerLocation) where - (WorkerLocation a) == (WorkerLocation b) = js_eq a b - -instance PToJSVal WorkerLocation where - pToJSVal = unWorkerLocation - {-# INLINE pToJSVal #-} - -instance PFromJSVal WorkerLocation where - pFromJSVal = WorkerLocation - {-# INLINE pFromJSVal #-} - -instance ToJSVal WorkerLocation where - toJSVal = return . unWorkerLocation - {-# INLINE toJSVal #-} - -instance FromJSVal WorkerLocation where - fromJSVal = return . fmap WorkerLocation . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsGObject WorkerLocation where - toGObject = GObject . unWorkerLocation - {-# INLINE toGObject #-} - unsafeCastGObject = WorkerLocation . unGObject - {-# INLINE unsafeCastGObject #-} - -castToWorkerLocation :: IsGObject obj => obj -> IO WorkerLocation -castToWorkerLocation = castTo gTypeWorkerLocation "WorkerLocation" - -foreign import javascript unsafe "window[\"WorkerLocation\"]" gTypeWorkerLocation :: GType - --- | Functions for this inteface are in "GHCJS.DOM.WorkerNavigator". --- --- -newtype WorkerNavigator = WorkerNavigator { unWorkerNavigator :: JSVal } - -instance Eq (WorkerNavigator) where - (WorkerNavigator a) == (WorkerNavigator b) = js_eq a b - -instance PToJSVal WorkerNavigator where - pToJSVal = unWorkerNavigator - {-# INLINE pToJSVal #-} - -instance PFromJSVal WorkerNavigator where - pFromJSVal = WorkerNavigator - {-# INLINE pFromJSVal #-} - -instance ToJSVal WorkerNavigator where - toJSVal = return . unWorkerNavigator - {-# INLINE toJSVal #-} - -instance FromJSVal WorkerNavigator where - fromJSVal = return . fmap WorkerNavigator . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsGObject WorkerNavigator where - toGObject = GObject . unWorkerNavigator - {-# INLINE toGObject #-} - unsafeCastGObject = WorkerNavigator . unGObject - {-# INLINE unsafeCastGObject #-} - -castToWorkerNavigator :: IsGObject obj => obj -> IO WorkerNavigator -castToWorkerNavigator = castTo gTypeWorkerNavigator "WorkerNavigator" - -foreign import javascript unsafe "window[\"WorkerNavigator\"]" gTypeWorkerNavigator :: GType - --- | Functions for this inteface are in "GHCJS.DOM.XMLHttpRequest". --- Base interface functions are in: --- --- * "GHCJS.DOM.EventTarget" --- --- -newtype XMLHttpRequest = XMLHttpRequest { unXMLHttpRequest :: JSVal } - -instance Eq (XMLHttpRequest) where - (XMLHttpRequest a) == (XMLHttpRequest b) = js_eq a b - -instance PToJSVal XMLHttpRequest where - pToJSVal = unXMLHttpRequest - {-# INLINE pToJSVal #-} - -instance PFromJSVal XMLHttpRequest where - pFromJSVal = XMLHttpRequest - {-# INLINE pFromJSVal #-} - -instance ToJSVal XMLHttpRequest where - toJSVal = return . unXMLHttpRequest - {-# INLINE toJSVal #-} - -instance FromJSVal XMLHttpRequest where - fromJSVal = return . fmap XMLHttpRequest . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsEventTarget XMLHttpRequest -instance IsGObject XMLHttpRequest where - toGObject = GObject . unXMLHttpRequest - {-# INLINE toGObject #-} - unsafeCastGObject = XMLHttpRequest . unGObject - {-# INLINE unsafeCastGObject #-} - -castToXMLHttpRequest :: IsGObject obj => obj -> IO XMLHttpRequest -castToXMLHttpRequest = castTo gTypeXMLHttpRequest "XMLHttpRequest" - -foreign import javascript unsafe "window[\"XMLHttpRequest\"]" gTypeXMLHttpRequest :: GType - --- | Functions for this inteface are in "GHCJS.DOM.XMLHttpRequestProgressEvent". --- Base interface functions are in: --- --- * "GHCJS.DOM.ProgressEvent" --- * "GHCJS.DOM.Event" --- --- -newtype XMLHttpRequestProgressEvent = XMLHttpRequestProgressEvent { unXMLHttpRequestProgressEvent :: JSVal } - -instance Eq (XMLHttpRequestProgressEvent) where - (XMLHttpRequestProgressEvent a) == (XMLHttpRequestProgressEvent b) = js_eq a b - -instance PToJSVal XMLHttpRequestProgressEvent where - pToJSVal = unXMLHttpRequestProgressEvent - {-# INLINE pToJSVal #-} - -instance PFromJSVal XMLHttpRequestProgressEvent where - pFromJSVal = XMLHttpRequestProgressEvent - {-# INLINE pFromJSVal #-} - -instance ToJSVal XMLHttpRequestProgressEvent where - toJSVal = return . unXMLHttpRequestProgressEvent - {-# INLINE toJSVal #-} - -instance FromJSVal XMLHttpRequestProgressEvent where - fromJSVal = return . fmap XMLHttpRequestProgressEvent . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsProgressEvent XMLHttpRequestProgressEvent -instance IsEvent XMLHttpRequestProgressEvent -instance IsGObject XMLHttpRequestProgressEvent where - toGObject = GObject . unXMLHttpRequestProgressEvent - {-# INLINE toGObject #-} - unsafeCastGObject = XMLHttpRequestProgressEvent . unGObject - {-# INLINE unsafeCastGObject #-} - -castToXMLHttpRequestProgressEvent :: IsGObject obj => obj -> IO XMLHttpRequestProgressEvent -castToXMLHttpRequestProgressEvent = castTo gTypeXMLHttpRequestProgressEvent "XMLHttpRequestProgressEvent" - -foreign import javascript unsafe "window[\"XMLHttpRequestProgressEvent\"]" gTypeXMLHttpRequestProgressEvent :: GType - --- | Functions for this inteface are in "GHCJS.DOM.XMLHttpRequestUpload". --- Base interface functions are in: --- --- * "GHCJS.DOM.EventTarget" --- --- -newtype XMLHttpRequestUpload = XMLHttpRequestUpload { unXMLHttpRequestUpload :: JSVal } - -instance Eq (XMLHttpRequestUpload) where - (XMLHttpRequestUpload a) == (XMLHttpRequestUpload b) = js_eq a b - -instance PToJSVal XMLHttpRequestUpload where - pToJSVal = unXMLHttpRequestUpload - {-# INLINE pToJSVal #-} - -instance PFromJSVal XMLHttpRequestUpload where - pFromJSVal = XMLHttpRequestUpload - {-# INLINE pFromJSVal #-} - -instance ToJSVal XMLHttpRequestUpload where - toJSVal = return . unXMLHttpRequestUpload - {-# INLINE toJSVal #-} - -instance FromJSVal XMLHttpRequestUpload where - fromJSVal = return . fmap XMLHttpRequestUpload . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsEventTarget XMLHttpRequestUpload -instance IsGObject XMLHttpRequestUpload where - toGObject = GObject . unXMLHttpRequestUpload - {-# INLINE toGObject #-} - unsafeCastGObject = XMLHttpRequestUpload . unGObject - {-# INLINE unsafeCastGObject #-} - -castToXMLHttpRequestUpload :: IsGObject obj => obj -> IO XMLHttpRequestUpload -castToXMLHttpRequestUpload = castTo gTypeXMLHttpRequestUpload "XMLHttpRequestUpload" - -foreign import javascript unsafe "window[\"XMLHttpRequestUpload\"]" gTypeXMLHttpRequestUpload :: GType - --- | Functions for this inteface are in "GHCJS.DOM.XMLSerializer". --- --- -newtype XMLSerializer = XMLSerializer { unXMLSerializer :: JSVal } - -instance Eq (XMLSerializer) where - (XMLSerializer a) == (XMLSerializer b) = js_eq a b - -instance PToJSVal XMLSerializer where - pToJSVal = unXMLSerializer - {-# INLINE pToJSVal #-} - -instance PFromJSVal XMLSerializer where - pFromJSVal = XMLSerializer - {-# INLINE pFromJSVal #-} - -instance ToJSVal XMLSerializer where - toJSVal = return . unXMLSerializer - {-# INLINE toJSVal #-} - -instance FromJSVal XMLSerializer where - fromJSVal = return . fmap XMLSerializer . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsGObject XMLSerializer where - toGObject = GObject . unXMLSerializer - {-# INLINE toGObject #-} - unsafeCastGObject = XMLSerializer . unGObject - {-# INLINE unsafeCastGObject #-} - -castToXMLSerializer :: IsGObject obj => obj -> IO XMLSerializer -castToXMLSerializer = castTo gTypeXMLSerializer "XMLSerializer" - -foreign import javascript unsafe "window[\"XMLSerializer\"]" gTypeXMLSerializer :: GType - --- | Functions for this inteface are in "GHCJS.DOM.XPathEvaluator". --- --- -newtype XPathEvaluator = XPathEvaluator { unXPathEvaluator :: JSVal } - -instance Eq (XPathEvaluator) where - (XPathEvaluator a) == (XPathEvaluator b) = js_eq a b - -instance PToJSVal XPathEvaluator where - pToJSVal = unXPathEvaluator - {-# INLINE pToJSVal #-} - -instance PFromJSVal XPathEvaluator where - pFromJSVal = XPathEvaluator - {-# INLINE pFromJSVal #-} - -instance ToJSVal XPathEvaluator where - toJSVal = return . unXPathEvaluator - {-# INLINE toJSVal #-} - -instance FromJSVal XPathEvaluator where - fromJSVal = return . fmap XPathEvaluator . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsGObject XPathEvaluator where - toGObject = GObject . unXPathEvaluator - {-# INLINE toGObject #-} - unsafeCastGObject = XPathEvaluator . unGObject - {-# INLINE unsafeCastGObject #-} - -castToXPathEvaluator :: IsGObject obj => obj -> IO XPathEvaluator -castToXPathEvaluator = castTo gTypeXPathEvaluator "XPathEvaluator" - -foreign import javascript unsafe "window[\"XPathEvaluator\"]" gTypeXPathEvaluator :: GType - --- | Functions for this inteface are in "GHCJS.DOM.XPathExpression". --- --- -newtype XPathExpression = XPathExpression { unXPathExpression :: JSVal } - -instance Eq (XPathExpression) where - (XPathExpression a) == (XPathExpression b) = js_eq a b - -instance PToJSVal XPathExpression where - pToJSVal = unXPathExpression - {-# INLINE pToJSVal #-} - -instance PFromJSVal XPathExpression where - pFromJSVal = XPathExpression - {-# INLINE pFromJSVal #-} - -instance ToJSVal XPathExpression where - toJSVal = return . unXPathExpression - {-# INLINE toJSVal #-} - -instance FromJSVal XPathExpression where - fromJSVal = return . fmap XPathExpression . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsGObject XPathExpression where - toGObject = GObject . unXPathExpression - {-# INLINE toGObject #-} - unsafeCastGObject = XPathExpression . unGObject - {-# INLINE unsafeCastGObject #-} - -castToXPathExpression :: IsGObject obj => obj -> IO XPathExpression -castToXPathExpression = castTo gTypeXPathExpression "XPathExpression" - -foreign import javascript unsafe "window[\"XPathExpression\"]" gTypeXPathExpression :: GType - --- | Functions for this inteface are in "GHCJS.DOM.XPathNSResolver". --- --- -newtype XPathNSResolver = XPathNSResolver { unXPathNSResolver :: JSVal } - -instance Eq (XPathNSResolver) where - (XPathNSResolver a) == (XPathNSResolver b) = js_eq a b - -instance PToJSVal XPathNSResolver where - pToJSVal = unXPathNSResolver - {-# INLINE pToJSVal #-} - -instance PFromJSVal XPathNSResolver where - pFromJSVal = XPathNSResolver - {-# INLINE pFromJSVal #-} - -instance ToJSVal XPathNSResolver where - toJSVal = return . unXPathNSResolver - {-# INLINE toJSVal #-} - -instance FromJSVal XPathNSResolver where - fromJSVal = return . fmap XPathNSResolver . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsGObject XPathNSResolver where - toGObject = GObject . unXPathNSResolver - {-# INLINE toGObject #-} - unsafeCastGObject = XPathNSResolver . unGObject - {-# INLINE unsafeCastGObject #-} - -castToXPathNSResolver :: IsGObject obj => obj -> IO XPathNSResolver -castToXPathNSResolver = castTo gTypeXPathNSResolver "XPathNSResolver" - -foreign import javascript unsafe "window[\"XPathNSResolver\"]" gTypeXPathNSResolver :: GType - --- | Functions for this inteface are in "GHCJS.DOM.XPathResult". --- --- -newtype XPathResult = XPathResult { unXPathResult :: JSVal } - -instance Eq (XPathResult) where - (XPathResult a) == (XPathResult b) = js_eq a b - -instance PToJSVal XPathResult where - pToJSVal = unXPathResult - {-# INLINE pToJSVal #-} - -instance PFromJSVal XPathResult where - pFromJSVal = XPathResult - {-# INLINE pFromJSVal #-} - -instance ToJSVal XPathResult where - toJSVal = return . unXPathResult - {-# INLINE toJSVal #-} - -instance FromJSVal XPathResult where - fromJSVal = return . fmap XPathResult . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsGObject XPathResult where - toGObject = GObject . unXPathResult - {-# INLINE toGObject #-} - unsafeCastGObject = XPathResult . unGObject - {-# INLINE unsafeCastGObject #-} - -castToXPathResult :: IsGObject obj => obj -> IO XPathResult -castToXPathResult = castTo gTypeXPathResult "XPathResult" - -foreign import javascript unsafe "window[\"XPathResult\"]" gTypeXPathResult :: GType - --- | Functions for this inteface are in "GHCJS.DOM.XSLTProcessor". --- --- -newtype XSLTProcessor = XSLTProcessor { unXSLTProcessor :: JSVal } - -instance Eq (XSLTProcessor) where - (XSLTProcessor a) == (XSLTProcessor b) = js_eq a b - -instance PToJSVal XSLTProcessor where - pToJSVal = unXSLTProcessor - {-# INLINE pToJSVal #-} - -instance PFromJSVal XSLTProcessor where - pFromJSVal = XSLTProcessor - {-# INLINE pFromJSVal #-} - -instance ToJSVal XSLTProcessor where - toJSVal = return . unXSLTProcessor - {-# INLINE toJSVal #-} - -instance FromJSVal XSLTProcessor where - fromJSVal = return . fmap XSLTProcessor . maybeJSNullOrUndefined - {-# INLINE fromJSVal #-} - -instance IsGObject XSLTProcessor where - toGObject = GObject . unXSLTProcessor - {-# INLINE toGObject #-} - unsafeCastGObject = XSLTProcessor . unGObject - {-# INLINE unsafeCastGObject #-} - -castToXSLTProcessor :: IsGObject obj => obj -> IO XSLTProcessor -castToXSLTProcessor = castTo gTypeXSLTProcessor "XSLTProcessor" - -foreign import javascript unsafe "window[\"XSLTProcessor\"]" gTypeXSLTProcessor :: GType - diff --git a/src/GHCJS/DOM/UIEvent.hs b/src/GHCJS/DOM/UIEvent.hs deleted file mode 100644 --- a/src/GHCJS/DOM/UIEvent.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.UIEvent ( - module GHCJS.DOM.JSFFI.Generated.UIEvent - ) where -import GHCJS.DOM.JSFFI.Generated.UIEvent diff --git a/src/GHCJS/DOM/UIRequestEvent.hs b/src/GHCJS/DOM/UIRequestEvent.hs deleted file mode 100644 --- a/src/GHCJS/DOM/UIRequestEvent.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.UIRequestEvent ( - module GHCJS.DOM.JSFFI.Generated.UIRequestEvent - ) where -import GHCJS.DOM.JSFFI.Generated.UIRequestEvent diff --git a/src/GHCJS/DOM/URL.hs b/src/GHCJS/DOM/URL.hs deleted file mode 100644 --- a/src/GHCJS/DOM/URL.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.URL ( - module GHCJS.DOM.JSFFI.Generated.URL - ) where -import GHCJS.DOM.JSFFI.Generated.URL diff --git a/src/GHCJS/DOM/URLUtils.hs b/src/GHCJS/DOM/URLUtils.hs deleted file mode 100644 --- a/src/GHCJS/DOM/URLUtils.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.URLUtils ( - module GHCJS.DOM.JSFFI.Generated.URLUtils - ) where -import GHCJS.DOM.JSFFI.Generated.URLUtils diff --git a/src/GHCJS/DOM/UserMessageHandler.hs b/src/GHCJS/DOM/UserMessageHandler.hs deleted file mode 100644 --- a/src/GHCJS/DOM/UserMessageHandler.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.UserMessageHandler ( - module GHCJS.DOM.JSFFI.Generated.UserMessageHandler - ) where -import GHCJS.DOM.JSFFI.Generated.UserMessageHandler diff --git a/src/GHCJS/DOM/VTTCue.hs b/src/GHCJS/DOM/VTTCue.hs deleted file mode 100644 --- a/src/GHCJS/DOM/VTTCue.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.VTTCue ( - module GHCJS.DOM.JSFFI.Generated.VTTCue - ) where -import GHCJS.DOM.JSFFI.Generated.VTTCue diff --git a/src/GHCJS/DOM/VTTRegion.hs b/src/GHCJS/DOM/VTTRegion.hs deleted file mode 100644 --- a/src/GHCJS/DOM/VTTRegion.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.VTTRegion ( - module GHCJS.DOM.JSFFI.Generated.VTTRegion - ) where -import GHCJS.DOM.JSFFI.Generated.VTTRegion diff --git a/src/GHCJS/DOM/VTTRegionList.hs b/src/GHCJS/DOM/VTTRegionList.hs deleted file mode 100644 --- a/src/GHCJS/DOM/VTTRegionList.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.VTTRegionList ( - module GHCJS.DOM.JSFFI.Generated.VTTRegionList - ) where -import GHCJS.DOM.JSFFI.Generated.VTTRegionList diff --git a/src/GHCJS/DOM/ValidityState.hs b/src/GHCJS/DOM/ValidityState.hs deleted file mode 100644 --- a/src/GHCJS/DOM/ValidityState.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.ValidityState ( - module GHCJS.DOM.JSFFI.Generated.ValidityState - ) where -import GHCJS.DOM.JSFFI.Generated.ValidityState diff --git a/src/GHCJS/DOM/VideoPlaybackQuality.hs b/src/GHCJS/DOM/VideoPlaybackQuality.hs deleted file mode 100644 --- a/src/GHCJS/DOM/VideoPlaybackQuality.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.VideoPlaybackQuality ( - module GHCJS.DOM.JSFFI.Generated.VideoPlaybackQuality - ) where -import GHCJS.DOM.JSFFI.Generated.VideoPlaybackQuality diff --git a/src/GHCJS/DOM/VideoStreamTrack.hs b/src/GHCJS/DOM/VideoStreamTrack.hs deleted file mode 100644 --- a/src/GHCJS/DOM/VideoStreamTrack.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.VideoStreamTrack ( - module GHCJS.DOM.JSFFI.Generated.VideoStreamTrack - ) where -import GHCJS.DOM.JSFFI.Generated.VideoStreamTrack diff --git a/src/GHCJS/DOM/VideoTrack.hs b/src/GHCJS/DOM/VideoTrack.hs deleted file mode 100644 --- a/src/GHCJS/DOM/VideoTrack.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.VideoTrack ( - module GHCJS.DOM.JSFFI.Generated.VideoTrack - ) where -import GHCJS.DOM.JSFFI.Generated.VideoTrack diff --git a/src/GHCJS/DOM/VideoTrackList.hs b/src/GHCJS/DOM/VideoTrackList.hs deleted file mode 100644 --- a/src/GHCJS/DOM/VideoTrackList.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.VideoTrackList ( - module GHCJS.DOM.JSFFI.Generated.VideoTrackList - ) where -import GHCJS.DOM.JSFFI.Generated.VideoTrackList diff --git a/src/GHCJS/DOM/VoidCallback.hs b/src/GHCJS/DOM/VoidCallback.hs deleted file mode 100644 --- a/src/GHCJS/DOM/VoidCallback.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.VoidCallback ( - module GHCJS.DOM.JSFFI.Generated.VoidCallback - ) where -import GHCJS.DOM.JSFFI.Generated.VoidCallback diff --git a/src/GHCJS/DOM/WaveShaperNode.hs b/src/GHCJS/DOM/WaveShaperNode.hs deleted file mode 100644 --- a/src/GHCJS/DOM/WaveShaperNode.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.WaveShaperNode ( - module GHCJS.DOM.JSFFI.Generated.WaveShaperNode - ) where -import GHCJS.DOM.JSFFI.Generated.WaveShaperNode diff --git a/src/GHCJS/DOM/WebGL2RenderingContext.hs b/src/GHCJS/DOM/WebGL2RenderingContext.hs deleted file mode 100644 --- a/src/GHCJS/DOM/WebGL2RenderingContext.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.WebGL2RenderingContext ( - module GHCJS.DOM.JSFFI.Generated.WebGL2RenderingContext - ) where -import GHCJS.DOM.JSFFI.Generated.WebGL2RenderingContext diff --git a/src/GHCJS/DOM/WebGLActiveInfo.hs b/src/GHCJS/DOM/WebGLActiveInfo.hs deleted file mode 100644 --- a/src/GHCJS/DOM/WebGLActiveInfo.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.WebGLActiveInfo ( - module GHCJS.DOM.JSFFI.Generated.WebGLActiveInfo - ) where -import GHCJS.DOM.JSFFI.Generated.WebGLActiveInfo diff --git a/src/GHCJS/DOM/WebGLCompressedTextureATC.hs b/src/GHCJS/DOM/WebGLCompressedTextureATC.hs deleted file mode 100644 --- a/src/GHCJS/DOM/WebGLCompressedTextureATC.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.WebGLCompressedTextureATC ( - module GHCJS.DOM.JSFFI.Generated.WebGLCompressedTextureATC - ) where -import GHCJS.DOM.JSFFI.Generated.WebGLCompressedTextureATC diff --git a/src/GHCJS/DOM/WebGLCompressedTexturePVRTC.hs b/src/GHCJS/DOM/WebGLCompressedTexturePVRTC.hs deleted file mode 100644 --- a/src/GHCJS/DOM/WebGLCompressedTexturePVRTC.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.WebGLCompressedTexturePVRTC ( - module GHCJS.DOM.JSFFI.Generated.WebGLCompressedTexturePVRTC - ) where -import GHCJS.DOM.JSFFI.Generated.WebGLCompressedTexturePVRTC diff --git a/src/GHCJS/DOM/WebGLCompressedTextureS3TC.hs b/src/GHCJS/DOM/WebGLCompressedTextureS3TC.hs deleted file mode 100644 --- a/src/GHCJS/DOM/WebGLCompressedTextureS3TC.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.WebGLCompressedTextureS3TC ( - module GHCJS.DOM.JSFFI.Generated.WebGLCompressedTextureS3TC - ) where -import GHCJS.DOM.JSFFI.Generated.WebGLCompressedTextureS3TC diff --git a/src/GHCJS/DOM/WebGLContextAttributes.hs b/src/GHCJS/DOM/WebGLContextAttributes.hs deleted file mode 100644 --- a/src/GHCJS/DOM/WebGLContextAttributes.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.WebGLContextAttributes ( - module GHCJS.DOM.JSFFI.Generated.WebGLContextAttributes - ) where -import GHCJS.DOM.JSFFI.Generated.WebGLContextAttributes diff --git a/src/GHCJS/DOM/WebGLContextEvent.hs b/src/GHCJS/DOM/WebGLContextEvent.hs deleted file mode 100644 --- a/src/GHCJS/DOM/WebGLContextEvent.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.WebGLContextEvent ( - module GHCJS.DOM.JSFFI.Generated.WebGLContextEvent - ) where -import GHCJS.DOM.JSFFI.Generated.WebGLContextEvent diff --git a/src/GHCJS/DOM/WebGLDebugRendererInfo.hs b/src/GHCJS/DOM/WebGLDebugRendererInfo.hs deleted file mode 100644 --- a/src/GHCJS/DOM/WebGLDebugRendererInfo.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.WebGLDebugRendererInfo ( - module GHCJS.DOM.JSFFI.Generated.WebGLDebugRendererInfo - ) where -import GHCJS.DOM.JSFFI.Generated.WebGLDebugRendererInfo diff --git a/src/GHCJS/DOM/WebGLDebugShaders.hs b/src/GHCJS/DOM/WebGLDebugShaders.hs deleted file mode 100644 --- a/src/GHCJS/DOM/WebGLDebugShaders.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.WebGLDebugShaders ( - module GHCJS.DOM.JSFFI.Generated.WebGLDebugShaders - ) where -import GHCJS.DOM.JSFFI.Generated.WebGLDebugShaders diff --git a/src/GHCJS/DOM/WebGLDepthTexture.hs b/src/GHCJS/DOM/WebGLDepthTexture.hs deleted file mode 100644 --- a/src/GHCJS/DOM/WebGLDepthTexture.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.WebGLDepthTexture ( - module GHCJS.DOM.JSFFI.Generated.WebGLDepthTexture - ) where -import GHCJS.DOM.JSFFI.Generated.WebGLDepthTexture diff --git a/src/GHCJS/DOM/WebGLDrawBuffers.hs b/src/GHCJS/DOM/WebGLDrawBuffers.hs deleted file mode 100644 --- a/src/GHCJS/DOM/WebGLDrawBuffers.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.WebGLDrawBuffers ( - module GHCJS.DOM.JSFFI.Generated.WebGLDrawBuffers - ) where -import GHCJS.DOM.JSFFI.Generated.WebGLDrawBuffers diff --git a/src/GHCJS/DOM/WebGLLoseContext.hs b/src/GHCJS/DOM/WebGLLoseContext.hs deleted file mode 100644 --- a/src/GHCJS/DOM/WebGLLoseContext.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.WebGLLoseContext ( - module GHCJS.DOM.JSFFI.Generated.WebGLLoseContext - ) where -import GHCJS.DOM.JSFFI.Generated.WebGLLoseContext diff --git a/src/GHCJS/DOM/WebGLRenderingContextBase.hs b/src/GHCJS/DOM/WebGLRenderingContextBase.hs deleted file mode 100644 --- a/src/GHCJS/DOM/WebGLRenderingContextBase.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.WebGLRenderingContextBase ( - module GHCJS.DOM.JSFFI.Generated.WebGLRenderingContextBase - ) where -import GHCJS.DOM.JSFFI.Generated.WebGLRenderingContextBase diff --git a/src/GHCJS/DOM/WebGLShaderPrecisionFormat.hs b/src/GHCJS/DOM/WebGLShaderPrecisionFormat.hs deleted file mode 100644 --- a/src/GHCJS/DOM/WebGLShaderPrecisionFormat.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.WebGLShaderPrecisionFormat ( - module GHCJS.DOM.JSFFI.Generated.WebGLShaderPrecisionFormat - ) where -import GHCJS.DOM.JSFFI.Generated.WebGLShaderPrecisionFormat diff --git a/src/GHCJS/DOM/WebKitAnimationEvent.hs b/src/GHCJS/DOM/WebKitAnimationEvent.hs deleted file mode 100644 --- a/src/GHCJS/DOM/WebKitAnimationEvent.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.WebKitAnimationEvent ( - module GHCJS.DOM.JSFFI.Generated.WebKitAnimationEvent - ) where -import GHCJS.DOM.JSFFI.Generated.WebKitAnimationEvent diff --git a/src/GHCJS/DOM/WebKitCSSFilterValue.hs b/src/GHCJS/DOM/WebKitCSSFilterValue.hs deleted file mode 100644 --- a/src/GHCJS/DOM/WebKitCSSFilterValue.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.WebKitCSSFilterValue ( - module GHCJS.DOM.JSFFI.Generated.WebKitCSSFilterValue - ) where -import GHCJS.DOM.JSFFI.Generated.WebKitCSSFilterValue diff --git a/src/GHCJS/DOM/WebKitCSSMatrix.hs b/src/GHCJS/DOM/WebKitCSSMatrix.hs deleted file mode 100644 --- a/src/GHCJS/DOM/WebKitCSSMatrix.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.WebKitCSSMatrix ( - module GHCJS.DOM.JSFFI.Generated.WebKitCSSMatrix - ) where -import GHCJS.DOM.JSFFI.Generated.WebKitCSSMatrix diff --git a/src/GHCJS/DOM/WebKitCSSRegionRule.hs b/src/GHCJS/DOM/WebKitCSSRegionRule.hs deleted file mode 100644 --- a/src/GHCJS/DOM/WebKitCSSRegionRule.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.WebKitCSSRegionRule ( - module GHCJS.DOM.JSFFI.Generated.WebKitCSSRegionRule - ) where -import GHCJS.DOM.JSFFI.Generated.WebKitCSSRegionRule diff --git a/src/GHCJS/DOM/WebKitCSSTransformValue.hs b/src/GHCJS/DOM/WebKitCSSTransformValue.hs deleted file mode 100644 --- a/src/GHCJS/DOM/WebKitCSSTransformValue.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.WebKitCSSTransformValue ( - module GHCJS.DOM.JSFFI.Generated.WebKitCSSTransformValue - ) where -import GHCJS.DOM.JSFFI.Generated.WebKitCSSTransformValue diff --git a/src/GHCJS/DOM/WebKitCSSViewportRule.hs b/src/GHCJS/DOM/WebKitCSSViewportRule.hs deleted file mode 100644 --- a/src/GHCJS/DOM/WebKitCSSViewportRule.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.WebKitCSSViewportRule ( - module GHCJS.DOM.JSFFI.Generated.WebKitCSSViewportRule - ) where -import GHCJS.DOM.JSFFI.Generated.WebKitCSSViewportRule diff --git a/src/GHCJS/DOM/WebKitNamedFlow.hs b/src/GHCJS/DOM/WebKitNamedFlow.hs deleted file mode 100644 --- a/src/GHCJS/DOM/WebKitNamedFlow.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.WebKitNamedFlow ( - module GHCJS.DOM.JSFFI.Generated.WebKitNamedFlow - ) where -import GHCJS.DOM.JSFFI.Generated.WebKitNamedFlow diff --git a/src/GHCJS/DOM/WebKitNamespace.hs b/src/GHCJS/DOM/WebKitNamespace.hs deleted file mode 100644 --- a/src/GHCJS/DOM/WebKitNamespace.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.WebKitNamespace ( - module GHCJS.DOM.JSFFI.Generated.WebKitNamespace - ) where -import GHCJS.DOM.JSFFI.Generated.WebKitNamespace diff --git a/src/GHCJS/DOM/WebKitPlaybackTargetAvailabilityEvent.hs b/src/GHCJS/DOM/WebKitPlaybackTargetAvailabilityEvent.hs deleted file mode 100644 --- a/src/GHCJS/DOM/WebKitPlaybackTargetAvailabilityEvent.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.WebKitPlaybackTargetAvailabilityEvent ( - module GHCJS.DOM.JSFFI.Generated.WebKitPlaybackTargetAvailabilityEvent - ) where -import GHCJS.DOM.JSFFI.Generated.WebKitPlaybackTargetAvailabilityEvent diff --git a/src/GHCJS/DOM/WebKitPoint.hs b/src/GHCJS/DOM/WebKitPoint.hs deleted file mode 100644 --- a/src/GHCJS/DOM/WebKitPoint.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.WebKitPoint ( - module GHCJS.DOM.JSFFI.Generated.WebKitPoint - ) where -import GHCJS.DOM.JSFFI.Generated.WebKitPoint diff --git a/src/GHCJS/DOM/WebKitTransitionEvent.hs b/src/GHCJS/DOM/WebKitTransitionEvent.hs deleted file mode 100644 --- a/src/GHCJS/DOM/WebKitTransitionEvent.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.WebKitTransitionEvent ( - module GHCJS.DOM.JSFFI.Generated.WebKitTransitionEvent - ) where -import GHCJS.DOM.JSFFI.Generated.WebKitTransitionEvent diff --git a/src/GHCJS/DOM/WebSocket.hs b/src/GHCJS/DOM/WebSocket.hs deleted file mode 100644 --- a/src/GHCJS/DOM/WebSocket.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.WebSocket ( - module GHCJS.DOM.JSFFI.Generated.WebSocket - ) where -import GHCJS.DOM.JSFFI.Generated.WebSocket diff --git a/src/GHCJS/DOM/WheelEvent.hs b/src/GHCJS/DOM/WheelEvent.hs deleted file mode 100644 --- a/src/GHCJS/DOM/WheelEvent.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.WheelEvent ( - module GHCJS.DOM.JSFFI.Generated.WheelEvent - ) where -import GHCJS.DOM.JSFFI.Generated.WheelEvent diff --git a/src/GHCJS/DOM/Window.hs b/src/GHCJS/DOM/Window.hs deleted file mode 100644 --- a/src/GHCJS/DOM/Window.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.Window ( - module GHCJS.DOM.JSFFI.Window - ) where -import GHCJS.DOM.JSFFI.Window diff --git a/src/GHCJS/DOM/WindowBase64.hs b/src/GHCJS/DOM/WindowBase64.hs deleted file mode 100644 --- a/src/GHCJS/DOM/WindowBase64.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.WindowBase64 ( - module GHCJS.DOM.JSFFI.Generated.WindowBase64 - ) where -import GHCJS.DOM.JSFFI.Generated.WindowBase64 diff --git a/src/GHCJS/DOM/WindowTimers.hs b/src/GHCJS/DOM/WindowTimers.hs deleted file mode 100644 --- a/src/GHCJS/DOM/WindowTimers.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.WindowTimers ( - module GHCJS.DOM.JSFFI.Generated.WindowTimers - ) where -import GHCJS.DOM.JSFFI.Generated.WindowTimers diff --git a/src/GHCJS/DOM/Worker.hs b/src/GHCJS/DOM/Worker.hs deleted file mode 100644 --- a/src/GHCJS/DOM/Worker.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.Worker ( - module GHCJS.DOM.JSFFI.Generated.Worker - ) where -import GHCJS.DOM.JSFFI.Generated.Worker diff --git a/src/GHCJS/DOM/WorkerGlobalScope.hs b/src/GHCJS/DOM/WorkerGlobalScope.hs deleted file mode 100644 --- a/src/GHCJS/DOM/WorkerGlobalScope.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.WorkerGlobalScope ( - module GHCJS.DOM.JSFFI.Generated.WorkerGlobalScope - ) where -import GHCJS.DOM.JSFFI.Generated.WorkerGlobalScope diff --git a/src/GHCJS/DOM/WorkerLocation.hs b/src/GHCJS/DOM/WorkerLocation.hs deleted file mode 100644 --- a/src/GHCJS/DOM/WorkerLocation.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.WorkerLocation ( - module GHCJS.DOM.JSFFI.Generated.WorkerLocation - ) where -import GHCJS.DOM.JSFFI.Generated.WorkerLocation diff --git a/src/GHCJS/DOM/WorkerNavigator.hs b/src/GHCJS/DOM/WorkerNavigator.hs deleted file mode 100644 --- a/src/GHCJS/DOM/WorkerNavigator.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.WorkerNavigator ( - module GHCJS.DOM.JSFFI.Generated.WorkerNavigator - ) where -import GHCJS.DOM.JSFFI.Generated.WorkerNavigator diff --git a/src/GHCJS/DOM/XMLHttpRequest.hs b/src/GHCJS/DOM/XMLHttpRequest.hs deleted file mode 100644 --- a/src/GHCJS/DOM/XMLHttpRequest.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.XMLHttpRequest ( - module GHCJS.DOM.JSFFI.XMLHttpRequest - ) where -import GHCJS.DOM.JSFFI.XMLHttpRequest diff --git a/src/GHCJS/DOM/XMLHttpRequestProgressEvent.hs b/src/GHCJS/DOM/XMLHttpRequestProgressEvent.hs deleted file mode 100644 --- a/src/GHCJS/DOM/XMLHttpRequestProgressEvent.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.XMLHttpRequestProgressEvent ( - module GHCJS.DOM.JSFFI.Generated.XMLHttpRequestProgressEvent - ) where -import GHCJS.DOM.JSFFI.Generated.XMLHttpRequestProgressEvent diff --git a/src/GHCJS/DOM/XMLHttpRequestUpload.hs b/src/GHCJS/DOM/XMLHttpRequestUpload.hs deleted file mode 100644 --- a/src/GHCJS/DOM/XMLHttpRequestUpload.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.XMLHttpRequestUpload ( - module GHCJS.DOM.JSFFI.Generated.XMLHttpRequestUpload - ) where -import GHCJS.DOM.JSFFI.Generated.XMLHttpRequestUpload diff --git a/src/GHCJS/DOM/XMLSerializer.hs b/src/GHCJS/DOM/XMLSerializer.hs deleted file mode 100644 --- a/src/GHCJS/DOM/XMLSerializer.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.XMLSerializer ( - module GHCJS.DOM.JSFFI.Generated.XMLSerializer - ) where -import GHCJS.DOM.JSFFI.Generated.XMLSerializer diff --git a/src/GHCJS/DOM/XPathEvaluator.hs b/src/GHCJS/DOM/XPathEvaluator.hs deleted file mode 100644 --- a/src/GHCJS/DOM/XPathEvaluator.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.XPathEvaluator ( - module GHCJS.DOM.JSFFI.Generated.XPathEvaluator - ) where -import GHCJS.DOM.JSFFI.Generated.XPathEvaluator diff --git a/src/GHCJS/DOM/XPathExpression.hs b/src/GHCJS/DOM/XPathExpression.hs deleted file mode 100644 --- a/src/GHCJS/DOM/XPathExpression.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.XPathExpression ( - module GHCJS.DOM.JSFFI.Generated.XPathExpression - ) where -import GHCJS.DOM.JSFFI.Generated.XPathExpression diff --git a/src/GHCJS/DOM/XPathNSResolver.hs b/src/GHCJS/DOM/XPathNSResolver.hs deleted file mode 100644 --- a/src/GHCJS/DOM/XPathNSResolver.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.XPathNSResolver ( - module GHCJS.DOM.JSFFI.Generated.XPathNSResolver - ) where -import GHCJS.DOM.JSFFI.Generated.XPathNSResolver diff --git a/src/GHCJS/DOM/XPathResult.hs b/src/GHCJS/DOM/XPathResult.hs deleted file mode 100644 --- a/src/GHCJS/DOM/XPathResult.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.XPathResult ( - module GHCJS.DOM.JSFFI.Generated.XPathResult - ) where -import GHCJS.DOM.JSFFI.Generated.XPathResult diff --git a/src/GHCJS/DOM/XSLTProcessor.hs b/src/GHCJS/DOM/XSLTProcessor.hs deleted file mode 100644 --- a/src/GHCJS/DOM/XSLTProcessor.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.XSLTProcessor ( - module GHCJS.DOM.JSFFI.Generated.XSLTProcessor - ) where -import GHCJS.DOM.JSFFI.Generated.XSLTProcessor diff --git a/webkit/GHCJS/DOM.hs b/webkit/GHCJS/DOM.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM.hs +++ /dev/null @@ -1,167 +0,0 @@ -{-# LANGUAGE CPP, ForeignFunctionInterface, OverloadedStrings #-} -#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -{-# LANGUAGE JavaScriptFFI #-} -#endif -module GHCJS.DOM ( - currentWindow -, currentDocument -, WebView(..) -, webViewGetDomDocument -, runWebGUI -, enableInspector -, postGUISync -, postGUIAsync -) where - -import qualified Data.Text as T -import Data.Monoid ((<>)) -#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -import GHCJS.Types (JSVal(..)) -import Control.Applicative ((<$>)) -#else -import Graphics.UI.Gtk.WebKit.WebView - (webViewSetWebSettings, webViewGetWebSettings, loadStarted, - webViewLoadUri, loadFinished, webViewNew, webViewGetDomDocument, - webViewGetInspector) -import Graphics.UI.Gtk.WebKit.WebInspector - (showWindow, inspectWebView) -import Graphics.UI.Gtk - (timeoutAddFull, widgetShowAll, mainQuit, objectDestroy, - WindowPosition(..), containerAdd, scrolledWindowNew, - windowSetPosition, windowSetDefaultSize, windowNew, mainGUI, - initGUI, postGUISync, postGUIAsync) -import System.Glib.Signals (on) -import System.Glib.Attributes (get, AttrOp(..), set) -import System.Glib.FFI (maybeNull) -import System.Glib.MainLoop (priorityLow) -import Graphics.UI.Gtk.WebKit.WebSettings - (webSettingsMonospaceFontFamily, webSettingsUserAgent, - webSettingsEnableDeveloperExtras) -import Control.Monad.IO.Class (liftIO) -#endif - -import GHCJS.DOM.Types -import GHCJS.DOM.Window (getNavigator, getDocument) -import GHCJS.DOM.Navigator (getUserAgent) -import Foreign (ForeignPtr, nullPtr, Ptr) -import Control.Monad (unless, forever, liftM) -import Control.Concurrent - (yield, threadDelay, takeMVar, newEmptyMVar) -import System.Environment (getArgs) -import Data.List (isSuffixOf) - -#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -postGUIAsync :: IO () -> IO () -postGUIAsync = id - -postGUISync :: IO a -> IO a -postGUISync = id - -#ifdef ghcjs_HOST_OS -foreign import javascript unsafe "$r = window" - ghcjs_currentWindow :: IO (Nullable Window) -foreign import javascript unsafe "$r = document" - ghcjs_currentDocument :: IO (Nullable Document) -#else -ghcjs_currentWindow :: IO (Nullable Window) -ghcjs_currentWindow = undefined -ghcjs_currentDocument :: IO (Nullable Document) -ghcjs_currentDocument = undefined -#endif - -currentWindow :: IO (Maybe Window) -currentWindow = nullableToMaybe <$> ghcjs_currentWindow -currentDocument :: IO (Maybe Document) -currentDocument = nullableToMaybe <$> ghcjs_currentDocument - -type WebView = Window -castToWebView = id - -webViewGetDomDocument :: Window -> IO (Maybe Document) -webViewGetDomDocument = getDocument -#else -foreign import ccall safe "ghcjs_currentWindow" - ghcjs_currentWindow :: IO (Ptr Window) - -currentWindow :: IO (Maybe Window) -currentWindow = maybeNull (makeNewGObject mkWindow) ghcjs_currentWindow - -foreign import ccall unsafe "ghcjs_currentDocument" - ghcjs_currentDocument :: IO (Ptr Document) - -currentDocument :: IO (Maybe Document) -currentDocument = maybeNull (makeNewGObject mkDocument) ghcjs_currentDocument -#endif - -runWebGUI :: (WebView -> IO ()) -> IO () -runWebGUI = runWebGUI' "GHCJS" - -runWebGUI' :: T.Text -> (WebView -> IO ()) -> IO () -runWebGUI' userAgentKey main = do - -- Are we in a java script inside some kind of browser - mbWindow <- currentWindow - case mbWindow of - Just window -> do - -- Check if we are running in javascript inside the the native version - Just n <- getNavigator window - agent <- getUserAgent n - unless ((" " <> userAgentKey) `T.isSuffixOf` agent) $ main (castToWebView window) - Nothing -> do - makeDefaultWebView userAgentKey main - -makeDefaultWebView :: T.Text -> (WebView -> IO ()) -> IO () -#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -makeDefaultWebView _ _ = error "Unsupported makeDefaultWebView" -#else -makeDefaultWebView userAgentKey main = do - initGUI - window <- windowNew - timeoutAddFull (yield >> return True) priorityLow 10 - windowSetDefaultSize window 900 600 - windowSetPosition window WinPosCenter - scrollWin <- scrolledWindowNew Nothing Nothing - webView <- webViewNew - settings <- webViewGetWebSettings webView - userAgent <- settings `get` webSettingsUserAgent - settings `set` [webSettingsUserAgent := userAgent <> " " <> userAgentKey] - webViewSetWebSettings webView settings - window `containerAdd` scrollWin - scrollWin `containerAdd` webView - on window objectDestroy . liftIO $ mainQuit - widgetShowAll window - webView `on` loadFinished $ \frame -> do - main webView - args <- getArgs - case args of - uri:_ -> webViewLoadUri webView (T.pack uri) - [] -> do - main webView - mainGUI -#endif - -enableInspector :: WebView -> IO () -#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) -enableInspector _ = return () -#else -enableInspector webView = do - settings <- webViewGetWebSettings webView - settings `set` [webSettingsEnableDeveloperExtras := True] - webViewSetWebSettings webView settings - inspector <- webViewGetInspector webView - window <- windowNew - windowSetDefaultSize window 900 300 - scrollWin <- scrolledWindowNew Nothing Nothing - inspector `on` inspectWebView $ \view -> do - inspectorView <- webViewNew - settings <- webViewGetWebSettings inspectorView - settings `set` [webSettingsMonospaceFontFamily := ("Consolas" :: String)] - webViewSetWebSettings inspectorView settings - scrollWin `containerAdd` inspectorView - window `containerAdd` scrollWin - widgetShowAll window - return inspectorView - inspector `on` showWindow $ do - widgetShowAll window - return True - return () -#endif diff --git a/webkit/GHCJS/DOM/ANGLEInstancedArrays.hs b/webkit/GHCJS/DOM/ANGLEInstancedArrays.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/ANGLEInstancedArrays.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.ANGLEInstancedArrays ( - ) where diff --git a/webkit/GHCJS/DOM/AbstractView.hs b/webkit/GHCJS/DOM/AbstractView.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/AbstractView.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.AbstractView ( - ) where diff --git a/webkit/GHCJS/DOM/AbstractWorker.hs b/webkit/GHCJS/DOM/AbstractWorker.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/AbstractWorker.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.AbstractWorker ( - ) where diff --git a/webkit/GHCJS/DOM/AllAudioCapabilities.hs b/webkit/GHCJS/DOM/AllAudioCapabilities.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/AllAudioCapabilities.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.AllAudioCapabilities ( - ) where diff --git a/webkit/GHCJS/DOM/AllVideoCapabilities.hs b/webkit/GHCJS/DOM/AllVideoCapabilities.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/AllVideoCapabilities.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.AllVideoCapabilities ( - ) where diff --git a/webkit/GHCJS/DOM/AnalyserNode.hs b/webkit/GHCJS/DOM/AnalyserNode.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/AnalyserNode.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.AnalyserNode ( - ) where diff --git a/webkit/GHCJS/DOM/AnimationEvent.hs b/webkit/GHCJS/DOM/AnimationEvent.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/AnimationEvent.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.AnimationEvent ( - ) where diff --git a/webkit/GHCJS/DOM/ApplicationCache.hs b/webkit/GHCJS/DOM/ApplicationCache.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/ApplicationCache.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.ApplicationCache ( - module Graphics.UI.Gtk.WebKit.DOM.ApplicationCache - ) where -import Graphics.UI.Gtk.WebKit.DOM.ApplicationCache diff --git a/webkit/GHCJS/DOM/Attr.hs b/webkit/GHCJS/DOM/Attr.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/Attr.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.Attr ( - module Graphics.UI.Gtk.WebKit.DOM.Attr - ) where -import Graphics.UI.Gtk.WebKit.DOM.Attr diff --git a/webkit/GHCJS/DOM/AudioBuffer.hs b/webkit/GHCJS/DOM/AudioBuffer.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/AudioBuffer.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.AudioBuffer ( - ) where diff --git a/webkit/GHCJS/DOM/AudioBufferCallback.hs b/webkit/GHCJS/DOM/AudioBufferCallback.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/AudioBufferCallback.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.AudioBufferCallback ( - ) where diff --git a/webkit/GHCJS/DOM/AudioBufferSourceNode.hs b/webkit/GHCJS/DOM/AudioBufferSourceNode.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/AudioBufferSourceNode.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.AudioBufferSourceNode ( - ) where diff --git a/webkit/GHCJS/DOM/AudioContext.hs b/webkit/GHCJS/DOM/AudioContext.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/AudioContext.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.AudioContext ( - ) where diff --git a/webkit/GHCJS/DOM/AudioDestinationNode.hs b/webkit/GHCJS/DOM/AudioDestinationNode.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/AudioDestinationNode.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.AudioDestinationNode ( - ) where diff --git a/webkit/GHCJS/DOM/AudioListener.hs b/webkit/GHCJS/DOM/AudioListener.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/AudioListener.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.AudioListener ( - ) where diff --git a/webkit/GHCJS/DOM/AudioNode.hs b/webkit/GHCJS/DOM/AudioNode.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/AudioNode.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.AudioNode ( - ) where diff --git a/webkit/GHCJS/DOM/AudioParam.hs b/webkit/GHCJS/DOM/AudioParam.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/AudioParam.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.AudioParam ( - ) where diff --git a/webkit/GHCJS/DOM/AudioProcessingEvent.hs b/webkit/GHCJS/DOM/AudioProcessingEvent.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/AudioProcessingEvent.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.AudioProcessingEvent ( - ) where diff --git a/webkit/GHCJS/DOM/AudioStreamTrack.hs b/webkit/GHCJS/DOM/AudioStreamTrack.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/AudioStreamTrack.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.AudioStreamTrack ( - ) where diff --git a/webkit/GHCJS/DOM/AudioTrack.hs b/webkit/GHCJS/DOM/AudioTrack.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/AudioTrack.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.AudioTrack ( - module Graphics.UI.Gtk.WebKit.DOM.AudioTrack - ) where -import Graphics.UI.Gtk.WebKit.DOM.AudioTrack diff --git a/webkit/GHCJS/DOM/AudioTrackList.hs b/webkit/GHCJS/DOM/AudioTrackList.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/AudioTrackList.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.AudioTrackList ( - module Graphics.UI.Gtk.WebKit.DOM.AudioTrackList - ) where -import Graphics.UI.Gtk.WebKit.DOM.AudioTrackList diff --git a/webkit/GHCJS/DOM/AutocompleteErrorEvent.hs b/webkit/GHCJS/DOM/AutocompleteErrorEvent.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/AutocompleteErrorEvent.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.AutocompleteErrorEvent ( - ) where diff --git a/webkit/GHCJS/DOM/BarProp.hs b/webkit/GHCJS/DOM/BarProp.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/BarProp.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.BarProp ( - module Graphics.UI.Gtk.WebKit.DOM.BarProp - ) where -import Graphics.UI.Gtk.WebKit.DOM.BarProp diff --git a/webkit/GHCJS/DOM/BatteryManager.hs b/webkit/GHCJS/DOM/BatteryManager.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/BatteryManager.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.BatteryManager ( - module Graphics.UI.Gtk.WebKit.DOM.BatteryManager - ) where -import Graphics.UI.Gtk.WebKit.DOM.BatteryManager diff --git a/webkit/GHCJS/DOM/BeforeLoadEvent.hs b/webkit/GHCJS/DOM/BeforeLoadEvent.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/BeforeLoadEvent.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.BeforeLoadEvent ( - ) where diff --git a/webkit/GHCJS/DOM/BeforeUnloadEvent.hs b/webkit/GHCJS/DOM/BeforeUnloadEvent.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/BeforeUnloadEvent.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.BeforeUnloadEvent ( - ) where diff --git a/webkit/GHCJS/DOM/BiquadFilterNode.hs b/webkit/GHCJS/DOM/BiquadFilterNode.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/BiquadFilterNode.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.BiquadFilterNode ( - ) where diff --git a/webkit/GHCJS/DOM/Blob.hs b/webkit/GHCJS/DOM/Blob.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/Blob.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.Blob ( - module Graphics.UI.Gtk.WebKit.DOM.Blob - ) where -import Graphics.UI.Gtk.WebKit.DOM.Blob diff --git a/webkit/GHCJS/DOM/CSS.hs b/webkit/GHCJS/DOM/CSS.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/CSS.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.CSS ( - module Graphics.UI.Gtk.WebKit.DOM.CSS - ) where -import Graphics.UI.Gtk.WebKit.DOM.CSS diff --git a/webkit/GHCJS/DOM/CSSCharsetRule.hs b/webkit/GHCJS/DOM/CSSCharsetRule.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/CSSCharsetRule.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.CSSCharsetRule ( - ) where diff --git a/webkit/GHCJS/DOM/CSSFontFaceLoadEvent.hs b/webkit/GHCJS/DOM/CSSFontFaceLoadEvent.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/CSSFontFaceLoadEvent.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.CSSFontFaceLoadEvent ( - ) where diff --git a/webkit/GHCJS/DOM/CSSFontFaceRule.hs b/webkit/GHCJS/DOM/CSSFontFaceRule.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/CSSFontFaceRule.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.CSSFontFaceRule ( - ) where diff --git a/webkit/GHCJS/DOM/CSSImportRule.hs b/webkit/GHCJS/DOM/CSSImportRule.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/CSSImportRule.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.CSSImportRule ( - ) where diff --git a/webkit/GHCJS/DOM/CSSKeyframeRule.hs b/webkit/GHCJS/DOM/CSSKeyframeRule.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/CSSKeyframeRule.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.CSSKeyframeRule ( - ) where diff --git a/webkit/GHCJS/DOM/CSSKeyframesRule.hs b/webkit/GHCJS/DOM/CSSKeyframesRule.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/CSSKeyframesRule.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.CSSKeyframesRule ( - ) where diff --git a/webkit/GHCJS/DOM/CSSMediaRule.hs b/webkit/GHCJS/DOM/CSSMediaRule.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/CSSMediaRule.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.CSSMediaRule ( - ) where diff --git a/webkit/GHCJS/DOM/CSSPageRule.hs b/webkit/GHCJS/DOM/CSSPageRule.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/CSSPageRule.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.CSSPageRule ( - ) where diff --git a/webkit/GHCJS/DOM/CSSPrimitiveValue.hs b/webkit/GHCJS/DOM/CSSPrimitiveValue.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/CSSPrimitiveValue.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.CSSPrimitiveValue ( - ) where diff --git a/webkit/GHCJS/DOM/CSSRule.hs b/webkit/GHCJS/DOM/CSSRule.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/CSSRule.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.CSSRule ( - module Graphics.UI.Gtk.WebKit.DOM.CSSRule - ) where -import Graphics.UI.Gtk.WebKit.DOM.CSSRule diff --git a/webkit/GHCJS/DOM/CSSRuleList.hs b/webkit/GHCJS/DOM/CSSRuleList.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/CSSRuleList.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.CSSRuleList ( - module Graphics.UI.Gtk.WebKit.DOM.CSSRuleList - ) where -import Graphics.UI.Gtk.WebKit.DOM.CSSRuleList diff --git a/webkit/GHCJS/DOM/CSSStyleDeclaration.hs b/webkit/GHCJS/DOM/CSSStyleDeclaration.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/CSSStyleDeclaration.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.CSSStyleDeclaration ( - module Graphics.UI.Gtk.WebKit.DOM.CSSStyleDeclaration - ) where -import Graphics.UI.Gtk.WebKit.DOM.CSSStyleDeclaration diff --git a/webkit/GHCJS/DOM/CSSStyleRule.hs b/webkit/GHCJS/DOM/CSSStyleRule.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/CSSStyleRule.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.CSSStyleRule ( - ) where diff --git a/webkit/GHCJS/DOM/CSSStyleSheet.hs b/webkit/GHCJS/DOM/CSSStyleSheet.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/CSSStyleSheet.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.CSSStyleSheet ( - module Graphics.UI.Gtk.WebKit.DOM.CSSStyleSheet - ) where -import Graphics.UI.Gtk.WebKit.DOM.CSSStyleSheet diff --git a/webkit/GHCJS/DOM/CSSSupportsRule.hs b/webkit/GHCJS/DOM/CSSSupportsRule.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/CSSSupportsRule.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.CSSSupportsRule ( - ) where diff --git a/webkit/GHCJS/DOM/CSSValue.hs b/webkit/GHCJS/DOM/CSSValue.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/CSSValue.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.CSSValue ( - module Graphics.UI.Gtk.WebKit.DOM.CSSValue - ) where -import Graphics.UI.Gtk.WebKit.DOM.CSSValue diff --git a/webkit/GHCJS/DOM/CSSValueList.hs b/webkit/GHCJS/DOM/CSSValueList.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/CSSValueList.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.CSSValueList ( - ) where diff --git a/webkit/GHCJS/DOM/CanvasGradient.hs b/webkit/GHCJS/DOM/CanvasGradient.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/CanvasGradient.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.CanvasGradient ( - ) where diff --git a/webkit/GHCJS/DOM/CanvasRenderingContext.hs b/webkit/GHCJS/DOM/CanvasRenderingContext.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/CanvasRenderingContext.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.CanvasRenderingContext ( - ) where diff --git a/webkit/GHCJS/DOM/CanvasRenderingContext2D.hs b/webkit/GHCJS/DOM/CanvasRenderingContext2D.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/CanvasRenderingContext2D.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.CanvasRenderingContext2D ( - ) where diff --git a/webkit/GHCJS/DOM/CapabilityRange.hs b/webkit/GHCJS/DOM/CapabilityRange.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/CapabilityRange.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.CapabilityRange ( - ) where diff --git a/webkit/GHCJS/DOM/CharacterData.hs b/webkit/GHCJS/DOM/CharacterData.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/CharacterData.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.CharacterData ( - module Graphics.UI.Gtk.WebKit.DOM.CharacterData - ) where -import Graphics.UI.Gtk.WebKit.DOM.CharacterData diff --git a/webkit/GHCJS/DOM/ChildNode.hs b/webkit/GHCJS/DOM/ChildNode.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/ChildNode.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.ChildNode ( - ) where diff --git a/webkit/GHCJS/DOM/ClientRect.hs b/webkit/GHCJS/DOM/ClientRect.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/ClientRect.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.ClientRect ( - ) where diff --git a/webkit/GHCJS/DOM/ClientRectList.hs b/webkit/GHCJS/DOM/ClientRectList.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/ClientRectList.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.ClientRectList ( - ) where diff --git a/webkit/GHCJS/DOM/CloseEvent.hs b/webkit/GHCJS/DOM/CloseEvent.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/CloseEvent.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.CloseEvent ( - ) where diff --git a/webkit/GHCJS/DOM/CommandLineAPIHost.hs b/webkit/GHCJS/DOM/CommandLineAPIHost.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/CommandLineAPIHost.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.CommandLineAPIHost ( - ) where diff --git a/webkit/GHCJS/DOM/Comment.hs b/webkit/GHCJS/DOM/Comment.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/Comment.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.Comment ( - ) where diff --git a/webkit/GHCJS/DOM/CompositionEvent.hs b/webkit/GHCJS/DOM/CompositionEvent.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/CompositionEvent.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.CompositionEvent ( - ) where diff --git a/webkit/GHCJS/DOM/ConvolverNode.hs b/webkit/GHCJS/DOM/ConvolverNode.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/ConvolverNode.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.ConvolverNode ( - ) where diff --git a/webkit/GHCJS/DOM/Coordinates.hs b/webkit/GHCJS/DOM/Coordinates.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/Coordinates.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.Coordinates ( - ) where diff --git a/webkit/GHCJS/DOM/Counter.hs b/webkit/GHCJS/DOM/Counter.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/Counter.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.Counter ( - ) where diff --git a/webkit/GHCJS/DOM/Crypto.hs b/webkit/GHCJS/DOM/Crypto.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/Crypto.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.Crypto ( - ) where diff --git a/webkit/GHCJS/DOM/CryptoKey.hs b/webkit/GHCJS/DOM/CryptoKey.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/CryptoKey.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.CryptoKey ( - ) where diff --git a/webkit/GHCJS/DOM/CryptoKeyPair.hs b/webkit/GHCJS/DOM/CryptoKeyPair.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/CryptoKeyPair.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.CryptoKeyPair ( - ) where diff --git a/webkit/GHCJS/DOM/CustomEvent.hs b/webkit/GHCJS/DOM/CustomEvent.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/CustomEvent.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.CustomEvent ( - ) where diff --git a/webkit/GHCJS/DOM/DOMError.hs b/webkit/GHCJS/DOM/DOMError.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/DOMError.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.DOMError ( - ) where diff --git a/webkit/GHCJS/DOM/DOMImplementation.hs b/webkit/GHCJS/DOM/DOMImplementation.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/DOMImplementation.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.DOMImplementation ( - module Graphics.UI.Gtk.WebKit.DOM.DOMImplementation - ) where -import Graphics.UI.Gtk.WebKit.DOM.DOMImplementation diff --git a/webkit/GHCJS/DOM/DOMNamedFlowCollection.hs b/webkit/GHCJS/DOM/DOMNamedFlowCollection.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/DOMNamedFlowCollection.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.DOMNamedFlowCollection ( - module Graphics.UI.Gtk.WebKit.DOM.DOMNamedFlowCollection - ) where -import Graphics.UI.Gtk.WebKit.DOM.DOMNamedFlowCollection diff --git a/webkit/GHCJS/DOM/DOMParser.hs b/webkit/GHCJS/DOM/DOMParser.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/DOMParser.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.DOMParser ( - ) where diff --git a/webkit/GHCJS/DOM/DOMSettableTokenList.hs b/webkit/GHCJS/DOM/DOMSettableTokenList.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/DOMSettableTokenList.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.DOMSettableTokenList ( - module Graphics.UI.Gtk.WebKit.DOM.DOMSettableTokenList - ) where -import Graphics.UI.Gtk.WebKit.DOM.DOMSettableTokenList diff --git a/webkit/GHCJS/DOM/DOMStringList.hs b/webkit/GHCJS/DOM/DOMStringList.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/DOMStringList.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.DOMStringList ( - module Graphics.UI.Gtk.WebKit.DOM.DOMStringList - ) where -import Graphics.UI.Gtk.WebKit.DOM.DOMStringList diff --git a/webkit/GHCJS/DOM/DOMTokenList.hs b/webkit/GHCJS/DOM/DOMTokenList.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/DOMTokenList.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.DOMTokenList ( - module Graphics.UI.Gtk.WebKit.DOM.DOMTokenList - ) where -import Graphics.UI.Gtk.WebKit.DOM.DOMTokenList diff --git a/webkit/GHCJS/DOM/DataCue.hs b/webkit/GHCJS/DOM/DataCue.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/DataCue.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.DataCue ( - ) where diff --git a/webkit/GHCJS/DOM/DataTransfer.hs b/webkit/GHCJS/DOM/DataTransfer.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/DataTransfer.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.DataTransfer ( - ) where diff --git a/webkit/GHCJS/DOM/DataTransferItem.hs b/webkit/GHCJS/DOM/DataTransferItem.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/DataTransferItem.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.DataTransferItem ( - ) where diff --git a/webkit/GHCJS/DOM/DataTransferItemList.hs b/webkit/GHCJS/DOM/DataTransferItemList.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/DataTransferItemList.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.DataTransferItemList ( - ) where diff --git a/webkit/GHCJS/DOM/Database.hs b/webkit/GHCJS/DOM/Database.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/Database.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.Database ( - ) where diff --git a/webkit/GHCJS/DOM/DatabaseCallback.hs b/webkit/GHCJS/DOM/DatabaseCallback.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/DatabaseCallback.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.DatabaseCallback ( - ) where diff --git a/webkit/GHCJS/DOM/DedicatedWorkerGlobalScope.hs b/webkit/GHCJS/DOM/DedicatedWorkerGlobalScope.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/DedicatedWorkerGlobalScope.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.DedicatedWorkerGlobalScope ( - ) where diff --git a/webkit/GHCJS/DOM/DelayNode.hs b/webkit/GHCJS/DOM/DelayNode.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/DelayNode.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.DelayNode ( - ) where diff --git a/webkit/GHCJS/DOM/DeviceMotionEvent.hs b/webkit/GHCJS/DOM/DeviceMotionEvent.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/DeviceMotionEvent.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.DeviceMotionEvent ( - ) where diff --git a/webkit/GHCJS/DOM/DeviceOrientationEvent.hs b/webkit/GHCJS/DOM/DeviceOrientationEvent.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/DeviceOrientationEvent.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.DeviceOrientationEvent ( - ) where diff --git a/webkit/GHCJS/DOM/DeviceProximityEvent.hs b/webkit/GHCJS/DOM/DeviceProximityEvent.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/DeviceProximityEvent.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.DeviceProximityEvent ( - ) where diff --git a/webkit/GHCJS/DOM/Document.hs b/webkit/GHCJS/DOM/Document.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/Document.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.Document ( - module Graphics.UI.Gtk.WebKit.DOM.Document - ) where -import Graphics.UI.Gtk.WebKit.DOM.Document diff --git a/webkit/GHCJS/DOM/DocumentFragment.hs b/webkit/GHCJS/DOM/DocumentFragment.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/DocumentFragment.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.DocumentFragment ( - ) where diff --git a/webkit/GHCJS/DOM/DocumentType.hs b/webkit/GHCJS/DOM/DocumentType.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/DocumentType.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.DocumentType ( - module Graphics.UI.Gtk.WebKit.DOM.DocumentType - ) where -import Graphics.UI.Gtk.WebKit.DOM.DocumentType diff --git a/webkit/GHCJS/DOM/DynamicsCompressorNode.hs b/webkit/GHCJS/DOM/DynamicsCompressorNode.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/DynamicsCompressorNode.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.DynamicsCompressorNode ( - ) where diff --git a/webkit/GHCJS/DOM/EXTBlendMinMax.hs b/webkit/GHCJS/DOM/EXTBlendMinMax.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/EXTBlendMinMax.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.EXTBlendMinMax ( - ) where diff --git a/webkit/GHCJS/DOM/EXTTextureFilterAnisotropic.hs b/webkit/GHCJS/DOM/EXTTextureFilterAnisotropic.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/EXTTextureFilterAnisotropic.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.EXTTextureFilterAnisotropic ( - ) where diff --git a/webkit/GHCJS/DOM/EXTsRGB.hs b/webkit/GHCJS/DOM/EXTsRGB.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/EXTsRGB.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.EXTsRGB ( - ) where diff --git a/webkit/GHCJS/DOM/Element.hs b/webkit/GHCJS/DOM/Element.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/Element.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.Element ( - module Graphics.UI.Gtk.WebKit.DOM.Element - ) where -import Graphics.UI.Gtk.WebKit.DOM.Element diff --git a/webkit/GHCJS/DOM/Entity.hs b/webkit/GHCJS/DOM/Entity.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/Entity.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.Entity ( - ) where diff --git a/webkit/GHCJS/DOM/Enums.hs b/webkit/GHCJS/DOM/Enums.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/Enums.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.Enums ( - module Graphics.UI.Gtk.WebKit.DOM.Enums - ) where -import Graphics.UI.Gtk.WebKit.DOM.Enums diff --git a/webkit/GHCJS/DOM/ErrorEvent.hs b/webkit/GHCJS/DOM/ErrorEvent.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/ErrorEvent.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.ErrorEvent ( - ) where diff --git a/webkit/GHCJS/DOM/Event.hs b/webkit/GHCJS/DOM/Event.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/Event.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.Event ( - module Graphics.UI.Gtk.WebKit.DOM.Event - ) where -import Graphics.UI.Gtk.WebKit.DOM.Event diff --git a/webkit/GHCJS/DOM/EventListener.hs b/webkit/GHCJS/DOM/EventListener.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/EventListener.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.EventListener ( - ) where diff --git a/webkit/GHCJS/DOM/EventSource.hs b/webkit/GHCJS/DOM/EventSource.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/EventSource.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.EventSource ( - ) where diff --git a/webkit/GHCJS/DOM/EventTarget.hs b/webkit/GHCJS/DOM/EventTarget.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/EventTarget.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.EventTarget ( - module Graphics.UI.Gtk.WebKit.DOM.EventTarget - ) where -import Graphics.UI.Gtk.WebKit.DOM.EventTarget diff --git a/webkit/GHCJS/DOM/EventTargetClosures.hs b/webkit/GHCJS/DOM/EventTargetClosures.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/EventTargetClosures.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.EventTargetClosures ( - module Graphics.UI.Gtk.WebKit.DOM.EventTargetClosures - ) where -import Graphics.UI.Gtk.WebKit.DOM.EventTargetClosures diff --git a/webkit/GHCJS/DOM/File.hs b/webkit/GHCJS/DOM/File.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/File.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.File ( - module Graphics.UI.Gtk.WebKit.DOM.File - ) where -import Graphics.UI.Gtk.WebKit.DOM.File diff --git a/webkit/GHCJS/DOM/FileError.hs b/webkit/GHCJS/DOM/FileError.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/FileError.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.FileError ( - ) where diff --git a/webkit/GHCJS/DOM/FileList.hs b/webkit/GHCJS/DOM/FileList.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/FileList.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.FileList ( - module Graphics.UI.Gtk.WebKit.DOM.FileList - ) where -import Graphics.UI.Gtk.WebKit.DOM.FileList diff --git a/webkit/GHCJS/DOM/FileReader.hs b/webkit/GHCJS/DOM/FileReader.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/FileReader.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.FileReader ( - ) where diff --git a/webkit/GHCJS/DOM/FileReaderSync.hs b/webkit/GHCJS/DOM/FileReaderSync.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/FileReaderSync.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.FileReaderSync ( - ) where diff --git a/webkit/GHCJS/DOM/FocusEvent.hs b/webkit/GHCJS/DOM/FocusEvent.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/FocusEvent.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.FocusEvent ( - ) where diff --git a/webkit/GHCJS/DOM/FontLoader.hs b/webkit/GHCJS/DOM/FontLoader.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/FontLoader.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.FontLoader ( - ) where diff --git a/webkit/GHCJS/DOM/FormData.hs b/webkit/GHCJS/DOM/FormData.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/FormData.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.FormData ( - ) where diff --git a/webkit/GHCJS/DOM/GainNode.hs b/webkit/GHCJS/DOM/GainNode.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/GainNode.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.GainNode ( - ) where diff --git a/webkit/GHCJS/DOM/Gamepad.hs b/webkit/GHCJS/DOM/Gamepad.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/Gamepad.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.Gamepad ( - ) where diff --git a/webkit/GHCJS/DOM/GamepadButton.hs b/webkit/GHCJS/DOM/GamepadButton.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/GamepadButton.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.GamepadButton ( - ) where diff --git a/webkit/GHCJS/DOM/GamepadEvent.hs b/webkit/GHCJS/DOM/GamepadEvent.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/GamepadEvent.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.GamepadEvent ( - ) where diff --git a/webkit/GHCJS/DOM/Geolocation.hs b/webkit/GHCJS/DOM/Geolocation.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/Geolocation.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.Geolocation ( - module Graphics.UI.Gtk.WebKit.DOM.Geolocation - ) where -import Graphics.UI.Gtk.WebKit.DOM.Geolocation diff --git a/webkit/GHCJS/DOM/Geoposition.hs b/webkit/GHCJS/DOM/Geoposition.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/Geoposition.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.Geoposition ( - ) where diff --git a/webkit/GHCJS/DOM/HTMLAllCollection.hs b/webkit/GHCJS/DOM/HTMLAllCollection.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/HTMLAllCollection.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.HTMLAllCollection ( - ) where diff --git a/webkit/GHCJS/DOM/HTMLAnchorElement.hs b/webkit/GHCJS/DOM/HTMLAnchorElement.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/HTMLAnchorElement.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.HTMLAnchorElement ( - module Graphics.UI.Gtk.WebKit.DOM.HTMLAnchorElement - ) where -import Graphics.UI.Gtk.WebKit.DOM.HTMLAnchorElement diff --git a/webkit/GHCJS/DOM/HTMLAppletElement.hs b/webkit/GHCJS/DOM/HTMLAppletElement.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/HTMLAppletElement.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.HTMLAppletElement ( - module Graphics.UI.Gtk.WebKit.DOM.HTMLAppletElement - ) where -import Graphics.UI.Gtk.WebKit.DOM.HTMLAppletElement diff --git a/webkit/GHCJS/DOM/HTMLAreaElement.hs b/webkit/GHCJS/DOM/HTMLAreaElement.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/HTMLAreaElement.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.HTMLAreaElement ( - module Graphics.UI.Gtk.WebKit.DOM.HTMLAreaElement - ) where -import Graphics.UI.Gtk.WebKit.DOM.HTMLAreaElement diff --git a/webkit/GHCJS/DOM/HTMLBRElement.hs b/webkit/GHCJS/DOM/HTMLBRElement.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/HTMLBRElement.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.HTMLBRElement ( - module Graphics.UI.Gtk.WebKit.DOM.HTMLBRElement - ) where -import Graphics.UI.Gtk.WebKit.DOM.HTMLBRElement diff --git a/webkit/GHCJS/DOM/HTMLBaseElement.hs b/webkit/GHCJS/DOM/HTMLBaseElement.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/HTMLBaseElement.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.HTMLBaseElement ( - module Graphics.UI.Gtk.WebKit.DOM.HTMLBaseElement - ) where -import Graphics.UI.Gtk.WebKit.DOM.HTMLBaseElement diff --git a/webkit/GHCJS/DOM/HTMLBaseFontElement.hs b/webkit/GHCJS/DOM/HTMLBaseFontElement.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/HTMLBaseFontElement.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.HTMLBaseFontElement ( - module Graphics.UI.Gtk.WebKit.DOM.HTMLBaseFontElement - ) where -import Graphics.UI.Gtk.WebKit.DOM.HTMLBaseFontElement diff --git a/webkit/GHCJS/DOM/HTMLBodyElement.hs b/webkit/GHCJS/DOM/HTMLBodyElement.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/HTMLBodyElement.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.HTMLBodyElement ( - module Graphics.UI.Gtk.WebKit.DOM.HTMLBodyElement - ) where -import Graphics.UI.Gtk.WebKit.DOM.HTMLBodyElement diff --git a/webkit/GHCJS/DOM/HTMLButtonElement.hs b/webkit/GHCJS/DOM/HTMLButtonElement.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/HTMLButtonElement.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.HTMLButtonElement ( - module Graphics.UI.Gtk.WebKit.DOM.HTMLButtonElement - ) where -import Graphics.UI.Gtk.WebKit.DOM.HTMLButtonElement diff --git a/webkit/GHCJS/DOM/HTMLCanvasElement.hs b/webkit/GHCJS/DOM/HTMLCanvasElement.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/HTMLCanvasElement.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.HTMLCanvasElement ( - module Graphics.UI.Gtk.WebKit.DOM.HTMLCanvasElement - ) where -import Graphics.UI.Gtk.WebKit.DOM.HTMLCanvasElement diff --git a/webkit/GHCJS/DOM/HTMLCollection.hs b/webkit/GHCJS/DOM/HTMLCollection.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/HTMLCollection.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.HTMLCollection ( - module Graphics.UI.Gtk.WebKit.DOM.HTMLCollection - ) where -import Graphics.UI.Gtk.WebKit.DOM.HTMLCollection diff --git a/webkit/GHCJS/DOM/HTMLDListElement.hs b/webkit/GHCJS/DOM/HTMLDListElement.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/HTMLDListElement.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.HTMLDListElement ( - module Graphics.UI.Gtk.WebKit.DOM.HTMLDListElement - ) where -import Graphics.UI.Gtk.WebKit.DOM.HTMLDListElement diff --git a/webkit/GHCJS/DOM/HTMLDataListElement.hs b/webkit/GHCJS/DOM/HTMLDataListElement.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/HTMLDataListElement.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.HTMLDataListElement ( - ) where diff --git a/webkit/GHCJS/DOM/HTMLDetailsElement.hs b/webkit/GHCJS/DOM/HTMLDetailsElement.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/HTMLDetailsElement.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.HTMLDetailsElement ( - module Graphics.UI.Gtk.WebKit.DOM.HTMLDetailsElement - ) where -import Graphics.UI.Gtk.WebKit.DOM.HTMLDetailsElement diff --git a/webkit/GHCJS/DOM/HTMLDirectoryElement.hs b/webkit/GHCJS/DOM/HTMLDirectoryElement.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/HTMLDirectoryElement.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.HTMLDirectoryElement ( - module Graphics.UI.Gtk.WebKit.DOM.HTMLDirectoryElement - ) where -import Graphics.UI.Gtk.WebKit.DOM.HTMLDirectoryElement diff --git a/webkit/GHCJS/DOM/HTMLDivElement.hs b/webkit/GHCJS/DOM/HTMLDivElement.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/HTMLDivElement.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.HTMLDivElement ( - module Graphics.UI.Gtk.WebKit.DOM.HTMLDivElement - ) where -import Graphics.UI.Gtk.WebKit.DOM.HTMLDivElement diff --git a/webkit/GHCJS/DOM/HTMLDocument.hs b/webkit/GHCJS/DOM/HTMLDocument.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/HTMLDocument.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.HTMLDocument ( - module Graphics.UI.Gtk.WebKit.DOM.HTMLDocument - ) where -import Graphics.UI.Gtk.WebKit.DOM.HTMLDocument diff --git a/webkit/GHCJS/DOM/HTMLElement.hs b/webkit/GHCJS/DOM/HTMLElement.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/HTMLElement.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.HTMLElement ( - module Graphics.UI.Gtk.WebKit.DOM.HTMLElement - ) where -import Graphics.UI.Gtk.WebKit.DOM.HTMLElement diff --git a/webkit/GHCJS/DOM/HTMLEmbedElement.hs b/webkit/GHCJS/DOM/HTMLEmbedElement.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/HTMLEmbedElement.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.HTMLEmbedElement ( - module Graphics.UI.Gtk.WebKit.DOM.HTMLEmbedElement - ) where -import Graphics.UI.Gtk.WebKit.DOM.HTMLEmbedElement diff --git a/webkit/GHCJS/DOM/HTMLFieldSetElement.hs b/webkit/GHCJS/DOM/HTMLFieldSetElement.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/HTMLFieldSetElement.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.HTMLFieldSetElement ( - module Graphics.UI.Gtk.WebKit.DOM.HTMLFieldSetElement - ) where -import Graphics.UI.Gtk.WebKit.DOM.HTMLFieldSetElement diff --git a/webkit/GHCJS/DOM/HTMLFontElement.hs b/webkit/GHCJS/DOM/HTMLFontElement.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/HTMLFontElement.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.HTMLFontElement ( - module Graphics.UI.Gtk.WebKit.DOM.HTMLFontElement - ) where -import Graphics.UI.Gtk.WebKit.DOM.HTMLFontElement diff --git a/webkit/GHCJS/DOM/HTMLFormControlsCollection.hs b/webkit/GHCJS/DOM/HTMLFormControlsCollection.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/HTMLFormControlsCollection.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.HTMLFormControlsCollection ( - ) where diff --git a/webkit/GHCJS/DOM/HTMLFormElement.hs b/webkit/GHCJS/DOM/HTMLFormElement.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/HTMLFormElement.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.HTMLFormElement ( - module Graphics.UI.Gtk.WebKit.DOM.HTMLFormElement - ) where -import Graphics.UI.Gtk.WebKit.DOM.HTMLFormElement diff --git a/webkit/GHCJS/DOM/HTMLFrameElement.hs b/webkit/GHCJS/DOM/HTMLFrameElement.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/HTMLFrameElement.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.HTMLFrameElement ( - module Graphics.UI.Gtk.WebKit.DOM.HTMLFrameElement - ) where -import Graphics.UI.Gtk.WebKit.DOM.HTMLFrameElement diff --git a/webkit/GHCJS/DOM/HTMLFrameSetElement.hs b/webkit/GHCJS/DOM/HTMLFrameSetElement.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/HTMLFrameSetElement.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.HTMLFrameSetElement ( - module Graphics.UI.Gtk.WebKit.DOM.HTMLFrameSetElement - ) where -import Graphics.UI.Gtk.WebKit.DOM.HTMLFrameSetElement diff --git a/webkit/GHCJS/DOM/HTMLHRElement.hs b/webkit/GHCJS/DOM/HTMLHRElement.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/HTMLHRElement.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.HTMLHRElement ( - module Graphics.UI.Gtk.WebKit.DOM.HTMLHRElement - ) where -import Graphics.UI.Gtk.WebKit.DOM.HTMLHRElement diff --git a/webkit/GHCJS/DOM/HTMLHeadElement.hs b/webkit/GHCJS/DOM/HTMLHeadElement.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/HTMLHeadElement.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.HTMLHeadElement ( - module Graphics.UI.Gtk.WebKit.DOM.HTMLHeadElement - ) where -import Graphics.UI.Gtk.WebKit.DOM.HTMLHeadElement diff --git a/webkit/GHCJS/DOM/HTMLHeadingElement.hs b/webkit/GHCJS/DOM/HTMLHeadingElement.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/HTMLHeadingElement.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.HTMLHeadingElement ( - module Graphics.UI.Gtk.WebKit.DOM.HTMLHeadingElement - ) where -import Graphics.UI.Gtk.WebKit.DOM.HTMLHeadingElement diff --git a/webkit/GHCJS/DOM/HTMLHtmlElement.hs b/webkit/GHCJS/DOM/HTMLHtmlElement.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/HTMLHtmlElement.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.HTMLHtmlElement ( - module Graphics.UI.Gtk.WebKit.DOM.HTMLHtmlElement - ) where -import Graphics.UI.Gtk.WebKit.DOM.HTMLHtmlElement diff --git a/webkit/GHCJS/DOM/HTMLIFrameElement.hs b/webkit/GHCJS/DOM/HTMLIFrameElement.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/HTMLIFrameElement.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.HTMLIFrameElement ( - module Graphics.UI.Gtk.WebKit.DOM.HTMLIFrameElement - ) where -import Graphics.UI.Gtk.WebKit.DOM.HTMLIFrameElement diff --git a/webkit/GHCJS/DOM/HTMLImageElement.hs b/webkit/GHCJS/DOM/HTMLImageElement.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/HTMLImageElement.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.HTMLImageElement ( - module Graphics.UI.Gtk.WebKit.DOM.HTMLImageElement - ) where -import Graphics.UI.Gtk.WebKit.DOM.HTMLImageElement diff --git a/webkit/GHCJS/DOM/HTMLInputElement.hs b/webkit/GHCJS/DOM/HTMLInputElement.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/HTMLInputElement.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.HTMLInputElement ( - module Graphics.UI.Gtk.WebKit.DOM.HTMLInputElement - ) where -import Graphics.UI.Gtk.WebKit.DOM.HTMLInputElement diff --git a/webkit/GHCJS/DOM/HTMLKeygenElement.hs b/webkit/GHCJS/DOM/HTMLKeygenElement.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/HTMLKeygenElement.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.HTMLKeygenElement ( - module Graphics.UI.Gtk.WebKit.DOM.HTMLKeygenElement - ) where -import Graphics.UI.Gtk.WebKit.DOM.HTMLKeygenElement diff --git a/webkit/GHCJS/DOM/HTMLLIElement.hs b/webkit/GHCJS/DOM/HTMLLIElement.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/HTMLLIElement.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.HTMLLIElement ( - module Graphics.UI.Gtk.WebKit.DOM.HTMLLIElement - ) where -import Graphics.UI.Gtk.WebKit.DOM.HTMLLIElement diff --git a/webkit/GHCJS/DOM/HTMLLabelElement.hs b/webkit/GHCJS/DOM/HTMLLabelElement.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/HTMLLabelElement.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.HTMLLabelElement ( - module Graphics.UI.Gtk.WebKit.DOM.HTMLLabelElement - ) where -import Graphics.UI.Gtk.WebKit.DOM.HTMLLabelElement diff --git a/webkit/GHCJS/DOM/HTMLLegendElement.hs b/webkit/GHCJS/DOM/HTMLLegendElement.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/HTMLLegendElement.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.HTMLLegendElement ( - module Graphics.UI.Gtk.WebKit.DOM.HTMLLegendElement - ) where -import Graphics.UI.Gtk.WebKit.DOM.HTMLLegendElement diff --git a/webkit/GHCJS/DOM/HTMLLinkElement.hs b/webkit/GHCJS/DOM/HTMLLinkElement.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/HTMLLinkElement.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.HTMLLinkElement ( - module Graphics.UI.Gtk.WebKit.DOM.HTMLLinkElement - ) where -import Graphics.UI.Gtk.WebKit.DOM.HTMLLinkElement diff --git a/webkit/GHCJS/DOM/HTMLMapElement.hs b/webkit/GHCJS/DOM/HTMLMapElement.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/HTMLMapElement.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.HTMLMapElement ( - module Graphics.UI.Gtk.WebKit.DOM.HTMLMapElement - ) where -import Graphics.UI.Gtk.WebKit.DOM.HTMLMapElement diff --git a/webkit/GHCJS/DOM/HTMLMarqueeElement.hs b/webkit/GHCJS/DOM/HTMLMarqueeElement.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/HTMLMarqueeElement.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.HTMLMarqueeElement ( - module Graphics.UI.Gtk.WebKit.DOM.HTMLMarqueeElement - ) where -import Graphics.UI.Gtk.WebKit.DOM.HTMLMarqueeElement diff --git a/webkit/GHCJS/DOM/HTMLMediaElement.hs b/webkit/GHCJS/DOM/HTMLMediaElement.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/HTMLMediaElement.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.HTMLMediaElement ( - module Graphics.UI.Gtk.WebKit.DOM.HTMLMediaElement - ) where -import Graphics.UI.Gtk.WebKit.DOM.HTMLMediaElement diff --git a/webkit/GHCJS/DOM/HTMLMenuElement.hs b/webkit/GHCJS/DOM/HTMLMenuElement.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/HTMLMenuElement.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.HTMLMenuElement ( - module Graphics.UI.Gtk.WebKit.DOM.HTMLMenuElement - ) where -import Graphics.UI.Gtk.WebKit.DOM.HTMLMenuElement diff --git a/webkit/GHCJS/DOM/HTMLMetaElement.hs b/webkit/GHCJS/DOM/HTMLMetaElement.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/HTMLMetaElement.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.HTMLMetaElement ( - module Graphics.UI.Gtk.WebKit.DOM.HTMLMetaElement - ) where -import Graphics.UI.Gtk.WebKit.DOM.HTMLMetaElement diff --git a/webkit/GHCJS/DOM/HTMLMeterElement.hs b/webkit/GHCJS/DOM/HTMLMeterElement.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/HTMLMeterElement.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.HTMLMeterElement ( - ) where diff --git a/webkit/GHCJS/DOM/HTMLModElement.hs b/webkit/GHCJS/DOM/HTMLModElement.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/HTMLModElement.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.HTMLModElement ( - module Graphics.UI.Gtk.WebKit.DOM.HTMLModElement - ) where -import Graphics.UI.Gtk.WebKit.DOM.HTMLModElement diff --git a/webkit/GHCJS/DOM/HTMLOListElement.hs b/webkit/GHCJS/DOM/HTMLOListElement.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/HTMLOListElement.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.HTMLOListElement ( - module Graphics.UI.Gtk.WebKit.DOM.HTMLOListElement - ) where -import Graphics.UI.Gtk.WebKit.DOM.HTMLOListElement diff --git a/webkit/GHCJS/DOM/HTMLObjectElement.hs b/webkit/GHCJS/DOM/HTMLObjectElement.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/HTMLObjectElement.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.HTMLObjectElement ( - module Graphics.UI.Gtk.WebKit.DOM.HTMLObjectElement - ) where -import Graphics.UI.Gtk.WebKit.DOM.HTMLObjectElement diff --git a/webkit/GHCJS/DOM/HTMLOptGroupElement.hs b/webkit/GHCJS/DOM/HTMLOptGroupElement.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/HTMLOptGroupElement.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.HTMLOptGroupElement ( - module Graphics.UI.Gtk.WebKit.DOM.HTMLOptGroupElement - ) where -import Graphics.UI.Gtk.WebKit.DOM.HTMLOptGroupElement diff --git a/webkit/GHCJS/DOM/HTMLOptionElement.hs b/webkit/GHCJS/DOM/HTMLOptionElement.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/HTMLOptionElement.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.HTMLOptionElement ( - module Graphics.UI.Gtk.WebKit.DOM.HTMLOptionElement - ) where -import Graphics.UI.Gtk.WebKit.DOM.HTMLOptionElement diff --git a/webkit/GHCJS/DOM/HTMLOptionsCollection.hs b/webkit/GHCJS/DOM/HTMLOptionsCollection.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/HTMLOptionsCollection.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.HTMLOptionsCollection ( - module Graphics.UI.Gtk.WebKit.DOM.HTMLOptionsCollection - ) where -import Graphics.UI.Gtk.WebKit.DOM.HTMLOptionsCollection diff --git a/webkit/GHCJS/DOM/HTMLOutputElement.hs b/webkit/GHCJS/DOM/HTMLOutputElement.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/HTMLOutputElement.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.HTMLOutputElement ( - ) where diff --git a/webkit/GHCJS/DOM/HTMLParagraphElement.hs b/webkit/GHCJS/DOM/HTMLParagraphElement.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/HTMLParagraphElement.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.HTMLParagraphElement ( - module Graphics.UI.Gtk.WebKit.DOM.HTMLParagraphElement - ) where -import Graphics.UI.Gtk.WebKit.DOM.HTMLParagraphElement diff --git a/webkit/GHCJS/DOM/HTMLParamElement.hs b/webkit/GHCJS/DOM/HTMLParamElement.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/HTMLParamElement.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.HTMLParamElement ( - module Graphics.UI.Gtk.WebKit.DOM.HTMLParamElement - ) where -import Graphics.UI.Gtk.WebKit.DOM.HTMLParamElement diff --git a/webkit/GHCJS/DOM/HTMLPreElement.hs b/webkit/GHCJS/DOM/HTMLPreElement.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/HTMLPreElement.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.HTMLPreElement ( - module Graphics.UI.Gtk.WebKit.DOM.HTMLPreElement - ) where -import Graphics.UI.Gtk.WebKit.DOM.HTMLPreElement diff --git a/webkit/GHCJS/DOM/HTMLProgressElement.hs b/webkit/GHCJS/DOM/HTMLProgressElement.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/HTMLProgressElement.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.HTMLProgressElement ( - ) where diff --git a/webkit/GHCJS/DOM/HTMLQuoteElement.hs b/webkit/GHCJS/DOM/HTMLQuoteElement.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/HTMLQuoteElement.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.HTMLQuoteElement ( - module Graphics.UI.Gtk.WebKit.DOM.HTMLQuoteElement - ) where -import Graphics.UI.Gtk.WebKit.DOM.HTMLQuoteElement diff --git a/webkit/GHCJS/DOM/HTMLScriptElement.hs b/webkit/GHCJS/DOM/HTMLScriptElement.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/HTMLScriptElement.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.HTMLScriptElement ( - module Graphics.UI.Gtk.WebKit.DOM.HTMLScriptElement - ) where -import Graphics.UI.Gtk.WebKit.DOM.HTMLScriptElement diff --git a/webkit/GHCJS/DOM/HTMLSelectElement.hs b/webkit/GHCJS/DOM/HTMLSelectElement.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/HTMLSelectElement.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.HTMLSelectElement ( - module Graphics.UI.Gtk.WebKit.DOM.HTMLSelectElement - ) where -import Graphics.UI.Gtk.WebKit.DOM.HTMLSelectElement diff --git a/webkit/GHCJS/DOM/HTMLSourceElement.hs b/webkit/GHCJS/DOM/HTMLSourceElement.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/HTMLSourceElement.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.HTMLSourceElement ( - ) where diff --git a/webkit/GHCJS/DOM/HTMLStyleElement.hs b/webkit/GHCJS/DOM/HTMLStyleElement.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/HTMLStyleElement.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.HTMLStyleElement ( - module Graphics.UI.Gtk.WebKit.DOM.HTMLStyleElement - ) where -import Graphics.UI.Gtk.WebKit.DOM.HTMLStyleElement diff --git a/webkit/GHCJS/DOM/HTMLTableCaptionElement.hs b/webkit/GHCJS/DOM/HTMLTableCaptionElement.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/HTMLTableCaptionElement.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.HTMLTableCaptionElement ( - module Graphics.UI.Gtk.WebKit.DOM.HTMLTableCaptionElement - ) where -import Graphics.UI.Gtk.WebKit.DOM.HTMLTableCaptionElement diff --git a/webkit/GHCJS/DOM/HTMLTableCellElement.hs b/webkit/GHCJS/DOM/HTMLTableCellElement.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/HTMLTableCellElement.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.HTMLTableCellElement ( - module Graphics.UI.Gtk.WebKit.DOM.HTMLTableCellElement - ) where -import Graphics.UI.Gtk.WebKit.DOM.HTMLTableCellElement diff --git a/webkit/GHCJS/DOM/HTMLTableColElement.hs b/webkit/GHCJS/DOM/HTMLTableColElement.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/HTMLTableColElement.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.HTMLTableColElement ( - module Graphics.UI.Gtk.WebKit.DOM.HTMLTableColElement - ) where -import Graphics.UI.Gtk.WebKit.DOM.HTMLTableColElement diff --git a/webkit/GHCJS/DOM/HTMLTableElement.hs b/webkit/GHCJS/DOM/HTMLTableElement.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/HTMLTableElement.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.HTMLTableElement ( - module Graphics.UI.Gtk.WebKit.DOM.HTMLTableElement - ) where -import Graphics.UI.Gtk.WebKit.DOM.HTMLTableElement diff --git a/webkit/GHCJS/DOM/HTMLTableRowElement.hs b/webkit/GHCJS/DOM/HTMLTableRowElement.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/HTMLTableRowElement.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.HTMLTableRowElement ( - module Graphics.UI.Gtk.WebKit.DOM.HTMLTableRowElement - ) where -import Graphics.UI.Gtk.WebKit.DOM.HTMLTableRowElement diff --git a/webkit/GHCJS/DOM/HTMLTableSectionElement.hs b/webkit/GHCJS/DOM/HTMLTableSectionElement.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/HTMLTableSectionElement.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.HTMLTableSectionElement ( - module Graphics.UI.Gtk.WebKit.DOM.HTMLTableSectionElement - ) where -import Graphics.UI.Gtk.WebKit.DOM.HTMLTableSectionElement diff --git a/webkit/GHCJS/DOM/HTMLTemplateElement.hs b/webkit/GHCJS/DOM/HTMLTemplateElement.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/HTMLTemplateElement.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.HTMLTemplateElement ( - ) where diff --git a/webkit/GHCJS/DOM/HTMLTextAreaElement.hs b/webkit/GHCJS/DOM/HTMLTextAreaElement.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/HTMLTextAreaElement.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.HTMLTextAreaElement ( - module Graphics.UI.Gtk.WebKit.DOM.HTMLTextAreaElement - ) where -import Graphics.UI.Gtk.WebKit.DOM.HTMLTextAreaElement diff --git a/webkit/GHCJS/DOM/HTMLTitleElement.hs b/webkit/GHCJS/DOM/HTMLTitleElement.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/HTMLTitleElement.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.HTMLTitleElement ( - module Graphics.UI.Gtk.WebKit.DOM.HTMLTitleElement - ) where -import Graphics.UI.Gtk.WebKit.DOM.HTMLTitleElement diff --git a/webkit/GHCJS/DOM/HTMLTrackElement.hs b/webkit/GHCJS/DOM/HTMLTrackElement.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/HTMLTrackElement.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.HTMLTrackElement ( - ) where diff --git a/webkit/GHCJS/DOM/HTMLUListElement.hs b/webkit/GHCJS/DOM/HTMLUListElement.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/HTMLUListElement.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.HTMLUListElement ( - module Graphics.UI.Gtk.WebKit.DOM.HTMLUListElement - ) where -import Graphics.UI.Gtk.WebKit.DOM.HTMLUListElement diff --git a/webkit/GHCJS/DOM/HTMLVideoElement.hs b/webkit/GHCJS/DOM/HTMLVideoElement.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/HTMLVideoElement.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.HTMLVideoElement ( - module Graphics.UI.Gtk.WebKit.DOM.HTMLVideoElement - ) where -import Graphics.UI.Gtk.WebKit.DOM.HTMLVideoElement diff --git a/webkit/GHCJS/DOM/HashChangeEvent.hs b/webkit/GHCJS/DOM/HashChangeEvent.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/HashChangeEvent.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.HashChangeEvent ( - ) where diff --git a/webkit/GHCJS/DOM/History.hs b/webkit/GHCJS/DOM/History.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/History.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.History ( - module Graphics.UI.Gtk.WebKit.DOM.History - ) where -import Graphics.UI.Gtk.WebKit.DOM.History diff --git a/webkit/GHCJS/DOM/IDBCursor.hs b/webkit/GHCJS/DOM/IDBCursor.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/IDBCursor.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.IDBCursor ( - ) where diff --git a/webkit/GHCJS/DOM/IDBCursorWithValue.hs b/webkit/GHCJS/DOM/IDBCursorWithValue.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/IDBCursorWithValue.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.IDBCursorWithValue ( - ) where diff --git a/webkit/GHCJS/DOM/IDBDatabase.hs b/webkit/GHCJS/DOM/IDBDatabase.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/IDBDatabase.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.IDBDatabase ( - ) where diff --git a/webkit/GHCJS/DOM/IDBFactory.hs b/webkit/GHCJS/DOM/IDBFactory.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/IDBFactory.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.IDBFactory ( - ) where diff --git a/webkit/GHCJS/DOM/IDBIndex.hs b/webkit/GHCJS/DOM/IDBIndex.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/IDBIndex.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.IDBIndex ( - ) where diff --git a/webkit/GHCJS/DOM/IDBKeyRange.hs b/webkit/GHCJS/DOM/IDBKeyRange.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/IDBKeyRange.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.IDBKeyRange ( - ) where diff --git a/webkit/GHCJS/DOM/IDBObjectStore.hs b/webkit/GHCJS/DOM/IDBObjectStore.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/IDBObjectStore.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.IDBObjectStore ( - ) where diff --git a/webkit/GHCJS/DOM/IDBOpenDBRequest.hs b/webkit/GHCJS/DOM/IDBOpenDBRequest.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/IDBOpenDBRequest.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.IDBOpenDBRequest ( - ) where diff --git a/webkit/GHCJS/DOM/IDBRequest.hs b/webkit/GHCJS/DOM/IDBRequest.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/IDBRequest.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.IDBRequest ( - ) where diff --git a/webkit/GHCJS/DOM/IDBTransaction.hs b/webkit/GHCJS/DOM/IDBTransaction.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/IDBTransaction.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.IDBTransaction ( - ) where diff --git a/webkit/GHCJS/DOM/IDBVersionChangeEvent.hs b/webkit/GHCJS/DOM/IDBVersionChangeEvent.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/IDBVersionChangeEvent.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.IDBVersionChangeEvent ( - ) where diff --git a/webkit/GHCJS/DOM/ImageData.hs b/webkit/GHCJS/DOM/ImageData.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/ImageData.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.ImageData ( - ) where diff --git a/webkit/GHCJS/DOM/InspectorFrontendHost.hs b/webkit/GHCJS/DOM/InspectorFrontendHost.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/InspectorFrontendHost.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.InspectorFrontendHost ( - ) where diff --git a/webkit/GHCJS/DOM/InternalSettings.hs b/webkit/GHCJS/DOM/InternalSettings.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/InternalSettings.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.InternalSettings ( - ) where diff --git a/webkit/GHCJS/DOM/Internals.hs b/webkit/GHCJS/DOM/Internals.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/Internals.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.Internals ( - ) where diff --git a/webkit/GHCJS/DOM/KeyboardEvent.hs b/webkit/GHCJS/DOM/KeyboardEvent.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/KeyboardEvent.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.KeyboardEvent ( - module Graphics.UI.Gtk.WebKit.DOM.KeyboardEvent - ) where -import Graphics.UI.Gtk.WebKit.DOM.KeyboardEvent diff --git a/webkit/GHCJS/DOM/Location.hs b/webkit/GHCJS/DOM/Location.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/Location.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.Location ( - module Graphics.UI.Gtk.WebKit.DOM.Location - ) where -import Graphics.UI.Gtk.WebKit.DOM.Location diff --git a/webkit/GHCJS/DOM/MallocStatistics.hs b/webkit/GHCJS/DOM/MallocStatistics.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/MallocStatistics.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.MallocStatistics ( - ) where diff --git a/webkit/GHCJS/DOM/MediaController.hs b/webkit/GHCJS/DOM/MediaController.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/MediaController.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.MediaController ( - ) where diff --git a/webkit/GHCJS/DOM/MediaControlsHost.hs b/webkit/GHCJS/DOM/MediaControlsHost.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/MediaControlsHost.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.MediaControlsHost ( - ) where diff --git a/webkit/GHCJS/DOM/MediaElementAudioSourceNode.hs b/webkit/GHCJS/DOM/MediaElementAudioSourceNode.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/MediaElementAudioSourceNode.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.MediaElementAudioSourceNode ( - ) where diff --git a/webkit/GHCJS/DOM/MediaError.hs b/webkit/GHCJS/DOM/MediaError.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/MediaError.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.MediaError ( - module Graphics.UI.Gtk.WebKit.DOM.MediaError - ) where -import Graphics.UI.Gtk.WebKit.DOM.MediaError diff --git a/webkit/GHCJS/DOM/MediaKeyError.hs b/webkit/GHCJS/DOM/MediaKeyError.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/MediaKeyError.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.MediaKeyError ( - ) where diff --git a/webkit/GHCJS/DOM/MediaKeyEvent.hs b/webkit/GHCJS/DOM/MediaKeyEvent.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/MediaKeyEvent.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.MediaKeyEvent ( - ) where diff --git a/webkit/GHCJS/DOM/MediaKeyMessageEvent.hs b/webkit/GHCJS/DOM/MediaKeyMessageEvent.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/MediaKeyMessageEvent.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.MediaKeyMessageEvent ( - ) where diff --git a/webkit/GHCJS/DOM/MediaKeyNeededEvent.hs b/webkit/GHCJS/DOM/MediaKeyNeededEvent.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/MediaKeyNeededEvent.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.MediaKeyNeededEvent ( - ) where diff --git a/webkit/GHCJS/DOM/MediaKeySession.hs b/webkit/GHCJS/DOM/MediaKeySession.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/MediaKeySession.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.MediaKeySession ( - ) where diff --git a/webkit/GHCJS/DOM/MediaKeys.hs b/webkit/GHCJS/DOM/MediaKeys.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/MediaKeys.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.MediaKeys ( - ) where diff --git a/webkit/GHCJS/DOM/MediaList.hs b/webkit/GHCJS/DOM/MediaList.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/MediaList.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.MediaList ( - module Graphics.UI.Gtk.WebKit.DOM.MediaList - ) where -import Graphics.UI.Gtk.WebKit.DOM.MediaList diff --git a/webkit/GHCJS/DOM/MediaQueryList.hs b/webkit/GHCJS/DOM/MediaQueryList.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/MediaQueryList.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.MediaQueryList ( - module Graphics.UI.Gtk.WebKit.DOM.MediaQueryList - ) where -import Graphics.UI.Gtk.WebKit.DOM.MediaQueryList diff --git a/webkit/GHCJS/DOM/MediaQueryListListener.hs b/webkit/GHCJS/DOM/MediaQueryListListener.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/MediaQueryListListener.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.MediaQueryListListener ( - ) where diff --git a/webkit/GHCJS/DOM/MediaSource.hs b/webkit/GHCJS/DOM/MediaSource.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/MediaSource.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.MediaSource ( - ) where diff --git a/webkit/GHCJS/DOM/MediaSourceStates.hs b/webkit/GHCJS/DOM/MediaSourceStates.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/MediaSourceStates.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.MediaSourceStates ( - ) where diff --git a/webkit/GHCJS/DOM/MediaStream.hs b/webkit/GHCJS/DOM/MediaStream.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/MediaStream.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.MediaStream ( - ) where diff --git a/webkit/GHCJS/DOM/MediaStreamAudioDestinationNode.hs b/webkit/GHCJS/DOM/MediaStreamAudioDestinationNode.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/MediaStreamAudioDestinationNode.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.MediaStreamAudioDestinationNode ( - ) where diff --git a/webkit/GHCJS/DOM/MediaStreamAudioSourceNode.hs b/webkit/GHCJS/DOM/MediaStreamAudioSourceNode.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/MediaStreamAudioSourceNode.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.MediaStreamAudioSourceNode ( - ) where diff --git a/webkit/GHCJS/DOM/MediaStreamEvent.hs b/webkit/GHCJS/DOM/MediaStreamEvent.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/MediaStreamEvent.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.MediaStreamEvent ( - ) where diff --git a/webkit/GHCJS/DOM/MediaStreamTrack.hs b/webkit/GHCJS/DOM/MediaStreamTrack.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/MediaStreamTrack.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.MediaStreamTrack ( - ) where diff --git a/webkit/GHCJS/DOM/MediaStreamTrackEvent.hs b/webkit/GHCJS/DOM/MediaStreamTrackEvent.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/MediaStreamTrackEvent.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.MediaStreamTrackEvent ( - ) where diff --git a/webkit/GHCJS/DOM/MediaStreamTrackSourcesCallback.hs b/webkit/GHCJS/DOM/MediaStreamTrackSourcesCallback.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/MediaStreamTrackSourcesCallback.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.MediaStreamTrackSourcesCallback ( - ) where diff --git a/webkit/GHCJS/DOM/MediaTrackConstraints.hs b/webkit/GHCJS/DOM/MediaTrackConstraints.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/MediaTrackConstraints.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.MediaTrackConstraints ( - ) where diff --git a/webkit/GHCJS/DOM/MemoryInfo.hs b/webkit/GHCJS/DOM/MemoryInfo.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/MemoryInfo.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.MemoryInfo ( - ) where diff --git a/webkit/GHCJS/DOM/MessageChannel.hs b/webkit/GHCJS/DOM/MessageChannel.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/MessageChannel.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.MessageChannel ( - ) where diff --git a/webkit/GHCJS/DOM/MessageEvent.hs b/webkit/GHCJS/DOM/MessageEvent.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/MessageEvent.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.MessageEvent ( - ) where diff --git a/webkit/GHCJS/DOM/MessagePort.hs b/webkit/GHCJS/DOM/MessagePort.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/MessagePort.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.MessagePort ( - ) where diff --git a/webkit/GHCJS/DOM/MimeType.hs b/webkit/GHCJS/DOM/MimeType.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/MimeType.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.MimeType ( - module Graphics.UI.Gtk.WebKit.DOM.MimeType - ) where -import Graphics.UI.Gtk.WebKit.DOM.MimeType diff --git a/webkit/GHCJS/DOM/MimeTypeArray.hs b/webkit/GHCJS/DOM/MimeTypeArray.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/MimeTypeArray.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.MimeTypeArray ( - module Graphics.UI.Gtk.WebKit.DOM.MimeTypeArray - ) where -import Graphics.UI.Gtk.WebKit.DOM.MimeTypeArray diff --git a/webkit/GHCJS/DOM/MouseEvent.hs b/webkit/GHCJS/DOM/MouseEvent.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/MouseEvent.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.MouseEvent ( - module Graphics.UI.Gtk.WebKit.DOM.MouseEvent - ) where -import Graphics.UI.Gtk.WebKit.DOM.MouseEvent diff --git a/webkit/GHCJS/DOM/MutationEvent.hs b/webkit/GHCJS/DOM/MutationEvent.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/MutationEvent.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.MutationEvent ( - ) where diff --git a/webkit/GHCJS/DOM/MutationObserver.hs b/webkit/GHCJS/DOM/MutationObserver.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/MutationObserver.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.MutationObserver ( - ) where diff --git a/webkit/GHCJS/DOM/MutationRecord.hs b/webkit/GHCJS/DOM/MutationRecord.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/MutationRecord.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.MutationRecord ( - ) where diff --git a/webkit/GHCJS/DOM/NamedNodeMap.hs b/webkit/GHCJS/DOM/NamedNodeMap.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/NamedNodeMap.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.NamedNodeMap ( - module Graphics.UI.Gtk.WebKit.DOM.NamedNodeMap - ) where -import Graphics.UI.Gtk.WebKit.DOM.NamedNodeMap diff --git a/webkit/GHCJS/DOM/Navigator.hs b/webkit/GHCJS/DOM/Navigator.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/Navigator.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.Navigator ( - module Graphics.UI.Gtk.WebKit.DOM.Navigator - ) where -import Graphics.UI.Gtk.WebKit.DOM.Navigator diff --git a/webkit/GHCJS/DOM/NavigatorUserMediaError.hs b/webkit/GHCJS/DOM/NavigatorUserMediaError.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/NavigatorUserMediaError.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.NavigatorUserMediaError ( - ) where diff --git a/webkit/GHCJS/DOM/NavigatorUserMediaErrorCallback.hs b/webkit/GHCJS/DOM/NavigatorUserMediaErrorCallback.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/NavigatorUserMediaErrorCallback.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.NavigatorUserMediaErrorCallback ( - ) where diff --git a/webkit/GHCJS/DOM/NavigatorUserMediaSuccessCallback.hs b/webkit/GHCJS/DOM/NavigatorUserMediaSuccessCallback.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/NavigatorUserMediaSuccessCallback.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.NavigatorUserMediaSuccessCallback ( - ) where diff --git a/webkit/GHCJS/DOM/Node.hs b/webkit/GHCJS/DOM/Node.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/Node.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.Node ( - module Graphics.UI.Gtk.WebKit.DOM.Node - ) where -import Graphics.UI.Gtk.WebKit.DOM.Node diff --git a/webkit/GHCJS/DOM/NodeFilter.hs b/webkit/GHCJS/DOM/NodeFilter.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/NodeFilter.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.NodeFilter ( - module Graphics.UI.Gtk.WebKit.DOM.NodeFilter - ) where -import Graphics.UI.Gtk.WebKit.DOM.NodeFilter diff --git a/webkit/GHCJS/DOM/NodeIterator.hs b/webkit/GHCJS/DOM/NodeIterator.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/NodeIterator.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.NodeIterator ( - module Graphics.UI.Gtk.WebKit.DOM.NodeIterator - ) where -import Graphics.UI.Gtk.WebKit.DOM.NodeIterator diff --git a/webkit/GHCJS/DOM/NodeList.hs b/webkit/GHCJS/DOM/NodeList.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/NodeList.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.NodeList ( - module Graphics.UI.Gtk.WebKit.DOM.NodeList - ) where -import Graphics.UI.Gtk.WebKit.DOM.NodeList diff --git a/webkit/GHCJS/DOM/Notification.hs b/webkit/GHCJS/DOM/Notification.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/Notification.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.Notification ( - ) where diff --git a/webkit/GHCJS/DOM/NotificationCenter.hs b/webkit/GHCJS/DOM/NotificationCenter.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/NotificationCenter.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.NotificationCenter ( - ) where diff --git a/webkit/GHCJS/DOM/NotificationPermissionCallback.hs b/webkit/GHCJS/DOM/NotificationPermissionCallback.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/NotificationPermissionCallback.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.NotificationPermissionCallback ( - ) where diff --git a/webkit/GHCJS/DOM/OESStandardDerivatives.hs b/webkit/GHCJS/DOM/OESStandardDerivatives.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/OESStandardDerivatives.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.OESStandardDerivatives ( - ) where diff --git a/webkit/GHCJS/DOM/OESTextureHalfFloat.hs b/webkit/GHCJS/DOM/OESTextureHalfFloat.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/OESTextureHalfFloat.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.OESTextureHalfFloat ( - ) where diff --git a/webkit/GHCJS/DOM/OESVertexArrayObject.hs b/webkit/GHCJS/DOM/OESVertexArrayObject.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/OESVertexArrayObject.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.OESVertexArrayObject ( - ) where diff --git a/webkit/GHCJS/DOM/OfflineAudioCompletionEvent.hs b/webkit/GHCJS/DOM/OfflineAudioCompletionEvent.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/OfflineAudioCompletionEvent.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.OfflineAudioCompletionEvent ( - ) where diff --git a/webkit/GHCJS/DOM/OfflineAudioContext.hs b/webkit/GHCJS/DOM/OfflineAudioContext.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/OfflineAudioContext.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.OfflineAudioContext ( - ) where diff --git a/webkit/GHCJS/DOM/OscillatorNode.hs b/webkit/GHCJS/DOM/OscillatorNode.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/OscillatorNode.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.OscillatorNode ( - ) where diff --git a/webkit/GHCJS/DOM/OverflowEvent.hs b/webkit/GHCJS/DOM/OverflowEvent.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/OverflowEvent.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.OverflowEvent ( - ) where diff --git a/webkit/GHCJS/DOM/PageTransitionEvent.hs b/webkit/GHCJS/DOM/PageTransitionEvent.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/PageTransitionEvent.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.PageTransitionEvent ( - ) where diff --git a/webkit/GHCJS/DOM/PannerNode.hs b/webkit/GHCJS/DOM/PannerNode.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/PannerNode.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.PannerNode ( - ) where diff --git a/webkit/GHCJS/DOM/Path2D.hs b/webkit/GHCJS/DOM/Path2D.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/Path2D.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.Path2D ( - ) where diff --git a/webkit/GHCJS/DOM/Performance.hs b/webkit/GHCJS/DOM/Performance.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/Performance.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.Performance ( - module Graphics.UI.Gtk.WebKit.DOM.Performance - ) where -import Graphics.UI.Gtk.WebKit.DOM.Performance diff --git a/webkit/GHCJS/DOM/PerformanceEntry.hs b/webkit/GHCJS/DOM/PerformanceEntry.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/PerformanceEntry.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.PerformanceEntry ( - ) where diff --git a/webkit/GHCJS/DOM/PerformanceEntryList.hs b/webkit/GHCJS/DOM/PerformanceEntryList.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/PerformanceEntryList.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.PerformanceEntryList ( - ) where diff --git a/webkit/GHCJS/DOM/PerformanceNavigation.hs b/webkit/GHCJS/DOM/PerformanceNavigation.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/PerformanceNavigation.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.PerformanceNavigation ( - module Graphics.UI.Gtk.WebKit.DOM.PerformanceNavigation - ) where -import Graphics.UI.Gtk.WebKit.DOM.PerformanceNavigation diff --git a/webkit/GHCJS/DOM/PerformanceResourceTiming.hs b/webkit/GHCJS/DOM/PerformanceResourceTiming.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/PerformanceResourceTiming.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.PerformanceResourceTiming ( - ) where diff --git a/webkit/GHCJS/DOM/PerformanceTiming.hs b/webkit/GHCJS/DOM/PerformanceTiming.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/PerformanceTiming.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.PerformanceTiming ( - module Graphics.UI.Gtk.WebKit.DOM.PerformanceTiming - ) where -import Graphics.UI.Gtk.WebKit.DOM.PerformanceTiming diff --git a/webkit/GHCJS/DOM/Plugin.hs b/webkit/GHCJS/DOM/Plugin.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/Plugin.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.Plugin ( - module Graphics.UI.Gtk.WebKit.DOM.Plugin - ) where -import Graphics.UI.Gtk.WebKit.DOM.Plugin diff --git a/webkit/GHCJS/DOM/PluginArray.hs b/webkit/GHCJS/DOM/PluginArray.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/PluginArray.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.PluginArray ( - module Graphics.UI.Gtk.WebKit.DOM.PluginArray - ) where -import Graphics.UI.Gtk.WebKit.DOM.PluginArray diff --git a/webkit/GHCJS/DOM/PopStateEvent.hs b/webkit/GHCJS/DOM/PopStateEvent.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/PopStateEvent.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.PopStateEvent ( - ) where diff --git a/webkit/GHCJS/DOM/PositionCallback.hs b/webkit/GHCJS/DOM/PositionCallback.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/PositionCallback.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.PositionCallback ( - ) where diff --git a/webkit/GHCJS/DOM/PositionError.hs b/webkit/GHCJS/DOM/PositionError.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/PositionError.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.PositionError ( - ) where diff --git a/webkit/GHCJS/DOM/PositionErrorCallback.hs b/webkit/GHCJS/DOM/PositionErrorCallback.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/PositionErrorCallback.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.PositionErrorCallback ( - ) where diff --git a/webkit/GHCJS/DOM/ProcessingInstruction.hs b/webkit/GHCJS/DOM/ProcessingInstruction.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/ProcessingInstruction.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.ProcessingInstruction ( - module Graphics.UI.Gtk.WebKit.DOM.ProcessingInstruction - ) where -import Graphics.UI.Gtk.WebKit.DOM.ProcessingInstruction diff --git a/webkit/GHCJS/DOM/ProgressEvent.hs b/webkit/GHCJS/DOM/ProgressEvent.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/ProgressEvent.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.ProgressEvent ( - ) where diff --git a/webkit/GHCJS/DOM/QuickTimePluginReplacement.hs b/webkit/GHCJS/DOM/QuickTimePluginReplacement.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/QuickTimePluginReplacement.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.QuickTimePluginReplacement ( - ) where diff --git a/webkit/GHCJS/DOM/RGBColor.hs b/webkit/GHCJS/DOM/RGBColor.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/RGBColor.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.RGBColor ( - ) where diff --git a/webkit/GHCJS/DOM/RTCConfiguration.hs b/webkit/GHCJS/DOM/RTCConfiguration.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/RTCConfiguration.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.RTCConfiguration ( - ) where diff --git a/webkit/GHCJS/DOM/RTCDTMFSender.hs b/webkit/GHCJS/DOM/RTCDTMFSender.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/RTCDTMFSender.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.RTCDTMFSender ( - ) where diff --git a/webkit/GHCJS/DOM/RTCDTMFToneChangeEvent.hs b/webkit/GHCJS/DOM/RTCDTMFToneChangeEvent.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/RTCDTMFToneChangeEvent.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.RTCDTMFToneChangeEvent ( - ) where diff --git a/webkit/GHCJS/DOM/RTCDataChannel.hs b/webkit/GHCJS/DOM/RTCDataChannel.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/RTCDataChannel.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.RTCDataChannel ( - ) where diff --git a/webkit/GHCJS/DOM/RTCDataChannelEvent.hs b/webkit/GHCJS/DOM/RTCDataChannelEvent.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/RTCDataChannelEvent.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.RTCDataChannelEvent ( - ) where diff --git a/webkit/GHCJS/DOM/RTCIceCandidate.hs b/webkit/GHCJS/DOM/RTCIceCandidate.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/RTCIceCandidate.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.RTCIceCandidate ( - ) where diff --git a/webkit/GHCJS/DOM/RTCIceCandidateEvent.hs b/webkit/GHCJS/DOM/RTCIceCandidateEvent.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/RTCIceCandidateEvent.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.RTCIceCandidateEvent ( - ) where diff --git a/webkit/GHCJS/DOM/RTCIceServer.hs b/webkit/GHCJS/DOM/RTCIceServer.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/RTCIceServer.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.RTCIceServer ( - ) where diff --git a/webkit/GHCJS/DOM/RTCPeerConnection.hs b/webkit/GHCJS/DOM/RTCPeerConnection.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/RTCPeerConnection.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.RTCPeerConnection ( - ) where diff --git a/webkit/GHCJS/DOM/RTCPeerConnectionErrorCallback.hs b/webkit/GHCJS/DOM/RTCPeerConnectionErrorCallback.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/RTCPeerConnectionErrorCallback.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.RTCPeerConnectionErrorCallback ( - ) where diff --git a/webkit/GHCJS/DOM/RTCSessionDescription.hs b/webkit/GHCJS/DOM/RTCSessionDescription.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/RTCSessionDescription.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.RTCSessionDescription ( - ) where diff --git a/webkit/GHCJS/DOM/RTCSessionDescriptionCallback.hs b/webkit/GHCJS/DOM/RTCSessionDescriptionCallback.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/RTCSessionDescriptionCallback.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.RTCSessionDescriptionCallback ( - ) where diff --git a/webkit/GHCJS/DOM/RTCStatsCallback.hs b/webkit/GHCJS/DOM/RTCStatsCallback.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/RTCStatsCallback.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.RTCStatsCallback ( - ) where diff --git a/webkit/GHCJS/DOM/RTCStatsReport.hs b/webkit/GHCJS/DOM/RTCStatsReport.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/RTCStatsReport.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.RTCStatsReport ( - ) where diff --git a/webkit/GHCJS/DOM/RTCStatsResponse.hs b/webkit/GHCJS/DOM/RTCStatsResponse.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/RTCStatsResponse.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.RTCStatsResponse ( - ) where diff --git a/webkit/GHCJS/DOM/RadioNodeList.hs b/webkit/GHCJS/DOM/RadioNodeList.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/RadioNodeList.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.RadioNodeList ( - ) where diff --git a/webkit/GHCJS/DOM/Range.hs b/webkit/GHCJS/DOM/Range.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/Range.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.Range ( - module Graphics.UI.Gtk.WebKit.DOM.Range - ) where -import Graphics.UI.Gtk.WebKit.DOM.Range diff --git a/webkit/GHCJS/DOM/ReadableStream.hs b/webkit/GHCJS/DOM/ReadableStream.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/ReadableStream.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.ReadableStream ( - ) where diff --git a/webkit/GHCJS/DOM/Rect.hs b/webkit/GHCJS/DOM/Rect.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/Rect.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.Rect ( - ) where diff --git a/webkit/GHCJS/DOM/RequestAnimationFrameCallback.hs b/webkit/GHCJS/DOM/RequestAnimationFrameCallback.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/RequestAnimationFrameCallback.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.RequestAnimationFrameCallback ( - ) where diff --git a/webkit/GHCJS/DOM/SQLError.hs b/webkit/GHCJS/DOM/SQLError.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/SQLError.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.SQLError ( - ) where diff --git a/webkit/GHCJS/DOM/SQLResultSet.hs b/webkit/GHCJS/DOM/SQLResultSet.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/SQLResultSet.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.SQLResultSet ( - ) where diff --git a/webkit/GHCJS/DOM/SQLResultSetRowList.hs b/webkit/GHCJS/DOM/SQLResultSetRowList.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/SQLResultSetRowList.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.SQLResultSetRowList ( - ) where diff --git a/webkit/GHCJS/DOM/SQLStatementCallback.hs b/webkit/GHCJS/DOM/SQLStatementCallback.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/SQLStatementCallback.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.SQLStatementCallback ( - ) where diff --git a/webkit/GHCJS/DOM/SQLStatementErrorCallback.hs b/webkit/GHCJS/DOM/SQLStatementErrorCallback.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/SQLStatementErrorCallback.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.SQLStatementErrorCallback ( - ) where diff --git a/webkit/GHCJS/DOM/SQLTransaction.hs b/webkit/GHCJS/DOM/SQLTransaction.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/SQLTransaction.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.SQLTransaction ( - ) where diff --git a/webkit/GHCJS/DOM/SQLTransactionCallback.hs b/webkit/GHCJS/DOM/SQLTransactionCallback.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/SQLTransactionCallback.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.SQLTransactionCallback ( - ) where diff --git a/webkit/GHCJS/DOM/SQLTransactionErrorCallback.hs b/webkit/GHCJS/DOM/SQLTransactionErrorCallback.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/SQLTransactionErrorCallback.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.SQLTransactionErrorCallback ( - ) where diff --git a/webkit/GHCJS/DOM/SVGAElement.hs b/webkit/GHCJS/DOM/SVGAElement.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/SVGAElement.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.SVGAElement ( - ) where diff --git a/webkit/GHCJS/DOM/SVGAltGlyphElement.hs b/webkit/GHCJS/DOM/SVGAltGlyphElement.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/SVGAltGlyphElement.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.SVGAltGlyphElement ( - ) where diff --git a/webkit/GHCJS/DOM/SVGAngle.hs b/webkit/GHCJS/DOM/SVGAngle.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/SVGAngle.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.SVGAngle ( - ) where diff --git a/webkit/GHCJS/DOM/SVGAnimatedAngle.hs b/webkit/GHCJS/DOM/SVGAnimatedAngle.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/SVGAnimatedAngle.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.SVGAnimatedAngle ( - ) where diff --git a/webkit/GHCJS/DOM/SVGAnimatedBoolean.hs b/webkit/GHCJS/DOM/SVGAnimatedBoolean.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/SVGAnimatedBoolean.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.SVGAnimatedBoolean ( - ) where diff --git a/webkit/GHCJS/DOM/SVGAnimatedEnumeration.hs b/webkit/GHCJS/DOM/SVGAnimatedEnumeration.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/SVGAnimatedEnumeration.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.SVGAnimatedEnumeration ( - ) where diff --git a/webkit/GHCJS/DOM/SVGAnimatedInteger.hs b/webkit/GHCJS/DOM/SVGAnimatedInteger.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/SVGAnimatedInteger.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.SVGAnimatedInteger ( - ) where diff --git a/webkit/GHCJS/DOM/SVGAnimatedLength.hs b/webkit/GHCJS/DOM/SVGAnimatedLength.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/SVGAnimatedLength.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.SVGAnimatedLength ( - ) where diff --git a/webkit/GHCJS/DOM/SVGAnimatedLengthList.hs b/webkit/GHCJS/DOM/SVGAnimatedLengthList.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/SVGAnimatedLengthList.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.SVGAnimatedLengthList ( - ) where diff --git a/webkit/GHCJS/DOM/SVGAnimatedNumber.hs b/webkit/GHCJS/DOM/SVGAnimatedNumber.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/SVGAnimatedNumber.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.SVGAnimatedNumber ( - ) where diff --git a/webkit/GHCJS/DOM/SVGAnimatedNumberList.hs b/webkit/GHCJS/DOM/SVGAnimatedNumberList.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/SVGAnimatedNumberList.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.SVGAnimatedNumberList ( - ) where diff --git a/webkit/GHCJS/DOM/SVGAnimatedPreserveAspectRatio.hs b/webkit/GHCJS/DOM/SVGAnimatedPreserveAspectRatio.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/SVGAnimatedPreserveAspectRatio.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.SVGAnimatedPreserveAspectRatio ( - ) where diff --git a/webkit/GHCJS/DOM/SVGAnimatedRect.hs b/webkit/GHCJS/DOM/SVGAnimatedRect.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/SVGAnimatedRect.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.SVGAnimatedRect ( - ) where diff --git a/webkit/GHCJS/DOM/SVGAnimatedString.hs b/webkit/GHCJS/DOM/SVGAnimatedString.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/SVGAnimatedString.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.SVGAnimatedString ( - ) where diff --git a/webkit/GHCJS/DOM/SVGAnimatedTransformList.hs b/webkit/GHCJS/DOM/SVGAnimatedTransformList.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/SVGAnimatedTransformList.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.SVGAnimatedTransformList ( - ) where diff --git a/webkit/GHCJS/DOM/SVGAnimationElement.hs b/webkit/GHCJS/DOM/SVGAnimationElement.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/SVGAnimationElement.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.SVGAnimationElement ( - ) where diff --git a/webkit/GHCJS/DOM/SVGCircleElement.hs b/webkit/GHCJS/DOM/SVGCircleElement.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/SVGCircleElement.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.SVGCircleElement ( - ) where diff --git a/webkit/GHCJS/DOM/SVGClipPathElement.hs b/webkit/GHCJS/DOM/SVGClipPathElement.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/SVGClipPathElement.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.SVGClipPathElement ( - ) where diff --git a/webkit/GHCJS/DOM/SVGColor.hs b/webkit/GHCJS/DOM/SVGColor.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/SVGColor.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.SVGColor ( - ) where diff --git a/webkit/GHCJS/DOM/SVGComponentTransferFunctionElement.hs b/webkit/GHCJS/DOM/SVGComponentTransferFunctionElement.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/SVGComponentTransferFunctionElement.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.SVGComponentTransferFunctionElement ( - ) where diff --git a/webkit/GHCJS/DOM/SVGCursorElement.hs b/webkit/GHCJS/DOM/SVGCursorElement.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/SVGCursorElement.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.SVGCursorElement ( - ) where diff --git a/webkit/GHCJS/DOM/SVGDocument.hs b/webkit/GHCJS/DOM/SVGDocument.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/SVGDocument.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.SVGDocument ( - ) where diff --git a/webkit/GHCJS/DOM/SVGElement.hs b/webkit/GHCJS/DOM/SVGElement.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/SVGElement.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.SVGElement ( - ) where diff --git a/webkit/GHCJS/DOM/SVGEllipseElement.hs b/webkit/GHCJS/DOM/SVGEllipseElement.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/SVGEllipseElement.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.SVGEllipseElement ( - ) where diff --git a/webkit/GHCJS/DOM/SVGExternalResourcesRequired.hs b/webkit/GHCJS/DOM/SVGExternalResourcesRequired.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/SVGExternalResourcesRequired.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.SVGExternalResourcesRequired ( - ) where diff --git a/webkit/GHCJS/DOM/SVGFEBlendElement.hs b/webkit/GHCJS/DOM/SVGFEBlendElement.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/SVGFEBlendElement.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.SVGFEBlendElement ( - ) where diff --git a/webkit/GHCJS/DOM/SVGFEColorMatrixElement.hs b/webkit/GHCJS/DOM/SVGFEColorMatrixElement.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/SVGFEColorMatrixElement.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.SVGFEColorMatrixElement ( - ) where diff --git a/webkit/GHCJS/DOM/SVGFEComponentTransferElement.hs b/webkit/GHCJS/DOM/SVGFEComponentTransferElement.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/SVGFEComponentTransferElement.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.SVGFEComponentTransferElement ( - ) where diff --git a/webkit/GHCJS/DOM/SVGFECompositeElement.hs b/webkit/GHCJS/DOM/SVGFECompositeElement.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/SVGFECompositeElement.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.SVGFECompositeElement ( - ) where diff --git a/webkit/GHCJS/DOM/SVGFEConvolveMatrixElement.hs b/webkit/GHCJS/DOM/SVGFEConvolveMatrixElement.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/SVGFEConvolveMatrixElement.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.SVGFEConvolveMatrixElement ( - ) where diff --git a/webkit/GHCJS/DOM/SVGFEDiffuseLightingElement.hs b/webkit/GHCJS/DOM/SVGFEDiffuseLightingElement.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/SVGFEDiffuseLightingElement.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.SVGFEDiffuseLightingElement ( - ) where diff --git a/webkit/GHCJS/DOM/SVGFEDisplacementMapElement.hs b/webkit/GHCJS/DOM/SVGFEDisplacementMapElement.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/SVGFEDisplacementMapElement.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.SVGFEDisplacementMapElement ( - ) where diff --git a/webkit/GHCJS/DOM/SVGFEDistantLightElement.hs b/webkit/GHCJS/DOM/SVGFEDistantLightElement.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/SVGFEDistantLightElement.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.SVGFEDistantLightElement ( - ) where diff --git a/webkit/GHCJS/DOM/SVGFEDropShadowElement.hs b/webkit/GHCJS/DOM/SVGFEDropShadowElement.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/SVGFEDropShadowElement.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.SVGFEDropShadowElement ( - ) where diff --git a/webkit/GHCJS/DOM/SVGFEGaussianBlurElement.hs b/webkit/GHCJS/DOM/SVGFEGaussianBlurElement.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/SVGFEGaussianBlurElement.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.SVGFEGaussianBlurElement ( - ) where diff --git a/webkit/GHCJS/DOM/SVGFEImageElement.hs b/webkit/GHCJS/DOM/SVGFEImageElement.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/SVGFEImageElement.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.SVGFEImageElement ( - ) where diff --git a/webkit/GHCJS/DOM/SVGFEMergeNodeElement.hs b/webkit/GHCJS/DOM/SVGFEMergeNodeElement.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/SVGFEMergeNodeElement.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.SVGFEMergeNodeElement ( - ) where diff --git a/webkit/GHCJS/DOM/SVGFEMorphologyElement.hs b/webkit/GHCJS/DOM/SVGFEMorphologyElement.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/SVGFEMorphologyElement.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.SVGFEMorphologyElement ( - ) where diff --git a/webkit/GHCJS/DOM/SVGFEOffsetElement.hs b/webkit/GHCJS/DOM/SVGFEOffsetElement.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/SVGFEOffsetElement.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.SVGFEOffsetElement ( - ) where diff --git a/webkit/GHCJS/DOM/SVGFEPointLightElement.hs b/webkit/GHCJS/DOM/SVGFEPointLightElement.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/SVGFEPointLightElement.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.SVGFEPointLightElement ( - ) where diff --git a/webkit/GHCJS/DOM/SVGFESpecularLightingElement.hs b/webkit/GHCJS/DOM/SVGFESpecularLightingElement.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/SVGFESpecularLightingElement.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.SVGFESpecularLightingElement ( - ) where diff --git a/webkit/GHCJS/DOM/SVGFESpotLightElement.hs b/webkit/GHCJS/DOM/SVGFESpotLightElement.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/SVGFESpotLightElement.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.SVGFESpotLightElement ( - ) where diff --git a/webkit/GHCJS/DOM/SVGFETileElement.hs b/webkit/GHCJS/DOM/SVGFETileElement.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/SVGFETileElement.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.SVGFETileElement ( - ) where diff --git a/webkit/GHCJS/DOM/SVGFETurbulenceElement.hs b/webkit/GHCJS/DOM/SVGFETurbulenceElement.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/SVGFETurbulenceElement.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.SVGFETurbulenceElement ( - ) where diff --git a/webkit/GHCJS/DOM/SVGFilterElement.hs b/webkit/GHCJS/DOM/SVGFilterElement.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/SVGFilterElement.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.SVGFilterElement ( - ) where diff --git a/webkit/GHCJS/DOM/SVGFilterPrimitiveStandardAttributes.hs b/webkit/GHCJS/DOM/SVGFilterPrimitiveStandardAttributes.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/SVGFilterPrimitiveStandardAttributes.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.SVGFilterPrimitiveStandardAttributes ( - ) where diff --git a/webkit/GHCJS/DOM/SVGFitToViewBox.hs b/webkit/GHCJS/DOM/SVGFitToViewBox.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/SVGFitToViewBox.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.SVGFitToViewBox ( - ) where diff --git a/webkit/GHCJS/DOM/SVGForeignObjectElement.hs b/webkit/GHCJS/DOM/SVGForeignObjectElement.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/SVGForeignObjectElement.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.SVGForeignObjectElement ( - ) where diff --git a/webkit/GHCJS/DOM/SVGGlyphRefElement.hs b/webkit/GHCJS/DOM/SVGGlyphRefElement.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/SVGGlyphRefElement.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.SVGGlyphRefElement ( - ) where diff --git a/webkit/GHCJS/DOM/SVGGradientElement.hs b/webkit/GHCJS/DOM/SVGGradientElement.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/SVGGradientElement.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.SVGGradientElement ( - ) where diff --git a/webkit/GHCJS/DOM/SVGGraphicsElement.hs b/webkit/GHCJS/DOM/SVGGraphicsElement.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/SVGGraphicsElement.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.SVGGraphicsElement ( - ) where diff --git a/webkit/GHCJS/DOM/SVGImageElement.hs b/webkit/GHCJS/DOM/SVGImageElement.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/SVGImageElement.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.SVGImageElement ( - ) where diff --git a/webkit/GHCJS/DOM/SVGLength.hs b/webkit/GHCJS/DOM/SVGLength.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/SVGLength.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.SVGLength ( - ) where diff --git a/webkit/GHCJS/DOM/SVGLengthList.hs b/webkit/GHCJS/DOM/SVGLengthList.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/SVGLengthList.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.SVGLengthList ( - ) where diff --git a/webkit/GHCJS/DOM/SVGLineElement.hs b/webkit/GHCJS/DOM/SVGLineElement.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/SVGLineElement.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.SVGLineElement ( - ) where diff --git a/webkit/GHCJS/DOM/SVGLinearGradientElement.hs b/webkit/GHCJS/DOM/SVGLinearGradientElement.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/SVGLinearGradientElement.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.SVGLinearGradientElement ( - ) where diff --git a/webkit/GHCJS/DOM/SVGMarkerElement.hs b/webkit/GHCJS/DOM/SVGMarkerElement.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/SVGMarkerElement.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.SVGMarkerElement ( - ) where diff --git a/webkit/GHCJS/DOM/SVGMaskElement.hs b/webkit/GHCJS/DOM/SVGMaskElement.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/SVGMaskElement.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.SVGMaskElement ( - ) where diff --git a/webkit/GHCJS/DOM/SVGMatrix.hs b/webkit/GHCJS/DOM/SVGMatrix.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/SVGMatrix.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.SVGMatrix ( - ) where diff --git a/webkit/GHCJS/DOM/SVGNumber.hs b/webkit/GHCJS/DOM/SVGNumber.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/SVGNumber.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.SVGNumber ( - ) where diff --git a/webkit/GHCJS/DOM/SVGNumberList.hs b/webkit/GHCJS/DOM/SVGNumberList.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/SVGNumberList.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.SVGNumberList ( - ) where diff --git a/webkit/GHCJS/DOM/SVGPaint.hs b/webkit/GHCJS/DOM/SVGPaint.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/SVGPaint.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.SVGPaint ( - ) where diff --git a/webkit/GHCJS/DOM/SVGPathElement.hs b/webkit/GHCJS/DOM/SVGPathElement.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/SVGPathElement.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.SVGPathElement ( - ) where diff --git a/webkit/GHCJS/DOM/SVGPathSeg.hs b/webkit/GHCJS/DOM/SVGPathSeg.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/SVGPathSeg.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.SVGPathSeg ( - ) where diff --git a/webkit/GHCJS/DOM/SVGPathSegArcAbs.hs b/webkit/GHCJS/DOM/SVGPathSegArcAbs.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/SVGPathSegArcAbs.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.SVGPathSegArcAbs ( - ) where diff --git a/webkit/GHCJS/DOM/SVGPathSegArcRel.hs b/webkit/GHCJS/DOM/SVGPathSegArcRel.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/SVGPathSegArcRel.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.SVGPathSegArcRel ( - ) where diff --git a/webkit/GHCJS/DOM/SVGPathSegCurvetoCubicAbs.hs b/webkit/GHCJS/DOM/SVGPathSegCurvetoCubicAbs.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/SVGPathSegCurvetoCubicAbs.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.SVGPathSegCurvetoCubicAbs ( - ) where diff --git a/webkit/GHCJS/DOM/SVGPathSegCurvetoCubicRel.hs b/webkit/GHCJS/DOM/SVGPathSegCurvetoCubicRel.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/SVGPathSegCurvetoCubicRel.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.SVGPathSegCurvetoCubicRel ( - ) where diff --git a/webkit/GHCJS/DOM/SVGPathSegCurvetoCubicSmoothAbs.hs b/webkit/GHCJS/DOM/SVGPathSegCurvetoCubicSmoothAbs.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/SVGPathSegCurvetoCubicSmoothAbs.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.SVGPathSegCurvetoCubicSmoothAbs ( - ) where diff --git a/webkit/GHCJS/DOM/SVGPathSegCurvetoCubicSmoothRel.hs b/webkit/GHCJS/DOM/SVGPathSegCurvetoCubicSmoothRel.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/SVGPathSegCurvetoCubicSmoothRel.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.SVGPathSegCurvetoCubicSmoothRel ( - ) where diff --git a/webkit/GHCJS/DOM/SVGPathSegCurvetoQuadraticAbs.hs b/webkit/GHCJS/DOM/SVGPathSegCurvetoQuadraticAbs.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/SVGPathSegCurvetoQuadraticAbs.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.SVGPathSegCurvetoQuadraticAbs ( - ) where diff --git a/webkit/GHCJS/DOM/SVGPathSegCurvetoQuadraticRel.hs b/webkit/GHCJS/DOM/SVGPathSegCurvetoQuadraticRel.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/SVGPathSegCurvetoQuadraticRel.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.SVGPathSegCurvetoQuadraticRel ( - ) where diff --git a/webkit/GHCJS/DOM/SVGPathSegCurvetoQuadraticSmoothAbs.hs b/webkit/GHCJS/DOM/SVGPathSegCurvetoQuadraticSmoothAbs.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/SVGPathSegCurvetoQuadraticSmoothAbs.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.SVGPathSegCurvetoQuadraticSmoothAbs ( - ) where diff --git a/webkit/GHCJS/DOM/SVGPathSegCurvetoQuadraticSmoothRel.hs b/webkit/GHCJS/DOM/SVGPathSegCurvetoQuadraticSmoothRel.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/SVGPathSegCurvetoQuadraticSmoothRel.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.SVGPathSegCurvetoQuadraticSmoothRel ( - ) where diff --git a/webkit/GHCJS/DOM/SVGPathSegLinetoAbs.hs b/webkit/GHCJS/DOM/SVGPathSegLinetoAbs.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/SVGPathSegLinetoAbs.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.SVGPathSegLinetoAbs ( - ) where diff --git a/webkit/GHCJS/DOM/SVGPathSegLinetoHorizontalAbs.hs b/webkit/GHCJS/DOM/SVGPathSegLinetoHorizontalAbs.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/SVGPathSegLinetoHorizontalAbs.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.SVGPathSegLinetoHorizontalAbs ( - ) where diff --git a/webkit/GHCJS/DOM/SVGPathSegLinetoHorizontalRel.hs b/webkit/GHCJS/DOM/SVGPathSegLinetoHorizontalRel.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/SVGPathSegLinetoHorizontalRel.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.SVGPathSegLinetoHorizontalRel ( - ) where diff --git a/webkit/GHCJS/DOM/SVGPathSegLinetoRel.hs b/webkit/GHCJS/DOM/SVGPathSegLinetoRel.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/SVGPathSegLinetoRel.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.SVGPathSegLinetoRel ( - ) where diff --git a/webkit/GHCJS/DOM/SVGPathSegLinetoVerticalAbs.hs b/webkit/GHCJS/DOM/SVGPathSegLinetoVerticalAbs.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/SVGPathSegLinetoVerticalAbs.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.SVGPathSegLinetoVerticalAbs ( - ) where diff --git a/webkit/GHCJS/DOM/SVGPathSegLinetoVerticalRel.hs b/webkit/GHCJS/DOM/SVGPathSegLinetoVerticalRel.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/SVGPathSegLinetoVerticalRel.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.SVGPathSegLinetoVerticalRel ( - ) where diff --git a/webkit/GHCJS/DOM/SVGPathSegList.hs b/webkit/GHCJS/DOM/SVGPathSegList.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/SVGPathSegList.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.SVGPathSegList ( - ) where diff --git a/webkit/GHCJS/DOM/SVGPathSegMovetoAbs.hs b/webkit/GHCJS/DOM/SVGPathSegMovetoAbs.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/SVGPathSegMovetoAbs.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.SVGPathSegMovetoAbs ( - ) where diff --git a/webkit/GHCJS/DOM/SVGPathSegMovetoRel.hs b/webkit/GHCJS/DOM/SVGPathSegMovetoRel.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/SVGPathSegMovetoRel.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.SVGPathSegMovetoRel ( - ) where diff --git a/webkit/GHCJS/DOM/SVGPatternElement.hs b/webkit/GHCJS/DOM/SVGPatternElement.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/SVGPatternElement.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.SVGPatternElement ( - ) where diff --git a/webkit/GHCJS/DOM/SVGPoint.hs b/webkit/GHCJS/DOM/SVGPoint.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/SVGPoint.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.SVGPoint ( - ) where diff --git a/webkit/GHCJS/DOM/SVGPointList.hs b/webkit/GHCJS/DOM/SVGPointList.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/SVGPointList.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.SVGPointList ( - ) where diff --git a/webkit/GHCJS/DOM/SVGPolygonElement.hs b/webkit/GHCJS/DOM/SVGPolygonElement.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/SVGPolygonElement.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.SVGPolygonElement ( - ) where diff --git a/webkit/GHCJS/DOM/SVGPolylineElement.hs b/webkit/GHCJS/DOM/SVGPolylineElement.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/SVGPolylineElement.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.SVGPolylineElement ( - ) where diff --git a/webkit/GHCJS/DOM/SVGPreserveAspectRatio.hs b/webkit/GHCJS/DOM/SVGPreserveAspectRatio.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/SVGPreserveAspectRatio.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.SVGPreserveAspectRatio ( - ) where diff --git a/webkit/GHCJS/DOM/SVGRadialGradientElement.hs b/webkit/GHCJS/DOM/SVGRadialGradientElement.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/SVGRadialGradientElement.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.SVGRadialGradientElement ( - ) where diff --git a/webkit/GHCJS/DOM/SVGRect.hs b/webkit/GHCJS/DOM/SVGRect.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/SVGRect.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.SVGRect ( - ) where diff --git a/webkit/GHCJS/DOM/SVGRectElement.hs b/webkit/GHCJS/DOM/SVGRectElement.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/SVGRectElement.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.SVGRectElement ( - ) where diff --git a/webkit/GHCJS/DOM/SVGRenderingIntent.hs b/webkit/GHCJS/DOM/SVGRenderingIntent.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/SVGRenderingIntent.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.SVGRenderingIntent ( - ) where diff --git a/webkit/GHCJS/DOM/SVGSVGElement.hs b/webkit/GHCJS/DOM/SVGSVGElement.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/SVGSVGElement.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.SVGSVGElement ( - ) where diff --git a/webkit/GHCJS/DOM/SVGScriptElement.hs b/webkit/GHCJS/DOM/SVGScriptElement.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/SVGScriptElement.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.SVGScriptElement ( - ) where diff --git a/webkit/GHCJS/DOM/SVGStopElement.hs b/webkit/GHCJS/DOM/SVGStopElement.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/SVGStopElement.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.SVGStopElement ( - ) where diff --git a/webkit/GHCJS/DOM/SVGStringList.hs b/webkit/GHCJS/DOM/SVGStringList.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/SVGStringList.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.SVGStringList ( - ) where diff --git a/webkit/GHCJS/DOM/SVGStyleElement.hs b/webkit/GHCJS/DOM/SVGStyleElement.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/SVGStyleElement.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.SVGStyleElement ( - ) where diff --git a/webkit/GHCJS/DOM/SVGTests.hs b/webkit/GHCJS/DOM/SVGTests.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/SVGTests.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.SVGTests ( - ) where diff --git a/webkit/GHCJS/DOM/SVGTextContentElement.hs b/webkit/GHCJS/DOM/SVGTextContentElement.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/SVGTextContentElement.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.SVGTextContentElement ( - ) where diff --git a/webkit/GHCJS/DOM/SVGTextPathElement.hs b/webkit/GHCJS/DOM/SVGTextPathElement.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/SVGTextPathElement.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.SVGTextPathElement ( - ) where diff --git a/webkit/GHCJS/DOM/SVGTextPositioningElement.hs b/webkit/GHCJS/DOM/SVGTextPositioningElement.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/SVGTextPositioningElement.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.SVGTextPositioningElement ( - ) where diff --git a/webkit/GHCJS/DOM/SVGTransform.hs b/webkit/GHCJS/DOM/SVGTransform.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/SVGTransform.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.SVGTransform ( - ) where diff --git a/webkit/GHCJS/DOM/SVGTransformList.hs b/webkit/GHCJS/DOM/SVGTransformList.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/SVGTransformList.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.SVGTransformList ( - ) where diff --git a/webkit/GHCJS/DOM/SVGURIReference.hs b/webkit/GHCJS/DOM/SVGURIReference.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/SVGURIReference.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.SVGURIReference ( - ) where diff --git a/webkit/GHCJS/DOM/SVGUnitTypes.hs b/webkit/GHCJS/DOM/SVGUnitTypes.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/SVGUnitTypes.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.SVGUnitTypes ( - ) where diff --git a/webkit/GHCJS/DOM/SVGUseElement.hs b/webkit/GHCJS/DOM/SVGUseElement.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/SVGUseElement.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.SVGUseElement ( - ) where diff --git a/webkit/GHCJS/DOM/SVGViewElement.hs b/webkit/GHCJS/DOM/SVGViewElement.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/SVGViewElement.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.SVGViewElement ( - ) where diff --git a/webkit/GHCJS/DOM/SVGViewSpec.hs b/webkit/GHCJS/DOM/SVGViewSpec.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/SVGViewSpec.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.SVGViewSpec ( - ) where diff --git a/webkit/GHCJS/DOM/SVGZoomAndPan.hs b/webkit/GHCJS/DOM/SVGZoomAndPan.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/SVGZoomAndPan.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.SVGZoomAndPan ( - ) where diff --git a/webkit/GHCJS/DOM/SVGZoomEvent.hs b/webkit/GHCJS/DOM/SVGZoomEvent.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/SVGZoomEvent.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.SVGZoomEvent ( - ) where diff --git a/webkit/GHCJS/DOM/Screen.hs b/webkit/GHCJS/DOM/Screen.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/Screen.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.Screen ( - module Graphics.UI.Gtk.WebKit.DOM.Screen - ) where -import Graphics.UI.Gtk.WebKit.DOM.Screen diff --git a/webkit/GHCJS/DOM/ScriptProcessorNode.hs b/webkit/GHCJS/DOM/ScriptProcessorNode.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/ScriptProcessorNode.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.ScriptProcessorNode ( - ) where diff --git a/webkit/GHCJS/DOM/ScriptProfile.hs b/webkit/GHCJS/DOM/ScriptProfile.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/ScriptProfile.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.ScriptProfile ( - ) where diff --git a/webkit/GHCJS/DOM/ScriptProfileNode.hs b/webkit/GHCJS/DOM/ScriptProfileNode.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/ScriptProfileNode.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.ScriptProfileNode ( - ) where diff --git a/webkit/GHCJS/DOM/SecurityPolicy.hs b/webkit/GHCJS/DOM/SecurityPolicy.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/SecurityPolicy.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.SecurityPolicy ( - module Graphics.UI.Gtk.WebKit.DOM.SecurityPolicy - ) where -import Graphics.UI.Gtk.WebKit.DOM.SecurityPolicy diff --git a/webkit/GHCJS/DOM/SecurityPolicyViolationEvent.hs b/webkit/GHCJS/DOM/SecurityPolicyViolationEvent.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/SecurityPolicyViolationEvent.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.SecurityPolicyViolationEvent ( - ) where diff --git a/webkit/GHCJS/DOM/Selection.hs b/webkit/GHCJS/DOM/Selection.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/Selection.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.Selection ( - module Graphics.UI.Gtk.WebKit.DOM.Selection - ) where -import Graphics.UI.Gtk.WebKit.DOM.Selection diff --git a/webkit/GHCJS/DOM/SourceBuffer.hs b/webkit/GHCJS/DOM/SourceBuffer.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/SourceBuffer.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.SourceBuffer ( - ) where diff --git a/webkit/GHCJS/DOM/SourceBufferList.hs b/webkit/GHCJS/DOM/SourceBufferList.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/SourceBufferList.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.SourceBufferList ( - ) where diff --git a/webkit/GHCJS/DOM/SourceInfo.hs b/webkit/GHCJS/DOM/SourceInfo.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/SourceInfo.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.SourceInfo ( - ) where diff --git a/webkit/GHCJS/DOM/SpeechSynthesis.hs b/webkit/GHCJS/DOM/SpeechSynthesis.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/SpeechSynthesis.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.SpeechSynthesis ( - ) where diff --git a/webkit/GHCJS/DOM/SpeechSynthesisEvent.hs b/webkit/GHCJS/DOM/SpeechSynthesisEvent.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/SpeechSynthesisEvent.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.SpeechSynthesisEvent ( - ) where diff --git a/webkit/GHCJS/DOM/SpeechSynthesisUtterance.hs b/webkit/GHCJS/DOM/SpeechSynthesisUtterance.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/SpeechSynthesisUtterance.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.SpeechSynthesisUtterance ( - ) where diff --git a/webkit/GHCJS/DOM/SpeechSynthesisVoice.hs b/webkit/GHCJS/DOM/SpeechSynthesisVoice.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/SpeechSynthesisVoice.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.SpeechSynthesisVoice ( - ) where diff --git a/webkit/GHCJS/DOM/Storage.hs b/webkit/GHCJS/DOM/Storage.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/Storage.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.Storage ( - module Graphics.UI.Gtk.WebKit.DOM.Storage - ) where -import Graphics.UI.Gtk.WebKit.DOM.Storage diff --git a/webkit/GHCJS/DOM/StorageErrorCallback.hs b/webkit/GHCJS/DOM/StorageErrorCallback.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/StorageErrorCallback.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.StorageErrorCallback ( - ) where diff --git a/webkit/GHCJS/DOM/StorageEvent.hs b/webkit/GHCJS/DOM/StorageEvent.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/StorageEvent.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.StorageEvent ( - ) where diff --git a/webkit/GHCJS/DOM/StorageInfo.hs b/webkit/GHCJS/DOM/StorageInfo.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/StorageInfo.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.StorageInfo ( - module Graphics.UI.Gtk.WebKit.DOM.StorageInfo - ) where -import Graphics.UI.Gtk.WebKit.DOM.StorageInfo diff --git a/webkit/GHCJS/DOM/StorageQuota.hs b/webkit/GHCJS/DOM/StorageQuota.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/StorageQuota.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.StorageQuota ( - ) where diff --git a/webkit/GHCJS/DOM/StorageQuotaCallback.hs b/webkit/GHCJS/DOM/StorageQuotaCallback.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/StorageQuotaCallback.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.StorageQuotaCallback ( - ) where diff --git a/webkit/GHCJS/DOM/StorageUsageCallback.hs b/webkit/GHCJS/DOM/StorageUsageCallback.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/StorageUsageCallback.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.StorageUsageCallback ( - ) where diff --git a/webkit/GHCJS/DOM/StringCallback.hs b/webkit/GHCJS/DOM/StringCallback.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/StringCallback.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.StringCallback ( - ) where diff --git a/webkit/GHCJS/DOM/StyleMedia.hs b/webkit/GHCJS/DOM/StyleMedia.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/StyleMedia.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.StyleMedia ( - module Graphics.UI.Gtk.WebKit.DOM.StyleMedia - ) where -import Graphics.UI.Gtk.WebKit.DOM.StyleMedia diff --git a/webkit/GHCJS/DOM/StyleSheet.hs b/webkit/GHCJS/DOM/StyleSheet.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/StyleSheet.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.StyleSheet ( - module Graphics.UI.Gtk.WebKit.DOM.StyleSheet - ) where -import Graphics.UI.Gtk.WebKit.DOM.StyleSheet diff --git a/webkit/GHCJS/DOM/StyleSheetList.hs b/webkit/GHCJS/DOM/StyleSheetList.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/StyleSheetList.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.StyleSheetList ( - module Graphics.UI.Gtk.WebKit.DOM.StyleSheetList - ) where -import Graphics.UI.Gtk.WebKit.DOM.StyleSheetList diff --git a/webkit/GHCJS/DOM/SubtleCrypto.hs b/webkit/GHCJS/DOM/SubtleCrypto.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/SubtleCrypto.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.SubtleCrypto ( - ) where diff --git a/webkit/GHCJS/DOM/Text.hs b/webkit/GHCJS/DOM/Text.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/Text.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.Text ( - module Graphics.UI.Gtk.WebKit.DOM.Text - ) where -import Graphics.UI.Gtk.WebKit.DOM.Text diff --git a/webkit/GHCJS/DOM/TextEvent.hs b/webkit/GHCJS/DOM/TextEvent.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/TextEvent.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.TextEvent ( - ) where diff --git a/webkit/GHCJS/DOM/TextMetrics.hs b/webkit/GHCJS/DOM/TextMetrics.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/TextMetrics.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.TextMetrics ( - ) where diff --git a/webkit/GHCJS/DOM/TextTrack.hs b/webkit/GHCJS/DOM/TextTrack.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/TextTrack.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.TextTrack ( - module Graphics.UI.Gtk.WebKit.DOM.TextTrack - ) where -import Graphics.UI.Gtk.WebKit.DOM.TextTrack diff --git a/webkit/GHCJS/DOM/TextTrackCue.hs b/webkit/GHCJS/DOM/TextTrackCue.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/TextTrackCue.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.TextTrackCue ( - module Graphics.UI.Gtk.WebKit.DOM.TextTrackCue - ) where -import Graphics.UI.Gtk.WebKit.DOM.TextTrackCue diff --git a/webkit/GHCJS/DOM/TextTrackCueList.hs b/webkit/GHCJS/DOM/TextTrackCueList.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/TextTrackCueList.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.TextTrackCueList ( - module Graphics.UI.Gtk.WebKit.DOM.TextTrackCueList - ) where -import Graphics.UI.Gtk.WebKit.DOM.TextTrackCueList diff --git a/webkit/GHCJS/DOM/TextTrackList.hs b/webkit/GHCJS/DOM/TextTrackList.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/TextTrackList.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.TextTrackList ( - module Graphics.UI.Gtk.WebKit.DOM.TextTrackList - ) where -import Graphics.UI.Gtk.WebKit.DOM.TextTrackList diff --git a/webkit/GHCJS/DOM/TimeRanges.hs b/webkit/GHCJS/DOM/TimeRanges.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/TimeRanges.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.TimeRanges ( - module Graphics.UI.Gtk.WebKit.DOM.TimeRanges - ) where -import Graphics.UI.Gtk.WebKit.DOM.TimeRanges diff --git a/webkit/GHCJS/DOM/Touch.hs b/webkit/GHCJS/DOM/Touch.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/Touch.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.Touch ( - module Graphics.UI.Gtk.WebKit.DOM.Touch - ) where -import Graphics.UI.Gtk.WebKit.DOM.Touch diff --git a/webkit/GHCJS/DOM/TouchEvent.hs b/webkit/GHCJS/DOM/TouchEvent.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/TouchEvent.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.TouchEvent ( - ) where diff --git a/webkit/GHCJS/DOM/TouchList.hs b/webkit/GHCJS/DOM/TouchList.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/TouchList.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.TouchList ( - ) where diff --git a/webkit/GHCJS/DOM/TrackEvent.hs b/webkit/GHCJS/DOM/TrackEvent.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/TrackEvent.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.TrackEvent ( - ) where diff --git a/webkit/GHCJS/DOM/TransitionEvent.hs b/webkit/GHCJS/DOM/TransitionEvent.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/TransitionEvent.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.TransitionEvent ( - ) where diff --git a/webkit/GHCJS/DOM/TreeWalker.hs b/webkit/GHCJS/DOM/TreeWalker.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/TreeWalker.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.TreeWalker ( - module Graphics.UI.Gtk.WebKit.DOM.TreeWalker - ) where -import Graphics.UI.Gtk.WebKit.DOM.TreeWalker diff --git a/webkit/GHCJS/DOM/TypeConversions.hs b/webkit/GHCJS/DOM/TypeConversions.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/TypeConversions.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.TypeConversions ( - ) where diff --git a/webkit/GHCJS/DOM/Types.hs b/webkit/GHCJS/DOM/Types.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/Types.hs +++ /dev/null @@ -1,1558 +0,0 @@ -{-# LANGUAGE CPP #-} -{-# LANGUAGE ConstraintKinds #-} -module GHCJS.DOM.Types ( --- AUTO GENERATION STARTS HERE - propagateGError, GType(..), DOMString(..), ToDOMString(..), FromDOMString(..) - , FocusEvent - , TouchEvent - , module Graphics.UI.Gtk.WebKit.Types - , IsGObject - - , IsApplicationCache - , IsAttr -#ifndef USE_OLD_WEBKIT - , IsAudioTrack -#endif -#ifndef USE_OLD_WEBKIT - , IsAudioTrackList -#endif -#ifndef USE_OLD_WEBKIT - , IsBarProp -#endif -#ifndef USE_OLD_WEBKIT - , IsBatteryManager -#endif - , IsBlob - , IsCDATASection -#ifndef USE_OLD_WEBKIT - , IsCSS -#endif - , IsCSSRule - , IsCSSRuleList - , IsCSSStyleDeclaration - , IsCSSStyleSheet - , IsCSSValue - , IsCharacterData - , IsComment - , IsDOMImplementation -#ifndef USE_OLD_WEBKIT - , IsDOMNamedFlowCollection -#endif - , IsDOMSettableTokenList - , IsDOMStringList - , IsDOMTokenList - , IsDocument - , IsDocumentFragment - , IsDocumentType - , IsElement - , IsEntityReference - , IsEvent - , IsEventTarget - , IsFile - , IsFileList - , IsGeolocation - , IsHTMLAnchorElement - , IsHTMLAppletElement - , IsHTMLAreaElement - , IsHTMLAudioElement - , IsHTMLBRElement - , IsHTMLBaseElement - , IsHTMLBaseFontElement - , IsHTMLBodyElement - , IsHTMLButtonElement - , IsHTMLCanvasElement - , IsHTMLCollection - , IsHTMLDListElement - , IsHTMLDetailsElement - , IsHTMLDirectoryElement - , IsHTMLDivElement - , IsHTMLDocument - , IsHTMLElement - , IsHTMLEmbedElement - , IsHTMLFieldSetElement - , IsHTMLFontElement - , IsHTMLFormElement - , IsHTMLFrameElement - , IsHTMLFrameSetElement - , IsHTMLHRElement - , IsHTMLHeadElement - , IsHTMLHeadingElement - , IsHTMLHtmlElement - , IsHTMLIFrameElement - , IsHTMLImageElement - , IsHTMLInputElement - , IsHTMLKeygenElement - , IsHTMLLIElement - , IsHTMLLabelElement - , IsHTMLLegendElement - , IsHTMLLinkElement - , IsHTMLMapElement - , IsHTMLMarqueeElement - , IsHTMLMediaElement - , IsHTMLMenuElement - , IsHTMLMetaElement - , IsHTMLModElement - , IsHTMLOListElement - , IsHTMLObjectElement - , IsHTMLOptGroupElement - , IsHTMLOptionElement - , IsHTMLOptionsCollection - , IsHTMLParagraphElement - , IsHTMLParamElement - , IsHTMLPreElement - , IsHTMLQuoteElement - , IsHTMLScriptElement - , IsHTMLSelectElement - , IsHTMLStyleElement - , IsHTMLTableCaptionElement - , IsHTMLTableCellElement - , IsHTMLTableColElement - , IsHTMLTableElement - , IsHTMLTableRowElement - , IsHTMLTableSectionElement - , IsHTMLTextAreaElement - , IsHTMLTitleElement - , IsHTMLUListElement - , IsHTMLVideoElement - , IsHistory -#ifndef USE_OLD_WEBKIT - , IsKeyboardEvent -#endif - , IsLocation - , IsMediaError - , IsMediaList - , IsMediaQueryList - , IsMessagePort - , IsMimeType - , IsMimeTypeArray - , IsMouseEvent - , IsNamedNodeMap - , IsNavigator - , IsNode - , IsNodeFilter - , IsNodeIterator - , IsNodeList -#ifndef USE_OLD_WEBKIT - , IsPerformance -#endif -#ifndef USE_OLD_WEBKIT - , IsPerformanceNavigation -#endif -#ifndef USE_OLD_WEBKIT - , IsPerformanceTiming -#endif - , IsPlugin - , IsPluginArray - , IsProcessingInstruction - , IsRange - , IsScreen -#ifndef USE_OLD_WEBKIT - , IsSecurityPolicy -#endif - , IsSelection - , IsStorage -#ifndef USE_OLD_WEBKIT - , IsStorageInfo -#endif -#ifndef USE_OLD_WEBKIT - , IsStorageQuota -#endif - , IsStyleMedia - , IsStyleSheet - , IsStyleSheetList - , IsText -#ifndef USE_OLD_WEBKIT - , IsTextTrack -#endif -#ifndef USE_OLD_WEBKIT - , IsTextTrackCue -#endif -#ifndef USE_OLD_WEBKIT - , IsTextTrackCueList -#endif -#ifndef USE_OLD_WEBKIT - , IsTextTrackList -#endif - , IsTimeRanges -#ifndef USE_OLD_WEBKIT - , IsTouch -#endif - , IsTreeWalker - , IsUIEvent - , IsValidityState -#ifndef USE_OLD_WEBKIT - , IsVideoTrack -#endif -#ifndef USE_OLD_WEBKIT - , IsVideoTrackList -#endif - , IsWebKitNamedFlow - , IsWebKitPoint -#ifndef USE_OLD_WEBKIT - , IsWheelEvent -#endif - , IsWindow - , IsXPathExpression - , IsXPathNSResolver - , IsXPathResult --- AUTO GENERATION ENDS HERE - ) where - -import Control.Applicative ((<$>)) -import qualified Data.Text as T (Text) -import Data.Maybe (isNothing) -import Foreign.C (CString) -import Graphics.UI.Gtk.WebKit.Types -import System.Glib (propagateGError, GType(..)) -import System.Glib.UTFString - (readUTFString, GlibString(..)) -import Data.Int (Int8, Int16, Int32, Int64) -import Data.Word (Word8, Word16, Word32, Word64) - -type IsGObject o = GObjectClass o - --- | Fastest string type to use when you just --- want to take a string from the DOM then --- give it back as is. -type DOMString = T.Text - -type ToDOMString s = GlibString s -type FromDOMString s = GlibString s - -type FocusEvent = UIEvent -type TouchEvent = UIEvent - -type IsDOMString s = (ToDOMString s, FromDOMString s) - -type GLenum = Word32 -type GLboolean = Bool -type GLbitfield = Word32 -type GLbyte = Int8 -type GLshort = Int16 -type GLint = Int32 -type GLint64 = Int64 -type GLsizei = Int32 -type GLintptr = Int64 -type GLsizeiptr = Int64 -type GLubyte = Word8 -type GLushort = Word16 -type GLuint = Word32 -type GLuint64 = Word64 -type GLfloat = Double -type GLclampf = Double - --- AUTO GENERATION STARTS HERE --- The remainder of this file is generated from IDL files using domconv-webkit-jsffi - - - - - - - - - - - - - - -type IsApplicationCache o = ApplicationCacheClass o - - -type IsAttr o = AttrClass o - - - - - - - - - - - - - - - - - - - - -#ifndef USE_OLD_WEBKIT -type IsAudioTrack o = AudioTrackClass o -#endif - - -#ifndef USE_OLD_WEBKIT -type IsAudioTrackList o = AudioTrackListClass o -#endif - - - - -#ifndef USE_OLD_WEBKIT -type IsBarProp o = BarPropClass o -#endif - - -#ifndef USE_OLD_WEBKIT -type IsBatteryManager o = BatteryManagerClass o -#endif - - - - - - - - -type IsBlob o = BlobClass o - - -type IsCDATASection o = CDATASectionClass o - - -#ifndef USE_OLD_WEBKIT -type IsCSS o = CSSClass o -#endif - - - - - - - - - - - - - - - - - - - - -type IsCSSRule o = CSSRuleClass o - - -type IsCSSRuleList o = CSSRuleListClass o - - -type IsCSSStyleDeclaration o = CSSStyleDeclarationClass o - - - - -type IsCSSStyleSheet o = CSSStyleSheetClass o - - - - - - -type IsCSSValue o = CSSValueClass o - - - - - - - - - - - - - - - - - - - - -type IsCharacterData o = CharacterDataClass o - - - - - - - - - - - - -type IsComment o = CommentClass o - - - - - - - - - - - - - - - - - - - - -type IsDOMImplementation o = DOMImplementationClass o - - -#ifndef USE_OLD_WEBKIT -type IsDOMNamedFlowCollection o = DOMNamedFlowCollectionClass o -#endif - - - - -type IsDOMSettableTokenList o = DOMSettableTokenListClass o - - -type IsDOMStringList o = DOMStringListClass o - - - - -type IsDOMTokenList o = DOMTokenListClass o - - - - - - - - - - - - - - - - - - - - - - -type IsDocument o = DocumentClass o - - -type IsDocumentFragment o = DocumentFragmentClass o - - -type IsDocumentType o = DocumentTypeClass o - - - - - - - - - - - - - - -type IsElement o = ElementClass o - - - - -type IsEntityReference o = EntityReferenceClass o - - - - -type IsEvent o = EventClass o - - - - - - -type IsEventTarget o = EventTargetClass o - - -type IsFile o = FileClass o - - - - -type IsFileList o = FileListClass o - - - - - - - - - - - - - - - - - - - - -type IsGeolocation o = GeolocationClass o - - - - - - -type IsHTMLAnchorElement o = HTMLAnchorElementClass o - - -type IsHTMLAppletElement o = HTMLAppletElementClass o - - -type IsHTMLAreaElement o = HTMLAreaElementClass o - - -type IsHTMLAudioElement o = HTMLAudioElementClass o - - -type IsHTMLBRElement o = HTMLBRElementClass o - - -type IsHTMLBaseElement o = HTMLBaseElementClass o - - -type IsHTMLBaseFontElement o = HTMLBaseFontElementClass o - - -type IsHTMLBodyElement o = HTMLBodyElementClass o - - -type IsHTMLButtonElement o = HTMLButtonElementClass o - - -type IsHTMLCanvasElement o = HTMLCanvasElementClass o - - -type IsHTMLCollection o = HTMLCollectionClass o - - -type IsHTMLDListElement o = HTMLDListElementClass o - - - - -type IsHTMLDetailsElement o = HTMLDetailsElementClass o - - -type IsHTMLDirectoryElement o = HTMLDirectoryElementClass o - - -type IsHTMLDivElement o = HTMLDivElementClass o - - -type IsHTMLDocument o = HTMLDocumentClass o - - -type IsHTMLElement o = HTMLElementClass o - - -type IsHTMLEmbedElement o = HTMLEmbedElementClass o - - -type IsHTMLFieldSetElement o = HTMLFieldSetElementClass o - - -type IsHTMLFontElement o = HTMLFontElementClass o - - - - -type IsHTMLFormElement o = HTMLFormElementClass o - - -type IsHTMLFrameElement o = HTMLFrameElementClass o - - -type IsHTMLFrameSetElement o = HTMLFrameSetElementClass o - - -type IsHTMLHRElement o = HTMLHRElementClass o - - -type IsHTMLHeadElement o = HTMLHeadElementClass o - - -type IsHTMLHeadingElement o = HTMLHeadingElementClass o - - -type IsHTMLHtmlElement o = HTMLHtmlElementClass o - - -type IsHTMLIFrameElement o = HTMLIFrameElementClass o - - -type IsHTMLImageElement o = HTMLImageElementClass o - - -type IsHTMLInputElement o = HTMLInputElementClass o - - -type IsHTMLKeygenElement o = HTMLKeygenElementClass o - - -type IsHTMLLIElement o = HTMLLIElementClass o - - -type IsHTMLLabelElement o = HTMLLabelElementClass o - - -type IsHTMLLegendElement o = HTMLLegendElementClass o - - -type IsHTMLLinkElement o = HTMLLinkElementClass o - - -type IsHTMLMapElement o = HTMLMapElementClass o - - -type IsHTMLMarqueeElement o = HTMLMarqueeElementClass o - - -type IsHTMLMediaElement o = HTMLMediaElementClass o - - -type IsHTMLMenuElement o = HTMLMenuElementClass o - - -type IsHTMLMetaElement o = HTMLMetaElementClass o - - - - -type IsHTMLModElement o = HTMLModElementClass o - - -type IsHTMLOListElement o = HTMLOListElementClass o - - -type IsHTMLObjectElement o = HTMLObjectElementClass o - - -type IsHTMLOptGroupElement o = HTMLOptGroupElementClass o - - -type IsHTMLOptionElement o = HTMLOptionElementClass o - - -type IsHTMLOptionsCollection o = HTMLOptionsCollectionClass o - - - - -type IsHTMLParagraphElement o = HTMLParagraphElementClass o - - -type IsHTMLParamElement o = HTMLParamElementClass o - - -type IsHTMLPreElement o = HTMLPreElementClass o - - - - -type IsHTMLQuoteElement o = HTMLQuoteElementClass o - - -type IsHTMLScriptElement o = HTMLScriptElementClass o - - -type IsHTMLSelectElement o = HTMLSelectElementClass o - - - - - - -type IsHTMLStyleElement o = HTMLStyleElementClass o - - -type IsHTMLTableCaptionElement o = HTMLTableCaptionElementClass o - - -type IsHTMLTableCellElement o = HTMLTableCellElementClass o - - -type IsHTMLTableColElement o = HTMLTableColElementClass o - - -type IsHTMLTableElement o = HTMLTableElementClass o - - -type IsHTMLTableRowElement o = HTMLTableRowElementClass o - - -type IsHTMLTableSectionElement o = HTMLTableSectionElementClass o - - - - -type IsHTMLTextAreaElement o = HTMLTextAreaElementClass o - - -type IsHTMLTitleElement o = HTMLTitleElementClass o - - - - -type IsHTMLUListElement o = HTMLUListElementClass o - - - - -type IsHTMLVideoElement o = HTMLVideoElementClass o - - - - -type IsHistory o = HistoryClass o - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -#ifndef USE_OLD_WEBKIT -type IsKeyboardEvent o = KeyboardEventClass o -#endif - - -type IsLocation o = LocationClass o - - - - - - - - - - -type IsMediaError o = MediaErrorClass o - - - - - - - - - - - - - - -type IsMediaList o = MediaListClass o - - -type IsMediaQueryList o = MediaQueryListClass o - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -type IsMessagePort o = MessagePortClass o - - -type IsMimeType o = MimeTypeClass o - - -type IsMimeTypeArray o = MimeTypeArrayClass o - - -type IsMouseEvent o = MouseEventClass o - - - - - - - - -type IsNamedNodeMap o = NamedNodeMapClass o - - -type IsNavigator o = NavigatorClass o - - - - -type IsNode o = NodeClass o - - -type IsNodeFilter o = NodeFilterClass o - - -type IsNodeIterator o = NodeIteratorClass o - - -type IsNodeList o = NodeListClass o - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -#ifndef USE_OLD_WEBKIT -type IsPerformance o = PerformanceClass o -#endif - - - - - - - - - - -#ifndef USE_OLD_WEBKIT -type IsPerformanceNavigation o = PerformanceNavigationClass o -#endif - - - - -#ifndef USE_OLD_WEBKIT -type IsPerformanceTiming o = PerformanceTimingClass o -#endif - - - - -type IsPlugin o = PluginClass o - - -type IsPluginArray o = PluginArrayClass o - - - - - - -type IsProcessingInstruction o = ProcessingInstructionClass o - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -type IsRange o = RangeClass o - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -type IsScreen o = ScreenClass o - - - - - - - - -#ifndef USE_OLD_WEBKIT -type IsSecurityPolicy o = SecurityPolicyClass o -#endif - - - - -type IsSelection o = SelectionClass o - - - - - - - - - - - - - - - - -type IsStorage o = StorageClass o - - - - -#ifndef USE_OLD_WEBKIT -type IsStorageInfo o = StorageInfoClass o -#endif - - -#ifndef USE_OLD_WEBKIT -type IsStorageQuota o = StorageQuotaClass o -#endif - - -type IsStyleMedia o = StyleMediaClass o - - -type IsStyleSheet o = StyleSheetClass o - - -type IsStyleSheetList o = StyleSheetListClass o - - - - -type IsText o = TextClass o - - - - - - -#ifndef USE_OLD_WEBKIT -type IsTextTrack o = TextTrackClass o -#endif - - -#ifndef USE_OLD_WEBKIT -type IsTextTrackCue o = TextTrackCueClass o -#endif - - -#ifndef USE_OLD_WEBKIT -type IsTextTrackCueList o = TextTrackCueListClass o -#endif - - -#ifndef USE_OLD_WEBKIT -type IsTextTrackList o = TextTrackListClass o -#endif - - -type IsTimeRanges o = TimeRangesClass o - - -#ifndef USE_OLD_WEBKIT -type IsTouch o = TouchClass o -#endif - - - - - - - - - - -type IsTreeWalker o = TreeWalkerClass o - - - - -type IsUIEvent o = UIEventClass o - - - - - - - - - - - - - - - - - - -type IsValidityState o = ValidityStateClass o - - - - - - -#ifndef USE_OLD_WEBKIT -type IsVideoTrack o = VideoTrackClass o -#endif - - -#ifndef USE_OLD_WEBKIT -type IsVideoTrackList o = VideoTrackListClass o -#endif - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -type IsWebKitNamedFlow o = WebKitNamedFlowClass o - - - - - - -type IsWebKitPoint o = WebKitPointClass o - - - - - - -#ifndef USE_OLD_WEBKIT -type IsWheelEvent o = WheelEventClass o -#endif - - -type IsWindow o = WindowClass o - - - - - - - - - - - - - - - - - - - - - - - - -type IsXPathExpression o = XPathExpressionClass o - - -type IsXPathNSResolver o = XPathNSResolverClass o - - -type IsXPathResult o = XPathResultClass o - - - - diff --git a/webkit/GHCJS/DOM/UIEvent.hs b/webkit/GHCJS/DOM/UIEvent.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/UIEvent.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.UIEvent ( - module Graphics.UI.Gtk.WebKit.DOM.UIEvent - ) where -import Graphics.UI.Gtk.WebKit.DOM.UIEvent diff --git a/webkit/GHCJS/DOM/UIRequestEvent.hs b/webkit/GHCJS/DOM/UIRequestEvent.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/UIRequestEvent.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.UIRequestEvent ( - ) where diff --git a/webkit/GHCJS/DOM/URL.hs b/webkit/GHCJS/DOM/URL.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/URL.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.URL ( - ) where diff --git a/webkit/GHCJS/DOM/URLUtils.hs b/webkit/GHCJS/DOM/URLUtils.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/URLUtils.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.URLUtils ( - ) where diff --git a/webkit/GHCJS/DOM/UserMessageHandler.hs b/webkit/GHCJS/DOM/UserMessageHandler.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/UserMessageHandler.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.UserMessageHandler ( - ) where diff --git a/webkit/GHCJS/DOM/VTTCue.hs b/webkit/GHCJS/DOM/VTTCue.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/VTTCue.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.VTTCue ( - ) where diff --git a/webkit/GHCJS/DOM/VTTRegion.hs b/webkit/GHCJS/DOM/VTTRegion.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/VTTRegion.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.VTTRegion ( - ) where diff --git a/webkit/GHCJS/DOM/VTTRegionList.hs b/webkit/GHCJS/DOM/VTTRegionList.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/VTTRegionList.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.VTTRegionList ( - ) where diff --git a/webkit/GHCJS/DOM/ValidityState.hs b/webkit/GHCJS/DOM/ValidityState.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/ValidityState.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.ValidityState ( - module Graphics.UI.Gtk.WebKit.DOM.ValidityState - ) where -import Graphics.UI.Gtk.WebKit.DOM.ValidityState diff --git a/webkit/GHCJS/DOM/VideoPlaybackQuality.hs b/webkit/GHCJS/DOM/VideoPlaybackQuality.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/VideoPlaybackQuality.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.VideoPlaybackQuality ( - ) where diff --git a/webkit/GHCJS/DOM/VideoStreamTrack.hs b/webkit/GHCJS/DOM/VideoStreamTrack.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/VideoStreamTrack.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.VideoStreamTrack ( - ) where diff --git a/webkit/GHCJS/DOM/VideoTrack.hs b/webkit/GHCJS/DOM/VideoTrack.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/VideoTrack.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.VideoTrack ( - module Graphics.UI.Gtk.WebKit.DOM.VideoTrack - ) where -import Graphics.UI.Gtk.WebKit.DOM.VideoTrack diff --git a/webkit/GHCJS/DOM/VideoTrackList.hs b/webkit/GHCJS/DOM/VideoTrackList.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/VideoTrackList.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.VideoTrackList ( - module Graphics.UI.Gtk.WebKit.DOM.VideoTrackList - ) where -import Graphics.UI.Gtk.WebKit.DOM.VideoTrackList diff --git a/webkit/GHCJS/DOM/VoidCallback.hs b/webkit/GHCJS/DOM/VoidCallback.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/VoidCallback.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.VoidCallback ( - ) where diff --git a/webkit/GHCJS/DOM/WaveShaperNode.hs b/webkit/GHCJS/DOM/WaveShaperNode.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/WaveShaperNode.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.WaveShaperNode ( - ) where diff --git a/webkit/GHCJS/DOM/WebGL2RenderingContext.hs b/webkit/GHCJS/DOM/WebGL2RenderingContext.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/WebGL2RenderingContext.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.WebGL2RenderingContext ( - ) where diff --git a/webkit/GHCJS/DOM/WebGLActiveInfo.hs b/webkit/GHCJS/DOM/WebGLActiveInfo.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/WebGLActiveInfo.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.WebGLActiveInfo ( - ) where diff --git a/webkit/GHCJS/DOM/WebGLCompressedTextureATC.hs b/webkit/GHCJS/DOM/WebGLCompressedTextureATC.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/WebGLCompressedTextureATC.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.WebGLCompressedTextureATC ( - ) where diff --git a/webkit/GHCJS/DOM/WebGLCompressedTexturePVRTC.hs b/webkit/GHCJS/DOM/WebGLCompressedTexturePVRTC.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/WebGLCompressedTexturePVRTC.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.WebGLCompressedTexturePVRTC ( - ) where diff --git a/webkit/GHCJS/DOM/WebGLCompressedTextureS3TC.hs b/webkit/GHCJS/DOM/WebGLCompressedTextureS3TC.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/WebGLCompressedTextureS3TC.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.WebGLCompressedTextureS3TC ( - ) where diff --git a/webkit/GHCJS/DOM/WebGLContextAttributes.hs b/webkit/GHCJS/DOM/WebGLContextAttributes.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/WebGLContextAttributes.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.WebGLContextAttributes ( - ) where diff --git a/webkit/GHCJS/DOM/WebGLContextEvent.hs b/webkit/GHCJS/DOM/WebGLContextEvent.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/WebGLContextEvent.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.WebGLContextEvent ( - ) where diff --git a/webkit/GHCJS/DOM/WebGLDebugRendererInfo.hs b/webkit/GHCJS/DOM/WebGLDebugRendererInfo.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/WebGLDebugRendererInfo.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.WebGLDebugRendererInfo ( - ) where diff --git a/webkit/GHCJS/DOM/WebGLDebugShaders.hs b/webkit/GHCJS/DOM/WebGLDebugShaders.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/WebGLDebugShaders.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.WebGLDebugShaders ( - ) where diff --git a/webkit/GHCJS/DOM/WebGLDepthTexture.hs b/webkit/GHCJS/DOM/WebGLDepthTexture.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/WebGLDepthTexture.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.WebGLDepthTexture ( - ) where diff --git a/webkit/GHCJS/DOM/WebGLDrawBuffers.hs b/webkit/GHCJS/DOM/WebGLDrawBuffers.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/WebGLDrawBuffers.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.WebGLDrawBuffers ( - ) where diff --git a/webkit/GHCJS/DOM/WebGLLoseContext.hs b/webkit/GHCJS/DOM/WebGLLoseContext.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/WebGLLoseContext.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.WebGLLoseContext ( - ) where diff --git a/webkit/GHCJS/DOM/WebGLRenderingContextBase.hs b/webkit/GHCJS/DOM/WebGLRenderingContextBase.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/WebGLRenderingContextBase.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.WebGLRenderingContextBase ( - ) where diff --git a/webkit/GHCJS/DOM/WebGLShaderPrecisionFormat.hs b/webkit/GHCJS/DOM/WebGLShaderPrecisionFormat.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/WebGLShaderPrecisionFormat.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.WebGLShaderPrecisionFormat ( - ) where diff --git a/webkit/GHCJS/DOM/WebKitAnimationEvent.hs b/webkit/GHCJS/DOM/WebKitAnimationEvent.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/WebKitAnimationEvent.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.WebKitAnimationEvent ( - ) where diff --git a/webkit/GHCJS/DOM/WebKitCSSFilterValue.hs b/webkit/GHCJS/DOM/WebKitCSSFilterValue.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/WebKitCSSFilterValue.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.WebKitCSSFilterValue ( - ) where diff --git a/webkit/GHCJS/DOM/WebKitCSSMatrix.hs b/webkit/GHCJS/DOM/WebKitCSSMatrix.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/WebKitCSSMatrix.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.WebKitCSSMatrix ( - ) where diff --git a/webkit/GHCJS/DOM/WebKitCSSRegionRule.hs b/webkit/GHCJS/DOM/WebKitCSSRegionRule.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/WebKitCSSRegionRule.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.WebKitCSSRegionRule ( - ) where diff --git a/webkit/GHCJS/DOM/WebKitCSSTransformValue.hs b/webkit/GHCJS/DOM/WebKitCSSTransformValue.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/WebKitCSSTransformValue.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.WebKitCSSTransformValue ( - ) where diff --git a/webkit/GHCJS/DOM/WebKitCSSViewportRule.hs b/webkit/GHCJS/DOM/WebKitCSSViewportRule.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/WebKitCSSViewportRule.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.WebKitCSSViewportRule ( - ) where diff --git a/webkit/GHCJS/DOM/WebKitNamedFlow.hs b/webkit/GHCJS/DOM/WebKitNamedFlow.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/WebKitNamedFlow.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.WebKitNamedFlow ( - module Graphics.UI.Gtk.WebKit.DOM.WebKitNamedFlow - ) where -import Graphics.UI.Gtk.WebKit.DOM.WebKitNamedFlow diff --git a/webkit/GHCJS/DOM/WebKitNamespace.hs b/webkit/GHCJS/DOM/WebKitNamespace.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/WebKitNamespace.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.WebKitNamespace ( - ) where diff --git a/webkit/GHCJS/DOM/WebKitPlaybackTargetAvailabilityEvent.hs b/webkit/GHCJS/DOM/WebKitPlaybackTargetAvailabilityEvent.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/WebKitPlaybackTargetAvailabilityEvent.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.WebKitPlaybackTargetAvailabilityEvent ( - ) where diff --git a/webkit/GHCJS/DOM/WebKitPoint.hs b/webkit/GHCJS/DOM/WebKitPoint.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/WebKitPoint.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.WebKitPoint ( - module Graphics.UI.Gtk.WebKit.DOM.WebKitPoint - ) where -import Graphics.UI.Gtk.WebKit.DOM.WebKitPoint diff --git a/webkit/GHCJS/DOM/WebKitTransitionEvent.hs b/webkit/GHCJS/DOM/WebKitTransitionEvent.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/WebKitTransitionEvent.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.WebKitTransitionEvent ( - ) where diff --git a/webkit/GHCJS/DOM/WebSocket.hs b/webkit/GHCJS/DOM/WebSocket.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/WebSocket.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.WebSocket ( - ) where diff --git a/webkit/GHCJS/DOM/WheelEvent.hs b/webkit/GHCJS/DOM/WheelEvent.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/WheelEvent.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.WheelEvent ( - module Graphics.UI.Gtk.WebKit.DOM.WheelEvent - ) where -import Graphics.UI.Gtk.WebKit.DOM.WheelEvent diff --git a/webkit/GHCJS/DOM/Window.hs b/webkit/GHCJS/DOM/Window.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/Window.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.Window ( - module Graphics.UI.Gtk.WebKit.DOM.Window - ) where -import Graphics.UI.Gtk.WebKit.DOM.Window diff --git a/webkit/GHCJS/DOM/WindowBase64.hs b/webkit/GHCJS/DOM/WindowBase64.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/WindowBase64.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.WindowBase64 ( - ) where diff --git a/webkit/GHCJS/DOM/WindowTimers.hs b/webkit/GHCJS/DOM/WindowTimers.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/WindowTimers.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.WindowTimers ( - ) where diff --git a/webkit/GHCJS/DOM/Worker.hs b/webkit/GHCJS/DOM/Worker.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/Worker.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.Worker ( - ) where diff --git a/webkit/GHCJS/DOM/WorkerGlobalScope.hs b/webkit/GHCJS/DOM/WorkerGlobalScope.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/WorkerGlobalScope.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.WorkerGlobalScope ( - ) where diff --git a/webkit/GHCJS/DOM/WorkerLocation.hs b/webkit/GHCJS/DOM/WorkerLocation.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/WorkerLocation.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.WorkerLocation ( - ) where diff --git a/webkit/GHCJS/DOM/WorkerNavigator.hs b/webkit/GHCJS/DOM/WorkerNavigator.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/WorkerNavigator.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.WorkerNavigator ( - ) where diff --git a/webkit/GHCJS/DOM/XMLHttpRequest.hs b/webkit/GHCJS/DOM/XMLHttpRequest.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/XMLHttpRequest.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.XMLHttpRequest ( - ) where diff --git a/webkit/GHCJS/DOM/XMLHttpRequestProgressEvent.hs b/webkit/GHCJS/DOM/XMLHttpRequestProgressEvent.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/XMLHttpRequestProgressEvent.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.XMLHttpRequestProgressEvent ( - ) where diff --git a/webkit/GHCJS/DOM/XMLHttpRequestUpload.hs b/webkit/GHCJS/DOM/XMLHttpRequestUpload.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/XMLHttpRequestUpload.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.XMLHttpRequestUpload ( - ) where diff --git a/webkit/GHCJS/DOM/XMLSerializer.hs b/webkit/GHCJS/DOM/XMLSerializer.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/XMLSerializer.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.XMLSerializer ( - ) where diff --git a/webkit/GHCJS/DOM/XPathEvaluator.hs b/webkit/GHCJS/DOM/XPathEvaluator.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/XPathEvaluator.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.XPathEvaluator ( - ) where diff --git a/webkit/GHCJS/DOM/XPathExpression.hs b/webkit/GHCJS/DOM/XPathExpression.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/XPathExpression.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.XPathExpression ( - module Graphics.UI.Gtk.WebKit.DOM.XPathExpression - ) where -import Graphics.UI.Gtk.WebKit.DOM.XPathExpression diff --git a/webkit/GHCJS/DOM/XPathNSResolver.hs b/webkit/GHCJS/DOM/XPathNSResolver.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/XPathNSResolver.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.XPathNSResolver ( - module Graphics.UI.Gtk.WebKit.DOM.XPathNSResolver - ) where -import Graphics.UI.Gtk.WebKit.DOM.XPathNSResolver diff --git a/webkit/GHCJS/DOM/XPathResult.hs b/webkit/GHCJS/DOM/XPathResult.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/XPathResult.hs +++ /dev/null @@ -1,4 +0,0 @@ -module GHCJS.DOM.XPathResult ( - module Graphics.UI.Gtk.WebKit.DOM.XPathResult - ) where -import Graphics.UI.Gtk.WebKit.DOM.XPathResult diff --git a/webkit/GHCJS/DOM/XSLTProcessor.hs b/webkit/GHCJS/DOM/XSLTProcessor.hs deleted file mode 100644 --- a/webkit/GHCJS/DOM/XSLTProcessor.hs +++ /dev/null @@ -1,2 +0,0 @@ -module GHCJS.DOM.XSLTProcessor ( - ) where